Commit | Line | Data |
2d259d92 |
1 | #!./perl |
99ec4a7e |
2 | use strict; |
3 | require './test.pl'; |
2d259d92 |
4 | |
5 | $^I = 'bak*'; |
6 | |
7 | # Modified from the original inplace.t to test adding prefixes |
8 | |
99ec4a7e |
9 | plan( tests => 2 ); |
2d259d92 |
10 | |
99ec4a7e |
11 | my @tfiles = ('.a','.b','.c'); |
12 | my @tfiles_bak = ('bak.a', 'bak.b', 'bak.c'); |
13 | |
14 | END { unlink_all('.a','.b','.c', 'bak.a', 'bak.b', 'bak.c'); } |
15 | |
16 | for my $file (@tfiles) { |
17 | runperl( prog => 'print qq(foo\n);', |
18 | args => ['>', $file] ); |
2d259d92 |
19 | } |
99ec4a7e |
20 | |
21 | @ARGV = @tfiles; |
22 | |
2d259d92 |
23 | while (<>) { |
24 | s/foo/bar/; |
25 | } |
26 | continue { |
27 | print; |
28 | } |
29 | |
99ec4a7e |
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" ); |
2d259d92 |
37 | |