Commit | Line | Data |
a39702a6 |
1 | #!./perl |
2 | |
88587957 |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
a39702a6 |
8 | # A modest test: exercises only O_WRONLY, O_CREAT, and O_RDONLY. |
9 | # Have to be modest to be portable: could possibly extend testing |
10 | # also to O_RDWR and O_APPEND, but dunno about the portability of, |
11 | # say, O_TRUNC and O_EXCL, not to mention O_NONBLOCK. |
12 | |
13 | use Fcntl; |
14 | |
1feb1812 |
15 | print "1..7\n"; |
a39702a6 |
16 | |
17 | print "ok 1\n"; |
18 | |
19 | if (sysopen(my $wo, "fcntl$$", O_WRONLY|O_CREAT)) { |
20 | print "ok 2\n"; |
21 | if (syswrite($wo, "foo") == 3) { |
22 | print "ok 3\n"; |
23 | close($wo); |
24 | if (sysopen(my $ro, "fcntl$$", O_RDONLY)) { |
25 | print "ok 4\n"; |
26 | if (sysread($ro, my $read, 3)) { |
27 | print "ok 5\n"; |
28 | if ($read eq "foo") { |
29 | print "ok 6\n"; |
30 | } else { |
31 | print "not ok 6 # content '$read' not ok\n"; |
32 | } |
33 | } else { |
34 | print "not ok 5 # sysread failed: $!\n"; |
35 | } |
36 | } else { |
37 | print "not ok 4 # sysopen O_RDONLY failed: $!\n"; |
38 | } |
39 | close($ro); |
40 | } else { |
41 | print "not ok 3 # syswrite failed: $!\n"; |
42 | } |
43 | close($wo); |
44 | } else { |
45 | print "not ok 2 # sysopen O_WRONLY failed: $!\n"; |
46 | } |
47 | |
1feb1812 |
48 | # Opening of character special devices gets special treatment in doio.c |
49 | # Didn't work as of perl-5.8.0-RC2. |
50 | use File::Spec; # To portably get /dev/null |
51 | |
52 | my $devnull = File::Spec->devnull; |
53 | if (-c $devnull) { |
54 | if (sysopen(my $wo, $devnull, O_WRONLY)) { |
55 | print "ok 7 # open /dev/null O_WRONLY\n"; |
56 | close($wo); |
57 | } |
58 | else { |
59 | print "not ok 7 # open /dev/null O_WRONLY\n"; |
60 | } |
61 | } |
62 | else { |
63 | print "ok 7 # Skipping /dev/null sysopen O_WRONLY test\n"; |
64 | } |
65 | |
a39702a6 |
66 | END { |
67 | 1 while unlink "fcntl$$"; |
68 | } |