diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-25 13:01:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-25 14:10:20 +0000 |
| commit | 99ef548ba710eb2617804c989e4d5fdae1f04f37 (patch) | |
| tree | 8295e26e58493474c765534c211849219ab506c7 /t | |
| parent | 696235b60874be65fe029a39969f44a0133ec2f8 (diff) | |
| download | perl-99ef548ba710eb2617804c989e4d5fdae1f04f37.tar.gz | |
warnings for perlio + others
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLMEKNEAAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@15485
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/perlio | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio index 18c0dfa89f..5848668a4b 100644 --- a/t/lib/warnings/perlio +++ b/t/lib/warnings/perlio @@ -7,4 +7,49 @@ Setting ptr %p > end+1 %p Setting cnt to %d, ptr implies %d + +perlio: invalid separator character %c%c%c in layer specification list %s + + open(F, ">:-aa", "bb") + + +perlio: argument list not closed for layer \"%.*s\"" + + open(F, ">:aa(", "bb") + +perlio: unknown layer \"%.*s\" + + # PerlIO/xyz.pm has 1; + open(F, ">xyz", "bb") + __END__ + +# perlio [PerlIO_parse_layers] +no warnings 'layer'; +open(F, ">:-aa", "bb"); +use warnings 'layer'; +open(F, ">:-aa", "bb"); +EXPECT +perlio: invalid separator character '-' in layer specification list -aa at - line 6. +######## + +# perlio [PerlIO_parse_layers] +no warnings 'layer'; +open(F, ">:aa(", "bb"); +use warnings 'layer'; +open(F, ">:aa(", "bb"); +EXPECT +perlio: argument list not closed for layer "aa(" at - line 6. +######## + +--FILE-- PerlIO/xyz.pm +1; +--FILE-- +# perlio [PerlIO_parse_layers] +no warnings 'layer'; +open(F, ">:xyz", "bb"); +#use warnings 'layer'; +use warnings ; +open(F, ">:xyz", "bb"); +EXPECT +perlio: unknown layer "xyz". |