(perl #127663) test we fail if the backup rename fails

and that we clean up the temp file

1 files changed, 16 insertions, 1 deletions

diff --git a/t/run/switches.t b/t/run/switches.t
index 951f8e0469..7b1db0331c 100644
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -12,7 +12,7 @@ BEGIN {
 
 BEGIN { require "./test.pl";  require "./loc_tools.pl"; }
 
-plan(tests => 133);
+plan(tests => 134);
 
 use Config;
 
@@ -537,6 +537,21 @@ CODE
         close $fh;
     }
 
+    {
+        # test we handle the rename to the backup failing
+        # make it fail by creating a directory of the backup name
+        mkdir "$work.bak" or die "Cannot make mask backup directory: $!";
+        fresh_perl_like(<<'CODE', qr/Can't rename/, { stderr => 1 }, "fail backup rename");
+@ARGV = ("inplacetmp/foo");
+$^I = ".bak";
+while (<>) {
+  print;
+}
+print "ok\n";
+CODE
+        rmdir "$work.bak" or die "Cannot remove mask backup directory: $!";
+    }
+
     unlink $work;
 
     # we now use temp files for in-place editing, make sure we didn't leave