diff options
Diffstat (limited to 'contrib/perl5/t/io/inplace.t')
-rwxr-xr-x | contrib/perl5/t/io/inplace.t | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/contrib/perl5/t/io/inplace.t b/contrib/perl5/t/io/inplace.t deleted file mode 100755 index ff410a7..0000000 --- a/contrib/perl5/t/io/inplace.t +++ /dev/null @@ -1,36 +0,0 @@ -#!./perl - -$^I = $^O eq 'VMS' ? '_bak' : '.bak'; - -# $RCSfile: inplace.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:29 $ - -print "1..2\n"; - -@ARGV = ('.a','.b','.c'); -if ($^O eq 'MSWin32') { - $CAT = '.\perl -e "print<>"'; - `.\\perl -le "print 'foo'" > .a`; - `.\\perl -le "print 'foo'" > .b`; - `.\\perl -le "print 'foo'" > .c`; -} -elsif ($^O eq 'VMS') { - $CAT = 'MCR []perl. -e "print<>"'; - `MCR []perl. -le "print 'foo'" > ./.a`; - `MCR []perl. -le "print 'foo'" > ./.b`; - `MCR []perl. -le "print 'foo'" > ./.c`; -} -else { - $CAT = 'cat'; - `echo foo | tee .a .b .c`; -} -while (<>) { - s/foo/bar/; -} -continue { - print; -} - -if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";} -if (`$CAT .a$^I .b$^I .c$^I` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";} - -unlink '.a', '.b', '.c', ".a$^I", ".b$^I", ".c$^I"; |