diff options
| author | Jim Meyering <jim@meyering.net> | 2000-02-12 17:06:04 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2000-02-12 17:06:04 +0000 |
| commit | 77dfc822934078074b014af1e293a53b074f418c (patch) | |
| tree | c2720bee4defcffc21f855e02d4f966bd5fbf544 /tests/Fetish.pm | |
| parent | 5813e98ace4d51691de18d79760c5d5388da5d7c (diff) | |
| download | coreutils-77dfc822934078074b014af1e293a53b074f418c.tar.xz | |
(run_tests): Invoke `diff' when differences are found.
Diffstat (limited to 'tests/Fetish.pm')
| -rw-r--r-- | tests/Fetish.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm index dfbaddab3..6354ee79e 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.6 $ ') =~ tr/[0-9].//cd; +($VERSION = '$Revision: 1.7 $ ') =~ tr/[0-9].//cd; @EXPORT = qw (run_tests); my $debug = $ENV{DEBUG}; @@ -271,7 +271,10 @@ sub run_tests ($$$$$) if (compare ($expect->{$eo}, $tmp{$eo})) { warn "$program_name: test $test_name: std$eo_lower mismatch," - . " comparing $expect->{$eo} and $tmp{$eo}\n"; + . " comparing $expect->{$eo} (expected)" + . " and $tmp{$eo} (actual)\n"; + # Ignore any failure. + system "diff -c $expect->{$eo} $tmp{$eo}"; $fail = 1; } } |