Initial import of locale test suite from Shoji Kuwabara.
[kopensolaris-gnu/glibc.git] / localedata / tests-mbwc / tst_wcscoll.c
1 /*
2   WCSCOLL: int wcscoll (const wchar_t *ws1, const wchar_t *ws2);
3 */
4
5 #define TST_FUNCTION wcscoll
6
7 #include "tsp_common.c"
8 #include "dat_wcscoll.c"
9
10 int
11 tst_wcscoll (FILE * fp, int debug_flg)
12 {
13   TST_DECL_VARS (int);
14   wchar_t *ws1, *ws2;
15   int cmp;
16
17   TST_DO_TEST (wcscoll)
18   {
19     TST_HEAD_LOCALE (wcscoll, S_WCSCOLL);
20     TST_DO_REC (wcscoll)
21     {
22       TST_GET_ERRET (wcscoll);
23       ws1 = TST_INPUT (wcscoll).ws1;    /* external value: size WCSSIZE */
24       ws2 = TST_INPUT (wcscoll).ws2;
25
26       TST_CLEAR_ERRNO;
27       ret = wcscoll (ws1, ws2);
28       TST_SAVE_ERRNO;
29
30       if (debug_flg)
31         {
32           fprintf (stderr, "tst_wcscoll: ret = %d\n", ret);
33         }
34
35       cmp = TST_EXPECT (wcscoll).cmp_flg;
36       TST_IF_RETURN (S_WCSCOLL)
37       {
38         if (cmp != 0)
39           {
40             if ((cmp == 1 && ret > 0) || (cmp == -1 && ret < 0))
41               {
42                 Result (C_SUCCESS, S_WCSCOLL, CASE_3, MS_PASSED);
43               }
44             else
45               {
46                 err_count++;
47                 Result (C_FAILURE, S_WCSCOLL, CASE_3,
48                         "the return value should be positive "
49                         "/negative but it's negative/positive.");
50               }
51           }
52       }
53     }
54   }
55
56   return err_count;
57 }