← 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_sw.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_sw.t
 
1
#!perl
 
2
use strict;
 
3
use warnings;
 
4
use Unicode::Collate::Locale;
 
5
 
 
6
use Test;
 
7
plan tests => 72;
 
8
 
 
9
my $objSw = Unicode::Collate::Locale->
 
10
    new(locale => 'SW', normalization => undef);
 
11
 
 
12
ok(1);
 
13
ok($objSw->getlocale, 'sw');
 
14
 
 
15
$objSw->change(level => 1);
 
16
 
 
17
ok($objSw->lt("b", "ch"));
 
18
ok($objSw->lt("bz","ch"));
 
19
ok($objSw->gt("c", "ch"));
 
20
ok($objSw->lt("d", "dh"));
 
21
ok($objSw->lt("dz","dh"));
 
22
ok($objSw->gt("e", "dh"));
 
23
ok($objSw->lt("g", "gh"));
 
24
ok($objSw->lt("gz","gh"));
 
25
ok($objSw->gt("h", "gh"));
 
26
ok($objSw->lt("k", "kh"));
 
27
ok($objSw->lt("kz","kh"));
 
28
ok($objSw->gt("l", "kh"));
 
29
ok($objSw->lt("n", "ng'"));
 
30
ok($objSw->lt("nz","ng'"));
 
31
ok($objSw->lt("ng'","ny"));
 
32
ok($objSw->gt("o", "ny"));
 
33
ok($objSw->lt("s", "sh"));
 
34
ok($objSw->lt("sz","sh"));
 
35
ok($objSw->gt("t", "sh"));
 
36
ok($objSw->lt("t", "th"));
 
37
ok($objSw->lt("tz","th"));
 
38
ok($objSw->gt("u", "th"));
 
39
 
 
40
# 24
 
41
 
 
42
$objSw->change(level => 2);
 
43
 
 
44
ok($objSw->eq("ch", "Ch"));
 
45
ok($objSw->eq("Ch", "CH"));
 
46
ok($objSw->eq("dh", "Dh"));
 
47
ok($objSw->eq("Dh", "DH"));
 
48
ok($objSw->eq("gh", "Gh"));
 
49
ok($objSw->eq("Gh", "GH"));
 
50
ok($objSw->eq("kh", "Kh"));
 
51
ok($objSw->eq("Kh", "KH"));
 
52
ok($objSw->eq("ng'","Ng'"));
 
53
ok($objSw->eq("Ng'","NG'"));
 
54
ok($objSw->eq("ny", "Ny"));
 
55
ok($objSw->eq("Ny", "NY"));
 
56
ok($objSw->eq("sh", "Sh"));
 
57
ok($objSw->eq("Sh", "SH"));
 
58
ok($objSw->eq("th", "Th"));
 
59
ok($objSw->eq("Th", "TH"));
 
60
 
 
61
# 40
 
62
 
 
63
$objSw->change(level => 3);
 
64
 
 
65
ok($objSw->lt("ch", "Ch"));
 
66
ok($objSw->lt("Ch", "CH"));
 
67
ok($objSw->lt("dh", "Dh"));
 
68
ok($objSw->lt("Dh", "DH"));
 
69
ok($objSw->lt("gh", "Gh"));
 
70
ok($objSw->lt("Gh", "GH"));
 
71
ok($objSw->lt("kh", "Kh"));
 
72
ok($objSw->lt("Kh", "KH"));
 
73
ok($objSw->lt("ng'","Ng'"));
 
74
ok($objSw->lt("Ng'","NG'"));
 
75
ok($objSw->lt("ny", "Ny"));
 
76
ok($objSw->lt("Ny", "NY"));
 
77
ok($objSw->lt("sh", "Sh"));
 
78
ok($objSw->lt("Sh", "SH"));
 
79
ok($objSw->lt("th", "Th"));
 
80
ok($objSw->lt("Th", "TH"));
 
81
 
 
82
# 56
 
83
 
 
84
$objSw->change(upper_before_lower => 1);
 
85
 
 
86
ok($objSw->gt("ch", "Ch"));
 
87
ok($objSw->gt("Ch", "CH"));
 
88
ok($objSw->gt("dh", "Dh"));
 
89
ok($objSw->gt("Dh", "DH"));
 
90
ok($objSw->gt("gh", "Gh"));
 
91
ok($objSw->gt("Gh", "GH"));
 
92
ok($objSw->gt("kh", "Kh"));
 
93
ok($objSw->gt("Kh", "KH"));
 
94
ok($objSw->gt("ng'","Ng'"));
 
95
ok($objSw->gt("Ng'","NG'"));
 
96
ok($objSw->gt("ny", "Ny"));
 
97
ok($objSw->gt("Ny", "NY"));
 
98
ok($objSw->gt("sh", "Sh"));
 
99
ok($objSw->gt("Sh", "SH"));
 
100
ok($objSw->gt("th", "Th"));
 
101
ok($objSw->gt("Th", "TH"));
 
102
 
 
103
# 72