cpan/Unicode-Collate/t/loc_pl.t

   1
   2 BEGIN {
   3     unless ("A" eq pack('U', 0x41)) {
   4         print "1..0 # Unicode::Collate " .
   5             "cannot stringify a Unicode code point\n";
   6         exit 0;
   7     }
   8     if ($ENV{PERL_CORE}) {
   9         chdir('t') if -d 't';
  10         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
  11     }
  12 }
  13
  14 use Test;
  15 BEGIN { plan tests => 65 };
  16
  17 use strict;
  18 use warnings;
  19 use Unicode::Collate::Locale;
  20
  21 ok(1);
  22
  23 #########################
  24
  25 my $objPl = Unicode::Collate::Locale->
  26     new(locale => 'PL', normalization => undef);
  27
  28 ok($objPl->getlocale, 'pl');
  29
  30 $objPl->change(level => 1);
  31
  32 ok($objPl->lt("a", "a\x{328}"));
  33 ok($objPl->gt("b", "a\x{328}"));
  34 ok($objPl->lt("c", "c\x{301}"));
  35 ok($objPl->gt("d", "c\x{301}"));
  36 ok($objPl->lt("e", "e\x{328}"));
  37 ok($objPl->gt("f", "e\x{328}"));
  38 ok($objPl->lt("l", "l\x{335}"));
  39 ok($objPl->gt("m", "l\x{335}"));
  40 ok($objPl->lt("n", "n\x{301}"));
  41 ok($objPl->gt("o", "n\x{301}"));
  42 ok($objPl->lt("o", "o\x{301}"));
  43 ok($objPl->gt("p", "o\x{301}"));
  44 ok($objPl->lt("s", "s\x{301}"));
  45 ok($objPl->gt("t", "s\x{301}"));
  46 ok($objPl->lt("z", "z\x{301}"));
  47 ok($objPl->lt("z\x{301}", "z\x{307}"));
  48 ok($objPl->lt("z\x{307}", "\x{292}")); # U+0292 EZH
  49
  50 # 19
  51
  52 $objPl->change(level => 2);
  53
  54 ok($objPl->eq("a\x{328}", "A\x{328}"));
  55 ok($objPl->eq("c\x{301}", "C\x{301}"));
  56 ok($objPl->eq("e\x{328}", "E\x{328}"));
  57 ok($objPl->eq("l\x{335}", "L\x{335}"));
  58 ok($objPl->eq("n\x{301}", "N\x{301}"));
  59 ok($objPl->eq("o\x{301}", "O\x{301}"));
  60 ok($objPl->eq("s\x{301}", "S\x{301}"));
  61 ok($objPl->eq("z\x{301}", "Z\x{301}"));
  62 ok($objPl->eq("z\x{307}", "Z\x{307}"));
  63
  64 # 28
  65
  66 $objPl->change(level => 3);
  67
  68 ok($objPl->lt("a\x{328}", "A\x{328}"));
  69 ok($objPl->lt("c\x{301}", "C\x{301}"));
  70 ok($objPl->lt("e\x{328}", "E\x{328}"));
  71 ok($objPl->lt("l\x{335}", "L\x{335}"));
  72 ok($objPl->lt("n\x{301}", "N\x{301}"));
  73 ok($objPl->lt("o\x{301}", "O\x{301}"));
  74 ok($objPl->lt("s\x{301}", "S\x{301}"));
  75 ok($objPl->lt("z\x{301}", "Z\x{301}"));
  76 ok($objPl->lt("z\x{307}", "Z\x{307}"));
  77
  78 # 37
  79
  80 ok($objPl->eq("a\x{328}", "\x{105}"));
  81 ok($objPl->eq("A\x{328}", "\x{104}"));
  82 ok($objPl->eq("c\x{301}", "\x{107}"));
  83 ok($objPl->eq("c\x{341}", "\x{107}"));
  84 ok($objPl->eq("C\x{301}", "\x{106}"));
  85 ok($objPl->eq("C\x{341}", "\x{106}"));
  86 ok($objPl->eq("e\x{328}", "\x{119}"));
  87 ok($objPl->eq("E\x{328}", "\x{118}"));
  88 ok($objPl->eq("l\x{335}", "\x{142}"));
  89 ok($objPl->eq("L\x{335}", "\x{141}"));
  90 ok($objPl->eq("n\x{301}", "\x{144}"));
  91 ok($objPl->eq("n\x{341}", "\x{144}"));
  92 ok($objPl->eq("N\x{301}", "\x{143}"));
  93 ok($objPl->eq("N\x{341}", "\x{143}"));
  94 ok($objPl->eq("o\x{301}", pack('U', 0xF3)));
  95 ok($objPl->eq("o\x{341}", pack('U', 0xF3)));
  96 ok($objPl->eq("O\x{301}", pack('U', 0xD3)));
  97 ok($objPl->eq("O\x{341}", pack('U', 0xD3)));
  98 ok($objPl->eq("s\x{301}", "\x{15B}"));
  99 ok($objPl->eq("s\x{341}", "\x{15B}"));
 100 ok($objPl->eq("S\x{301}", "\x{15A}"));
 101 ok($objPl->eq("S\x{341}", "\x{15A}"));
 102 ok($objPl->eq("z\x{301}", "\x{17A}"));
 103 ok($objPl->eq("z\x{341}", "\x{17A}"));
 104 ok($objPl->eq("Z\x{301}", "\x{179}"));
 105 ok($objPl->eq("Z\x{341}", "\x{179}"));
 106 ok($objPl->eq("z\x{307}", "\x{17C}"));
 107 ok($objPl->eq("Z\x{307}", "\x{17B}"));
 108
 109 # 65