diff options
author | Jim Meyering <jim@meyering.net> | 2000-02-13 08:23:58 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-02-13 08:23:58 +0000 |
commit | 0d96fcf423d662d2d7a3f9693d8a938722ecda78 (patch) | |
tree | 2078fa8f95648e05b6cfb166da784a07e1e13dce /tests | |
parent | 658207b433055fd5f512eb98ac731311d635363a (diff) | |
download | coreutils-0d96fcf423d662d2d7a3f9693d8a938722ecda78.tar.xz |
(run_tests): Discard stderr.
Reverse diff args, so `expected' is last, as in mk-script.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Fetish.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm index 6354ee79e..fa83ee6c6 100644 --- a/tests/Fetish.pm +++ b/tests/Fetish.pm @@ -12,7 +12,7 @@ use FileHandle; use File::Compare qw(compare); @ISA = qw(Exporter); -($VERSION = '$Revision: 1.7 $ ') =~ tr/[0-9].//cd; +($VERSION = '$Revision: 1.8 $ ') =~ tr/[0-9].//cd; @EXPORT = qw (run_tests); my $debug = $ENV{DEBUG}; @@ -271,10 +271,10 @@ sub run_tests ($$$$$) if (compare ($expect->{$eo}, $tmp{$eo})) { warn "$program_name: test $test_name: std$eo_lower mismatch," - . " comparing $expect->{$eo} (expected)" - . " and $tmp{$eo} (actual)\n"; - # Ignore any failure. - system "diff -c $expect->{$eo} $tmp{$eo}"; + . " comparing $tmp{$eo} (actual)" + . " and $expect->{$eo} (expected)\n"; + # Ignore any failure, discard stderr. + system "diff -c $tmp{$eo} $expect->{$eo} 2>/dev/null"; $fail = 1; } } |