Avoid test failure.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 736218135e06e7dd54a8e829cd34893c6408556c..a117c189293d0c5504541d24513b73a353f50f33 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-07  Bruno Haible  <bruno@clisp.org>
+
+       * lang-tcl: Skip the test if tcl exists but has no msgcat extension.
+
 2002-03-05  Bruno Haible  <bruno@clisp.org>
 
        * xgettext-19: When skipping the test, use exit code 77.

diff --git a/tests/lang-tcl b/tests/lang-tcl
index 3179c62ebc90230008b27a187f79ea0dfb6c8c9a..dd3a9f34a2f184cd22c888c6ed3829a5053988da 100755 (executable)
--- a/tests/lang-tcl
+++ b/tests/lang-tcl
@@ -63,9 +63,10 @@ test -d msgs || mkdir msgs
 : ${MSGFMT=msgfmt}
 ${MSGFMT} --tcl -d msgs -l fr fr.po || exit 1
 
-# Test for presence of tclsh.
+# Test for presence of tclsh with msgcat extension.
 tmpfiles="$tmpfiles version.tcl"
 cat <<\EOF > version.tcl
+package require msgcat
 puts $tcl_version
 EOF
 (tclsh version.tcl) >/dev/null 2>/dev/null \