| /* |
| WCSSTR: wchar_t *wcsstr (const wchar_t *ws1, const wchar_t *ws2); |
| */ |
| |
| #define TST_FUNCTION wcsstr |
| |
| #include "tsp_common.c" |
| #include "dat_wcsstr.c" |
| |
| int |
| tst_wcsstr (FILE * fp, int debug_flg) |
| { |
| TST_DECL_VARS (wchar_t *); |
| wchar_t *ws1, *ws2; |
| int err, i; |
| |
| TST_DO_TEST (wcsstr) |
| { |
| TST_HEAD_LOCALE (wcsstr, S_WCSSTR); |
| TST_DO_REC (wcsstr) |
| { |
| TST_GET_ERRET (wcsstr); |
| ws1 = TST_INPUT (wcsstr).ws1; |
| ws2 = TST_INPUT (wcsstr).ws2; /* external value: size WCSSIZE */ |
| ret = wcsstr (ws1, ws2); |
| |
| if (debug_flg) |
| { |
| fprintf (stderr, "wcsstr: %d : ret = %s\n", rec + 1, |
| (ret == NULL) ? "null" : "not null"); |
| if (ret) |
| { |
| fprintf (stderr, |
| " ret[ 0 ] = 0x%lx <-> 0x%lx = ws2[ 0 ]\n", |
| (unsigned long int) ret[0], (unsigned long int) ws2[0]); |
| } |
| } |
| |
| TST_IF_RETURN (S_WCSSTR) |
| { |
| if (ws2[0] == 0) |
| { |
| if (ret == ws1) |
| { |
| Result (C_SUCCESS, S_WCSSTR, CASE_3, MS_PASSED); |
| } |
| else |
| { |
| err_count++; |
| Result (C_FAILURE, S_WCSSTR, CASE_3, |
| "return address is not same address as ws1"); |
| } |
| |
| continue; |
| } |
| |
| for (i = 0, err = 0; *(ws2 + i) != 0 && i < WCSSIZE; i++) |
| { |
| if (debug_flg) |
| { |
| fprintf (stderr, |
| " : ret[ %d ] = 0x%lx <-> 0x%lx = ws2[ %d ]\n", |
| i, (unsigned long int) ret[i], |
| (unsigned long int) ws2[i], i); |
| } |
| |
| if (ret[i] != ws2[i]) |
| { |
| err++; |
| err_count++; |
| Result (C_FAILURE, S_WCSSTR, CASE_4, "pointed sub-string is " |
| "different from an expected sub-string"); |
| break; |
| } |
| } |
| |
| if (!err) |
| { |
| Result (C_SUCCESS, S_WCSSTR, CASE_4, MS_PASSED); |
| } |
| } |
| } |
| } |
| |
| return err_count; |
| } |