2 # $Id: /mirror/googlecode/test-more/t/utf8.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
5 if( $ENV{PERL_CORE} ) {
14 use Test::More skip_all => 'Not yet implemented';
18 # All together so Test::More sees the open discipline
19 $have_perlio = eval q[
21 use open ':std', ':locale';
30 plan skip_all => "Don't have PerlIO";
37 skip( "Need PerlIO for this feature", 3 )
42 failure_output => \*STDERR,
43 todo_output => \*STDOUT
46 for my $method (keys %handles) {
47 my $src = $handles{$method};
49 my $dest = Test::More->builder->$method;
51 is_deeply { map { $_ => 1 } PerlIO::get_layers($dest) },
52 { map { $_ => 1 } PerlIO::get_layers($src) },
53 "layers copied to $method";
58 skip( "Can't test in general because their locale is unknown", 2 )
59 unless $ENV{AUTHOR_TESTING};
64 local $SIG{__WARN__} = sub {
68 is( $uni, $uni, "Testing $uni" );
69 is_deeply( \@warnings, [] );