Commit | Line | Data |
---|---|---|
93c1eb4f | 1 | #!./perl |
2 | ||
3 | # $RCSfile$ | |
4 | ||
5 | print "1..1\n"; | |
6 | ||
7 | open(A,"+>a"); | |
8 | print A "_"; | |
9 | seek(A,0,0); | |
10 | ||
11 | $b = "abcd"; | |
12 | $b = ""; | |
13 | ||
14 | read(A,$b,1,4); | |
15 | ||
16 | close(A); | |
17 | ||
55497cff | 18 | unlink("a"); |
19 | ||
93c1eb4f | 20 | if ($b eq "\000\000\000\000_") { |
21 | print "ok 1\n"; | |
22 | } else { # Probably "\000bcd_" | |
23 | print "not ok 1\n"; | |
24 | } | |
55497cff | 25 | |
26 | unlink 'a'; |