diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 10:37:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 10:37:30 +0000 |
| commit | a9f76400719eab0b833a22a7abc257540ba871a5 (patch) | |
| tree | df345b8da28d9a34e8b7f589220ba7d23e1c4f30 /t/io/open.t | |
| parent | 7e72d50951f9200af403999824e9d3fc17f03570 (diff) | |
| download | perl-a9f76400719eab0b833a22a7abc257540ba871a5.tar.gz | |
Layer names were recognized by their prefixes
(e.g. open(F, ":u", "file") worked...)
p4raw-id: //depot/perl@21207
Diffstat (limited to 't/io/open.t')
| -rwxr-xr-x | t/io/open.t | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/t/io/open.t b/t/io/open.t index b8020c24c3..90305bd1be 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -12,7 +12,7 @@ use Config; $Is_VMS = $^O eq 'VMS'; $Is_MacOS = $^O eq 'MacOS'; -plan tests => 102; +plan tests => 105; my $Perl = which_perl(); @@ -280,15 +280,25 @@ SKIP: { } SKIP: { - skip("This test uses perlio", 1) unless $Config{useperlio}; + skip("These tests use perlio", 5) unless $Config{useperlio}; my $w; use warnings 'layer'; local $SIG{__WARN__} = sub { $w = shift }; eval { open(F, ">>>", "afile") }; like($w, qr/perlio: invalid separator character '>' in layer spec/, - "bad open warning"); + "bad open (>>>) warning"); like($@, qr/Unknown open\(\) mode '>>>'/, - "bad open failure"); + "bad open (>>>) failure"); + + eval { open(F, ">:u", "afile" ) }; + like($w, qr/perlio: unknown layer "u"/, + 'bad layer ">:u" warning'); + eval { open(F, "<:u", "afile" ) }; + like($w, qr/perlio: unknown layer "u"/, + 'bad layer "<:u" warning'); + eval { open(F, ":u", "afile" ) }; + like($@, qr/Unknown open\(\) mode ':u'/, + 'bad layer ":u" failure'); } |