/*------------------------------------------------------------------
 * test_wmemcpy_s
 * File 'wchar/wmemcpy_s.c'
 * Lines executed:82.61% of 23
 *
 *------------------------------------------------------------------
 */

#include "test_private.h"
#include "test_expmem.h"

#ifdef HAVE_WMEMCPY_S
#define HAVE_NATIVE 1
#else
#define HAVE_NATIVE 0
#endif
#include "test_msvcrt.h"

#define LEN (1024)

int main(void) {
    errno_t rc;
    uint32_t len;
    uint32_t i;

    wchar_t mem1[LEN];
    wchar_t mem2[LEN];
    int errs = 0;

    /*--------------------------------------------------*/
    print_msvcrt(use_msvcrt);

#ifndef HAVE_CT_BOS_OVR
    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    EXPECT_BOS("dest overflow or empty")
    rc = wmemcpy_s(NULL, LEN, mem2, LEN);
    init_msvcrt(rc == ESNULLP, &use_msvcrt);
    ERR_MSVC(ESNULLP, EINVAL); /* and untouched */
    EXPMEM(mem1, 0, LEN, 33, sizeof(wchar_t));
    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    EXPECT_BOS("dest overflow or empty")
    rc = wmemcpy_s(mem1, 0, mem2, LEN);
    ERR_MSVC(ESZEROL, ERANGE); /* and untouched */
    EXPMEM(mem1, 0, LEN, 33, sizeof(wchar_t));
    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }
    EXPECT_BOS("dest overflow or empty")
    rc = wmemcpy_s(mem1, RSIZE_MAX_WMEM + 1, mem2, LEN);
    ERR_MSVC(ESLEMAX, 0); /* and untouched */
    if (!use_msvcrt)
        EXPMEM(mem1, 0, LEN, 33, sizeof(wchar_t));

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    EXPECT_BOS("src overflow or empty")
    rc = wmemcpy_s(mem1, LEN, NULL, LEN);
    ERR_MSVC(ESNULLP, EINVAL); /* and cleared */
    EXPMEM(mem1, 0, LEN, 0, sizeof(wchar_t));
    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    EXPECT_BOS("src overflow or empty")
    rc = wmemcpy_s(mem1, LEN, mem2, RSIZE_MAX_WMEM + 1);
    ERR_MSVC(ESLEMAX, ERANGE); /* and cleared */
    EXPMEM(mem1, 0, LEN, 0, sizeof(wchar_t));
#endif
    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }
    rc = wmemcpy_s(mem1, 10, mem2, 0);
    ERR(EOK); /* and untouched */
    EXPMEM(mem1, 0, 10, 33, sizeof(wchar_t));

    rc = wmemcpy_s(NULL, 10, mem2, 0);
    ERR(EOK);

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    len = 1;
    rc = wmemcpy_s(mem1, len, mem2, len);
    ERR(EOK); /* and copied */
    EXPMEM(mem1, 0, len, 44, sizeof(wchar_t));

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    len = 2;
    rc = wmemcpy_s(mem1, len, mem2, len);
    ERR(EOK); /* and copied */
    EXPMEM(mem1, 0, len, 44, sizeof(wchar_t));

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    /* slen greater than dmax */
    len = LEN / sizeof(wchar_t);
    rc = wmemcpy_s(mem1, len, mem2, LEN);
    ERR_MSVC(ESNOSPC, ERANGE); /* and cleared */
    /* verify mem1 was zeroed */
    EXPMEM(mem1, 0, len, 0, sizeof(wchar_t));

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    rc = wmemcpy_s(mem1, LEN, mem2, 0);
    ERR(EOK); /* and untouched */
    EXPMEM(mem1, 0, LEN, 33, sizeof(wchar_t));

    /*--------------------------------------------------*/

#ifndef HAVE_CT_BOS_OVR
    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    EXPECT_BOS("src overflow or empty")
    rc = wmemcpy_s(mem1, LEN, mem2, RSIZE_MAX_MEM16 + 1);
    ERR_MSVC(ESLEMAX, ERANGE); /* and cleared */
    EXPMEM(mem1, 0, LEN, 0, sizeof(wchar_t));
#endif
    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 55;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 65;
    }

    /* same ptr - no move */
    GCC_PUSH_WARN_RESTRICT
    rc = wmemcpy_s(mem1, LEN, mem1, LEN);
    GCC_POP_WARN_RESTRICT
    ERR(EOK); /* and untouched */
    EXPMEM(mem1, 0, LEN, 55, sizeof(wchar_t));
    /*--------------------------------------------------*/

    for (i = 0; i < 100; i++) {
        mem1[i] = 25;
    }
    for (i = 10; i < 100; i++) {
        mem1[i] = 35;
    }

    /* overlap */
    rc = wmemcpy_s(&mem1[0], 100, &mem1[10], 100);
    ERR_MSVC(ESOVRLP, 0);
    if (!use_msvcrt) {
        /* verify mem1 was zeroed */
        EXPMEM(mem1, 0, 100, 0, sizeof(wchar_t));
    }

    /*--------------------------------------------------*/

    for (i = 0; i < 100; i++) {
        mem1[i] = 25;
    }
    for (i = 10; i < 100; i++) {
        mem1[i] = 45;
    }

    /* overlap error */
    rc = wmemcpy_s(&mem1[10], 100, &mem1[0], 100);
    ERR_MSVC(ESOVRLP, 0);
    if (!use_msvcrt) {
        /* verify mem1 was zeroed */
        EXPMEM(mem1, 10, 100, 0, sizeof(wchar_t));
    }

    /*--------------------------------------------------*/

    for (i = 0; i < LEN; i++) {
        mem1[i] = 33;
    }
    for (i = 0; i < LEN; i++) {
        mem2[i] = 44;
    }

    rc = wmemcpy_s(mem1, LEN, mem2, LEN / 2);
    ERR(EOK); /* and copied */
    EXPMEM(mem1, 0, LEN / 2, 44, sizeof(wchar_t));

    /*--------------------------------------------------*/

    return (errs);
}