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 open(F, ">:xyz", "bb");
  53 END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
  54 EXPECT
  55 perlio: unknown layer "xyz".