[perl #70802] -i'*' refuses to work

Add regression tests
(the bug was fixed by commit c9930541bfa04399c3b648e83c9b750cee1154fb)

diff --git a/t/io/inplace.t b/t/io/inplace.t
index a9664dc..ce09314 100644 (file)
--- a/t/io/inplace.t
+++ b/t/io/inplace.t
@@ -4,7 +4,7 @@ require './test.pl';
 
 $^I = $^O eq 'VMS' ? '_bak' : '.bak';
 
-plan( tests => 2 );
+plan( tests => 6 );
 
 my @tfiles     = (tempfile(), tempfile(), tempfile());
 my @tfiles_bak = map "$_$^I", @tfiles;
@@ -33,3 +33,55 @@ is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
      "foo\nfoo\nfoo\n", 
      "backup file contents stay the same" );
 
+SKIP:
+{
+    # based on code, dosish and epoc systems can't do no-backup inplace
+    # edits
+    $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc)$/
+       and skip("Can't inplace edit without backups on $^O", 4);
+    
+    our @ifiles = ( tempfile(), tempfile(), tempfile() );
+    
+    {
+       for my $file (@ifiles) {
+           runperl( prog => 'print qq(bar\n);',
+                    args => [ '>', $file ] );
+       }
+       
+       local $^I = '';
+    local @ARGV = @ifiles;
+       
+       while (<>) {
+           print "foo$_";
+       }
+       
+       is(scalar(@ARGV), 0, "consumed ARGV");
+       
+       is( runperl( prog => 'print<>;', args => \@ifiles ),
+           "foobar\nfoobar\nfoobar\n",
+           "normal inplace edit");
+    }
+    
+    # test * equivalency RT #70802
+    {
+       for my $file (@ifiles) {
+           runperl( prog => 'print qq(bar\n);',
+                    args => [ '>', $file ] );
+       }
+       
+       local $^I = '*';
+       local @ARGV = @ifiles;
+       
+       while (<>) {
+           print "foo$_";
+       }
+       
+       is(scalar(@ARGV), 0, "consumed ARGV");
+       
+       is( runperl( prog => 'print<>;', args => \@ifiles ),
+           "foobar\nfoobar\nfoobar\n",
+           "normal inplace edit");
+    }
+    
+    END { unlink_all(@ifiles); }
+}