static int run_test (const char *locname) { struct lconv *lc; const char *str; const wchar_t *wstr; int result = 0; locale_t loc; /* ISO C stuff. */ lc = localeconv (); if (lc == NULL) { printf ("localeconv failed for locale %s\n", locname); result = 1; } else { #define STRTEST(name, exp) \ do \ if (strcmp (lc->name, exp) != 0) \ { \ printf (#name " in locale %s wrong (is \"%s\", should be \"%s\")\n",\ locname, lc->name, exp); \ result = 1; \ } \ while (0) STRTEST (decimal_point, "."); STRTEST (thousands_sep, ""); STRTEST (grouping, ""); STRTEST (mon_decimal_point, ""); STRTEST (mon_thousands_sep, ""); STRTEST (mon_grouping, ""); STRTEST (positive_sign, ""); STRTEST (negative_sign, ""); STRTEST (currency_symbol, ""); STRTEST (int_curr_symbol, ""); #define CHARTEST(name, exp) \ do \ if (lc->name != exp) \ { \ printf (#name " in locale %s wrong (is %d, should be %d)\n", \ locname, lc->name, CHAR_MAX); \ result = 1; \ } \ while (0) CHARTEST (frac_digits, CHAR_MAX); CHARTEST (p_cs_precedes, CHAR_MAX); CHARTEST (n_cs_precedes, CHAR_MAX); CHARTEST (p_sep_by_space, CHAR_MAX); CHARTEST (n_sep_by_space, CHAR_MAX); CHARTEST (p_sign_posn, CHAR_MAX); CHARTEST (n_sign_posn, CHAR_MAX); CHARTEST (int_frac_digits, CHAR_MAX); CHARTEST (int_p_cs_precedes, CHAR_MAX); CHARTEST (int_n_cs_precedes, CHAR_MAX); CHARTEST (int_p_sep_by_space, CHAR_MAX); CHARTEST (int_n_sep_by_space, CHAR_MAX); CHARTEST (int_p_sign_posn, CHAR_MAX); CHARTEST (int_n_sign_posn, CHAR_MAX); } #undef STRTEST #define STRTEST(name, exp) \ str = nl_langinfo (name); \ if (strcmp (str, exp) != 0) \ { \ printf ("nl_langinfo(" #name ") in locale %s wrong " \ "(is \"%s\", should be \"%s\")\n", locname, str, exp); \ result = 1; \ } #define WSTRTEST(name, exp) \ wstr = (wchar_t *) nl_langinfo (name); \ if (wcscmp (wstr, exp) != 0) \ { \ printf ("nl_langinfo(" #name ") in locale %s wrong " \ "(is \"%S\", should be \"%S\")\n", locname, wstr, exp); \ result = 1; \ } /* Unix stuff. */ STRTEST (ABDAY_1, "Sun"); STRTEST (ABDAY_2, "Mon"); STRTEST (ABDAY_3, "Tue"); STRTEST (ABDAY_4, "Wed"); STRTEST (ABDAY_5, "Thu"); STRTEST (ABDAY_6, "Fri"); STRTEST (ABDAY_7, "Sat"); STRTEST (DAY_1, "Sunday"); STRTEST (DAY_2, "Monday"); STRTEST (DAY_3, "Tuesday"); STRTEST (DAY_4, "Wednesday"); STRTEST (DAY_5, "Thursday"); STRTEST (DAY_6, "Friday"); STRTEST (DAY_7, "Saturday"); STRTEST (ABMON_1, "Jan"); STRTEST (ABMON_2, "Feb"); STRTEST (ABMON_3, "Mar"); STRTEST (ABMON_4, "Apr"); STRTEST (ABMON_5, "May"); STRTEST (ABMON_6, "Jun"); STRTEST (ABMON_7, "Jul"); STRTEST (ABMON_8, "Aug"); STRTEST (ABMON_9, "Sep"); STRTEST (ABMON_10, "Oct"); STRTEST (ABMON_11, "Nov"); STRTEST (ABMON_12, "Dec"); STRTEST (MON_1, "January"); STRTEST (MON_2, "February"); STRTEST (MON_3, "March"); STRTEST (MON_4, "April"); STRTEST (MON_5, "May"); STRTEST (MON_6, "June"); STRTEST (MON_7, "July"); STRTEST (MON_8, "August"); STRTEST (MON_9, "September"); STRTEST (MON_10, "October"); STRTEST (MON_11, "November"); STRTEST (MON_12, "December"); STRTEST (AM_STR, "AM"); STRTEST (PM_STR, "PM"); STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y"); STRTEST (D_FMT, "%m/%d/%y"); STRTEST (T_FMT, "%H:%M:%S"); STRTEST (T_FMT_AMPM, "%I:%M:%S %p"); STRTEST (ERA, ""); STRTEST (ERA_D_FMT, ""); STRTEST (ERA_T_FMT, ""); STRTEST (ERA_D_T_FMT, ""); STRTEST (ALT_DIGITS, ""); STRTEST (RADIXCHAR, "."); STRTEST (THOUSEP, ""); STRTEST (YESEXPR, "^[yY]"); STRTEST (NOEXPR, "^[nN]"); /* Extensions. */ WSTRTEST (_NL_WABDAY_1, L"Sun"); WSTRTEST (_NL_WABDAY_2, L"Mon"); WSTRTEST (_NL_WABDAY_3, L"Tue"); WSTRTEST (_NL_WABDAY_4, L"Wed"); WSTRTEST (_NL_WABDAY_5, L"Thu"); WSTRTEST (_NL_WABDAY_6, L"Fri"); WSTRTEST (_NL_WABDAY_7, L"Sat"); WSTRTEST (_NL_WDAY_1, L"Sunday"); WSTRTEST (_NL_WDAY_2, L"Monday"); WSTRTEST (_NL_WDAY_3, L"Tuesday"); WSTRTEST (_NL_WDAY_4, L"Wednesday"); WSTRTEST (_NL_WDAY_5, L"Thursday"); WSTRTEST (_NL_WDAY_6, L"Friday"); WSTRTEST (_NL_WDAY_7, L"Saturday"); WSTRTEST (_NL_WABMON_1, L"Jan"); WSTRTEST (_NL_WABMON_2, L"Feb"); WSTRTEST (_NL_WABMON_3, L"Mar"); WSTRTEST (_NL_WABMON_4, L"Apr"); WSTRTEST (_NL_WABMON_5, L"May"); WSTRTEST (_NL_WABMON_6, L"Jun"); WSTRTEST (_NL_WABMON_7, L"Jul"); WSTRTEST (_NL_WABMON_8, L"Aug"); WSTRTEST (_NL_WABMON_9, L"Sep"); WSTRTEST (_NL_WABMON_10, L"Oct"); WSTRTEST (_NL_WABMON_11, L"Nov"); WSTRTEST (_NL_WABMON_12, L"Dec"); WSTRTEST (_NL_WMON_1, L"January"); WSTRTEST (_NL_WMON_2, L"February"); WSTRTEST (_NL_WMON_3, L"March"); WSTRTEST (_NL_WMON_4, L"April"); WSTRTEST (_NL_WMON_5, L"May"); WSTRTEST (_NL_WMON_6, L"June"); WSTRTEST (_NL_WMON_7, L"July"); WSTRTEST (_NL_WMON_8, L"August"); WSTRTEST (_NL_WMON_9, L"September"); WSTRTEST (_NL_WMON_10, L"October"); WSTRTEST (_NL_WMON_11, L"November"); WSTRTEST (_NL_WMON_12, L"December"); WSTRTEST (_NL_WAM_STR, L"AM"); WSTRTEST (_NL_WPM_STR, L"PM"); WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y"); WSTRTEST (_NL_WD_FMT, L"%m/%d/%y"); WSTRTEST (_NL_WT_FMT, L"%H:%M:%S"); WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p"); WSTRTEST (_NL_WERA_D_FMT, L""); WSTRTEST (_NL_WERA_T_FMT, L""); WSTRTEST (_NL_WERA_D_T_FMT, L""); WSTRTEST (_NL_WALT_DIGITS, L""); STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y"); WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y"); STRTEST (INT_CURR_SYMBOL, ""); STRTEST (CURRENCY_SYMBOL, ""); STRTEST (MON_DECIMAL_POINT, ""); STRTEST (MON_THOUSANDS_SEP, ""); STRTEST (MON_GROUPING, ""); STRTEST (POSITIVE_SIGN, ""); STRTEST (NEGATIVE_SIGN, ""); STRTEST (GROUPING, ""); STRTEST (YESSTR, ""); STRTEST (NOSTR, ""); /* Test the new locale mechanisms. */ loc = newlocale (LC_ALL_MASK, locname, NULL); if (loc == NULL) { printf ("cannot create locale object for locale %s\n", locname); result = 1; } else { int c; #undef STRTEST #define STRTEST(name, exp) \ str = nl_langinfo_l (name, loc); \ if (strcmp (str, exp) != 0) \ { \ printf ("nl_langinfo_l(" #name ") in locale %s wrong " \ "(is \"%s\", should be \"%s\")\n", locname, str, exp); \ result = 1; \ } #undef WSTRTEST #define WSTRTEST(name, exp) \ wstr = (wchar_t *) nl_langinfo_l (name, loc); \ if (wcscmp (wstr, exp) != 0) \ { \ printf ("nl_langinfo_l(" #name ") in locale %s wrong " \ "(is \"%S\", should be \"%S\")\n", locname, wstr, exp); \ result = 1; \ } /* Unix stuff. */ STRTEST (ABDAY_1, "Sun"); STRTEST (ABDAY_2, "Mon"); STRTEST (ABDAY_3, "Tue"); STRTEST (ABDAY_4, "Wed"); STRTEST (ABDAY_5, "Thu"); STRTEST (ABDAY_6, "Fri"); STRTEST (ABDAY_7, "Sat"); STRTEST (DAY_1, "Sunday"); STRTEST (DAY_2, "Monday"); STRTEST (DAY_3, "Tuesday"); STRTEST (DAY_4, "Wednesday"); STRTEST (DAY_5, "Thursday"); STRTEST (DAY_6, "Friday"); STRTEST (DAY_7, "Saturday"); STRTEST (ABMON_1, "Jan"); STRTEST (ABMON_2, "Feb"); STRTEST (ABMON_3, "Mar"); STRTEST (ABMON_4, "Apr"); STRTEST (ABMON_5, "May"); STRTEST (ABMON_6, "Jun"); STRTEST (ABMON_7, "Jul"); STRTEST (ABMON_8, "Aug"); STRTEST (ABMON_9, "Sep"); STRTEST (ABMON_10, "Oct"); STRTEST (ABMON_11, "Nov"); STRTEST (ABMON_12, "Dec"); STRTEST (MON_1, "January"); STRTEST (MON_2, "February"); STRTEST (MON_3, "March"); STRTEST (MON_4, "April"); STRTEST (MON_5, "May"); STRTEST (MON_6, "June"); STRTEST (MON_7, "July"); STRTEST (MON_8, "August"); STRTEST (MON_9, "September"); STRTEST (MON_10, "October"); STRTEST (MON_11, "November"); STRTEST (MON_12, "December"); STRTEST (AM_STR, "AM"); STRTEST (PM_STR, "PM"); STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y"); STRTEST (D_FMT, "%m/%d/%y"); STRTEST (T_FMT, "%H:%M:%S"); STRTEST (T_FMT_AMPM, "%I:%M:%S %p"); STRTEST (ERA, ""); STRTEST (ERA_D_FMT, ""); STRTEST (ERA_T_FMT, ""); STRTEST (ERA_D_T_FMT, ""); STRTEST (ALT_DIGITS, ""); STRTEST (RADIXCHAR, "."); STRTEST (THOUSEP, ""); STRTEST (YESEXPR, "^[yY]"); STRTEST (NOEXPR, "^[nN]"); /* Extensions. */ WSTRTEST (_NL_WABDAY_1, L"Sun"); WSTRTEST (_NL_WABDAY_2, L"Mon"); WSTRTEST (_NL_WABDAY_3, L"Tue"); WSTRTEST (_NL_WABDAY_4, L"Wed"); WSTRTEST (_NL_WABDAY_5, L"Thu"); WSTRTEST (_NL_WABDAY_6, L"Fri"); WSTRTEST (_NL_WABDAY_7, L"Sat"); WSTRTEST (_NL_WDAY_1, L"Sunday"); WSTRTEST (_NL_WDAY_2, L"Monday"); WSTRTEST (_NL_WDAY_3, L"Tuesday"); WSTRTEST (_NL_WDAY_4, L"Wednesday"); WSTRTEST (_NL_WDAY_5, L"Thursday"); WSTRTEST (_NL_WDAY_6, L"Friday"); WSTRTEST (_NL_WDAY_7, L"Saturday"); WSTRTEST (_NL_WABMON_1, L"Jan"); WSTRTEST (_NL_WABMON_2, L"Feb"); WSTRTEST (_NL_WABMON_3, L"Mar"); WSTRTEST (_NL_WABMON_4, L"Apr"); WSTRTEST (_NL_WABMON_5, L"May"); WSTRTEST (_NL_WABMON_6, L"Jun"); WSTRTEST (_NL_WABMON_7, L"Jul"); WSTRTEST (_NL_WABMON_8, L"Aug"); WSTRTEST (_NL_WABMON_9, L"Sep"); WSTRTEST (_NL_WABMON_10, L"Oct"); WSTRTEST (_NL_WABMON_11, L"Nov"); WSTRTEST (_NL_WABMON_12, L"Dec"); WSTRTEST (_NL_WMON_1, L"January"); WSTRTEST (_NL_WMON_2, L"February"); WSTRTEST (_NL_WMON_3, L"March"); WSTRTEST (_NL_WMON_4, L"April"); WSTRTEST (_NL_WMON_5, L"May"); WSTRTEST (_NL_WMON_6, L"June"); WSTRTEST (_NL_WMON_7, L"July"); WSTRTEST (_NL_WMON_8, L"August"); WSTRTEST (_NL_WMON_9, L"September"); WSTRTEST (_NL_WMON_10, L"October"); WSTRTEST (_NL_WMON_11, L"November"); WSTRTEST (_NL_WMON_12, L"December"); WSTRTEST (_NL_WAM_STR, L"AM"); WSTRTEST (_NL_WPM_STR, L"PM"); WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y"); WSTRTEST (_NL_WD_FMT, L"%m/%d/%y"); WSTRTEST (_NL_WT_FMT, L"%H:%M:%S"); WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p"); WSTRTEST (_NL_WERA_D_FMT, L""); WSTRTEST (_NL_WERA_T_FMT, L""); WSTRTEST (_NL_WERA_D_T_FMT, L""); WSTRTEST (_NL_WALT_DIGITS, L""); STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y"); WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y"); STRTEST (INT_CURR_SYMBOL, ""); STRTEST (CURRENCY_SYMBOL, ""); STRTEST (MON_DECIMAL_POINT, ""); STRTEST (MON_THOUSANDS_SEP, ""); STRTEST (MON_GROUPING, ""); STRTEST (POSITIVE_SIGN, ""); STRTEST (NEGATIVE_SIGN, ""); STRTEST (GROUPING, ""); STRTEST (YESSTR, ""); STRTEST (NOSTR, ""); /* Character class tests. */ for (c = 0; c < 128; ++c) { #define CLASSTEST(name) \ if (is##name (c) != is##name##_l (c, loc)) \ { \ printf ("is%s('\\%o') != is%s_l('\\%o')\n", \ #name, c, #name, c); \ result = 1; \ } CLASSTEST (alnum); CLASSTEST (alpha); CLASSTEST (blank); CLASSTEST (cntrl); CLASSTEST (digit); CLASSTEST (lower); CLASSTEST (graph); CLASSTEST (print); CLASSTEST (punct); CLASSTEST (space); CLASSTEST (upper); CLASSTEST (xdigit); /* Character mapping tests. */ #define MAPTEST(name) \ if (to##name (c) != to##name##_l (c, loc)) \ { \ printf ("to%s('\\%o') != to%s_l('\\%o'): '\\%o' vs '\\%o'\n", \ #name, c, #name, c, \ to##name (c), to##name##_l (c, loc)); \ result = 1; \ } MAPTEST (lower); MAPTEST (upper); } /* Character class tests, this time for wide characters. Note that this only works because we know that the internal encoding is UCS4. */ for (c = 0; c < 128; ++c) { #undef CLASSTEST #define CLASSTEST(name) \ if (isw##name (c) != isw##name##_l (c, loc)) \ { \ printf ("isw%s('\\%o') != isw%s_l('\\%o')\n", \ #name, c, #name, c); \ result = 1; \ } CLASSTEST (alnum); CLASSTEST (alpha); CLASSTEST (blank); CLASSTEST (cntrl); CLASSTEST (digit); CLASSTEST (lower); CLASSTEST (graph); CLASSTEST (print); CLASSTEST (punct); CLASSTEST (space); CLASSTEST (upper); CLASSTEST (xdigit); /* Character mapping tests. Note that this only works because we know that the internal encoding is UCS4. */ #undef MAPTEST #define MAPTEST(name) \ if (tow##name (c) != tow##name##_l (c, loc)) \ { \ printf ("tow%s('\\%o') != tow%s_l('\\%o'): '\\%o' vs '\\%o'\n",\ #name, c, #name, c, \ tow##name (c), tow##name##_l (c, loc)); \ result = 1; \ } MAPTEST (lower); MAPTEST (upper); } freelocale (loc); } return result; }
static int stricmp_test(void) { /* This specificly tests and benchmark pj_stricmp(), pj_stricmp_alnum(). * In addition, it also tests pj_stricmp2(), pj_strnicmp(), and * pj_strnicmp2(). */ #define STRTEST(res,res2,S1,S2,code) \ do { \ s1.ptr=S1; s1.slen=(S1)?len:0; \ s2.ptr=S2; s2.slen=(S2)?len:0; \ pj_get_timestamp(&t1); \ if (C(pj_stricmp(&s1,&s2),res)) return code; \ pj_get_timestamp(&t2); \ pj_sub_timestamp(&t2, &t1); \ pj_add_timestamp(&e1, &t2); \ pj_get_timestamp(&t1); \ if (C(pj_stricmp_alnum(&s1,&s2),res)) return code-1; \ pj_get_timestamp(&t2); \ pj_sub_timestamp(&t2, &t1); \ pj_add_timestamp(&e2, &t2); \ if (C(pj_stricmp2(&s1,S2),res2)) return code*10; \ if (C(pj_strnicmp(&s1,&s2,len),res)) return code*100; \ if (C(pj_strnicmp2(&s1,S2,len),res)) return code*1000; \ } while (0) char *buf; pj_str_t s1, s2; pj_timestamp t1, t2, e1, e2, zero; pj_uint32_t c1, c2; int len; e1.u32.hi = e1.u32.lo = e2.u32.hi = e2.u32.lo = 0; pj_thread_sleep(0); #define SNULL 0 /* Compare empty strings. */ len=0; STRTEST( 0, 0, "","",-500); STRTEST( 0, 0, SNULL,"",-502); STRTEST( 0, 0, "",SNULL,-504); STRTEST( 0, 0, SNULL,SNULL,-506); STRTEST( 0, -1, "hello","world",-508); /* equal, length=1 * use buffer to simulate non-aligned string. */ buf = "a""A"; len=1; STRTEST( 0, -1, "a",buf+0,-510); STRTEST( 0, 0, "a",buf+1,-512); STRTEST(-1, -1, "O", "P", -514); STRTEST(-1, -1, SNULL, "a", -516); STRTEST( 1, 1, "a", SNULL, -518); /* equal, length=2 * use buffer to simulate non-aligned string. */ buf = "aa""Aa""aA""AA"; len=2; STRTEST( 0, -1, "aa",buf+0,-520); STRTEST( 0, -1, "aa",buf+2,-522); STRTEST( 0, -1, "aa",buf+4,-524); STRTEST( 0, 0, "aa",buf+6,-524); /* equal, length=3 * use buffer to simulate non-aligned string. */ buf = "aaa""Aaa""aAa""aaA""AAa""aAA""AaA""AAA"; len=3; STRTEST( 0, -1, "aaa",buf+0,-530); STRTEST( 0, -1, "aaa",buf+3,-532); STRTEST( 0, -1, "aaa",buf+6,-534); STRTEST( 0, -1, "aaa",buf+9,-536); STRTEST( 0, -1, "aaa",buf+12,-538); STRTEST( 0, -1, "aaa",buf+15,-540); STRTEST( 0, -1, "aaa",buf+18,-542); STRTEST( 0, 0, "aaa",buf+21,-534); /* equal, length=4 */ len=4; STRTEST( 0, 0, "aaaa","aaaa",-540); STRTEST( 0, 0, "aaaa","Aaaa",-542); STRTEST( 0, 0, "aaaa","aAaa",-544); STRTEST( 0, 0, "aaaa","aaAa",-546); STRTEST( 0, 0, "aaaa","aaaA",-548); STRTEST( 0, 0, "aaaa","AAaa",-550); STRTEST( 0, 0, "aaaa","aAAa",-552); STRTEST( 0, 0, "aaaa","aaAA",-554); STRTEST( 0, 0, "aaaa","AaAa",-556); STRTEST( 0, 0, "aaaa","aAaA",-558); STRTEST( 0, 0, "aaaa","AaaA",-560); STRTEST( 0, 0, "aaaa","AAAa",-562); STRTEST( 0, 0, "aaaa","aAAA",-564); STRTEST( 0, 0, "aaaa","AAaA",-566); STRTEST( 0, 0, "aaaa","AaAA",-568); STRTEST( 0, 0, "aaaa","AAAA",-570); /* equal, length=5 */ buf = "aaaAa""AaaaA""AaAaA""AAAAA"; len=5; STRTEST( 0, -1, "aaaaa",buf+0,-580); STRTEST( 0, -1, "aaaaa",buf+5,-582); STRTEST( 0, -1, "aaaaa",buf+10,-584); STRTEST( 0, 0, "aaaaa",buf+15,-586); /* not equal, length=1 */ len=1; STRTEST( -1, -1, "a", "b", -600); /* not equal, length=2 */ buf = "ab""ba"; len=2; STRTEST( -1, -1, "aa", buf+0, -610); STRTEST( -1, -1, "aa", buf+2, -612); /* not equal, length=3 */ buf = "aab""aba""baa"; len=3; STRTEST( -1, -1, "aaa", buf+0, -620); STRTEST( -1, -1, "aaa", buf+3, -622); STRTEST( -1, -1, "aaa", buf+6, -624); /* not equal, length=4 */ buf = "aaab""aaba""abaa""baaa"; len=4; STRTEST( -1, -1, "aaaa", buf+0, -630); STRTEST( -1, -1, "aaaa", buf+4, -632); STRTEST( -1, -1, "aaaa", buf+8, -634); STRTEST( -1, -1, "aaaa", buf+12, -636); /* not equal, length=5 */ buf="aaaab""aaaba""aabaa""abaaa""baaaa"; len=5; STRTEST( -1, -1, "aaaaa", buf+0, -640); STRTEST( -1, -1, "aaaaa", buf+5, -642); STRTEST( -1, -1, "aaaaa", buf+10, -644); STRTEST( -1, -1, "aaaaa", buf+15, -646); STRTEST( -1, -1, "aaaaa", buf+20, -648); zero.u32.hi = zero.u32.lo = 0; c1 = pj_elapsed_cycle(&zero, &e1); c2 = pj_elapsed_cycle(&zero, &e2); if (c1 < c2) { PJ_LOG(3,("", " info: pj_stricmp_alnum is slower than pj_stricmp!")); //return -700; } /* Avoid division by zero */ if (c2 == 0) c2=1; PJ_LOG(3, ("", " time: stricmp=%u, stricmp_alnum=%u (speedup=%d.%02dx)", c1, c2, (c1 * 100 / c2) / 100, (c1 * 100 / c2) % 100)); return 0; #undef STRTEST }