1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
# Copyright © 2016 Kimihito Matsui (松井 仁人) and Martin J. Dürst (duerst@it.aoyama.ac.jp)
require "test/unit"
# preliminary tests, using as a guard
# to test new implementation strategy
class TestCaseMappingPreliminary < Test::Unit::TestCase
# checks, including idempotence and non-modification; not always guaranteed
def check_upcase_properties(expected, start, *flags)
assert_equal expected, start.upcase(*flags)
temp = start.dup
assert_equal expected, temp.upcase!(*flags) unless expected==temp
assert_equal nil, temp.upcase!(*flags) if expected==temp
assert_equal expected, expected.upcase(*flags)
temp = expected.dup
assert_nil temp.upcase!(*flags)
end
def check_downcase_properties(expected, start, *flags)
assert_equal expected, start.downcase(*flags)
temp = start.dup
assert_equal expected, temp.downcase!(*flags) unless expected==temp
assert_equal nil, temp.downcase!(*flags) if expected==temp
assert_equal expected, expected.downcase(*flags)
temp = expected.dup
assert_nil temp.downcase!(*flags)
end
def check_capitalize_properties(expected, start, *flags)
assert_equal expected, start.capitalize(*flags)
temp = start.dup
assert_equal expected, temp.capitalize!(*flags) unless expected==temp
assert_equal nil, temp.capitalize!(*flags) if expected==temp
assert_equal expected, expected.capitalize(*flags)
temp = expected.dup
assert_nil temp.capitalize!(*flags)
end
def check_capitalize_suffixes(lower, upper)
while upper.length > 1
lower = lower[1..-1]
check_capitalize_properties upper[0]+lower, upper
upper = upper[1..-1]
end
end
# different properties; careful: roundtrip isn't always guaranteed
def check_swapcase_properties(expected, start, *flags)
assert_equal expected, start.swapcase(*flags)
temp = start
assert_equal expected, temp.swapcase!(*flags)
assert_equal start, start.swapcase(*flags).swapcase(*flags)
assert_equal expected, expected.swapcase(*flags).swapcase(*flags)
end
def test_ascii
check_downcase_properties 'yukihiro matsumoto (matz)', 'Yukihiro MATSUMOTO (MATZ)'
check_upcase_properties 'YUKIHIRO MATSUMOTO (MATZ)', 'yukihiro matsumoto (matz)'
check_capitalize_properties 'Yukihiro matsumoto (matz)', 'yukihiro MATSUMOTO (MATZ)'
check_swapcase_properties 'yUKIHIRO matsumoto (MAtz)', 'Yukihiro MATSUMOTO (maTZ)'
end
def test_invalid
assert_raise(ArgumentError, "Should not be possible to upcase invalid string.") { "\xEB".force_encoding('UTF-8').upcase }
assert_raise(ArgumentError, "Should not be possible to downcase invalid string.") { "\xEB".force_encoding('UTF-8').downcase }
assert_raise(ArgumentError, "Should not be possible to capitalize invalid string.") { "\xEB".force_encoding('UTF-8').capitalize }
assert_raise(ArgumentError, "Should not be possible to swapcase invalid string.") { "\xEB".force_encoding('UTF-8').swapcase }
end
def test_general
check_downcase_properties 'résumé dürst ĭñŧėřŋãţijňőńæłĩżàťïōņ', 'RÉSUMÉ DÜRST ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤÏŌŅ'
check_upcase_properties 'RÉSUMÉ DÜRST ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤÏŌŅ', 'résumé dürst ĭñŧėřŋãţijňőńæłĩżàťïōņ'
check_capitalize_suffixes 'résumé dürst ĭñŧėřŋãţijňőńæłĩżàťïōņ', 'RÉSUMÉ DÜRST ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤÏŌŅ'
check_swapcase_properties 'résumé DÜRST ĭñŧėřŊÃŢIJŇŐŃæłĩżàťïōņ', 'RÉSUMÉ dürst ĬÑŦĖŘŋãţijňőńÆŁĨŻÀŤÏŌŅ'
end
def test_one_way_upcase
check_upcase_properties 'ΜΜΜΜΜ', 'µµµµµ' # MICRO SIGN -> Greek Mu
check_downcase_properties 'µµµµµ', 'µµµµµ' # MICRO SIGN -> Greek Mu
check_capitalize_properties 'Μµµµµ', 'µµµµµ' # MICRO SIGN -> Greek Mu
check_capitalize_properties 'Μµµµµ', 'µµµµµ', :turkic # MICRO SIGN -> Greek Mu
check_capitalize_properties 'H̱ẖẖẖẖ', 'ẖẖẖẖẖ'
check_capitalize_properties 'Βϐϐϐϐ', 'ϐϐϐϐϐ'
check_capitalize_properties 'Θϑϑϑϑ', 'ϑϑϑϑϑ'
check_capitalize_properties 'Φϕ', 'ϕϕ'
check_capitalize_properties 'Πϖ', 'ϖϖ'
check_capitalize_properties 'Κϰ', 'ϰϰ'
check_capitalize_properties 'Ρϱϱ', 'ϱϱϱ'
check_capitalize_properties 'Εϵ', 'ϵϵ'
check_capitalize_properties 'Ιͅͅͅͅ', 'ͅͅͅͅͅ'
check_capitalize_properties 'Sſſſſ', 'ſſſſſ'
end
def test_various
check_upcase_properties 'Μ', 'µ' # MICRO SIGN -> Greek Mu
check_downcase_properties 'µµµµµ', 'µµµµµ' # MICRO SIGN
check_capitalize_properties 'Ss', 'ß'
check_upcase_properties 'SS', 'ß'
end
def test_cherokee
check_downcase_properties "\uab70\uab71\uab72\uab73\uab74\uab75\uab76\uab77\uab78\uab79", 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ'
check_upcase_properties 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ', "\uab70\uab71\uab72\uab73\uab74\uab75\uab76\uab77\uab78\uab79"
check_capitalize_suffixes "\uab70\uab71\uab72\uab73\uab74\uab75\uab76\uab77\uab78\uab79", 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ'
assert_equal 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ', 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ'.downcase(:fold)
assert_equal 'ᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩ', "\uab70\uab71\uab72\uab73\uab74\uab75\uab76\uab77\uab78\uab79".downcase(:fold)
end
def test_titlecase
check_downcase_properties 'dz dž lj nj', 'Dz Dž Lj Nj'
check_downcase_properties 'dz dž lj nj', 'DZ DŽ LJ NJ'
check_upcase_properties 'DZ DŽ LJ NJ', 'Dz Dž Lj Nj'
check_upcase_properties 'DZ DŽ LJ NJ', 'dz dž lj nj'
check_capitalize_properties 'Dz', 'DZ'
check_capitalize_properties 'Dž', 'DŽ'
check_capitalize_properties 'Lj', 'LJ'
check_capitalize_properties 'Nj', 'NJ'
check_capitalize_properties 'Dz', 'dz'
check_capitalize_properties 'Dž', 'dž'
check_capitalize_properties 'Lj', 'lj'
check_capitalize_properties 'Nj', 'nj'
end
def test_swapcase
assert_equal 'dZ', 'Dz'.swapcase
assert_equal 'dŽ', 'Dž'.swapcase
assert_equal 'lJ', 'Lj'.swapcase
assert_equal 'nJ', 'Nj'.swapcase
assert_equal 'ἀΙ', 'ᾈ'.swapcase
assert_equal 'ἣΙ', 'ᾛ'.swapcase
assert_equal 'ὧΙ', 'ᾯ'.swapcase
assert_equal 'αΙ', 'ᾼ'.swapcase
assert_equal 'ηΙ', 'ῌ'.swapcase
assert_equal 'ωΙ', 'ῼ'.swapcase
end
def test_ascii_option
check_downcase_properties 'yukihiro matsumoto (matz)', 'Yukihiro MATSUMOTO (MATZ)', :ascii
check_upcase_properties 'YUKIHIRO MATSUMOTO (MATZ)', 'yukihiro matsumoto (matz)', :ascii
check_capitalize_properties 'Yukihiro matsumoto (matz)', 'yukihiro MATSUMOTO (MATZ)', :ascii
check_swapcase_properties 'yUKIHIRO matsumoto (MAtz)', 'Yukihiro MATSUMOTO (maTZ)', :ascii
check_downcase_properties 'yukİhİro matsumoto (matz)', 'YUKİHİRO MATSUMOTO (MATZ)', :ascii
check_downcase_properties 'rÉsumÉ dÜrst ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤĬŌŅ', 'RÉSUMÉ DÜRST ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤĬŌŅ', :ascii
check_swapcase_properties 'rÉsumÉ dÜrst ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤĬŌŅ', 'RÉSUMÉ DÜRST ĬÑŦĖŘŊÃŢIJŇŐŃÆŁĨŻÀŤĬŌŅ', :ascii
end
def test_fold_option
check_downcase_properties 'ss', 'ß', :fold
check_downcase_properties 'fifl', 'fifl', :fold
check_downcase_properties 'σ', 'ς', :fold
check_downcase_properties 'μ', 'µ', :fold # MICRO SIGN -> Greek mu
end
def test_turcic
check_downcase_properties 'yukihiro matsumoto (matz)', 'Yukihiro MATSUMOTO (MATZ)', :turkic
check_upcase_properties 'YUKİHİRO MATSUMOTO (MATZ)', 'Yukihiro Matsumoto (matz)', :turkic
check_downcase_properties "yuki\u0307hi\u0307ro matsumoto (matz)", 'YUKİHİRO MATSUMOTO (MATZ)'
end
def test_greek
check_downcase_properties 'αβγδεζηθικλμνξοπρστυφχψω', 'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ'
check_upcase_properties 'ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ', 'αβγδεζηθικλμνξοπρστυφχψω'
end
# This test checks against problems when changing the order of mapping results
# in some of the entries of the unfolding table (related to
# https://bugs.ruby-lang.org/issues/12990).
def test_reorder_unfold
# GREEK SMALL LETTER IOTA
assert_equal 0, "\u03B9" =~ /\u0345/i
assert_equal 0, "\u0345" =~ /\u03B9/i
assert_equal 0, "\u03B9" =~ /\u0399/i
assert_equal 0, "\u0399" =~ /\u03B9/i
assert_equal 0, "\u03B9" =~ /\u1fbe/i
assert_equal 0, "\u1fbe" =~ /\u03B9/i
# GREEK SMALL LETTER MU
assert_equal 0, "\u03BC" =~ /\u00B5/i
assert_equal 0, "\u00B5" =~ /\u03BC/i
assert_equal 0, "\u03BC" =~ /\u039C/i
assert_equal 0, "\u039C" =~ /\u03BC/i
# CYRILLIC SMALL LETTER MONOGRAPH UK
assert_equal 0, "\uA64B" =~ /\u1c88/i
assert_equal 0, "\u1c88" =~ /\uA64B/i
assert_equal 0, "\uA64B" =~ /\ua64A/i
assert_equal 0, "\ua64A" =~ /\uA64B/i
end
def no_longer_a_test_buffer_allocations
assert_equal 'TURKISH*ı'*10, ('I'*10).downcase(:turkic)
assert_equal 'TURKISH*ı'*100, ('I'*100).downcase(:turkic)
assert_equal 'TURKISH*ı'*1_000, ('I'*1_000).downcase(:turkic)
assert_equal 'TURKISH*ı'*10_000, ('I'*10_000).downcase(:turkic)
assert_equal 'TURKISH*ı'*100_000, ('I'*100_000).downcase(:turkic)
assert_equal 'TURKISH*ı'*1_000_000, ('I'*1_000_000).downcase(:turkic)
end
end
|
