This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test perl #96008: use and require affected by open.pm
[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 -e line 2.
36 ########
37
38 # perlio [PerlIO_parse_layers]
39 no warnings 'layer';
40 open(F, ">:-aa", "bb");
41 use warnings 'layer';
42 open(F, ">:-aa", "bb");
43 close F;
44 EXPECT
45 Invalid separator character '-' in PerlIO layer specification -aa at - line 6.
46 ########
47
48 # perlio [PerlIO_parse_layers]
49 no warnings 'layer';
50 open(F, ">:aa(", "bb");
51 use warnings 'layer';
52 open(F, ">:aa(", "bb");
53 close F;
54 EXPECT
55 Argument list not closed for PerlIO layer "aa(" at - line 6.
56 ########
57
58 --FILE-- PerlIO_test_dir/xyz.pm
59 1;
60 --FILE--
61 # perlio [PerlIO_parse_layers]
62 no warnings 'layer';
63 open(F, ">:xyz", "bb");
64 use warnings 'layer';
65 open(F, ">:xyz", "bb");
66 close F;
67 END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
68 EXPECT
69 Unknown PerlIO layer "xyz" at - line 5.