Commit | Line | Data |
0453d815 |
1 | perlio.c |
2 | |
3 | |
4 | Mandatory Warnings ALL TODO |
5 | ------------------ |
6 | Setting cnt to %d |
7 | Setting ptr %p > end+1 %p |
8 | Setting cnt to %d, ptr implies %d |
9 | |
99ef548b |
10 | |
11 | perlio: invalid separator character %c%c%c in layer specification list %s |
12 | |
13 | open(F, ">:-aa", "bb") |
14 | |
15 | |
16 | perlio: argument list not closed for layer \"%.*s\"" |
17 | |
18 | open(F, ">:aa(", "bb") |
19 | |
20 | perlio: unknown layer \"%.*s\" |
21 | |
22 | # PerlIO/xyz.pm has 1; |
23 | open(F, ">xyz", "bb") |
24 | |
0453d815 |
25 | __END__ |
99ef548b |
26 | |
27 | # perlio [PerlIO_parse_layers] |
28 | no warnings 'layer'; |
29 | open(F, ">:-aa", "bb"); |
30 | use warnings 'layer'; |
31 | open(F, ">:-aa", "bb"); |
32 | EXPECT |
33 | perlio: invalid separator character '-' in layer specification list -aa at - line 6. |
34 | ######## |
35 | |
36 | # perlio [PerlIO_parse_layers] |
37 | no warnings 'layer'; |
38 | open(F, ">:aa(", "bb"); |
39 | use warnings 'layer'; |
40 | open(F, ">:aa(", "bb"); |
41 | EXPECT |
42 | perlio: argument list not closed for layer "aa(" at - line 6. |
43 | ######## |
44 | |
45 | --FILE-- PerlIO/xyz.pm |
46 | 1; |
47 | --FILE-- |
48 | # perlio [PerlIO_parse_layers] |
49 | no warnings 'layer'; |
50 | open(F, ">:xyz", "bb"); |
2dc52cef |
51 | use warnings 'layer'; |
99ef548b |
52 | open(F, ">:xyz", "bb"); |
67efce40 |
53 | END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. |
99ef548b |
54 | EXPECT |
55 | perlio: unknown layer "xyz". |