ext/Unicode/Normalize/t/test.t

   1
   2 BEGIN {
   3     if (ord("A") == 193) {
   4         print "1..0 # Unicode::Normalize not ported to EBCDIC\n";
   5         exit 0;
   6     }
   7 }
   8
   9 BEGIN {
  10     if ($ENV{PERL_CORE}) {
  11         chdir('t') if -d 't';
  12         @INC = qw(../lib);
  13     }
  14 }
  15
  16 #########################
  17
  18 use Test;
  19 use strict;
  20 use warnings;
  21 BEGIN { plan tests => 20 };
  22 use Unicode::Normalize;
  23 ok(1); # If we made it this far, we're ok.
  24
  25 our $IsEBCDIC = ord("A") != 0x41;
  26
  27 sub _pack_U {
  28     return $IsEBCDIC
  29         ? pack('U*', map utf8::unicode_to_native($_), @_)
  30         : pack('U*', @_);
  31 }
  32
  33 sub _unpack_U {
  34     return $IsEBCDIC
  35         ? map(utf8::native_to_unicode($_), unpack 'U*', shift)
  36         : unpack('U*', shift);
  37 }
  38
  39 #########################
  40
  41 ok(NFC(""), "");
  42 ok(NFD(""), "");
  43
  44 sub hexNFC {
  45   join " ", map sprintf("%04X", $_),
  46   _unpack_U NFC _pack_U map hex, split ' ', shift;
  47 }
  48 sub hexNFD {
  49   join " ", map sprintf("%04X", $_),
  50   _unpack_U NFD _pack_U map hex, split ' ', shift;
  51 }
  52
  53 ok(hexNFC("0061 0315 0300 05AE 05C4 0062"), "00E0 05AE 05C4 0315 0062");
  54 ok(hexNFC("00E0 05AE 05C4 0315 0062"),      "00E0 05AE 05C4 0315 0062");
  55 ok(hexNFC("0061 05AE 0300 05C4 0315 0062"), "00E0 05AE 05C4 0315 0062");
  56 ok(hexNFC("0045 0304 0300 AC00 11A8"), "1E14 AC01");
  57 ok(hexNFC("1100 1161 1100 1173 11AF"), "AC00 AE00");
  58 ok(hexNFC("1100 0300 1161 1173 11AF"), "1100 0300 1161 1173 11AF");
  59
  60 ok(hexNFD("0061 0315 0300 05AE 05C4 0062"), "0061 05AE 0300 05C4 0315 0062");
  61 ok(hexNFD("00E0 05AE 05C4 0315 0062"),      "0061 05AE 0300 05C4 0315 0062");
  62 ok(hexNFD("0061 05AE 0300 05C4 0315 0062"), "0061 05AE 0300 05C4 0315 0062");
  63 ok(hexNFC("0061 05C4 0315 0300 05AE 0062"), "0061 05AE 05C4 0300 0315 0062");
  64 ok(hexNFC("0061 05AE 05C4 0300 0315 0062"), "0061 05AE 05C4 0300 0315 0062");
  65 ok(hexNFD("0061 05C4 0315 0300 05AE 0062"), "0061 05AE 05C4 0300 0315 0062");
  66 ok(hexNFD("0061 05AE 05C4 0300 0315 0062"), "0061 05AE 05C4 0300 0315 0062");
  67 ok(hexNFC("0000 0041 0000 0000"), "0000 0041 0000 0000");
  68 ok(hexNFD("0000 0041 0000 0000"), "0000 0041 0000 0000");
  69
  70 # should be unary.
  71 my $str11 = _pack_U(0x41, 0x0302, 0x0301, 0x62);
  72 my $str12 = _pack_U(0x1EA4, 0x62);
  73 ok(NFC $str11 eq $str12);
  74
  75 my $str21 = _pack_U(0xE0, 0xAC00);
  76 my $str22 = _pack_U(0x61, 0x0300, 0x1100, 0x1161);
  77 ok(NFD $str21 eq $str22);
  78