← Back to branch summary

~ubuntu-branches/ubuntu/saucy/libunicode-collate-perl/saucy-proposed

« back to all changes in this revision

Viewing changes to t/loc_ha.t

  • Committer: Bazaar Package Importer
  • Author(s): Danai SAE-HAN (韓達耐)
  • Date: 2010-11-04 21:58:23 UTC
  • Revision ID: james.westby@ubuntu.com-20101104215823-wr6wrwudp0em3fm4
Tags: upstream-0.66
Import upstream version 0.66

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/loc_ha.t
 
1
#!perl
 
2
use strict;
 
3
use warnings;
 
4
use Unicode::Collate::Locale;
 
5
 
 
6
use Test;
 
7
plan tests => 34;
 
8
 
 
9
my $objHa = Unicode::Collate::Locale->
 
10
    new(locale => 'HA', normalization => undef);
 
11
 
 
12
ok(1);
 
13
ok($objHa->getlocale, 'ha');
 
14
 
 
15
$objHa->change(level => 1);
 
16
 
 
17
ok($objHa->lt("b", "\x{253}"));
 
18
ok($objHa->gt("c", "\x{253}"));
 
19
ok($objHa->lt("d", "\x{257}"));
 
20
ok($objHa->gt("e", "\x{257}"));
 
21
ok($objHa->lt("k", "\x{199}"));
 
22
ok($objHa->gt("l", "\x{199}"));
 
23
ok($objHa->lt("s", "sh"));
 
24
ok($objHa->gt("t", "sh"));
 
25
ok($objHa->lt("t", "ts"));
 
26
ok($objHa->gt("u", "ts"));
 
27
ok($objHa->lt("y", "\x{1B4}"));
 
28
ok($objHa->gt("z", "\x{1B4}"));
 
29
 
 
30
# 14
 
31
 
 
32
$objHa->change(level => 2);
 
33
 
 
34
ok($objHa->eq("\x{253}", "\x{181}"));
 
35
ok($objHa->eq("\x{257}", "\x{18A}"));
 
36
ok($objHa->eq("\x{199}", "\x{198}"));
 
37
ok($objHa->eq("sh", "Sh"));
 
38
ok($objHa->eq("Sh", "SH"));
 
39
ok($objHa->eq("ts", "Ts"));
 
40
ok($objHa->eq("Ts", "TS"));
 
41
ok($objHa->eq("'y", "'Y"));
 
42
ok($objHa->eq("\x{1B4}", "\x{1B3}"));
 
43
 
 
44
# 23
 
45
 
 
46
$objHa->change(level => 3);
 
47
 
 
48
ok($objHa->lt("\x{253}", "\x{181}"));
 
49
ok($objHa->lt("\x{257}", "\x{18A}"));
 
50
ok($objHa->lt("\x{199}", "\x{198}"));
 
51
ok($objHa->lt("sh", "Sh"));
 
52
ok($objHa->lt("Sh", "SH"));
 
53
ok($objHa->lt("ts", "Ts"));
 
54
ok($objHa->lt("Ts", "TS"));
 
55
ok($objHa->lt("'y", "'Y"));
 
56
ok($objHa->lt("\x{1B4}", "\x{1B3}"));
 
57
ok($objHa->eq("'y", "\x{1B4}"));
 
58
ok($objHa->eq("'Y", "\x{1B3}"));
 
59
 
 
60
# 34