git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/utf8.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use strict;
  11 use warnings;
  12
  13 use Test::More skip_all => 'Not yet implemented';
  14
  15 my $have_perlio;
  16 BEGIN {
  17     # All together so Test::More sees the open discipline
  18     $have_perlio = eval q[
  19         use PerlIO;
  20         use open ':std', ':locale';
  21         use Test::More;
  22         1;
  23     ];
  24 }
  25
  26 use Test::More;
  27
  28 if( !$have_perlio ) {
  29     plan skip_all => "Don't have PerlIO";
  30 }
  31 else {
  32     plan tests => 5;
  33 }
  34
  35 SKIP: {
  36     skip( "Need PerlIO for this feature", 3 )
  37         unless $have_perlio;
  38
  39     my %handles = (
  40         output          => \*STDOUT,
  41         failure_output  => \*STDERR,
  42         todo_output     => \*STDOUT
  43     );
  44
  45     for my $method (keys %handles) {
  46         my $src = $handles{$method};
  47
  48         my $dest = Test::More->builder->$method;
  49
  50         is_deeply { map { $_ => 1 } PerlIO::get_layers($dest) },
  51                   { map { $_ => 1 } PerlIO::get_layers($src)  },
  52                   "layers copied to $method";
  53     }
  54 }
  55
  56 SKIP: {
  57     skip( "Can't test in general because their locale is unknown", 2 )
  58         unless $ENV{AUTHOR_TESTING};
  59
  60     my $uni = "\x{11e}";
  61
  62     my @warnings;
  63     local $SIG{__WARN__} = sub {
  64         push @warnings, @_;
  65     };
  66
  67     is( $uni, $uni, "Testing $uni" );
  68     is_deeply( \@warnings, [] );
  69 }