From 0d96fcf423d662d2d7a3f9693d8a938722ecda78 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 13 Feb 2000 08:23:58 +0000
Subject: (run_tests): Discard stderr. Reverse diff args, so `expected' is
 last, as in mk-script.

---
 tests/Fetish.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'tests/Fetish.pm')

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;
 	    }
 	}
-- 
cgit v1.2.3-70-g09d2