diff options
| author | Jim Meyering <jim@meyering.net> | 2003-04-08 10:55:01 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2003-04-08 10:55:01 +0000 |
| commit | c54ba76168aa7519087d32f9c8f0b739a6420b4b (patch) | |
| tree | efce3525f29e52ef825446799aa9881b1910c14f /tests/md5sum | |
| parent | 5d425f8eedcfe909a773e2ecfc72b721276ff38b (diff) | |
| download | coreutils-c54ba76168aa7519087d32f9c8f0b739a6420b4b.tar.xz | |
Run $PERL to see if it is available, rather than testing its value.
Diffstat (limited to 'tests/md5sum')
| -rwxr-xr-x | tests/md5sum/basic-1 | 9 | ||||
| -rwxr-xr-x | tests/md5sum/newline-1 | 6 |
2 files changed, 6 insertions, 9 deletions
diff --git a/tests/md5sum/basic-1 b/tests/md5sum/basic-1 index d2dfb4228..e76c304a3 100755 --- a/tests/md5sum/basic-1 +++ b/tests/md5sum/basic-1 @@ -3,12 +3,11 @@ : ${PERL=perl} : ${srcdir=.} -case "$PERL" in - *'missing perl') - echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test" +$PERL -e 1 > /dev/null 2>&1 || { + echo 1>&2 "$0: configure didn't find a usable version of Perl," \ + "so can't run this test" exit 77 - ;; -esac +} exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF require 5.003; diff --git a/tests/md5sum/newline-1 b/tests/md5sum/newline-1 index a075f3f50..7473e554d 100755 --- a/tests/md5sum/newline-1 +++ b/tests/md5sum/newline-1 @@ -3,13 +3,11 @@ : ${PERL=perl} : ${srcdir=.} -case "$PERL" in - *'missing perl') +$PERL -e 1 > /dev/null 2>&1 || { echo 1>&2 "$0: configure didn't find a usable version of Perl," \ "so can't run this test" exit 77 - ;; -esac +} # See if we can create a filename that contains a newline. # Be careful to do it in a subshell so that we can redirect the |