Commit | Line | Data |
599cee73 |
1 | doio.c AOK |
2 | |
3 | Can't do bidirectional pipe |
4 | open(F, "| true |"); |
5 | |
06eaf0bc |
6 | Missing command in piped open |
7 | open(F, "| "); |
8 | |
9 | Missing command in piped open |
10 | open(F, " |"); |
11 | |
599cee73 |
12 | warn(warn_nl, "open"); |
13 | open(F, "true\ncd") |
14 | |
15 | Close on unopened file <%s> |
16 | $a = "fred";close($a) |
17 | |
18 | tell() on unopened file |
19 | $a = "fred";$a = tell($a) |
20 | |
21 | seek() on unopened file |
22 | $a = "fred";$a = seek($a,1,1) |
23 | |
24 | sysseek() on unopened file |
25 | $a = "fred";$a = seek($a,1,1) |
26 | |
27 | warn(warn_uninit); |
28 | print $a ; |
29 | |
30 | Stat on unopened file <%s> |
31 | close STDIN ; -x STDIN ; |
32 | |
33 | warn(warn_nl, "stat"); |
34 | stat "ab\ncd" |
35 | |
36 | warn(warn_nl, "lstat"); |
37 | lstat "ab\ncd" |
38 | |
39 | Can't exec \"%s\": %s |
40 | |
41 | Can't exec \"%s\": %s |
42 | |
43 | |
44 | __END__ |
45 | # doio.c |
46 | use warning 'io' ; |
dfe13c55 |
47 | open(F, "|$^X -e 1|") |
599cee73 |
48 | EXPECT |
49 | Can't do bidirectional pipe at - line 3. |
50 | ######## |
51 | # doio.c |
52 | use warning 'io' ; |
06eaf0bc |
53 | open(F, "| ") |
54 | EXPECT |
55 | Missing command in piped open at - line 3. |
56 | ######## |
57 | # doio.c |
58 | use warning 'io' ; |
59 | open(F, " |") |
60 | EXPECT |
61 | Missing command in piped open at - line 3. |
62 | ######## |
63 | # doio.c |
64 | use warning 'io' ; |
599cee73 |
65 | open(F, "<true\ncd") |
66 | EXPECT |
67 | Unsuccessful open on filename containing newline at - line 3. |
68 | ######## |
69 | # doio.c |
70 | use warning 'io' ; |
71 | close STDIN ; |
72 | tell(STDIN); |
73 | $a = seek(STDIN,1,1); |
74 | $a = sysseek(STDIN,1,1); |
75 | -x STDIN ; |
76 | EXPECT |
77 | tell() on unopened file at - line 4. |
78 | seek() on unopened file at - line 5. |
79 | sysseek() on unopened file at - line 6. |
80 | Stat on unopened file <STDIN> at - line 7. |
81 | ######## |
82 | # doio.c |
83 | use warning 'uninitialized' ; |
84 | print $a ; |
85 | EXPECT |
86 | Use of uninitialized value at - line 3. |
87 | ######## |
88 | # doio.c |
89 | use warning 'io' ; |
90 | |
91 | EXPECT |
92 | |
93 | ######## |
94 | # doio.c |
95 | use warning 'io' ; |
96 | stat "ab\ncd"; |
97 | lstat "ab\ncd"; |
98 | EXPECT |
99 | Unsuccessful stat on filename containing newline at - line 3. |
100 | Unsuccessful stat on filename containing newline at - line 4. |
101 | ######## |
102 | # doio.c |
103 | use warning 'io' ; |
dfe13c55 |
104 | exec "lskdjfalksdjfdjfkls","" ; |
599cee73 |
105 | EXPECT |
e5e1b98b |
106 | OPTION regex |
c4f6c246 |
107 | Can't exec "lskdjfalksdjfdjfkls": .+ |
599cee73 |
108 | ######## |
109 | # doio.c |
110 | use warning 'io' ; |
111 | exec "lskdjfalksdjfdjfkls", "abc" ; |
112 | EXPECT |
e5e1b98b |
113 | OPTION regex |
c4f6c246 |
114 | Can't exec "lskdjfalksdjfdjfkls": .+ |