ext/Unicode/Normalize/t/illegal.t

   1
   2 BEGIN {
   3     unless ("A" eq pack('U', 0x41)) {
   4         print "1..0 # Unicode::Normalize " .
   5             "cannot stringify a Unicode code point\n";
   6         exit 0;
   7     }
   8 }
   9
  10 BEGIN {
  11     if ($ENV{PERL_CORE}) {
  12         chdir('t') if -d 't';
  13         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
  14     }
  15 }
  16
  17 BEGIN {
  18     unless (5.006001 <= $]) {
  19         print "1..0 # skipped: Perl 5.6.1 or later".
  20                 " needed for this test\n";
  21         exit;
  22     }
  23 }
  24
  25 #########################
  26
  27 use Test;
  28 use strict;
  29 use warnings;
  30
  31 BEGIN {
  32     use Unicode::Normalize qw(:all);
  33
  34     unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {
  35         print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".
  36                 " needed for this test\n";
  37         print $@;
  38         exit;
  39     }
  40 }
  41
  42 BEGIN { plan tests => 112 };
  43
  44 #########################
  45
  46 no warnings qw(utf8);
  47 # To avoid warning in Test.pm, EXPR in ok(EXPR) must be boolean.
  48
  49 for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF,
  50            0x1FFFF, 0x10FFFF, 0x110000, 0x7FFFFFFF)
  51 {
  52     my $c = chr $u;
  53     ok($c eq NFD($c));  # 1
  54     ok($c eq NFC($c));  # 2
  55     ok($c eq NFKD($c)); # 3
  56     ok($c eq NFKC($c)); # 4
  57     ok($c eq FCD($c));  # 5
  58     ok($c eq FCC($c));  # 6
  59     ok($c eq decompose($c));   # 7
  60     ok($c eq decompose($c,1)); # 8
  61     ok($c eq reorder($c));     # 9
  62     ok($c eq compose($c));     # 10
  63 }
  64
  65 our $proc;    # before the last starter
  66 our $unproc;  # the last starter and after
  67
  68 sub _pack_U   { Unicode::Normalize::pack_U(@_) }
  69
  70 ($proc, $unproc) = splitOnLastStarter(_pack_U(0x41, 0x300, 0x327, 0xFFFF));
  71 ok($proc   eq _pack_U(0x41, 0x300, 0x327));
  72 ok($unproc eq "\x{FFFF}");
  73