/******************************************************************** * COPYRIGHT: * Copyright (c) 1997-2003, International Business Machines Corporation and * others. All Rights Reserved. ********************************************************************/ /******************************************************************************** * * File CINTLTST.C * * Modification History: * Name Description * Madhu Katragadda Creation ********************************************************************************* */ /*The main root for C API tests*/ #include #include #include #include "unicode/utypes.h" #include "unicode/putil.h" #include "cintltst.h" #include "umutex.h" #include "unicode/uchar.h" #include "unicode/ustring.h" #include "unicode/ucnv.h" #include "unicode/ures.h" #include "unicode/uclean.h" #include "unicode/ucal.h" #include "uoptions.h" #ifdef XP_MAC_CONSOLE # include #endif #define CTST_LEAK_CHECK 1 #ifdef CTST_LEAK_CHECK U_CFUNC void ctst_freeAll(void); #endif static char* _testDataPath=NULL; /* * Forward Declarations */ void ctest_setICU_DATA(void); #if UCONFIG_NO_LEGACY_CONVERSION # define TRY_CNV_1 "iso-8859-1" # define TRY_CNV_2 "ibm-1208" #else # define TRY_CNV_1 "iso-8859-7" # define TRY_CNV_2 "sjis" #endif /* * Tracing functions. */ static int traceFnNestingDepth = 0; U_CDECL_BEGIN static void U_CALLCONV TraceEntry(const void *context, int32_t fnNumber) { char buf[500]; utrace_format(buf, sizeof(buf), traceFnNestingDepth*3, "%s() enter.\n", utrace_functionName(fnNumber)); buf[sizeof(buf)-1]=0; fputs(buf, stdout); traceFnNestingDepth++; } static void U_CALLCONV TraceExit(const void *context, int32_t fnNumber, const char *fmt, va_list args) { char buf[500]; if (traceFnNestingDepth>0) { traceFnNestingDepth--; } utrace_format(buf, sizeof(buf), traceFnNestingDepth*3, "%s() ", utrace_functionName(fnNumber)); buf[sizeof(buf)-1]=0; fputs(buf, stdout); utrace_vformat(buf, sizeof(buf), traceFnNestingDepth*3, fmt, args); buf[sizeof(buf)-1]=0; fputs(buf, stdout); putc('\n', stdout); } static void U_CALLCONV TraceData(const void *context, int32_t fnNumber, int32_t level, const char *fmt, va_list args) { char buf[500]; utrace_vformat(buf, sizeof(buf), traceFnNestingDepth*3, fmt, args); buf[sizeof(buf)-1]=0; fputs(buf, stdout); putc('\n', stdout); } U_CDECL_END int main(int argc, const char* const argv[]) { int nerrors = 0; int warnOnMissingData = 0; int i, j; TestNode *root; const char *warnOrErr = "Failure"; const char** argv2; /* initial check for the default converter */ UErrorCode errorCode = U_ZERO_ERROR; UResourceBundle *rb; UConverter *cnv; U_MAIN_INIT_ARGS(argc, argv); argv2 = (const char**) malloc(sizeof(char*) * argc); if (argv2 == NULL) { printf("*** Error: Out of memory (too many cmd line args?)\n"); return 1; } argv2[0] = argv[0]; /* Checkargs */ /* TODO: Test framework arg handling needs to be decoupled from test execution * so that the args being processed here don't need special handling, * separate from the other test args. */ ICU_TRACE = UTRACE_OFF; for(i=1,j=1;i 0) { /* Loop runs once per complete execution of the tests * used for -r (repeat) test option. */ /* Check whether ICU will initialize without forcing the build data directory into * the ICU_DATA path. Success here means either the data dll contains data, or that * this test program was run with ICU_DATA set externally. Failure of this check * is normal when ICU data is not packaged into a shared library. * * Whether or not this test succeeds, we want to cleanup and reinitialize * with a data path so that data loading from individual files can be tested. */ u_init(&errorCode); if (U_FAILURE(errorCode)) { fprintf(stderr, "#### Note: ICU Init without build-specific setDataDirectory() failed.\n"); } u_cleanup(); errorCode = U_ZERO_ERROR; utrace_setFunctions(NULL, TraceEntry, TraceExit, TraceData); utrace_setLevel(ICU_TRACE); /* Initialize ICU */ ctest_setICU_DATA(); /* u_setDataDirectory() must happen Before u_init() */ u_init(&errorCode); if (U_FAILURE(errorCode)) { fprintf(stderr, "#### ERROR! %s: u_init() failed with status = \"%s\".\n" "*** Check the ICU_DATA environment variable and \n" "*** check that the data files are present.\n", argv[0], u_errorName(errorCode)); if(warnOnMissingData == 0) { fprintf(stderr, "*** Exiting. Use the '-w' option if data files were\n*** purposely removed, to continue test anyway.\n"); u_cleanup(); return 1; } } /* try more data */ cnv = ucnv_open(TRY_CNV_2, &errorCode); if(cnv != 0) { /* ok */ ucnv_close(cnv); } else { fprintf(stderr, "*** %s! The converter for " TRY_CNV_2 " cannot be opened.\n" "*** Check the ICU_DATA environment variable and \n" "*** check that the data files are present.\n", warnOrErr); if(warnOnMissingData == 0) { fprintf(stderr, "*** Exitting. Use the '-w' option if data files were\n*** purposely removed, to continue test anyway.\n"); u_cleanup(); return 1; } } rb = ures_open(NULL, "en", &errorCode); if(U_SUCCESS(errorCode)) { /* ok */ ures_close(rb); } else { fprintf(stderr, "*** %s! The \"en\" locale resource bundle cannot be opened.\n" "*** Check the ICU_DATA environment variable and \n" "*** check that the data files are present.\n", warnOrErr); if(warnOnMissingData == 0) { fprintf(stderr, "*** Exitting. Use the '-w' option if data files were\n*** purposely removed, to continue test anyway.\n"); u_cleanup(); return 1; } } fprintf(stdout, "Default locale for this run is %s\n", uloc_getDefault()); /* Build a tree of all tests. * Subsequently will be used to find / iterate the tests to run */ root = NULL; addAllTests(&root); /* Tests acutally run HERE. TODO: separate command line option parsing & setting from test execution!! */ nerrors = processArgs(root, argc, argv2); if (--REPEAT_TESTS > 0) { printf("Repeating tests %d more time(s)\n", REPEAT_TESTS); } cleanUpTestTree(root); #ifdef CTST_LEAK_CHECK ctst_freeAll(); /* To check for leaks */ u_cleanup(); /* nuke the hashtable.. so that any still-open cnvs are leaked */ #endif } /* End of loop that repeats the entire test, if requested. (Normally doesn't loop) */ free((void*)argv2); return nerrors ? 1 : 0; } /* static void ctest_appendToDataDirectory(const char *toAppend) { const char *oldPath =""; char newBuf [1024]; char *newPath = newBuf; int32_t oldLen; int32_t newLen; if((toAppend == NULL) || (*toAppend == 0)) { return; } oldPath = u_getDataDirectory(); if( (oldPath==NULL) || (*oldPath == 0)) { u_setDataDirectory(toAppend); } else { oldLen = strlen(oldPath); newLen = strlen(toAppend)+1+oldLen; if(newLen > 1022) { newPath = (char *)ctst_malloc(newLen); } strcpy(newPath, oldPath); strcpy(newPath+oldLen, U_PATH_SEP_STRING); strcpy(newPath+oldLen+1, toAppend); u_setDataDirectory(newPath); if(newPath != newBuf) { free(newPath); } } } */ void ctest_pathnameInContext( char* fullname, int32_t maxsize, const char* relPath ) { char mainDirBuffer[1024]; char* mainDir = NULL; const char *dataDirectory = ctest_dataOutDir(); const char inpSepChar = '|'; char* tmp; int32_t lenMainDir; int32_t lenRelPath; #ifdef XP_MAC Str255 volName; int16_t volNum; OSErr err = GetVol( volName, &volNum ); if (err != noErr) volName[0] = 0; mainDir = (char*) &(volName[1]); mainDir[volName[0]] = 0; #else if (dataDirectory != NULL) { strcpy(mainDirBuffer, dataDirectory); strcat(mainDirBuffer, ".." U_FILE_SEP_STRING); } else { mainDirBuffer[0]='\0'; } mainDir = mainDirBuffer; #endif lenMainDir = (int32_t)strlen(mainDir); if(lenMainDir > 0 && mainDir[lenMainDir - 1] != U_FILE_SEP_CHAR) { mainDir[lenMainDir++] = U_FILE_SEP_CHAR; mainDir[lenMainDir] = 0; } if (relPath[0] == '|') relPath++; lenRelPath = (int32_t)strlen(relPath); if (maxsize < lenMainDir + lenRelPath + 2) { fullname[0] = 0; return; } strcpy(fullname, mainDir); /*strcat(fullname, U_FILE_SEP_STRING);*/ strcat(fullname, relPath); strchr(fullname, inpSepChar); tmp = strchr(fullname, inpSepChar); while (tmp) { *tmp = U_FILE_SEP_CHAR; tmp = strchr(tmp+1, inpSepChar); } } /* returns the path to icu/source/data */ const char * ctest_dataSrcDir() { static const char *dataSrcDir = NULL; if(dataSrcDir) { return dataSrcDir; } /* U_TOPSRCDIR is set by the makefiles on UNIXes when building cintltst and intltst // to point to the top of the build hierarchy, which may or // may not be the same as the source directory, depending on // the configure options used. At any rate, // set the data path to the built data from this directory. // The value is complete with quotes, so it can be used // as-is as a string constant. */ #if defined (U_TOPSRCDIR) { dataSrcDir = U_TOPSRCDIR U_FILE_SEP_STRING "data" U_FILE_SEP_STRING; } #else /* On Windows, the file name obtained from __FILE__ includes a full path. * This file is "wherever\icu\source\test\cintltst\cintltst.c" * Change to "wherever\icu\source\data" */ { static char p[sizeof(__FILE__) + 20]; char *pBackSlash; int i; dataSrcDir = p; strcpy(p, __FILE__); /* We want to back over three '\' chars. */ /* Only Windows should end up here, so looking for '\' is safe. */ for (i=1; i<=3; i++) { pBackSlash = strrchr(p, U_FILE_SEP_CHAR); if (pBackSlash != NULL) { *pBackSlash = 0; /* Truncate the string at the '\' */ } } if (pBackSlash != NULL) { /* We found and truncated three names from the path. * Now append "source\data" and set the environment */ strcpy(pBackSlash, U_FILE_SEP_STRING "data" U_FILE_SEP_STRING ); } else { /* __FILE__ on MSVC7 does not contain the directory */ strcpy(p, ".."U_FILE_SEP_STRING".."U_FILE_SEP_STRING "data" U_FILE_SEP_STRING); } } #endif return dataSrcDir; } /* returns the path to icu/source/data/out */ const char *ctest_dataOutDir() { static const char *dataOutDir = NULL; if(dataOutDir) { return dataOutDir; } /* U_TOPBUILDDIR is set by the makefiles on UNIXes when building cintltst and intltst // to point to the top of the build hierarchy, which may or // may not be the same as the source directory, depending on // the configure options used. At any rate, // set the data path to the built data from this directory. // The value is complete with quotes, so it can be used // as-is as a string constant. */ #if defined (U_TOPBUILDDIR) { dataOutDir = U_TOPBUILDDIR "data"U_FILE_SEP_STRING"out"U_FILE_SEP_STRING; } #else /* On Windows, the file name obtained from __FILE__ includes a full path. * This file is "wherever\icu\source\test\cintltst\cintltst.c" * Change to "wherever\icu\source\data" */ { static char p[sizeof(__FILE__) + 20]; char *pBackSlash; int i; dataOutDir = p; strcpy(p, __FILE__); /* We want to back over three '\' chars. */ /* Only Windows should end up here, so looking for '\' is safe. */ for (i=1; i<=3; i++) { pBackSlash = strrchr(p, U_FILE_SEP_CHAR); if (pBackSlash != NULL) { *pBackSlash = 0; /* Truncate the string at the '\' */ } } if (pBackSlash != NULL) { /* We found and truncated three names from the path. * Now append "source\data" and set the environment */ strcpy(pBackSlash, U_FILE_SEP_STRING "data" U_FILE_SEP_STRING "out" U_FILE_SEP_STRING); } else { /* __FILE__ on MSVC7 does not contain the directory */ strcpy(p, ".."U_FILE_SEP_STRING".."U_FILE_SEP_STRING "data" U_FILE_SEP_STRING "out" U_FILE_SEP_STRING); } } #endif return dataOutDir; } /* ctest_setICU_DATA - if the ICU_DATA environment variable is not already * set, try to deduce the directory in which ICU was built, * and set ICU_DATA to "icu/source/data" in that location. * The intent is to allow the tests to have a good chance * of running without requiring that the user manually set * ICU_DATA. Common data isn't a problem, since it is * picked up via a static (build time) reference, but the * tests dynamically load some data. */ void ctest_setICU_DATA() { /* No location for the data dir was identifiable. * Add other fallbacks for the test data location here if the need arises */ u_setDataDirectory(ctest_dataOutDir()); } UChar* CharsToUChars(const char* str) { /* Might be faster to just use uprv_strlen() as the preflight len - liu */ int32_t len = u_unescape(str, 0, 0); /* preflight */ /* Do NOT use malloc() - we are supposed to be acting like user code! */ UChar *buf = (UChar*) malloc(sizeof(UChar) * (len + 1)); u_unescape(str, buf, len + 1); return buf; } char *austrdup(const UChar* unichars) { int length; char *newString; length = u_strlen ( unichars ); /*newString = (char*)malloc ( sizeof( char ) * 4 * ( length + 1 ) );*/ /* this leaks for now */ newString = (char*)ctst_malloc ( sizeof( char ) * 4 * ( length + 1 ) ); /* this shouldn't */ if ( newString == NULL ) return NULL; u_austrcpy ( newString, unichars ); return newString; } char *aescstrdup(const UChar* unichars,int32_t length){ char *newString,*targetLimit,*target; UConverterFromUCallback cb; const void *p; UErrorCode errorCode = U_ZERO_ERROR; #if U_CHARSET_FAMILY==U_EBCDIC_FAMILY # ifdef OS390 static const char convName[] = "ibm-1047"; # else static const char convName[] = "ibm-37"; # endif #else static const char convName[] = "US-ASCII"; #endif UConverter* conv = ucnv_open(convName, &errorCode); if(length==-1){ length = u_strlen( unichars); } newString = (char*)ctst_malloc ( sizeof(char) * 8 * (length +1)); target = newString; targetLimit = newString+sizeof(char) * 8 * (length +1); ucnv_setFromUCallBack(conv, UCNV_FROM_U_CALLBACK_ESCAPE, UCNV_ESCAPE_JAVA, &cb, &p, &errorCode); ucnv_fromUnicode(conv,&target,targetLimit, &unichars, (UChar*)(unichars+length),NULL,TRUE,&errorCode); ucnv_close(conv); *target = '\0'; return newString; } const char* loadTestData(UErrorCode* err){ const char* directory=NULL; UResourceBundle* test =NULL; char* tdpath=NULL; const char* tdrelativepath = ".."U_FILE_SEP_STRING".."U_FILE_SEP_STRING"test"U_FILE_SEP_STRING"testdata"U_FILE_SEP_STRING"out"U_FILE_SEP_STRING; if( _testDataPath == NULL){ directory= ctest_dataOutDir(); tdpath = (char*) ctst_malloc(sizeof(char) *(( strlen(directory) * strlen(tdrelativepath)) + 10)); /* u_getDataDirectory shoul return \source\data ... set the * directory to ..\source\data\..\test\testdata\out\testdata * * Fallback: When Memory mapped file is built * ..\source\data\out\..\..\test\testdata\out\testdata */ strcpy(tdpath, directory); strcat(tdpath, tdrelativepath); strcat(tdpath,"testdata"); test=ures_open(tdpath, "testtypes", err); /* Fall back did not succeed either so return */ if(U_FAILURE(*err)){ *err = U_FILE_ACCESS_ERROR; log_err("Could not load testtypes.res in testdata bundle with path %s - %s\n", tdpath, u_errorName(*err)); return ""; } ures_close(test); _testDataPath = tdpath; return _testDataPath; } return _testDataPath; } #define CTEST_MAX_TIMEZONE_SIZE 256 static UChar gOriginalTimeZone[CTEST_MAX_TIMEZONE_SIZE] = {0}; /** * Call this once to get a consistent timezone. Use ctest_resetTimeZone to set it back to the original value. * @param optionalTimeZone Set this to a requested timezone. * Set to NULL to use the standard test timezone (Pacific Time) */ U_CFUNC void ctest_setTimeZone(const char *optionalTimeZone, UErrorCode *status) { #if !UCONFIG_NO_FORMATTING UChar zoneID[CTEST_MAX_TIMEZONE_SIZE]; if (optionalTimeZone == NULL) { optionalTimeZone = "America/Los_Angeles"; } if (gOriginalTimeZone[0]) { log_err("*** Error: time zone saved twice. New value will be %s\n", optionalTimeZone); } ucal_getDefaultTimeZone(gOriginalTimeZone, CTEST_MAX_TIMEZONE_SIZE, status); if (U_FAILURE(*status)) { log_err("*** Error: Failed to save default time zone: %s\n", u_errorName(*status)); *status = U_ZERO_ERROR; } u_uastrncpy(zoneID, optionalTimeZone, CTEST_MAX_TIMEZONE_SIZE-1); zoneID[CTEST_MAX_TIMEZONE_SIZE-1] = 0; ucal_setDefaultTimeZone(zoneID, status); if (U_FAILURE(*status)) { log_err("*** Error: Failed to set default time zone to \"%s\": %s\n", optionalTimeZone, u_errorName(*status)); } #endif } /** * Call this once get back the original timezone */ U_CFUNC void ctest_resetTimeZone(void) { #if !UCONFIG_NO_FORMATTING UErrorCode status = U_ZERO_ERROR; ucal_setDefaultTimeZone(gOriginalTimeZone, &status); if (U_FAILURE(status)) { log_err("*** Error: Failed to reset default time zone: %s\n", u_errorName(status)); } /* Set to an empty state */ gOriginalTimeZone[0] = 0; #endif } #define CTST_MAX_ALLOC 10000 /* Array used as a queue */ static void * ctst_allocated_stuff[CTST_MAX_ALLOC] = {0}; static int ctst_allocated = 0; static UBool ctst_free = FALSE; void *ctst_malloc(size_t size) { if(ctst_allocated >= CTST_MAX_ALLOC - 1) { ctst_allocated = 0; ctst_free = TRUE; } if(ctst_allocated_stuff[ctst_allocated]) { free(ctst_allocated_stuff[ctst_allocated]); } return ctst_allocated_stuff[ctst_allocated++] = malloc(size); } #ifdef CTST_LEAK_CHECK void ctst_freeAll() { int i; if(ctst_free == 0) { for(i=0; i