cpan/Unicode-Collate/t/loc_fr.t

   1 #!perl
   2 use strict;
   3 use warnings;
   4 use Unicode::Collate::Locale;
   5
   6 use Test;
   7 plan tests => 26;
   8
   9 my $ae = pack 'U', 0xE6;
  10 my $AE = pack 'U', 0xC6;
  11
  12 my $objFr = Unicode::Collate::Locale->
  13     new(locale => 'FR', normalization => undef);
  14
  15 ok(1);
  16 ok($objFr->getlocale, 'fr');
  17
  18 $objFr->change(level => 1);
  19
  20 ok($objFr->eq($ae, "ae"));
  21 ok($objFr->eq($AE, "AE"));
  22 ok($objFr->eq("\x{1FD}", $ae));
  23 ok($objFr->eq("\x{1FC}", $AE));
  24 ok($objFr->eq("\x{1E3}", $ae));
  25 ok($objFr->eq("\x{1E2}", $AE));
  26
  27 # 8
  28
  29 $objFr->change(level => 2);
  30
  31 ok($objFr->gt($ae, "ae"));
  32 ok($objFr->gt($AE, "AE"));
  33 ok($objFr->gt("\x{1FD}", $ae));
  34 ok($objFr->gt("\x{1FC}", $AE));
  35 ok($objFr->gt("\x{1E3}", $ae));
  36 ok($objFr->gt("\x{1E2}", $AE));
  37
  38 ok($objFr->eq($ae, $AE));
  39 ok($objFr->eq($AE, "\x{1D2D}"));
  40 ok($objFr->eq("$ae\x{304}", "$AE\x{304}"));
  41 ok($objFr->eq("$ae\x{301}", "$AE\x{301}"));
  42
  43 # 18
  44
  45 $objFr->change(level => 3);
  46
  47 ok($objFr->lt($ae, $AE));
  48 ok($objFr->lt($AE, "\x{1D2D}"));
  49 ok($objFr->lt("$ae\x{304}", "$AE\x{304}"));
  50 ok($objFr->lt("$ae\x{301}", "$AE\x{301}"));
  51
  52 ok($objFr->eq("\x{1FD}", "$ae\x{301}"));
  53 ok($objFr->eq("\x{1FC}", "$AE\x{301}"));
  54 ok($objFr->eq("\x{1E3}", "$ae\x{304}"));
  55 ok($objFr->eq("\x{1E2}", "$AE\x{304}"));
  56
  57 # 26