/*
 * Copyright 2006 Jacek Caban for CodeWeavers
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */

#define COBJMACROS

#include <wine/test.h>
#include <stdarg.h>

#include "windef.h"
#include "winbase.h"
#include "ole2.h"
#include "mshtml.h"
#include "initguid.h"
#include "optary.h"

static void test_HTMLLoadOptions(void)
{
    IHtmlLoadOptions *loadopts;
    BYTE buf[100];
    DWORD size, i, data = 0xdeadbeef;
    HRESULT hres;

    hres = CoCreateInstance(&CLSID_HTMLLoadOptions, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
            &IID_IHtmlLoadOptions, (void**)&loadopts);
    ok(hres == S_OK, "creating HTMLLoadOptions failed: %08lx\n", hres);
    if(FAILED(hres))
        return;

    for(i=0; i <= HTMLLOADOPTION_FRAMELOAD+3; i++) {
        size = 0xdeadbeef;
        memset(buf, 0xdd, sizeof(buf));
        hres = IHtmlLoadOptions_QueryOption(loadopts, i, NULL, &size);
        ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
        ok(size == 0, "size = %ld\n", size);
        ok(buf[0] == 0xdd, "buf changed\n");
    }

    size = 0xdeadbeef;
    hres = IHtmlLoadOptions_QueryOption(loadopts, HTMLLOADOPTION_CODEPAGE, NULL, &size);
    ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
    ok(size == 0, "size = %ld\n", size);

    hres = IHtmlLoadOptions_SetOption(loadopts, HTMLLOADOPTION_CODEPAGE, &data, sizeof(data));
    ok(hres == S_OK, "SetOption failed: %08lx\n", hres);

    size = sizeof(data);
    memset(buf, 0xdd, sizeof(buf));
    hres = IHtmlLoadOptions_QueryOption(loadopts, HTMLLOADOPTION_CODEPAGE, buf, &size);
    ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
    ok(size == sizeof(data), "size = %ld\n", size);
    ok(*(DWORD*)buf == data, "unexpected buf\n");

    size = sizeof(data)-1;
    memset(buf, 0xdd, sizeof(buf));
    hres = IHtmlLoadOptions_QueryOption(loadopts, HTMLLOADOPTION_CODEPAGE, buf, &size);
    ok(hres == E_FAIL, "QueryOption failed: %08lx\n", hres);
    ok(size == sizeof(data) || !size, "size = %ld\n", size);
    ok(buf[0] == 0xdd, "buf changed\n");

    data = 100;
    hres = IHtmlLoadOptions_SetOption(loadopts, HTMLLOADOPTION_CODEPAGE, &data, 0);
    ok(hres == S_OK, "SetOption failed: %08lx\n", hres);

    size = 0xdeadbeef; 
    memset(buf, 0xdd, sizeof(buf));
    hres = IHtmlLoadOptions_QueryOption(loadopts, HTMLLOADOPTION_CODEPAGE, buf, &size);
    ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
    ok(size == 0, "size = %ld\n", size);
    ok(buf[0] == 0xdd, "buf changed\n");

    hres = IHtmlLoadOptions_SetOption(loadopts, HTMLLOADOPTION_CODEPAGE, NULL, 0);
    ok(hres == S_OK, "SetOption failed: %08lx\n", hres);

    hres = IHtmlLoadOptions_SetOption(loadopts, 1000, &data, sizeof(data));
    ok(hres == S_OK, "SetOption failed: %08lx\n", hres);

    size = sizeof(data);
    memset(buf, 0xdd, sizeof(buf));
    hres = IHtmlLoadOptions_QueryOption(loadopts, 1000, buf, &size);
    ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
    ok(size == sizeof(data), "size = %ld\n", size);
    ok(*(DWORD*)buf == data, "unexpected buf\n");

    hres = IHtmlLoadOptions_SetOption(loadopts, 1000, buf, sizeof(buf));
    ok(hres == S_OK, "SetOption failed: %08lx\n", hres);

    size = 0xdeadbeef;
    hres = IHtmlLoadOptions_QueryOption(loadopts, 1000, buf, &size);
    ok(hres == S_OK, "QueryOption failed: %08lx\n", hres);
    ok(size == sizeof(buf), "size = %ld\n", size);

    IHtmlLoadOptions_Release(loadopts);
}

