cpan/Unicode-Normalize/t/form.t

   1
   2 BEGIN {
   3     unless ('A' eq pack('U', 0x41)) {
   4         print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
   5         exit 0;
   6     }
   7     unless (0x41 == unpack('U', 'A')) {
   8         print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
   9         exit 0;
  10     }
  11 }
  12
  13 BEGIN {
  14     if ($ENV{PERL_CORE}) {
  15         chdir('t') if -d 't';
  16         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
  17     }
  18 }
  19
  20 #########################
  21
  22 use strict;
  23 use warnings;
  24 BEGIN { $| = 1; print "1..37\n"; }
  25 my $count = 0;
  26 sub ok ($;$) {
  27     my $p = my $r = shift;
  28     if (@_) {
  29         my $x = shift;
  30         $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
  31     }
  32     print $p ? "ok" : "not ok", ' ', ++$count, "\n";
  33 }
  34
  35 use Unicode::Normalize qw(:all);
  36
  37 ok(1);
  38
  39 sub answer { defined $_[0] ? $_[0] ? "YES" : "NO" : "MAYBE" }
  40
  41 #########################
  42
  43 ok(NFD ("\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{FF76}");
  44 ok(NFC ("\x{304C}\x{FF76}"), "\x{304C}\x{FF76}");
  45 ok(NFKD("\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{30AB}");
  46 ok(NFKC("\x{304C}\x{FF76}"), "\x{304C}\x{30AB}");
  47
  48 ok(answer(checkNFD ("\x{304C}")), "NO");
  49 ok(answer(checkNFC ("\x{304C}")), "YES");
  50 ok(answer(checkNFKD("\x{304C}")), "NO");
  51 ok(answer(checkNFKC("\x{304C}")), "YES");
  52 ok(answer(checkNFD ("\x{FF76}")), "YES");
  53 ok(answer(checkNFC ("\x{FF76}")), "YES");
  54 ok(answer(checkNFKD("\x{FF76}")), "NO");
  55 ok(answer(checkNFKC("\x{FF76}")), "NO");
  56
  57 ok(normalize('D', "\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{FF76}");
  58 ok(normalize('C', "\x{304C}\x{FF76}"), "\x{304C}\x{FF76}");
  59 ok(normalize('KD',"\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{30AB}");
  60 ok(normalize('KC',"\x{304C}\x{FF76}"), "\x{304C}\x{30AB}");
  61
  62 ok(answer(check('D', "\x{304C}")), "NO");
  63 ok(answer(check('C', "\x{304C}")), "YES");
  64 ok(answer(check('KD',"\x{304C}")), "NO");
  65 ok(answer(check('KC',"\x{304C}")), "YES");
  66 ok(answer(check('D' ,"\x{FF76}")), "YES");
  67 ok(answer(check('C' ,"\x{FF76}")), "YES");
  68 ok(answer(check('KD',"\x{FF76}")), "NO");
  69 ok(answer(check('KC',"\x{FF76}")), "NO");
  70
  71 ok(normalize('NFD', "\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{FF76}");
  72 ok(normalize('NFC', "\x{304C}\x{FF76}"), "\x{304C}\x{FF76}");
  73 ok(normalize('NFKD',"\x{304C}\x{FF76}"), "\x{304B}\x{3099}\x{30AB}");
  74 ok(normalize('NFKC',"\x{304C}\x{FF76}"), "\x{304C}\x{30AB}");
  75
  76 ok(answer(check('NFD', "\x{304C}")), "NO");
  77 ok(answer(check('NFC', "\x{304C}")), "YES");
  78 ok(answer(check('NFKD',"\x{304C}")), "NO");
  79 ok(answer(check('NFKC',"\x{304C}")), "YES");
  80 ok(answer(check('NFD' ,"\x{FF76}")), "YES");
  81 ok(answer(check('NFC' ,"\x{FF76}")), "YES");
  82 ok(answer(check('NFKD',"\x{FF76}")), "NO");
  83 ok(answer(check('NFKC',"\x{FF76}")), "NO");
  84