This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
numeric.c:S_mulexp10 -- quit when you can
[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 close F;
33 EXPECT
34 perlio: invalid separator character '-' in layer specification list -aa at - line 6.
35 ########
36
37 # perlio [PerlIO_parse_layers]
38 no warnings 'layer';
39 open(F, ">:aa(", "bb");
40 use warnings 'layer';
41 open(F, ">:aa(", "bb");
42 close F;
43 EXPECT
44 perlio: argument list not closed for layer "aa(" at - line 6.
45 ########
46
47 --FILE-- PerlIO/xyz.pm
48 1;
49 --FILE--
50 # perlio [PerlIO_parse_layers]
51 no warnings 'layer';
52 open(F, ">:xyz", "bb");
53 use warnings 'layer';
54 open(F, ">:xyz", "bb");
55 close F;
56 END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
57 EXPECT
58 perlio: unknown layer "xyz".