/********************************************************************
* COPYRIGHT:
* Copyright (c) 2002-2010, International Business Machines Corporation and
* others. All Rights Reserved.
********************************************************************/
/**
* UCAConformanceTest performs conformance tests defined in the data
* files. ICU ships with stub data files, as the whole test are too
* long. To do the whole test, download the test files.
*/
#include "unicode/utypes.h"
#if !UCONFIG_NO_COLLATION
#include "ucaconf.h"
#include "unicode/ustring.h"
#include "cstring.h"
#include "uparse.h"
UCAConformanceTest::UCAConformanceTest() :
rbUCA(NULL),
testFile(NULL),
status(U_ZERO_ERROR)
{
UCA = ucol_open("root", &status);
if(U_FAILURE(status)) {
errln("ERROR - UCAConformanceTest: Unable to open UCA collator!");
}
const char *srcDir = IntlTest::getSourceTestData(status);
if (U_FAILURE(status)) {
dataerrln("Could not open test data %s", u_errorName(status));
return;
}
uprv_strcpy(testDataPath, srcDir);
uprv_strcat(testDataPath, "CollationTest_");
}
UCAConformanceTest::~UCAConformanceTest()
{
ucol_close(UCA);
if(rbUCA) {
ucol_close(rbUCA);
}
if(testFile) {
fclose(testFile);
}
}
void UCAConformanceTest::runIndexedTest( int32_t index, UBool exec, const char* &name, char* /*par */)
{
if (exec) logln("TestSuite UCAConformanceTest: ");
if(U_SUCCESS(status)) {
switch (index) {
case 0: name = "TestTableNonIgnorable"; if (exec) TestTableNonIgnorable(/* par */); break;
case 1: name = "TestTableShifted"; if (exec) TestTableShifted(/* par */); break;
case 2: name = "TestRulesNonIgnorable"; if (exec) TestRulesNonIgnorable(/* par */); break;
case 3: name = "TestRulesShifted"; if (exec) TestRulesShifted(/* par */); break;
default: name = ""; break;
}
} else {
name = "";
}
}
void UCAConformanceTest::initRbUCA()
{
if(!rbUCA) {
UParseError parseError;
UChar *ucarules;
// preflight rules
int32_t size = ucol_getRulesEx(UCA, UCOL_FULL_RULES, NULL, 0);
ucarules = (UChar *)malloc(size * sizeof(UChar));
size = ucol_getRulesEx(UCA, UCOL_FULL_RULES, ucarules, size);
rbUCA = ucol_openRules(ucarules, size, UCOL_DEFAULT, UCOL_TERTIARY,
&parseError, &status);
free(ucarules);
if (U_FAILURE(status)) {
errln("Failure creating UCA rule-based collator: %s", u_errorName(status));
return;
}
}
}
void UCAConformanceTest::setCollNonIgnorable(UCollator *coll)
{
ucol_setAttribute(coll, UCOL_NORMALIZATION_MODE, UCOL_ON, &status);
ucol_setAttribute(coll, UCOL_CASE_FIRST, UCOL_OFF, &status);
ucol_setAttribute(coll, UCOL_CASE_LEVEL, UCOL_OFF, &status);
ucol_setAttribute(coll, UCOL_STRENGTH, UCOL_TERTIARY, &status);
ucol_setAttribute(coll, UCOL_ALTERNATE_HANDLING, UCOL_NON_IGNORABLE, &status);
}
void UCAConformanceTest::setCollShifted(UCollator *coll)
{
ucol_setAttribute(coll, UCOL_NORMALIZATION_MODE, UCOL_ON, &status);
ucol_setAttribute(coll, UCOL_CASE_FIRST, UCOL_OFF, &status);
ucol_setAttribute(coll, UCOL_CASE_LEVEL, UCOL_OFF, &status);
ucol_setAttribute(coll, UCOL_STRENGTH, UCOL_QUATERNARY, &status);
ucol_setAttribute(coll, UCOL_ALTERNATE_HANDLING, UCOL_SHIFTED, &status);
}
void UCAConformanceTest::openTestFile(const char *type)
{
const char *ext = ".txt";
if(testFile) {
fclose(testFile);
}
char buffer[1024];
uprv_strcpy(buffer, testDataPath);
uprv_strcat(buffer, type);
int32_t bufLen = (int32_t)uprv_strlen(buffer);
// we try to open 3 files:
// path/CollationTest_type.txt
// path/CollationTest_type_SHORT.txt
// path/CollationTest_type_STUB.txt
// we are going to test with the first one that we manage to open.
uprv_strcpy(buffer+bufLen, ext);
testFile = fopen(buffer, "rb");
if(testFile == 0) {
uprv_strcpy(buffer+bufLen, "_SHORT");
uprv_strcat(buffer, ext);
testFile = fopen(buffer, "rb");
if(testFile == 0) {
uprv_strcpy(buffer+bufLen, "_STUB");
uprv_strcat(buffer, ext);
testFile = fopen(buffer, "rb");
if (testFile == 0) {
*(buffer+bufLen) = 0;
dataerrln("Could not open any of the conformance test files, tried opening base %s\n", buffer);
return;
} else {
infoln(
"INFO: Working with the stub file.\n"
"If you need the full conformance test, please\n"
"download the appropriate data files from:\n"
"http://source.icu-project.org/repos/icu/tools/trunk/unicodetools/com/ibm/text/data/");
}
}
}
}
void UCAConformanceTest::testConformance(UCollator *coll)
{
if(testFile == 0) {
return;
}
int32_t line = 0;
UChar b1[1024], b2[1024];
UChar *buffer = b1, *oldB = NULL;
char lineB1[1024], lineB2[1024];
char *lineB = lineB1, *oldLineB = lineB2;
uint8_t sk1[1024], sk2[1024];
uint8_t *oldSk = NULL, *newSk = sk1;
int32_t resLen = 0, oldLen = 0;
int32_t buflen = 0, oldBlen = 0;
uint32_t first = 0;
uint32_t offset = 0;
UnicodeString oldS, newS;
while (fgets(lineB, 1024, testFile) != NULL) {
// remove trailing whitespace
u_rtrim(lineB);
offset = 0;
line++;
if(*lineB == 0 || strlen(lineB) < 3 || lineB[0] == '#') {
continue;
}
offset = u_parseString(lineB, buffer, 1024, &first, &status);
if(U_FAILURE(status)) {
errln("Error parsing line %ld (%s): %s\n",
(long)line, u_errorName(status), lineB);
status = U_ZERO_ERROR;
}
buflen = offset;
buffer[offset++] = 0;
resLen = ucol_getSortKey(coll, buffer, buflen, newSk, 1024);
int32_t res = 0, cmpres = 0, cmpres2 = 0;
if(oldSk != NULL) {
res = strcmp((char *)oldSk, (char *)newSk);
cmpres = ucol_strcoll(coll, oldB, oldBlen, buffer, buflen);
cmpres2 = ucol_strcoll(coll, buffer, buflen, oldB, oldBlen);
if(cmpres != -cmpres2) {
errln("Compare result not symmetrical on line %i", line);
}
if(((res&0x80000000) != (cmpres&0x80000000)) || (res == 0 && cmpres != 0) || (res != 0 && cmpres == 0)) {
errln("Difference between ucol_strcoll and sortkey compare on line %i", line);
errln(" Previous data line %s", oldLineB);
errln(" Current data line %s", lineB);
}
if(res > 0) {
errln("Line %i is not greater or equal than previous line", line);
errln(" Previous data line %s", oldLineB);
errln(" Current data line %s", lineB);
prettify(CollationKey(oldSk, oldLen), oldS);
prettify(CollationKey(newSk, resLen), newS);
errln(" Previous key: "+oldS);
errln(" Current key: "+newS);
} else if(res == 0) { /* equal */
res = u_strcmpCodePointOrder(oldB, buffer);
if (res == 0) {
errln("Probable error in test file on line %i (comparing identical strings)", line);
errln(" Data line %s", lineB);
}
/*
* UCA 6.0 test files can have lines that compare == if they are
* different strings but canonically equivalent.
else if (res > 0) {
errln("Sortkeys are identical, but code point compare gives >0 on line %i", line);
errln(" Previous data line %s", oldLineB);
errln(" Current data line %s", lineB);
}
*/
}
}
// swap buffers
oldLineB = lineB;
oldB = buffer;
oldSk = newSk;
if(lineB == lineB1) {
lineB = lineB2;
buffer = b2;
newSk = sk2;
} else {
lineB = lineB1;
buffer = b1;
newSk = sk1;
}
oldLen = resLen;
oldBlen = buflen;
}
}
void UCAConformanceTest::TestTableNonIgnorable(/* par */) {
setCollNonIgnorable(UCA);
openTestFile("NON_IGNORABLE");
testConformance(UCA);
}
void UCAConformanceTest::TestTableShifted(/* par */) {
setCollShifted(UCA);
openTestFile("SHIFTED");
testConformance(UCA);
}
void UCAConformanceTest::TestRulesNonIgnorable(/* par */) {
initRbUCA();
if(U_SUCCESS(status)) {
setCollNonIgnorable(rbUCA);
openTestFile("NON_IGNORABLE");
testConformance(rbUCA);
}
}
void UCAConformanceTest::TestRulesShifted(/* par */) {
logln("This test is currently disabled, as it is impossible to "
"wholly represent fractional UCA using tailoring rules.");
return;
initRbUCA();
if(U_SUCCESS(status)) {
setCollShifted(rbUCA);
openTestFile("SHIFTED");
testConformance(rbUCA);
}
}
#endif /* #if !UCONFIG_NO_COLLATION */