glibc/localedata/tests-mbwc/tst_strcoll.c

88 lines
1.7 KiB
C

/*
STRCOLL: int strcoll (const char *s1, const char *s2)
*/
#define TST_FUNCTION strcoll
#include "tsp_common.c"
#include "dat_strcoll.c"
int
tst_strcoll (FILE * fp, int debug_flg)
{
TST_DECL_VARS (int);
const char *s1, *s2;
TST_DO_TEST (strcoll)
{
TST_HEAD_LOCALE (strcoll, S_STRCOLL);
TST_DO_REC (strcoll)
{
TST_GET_ERRET (strcoll);
s1 = TST_INPUT (strcoll).s1;
s2 = TST_INPUT (strcoll).s2;
TST_CLEAR_ERRNO;
ret = strcoll (s1, s2);
TST_SAVE_ERRNO;
if (debug_flg)
{
fprintf (stdout, "strcoll() [ %s : %d ] ret = %d\n", locale,
rec + 1, ret);
fprintf (stdout, " errno = %d\n",
errno_save);
fprintf (stdout, " LC_COLLATE = %s\n",
(setlocale (LC_COLLATE, NULL)) ? setlocale (LC_COLLATE,
NULL) : "");
}
TST_IF_RETURN (S_STRCOLL)
{
if (ret_exp == +1)
{
if (ret > 0)
{
Result (C_SUCCESS, S_STRCOLL, CASE_3, MS_PASSED);
}
else
{
err_count++;
Result (C_FAILURE, S_STRCOLL, CASE_3,
"the return value should be greater than 0,"
" but is not ...");
}
}
else if (ret_exp == -1)
{
if (ret < 0)
{
Result (C_SUCCESS, S_STRCOLL, CASE_3, MS_PASSED);
}
else
{
err_count++;
Result (C_FAILURE, S_STRCOLL, CASE_3,
"the return value should less than 0, but not ...");
}
}
else if (ret_exp != 0)
{
if (debug_flg)
{
fprintf (stderr, "*** Warning *** : tst_strcoll : "
"(check the test data); should set ret_flg=1"
" to check a return value");
}
warn_count++;
Result (C_INVALID, S_WCSCHR, CASE_3, "(check the test data); "
"should set ret_flg=1 to check a return value");
}
}
}
}
return err_count;
}