(run_tests): Remove `.orig' file.

Remove debugging diagnostic.

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index fd094f7c5d6788b4fb5d0ef3517a81356c8f4409..3938583360770f48133d885701ffb7d10aefbe31 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.15 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.16 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -407,7 +407,6 @@ sub run_tests ($$$$$)
              my $out = $actual{$eo};
              my $orig = "$out.orig";
 
-             warn "rename $out, $orig";
              # Move $out aside (to $orig), then then recreate $out
              # by transforming each line of $orig via $subst_expr.
              rename $out, $orig
@@ -415,7 +414,10 @@ sub run_tests ($$$$$)
                  $fail = 1, next;
              open IN, $orig
                or (warn "$program_name: cannot open $orig for reading: $!\n"),
-                 $fail = 1, next;
+                 $fail = 1, (unlink $orig), next;
+             unlink $orig
+               or (warn "$program_name: cannot unlink $orig: $!\n"),
+                 $fail = 1;
              open OUT, ">$out"
                or (warn "$program_name: cannot open $out for writing: $!\n"),
                  $fail = 1, next;