4 if( $ENV{PERL_CORE} ) {
13 use Test::More skip_all => 'Not yet implemented';
17 # All together so Test::More sees the open discipline
18 $have_perlio = eval q[
20 use open ':std', ':locale';
29 plan skip_all => "Don't have PerlIO";
36 skip( "Need PerlIO for this feature", 3 )
41 failure_output => \*STDERR,
42 todo_output => \*STDOUT
45 for my $method (keys %handles) {
46 my $src = $handles{$method};
48 my $dest = Test::More->builder->$method;
50 is_deeply { map { $_ => 1 } PerlIO::get_layers($dest) },
51 { map { $_ => 1 } PerlIO::get_layers($src) },
52 "layers copied to $method";
57 skip( "Can't test in general because their locale is unknown", 2 )
58 unless $ENV{AUTHOR_TESTING};
63 local $SIG{__WARN__} = sub {
67 is( $uni, $uni, "Testing $uni" );
68 is_deeply( \@warnings, [] );