Commit | Line | Data |
f6c77cf1 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
e0e62c2a |
6 | unless (exists $open::layers{'perlio'}) { |
f6c77cf1 |
7 | print "1..0 # Skip: not perlio\n"; |
8 | exit 0; |
9 | } |
10 | } |
11 | |
12 | $| = 1; |
773aa825 |
13 | print "1..10\n"; |
f6c77cf1 |
14 | |
15 | my $fh; |
16 | my $var = "ok 2\n"; |
17 | open($fh,"+<",\$var) or print "not "; |
18 | print "ok 1\n"; |
19 | print <$fh>; |
20 | print "not " unless eof($fh); |
21 | print "ok 3\n"; |
22 | seek($fh,0,0) or print "not "; |
23 | print "not " if eof($fh); |
24 | print "ok 4\n"; |
25 | print "ok 5\n"; |
26 | print $fh "ok 7\n" or print "not "; |
27 | print "ok 6\n"; |
28 | print $var; |
29 | $var = "foo\nbar\n"; |
30 | seek($fh,0,0) or print "not "; |
31 | print "not " if eof($fh); |
32 | print "ok 8\n"; |
33 | print "not " unless <$fh> eq "foo\n"; |
34 | print "ok 9\n"; |
773aa825 |
35 | # Test multiple consecutive writes to $var |
36 | $var = ""; |
37 | seek($fh, 0, 0); |
38 | print $fh "Fred and Wilma "; |
39 | print $fh "Flintstone"; |
40 | print "not " unless $var eq "Fred and Wilma Flintstone"; |
41 | print "ok 10\n"; |