(run_tests): Discard stderr.

Reverse diff args, so `expected' is last, as in mk-script.

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 6354ee7..fa83ee6 100644 (file)
--- 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;
            }
        }