glibc/localedata/tests-mbwc/tst_wcsstr.c
Andreas Jaeger 5b905722f6 * Makefile (tests): Add tests from tests-mbwc subdirectory,
comment them out for now. 
(subdir-dirs): New for tests-mbwc, add also vpaths.
	* Makefile (tests): Add tests from tests-mbwc subdirectory,
	comment them out for now.
	(subdir-dirs): New for tests-mbwc, add also vpaths.
2000-06-27 12:14:09 +00:00

86 lines
1.6 KiB
C

/*
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%x <-> 0x%x = ws2[ 0 ]\n",
ret[0], 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 < MBSSIZE; i++)
{
if (debug_flg)
{
fprintf (stderr,
" : ret[ %d ] = 0x%x <-> 0x%x = ws2[ %d ]\n", i,
ret[i], 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;
}