t/io/iprefix.t

   1 #!./perl
   2 use strict;
   3 require './test.pl';
   4
   5 $^I = 'bak.*';
   6
   7 # Modified from the original inplace.t to test adding prefixes
   8
   9 plan( tests => 2 );
  10
  11 my @tfiles     = (tempfile(), tempfile(), tempfile());
  12 my @tfiles_bak = map "bak.$_", @tfiles;
  13
  14 END { unlink_all(@tfiles_bak); }
  15
  16 for my $file (@tfiles) {
  17     runperl( prog => 'print qq(foo\n);',
  18              args => ['>', $file] );
  19 }
  20
  21 @ARGV = @tfiles;
  22
  23 while (<>) {
  24     s/foo/bar/;
  25 }
  26 continue {
  27     print;
  28 }
  29
  30 is ( runperl( prog => 'print<>;', args => \@tfiles ),
  31      "bar\nbar\nbar\n",
  32      "file contents properly replaced" );
  33
  34 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
  35      "foo\nfoo\nfoo\n",
  36      "backup file contents stay the same" );
  37