summaryrefslogtreecommitdiff
path: root/t/io/dup.t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-09-14 07:44:26 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-09-14 07:44:26 +0000
commitad1c95008f60417d352b3b69be994ff9e4297763 (patch)
tree10d327cf95e91115555f576659d2295683834be8 /t/io/dup.t
parentff8b5bfb112b7d58414aa2519764e2d7d7e79bf1 (diff)
downloadperl-ad1c95008f60417d352b3b69be994ff9e4297763.tar.gz
More portable reading.
p4raw-id: //depot/perl@21224
Diffstat (limited to 't/io/dup.t')
-rwxr-xr-xt/io/dup.t10
1 files changed, 7 insertions, 3 deletions
diff --git a/t/io/dup.t b/t/io/dup.t
index 8f54799945..976880035a 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -9,7 +9,7 @@ BEGIN {
use Config;
my $test = 1;
-print "1..25\n";
+print "1..26\n";
print "ok 1\n";
open(DUPOUT,">&STDOUT");
@@ -87,7 +87,7 @@ if ($Config{useperlio}) {
curr_test(13);
SKIP: {
- skip("need perlio", 13) unless $Config{useperlio};
+ skip("need perlio", 14) unless $Config{useperlio};
ok(open(F, ">&", STDOUT));
isnt(fileno(F), fileno(STDOUT));
@@ -122,7 +122,11 @@ SKIP: {
close F; # flush second
open(G, "<dup$$") or die;
- { local $/; is(<G>, "ggg\nfff\n") }
+ {
+ my $line;
+ $line = <G>; chomp $line; is($line, "ggg");
+ $line = <G>; chomp $line; is($line, "fff");
+ }
close G;
END { 1 while unlink "dup$$" }