From: Bruno Haible <bruno@clisp.org>
Date: Wed, 6 Mar 2002 14:27:16 +0000 (+0000)
Subject: Avoid test failure.
X-Git-Tag: v0.11.1~33
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=373d86dd9835e7cf119f4ccf2833b6eaf8d410f9;p=thirdparty%2Fgettext.git

Avoid test failure.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 736218135..a117c1892 100644
--- 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 3179c62eb..dd3a9f34a 100755
--- 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 \