]> git.saurik.com Git - apple/icu.git/blame - icuSources/test/intltest/ucaconf.cpp
ICU-551.24.tar.gz
[apple/icu.git] / icuSources / test / intltest / ucaconf.cpp
CommitLineData
b75a7d8f 1/********************************************************************
51004dcb 2 * COPYRIGHT:
57a6839d 3 * Copyright (c) 2002-2014, International Business Machines Corporation and
b75a7d8f
A
4 * others. All Rights Reserved.
5 ********************************************************************/
6
7/**
8 * UCAConformanceTest performs conformance tests defined in the data
9 * files. ICU ships with stub data files, as the whole test are too
10 * long. To do the whole test, download the test files.
11 */
12
13#include "unicode/utypes.h"
14
15#if !UCONFIG_NO_COLLATION
16
17#include "ucaconf.h"
57a6839d
A
18#include "unicode/sortkey.h"
19#include "unicode/tblcoll.h"
374ca955 20#include "unicode/ustring.h"
51004dcb 21#include "cmemory.h"
374ca955
A
22#include "cstring.h"
23#include "uparse.h"
24
b75a7d8f
A
25UCAConformanceTest::UCAConformanceTest() :
26rbUCA(NULL),
27testFile(NULL),
28status(U_ZERO_ERROR)
29{
51004dcb 30 UCA = (RuleBasedCollator *)Collator::createInstance(Locale::getRoot(), status);
46f4442e 31 if(U_FAILURE(status)) {
51004dcb 32 dataerrln("Error - UCAConformanceTest: Unable to open UCA collator! - %s", u_errorName(status));
46f4442e
A
33 }
34
35 const char *srcDir = IntlTest::getSourceTestData(status);
36 if (U_FAILURE(status)) {
729e4ab9 37 dataerrln("Could not open test data %s", u_errorName(status));
46f4442e
A
38 return;
39 }
40 uprv_strcpy(testDataPath, srcDir);
41 uprv_strcat(testDataPath, "CollationTest_");
51004dcb
A
42
43 UVersionInfo uniVersion;
44 static const UVersionInfo v62 = { 6, 2, 0, 0 };
45 u_getUnicodeVersion(uniVersion);
46 isAtLeastUCA62 = uprv_memcmp(uniVersion, v62, 4) >= 0;
b75a7d8f
A
47}
48
49UCAConformanceTest::~UCAConformanceTest()
50{
51004dcb
A
51 delete UCA;
52 delete rbUCA;
53 if (testFile) {
46f4442e
A
54 fclose(testFile);
55 }
b75a7d8f
A
56}
57
58void UCAConformanceTest::runIndexedTest( int32_t index, UBool exec, const char* &name, char* /*par */)
59{
51004dcb
A
60 if(exec) {
61 logln("TestSuite UCAConformanceTest: ");
b75a7d8f 62 }
51004dcb
A
63 TESTCASE_AUTO_BEGIN;
64 TESTCASE_AUTO(TestTableNonIgnorable);
65 TESTCASE_AUTO(TestTableShifted);
66 TESTCASE_AUTO(TestRulesNonIgnorable);
67 TESTCASE_AUTO(TestRulesShifted);
68 TESTCASE_AUTO_END;
b75a7d8f
A
69}
70
b75a7d8f
A
71void UCAConformanceTest::initRbUCA()
72{
46f4442e 73 if(!rbUCA) {
51004dcb 74 if (UCA) {
57a6839d 75 UnicodeString ucarules;
51004dcb
A
76 UCA->getRules(UCOL_FULL_RULES, ucarules);
77 rbUCA = new RuleBasedCollator(ucarules, status);
78 if (U_FAILURE(status)) {
79 dataerrln("Failure creating UCA rule-based collator: %s", u_errorName(status));
80 return;
81 }
82 } else {
83 dataerrln("Failure creating UCA rule-based collator: %s", u_errorName(status));
46f4442e
A
84 return;
85 }
b75a7d8f 86 }
b75a7d8f
A
87}
88
51004dcb 89void UCAConformanceTest::setCollNonIgnorable(Collator *coll)
b75a7d8f 90{
51004dcb
A
91 coll->setAttribute(UCOL_NORMALIZATION_MODE, UCOL_ON, status);
92 coll->setAttribute(UCOL_CASE_FIRST, UCOL_OFF, status);
93 coll->setAttribute(UCOL_CASE_LEVEL, UCOL_OFF, status);
94 coll->setAttribute(UCOL_STRENGTH, isAtLeastUCA62 ? UCOL_IDENTICAL : UCOL_TERTIARY, status);
95 coll->setAttribute(UCOL_ALTERNATE_HANDLING, UCOL_NON_IGNORABLE, status);
b75a7d8f
A
96}
97
51004dcb 98void UCAConformanceTest::setCollShifted(Collator *coll)
b75a7d8f 99{
51004dcb
A
100 coll->setAttribute(UCOL_NORMALIZATION_MODE, UCOL_ON, status);
101 coll->setAttribute(UCOL_CASE_FIRST, UCOL_OFF, status);
102 coll->setAttribute(UCOL_CASE_LEVEL, UCOL_OFF, status);
103 coll->setAttribute(UCOL_STRENGTH, isAtLeastUCA62 ? UCOL_IDENTICAL : UCOL_QUATERNARY, status);
104 coll->setAttribute(UCOL_ALTERNATE_HANDLING, UCOL_SHIFTED, status);
b75a7d8f
A
105}
106
107void UCAConformanceTest::openTestFile(const char *type)
108{
46f4442e
A
109 const char *ext = ".txt";
110 if(testFile) {
111 fclose(testFile);
112 }
113 char buffer[1024];
114 uprv_strcpy(buffer, testDataPath);
115 uprv_strcat(buffer, type);
116 int32_t bufLen = (int32_t)uprv_strlen(buffer);
117
118 // we try to open 3 files:
119 // path/CollationTest_type.txt
120 // path/CollationTest_type_SHORT.txt
121 // path/CollationTest_type_STUB.txt
122 // we are going to test with the first one that we manage to open.
123
124 uprv_strcpy(buffer+bufLen, ext);
125
b75a7d8f
A
126 testFile = fopen(buffer, "rb");
127
128 if(testFile == 0) {
46f4442e
A
129 uprv_strcpy(buffer+bufLen, "_SHORT");
130 uprv_strcat(buffer, ext);
131 testFile = fopen(buffer, "rb");
132
133 if(testFile == 0) {
134 uprv_strcpy(buffer+bufLen, "_STUB");
135 uprv_strcat(buffer, ext);
136 testFile = fopen(buffer, "rb");
137
138 if (testFile == 0) {
139 *(buffer+bufLen) = 0;
729e4ab9 140 dataerrln("Could not open any of the conformance test files, tried opening base %s\n", buffer);
46f4442e
A
141 return;
142 } else {
143 infoln(
144 "INFO: Working with the stub file.\n"
145 "If you need the full conformance test, please\n"
146 "download the appropriate data files from:\n"
57a6839d 147 "http://unicode.org/cldr/trac/browser/trunk/common/uca");
46f4442e
A
148 }
149 }
b75a7d8f 150 }
b75a7d8f
A
151}
152
51004dcb
A
153static const uint32_t IS_SHIFTED = 1;
154static const uint32_t FROM_RULES = 2;
155
156static UBool
157skipLineBecauseOfBug(const UChar *s, int32_t length, uint32_t flags) {
57a6839d
A
158 // Add temporary exceptions here if there are ICU bugs, until we can fix them.
159 // For examples see the ICU 52 version of this file.
160 (void)s;
161 (void)length;
162 (void)flags;
51004dcb
A
163 return FALSE;
164}
165
166static UCollationResult
167normalizeResult(int32_t result) {
168 return result<0 ? UCOL_LESS : result==0 ? UCOL_EQUAL : UCOL_GREATER;
169}
170
171void UCAConformanceTest::testConformance(const Collator *coll)
b75a7d8f 172{
46f4442e
A
173 if(testFile == 0) {
174 return;
b75a7d8f 175 }
51004dcb
A
176 uint32_t skipFlags = 0;
177 if(coll->getAttribute(UCOL_ALTERNATE_HANDLING, status) == UCOL_SHIFTED) {
178 skipFlags |= IS_SHIFTED;
179 }
180 if(coll == rbUCA) {
181 skipFlags |= FROM_RULES;
182 }
b75a7d8f 183
57a6839d
A
184 logln("-prop:ucaconfnosortkeys=1 turns off getSortKey() in UCAConformanceTest");
185 UBool withSortKeys = getProperty("ucaconfnosortkeys") == NULL;
186
46f4442e 187 int32_t line = 0;
b75a7d8f 188
46f4442e 189 UChar b1[1024], b2[1024];
46f4442e 190 UChar *buffer = b1, *oldB = NULL;
729e4ab9
A
191
192 char lineB1[1024], lineB2[1024];
193 char *lineB = lineB1, *oldLineB = lineB2;
194
46f4442e
A
195 uint8_t sk1[1024], sk2[1024];
196 uint8_t *oldSk = NULL, *newSk = sk1;
729e4ab9 197
51004dcb
A
198 int32_t oldLen = 0;
199 int32_t oldBlen = 0;
46f4442e 200 uint32_t first = 0;
b75a7d8f 201
46f4442e 202 while (fgets(lineB, 1024, testFile) != NULL) {
729e4ab9
A
203 // remove trailing whitespace
204 u_rtrim(lineB);
b75a7d8f 205
46f4442e 206 line++;
51004dcb 207 if(*lineB == 0 || lineB[0] == '#') {
46f4442e
A
208 continue;
209 }
51004dcb 210 int32_t buflen = u_parseString(lineB, buffer, 1024, &first, &status);
729e4ab9
A
211 if(U_FAILURE(status)) {
212 errln("Error parsing line %ld (%s): %s\n",
213 (long)line, u_errorName(status), lineB);
214 status = U_ZERO_ERROR;
215 }
51004dcb 216 buffer[buflen] = 0;
46f4442e 217
51004dcb
A
218 if(skipLineBecauseOfBug(buffer, buflen, skipFlags)) {
219 logln("Skipping line %i because of a known bug", line);
220 continue;
221 }
46f4442e 222
57a6839d 223 int32_t resLen = withSortKeys ? coll->getSortKey(buffer, buflen, newSk, 1024) : 0;
46f4442e
A
224
225 if(oldSk != NULL) {
57a6839d
A
226 UBool ok=TRUE;
227 int32_t skres = withSortKeys ? strcmp((char *)oldSk, (char *)newSk) : 0;
51004dcb
A
228 int32_t cmpres = coll->compare(oldB, oldBlen, buffer, buflen, status);
229 int32_t cmpres2 = coll->compare(buffer, buflen, oldB, oldBlen, status);
46f4442e
A
230
231 if(cmpres != -cmpres2) {
57a6839d
A
232 errln("Compare result not symmetrical on line %i: "
233 "previous vs. current (%d) / current vs. previous (%d)",
234 line, cmpres, cmpres2);
235 ok = FALSE;
46f4442e
A
236 }
237
57a6839d
A
238 // TODO: Compare with normalization turned off if the input passes the FCD test.
239
240 if(withSortKeys && cmpres != normalizeResult(skres)) {
51004dcb
A
241 errln("Difference between coll->compare (%d) and sortkey compare (%d) on line %i",
242 cmpres, skres, line);
57a6839d 243 ok = FALSE;
46f4442e
A
244 }
245
51004dcb
A
246 int32_t res = cmpres;
247 if(res == 0 && !isAtLeastUCA62) {
248 // Up to UCA 6.1, the collation test files use a custom tie-breaker,
249 // comparing the raw input strings.
250 res = u_strcmpCodePointOrder(oldB, buffer);
251 // Starting with UCA 6.2, the collation test files use the standard UCA tie-breaker,
252 // comparing the NFD versions of the input strings,
253 // which we do via setting strength=identical.
254 }
46f4442e
A
255 if(res > 0) {
256 errln("Line %i is not greater or equal than previous line", line);
57a6839d
A
257 ok = FALSE;
258 }
259
260 if(!ok) {
729e4ab9
A
261 errln(" Previous data line %s", oldLineB);
262 errln(" Current data line %s", lineB);
57a6839d
A
263 if(withSortKeys) {
264 UnicodeString oldS, newS;
265 prettify(CollationKey(oldSk, oldLen), oldS);
266 prettify(CollationKey(newSk, resLen), newS);
267 errln(" Previous key: "+oldS);
268 errln(" Current key: "+newS);
269 }
46f4442e 270 }
b75a7d8f 271 }
b75a7d8f 272
729e4ab9
A
273 // swap buffers
274 oldLineB = lineB;
275 oldB = buffer;
46f4442e 276 oldSk = newSk;
729e4ab9
A
277 if(lineB == lineB1) {
278 lineB = lineB2;
279 buffer = b2;
280 newSk = sk2;
281 } else {
282 lineB = lineB1;
283 buffer = b1;
284 newSk = sk1;
285 }
46f4442e 286 oldLen = resLen;
46f4442e 287 oldBlen = buflen;
46f4442e 288 }
b75a7d8f
A
289}
290
291void UCAConformanceTest::TestTableNonIgnorable(/* par */) {
51004dcb
A
292 if (U_FAILURE(status)) {
293 dataerrln("Error running UCA Conformance Test: %s", u_errorName(status));
294 return;
295 }
46f4442e
A
296 setCollNonIgnorable(UCA);
297 openTestFile("NON_IGNORABLE");
298 testConformance(UCA);
b75a7d8f
A
299}
300
301void UCAConformanceTest::TestTableShifted(/* par */) {
51004dcb
A
302 if (U_FAILURE(status)) {
303 dataerrln("Error running UCA Conformance Test: %s", u_errorName(status));
304 return;
305 }
46f4442e
A
306 setCollShifted(UCA);
307 openTestFile("SHIFTED");
308 testConformance(UCA);
b75a7d8f
A
309}
310
311void UCAConformanceTest::TestRulesNonIgnorable(/* par */) {
57a6839d 312 if(logKnownIssue("cldrbug:6745", "UCARules.txt has problems")) { return; }
46f4442e 313 initRbUCA();
b75a7d8f 314
46f4442e
A
315 if(U_SUCCESS(status)) {
316 setCollNonIgnorable(rbUCA);
317 openTestFile("NON_IGNORABLE");
318 testConformance(rbUCA);
319 }
b75a7d8f
A
320}
321
322void UCAConformanceTest::TestRulesShifted(/* par */) {
46f4442e
A
323 logln("This test is currently disabled, as it is impossible to "
324 "wholly represent fractional UCA using tailoring rules.");
325 return;
b75a7d8f 326
46f4442e 327 initRbUCA();
b75a7d8f 328
46f4442e
A
329 if(U_SUCCESS(status)) {
330 setCollShifted(rbUCA);
331 openTestFile("SHIFTED");
332 testConformance(rbUCA);
333 }
b75a7d8f
A
334}
335
336#endif /* #if !UCONFIG_NO_COLLATION */