Adam Petaccia : mshtml: Test IHTMLScriptElement_put_type.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 9f303c89421d6e141d758eccdf893f9da38b1fc1
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=9f303c89421d6e141d758eccdf893f9da38b1fc1

Author: Adam Petaccia <adam at tpetaccia.com>
Date:   Thu Feb 25 16:55:27 2010 -0500

mshtml: Test IHTMLScriptElement_put_type.

---

 dlls/mshtml/tests/dom.c |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/dlls/mshtml/tests/dom.c b/dlls/mshtml/tests/dom.c
index f4f673c..25bf764 100644
--- 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 */