This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct the expected results for the first perlio warnings subtest.
[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 Invalid separator character %c%c%c in PerlIO layer specification %s
12
13     open(F, ">:-aa", "bb")
14
15
16 Argument list not closed for PerlIO layer \"%.*s\""
17
18     open(F, ">:aa(", "bb")
19
20 Unknown PerlIO layer \"%.*s\"
21
22     # PerlIO/xyz.pm has 1;
23     open(F, ">xyz", "bb")
24
25 __END__
26
27 # perlio [PerlIO_find_layer]
28 unshift @INC, sub {
29     return undef unless caller eq "main";
30     open my $fh, "<", \1;
31     $fh;
32 };
33 require Symbol; # doesn't matter whether it exists or no
34 EXPECT
35 Recursive call to Perl_load_module in PerlIO_find_layer at - line 5.
36 BEGIN failed--compilation aborted.
37 ########
38
39 # perlio [PerlIO_parse_layers]
40 no warnings 'layer';
41 open(F, ">:-aa", "bb");
42 use warnings 'layer';
43 open(F, ">:-aa", "bb");
44 close F;
45 EXPECT
46 Invalid separator character '-' in PerlIO layer specification -aa at - line 6.
47 ########
48
49 # perlio [PerlIO_parse_layers]
50 no warnings 'layer';
51 open(F, ">:aa(", "bb");
52 use warnings 'layer';
53 open(F, ">:aa(", "bb");
54 close F;
55 EXPECT
56 Argument list not closed for PerlIO layer "aa(" at - line 6.
57 ########
58
59 --FILE-- PerlIO_test_dir/xyz.pm
60 1;
61 --FILE--
62 # perlio [PerlIO_parse_layers]
63 no warnings 'layer';
64 open(F, ">:xyz", "bb");
65 use warnings 'layer';
66 open(F, ">:xyz", "bb");
67 close F;
68 END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
69 EXPECT
70 Unknown PerlIO layer "xyz" at - line 5.