1 /*
2 WCSSTR: wchar_t *wcsstr (const wchar_t *ws1, const wchar_t *ws2);
3 */
4
5 #define TST_FUNCTION wcsstr
6
7 #include "tsp_common.c"
8 #include "dat_wcsstr.c"
9
10 int
tst_wcsstr(FILE * fp,int debug_flg)11 tst_wcsstr (FILE * fp, int debug_flg)
12 {
13 TST_DECL_VARS (wchar_t *);
14 wchar_t *ws1, *ws2;
15 int err, i;
16
17 TST_DO_TEST (wcsstr)
18 {
19 TST_HEAD_LOCALE (wcsstr, S_WCSSTR);
20 TST_DO_REC (wcsstr)
21 {
22 TST_GET_ERRET (wcsstr);
23 ws1 = TST_INPUT (wcsstr).ws1;
24 ws2 = TST_INPUT (wcsstr).ws2; /* external value: size WCSSIZE */
25 ret = wcsstr (ws1, ws2);
26
27 if (debug_flg)
28 {
29 fprintf (stderr, "wcsstr: %d : ret = %s\n", rec + 1,
30 (ret == NULL) ? "null" : "not null");
31 if (ret)
32 {
33 fprintf (stderr,
34 " ret[ 0 ] = 0x%lx <-> 0x%lx = ws2[ 0 ]\n",
35 (unsigned long int) ret[0], (unsigned long int) ws2[0]);
36 }
37 }
38
39 TST_IF_RETURN (S_WCSSTR)
40 {
41 if (ws2[0] == 0)
42 {
43 if (ret == ws1)
44 {
45 Result (C_SUCCESS, S_WCSSTR, CASE_3, MS_PASSED);
46 }
47 else
48 {
49 err_count++;
50 Result (C_FAILURE, S_WCSSTR, CASE_3,
51 "return address is not same address as ws1");
52 }
53
54 continue;
55 }
56
57 for (i = 0, err = 0; *(ws2 + i) != 0 && i < WCSSIZE; i++)
58 {
59 if (debug_flg)
60 {
61 fprintf (stderr,
62 " : ret[ %d ] = 0x%lx <-> 0x%lx = ws2[ %d ]\n",
63 i, (unsigned long int) ret[i],
64 (unsigned long int) ws2[i], i);
65 }
66
67 if (ret[i] != ws2[i])
68 {
69 err++;
70 err_count++;
71 Result (C_FAILURE, S_WCSSTR, CASE_4, "pointed sub-string is "
72 "different from an expected sub-string");
73 break;
74 }
75 }
76
77 if (!err)
78 {
79 Result (C_SUCCESS, S_WCSSTR, CASE_4, MS_PASSED);
80 }
81 }
82 }
83 }
84
85 return err_count;
86 }
87