Portability.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 1fafdf9ff88cc28bd961af3f9626ec72797e9515..f11dc471e3dce3fa22f286875b1c040defd51e13 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -9,6 +9,7 @@
        by themselves.
        * lang-rst: Avoid using the 'type' builtin. It always reports success
        with SunOS4 /bin/sh.
+       * lang-pascal: Likewise.
 
 2001-12-11  Bruno Haible  <bruno@clisp.org>
 

diff --git a/tests/lang-pascal b/tests/lang-pascal
index 0b4b1eb055c94eef430d96c9d62f40a76bdfbf4b..5fa760b14b21028e48be5327434f8da86cb42f9e 100755 (executable)
--- a/tests/lang-pascal
+++ b/tests/lang-pascal
@@ -6,9 +6,6 @@
 tmpfiles=""
 trap 'rm -fr $tmpfiles' 1 2 3 15
 
-# Test whether a Pascal compiler is found.
-type ppc386 >/dev/null 2>&1 || { echo "SKIP: lang-pascal"; exit 77; }
-
 tmpfiles="$tmpfiles prog.pp"
 cat <<\EOF > prog.pp
 program prog;
@@ -28,7 +25,7 @@ end.
 EOF
 
 tmpfiles="$tmpfiles prog.o prog.rst prog"
-ppc386 prog.pp || exit 1
+ppc386 prog.pp >/dev/null 2>&1 || { echo "SKIP: lang-pascal"; rm -fr $tmpfiles exit 77; }
 
 tmpfiles="$tmpfiles prog.pot"
 : ${XGETTEXT=xgettext}