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.