/*
 * PROJECT:         ReactOS API tests
 * LICENSE:         LGPL-2.1-or-later (https://spdx.org/licenses/LGPL-2.1-or-later)
 * PURPOSE:         Tests for _mbsstr
 * COPYRIGHT:       Copyright 2024 Thomas Faber (thomas.faber@reactos.org)
 */

#include <apitest.h>
#include <mbstring.h>
#define WIN32_NO_STATUS
#include <pseh/pseh2.h>
#include <ndk/mmfuncs.h>

START_TEST(_mbsstr)
{
    unsigned char *haystack;
    unsigned char *ret;

    /* NULL pointers are not handled */
    StartSeh()
        (void)_mbsstr(NULL, NULL);
    EndSeh(STATUS_ACCESS_VIOLATION);

    StartSeh()
        haystack = "hello";
        (void)_mbsstr(haystack, NULL);
    EndSeh(STATUS_ACCESS_VIOLATION);

    StartSeh()
        haystack = "";
        (void)_mbsstr(haystack, NULL);
    EndSeh(STATUS_ACCESS_VIOLATION);

    /* Empty needle returns haystack, empty haystack returns NULL... */
    haystack = "hello";
    ret = _mbsstr(haystack, "");
    ok(ret == haystack, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "";
    ret = _mbsstr(haystack, "a");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);

    /* ... but if both are empty, behavior differs */
    haystack = "";
    ret = _mbsstr(haystack, "");
#ifdef TEST_CRTDLL
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);
#else
    ok(ret == haystack, "ret = %p, haystack = %p\n", ret, haystack);
#endif

    /* Simple "found" cases */
    haystack = "abcdefg";
    ret = _mbsstr(haystack, "abc");
    ok(ret == haystack, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "abcdefg";
    ret = _mbsstr(haystack, "g");
    ok(ret == haystack + 6, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "abcdefg";
    ret = _mbsstr(haystack, "abcdefg");
    ok(ret == haystack, "ret = %p, haystack = %p\n", ret, haystack);

    /* Simple "not found" cases */
    haystack = "abcdefg";
    ret = _mbsstr(haystack, "h");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "abcdefg";
    ret = _mbsstr(haystack, "gh");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "abcdefg";
    ret = _mbsstr(haystack, "abcD");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);

    /* Needle longer than haystack */
    haystack = "abcdefg";
    ret = _mbsstr(haystack, "abcdefgh");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);

    haystack = "abcdefg";
    ret = _mbsstr(haystack, "xxxxxxxx");
    ok(ret == NULL, "ret = %p, haystack = %p\n", ret, haystack);
}