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