ext/Unicode/Normalize/t/norm.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 => 18 };
  22 use Unicode::Normalize qw(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(normalize('C', ""), "");
  42 ok(normalize('D', ""), "");
  43
  44 sub hexNFC {
  45   join " ", map sprintf("%04X", $_),
  46   _unpack_U normalize 'C', _pack_U map hex, split ' ', shift;
  47 }
  48 sub hexNFD {
  49   join " ", map sprintf("%04X", $_),
  50   _unpack_U normalize 'D', _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