diff options
Diffstat (limited to 'lib/open.t')
-rw-r--r-- | lib/open.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/open.t b/lib/open.t index 9c36e1a5c8..1c4a99e202 100644 --- a/lib/open.t +++ b/lib/open.t @@ -7,7 +7,7 @@ BEGIN { require Config; import Config; } -use Test::More tests => 22; +use Test::More tests => 23; # open::import expects 'open' as its first argument, but it clashes with open() sub import { @@ -181,6 +181,11 @@ EOE } } +{ + eval q[use Encode::Alias;use open ":std", ":locale"]; + is($@, '', 'can use :std and :locale'); +} + SKIP: { skip("no perlio", 1) unless (find PerlIO::Layer 'perlio'); use open IN => ':non-existent'; |