This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make utf8::encode respect magic
[perl5.git] / t / io / iprefix.t
CommitLineData
2d259d92 1#!./perl
99ec4a7e
CB
2use strict;
3require './test.pl';
2d259d92 4
62a28c97 5$^I = 'bak.*';
2d259d92
CK
6
7# Modified from the original inplace.t to test adding prefixes
8
99ec4a7e 9plan( tests => 2 );
2d259d92 10
62a28c97
NC
11my @tfiles = (tempfile(), tempfile(), tempfile());
12my @tfiles_bak = map "bak.$_", @tfiles;
99ec4a7e 13
62a28c97 14END { unlink_all(@tfiles_bak); }
99ec4a7e
CB
15
16for my $file (@tfiles) {
17 runperl( prog => 'print qq(foo\n);',
18 args => ['>', $file] );
2d259d92 19}
99ec4a7e
CB
20
21@ARGV = @tfiles;
22
2d259d92
CK
23while (<>) {
24 s/foo/bar/;
25}
26continue {
27 print;
28}
29
99ec4a7e
CB
30is ( runperl( prog => 'print<>;', args => \@tfiles ),
31 "bar\nbar\nbar\n",
32 "file contents properly replaced" );
33
34is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
35 "foo\nfoo\nfoo\n",
36 "backup file contents stay the same" );
2d259d92 37