mshtml: Test IHTMLScriptElement_put_type.

9f303c89 · Adam Petaccia · Alexandre Julliard · a7c9ae4d · 9f303c89
Commit 9f303c89 authored Feb 25, 2010 by Adam Petaccia Committed by Alexandre Julliard Feb 26, 2010
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

dom.c dlls/mshtml/tests/dom.c +9 -0

No files found.
--- a/dlls/mshtml/tests/dom.c
+++ b/dlls/mshtml/tests/dom.c
@@ -5592,9 +5592,18 @@ static void test_elems(IHTMLDocument2 *doc)
        {
            VARIANT_BOOL vb;

+            hres = IHTMLScriptElement_put_type (script, NULL);
+            ok(hres == S_OK, "put_type failed: %08x\n", hres);
+            hres = IHTMLScriptElement_get_type(script, &type);
+            ok(hres == S_OK, "get_type failed: %08x\n", hres);
+            ok(type == NULL, "Unexpected type %s\n", wine_dbgstr_w(type));
+
+            hres = IHTMLScriptElement_put_type (script, a2bstr ("text/javascript"));
+            ok(hres == S_OK, "put_type failed: %08x\n", hres);
            hres = IHTMLScriptElement_get_type(script, &type);
            ok(hres == S_OK, "get_type failed: %08x\n", hres);
            ok(!strcmp_wa(type, "text/javascript"), "Unexpected type %s\n", wine_dbgstr_w(type));
+
            SysFreeString(type);

            /* test defer */