cpan/Unicode-Collate/t/loc_hy.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 => 13 };
  16
  17 use strict;
  18 use warnings;
  19 use Unicode::Collate::Locale;
  20
  21 ok(1);
  22
  23 #########################
  24
  25 my $objHy = Unicode::Collate::Locale->
  26     new(locale => 'HY', normalization => undef);
  27
  28 ok($objHy->getlocale, 'hy');
  29
  30 $objHy->change(level => 1);
  31
  32 ok($objHy->lt("\x{584}", "\x{587}"));
  33 ok($objHy->gt("\x{585}", "\x{587}"));
  34
  35 ok($objHy->lt("\x{584}\x{4E00}",  "\x{587}"));
  36 ok($objHy->lt("\x{584}\x{20000}", "\x{587}"));
  37 ok($objHy->lt("\x{584}\x{10FFFD}","\x{587}"));
  38
  39 # 7
  40
  41 $objHy->change(level => 2);
  42
  43 ok($objHy->eq("\x{587}", "\x{535}\x{582}"));
  44
  45 $objHy->change(level => 3);
  46
  47 ok($objHy->lt("\x{587}", "\x{535}\x{582}"));
  48
  49 $objHy->change(upper_before_lower => 1);
  50
  51 ok($objHy->gt("\x{587}", "\x{535}\x{582}"));
  52
  53 # 10
  54
  55 $objHy->change(UCA_Version => 8);
  56
  57 ok($objHy->lt("\x{584}\x{4E00}",  "\x{587}"));
  58 ok($objHy->lt("\x{584}\x{20000}", "\x{587}"));
  59 ok($objHy->lt("\x{584}\x{10FFFD}","\x{587}"));
  60
  61 # 13