static IHTMLDocument2 *create_doc_from_url(const WCHAR *start_url)
{
    BSTR url;
    IBindCtx *bc;
    IMoniker *url_mon;
    IPersistMoniker *persist_mon;
    IHTMLDocument2 *doc;
    HRESULT hres;

    hres = CreateBindCtx(0, &bc);
    ok(hres == S_OK, "CreateBindCtx failed: 0x%08lx\n", hres);

    url = SysAllocString(start_url);
    hres = CreateURLMoniker(NULL, url, &url_mon);
    ok(hres == S_OK, "CreateURLMoniker failed: 0x%08lx\n", hres);

    hres = CoCreateInstance(&CLSID_HTMLDocument, NULL,
            CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER, &IID_IHTMLDocument2,
            (void**)&doc);
    ok(hres == S_OK, "CoCreateInstance failed: 0x%08lx\n", hres);

    hres = IHTMLDocument2_QueryInterface(doc, &IID_IPersistMoniker,
            (void**)&persist_mon);
    ok(hres == S_OK, "IHTMLDocument2_QueryInterface failed: 0x%08lx\n", hres);

    hres = IPersistMoniker_Load(persist_mon, FALSE, url_mon, bc,
            STGM_SHARE_EXCLUSIVE | STGM_READWRITE);
    ok(hres == S_OK, "IPersistMoniker_Load failed: 0x%08lx\n", hres);

    IPersistMoniker_Release(persist_mon);
    IMoniker_Release(url_mon);
    IBindCtx_Release(bc);
    SysFreeString(url);
    return doc;
}

static HRESULT get_localstorage(IHTMLDocument2 *doc, IHTMLStorage **storage)
{
    IHTMLWindow2 *window;
    IHTMLWindow6 *window6;
    HRESULT hres;

    hres = IHTMLDocument2_get_parentWindow(doc, &window);
    ok(hres == S_OK, "get_parentWindow failed: %08lx\n", hres);
    ok(window != NULL, "window == NULL\n");

    hres = IHTMLWindow2_QueryInterface(window, &IID_IHTMLWindow6, (void**)&window6);
    IHTMLWindow2_Release(window);
    if(FAILED(hres)) {
        win_skip("IHTMLWindow6 not supported\n");
        return hres;
    }

    hres = IHTMLWindow6_get_localStorage(window6, storage);

    /* w10pro64 testbot VM sometimes returns this for some reason */
    if(hres == WININET_E_INTERNAL_ERROR)
        win_skip("localStorage is buggy and not available, skipping tests\n");
    else {
        ok(hres == S_OK, "get_localStorage failed: %08lx\n", hres);
        ok(*storage != NULL, "*storage == NULL\n");
    }

    IHTMLWindow6_Release(window6);
    return hres;
}

static HRESULT get_sessionstorage(IHTMLDocument2 *doc, IHTMLStorage **storage)
{
    IHTMLWindow2 *window;
    IHTMLWindow6 *window6;
    HRESULT hres;

    hres = IHTMLDocument2_get_parentWindow(doc, &window);
    ok(hres == S_OK, "get_parentWindow failed: %08lx\n", hres);
    ok(window != NULL, "window == NULL\n");

    hres = IHTMLWindow2_QueryInterface(window, &IID_IHTMLWindow6, (void**)&window6);
    IHTMLWindow2_Release(window);
    if(FAILED(hres)) {
        win_skip("IHTMLWindow6 not supported\n");
        return hres;
    }

    hres = IHTMLWindow6_get_sessionStorage(window6, storage);
    ok(hres == S_OK, "get_sessionStorage failed: %08lx\n", hres);
    ok(*storage != NULL, "*storage == NULL\n");

    IHTMLWindow6_Release(window6);
    return hres;
}

