Commit | Line | Data |
---|---|---|
3eb568f1 | 1 | #!./perl |
2 | ||
3 | # $RCSfile$ | |
4 | $| = 1; | |
5 | ||
6 | print "1..6\n"; | |
7 | ||
8 | print "$!\nnot " unless open(A,undef); | |
9 | print "ok 1\n"; | |
10 | print "not " unless print A "SomeData\n"; | |
11 | print "ok 2\n"; | |
12 | print "not " unless tell(A) == 9; | |
13 | print "ok 3\n"; | |
14 | print "not " unless seek(A,0,0); | |
15 | print "ok 4\n"; | |
16 | $b = <A>; | |
17 | print "not " unless $b eq "SomeData\n"; | |
18 | print "ok 5\n"; | |
19 | print "not " unless close(A); | |
20 | print "ok 6\n"; | |
21 | ||
22 |