cpan/Unicode-Collate/t/loc_fil.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 => 14 };
  16
  17 use strict;
  18 use warnings;
  19 use Unicode::Collate::Locale;
  20
  21 ok(1);
  22
  23 #########################
  24
  25 my $objFil = Unicode::Collate::Locale->
  26     new(locale => 'FIL', normalization => undef);
  27
  28 ok($objFil->getlocale, 'fil');
  29
  30 $objFil->change(level => 1);
  31
  32 ok($objFil->lt("n", "n\x{303}"));
  33 ok($objFil->lt("nz","n\x{303}"));
  34 ok($objFil->lt("n\x{303}", "ng"));
  35 ok($objFil->gt("o", "ng"));
  36
  37 # 6
  38
  39 $objFil->change(level => 2);
  40
  41 ok($objFil->eq("ng", "Ng"));
  42 ok($objFil->eq("Ng", "NG"));
  43 ok($objFil->eq("n\x{303}", "N\x{303}"));
  44
  45 # 9
  46
  47 $objFil->change(level => 3);
  48
  49 ok($objFil->lt("ng", "Ng"));
  50 ok($objFil->lt("Ng", "NG"));
  51 ok($objFil->lt("n\x{303}", "N\x{303}"));
  52 ok($objFil->eq("n\x{303}", pack('U', 0xF1)));
  53 ok($objFil->eq("N\x{303}", pack('U', 0xD1)));
  54
  55 # 14