79 lines
1.4 KiB
C
79 lines
1.4 KiB
C
/*
|
|
WCSCAT: wchar_t *wcscat (wchar_t *ws1, const wchar_t *ws2);
|
|
*/
|
|
|
|
#define TST_FUNCTION wcscat
|
|
|
|
#include "tsp_common.c"
|
|
#include "dat_wcscat.c"
|
|
|
|
int
|
|
tst_wcscat (FILE * fp, int debug_flg)
|
|
{
|
|
TST_DECL_VARS (wchar_t *);
|
|
wchar_t *ws1, *ws2, *ws_ex;
|
|
int i, err;
|
|
|
|
TST_DO_TEST (wcscat)
|
|
{
|
|
TST_HEAD_LOCALE (wcscat, S_WCSCAT);
|
|
TST_DO_REC (wcscat)
|
|
{
|
|
TST_GET_ERRET (wcscat);
|
|
ws1 = TST_INPUT (wcscat).ws1; /* external value: size WCSSIZE */
|
|
ws2 = TST_INPUT (wcscat).ws2;
|
|
|
|
TST_CLEAR_ERRNO;
|
|
ret = wcscat (ws1, ws2);
|
|
TST_SAVE_ERRNO;
|
|
|
|
TST_IF_RETURN (S_WCSCAT)
|
|
{
|
|
if (ret == ws1)
|
|
{
|
|
Result (C_SUCCESS, S_WCSCAT, CASE_3, MS_PASSED);
|
|
}
|
|
else
|
|
{
|
|
err_count++;
|
|
Result (C_FAILURE, S_WCSCAT, CASE_3,
|
|
"the return address may not be correct");
|
|
}
|
|
}
|
|
|
|
/* function specific test cases here */
|
|
|
|
if (ret == ws1)
|
|
{
|
|
ws_ex = TST_EXPECT (wcscat).ws;
|
|
for (err = 0, i = 0;
|
|
(ws1[i] != 0L || ws_ex[i] != 0L) && i < WCSSIZE; i++)
|
|
{
|
|
if (debug_flg)
|
|
{
|
|
fprintf (stdout, "tst_wcscat() : ws1[%d] = 0x%lx\n", i,
|
|
(unsigned long int) ws1[i]);
|
|
}
|
|
|
|
if (ws1[i] != ws_ex[i])
|
|
{
|
|
err++;
|
|
err_count++;
|
|
Result (C_FAILURE, S_WCSCAT, CASE_4,
|
|
"concatinated string is different from an "
|
|
"expected string");
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!err)
|
|
{
|
|
Result (C_SUCCESS, S_WCSCAT, CASE_4, MS_PASSED);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return err_count;
|
|
}
|