This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
warnings for perlio + others
[perl5.git] / t / lib / warnings / perlio
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
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
25 __END__
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");
51 #use warnings 'layer';
52 use warnings ;
53 open(F, ">:xyz", "bb");
54 EXPECT
55 perlio: unknown layer "xyz".