glibc/localedata/tests-mbwc/tst_wcscpy.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

85 lines
1.7 KiB
C

/*-------------------------------------------------------------------------------------*/
/* WCSCPY: wchar_t *wcscpy( wchar_t *ws1, const wchar_t *ws2 ) */
/*-------------------------------------------------------------------------------------*/
#define TST_FUNCTION wcscpy
#include "tsp_common.c"
#include "dat_wcscpy.c"
int
tst_wcscpy (FILE * fp, int debug_flg)
{
TST_DECL_VARS (wchar_t *);
wchar_t ws1[WCSSIZE], *ws2, *ws_ex;
int err, i;
TST_DO_TEST (wcscpy)
{
TST_HEAD_LOCALE (wcscpy, S_WCSCPY);
TST_DO_REC (wcscpy)
{
TST_GET_ERRET (wcscpy);
ws2 = TST_INPUT (wcscpy).ws; /* external value: size WCSSIZE */
ret = wcscpy (ws1, ws2);
TST_IF_RETURN (S_WCSCPY)
{
if (ret == ws1)
{
Result (C_SUCCESS, S_WCSCPY, CASE_3, MS_PASSED);
}
else
{
err_count++;
Result (C_FAILURE, S_WCSCPY, CASE_3,
"the return address may not be correct");
}
}
if (ret == ws1)
{
ws_ex = TST_EXPECT (wcscpy).ws;
for (err = 0, i = 0;
(ws1[i] != 0L || ws_ex[i] != 0L) && i < WCSSIZE; i++)
{
if (debug_flg)
{
fprintf (stderr,
"ws1[ %d ] = 0x%x <-> wx_ex[ %d ] = 0x%x\n", i,
ws1[i], i, ws_ex[i]);
}
if (ws1[i] != ws_ex[i])
{
err++;
err_count++;
Result (C_FAILURE, S_WCSCPY, CASE_4,
"copied string is different from an"
" expected string");
break;
}
}
if (!err)
{
Result (C_SUCCESS, S_WCSCPY, CASE_4, MS_PASSED);
}
if (ws1[i] == 0L)
{
Result (C_SUCCESS, S_WCSCPY, CASE_5, MS_PASSED);
}
else
{
err_count++;
Result (C_FAILURE, S_WCSCPY, CASE_5,
"copied string is not null-terminated");
}
}
}
}
return err_count;
}