diff options
Diffstat (limited to 'cpan/Test-Simple/t/Test-Stream-IOSets.t')
-rw-r--r-- | cpan/Test-Simple/t/Test-Stream-IOSets.t | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/cpan/Test-Simple/t/Test-Stream-IOSets.t b/cpan/Test-Simple/t/Test-Stream-IOSets.t deleted file mode 100644 index c2da17eca3..0000000000 --- a/cpan/Test-Simple/t/Test-Stream-IOSets.t +++ /dev/null @@ -1,31 +0,0 @@ -use strict; -use warnings; - -use Test::Stream; -use Test::MostlyLike; -use Test::More; - -use ok 'Test::Stream::IOSets'; - -my ($out, $err) = Test::Stream::IOSets->open_handles; -ok($out && $err, "got 2 handles"); -ok(close($out), "Close stdout"); -ok(close($err), "Close stderr"); - -my $one = Test::Stream::IOSets->new; -isa_ok($one, 'Test::Stream::IOSets'); -mostly_like( - $one, - { ':legacy' => [], ':utf8' => undef }, - "Legacy encoding is set", -); - -ok($one->init_encoding('utf8'), "init utf8"); - -mostly_like( - $one, - { ':legacy' => [], ':utf8' => [] }, - "utf8 encoding is set", -); - -done_testing; |