static void test_HTMLStorage(void)
{
    IHTMLDocument2 *doc, *doc2;
    IHTMLStorage *storage, *storage2;
    LONG space, length, lval;
    VARIANT var;
    BSTR key, value;
    HRESULT hres;

    doc = create_doc_from_url(L"http://www.codeweavers.com/");
    doc2 = create_doc_from_url(L"http://www.codeweavers.com/");

    hres = get_localstorage(doc, &storage);
    if(hres != S_OK) {
        IHTMLDocument2_Release(doc2);
        IHTMLDocument2_Release(doc);
        return;
    }

    hres = get_localstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    key = SysAllocString(L"");
    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));

    key = SysAllocString(L"undefined");
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);

    hres = IHTMLStorage_get_length(storage, &length);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(length >= 0, "length = %ld\n", length);

    value = SysAllocString(L"null");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    if (V_VT(&var) == VT_BSTR) ok(!wcscmp(V_BSTR(&var), L"null"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 0, &key);
    ok(hres == S_OK, "key failed %08lx\n", hres);
    ok(!wcscmp(key, L"undefined"), "key(0) = %s\n", wine_dbgstr_w(key));
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 1, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);
    hres = IHTMLStorage_key(storage, -1, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);

    key = SysAllocString(L"undefined");
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(key);
    SysFreeString(value);

    key = SysAllocString(L"winetest");
    value = SysAllocString(L"winetest");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    /* retrieve value from different storage instance */
    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    if (V_VT(&var) == VT_BSTR) ok(!wcscmp(V_BSTR(&var), L"winetest"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));

    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
    SysFreeString(key);
    SysFreeString(value);

    /* item doesn't exist */
    key = SysAllocString(L"nosuch");
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));

    hres = IHTMLStorage_getItem(storage, NULL, NULL);
    ok(hres == E_POINTER, "getItem returned: %08lx\n", hres);

    hres = IHTMLStorage_getItem(storage, key, NULL);
    ok(hres == E_POINTER, "getItem failed: %08lx\n", hres);
    SysFreeString(key);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, NULL, &var);
    ok(hres == S_OK, "getItem returned: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));

    hres = IHTMLStorage_setItem(storage, NULL, NULL);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    key = SysAllocString(L"winetest2");
    hres = IHTMLStorage_setItem(storage, key, NULL);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    hres = IHTMLStorage_setItem(storage, NULL, key);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(key);

    hres = IHTMLStorage_removeItem(storage, NULL);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);

    /* Unicode characters */
    key = SysAllocString(L"winetest");
    value = SysAllocString(L"\x20ac");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(value);
    SysFreeString(key);

    key = SysAllocString(L"\x20ac");
    value = SysAllocString(L"winetest");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(value);
    SysFreeString(key);

    IHTMLStorage_Release(storage);
    IHTMLStorage_Release(storage2);

    /* Session storage on same docs */
    hres = get_sessionstorage(doc, &storage);
    ok(hres == S_OK, "got %08lx\n", hres);

    hres = get_sessionstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    hres = IHTMLStorage_get_length(storage, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 0, "length = %ld\n", lval);

    hres = IHTMLStorage_get_remainingSpace(storage, &space);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(space >= 5000000, "remainingSpace = %ld\n", space);

    key = SysAllocString(L"");
    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
    SysFreeString(key);

    key = SysAllocString(L"undefined");
    hres = IHTMLStorage_removeItem(storage, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);

    value = SysAllocString(L"null");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);
    SysFreeString(value);

    hres = IHTMLStorage_get_length(storage, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 1, "length = %ld\n", lval);
    hres = IHTMLStorage_get_length(storage2, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 1, "length = %ld\n", lval);

    hres = IHTMLStorage_get_remainingSpace(storage, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space - 13, "remainingSpace = %ld\n", lval);
    hres = IHTMLStorage_get_remainingSpace(storage2, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space - 13, "remainingSpace = %ld\n", lval);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"null"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"null"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);
    SysFreeString(key);

    value = SysAllocString(L"asdf");
    hres = IHTMLStorage_setItem(storage, NULL, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);
    SysFreeString(value);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, NULL, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"asdf"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    V_VT(&var) = 0xdead;
    key = SysAllocString(L"");
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"asdf"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);
    SysFreeString(key);

    key = SysAllocString(L"null-value");
    hres = IHTMLStorage_setItem(storage, key, NULL);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L""), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    hres = IHTMLStorage_removeItem(storage, NULL);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    hres = IHTMLStorage_removeItem(storage2, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(key);

    key = SysAllocString(L"aaaa");
    value = SysAllocString(L"bbbb");
    hres = IHTMLStorage_setItem(storage2, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);
    SysFreeString(value);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"bbbb"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);
    SysFreeString(key);

    hres = IHTMLStorage_get_length(storage, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 2, "length = %ld\n", lval);
    hres = IHTMLStorage_get_length(storage2, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 2, "length = %ld\n", lval);

    hres = IHTMLStorage_get_remainingSpace(storage, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space - 21, "remainingSpace = %ld\n", lval);
    hres = IHTMLStorage_get_remainingSpace(storage2, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space - 21, "remainingSpace = %ld\n", lval);

    hres = IHTMLStorage_key(storage, 0, &key);
    ok(hres == S_OK, "key failed %08lx\n", hres);
    ok(!wcscmp(key, L"undefined"), "key(0) = %s\n", wine_dbgstr_w(key));
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 1, &key);
    ok(hres == S_OK, "key failed %08lx\n", hres);
    ok(!wcscmp(key, L"aaaa"), "key(0) = %s\n", wine_dbgstr_w(key));
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 2, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);
    hres = IHTMLStorage_key(storage, -1, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);

    key = SysAllocString(L"undefined");
    hres = IHTMLStorage_removeItem(storage2, key);
    ok(hres == S_OK, "removeItem failed: %08lx\n", hres);
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 0, &key);
    ok(hres == S_OK, "key failed %08lx\n", hres);
    ok(!wcscmp(key, L"aaaa"), "key(0) = %s\n", wine_dbgstr_w(key));
    SysFreeString(key);

    hres = IHTMLStorage_key(storage, 1, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);

    V_VT(&var) = 0xdead;
    key = SysAllocString(L"undefined");
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
    SysFreeString(key);

    hres = IHTMLStorage_clear(storage2);
    ok(hres == S_OK, "clear failed %08lx\n", hres);

    hres = IHTMLStorage_get_length(storage, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 0, "length = %ld\n", lval);
    hres = IHTMLStorage_get_length(storage2, &lval);
    ok(hres == S_OK, "get_length failed %08lx\n", hres);
    ok(lval == 0, "length = %ld\n", lval);

    hres = IHTMLStorage_get_remainingSpace(storage, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space, "remainingSpace = %ld\n", lval);
    hres = IHTMLStorage_get_remainingSpace(storage2, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space, "remainingSpace = %ld\n", lval);

    hres = IHTMLStorage_key(storage, 0, &key);
    ok(hres == E_INVALIDARG, "key failed %08lx\n", hres);

    key = SysAllocString(L"foo");
    value = SysAllocString(L"bar");
    hres = IHTMLStorage_setItem(storage, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    IHTMLStorage_Release(storage2);
    IHTMLDocument2_Release(doc2);

    /* Case insensitive domain */
    doc2 = create_doc_from_url(L"htTp://www.CodeWeavers.com/");
    hres = get_sessionstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"bar"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    IHTMLStorage_Release(storage2);
    IHTMLDocument2_Release(doc2);

    /* Different schemes */
    doc2 = create_doc_from_url(L"https://www.codeweavers.com/");
    hres = get_sessionstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"bar"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    hres = IHTMLStorage_get_remainingSpace(storage, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space - 6, "remainingSpace = %ld\n", lval);

    IHTMLStorage_Release(storage2);
    IHTMLDocument2_Release(doc2);

    doc2 = create_doc_from_url(L"ftp://www.codeweavers.com/");
    hres = get_sessionstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));

    hres = IHTMLStorage_get_remainingSpace(storage2, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space, "remainingSpace = %ld\n", lval);

    hres = IHTMLStorage_setItem(storage2, key, value);
    ok(hres == S_OK, "setItem failed: %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"bar"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);

    hres = IHTMLStorage_clear(storage2);
    ok(hres == S_OK, "clear failed %08lx\n", hres);

    IHTMLStorage_Release(storage2);
    IHTMLDocument2_Release(doc2);

    /* Different domain */
    doc2 = create_doc_from_url(L"https://www.winehq.org/");
    hres = get_sessionstorage(doc2, &storage2);
    ok(hres == S_OK, "got %08lx\n", hres);

    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_BSTR, "got %d\n", V_VT(&var));
    ok(!wcscmp(V_BSTR(&var), L"bar"), "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);
    V_VT(&var) = 0xdead;
    hres = IHTMLStorage_getItem(storage2, key, &var);
    ok(hres == S_OK, "getItem failed: %08lx\n", hres);
    ok(V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));

    hres = IHTMLStorage_get_remainingSpace(storage2, &lval);
    ok(hres == S_OK, "get_remainingSpace failed %08lx\n", hres);
    ok(lval == space, "remainingSpace = %ld\n", lval);

    hres = IHTMLStorage_clear(storage);
    ok(hres == S_OK, "clear failed %08lx\n", hres);

    IHTMLStorage_Release(storage2);
    IHTMLStorage_Release(storage);
    IHTMLDocument2_Release(doc2);
    IHTMLDocument2_Release(doc);
    SysFreeString(value);
    SysFreeString(key);
}

START_TEST(misc)
{
    CoInitialize(NULL);

    test_HTMLLoadOptions();
    test_HTMLStorage();

    CoUninitialize();
}