dlls/mshtml/tests/dom.c

   1 /*
   2  * Copyright 2007-2008 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #define COBJMACROS
  20 #define CONST_VTABLE
  21
  22 #include <wine/test.h>
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "ole2.h"
  29 #include "mshtml.h"
  30 #include "mshtmcid.h"
  31 #include "mshtmhst.h"
  32 #include "docobj.h"
  33 #include "dispex.h"
  34
  35 static const char doc_blank[] = "<html></html>";
  36 static const char doc_str1[] = "<html><body>test</body></html>";
  37 static const char range_test_str[] =
  38     "<html><body>test \na<font size=\"2\">bc\t123<br /> it's\r\n  \t</font>text<br /></body></html>";
  39 static const char range_test2_str[] =
  40     "<html><body>abc<hr />123<br /><hr />def</body></html>";
  41 static const char elem_test_str[] =
  42     "<html><head><title>test</title><style>.body { margin-right: 0px; }</style>"
  43     "<body onload=\"Testing()\">text test<!-- a comment -->"
  44     "<a href=\"http://test\" name=\"x\">link</a>"
  45     "<input id=\"in\" class=\"testclass\" tabIndex=\"2\" title=\"test title\" />"
  46     "<select id=\"s\"><option id=\"x\" value=\"val1\">opt1</option><option id=\"y\">opt2</option></select>"
  47     "<textarea id=\"X\">text text</textarea>"
  48     "<table id=\"tbl\"><tbody><tr></tr><tr id=\"row2\"><td>td1 text</td><td>td2 text</td></tr></tbody></table>"
  49     "<script id=\"sc\" type=\"text/javascript\"><!--\nfunction Testing() {}\n// -->\n</script>"
  50     "<test />"
  51     "<img id=\"imgid\"/>"
  52     "<iframe src=\"about:blank\" id=\"ifr\"></iframe>"
  53     "</body></html>";
  54 static const char indent_test_str[] =
  55     "<html><head><title>test</title></head><body>abc<br /><a href=\"about:blank\">123</a></body></html>";
  56 static const char cond_comment_str[] =
  57     "<html><head><title>test</title></head><body>"
  58     "<!--[if gte IE 4]> <br> <![endif]-->"
  59     "</body></html>";
  60
  61 static WCHAR characterW[] = {'c','h','a','r','a','c','t','e','r',0};
  62 static WCHAR texteditW[] = {'t','e','x','t','e','d','i','t',0};
  63 static WCHAR wordW[] = {'w','o','r','d',0};
  64
  65 typedef enum {
  66     ET_NONE,
  67     ET_HTML,
  68     ET_HEAD,
  69     ET_TITLE,
  70     ET_BODY,
  71     ET_A,
  72     ET_INPUT,
  73     ET_SELECT,
  74     ET_TEXTAREA,
  75     ET_OPTION,
  76     ET_STYLE,
  77     ET_BLOCKQUOTE,
  78     ET_P,
  79     ET_BR,
  80     ET_TABLE,
  81     ET_TBODY,
  82     ET_SCRIPT,
  83     ET_TEST,
  84     ET_TESTG,
  85     ET_COMMENT,
  86     ET_IMG,
  87     ET_TR,
  88     ET_TD,
  89     ET_IFRAME
  90 } elem_type_t;
  91
  92 static const IID * const none_iids[] = {
  93     &IID_IUnknown,
  94     NULL
  95 };
  96
  97 static const IID * const elem_iids[] = {
  98     &IID_IHTMLDOMNode,
  99     &IID_IHTMLDOMNode2,
 100     &IID_IHTMLElement,
 101     &IID_IHTMLElement2,
 102     &IID_IHTMLElement3,
 103     &IID_IDispatchEx,
 104     &IID_IConnectionPointContainer,
 105     NULL
 106 };
 107
 108 static const IID * const body_iids[] = {
 109     &IID_IHTMLDOMNode,
 110     &IID_IHTMLDOMNode2,
 111     &IID_IHTMLElement,
 112     &IID_IHTMLElement2,
 113     &IID_IHTMLElement3,
 114     &IID_IHTMLTextContainer,
 115     &IID_IHTMLBodyElement,
 116     &IID_IDispatchEx,
 117     &IID_IConnectionPointContainer,
 118     NULL
 119 };
 120
 121 static const IID * const anchor_iids[] = {
 122     &IID_IHTMLDOMNode,
 123     &IID_IHTMLDOMNode2,
 124     &IID_IHTMLElement,
 125     &IID_IHTMLElement2,
 126     &IID_IHTMLElement3,
 127     &IID_IHTMLAnchorElement,
 128     &IID_IDispatchEx,
 129     &IID_IConnectionPointContainer,
 130     NULL
 131 };
 132
 133 static const IID * const input_iids[] = {
 134     &IID_IHTMLDOMNode,
 135     &IID_IHTMLDOMNode2,
 136     &IID_IHTMLElement,
 137     &IID_IHTMLElement2,
 138     &IID_IHTMLElement3,
 139     &IID_IHTMLInputElement,
 140     &IID_IHTMLInputTextElement,
 141     &IID_IDispatchEx,
 142     &IID_IConnectionPointContainer,
 143     NULL
 144 };
 145
 146 static const IID * const select_iids[] = {
 147     &IID_IHTMLDOMNode,
 148     &IID_IHTMLDOMNode2,
 149     &IID_IHTMLElement,
 150     &IID_IHTMLElement2,
 151     &IID_IHTMLElement3,
 152     &IID_IHTMLSelectElement,
 153     &IID_IDispatchEx,
 154     &IID_IConnectionPointContainer,
 155     NULL
 156 };
 157
 158 static const IID * const textarea_iids[] = {
 159     &IID_IHTMLDOMNode,
 160     &IID_IHTMLDOMNode2,
 161     &IID_IHTMLElement,
 162     &IID_IHTMLElement2,
 163     &IID_IHTMLElement3,
 164     &IID_IHTMLTextAreaElement,
 165     &IID_IDispatchEx,
 166     &IID_IConnectionPointContainer,
 167     NULL
 168 };
 169
 170 static const IID * const option_iids[] = {
 171     &IID_IHTMLDOMNode,
 172     &IID_IHTMLDOMNode2,
 173     &IID_IHTMLElement,
 174     &IID_IHTMLElement2,
 175     &IID_IHTMLElement3,
 176     &IID_IHTMLOptionElement,
 177     &IID_IDispatchEx,
 178     &IID_IConnectionPointContainer,
 179     NULL
 180 };
 181
 182 static const IID * const table_iids[] = {
 183     &IID_IHTMLDOMNode,
 184     &IID_IHTMLDOMNode2,
 185     &IID_IHTMLElement,
 186     &IID_IHTMLElement2,
 187     &IID_IHTMLElement3,
 188     &IID_IHTMLTable,
 189     &IID_IDispatchEx,
 190     &IID_IConnectionPointContainer,
 191     NULL
 192 };
 193
 194 static const IID * const script_iids[] = {
 195     &IID_IHTMLDOMNode,
 196     &IID_IHTMLDOMNode2,
 197     &IID_IHTMLElement,
 198     &IID_IHTMLElement2,
 199     &IID_IHTMLElement3,
 200     &IID_IHTMLScriptElement,
 201     &IID_IDispatchEx,
 202     &IID_IConnectionPointContainer,
 203     NULL
 204 };
 205
 206 static const IID * const text_iids[] = {
 207     &IID_IHTMLDOMNode,
 208     &IID_IHTMLDOMNode2,
 209     &IID_IHTMLDOMTextNode,
 210     NULL
 211 };
 212
 213 static const IID * const location_iids[] = {
 214     &IID_IDispatch,
 215     &IID_IHTMLLocation,
 216     NULL
 217 };
 218
 219 static const IID * const window_iids[] = {
 220     &IID_IDispatch,
 221     &IID_IHTMLWindow2,
 222     &IID_IHTMLWindow3,
 223     &IID_IDispatchEx,
 224     NULL
 225 };
 226
 227 static const IID * const comment_iids[] = {
 228     &IID_IHTMLDOMNode,
 229     &IID_IHTMLDOMNode2,
 230     &IID_IHTMLElement,
 231     &IID_IHTMLElement2,
 232     &IID_IHTMLElement3,
 233     &IID_IHTMLCommentElement,
 234     &IID_IDispatchEx,
 235     &IID_IConnectionPointContainer,
 236     NULL
 237 };
 238
 239 static const IID * const img_iids[] = {
 240     &IID_IHTMLDOMNode,
 241     &IID_IHTMLDOMNode2,
 242     &IID_IHTMLElement,
 243     &IID_IHTMLElement2,
 244     &IID_IHTMLElement3,
 245     &IID_IDispatchEx,
 246     &IID_IHTMLImgElement,
 247     &IID_IConnectionPointContainer,
 248     NULL
 249 };
 250
 251 static const IID * const tr_iids[] = {
 252     &IID_IHTMLDOMNode,
 253     &IID_IHTMLDOMNode2,
 254     &IID_IHTMLElement,
 255     &IID_IHTMLElement2,
 256     &IID_IHTMLElement3,
 257     &IID_IDispatchEx,
 258     &IID_IHTMLTableRow,
 259     &IID_IConnectionPointContainer,
 260     NULL
 261 };
 262
 263 static const IID * const td_iids[] = {
 264     &IID_IHTMLDOMNode,
 265     &IID_IHTMLDOMNode2,
 266     &IID_IHTMLElement,
 267     &IID_IHTMLElement2,
 268     &IID_IHTMLElement3,
 269     &IID_IDispatchEx,
 270     &IID_IConnectionPointContainer,
 271     NULL
 272 };
 273
 274 static const IID * const iframe_iids[] = {
 275     &IID_IHTMLDOMNode,
 276     &IID_IHTMLDOMNode2,
 277     &IID_IHTMLElement,
 278     &IID_IHTMLElement2,
 279     &IID_IHTMLElement3,
 280     &IID_IHTMLFrameBase2,
 281     &IID_IDispatchEx,
 282     &IID_IConnectionPointContainer,
 283     NULL
 284 };
 285
 286 static const IID * const generic_iids[] = {
 287     &IID_IHTMLDOMNode,
 288     &IID_IHTMLDOMNode2,
 289     &IID_IHTMLElement,
 290     &IID_IHTMLElement2,
 291     &IID_IHTMLElement3,
 292     &IID_IHTMLGenericElement,
 293     &IID_IDispatchEx,
 294     &IID_IConnectionPointContainer,
 295     NULL
 296 };
 297
 298 static const IID * const style_iids[] = {
 299     &IID_IUnknown,
 300     &IID_IDispatch,
 301     &IID_IDispatchEx,
 302     &IID_IHTMLStyle,
 303     &IID_IHTMLStyle2,
 304     &IID_IHTMLStyle3,
 305     &IID_IHTMLStyle4,
 306     NULL
 307 };
 308
 309 static const IID * const cstyle_iids[] = {
 310     &IID_IUnknown,
 311     &IID_IDispatch,
 312     &IID_IDispatchEx,
 313     &IID_IHTMLCurrentStyle,
 314     NULL
 315 };
 316
 317 typedef struct {
 318     const char *tag;
 319     REFIID *iids;
 320     const IID *dispiid;
 321 } elem_type_info_t;
 322
 323 static const elem_type_info_t elem_type_infos[] = {
 324     {"",          none_iids,        NULL},
 325     {"HTML",      elem_iids,        NULL},
 326     {"HEAD",      elem_iids,        NULL},
 327     {"TITLE",     elem_iids,        NULL},
 328     {"BODY",      body_iids,        &DIID_DispHTMLBody},
 329     {"A",         anchor_iids,      NULL},
 330     {"INPUT",     input_iids,       &DIID_DispHTMLInputElement},
 331     {"SELECT",    select_iids,      &DIID_DispHTMLSelectElement},
 332     {"TEXTAREA",  textarea_iids,    NULL},
 333     {"OPTION",    option_iids,      &DIID_DispHTMLOptionElement},
 334     {"STYLE",     elem_iids,        NULL},
 335     {"BLOCKQUOTE",elem_iids,        NULL},
 336     {"P",         elem_iids,        NULL},
 337     {"BR",        elem_iids,        NULL},
 338     {"TABLE",     table_iids,       &DIID_DispHTMLTable},
 339     {"TBODY",     elem_iids,        NULL},
 340     {"SCRIPT",    script_iids,      NULL},
 341     {"TEST",      elem_iids,        &DIID_DispHTMLUnknownElement},
 342     {"TEST",      generic_iids,     &DIID_DispHTMLGenericElement},
 343     {"!",         comment_iids,     &DIID_DispHTMLCommentElement},
 344     {"IMG",       img_iids,         &DIID_DispHTMLImg},
 345     {"TR",        tr_iids,          &DIID_DispHTMLTableRow},
 346     {"TD",        td_iids,          NULL},
 347     {"IFRAME",    iframe_iids,      &DIID_DispHTMLIFrame}
 348 };
 349
 350 static const char *dbgstr_guid(REFIID riid)
 351 {
 352     static char buf[50];
 353
 354     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
 355             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
 356             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
 357             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
 358
 359     return buf;
 360 }
 361
 362 static int strcmp_wa(LPCWSTR strw, const char *stra)
 363 {
 364     CHAR buf[512];
 365     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
 366     return lstrcmpA(stra, buf);
 367 }
 368
 369 static BSTR a2bstr(const char *str)
 370 {
 371     BSTR ret;
 372     int len;
 373
 374     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 375     ret = SysAllocStringLen(NULL, len);
 376     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 377
 378     return ret;
 379 }
 380
 381 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
 382 {
 383     IUnknown *unk1, *unk2;
 384
 385     if(iface1 == iface2)
 386         return TRUE;
 387
 388     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
 389     IUnknown_Release(unk1);
 390     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk2);
 391     IUnknown_Release(unk2);
 392
 393     return unk1 == unk2;
 394 }
 395
 396 static IHTMLDocument2 *create_document(void)
 397 {
 398     IHTMLDocument2 *doc;
 399     IHTMLDocument5 *doc5;
 400     HRESULT hres;
 401
 402     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 403             &IID_IHTMLDocument2, (void**)&doc);
 404     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 405
 406     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
 407     if(FAILED(hres)) {
 408         win_skip("Could not get IHTMLDocument5, probably too old IE\n");
 409         IHTMLDocument2_Release(doc);
 410         return NULL;
 411     }
 412
 413     IHTMLDocument5_Release(doc5);
 414     return doc;
 415 }
 416
 417 #define test_ifaces(i,ids) _test_ifaces(__LINE__,i,ids)
 418 static void _test_ifaces(unsigned line, IUnknown *iface, REFIID *iids)
 419 {
 420     const IID * const *piid;
 421     IUnknown *unk;
 422     HRESULT hres;
 423
 424      for(piid = iids; *piid; piid++) {
 425         hres = IDispatch_QueryInterface(iface, *piid, (void**)&unk);
 426         ok_(__FILE__,line) (hres == S_OK, "Could not get %s interface: %08x\n", dbgstr_guid(*piid), hres);
 427         if(SUCCEEDED(hres))
 428             IUnknown_Release(unk);
 429     }
 430 }
 431
 432 #define test_get_dispid(u,id) _test_disp(__LINE__,u,id)
 433 static BOOL _test_get_dispid(unsigned line, IUnknown *unk, IID *iid)
 434 {
 435     IDispatchEx *dispex;
 436     ITypeInfo *typeinfo;
 437     BOOL ret = FALSE;
 438     UINT ticnt;
 439     HRESULT hres;
 440
 441     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 442     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
 443     if(FAILED(hres))
 444         return FALSE;
 445
 446     ticnt = 0xdeadbeef;
 447     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
 448     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
 449     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
 450
 451     hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
 452     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
 453
 454     if(SUCCEEDED(hres)) {
 455         TYPEATTR *type_attr;
 456
 457         hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 458         ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 459         if(hres == S_OK) {
 460             *iid = type_attr->guid;
 461             ret = TRUE;
 462         }
 463
 464         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 465         ITypeInfo_Release(typeinfo);
 466     }
 467
 468     IDispatchEx_Release(dispex);
 469     return ret;
 470 }
 471
 472 #define test_disp_value(u) _test_disp_value(__LINE__,u,v)
 473 static void _test_disp_value(unsigned line, IUnknown *unk, const char *val)
 474 {
 475     DISPPARAMS dp  = {NULL,NULL,0,0};
 476     IDispatchEx *dispex;
 477     EXCEPINFO ei;
 478     VARIANT var;
 479     HRESULT hres;
 480
 481     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 482     ok_(__FILE__,line)(hres == S_OK, "Could not get IDispatchEx interface: %08x\n", hres);
 483     if(FAILED(hres))
 484         return;
 485
 486     hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, 0, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
 487     IDispatchEx_Release(dispex);
 488     ok_(__FILE__,line)(hres == S_OK, "InvokeEx(DISPID_VALUE) returned: %08x\n", hres);
 489
 490     ok_(__FILE__,line)(V_VT(&var) == VT_BSTR, "V_VT(value) = %d\n", V_VT(&var));
 491     ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&var), val), "value = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&var)), val);
 492     VariantClear(&var);
 493 }
 494
 495 #define test_disp(u,id,v) _test_disp(__LINE__,u,id,v)
 496 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid, const char *val)
 497 {
 498     IID iid;
 499
 500     if(_test_get_dispid(line, unk, &iid))
 501         ok_(__FILE__,line) (IsEqualGUID(&iid, diid), "unexpected guid %s\n", dbgstr_guid(&iid));
 502
 503     _test_disp_value(line, unk, val);
 504 }
 505
 506 #define test_disp2(u,id,id2,v) _test_disp2(__LINE__,u,id,id2,v)
 507 static void _test_disp2(unsigned line, IUnknown *unk, const IID *diid, const IID *diid2, const char *val)
 508 {
 509     IID iid;
 510
 511     if(_test_get_dispid(line, unk, &iid))
 512         ok_(__FILE__,line) (IsEqualGUID(&iid, diid) || broken(IsEqualGUID(&iid, diid2)),
 513                 "unexpected guid %s\n", dbgstr_guid(&iid));
 514
 515     _test_disp_value(line, unk, val);
 516 }
 517
 518 #define get_elem_iface(u) _get_elem_iface(__LINE__,u)
 519 static IHTMLElement *_get_elem_iface(unsigned line, IUnknown *unk)
 520 {
 521     IHTMLElement *elem;
 522     HRESULT hres;
 523
 524     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement, (void**)&elem);
 525     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement: %08x\n", hres);
 526     return elem;
 527 }
 528
 529 #define get_elem2_iface(u) _get_elem2_iface(__LINE__,u)
 530 static IHTMLElement2 *_get_elem2_iface(unsigned line, IUnknown *unk)
 531 {
 532     IHTMLElement2 *elem;
 533     HRESULT hres;
 534
 535     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement2, (void**)&elem);
 536     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement2: %08x\n", hres);
 537     return elem;
 538 }
 539
 540 #define get_elem3_iface(u) _get_elem3_iface(__LINE__,u)
 541 static IHTMLElement3 *_get_elem3_iface(unsigned line, IUnknown *unk)
 542 {
 543     IHTMLElement3 *elem;
 544     HRESULT hres;
 545
 546     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement3, (void**)&elem);
 547     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement3: %08x\n", hres);
 548     return elem;
 549 }
 550
 551 #define get_node_iface(u) _get_node_iface(__LINE__,u)
 552 static IHTMLDOMNode *_get_node_iface(unsigned line, IUnknown *unk)
 553 {
 554     IHTMLDOMNode *node;
 555     HRESULT hres;
 556
 557     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode, (void**)&node);
 558     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMNode: %08x\n", hres);
 559     return node;
 560 }
 561
 562 #define get_img_iface(u) _get_img_iface(__LINE__,u)
 563 static IHTMLImgElement *_get_img_iface(unsigned line, IUnknown *unk)
 564 {
 565     IHTMLImgElement *img;
 566     HRESULT hres;
 567
 568     hres = IUnknown_QueryInterface(unk, &IID_IHTMLImgElement, (void**)&img);
 569     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLImgElement: %08x\n", hres);
 570     return img;
 571 }
 572
 573 #define test_node_name(u,n) _test_node_name(__LINE__,u,n)
 574 static void _test_node_name(unsigned line, IUnknown *unk, const char *exname)
 575 {
 576     IHTMLDOMNode *node = _get_node_iface(line, unk);
 577     BSTR name;
 578     HRESULT hres;
 579
 580     hres = IHTMLDOMNode_get_nodeName(node, &name);
 581     IHTMLDOMNode_Release(node);
 582     ok_(__FILE__, line) (hres == S_OK, "get_nodeName failed: %08x\n", hres);
 583     ok_(__FILE__, line) (!strcmp_wa(name, exname), "got name: %s, expected %s\n", wine_dbgstr_w(name), exname);
 584
 585     SysFreeString(name);
 586 }
 587
 588 #define test_elem_tag(u,n) _test_elem_tag(__LINE__,u,n)
 589 static void _test_elem_tag(unsigned line, IUnknown *unk, const char *extag)
 590 {
 591     IHTMLElement *elem = _get_elem_iface(line, unk);
 592     BSTR tag;
 593     HRESULT hres;
 594
 595     hres = IHTMLElement_get_tagName(elem, &tag);
 596     IHTMLElement_Release(elem);
 597     ok_(__FILE__, line) (hres == S_OK, "get_tagName failed: %08x\n", hres);
 598     ok_(__FILE__, line) (!strcmp_wa(tag, extag), "got tag: %s, expected %s\n", wine_dbgstr_w(tag), extag);
 599
 600     SysFreeString(tag);
 601 }
 602
 603 #define test_elem_type(ifc,t) _test_elem_type(__LINE__,ifc,t)
 604 static void _test_elem_type(unsigned line, IUnknown *unk, elem_type_t type)
 605 {
 606     _test_elem_tag(line, unk, elem_type_infos[type].tag);
 607     _test_ifaces(line, unk, elem_type_infos[type].iids);
 608
 609     if(elem_type_infos[type].dispiid)
 610         _test_disp(line, unk, elem_type_infos[type].dispiid, "[object]");
 611 }
 612
 613 #define get_node_type(n) _get_node_type(__LINE__,n)
 614 static LONG _get_node_type(unsigned line, IUnknown *unk)
 615 {
 616     IHTMLDOMNode *node = _get_node_iface(line, unk);
 617     LONG type = -1;
 618     HRESULT hres;
 619
 620     hres = IHTMLDOMNode_get_nodeType(node, &type);
 621     ok(hres == S_OK, "get_nodeType failed: %08x\n", hres);
 622
 623     IHTMLDOMNode_Release(node);
 624
 625     return type;
 626 }
 627
 628 #define get_child_nodes(u) _get_child_nodes(__LINE__,u)
 629 static IHTMLDOMChildrenCollection *_get_child_nodes(unsigned line, IUnknown *unk)
 630 {
 631     IHTMLDOMNode *node = _get_node_iface(line, unk);
 632     IHTMLDOMChildrenCollection *col = NULL;
 633     IDispatch *disp;
 634     HRESULT hres;
 635
 636     hres = IHTMLDOMNode_get_childNodes(node, &disp);
 637     IHTMLDOMNode_Release(node);
 638     ok_(__FILE__,line) (hres == S_OK, "get_childNodes failed: %08x\n", hres);
 639     if(FAILED(hres))
 640         return NULL;
 641
 642     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDOMChildrenCollection, (void**)&col);
 643     IDispatch_Release(disp);
 644     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMChildrenCollection: %08x\n", hres);
 645
 646     return col;
 647 }
 648
 649 #define get_child_item(c,i) _get_child_item(__LINE__,c,i)
 650 static IHTMLDOMNode *_get_child_item(unsigned line, IHTMLDOMChildrenCollection *col, LONG idx)
 651 {
 652     IHTMLDOMNode *node = NULL;
 653     IDispatch *disp;
 654     HRESULT hres;
 655
 656     hres = IHTMLDOMChildrenCollection_item(col, idx, &disp);
 657     ok(hres == S_OK, "item failed: %08x\n", hres);
 658
 659     node = _get_node_iface(line, (IUnknown*)disp);
 660     IDispatch_Release(disp);
 661
 662     return node;
 663 }
 664
 665 #define test_elem_attr(e,n,v) _test_elem_attr(__LINE__,e,n,v)
 666 static void _test_elem_attr(unsigned line, IHTMLElement *elem, const char *name, const char *exval)
 667 {
 668     VARIANT value;
 669     BSTR tmp;
 670     HRESULT hres;
 671
 672     VariantInit(&value);
 673
 674     tmp = a2bstr(name);
 675     hres = IHTMLElement_getAttribute(elem, tmp, 0, &value);
 676     SysFreeString(tmp);
 677     ok_(__FILE__,line) (hres == S_OK, "getAttribute failed: %08x\n", hres);
 678
 679     if(exval) {
 680         ok_(__FILE__,line) (V_VT(&value) == VT_BSTR, "vt=%d\n", V_VT(&value));
 681         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&value), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&value)));
 682     }else {
 683         ok_(__FILE__,line) (V_VT(&value) == VT_NULL, "vt=%d\n", V_VT(&value));
 684     }
 685
 686     VariantClear(&value);
 687 }
 688
 689 #define test_elem_offset(u) _test_elem_offset(__LINE__,u)
 690 static void _test_elem_offset(unsigned line, IUnknown *unk)
 691 {
 692     IHTMLElement *elem = _get_elem_iface(line, unk);
 693     LONG l;
 694     HRESULT hres;
 695
 696     hres = IHTMLElement_get_offsetTop(elem, &l);
 697     ok_(__FILE__,line) (hres == S_OK, "get_offsetTop failed: %08x\n", hres);
 698
 699     hres = IHTMLElement_get_offsetHeight(elem, &l);
 700     ok_(__FILE__,line) (hres == S_OK, "get_offsetHeight failed: %08x\n", hres);
 701
 702     hres = IHTMLElement_get_offsetWidth(elem, &l);
 703     ok_(__FILE__,line) (hres == S_OK, "get_offsetWidth failed: %08x\n", hres);
 704
 705     IHTMLElement_Release(elem);
 706 }
 707
 708 static void test_doc_elem(IHTMLDocument2 *doc)
 709 {
 710     IHTMLElement *elem;
 711     IHTMLDocument3 *doc3;
 712     HRESULT hres;
 713
 714     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
 715     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
 716
 717     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
 718     IHTMLDocument3_Release(doc3);
 719     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
 720
 721     test_node_name((IUnknown*)elem, "HTML");
 722     test_elem_tag((IUnknown*)elem, "HTML");
 723
 724     IHTMLElement_Release(elem);
 725 }
 726
 727 #define get_doc_elem(d) _get_doc_elem(__LINE__,d)
 728 static IHTMLElement *_get_doc_elem(unsigned line, IHTMLDocument2 *doc)
 729 {
 730     IHTMLElement *elem;
 731     IHTMLDocument3 *doc3;
 732     HRESULT hres;
 733
 734     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
 735     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 interface: %08x\n", hres);
 736     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
 737     ok_(__FILE__,line) (hres == S_OK, "get_documentElement failed: %08x\n", hres);
 738     IHTMLDocument3_Release(doc3);
 739
 740     return elem;
 741 }
 742
 743 #define test_option_text(o,t) _test_option_text(__LINE__,o,t)
 744 static void _test_option_text(unsigned line, IHTMLOptionElement *option, const char *text)
 745 {
 746     BSTR bstr;
 747     HRESULT hres;
 748
 749     hres = IHTMLOptionElement_get_text(option, &bstr);
 750     ok_(__FILE__,line) (hres == S_OK, "get_text failed: %08x\n", hres);
 751     ok_(__FILE__,line) (!strcmp_wa(bstr, text), "text=%s\n", wine_dbgstr_w(bstr));
 752     SysFreeString(bstr);
 753 }
 754
 755 #define test_option_put_text(o,t) _test_option_put_text(__LINE__,o,t)
 756 static void _test_option_put_text(unsigned line, IHTMLOptionElement *option, const char *text)
 757 {
 758     BSTR bstr;
 759     HRESULT hres;
 760
 761     bstr = a2bstr(text);
 762     hres = IHTMLOptionElement_put_text(option, bstr);
 763     SysFreeString(bstr);
 764     ok(hres == S_OK, "put_text failed: %08x\n", hres);
 765
 766     _test_option_text(line, option, text);
 767 }
 768
 769 #define test_option_value(o,t) _test_option_value(__LINE__,o,t)
 770 static void _test_option_value(unsigned line, IHTMLOptionElement *option, const char *value)
 771 {
 772     BSTR bstr;
 773     HRESULT hres;
 774
 775     hres = IHTMLOptionElement_get_value(option, &bstr);
 776     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
 777     ok_(__FILE__,line) (!strcmp_wa(bstr, value), "value=%s\n", wine_dbgstr_w(bstr));
 778     SysFreeString(bstr);
 779 }
 780
 781 #define test_option_put_value(o,t) _test_option_put_value(__LINE__,o,t)
 782 static void _test_option_put_value(unsigned line, IHTMLOptionElement *option, const char *value)
 783 {
 784     BSTR bstr;
 785     HRESULT hres;
 786
 787     bstr = a2bstr(value);
 788     hres = IHTMLOptionElement_put_value(option, bstr);
 789     SysFreeString(bstr);
 790     ok(hres == S_OK, "put_value failed: %08x\n", hres);
 791
 792     _test_option_value(line, option, value);
 793 }
 794
 795 #define create_option_elem(d,t,v) _create_option_elem(__LINE__,d,t,v)
 796 static IHTMLOptionElement *_create_option_elem(unsigned line, IHTMLDocument2 *doc,
 797         const char *txt, const char *val)
 798 {
 799     IHTMLOptionElementFactory *factory;
 800     IHTMLOptionElement *option;
 801     IHTMLWindow2 *window;
 802     VARIANT text, value, empty;
 803     HRESULT hres;
 804
 805     hres = IHTMLDocument2_get_parentWindow(doc, &window);
 806     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
 807
 808     hres = IHTMLWindow2_get_Option(window, &factory);
 809     IHTMLWindow2_Release(window);
 810     ok_(__FILE__,line) (hres == S_OK, "get_Option failed: %08x\n", hres);
 811
 812     V_VT(&text) = VT_BSTR;
 813     V_BSTR(&text) = a2bstr(txt);
 814     V_VT(&value) = VT_BSTR;
 815     V_BSTR(&value) = a2bstr(val);
 816     V_VT(&empty) = VT_EMPTY;
 817
 818     hres = IHTMLOptionElementFactory_create(factory, text, value, empty, empty, &option);
 819     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
 820
 821     IHTMLOptionElementFactory_Release(factory);
 822     VariantClear(&text);
 823     VariantClear(&value);
 824
 825     _test_option_text(line, option, txt);
 826     _test_option_value(line, option, val);
 827
 828     return option;
 829 }
 830
 831 #define test_select_length(s,l) _test_select_length(__LINE__,s,l)
 832 static void _test_select_length(unsigned line, IHTMLSelectElement *select, LONG length)
 833 {
 834     LONG len = 0xdeadbeef;
 835     HRESULT hres;
 836
 837     hres = IHTMLSelectElement_get_length(select, &len);
 838     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
 839     ok_(__FILE__,line) (len == length, "len=%d, expected %d\n", len, length);
 840 }
 841
 842 #define test_select_selidx(s,i) _test_select_selidx(__LINE__,s,i)
 843 static void _test_select_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
 844 {
 845     LONG idx = 0xdeadbeef;
 846     HRESULT hres;
 847
 848     hres = IHTMLSelectElement_get_selectedIndex(select, &idx);
 849     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
 850     ok_(__FILE__,line) (idx == index, "idx=%d, expected %d\n", idx, index);
 851 }
 852
 853 #define test_select_put_selidx(s,i) _test_select_put_selidx(__LINE__,s,i)
 854 static void _test_select_put_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
 855 {
 856     HRESULT hres;
 857
 858     hres = IHTMLSelectElement_put_selectedIndex(select, index);
 859     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
 860     _test_select_selidx(line, select, index);
 861 }
 862
 863 #define test_select_value(s,v) _test_select_value(__LINE__,s,v)
 864 static void _test_select_value(unsigned line, IHTMLSelectElement *select, const char *exval)
 865 {
 866     BSTR val;
 867     HRESULT hres;
 868
 869     hres = IHTMLSelectElement_get_value(select, &val);
 870     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
 871     if(exval)
 872         ok_(__FILE__,line) (!strcmp_wa(val, exval), "unexpected value %s\n", wine_dbgstr_w(val));
 873     else
 874         ok_(__FILE__,line) (val == NULL, "val=%s, expected NULL\n", wine_dbgstr_w(val));
 875 }
 876
 877 #define test_select_set_value(s,v) _test_select_set_value(__LINE__,s,v)
 878 static void _test_select_set_value(unsigned line, IHTMLSelectElement *select, const char *val)
 879 {
 880     BSTR bstr;
 881     HRESULT hres;
 882
 883     bstr = a2bstr(val);
 884     hres = IHTMLSelectElement_put_value(select, bstr);
 885     SysFreeString(bstr);
 886     ok_(__FILE__,line) (hres == S_OK, "put_value failed: %08x\n", hres);
 887 }
 888
 889 #define test_select_type(s,t) _test_select_type(__LINE__,s,t)
 890 static void _test_select_type(unsigned line, IHTMLSelectElement *select, const char *extype)
 891 {
 892     BSTR type;
 893     HRESULT hres;
 894
 895     hres = IHTMLSelectElement_get_type(select, &type);
 896     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
 897     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", wine_dbgstr_w(type), extype);
 898 }
 899
 900 #define test_range_text(r,t) _test_range_text(__LINE__,r,t)
 901 static void _test_range_text(unsigned line, IHTMLTxtRange *range, const char *extext)
 902 {
 903     BSTR text;
 904     HRESULT hres;
 905
 906     hres = IHTMLTxtRange_get_text(range, &text);
 907     ok_(__FILE__, line) (hres == S_OK, "get_text failed: %08x\n", hres);
 908
 909     if(extext) {
 910         ok_(__FILE__, line) (text != NULL, "text == NULL\n");
 911         ok_(__FILE__, line) (!strcmp_wa(text, extext), "text=%s, expected %s\n", wine_dbgstr_w(text), extext);
 912     }else {
 913         ok_(__FILE__, line) (text == NULL, "text=%s, expected NULL\n", wine_dbgstr_w(text));
 914     }
 915
 916     SysFreeString(text);
 917
 918 }
 919
 920 #define test_range_collapse(r,b) _test_range_collapse(__LINE__,r,b)
 921 static void _test_range_collapse(unsigned line, IHTMLTxtRange *range, BOOL b)
 922 {
 923     HRESULT hres;
 924
 925     hres = IHTMLTxtRange_collapse(range, b);
 926     ok_(__FILE__, line) (hres == S_OK, "collapse failed: %08x\n", hres);
 927     _test_range_text(line, range, NULL);
 928 }
 929
 930 #define test_range_expand(r,u,b,t) _test_range_expand(__LINE__,r,u,b,t)
 931 static void _test_range_expand(unsigned line, IHTMLTxtRange *range, LPWSTR unit,
 932         VARIANT_BOOL exb, const char *extext)
 933 {
 934     VARIANT_BOOL b = 0xe0e0;
 935     HRESULT hres;
 936
 937     hres = IHTMLTxtRange_expand(range, unit, &b);
 938     ok_(__FILE__,line) (hres == S_OK, "expand failed: %08x\n", hres);
 939     ok_(__FILE__,line) (b == exb, "b=%x, expected %x\n", b, exb);
 940     _test_range_text(line, range, extext);
 941 }
 942
 943 #define test_range_move(r,u,c,e) _test_range_move(__LINE__,r,u,c,e)
 944 static void _test_range_move(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
 945 {
 946     LONG c = 0xdeadbeef;
 947     HRESULT hres;
 948
 949     hres = IHTMLTxtRange_move(range, unit, cnt, &c);
 950     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 951     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
 952     _test_range_text(line, range, NULL);
 953 }
 954
 955 #define test_range_movestart(r,u,c,e) _test_range_movestart(__LINE__,r,u,c,e)
 956 static void _test_range_movestart(unsigned line, IHTMLTxtRange *range,
 957         LPWSTR unit, LONG cnt, LONG excnt)
 958 {
 959     LONG c = 0xdeadbeef;
 960     HRESULT hres;
 961
 962     hres = IHTMLTxtRange_moveStart(range, unit, cnt, &c);
 963     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 964     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
 965 }
 966
 967 #define test_range_moveend(r,u,c,e) _test_range_moveend(__LINE__,r,u,c,e)
 968 static void _test_range_moveend(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
 969 {
 970     LONG c = 0xdeadbeef;
 971     HRESULT hres;
 972
 973     hres = IHTMLTxtRange_moveEnd(range, unit, cnt, &c);
 974     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 975     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
 976 }
 977
 978 #define test_range_put_text(r,t) _test_range_put_text(__LINE__,r,t)
 979 static void _test_range_put_text(unsigned line, IHTMLTxtRange *range, const char *text)
 980 {
 981     HRESULT hres;
 982     BSTR bstr = a2bstr(text);
 983
 984     hres = IHTMLTxtRange_put_text(range, bstr);
 985     ok_(__FILE__,line) (hres == S_OK, "put_text failed: %08x\n", hres);
 986     SysFreeString(bstr);
 987     _test_range_text(line, range, NULL);
 988 }
 989
 990 #define test_range_inrange(r1,r2,b) _test_range_inrange(__LINE__,r1,r2,b)
 991 static void _test_range_inrange(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
 992 {
 993     VARIANT_BOOL b;
 994     HRESULT hres;
 995
 996     b = 0xe0e0;
 997     hres = IHTMLTxtRange_inRange(range1, range2, &b);
 998     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
 999     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
1000 }
1001
1002 #define test_range_isequal(r1,r2,b) _test_range_isequal(__LINE__,r1,r2,b)
1003 static void _test_range_isequal(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
1004 {
1005     VARIANT_BOOL b;
1006     HRESULT hres;
1007
1008     b = 0xe0e0;
1009     hres = IHTMLTxtRange_isEqual(range1, range2, &b);
1010     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
1011     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
1012
1013     b = 0xe0e0;
1014     hres = IHTMLTxtRange_isEqual(range2, range1, &b);
1015     ok_(__FILE__,line) (hres == S_OK, "(2->1) isEqual failed: %08x\n", hres);
1016     ok_(__FILE__,line) (b == exb, "(2->1) b=%x, expected %x\n", b, exb);
1017
1018     if(exb) {
1019         test_range_inrange(range1, range2, VARIANT_TRUE);
1020         test_range_inrange(range2, range1, VARIANT_TRUE);
1021     }
1022 }
1023
1024 #define test_range_parent(r,t) _test_range_parent(__LINE__,r,t)
1025 static void _test_range_parent(unsigned line, IHTMLTxtRange *range, elem_type_t type)
1026 {
1027     IHTMLElement *elem;
1028     HRESULT hres;
1029
1030     hres = IHTMLTxtRange_parentElement(range, &elem);
1031     ok_(__FILE__,line) (hres == S_OK, "parentElement failed: %08x\n", hres);
1032
1033     _test_elem_type(line, (IUnknown*)elem, type);
1034
1035     IHTMLElement_Release(elem);
1036 }
1037
1038 #define test_elem_collection(c,t,l) _test_elem_collection(__LINE__,c,t,l)
1039 static void _test_elem_collection(unsigned line, IUnknown *unk,
1040         const elem_type_t *elem_types, LONG exlen)
1041 {
1042     IHTMLElementCollection *col;
1043     LONG len;
1044     DWORD i;
1045     VARIANT name, index;
1046     IDispatch *disp, *disp2;
1047     HRESULT hres;
1048
1049     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElementCollection, (void**)&col);
1050     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
1051
1052     test_disp((IUnknown*)col, &DIID_DispHTMLElementCollection, "[object]");
1053
1054     hres = IHTMLElementCollection_get_length(col, &len);
1055     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
1056     ok_(__FILE__,line) (len == exlen, "len=%d, expected %d\n", len, exlen);
1057
1058     if(len > exlen)
1059         len = exlen;
1060
1061     V_VT(&index) = VT_EMPTY;
1062
1063     for(i=0; i<len; i++) {
1064         V_VT(&name) = VT_I4;
1065         V_I4(&name) = i;
1066         disp = (void*)0xdeadbeef;
1067         hres = IHTMLElementCollection_item(col, name, index, &disp);
1068         ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
1069         ok_(__FILE__,line) (disp != NULL, "item returned NULL\n");
1070         if(FAILED(hres) || !disp)
1071             continue;
1072
1073         _test_elem_type(line, (IUnknown*)disp, elem_types[i]);
1074
1075         if(!i) {
1076             V_VT(&name) = VT_UINT;
1077             V_I4(&name) = 0;
1078             disp2 = (void*)0xdeadbeef;
1079             hres = IHTMLElementCollection_item(col, name, index, &disp2);
1080             ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
1081             ok_(__FILE__,line) (iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
1082             if(disp2)
1083                 IDispatch_Release(disp2);
1084         }
1085
1086         IDispatch_Release(disp);
1087     }
1088
1089     V_VT(&name) = VT_I4;
1090     V_I4(&name) = len;
1091     disp = (void*)0xdeadbeef;
1092     hres = IHTMLElementCollection_item(col, name, index, &disp);
1093     ok_(__FILE__,line) (hres == S_OK, "item failed: %08x\n", hres);
1094     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
1095
1096     V_VT(&name) = VT_I4;
1097     V_I4(&name) = -1;
1098     disp = (void*)0xdeadbeef;
1099     hres = IHTMLElementCollection_item(col, name, index, &disp);
1100     ok_(__FILE__,line) (hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
1101     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
1102
1103     IHTMLElementCollection_Release(col);
1104 }
1105
1106 #define test_elem_getelembytag(u,t,l) _test_elem_getelembytag(__LINE__,u,t,l)
1107 static void _test_elem_getelembytag(unsigned line, IUnknown *unk, elem_type_t type, LONG exlen)
1108 {
1109     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1110     IHTMLElementCollection *col = NULL;
1111     elem_type_t *types = NULL;
1112     BSTR tmp;
1113     int i;
1114     HRESULT hres;
1115
1116     tmp = a2bstr(elem_type_infos[type].tag);
1117     hres = IHTMLElement2_getElementsByTagName(elem, tmp, &col);
1118     SysFreeString(tmp);
1119     IHTMLElement2_Release(elem);
1120     ok_(__FILE__,line) (hres == S_OK, "getElementByTagName failed: %08x\n", hres);
1121     ok_(__FILE__,line) (col != NULL, "col == NULL\n");
1122
1123     if(exlen) {
1124         types = HeapAlloc(GetProcessHeap(), 0, exlen*sizeof(elem_type_t));
1125         for(i=0; i<exlen; i++)
1126             types[i] = type;
1127     }
1128
1129     _test_elem_collection(line, (IUnknown*)col, types, exlen);
1130
1131     HeapFree(GetProcessHeap(), 0, types);
1132 }
1133
1134 #define test_elem_innertext(e,t) _test_elem_innertext(__LINE__,e,t)
1135 static void _test_elem_innertext(unsigned line, IHTMLElement *elem, const char *extext)
1136 {
1137     BSTR text = NULL;
1138     HRESULT hres;
1139
1140     hres = IHTMLElement_get_innerText(elem, &text);
1141     ok_(__FILE__,line) (hres == S_OK, "get_innerText failed: %08x\n", hres);
1142     ok_(__FILE__,line) (!strcmp_wa(text, extext), "get_innerText returned %s expected %s\n",
1143                         wine_dbgstr_w(text), extext);
1144     SysFreeString(text);
1145 }
1146
1147 #define test_elem_set_innertext(e,t) _test_elem_set_innertext(__LINE__,e,t)
1148 static void _test_elem_set_innertext(unsigned line, IHTMLElement *elem, const char *text)
1149 {
1150     IHTMLDOMChildrenCollection *col;
1151     BSTR str;
1152     HRESULT hres;
1153
1154     str = a2bstr(text);
1155     hres = IHTMLElement_put_innerText(elem, str);
1156     ok_(__FILE__,line) (hres == S_OK, "put_innerText failed: %08x\n", hres);
1157     SysFreeString(str);
1158
1159     _test_elem_innertext(line, elem, text);
1160
1161
1162     col = _get_child_nodes(line, (IUnknown*)elem);
1163     ok(col != NULL, "col == NULL\n");
1164     if(col) {
1165         LONG length = 0, type;
1166         IHTMLDOMNode *node;
1167
1168         hres = IHTMLDOMChildrenCollection_get_length(col, &length);
1169         ok(hres == S_OK, "get_length failed: %08x\n", hres);
1170         ok(length == 1, "length = %d\n", length);
1171
1172         node = _get_child_item(line, col, 0);
1173         ok(node != NULL, "node == NULL\n");
1174         if(node) {
1175             type = _get_node_type(line, (IUnknown*)node);
1176             ok(type == 3, "type=%d\n", type);
1177             IHTMLDOMNode_Release(node);
1178         }
1179
1180         IHTMLDOMChildrenCollection_Release(col);
1181     }
1182
1183 }
1184
1185 #define test_elem_innerhtml(e,t) _test_elem_innerhtml(__LINE__,e,t)
1186 static void _test_elem_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
1187 {
1188     IHTMLElement *elem = _get_elem_iface(line, unk);
1189     BSTR html;
1190     HRESULT hres;
1191
1192     hres = IHTMLElement_get_innerHTML(elem, &html);
1193     ok_(__FILE__,line)(hres == S_OK, "get_innerHTML failed: %08x\n", hres);
1194     if(inner_html)
1195         ok_(__FILE__,line)(!strcmp_wa(html, inner_html), "unexpected innerHTML: %s\n", wine_dbgstr_w(html));
1196     else
1197         ok_(__FILE__,line)(!html, "innerHTML = %s\n", wine_dbgstr_w(html));
1198
1199     IHTMLElement_Release(elem);
1200     SysFreeString(html);
1201 }
1202
1203 #define test_elem_set_innerhtml(e,t) _test_elem_set_innerhtml(__LINE__,e,t)
1204 static void _test_elem_set_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
1205 {
1206     IHTMLElement *elem = _get_elem_iface(line, unk);
1207     BSTR html;
1208     HRESULT hres;
1209
1210     html = a2bstr(inner_html);
1211     hres = IHTMLElement_put_innerHTML(elem, html);
1212     ok_(__FILE__,line)(hres == S_OK, "put_innerHTML failed: %08x\n", hres);
1213
1214     IHTMLElement_Release(elem);
1215     SysFreeString(html);
1216 }
1217
1218 #define get_first_child(n) _get_first_child(__LINE__,n)
1219 static IHTMLDOMNode *_get_first_child(unsigned line, IUnknown *unk)
1220 {
1221     IHTMLDOMNode *node = _get_node_iface(line, unk);
1222     IHTMLDOMNode *child = NULL;
1223     HRESULT hres;
1224
1225     hres = IHTMLDOMNode_get_firstChild(node, &child);
1226     IHTMLDOMNode_Release(node);
1227     ok_(__FILE__,line) (hres == S_OK, "get_firstChild failed: %08x\n", hres);
1228
1229     return child;
1230 }
1231
1232 #define test_node_has_child(u,b) _test_node_has_child(__LINE__,u,b)
1233 static void _test_node_has_child(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
1234 {
1235     IHTMLDOMNode *node = _get_node_iface(line, unk);
1236     VARIANT_BOOL b = 0xdead;
1237     HRESULT hres;
1238
1239     hres = IHTMLDOMNode_hasChildNodes(node, &b);
1240     ok_(__FILE__,line) (hres == S_OK, "hasChildNodes failed: %08x\n", hres);
1241     ok_(__FILE__,line) (b == exb, "hasChildNodes=%x, expected %x\n", b, exb);
1242
1243     IHTMLDOMNode_Release(node);
1244 }
1245
1246 #define test_node_get_parent(u) _test_node_get_parent(__LINE__,u)
1247 static IHTMLDOMNode *_test_node_get_parent(unsigned line, IUnknown *unk)
1248 {
1249     IHTMLDOMNode *node = _get_node_iface(line, unk);
1250     IHTMLDOMNode *parent;
1251     HRESULT hres;
1252
1253     hres = IHTMLDOMNode_get_parentNode(node, &parent);
1254     IHTMLDOMNode_Release(node);
1255     ok_(__FILE__,line) (hres == S_OK, "get_parentNode failed: %08x\n", hres);
1256
1257     return parent;
1258 }
1259
1260 #define test_elem_get_parent(u) _test_elem_get_parent(__LINE__,u)
1261 static IHTMLElement *_test_elem_get_parent(unsigned line, IUnknown *unk)
1262 {
1263     IHTMLElement *elem = _get_elem_iface(line, unk);
1264     IHTMLElement *parent;
1265     HRESULT hres;
1266
1267     hres = IHTMLElement_get_parentElement(elem, &parent);
1268     IHTMLElement_Release(elem);
1269     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1270
1271     return parent;
1272 }
1273
1274 #define test_elem3_get_disabled(i,b) _test_elem3_get_disabled(__LINE__,i,b)
1275 static void _test_elem3_get_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
1276 {
1277     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
1278     VARIANT_BOOL disabled = 100;
1279     HRESULT hres;
1280
1281     if (!elem3) return;
1282     hres = IHTMLElement3_get_disabled(elem3, &disabled);
1283     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1284     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
1285     IHTMLElement3_Release(elem3);
1286 }
1287
1288 #define test_elem3_set_disabled(i,b) _test_elem3_set_disabled(__LINE__,i,b)
1289 static void _test_elem3_set_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL b)
1290 {
1291     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
1292     HRESULT hres;
1293
1294     if (!elem3) return;
1295     hres = IHTMLElement3_put_disabled(elem3, b);
1296     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1297
1298     IHTMLElement3_Release(elem3);
1299     _test_elem3_get_disabled(line, unk, b);
1300 }
1301
1302 #define test_select_get_disabled(i,b) _test_select_get_disabled(__LINE__,i,b)
1303 static void _test_select_get_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL exb)
1304 {
1305     VARIANT_BOOL disabled = 100;
1306     HRESULT hres;
1307
1308     hres = IHTMLSelectElement_get_disabled(select, &disabled);
1309     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1310     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
1311
1312     _test_elem3_get_disabled(line, (IUnknown*)select, exb);
1313 }
1314
1315 #define test_select_set_disabled(i,b) _test_select_set_disabled(__LINE__,i,b)
1316 static void _test_select_set_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL b)
1317 {
1318     HRESULT hres;
1319
1320     hres = IHTMLSelectElement_put_disabled(select, b);
1321     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1322
1323     _test_select_get_disabled(line, select, b);
1324 }
1325
1326 #define elem_get_scroll_height(u) _elem_get_scroll_height(__LINE__,u)
1327 static LONG _elem_get_scroll_height(unsigned line, IUnknown *unk)
1328 {
1329     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1330     IHTMLTextContainer *txtcont;
1331     LONG l = -1, l2 = -1;
1332     HRESULT hres;
1333
1334     hres = IHTMLElement2_get_scrollHeight(elem, &l);
1335     ok_(__FILE__,line) (hres == S_OK, "get_scrollHeight failed: %08x\n", hres);
1336     IHTMLElement2_Release(elem);
1337
1338     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1339     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1340
1341     hres = IHTMLTextContainer_get_scrollHeight(txtcont, &l2);
1342     IHTMLTextContainer_Release(txtcont);
1343     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollHeight failed: %d\n", l2);
1344     ok_(__FILE__,line) (l == l2, "unexpected height %d, expected %d\n", l2, l);
1345
1346     return l;
1347 }
1348
1349 #define elem_get_scroll_width(u) _elem_get_scroll_width(__LINE__,u)
1350 static LONG _elem_get_scroll_width(unsigned line, IUnknown *unk)
1351 {
1352     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1353     IHTMLTextContainer *txtcont;
1354     LONG l = -1, l2 = -1;
1355     HRESULT hres;
1356
1357     hres = IHTMLElement2_get_scrollWidth(elem, &l);
1358     ok_(__FILE__,line) (hres == S_OK, "get_scrollWidth failed: %08x\n", hres);
1359     IHTMLElement2_Release(elem);
1360
1361     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1362     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1363
1364     hres = IHTMLTextContainer_get_scrollWidth(txtcont, &l2);
1365     IHTMLTextContainer_Release(txtcont);
1366     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollWidth failed: %d\n", l2);
1367     ok_(__FILE__,line) (l == l2, "unexpected width %d, expected %d\n", l2, l);
1368
1369     return l;
1370 }
1371
1372 #define elem_get_scroll_top(u) _elem_get_scroll_top(__LINE__,u)
1373 static LONG _elem_get_scroll_top(unsigned line, IUnknown *unk)
1374 {
1375     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1376     IHTMLTextContainer *txtcont;
1377     LONG l = -1, l2 = -1;
1378     HRESULT hres;
1379
1380     hres = IHTMLElement2_get_scrollTop(elem, &l);
1381     ok_(__FILE__,line) (hres == S_OK, "get_scrollTop failed: %08x\n", hres);
1382     IHTMLElement2_Release(elem);
1383
1384     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1385     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1386
1387     hres = IHTMLTextContainer_get_scrollTop(txtcont, &l2);
1388     IHTMLTextContainer_Release(txtcont);
1389     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollTop failed: %d\n", l2);
1390     ok_(__FILE__,line) (l == l2, "unexpected top %d, expected %d\n", l2, l);
1391
1392     return l;
1393 }
1394
1395 #define elem_get_scroll_left(u) _elem_get_scroll_left(__LINE__,u)
1396 static void _elem_get_scroll_left(unsigned line, IUnknown *unk)
1397 {
1398     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1399     IHTMLTextContainer *txtcont;
1400     LONG l = -1, l2 = -1;
1401     HRESULT hres;
1402
1403     hres = IHTMLElement2_get_scrollLeft(elem, NULL);
1404     ok(hres == E_INVALIDARG, "expect E_INVALIDARG got 0x%08x\n", hres);
1405
1406     hres = IHTMLElement2_get_scrollLeft(elem, &l);
1407     ok(hres == S_OK, "get_scrollTop failed: %08x\n", hres);
1408     IHTMLElement2_Release(elem);
1409
1410     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1411     ok(hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1412
1413     hres = IHTMLTextContainer_get_scrollLeft(txtcont, &l2);
1414     IHTMLTextContainer_Release(txtcont);
1415     ok(hres == S_OK, "IHTMLTextContainer::get_scrollLeft failed: %d\n", l2);
1416     ok(l == l2, "unexpected left %d, expected %d\n", l2, l);
1417 }
1418
1419 #define test_img_src(i,s) _test_img_src(__LINE__,i,s)
1420 static void _test_img_src(unsigned line, IUnknown *unk, const char *exsrc)
1421 {
1422     IHTMLImgElement *img = _get_img_iface(line, unk);
1423     BSTR src;
1424     HRESULT hres;
1425
1426     hres = IHTMLImgElement_get_src(img, &src);
1427     IHTMLImgElement_Release(img);
1428     ok_(__FILE__,line) (hres == S_OK, "get_src failed: %08x\n", hres);
1429     ok_(__FILE__,line) (!strcmp_wa(src, exsrc), "get_src returned %s expected %s\n", wine_dbgstr_w(src), exsrc);
1430     SysFreeString(src);
1431 }
1432
1433 #define test_img_set_src(u,s) _test_img_set_src(__LINE__,u,s)
1434 static void _test_img_set_src(unsigned line, IUnknown *unk, const char *src)
1435 {
1436     IHTMLImgElement *img = _get_img_iface(line, unk);
1437     BSTR tmp;
1438     HRESULT hres;
1439
1440     tmp = a2bstr(src);
1441     hres = IHTMLImgElement_put_src(img, tmp);
1442     IHTMLImgElement_Release(img);
1443     SysFreeString(tmp);
1444     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
1445
1446     _test_img_src(line, unk, src);
1447 }
1448
1449 #define test_img_alt(u,a) _test_img_alt(__LINE__,u,a)
1450 static void _test_img_alt(unsigned line, IUnknown *unk, const char *exalt)
1451 {
1452     IHTMLImgElement *img = _get_img_iface(line, unk);
1453     BSTR alt;
1454     HRESULT hres;
1455
1456     hres = IHTMLImgElement_get_alt(img, &alt);
1457     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
1458     if(exalt)
1459         ok_(__FILE__,line) (!strcmp_wa(alt, exalt), "inexopected alt %s\n", wine_dbgstr_w(alt));
1460     else
1461         ok_(__FILE__,line) (!alt, "alt != NULL\n");
1462     SysFreeString(alt);
1463 }
1464
1465 #define test_img_set_alt(u,a) _test_img_set_alt(__LINE__,u,a)
1466 static void _test_img_set_alt(unsigned line, IUnknown *unk, const char *alt)
1467 {
1468     IHTMLImgElement *img = _get_img_iface(line, unk);
1469     BSTR tmp;
1470     HRESULT hres;
1471
1472     tmp = a2bstr(alt);
1473     hres = IHTMLImgElement_put_alt(img, tmp);
1474     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
1475     SysFreeString(tmp);
1476
1477     _test_img_alt(line, unk, alt);
1478 }
1479
1480 #define test_input_get_disabled(i,b) _test_input_get_disabled(__LINE__,i,b)
1481 static void _test_input_get_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
1482 {
1483     VARIANT_BOOL disabled = 100;
1484     HRESULT hres;
1485
1486     hres = IHTMLInputElement_get_disabled(input, &disabled);
1487     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1488     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
1489
1490     _test_elem3_get_disabled(line, (IUnknown*)input, exb);
1491 }
1492
1493 #define test_input_set_disabled(i,b) _test_input_set_disabled(__LINE__,i,b)
1494 static void _test_input_set_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
1495 {
1496     HRESULT hres;
1497
1498     hres = IHTMLInputElement_put_disabled(input, b);
1499     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1500
1501     _test_input_get_disabled(line, input, b);
1502 }
1503
1504 #define test_input_get_defaultchecked(i,b) _test_input_get_defaultchecked(__LINE__,i,b)
1505 static void _test_input_get_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
1506 {
1507     VARIANT_BOOL checked = 100;
1508     HRESULT hres;
1509
1510     hres = IHTMLInputElement_get_defaultChecked(input, &checked);
1511     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
1512     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
1513 }
1514
1515 #define test_input_set_defaultchecked(i,b) _test_input_set_defaultchecked(__LINE__,i,b)
1516 static void _test_input_set_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
1517 {
1518     HRESULT hres;
1519
1520     hres = IHTMLInputElement_put_defaultChecked(input, b);
1521     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
1522
1523     _test_input_get_defaultchecked(line, input, b);
1524 }
1525
1526 #define test_input_get_checked(i,b) _test_input_get_checked(__LINE__,i,b)
1527 static void _test_input_get_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
1528 {
1529     VARIANT_BOOL checked = 100;
1530     HRESULT hres;
1531
1532     hres = IHTMLInputElement_get_checked(input, &checked);
1533     ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
1534     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
1535 }
1536
1537 #define test_input_set_checked(i,b) _test_input_set_checked(__LINE__,i,b)
1538 static void _test_input_set_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
1539 {
1540     HRESULT hres;
1541
1542     hres = IHTMLInputElement_put_checked(input, b);
1543     ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
1544
1545     _test_input_get_checked(line, input, b);
1546 }
1547
1548 #define test_input_value(o,t) _test_input_value(__LINE__,o,t)
1549 static void _test_input_value(unsigned line, IUnknown *unk, const char *exval)
1550 {
1551     IHTMLInputElement *input;
1552     BSTR bstr;
1553     HRESULT hres;
1554
1555     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
1556     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
1557     if(FAILED(hres))
1558         return;
1559
1560     hres = IHTMLInputElement_get_value(input, &bstr);
1561     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1562     if(exval)
1563         ok_(__FILE__,line) (!strcmp_wa(bstr, exval), "value=%s\n", wine_dbgstr_w(bstr));
1564     else
1565         ok_(__FILE__,line) (!exval, "exval != NULL\n");
1566     SysFreeString(bstr);
1567     IHTMLInputElement_Release(input);
1568 }
1569
1570 #define test_input_put_value(o,v) _test_input_put_value(__LINE__,o,v)
1571 static void _test_input_put_value(unsigned line, IUnknown *unk, const char *val)
1572 {
1573     IHTMLInputElement *input;
1574     BSTR bstr;
1575     HRESULT hres;
1576
1577     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
1578     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
1579     if(FAILED(hres))
1580         return;
1581
1582     bstr = a2bstr(val);
1583     hres = IHTMLInputElement_get_value(input, &bstr);
1584     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1585     SysFreeString(bstr);
1586     IHTMLInputElement_Release(input);
1587 }
1588
1589 #define test_elem_class(u,c) _test_elem_class(__LINE__,u,c)
1590 static void _test_elem_class(unsigned line, IUnknown *unk, const char *exclass)
1591 {
1592     IHTMLElement *elem = _get_elem_iface(line, unk);
1593     BSTR class = (void*)0xdeadbeef;
1594     HRESULT hres;
1595
1596     hres = IHTMLElement_get_className(elem, &class);
1597     IHTMLElement_Release(elem);
1598     ok_(__FILE__,line) (hres == S_OK, "get_className failed: %08x\n", hres);
1599     if(exclass)
1600         ok_(__FILE__,line) (!strcmp_wa(class, exclass), "unexpected className %s\n", wine_dbgstr_w(class));
1601     else
1602         ok_(__FILE__,line) (!class, "class != NULL\n");
1603     SysFreeString(class);
1604 }
1605
1606 #define test_elem_tabindex(u,i) _test_elem_tabindex(__LINE__,u,i)
1607 static void _test_elem_tabindex(unsigned line, IUnknown *unk, short exindex)
1608 {
1609     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
1610     short index = -3;
1611     HRESULT hres;
1612
1613     hres = IHTMLElement2_get_tabIndex(elem2, &index);
1614     IHTMLElement2_Release(elem2);
1615     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
1616     ok_(__FILE__,line) (index == exindex, "unexpected index %d\n", index);
1617 }
1618
1619 #define test_elem_set_tabindex(u,i) _test_elem_set_tabindex(__LINE__,u,i)
1620 static void _test_elem_set_tabindex(unsigned line, IUnknown *unk, short index)
1621 {
1622     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
1623     HRESULT hres;
1624
1625     hres = IHTMLElement2_put_tabIndex(elem2, index);
1626     IHTMLElement2_Release(elem2);
1627     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
1628
1629     _test_elem_tabindex(line, unk, index);
1630 }
1631
1632 #define test_elem_set_class(u,c) _test_elem_set_class(__LINE__,u,c)
1633 static void _test_elem_set_class(unsigned line, IUnknown *unk, const char *class)
1634 {
1635     IHTMLElement *elem = _get_elem_iface(line, unk);
1636     BSTR tmp;
1637     HRESULT hres;
1638
1639     tmp = class ? a2bstr(class) : NULL;
1640     hres = IHTMLElement_put_className(elem, tmp);
1641     IHTMLElement_Release(elem);
1642     ok_(__FILE__,line) (hres == S_OK, "put_className failed: %08x\n", hres);
1643     SysFreeString(tmp);
1644
1645     _test_elem_class(line, unk, class);
1646 }
1647
1648 #define test_elem_id(e,i) _test_elem_id(__LINE__,e,i)
1649 static void _test_elem_id(unsigned line, IUnknown *unk, const char *exid)
1650 {
1651     IHTMLElement *elem = _get_elem_iface(line, unk);
1652     BSTR id = (void*)0xdeadbeef;
1653     HRESULT hres;
1654
1655     hres = IHTMLElement_get_id(elem, &id);
1656     IHTMLElement_Release(elem);
1657     ok_(__FILE__,line) (hres == S_OK, "get_id failed: %08x\n", hres);
1658
1659     if(exid)
1660         ok_(__FILE__,line) (!strcmp_wa(id, exid), "unexpected id %s\n", wine_dbgstr_w(id));
1661     else
1662         ok_(__FILE__,line) (!id, "id=%s\n", wine_dbgstr_w(id));
1663
1664     SysFreeString(id);
1665 }
1666
1667 #define test_elem_put_id(u,i) _test_elem_put_id(__LINE__,u,i)
1668 static void _test_elem_put_id(unsigned line, IUnknown *unk, const char *new_id)
1669 {
1670     IHTMLElement *elem = _get_elem_iface(line, unk);
1671     BSTR tmp = a2bstr(new_id);
1672     HRESULT hres;
1673
1674     hres = IHTMLElement_put_id(elem, tmp);
1675     IHTMLElement_Release(elem);
1676     SysFreeString(tmp);
1677     ok_(__FILE__,line) (hres == S_OK, "put_id failed: %08x\n", hres);
1678
1679     _test_elem_id(line, unk, new_id);
1680 }
1681
1682 #define test_elem_title(u,t) _test_elem_title(__LINE__,u,t)
1683 static void _test_elem_title(unsigned line, IUnknown *unk, const char *extitle)
1684 {
1685     IHTMLElement *elem = _get_elem_iface(line, unk);
1686     BSTR title;
1687     HRESULT hres;
1688
1689     hres = IHTMLElement_get_title(elem, &title);
1690     IHTMLElement_Release(elem);
1691     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1692     if(extitle)
1693         ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
1694     else
1695         ok_(__FILE__,line) (!title, "title=%s, expected NULL\n", wine_dbgstr_w(title));
1696
1697     SysFreeString(title);
1698 }
1699
1700 #define test_elem_set_title(u,t) _test_elem_set_title(__LINE__,u,t)
1701 static void _test_elem_set_title(unsigned line, IUnknown *unk, const char *title)
1702 {
1703     IHTMLElement *elem = _get_elem_iface(line, unk);
1704     BSTR tmp;
1705     HRESULT hres;
1706
1707     tmp = a2bstr(title);
1708     hres = IHTMLElement_put_title(elem, tmp);
1709     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1710
1711     IHTMLElement_Release(elem);
1712     SysFreeString(tmp);
1713 }
1714
1715 #define test_node_get_value_str(u,e) _test_node_get_value_str(__LINE__,u,e)
1716 static void _test_node_get_value_str(unsigned line, IUnknown *unk, const char *exval)
1717 {
1718     IHTMLDOMNode *node = _get_node_iface(line, unk);
1719     VARIANT var;
1720     HRESULT hres;
1721
1722     hres = IHTMLDOMNode_get_nodeValue(node, &var);
1723     IHTMLDOMNode_Release(node);
1724     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
1725
1726     if(exval) {
1727         ok_(__FILE__,line) (V_VT(&var) == VT_BSTR, "vt=%d\n", V_VT(&var));
1728         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&var), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&var)));
1729     }else {
1730         ok_(__FILE__,line) (V_VT(&var) == VT_NULL, "vt=%d, expected VT_NULL\n", V_VT(&var));
1731     }
1732
1733     VariantClear(&var);
1734 }
1735
1736 #define test_node_put_value_str(u,v) _test_node_put_value_str(__LINE__,u,v)
1737 static void _test_node_put_value_str(unsigned line, IUnknown *unk, const char *val)
1738 {
1739     IHTMLDOMNode *node = _get_node_iface(line, unk);
1740     VARIANT var;
1741     HRESULT hres;
1742
1743     V_VT(&var) = VT_BSTR;
1744     V_BSTR(&var) = a2bstr(val);
1745
1746     hres = IHTMLDOMNode_put_nodeValue(node, var);
1747     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
1748     IHTMLDOMNode_Release(node);
1749     VariantClear(&var);
1750 }
1751
1752 #define test_elem_client_size(u) _test_elem_client_size(__LINE__,u)
1753 static void _test_elem_client_size(unsigned line, IUnknown *unk)
1754 {
1755     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1756     LONG l;
1757     HRESULT hres;
1758
1759     hres = IHTMLElement2_get_clientWidth(elem, &l);
1760     ok_(__FILE__,line) (hres == S_OK, "get_clientWidth failed: %08x\n", hres);
1761     hres = IHTMLElement2_get_clientHeight(elem, &l);
1762     ok_(__FILE__,line) (hres == S_OK, "get_clientHeight failed: %08x\n", hres);
1763
1764     IHTMLElement2_Release(elem);
1765 }
1766
1767 #define test_create_elem(d,t) _test_create_elem(__LINE__,d,t)
1768 static IHTMLElement *_test_create_elem(unsigned line, IHTMLDocument2 *doc, const char *tag)
1769 {
1770     IHTMLElement *elem = NULL;
1771     BSTR tmp;
1772     HRESULT hres;
1773
1774     tmp = a2bstr(tag);
1775     hres = IHTMLDocument2_createElement(doc, tmp, &elem);
1776     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
1777     ok_(__FILE__,line) (elem != NULL, "elem == NULL\n");
1778
1779     return elem;
1780 }
1781
1782 #define test_create_text(d,t) _test_create_text(__LINE__,d,t)
1783 static IHTMLDOMNode *_test_create_text(unsigned line, IHTMLDocument2 *doc, const char *text)
1784 {
1785     IHTMLDocument3 *doc3;
1786     IHTMLDOMNode *node = NULL;
1787     BSTR tmp;
1788     HRESULT hres;
1789
1790     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1791     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3: %08x\n", hres);
1792
1793     tmp = a2bstr(text);
1794     hres = IHTMLDocument3_createTextNode(doc3, tmp, &node);
1795     IHTMLDocument3_Release(doc3);
1796     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
1797     ok_(__FILE__,line) (node != NULL, "node == NULL\n");
1798
1799     return node;
1800 }
1801
1802 #define test_node_append_child(n,c) _test_node_append_child(__LINE__,n,c)
1803 static IHTMLDOMNode *_test_node_append_child(unsigned line, IUnknown *node_unk, IUnknown *child_unk)
1804 {
1805     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
1806     IHTMLDOMNode *child = _get_node_iface(line, child_unk);
1807     IHTMLDOMNode *new_child = NULL;
1808     HRESULT hres;
1809
1810     hres = IHTMLDOMNode_appendChild(node, child, &new_child);
1811     ok_(__FILE__,line) (hres == S_OK, "appendChild failed: %08x\n", hres);
1812     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
1813     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
1814
1815     IHTMLDOMNode_Release(node);
1816     IHTMLDOMNode_Release(child);
1817
1818     return new_child;
1819 }
1820
1821 #define test_node_insertbefore(n,c,v) _test_node_insertbefore(__LINE__,n,c,v)
1822 static IHTMLDOMNode *_test_node_insertbefore(unsigned line, IUnknown *node_unk, IHTMLDOMNode *child, VARIANT *var)
1823 {
1824     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
1825     IHTMLDOMNode *new_child = NULL;
1826     HRESULT hres;
1827
1828     hres = IHTMLDOMNode_insertBefore(node, child, *var, &new_child);
1829     ok_(__FILE__,line) (hres == S_OK, "insertBefore failed: %08x\n", hres);
1830     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
1831     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
1832
1833     IHTMLDOMNode_Release(node);
1834
1835     return new_child;
1836 }
1837
1838 #define test_node_remove_child(n,c) _test_node_remove_child(__LINE__,n,c)
1839 static void _test_node_remove_child(unsigned line, IUnknown *unk, IHTMLDOMNode *child)
1840 {
1841     IHTMLDOMNode *node = _get_node_iface(line, unk);
1842     IHTMLDOMNode *new_node = NULL;
1843     HRESULT hres;
1844
1845     hres = IHTMLDOMNode_removeChild(node, child, &new_node);
1846     ok_(__FILE__,line) (hres == S_OK, "removeChild failed: %08x\n", hres);
1847     ok_(__FILE__,line) (new_node != NULL, "new_node == NULL\n");
1848     /* TODO ok_(__FILE__,line) (new_node != child, "new_node == child\n"); */
1849
1850     IHTMLDOMNode_Release(node);
1851     IHTMLDOMNode_Release(new_node);
1852 }
1853
1854 #define test_doc_title(d,t) _test_doc_title(__LINE__,d,t)
1855 static void _test_doc_title(unsigned line, IHTMLDocument2 *doc, const char *extitle)
1856 {
1857     BSTR title = NULL;
1858     HRESULT hres;
1859
1860     hres = IHTMLDocument2_get_title(doc, &title);
1861     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1862     ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
1863     SysFreeString(title);
1864 }
1865
1866 #define test_doc_set_title(d,t) _test_doc_set_title(__LINE__,d,t)
1867 static void _test_doc_set_title(unsigned line, IHTMLDocument2 *doc, const char *title)
1868 {
1869     BSTR tmp;
1870     HRESULT hres;
1871
1872     tmp = a2bstr(title);
1873     hres = IHTMLDocument2_put_title(doc, tmp);
1874     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1875     SysFreeString(tmp);
1876 }
1877
1878 #define test_border_styles(p, n) _test_border_styles(__LINE__, p, n)
1879 static void _test_border_styles(unsigned line, IHTMLStyle *pStyle, BSTR Name)
1880 {
1881     HRESULT hres;
1882     DISPID dispid;
1883
1884     hres = IHTMLStyle_GetIDsOfNames(pStyle, &IID_NULL, &Name, 1,
1885                         LOCALE_USER_DEFAULT, &dispid);
1886     ok_(__FILE__,line) (hres == S_OK, "GetIDsOfNames: %08x\n", hres);
1887     if(hres == S_OK)
1888     {
1889         DISPPARAMS params = {NULL,NULL,0,0};
1890         DISPID dispidNamed = DISPID_PROPERTYPUT;
1891         VARIANT ret;
1892         VARIANT vDefault;
1893         VARIANTARG arg;
1894
1895         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1896             DISPATCH_PROPERTYGET, &params, &vDefault, NULL, NULL);
1897         ok_(__FILE__,line) (hres == S_OK, "get_default. ret: %08x\n", hres);
1898
1899         params.cArgs = 1;
1900         params.cNamedArgs = 1;
1901         params.rgdispidNamedArgs = &dispidNamed;
1902         V_VT(&arg) = VT_BSTR;
1903         V_BSTR(&arg) = a2bstr("none");
1904         params.rgvarg = &arg;
1905         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1906             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1907         ok_(__FILE__,line) (hres == S_OK, "none. ret: %08x\n", hres);
1908         VariantClear(&arg);
1909
1910         V_VT(&arg) = VT_BSTR;
1911         V_BSTR(&arg) = a2bstr("dotted");
1912         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1913             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1914         ok_(__FILE__,line) (hres == S_OK, "dotted. ret: %08x\n", hres);
1915         VariantClear(&arg);
1916
1917         V_VT(&arg) = VT_BSTR;
1918         V_BSTR(&arg) = a2bstr("dashed");
1919         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1920         DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1921         ok_(__FILE__,line) (hres == S_OK, "dashed. ret: %08x\n", hres);
1922         VariantClear(&arg);
1923
1924         V_VT(&arg) = VT_BSTR;
1925         V_BSTR(&arg) = a2bstr("solid");
1926         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1927             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1928         ok_(__FILE__,line) (hres == S_OK, "solid. ret: %08x\n", hres);
1929         VariantClear(&arg);
1930
1931         V_VT(&arg) = VT_BSTR;
1932         V_BSTR(&arg) = a2bstr("double");
1933         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1934             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1935         ok_(__FILE__,line) (hres == S_OK, "double. ret: %08x\n", hres);
1936         VariantClear(&arg);
1937
1938         V_VT(&arg) = VT_BSTR;
1939         V_BSTR(&arg) = a2bstr("groove");
1940         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1941             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1942         ok_(__FILE__,line) (hres == S_OK, "groove. ret: %08x\n", hres);
1943         VariantClear(&arg);
1944
1945         V_VT(&arg) = VT_BSTR;
1946         V_BSTR(&arg) = a2bstr("ridge");
1947         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1948             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1949         ok_(__FILE__,line) (hres == S_OK, "ridge. ret: %08x\n", hres);
1950         VariantClear(&arg);
1951
1952         V_VT(&arg) = VT_BSTR;
1953         V_BSTR(&arg) = a2bstr("inset");
1954         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1955             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1956         ok_(__FILE__,line) (hres == S_OK, "inset. ret: %08x\n", hres);
1957         VariantClear(&arg);
1958
1959         V_VT(&arg) = VT_BSTR;
1960         V_BSTR(&arg) = a2bstr("outset");
1961         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1962             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1963         ok_(__FILE__,line) (hres == S_OK, "outset. ret: %08x\n", hres);
1964         VariantClear(&arg);
1965
1966         V_VT(&arg) = VT_BSTR;
1967         V_BSTR(&arg) = a2bstr("invalid");
1968         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1969             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1970         ok_(__FILE__,line) (FAILED(hres), "invalid value passed.\n");
1971         VariantClear(&arg);
1972
1973         params.rgvarg = &vDefault;
1974         hres = IHTMLStyle_Invoke(pStyle, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
1975             DISPATCH_PROPERTYPUT, &params, &ret, NULL, NULL);
1976         ok_(__FILE__,line) (hres == S_OK, "default. ret: %08x\n", hres);
1977     }
1978 }
1979
1980 #define test_style_csstext(s,t) _test_style_csstext(__LINE__,s,t)
1981 static void _test_style_csstext(unsigned line, IHTMLStyle *style, const char *extext)
1982 {
1983     BSTR text = (void*)0xdeadbeef;
1984     HRESULT hres;
1985
1986     hres = IHTMLStyle_get_cssText(style, &text);
1987     ok_(__FILE__,line)(hres == S_OK, "get_cssText failed: %08x\n", hres);
1988     if(extext)
1989         ok_(__FILE__,line)(!strcmp_wa(text, extext), "cssText = %s\n", wine_dbgstr_w(text));
1990     else
1991         ok_(__FILE__,line)(!text, "cssText = %s\n", wine_dbgstr_w(text));
1992
1993     SysFreeString(text);
1994 }
1995
1996 #define test_style_set_csstext(s,t) _test_style_set_csstext(__LINE__,s,t)
1997 static void _test_style_set_csstext(unsigned line, IHTMLStyle *style, const char *text)
1998 {
1999     BSTR tmp;
2000     HRESULT hres;
2001
2002     tmp = a2bstr(text);
2003     hres = IHTMLStyle_put_cssText(style, tmp);
2004     ok_(__FILE__,line)(hres == S_OK, "put_cssText failed: %08x\n", hres);
2005     SysFreeString(tmp);
2006 }
2007
2008 static void test_elem_col_item(IHTMLElementCollection *col, const char *n,
2009         const elem_type_t *elem_types, LONG len)
2010 {
2011     IDispatch *disp;
2012     VARIANT name, index;
2013     DWORD i;
2014     HRESULT hres;
2015
2016     V_VT(&index) = VT_EMPTY;
2017     V_VT(&name) = VT_BSTR;
2018     V_BSTR(&name) = a2bstr(n);
2019
2020     hres = IHTMLElementCollection_item(col, name, index, &disp);
2021     ok(hres == S_OK, "item failed: %08x\n", hres);
2022
2023     test_elem_collection((IUnknown*)disp, elem_types, len);
2024     IDispatch_Release(disp);
2025     ok(hres == S_OK, "Could not get IHTMLElementCollection interface: %08x\n", hres);
2026     if(hres != S_OK)
2027         goto cleanup;
2028
2029     V_VT(&index) = VT_I4;
2030
2031     for(i=0; i<len; i++) {
2032         V_I4(&index) = i;
2033         disp = (void*)0xdeadbeef;
2034         hres = IHTMLElementCollection_item(col, name, index, &disp);
2035         ok(hres == S_OK, "item failed: %08x\n", hres);
2036         ok(disp != NULL, "disp == NULL\n");
2037         if(FAILED(hres) || !disp)
2038             continue;
2039
2040         test_elem_type((IUnknown*)disp, elem_types[i]);
2041
2042         IDispatch_Release(disp);
2043     }
2044
2045     V_I4(&index) = len;
2046     disp = (void*)0xdeadbeef;
2047     hres = IHTMLElementCollection_item(col, name, index, &disp);
2048     ok(hres == S_OK, "item failed: %08x\n", hres);
2049     ok(disp == NULL, "disp != NULL\n");
2050
2051     V_I4(&index) = -1;
2052     disp = (void*)0xdeadbeef;
2053     hres = IHTMLElementCollection_item(col, name, index, &disp);
2054     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
2055     ok(disp == NULL, "disp != NULL\n");
2056
2057 cleanup:
2058     SysFreeString(V_BSTR(&name));
2059 }
2060
2061 static IHTMLElement *get_elem_by_id(IHTMLDocument2 *doc, const char *id, BOOL expect_success)
2062 {
2063     IHTMLElementCollection *col;
2064     IHTMLElement *elem;
2065     IDispatch *disp = (void*)0xdeadbeef;
2066     VARIANT name, index;
2067     HRESULT hres;
2068
2069     hres = IHTMLDocument2_get_all(doc, &col);
2070     ok(hres == S_OK, "get_all failed: %08x\n", hres);
2071     ok(col != NULL, "col == NULL\n");
2072     if(FAILED(hres) || !col)
2073         return NULL;
2074
2075     V_VT(&index) = VT_EMPTY;
2076     V_VT(&name) = VT_BSTR;
2077     V_BSTR(&name) = a2bstr(id);
2078
2079     hres = IHTMLElementCollection_item(col, name, index, &disp);
2080     IHTMLElementCollection_Release(col);
2081     SysFreeString(V_BSTR(&name));
2082     ok(hres == S_OK, "item failed: %08x\n", hres);
2083     if(!expect_success) {
2084         ok(disp == NULL, "disp != NULL\n");
2085         return NULL;
2086     }
2087
2088     ok(disp != NULL, "disp == NULL\n");
2089     if(!disp)
2090         return NULL;
2091
2092     elem = get_elem_iface((IUnknown*)disp);
2093     IDispatch_Release(disp);
2094
2095     return elem;
2096 }
2097
2098 static IHTMLElement *get_doc_elem_by_id(IHTMLDocument2 *doc, const char *id)
2099 {
2100     IHTMLDocument3 *doc3;
2101     IHTMLElement *elem;
2102     BSTR tmp;
2103     HRESULT hres;
2104
2105     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
2106     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
2107
2108     tmp = a2bstr(id);
2109     hres = IHTMLDocument3_getElementById(doc3, tmp, &elem);
2110     SysFreeString(tmp);
2111     ok(hres == S_OK, "getElementById(%s) failed: %08x\n", id, hres);
2112
2113     IHTMLDocument3_Release(doc3);
2114
2115     return elem;
2116 }
2117
2118 static void test_select_elem(IHTMLSelectElement *select)
2119 {
2120     test_select_type(select, "select-one");
2121     test_select_length(select, 2);
2122     test_select_selidx(select, 0);
2123     test_select_put_selidx(select, 1);
2124
2125     test_select_set_value(select, "val1");
2126     test_select_value(select, "val1");
2127
2128     test_select_get_disabled(select, VARIANT_FALSE);
2129     test_select_set_disabled(select, VARIANT_TRUE);
2130     test_select_set_disabled(select, VARIANT_FALSE);
2131 }
2132
2133 static void test_create_option_elem(IHTMLDocument2 *doc)
2134 {
2135     IHTMLOptionElement *option;
2136
2137     option = create_option_elem(doc, "test text", "test value");
2138
2139     test_option_put_text(option, "new text");
2140     test_option_put_value(option, "new value");
2141
2142     IHTMLOptionElement_Release(option);
2143 }
2144
2145 static IHTMLTxtRange *test_create_body_range(IHTMLDocument2 *doc)
2146 {
2147     IHTMLBodyElement *body;
2148     IHTMLTxtRange *range;
2149     IHTMLElement *elem;
2150     HRESULT hres;
2151
2152     hres = IHTMLDocument2_get_body(doc, &elem);
2153     ok(hres == S_OK, "get_body failed: %08x\n", hres);
2154
2155     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
2156     IHTMLElement_Release(elem);
2157
2158     hres = IHTMLBodyElement_createTextRange(body, &range);
2159     IHTMLBodyElement_Release(body);
2160     ok(hres == S_OK, "createTextRange failed: %08x\n", hres);
2161
2162     return range;
2163 }
2164
2165 static void test_txtrange(IHTMLDocument2 *doc)
2166 {
2167     IHTMLTxtRange *body_range, *range, *range2;
2168     IHTMLSelectionObject *selection;
2169     IDispatch *disp_range;
2170     HRESULT hres;
2171
2172     body_range = test_create_body_range(doc);
2173
2174     test_range_text(body_range, "test abc 123\r\nit's text");
2175
2176     hres = IHTMLTxtRange_duplicate(body_range, &range);
2177     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2178
2179     hres = IHTMLTxtRange_duplicate(body_range, &range2);
2180     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2181     test_range_isequal(range, range2, VARIANT_TRUE);
2182
2183     test_range_text(range, "test abc 123\r\nit's text");
2184     test_range_text(body_range, "test abc 123\r\nit's text");
2185
2186     test_range_collapse(range, TRUE);
2187     test_range_isequal(range, range2, VARIANT_FALSE);
2188     test_range_inrange(range, range2, VARIANT_FALSE);
2189     test_range_inrange(range2, range, VARIANT_TRUE);
2190     IHTMLTxtRange_Release(range2);
2191
2192     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
2193     test_range_expand(range, wordW, VARIANT_FALSE, "test ");
2194     test_range_move(range, characterW, 2, 2);
2195     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
2196
2197     test_range_collapse(range, FALSE);
2198     test_range_expand(range, wordW, VARIANT_TRUE, "abc ");
2199
2200     test_range_collapse(range, FALSE);
2201     test_range_expand(range, wordW, VARIANT_TRUE, "123");
2202     test_range_expand(range, wordW, VARIANT_FALSE, "123");
2203     test_range_move(range, characterW, 2, 2);
2204     test_range_expand(range, wordW, VARIANT_TRUE, "123");
2205     test_range_moveend(range, characterW, -5, -5);
2206     test_range_text(range, NULL);
2207     test_range_moveend(range, characterW, 3, 3);
2208     test_range_text(range, "c 1");
2209     test_range_expand(range, texteditW, VARIANT_TRUE, "test abc 123\r\nit's text");
2210     test_range_collapse(range, TRUE);
2211     test_range_move(range, characterW, 4, 4);
2212     test_range_moveend(range, characterW, 1, 1);
2213     test_range_text(range, " ");
2214     test_range_move(range, wordW, 1, 1);
2215     test_range_moveend(range, characterW, 2, 2);
2216     test_range_text(range, "ab");
2217
2218     IHTMLTxtRange_Release(range);
2219
2220     hres = IHTMLTxtRange_duplicate(body_range, &range);
2221     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2222
2223     test_range_text(range, "test abc 123\r\nit's text");
2224     test_range_move(range, characterW, 3, 3);
2225     test_range_moveend(range, characterW, 1, 1);
2226     test_range_text(range, "t");
2227     test_range_moveend(range, characterW, 3, 3);
2228     test_range_text(range, "t ab");
2229     test_range_moveend(range, characterW, -2, -2);
2230     test_range_text(range, "t ");
2231     test_range_move(range, characterW, 6, 6);
2232     test_range_moveend(range, characterW, 3, 3);
2233     test_range_text(range, "123");
2234     test_range_moveend(range, characterW, 2, 2);
2235     test_range_text(range, "123\r\ni");
2236
2237     IHTMLTxtRange_Release(range);
2238
2239     hres = IHTMLTxtRange_duplicate(body_range, &range);
2240     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2241
2242     test_range_move(range, wordW, 1, 1);
2243     test_range_moveend(range, characterW, 2, 2);
2244     test_range_text(range, "ab");
2245
2246     test_range_move(range, characterW, -2, -2);
2247     test_range_moveend(range, characterW, 2, 2);
2248     test_range_text(range, "t ");
2249
2250     test_range_move(range, wordW, 3, 3);
2251     test_range_move(range, wordW, -2, -2);
2252     test_range_moveend(range, characterW, 2, 2);
2253     test_range_text(range, "ab");
2254
2255     test_range_move(range, characterW, -6, -5);
2256     test_range_moveend(range, characterW, -1, 0);
2257     test_range_moveend(range, characterW, -6, 0);
2258     test_range_move(range, characterW, 2, 2);
2259     test_range_moveend(range, characterW, 2, 2);
2260     test_range_text(range, "st");
2261     test_range_moveend(range, characterW, -6, -4);
2262     test_range_moveend(range, characterW, 2, 2);
2263
2264     IHTMLTxtRange_Release(range);
2265
2266     hres = IHTMLTxtRange_duplicate(body_range, &range);
2267     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2268
2269     test_range_move(range, wordW, 2, 2);
2270     test_range_moveend(range, characterW, 2, 2);
2271     test_range_text(range, "12");
2272
2273     test_range_move(range, characterW, 15, 14);
2274     test_range_move(range, characterW, -2, -2);
2275     test_range_moveend(range, characterW, 3, 2);
2276     test_range_text(range, "t");
2277     test_range_moveend(range, characterW, -1, -1);
2278     test_range_text(range, "t");
2279     test_range_expand(range, wordW, VARIANT_TRUE, "text");
2280     test_range_move(range, characterW, -2, -2);
2281     test_range_moveend(range, characterW, 2, 2);
2282     test_range_text(range, "s ");
2283     test_range_move(range, characterW, 100, 7);
2284     test_range_move(range, wordW, 1, 0);
2285     test_range_move(range, characterW, -2, -2);
2286     test_range_moveend(range, characterW, 3, 2);
2287     test_range_text(range, "t");
2288
2289     IHTMLTxtRange_Release(range);
2290
2291     hres = IHTMLTxtRange_duplicate(body_range, &range);
2292     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
2293
2294     test_range_collapse(range, TRUE);
2295     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
2296     test_range_put_text(range, "word");
2297     test_range_text(body_range, "wordabc 123\r\nit's text");
2298     test_range_text(range, NULL);
2299     test_range_moveend(range, characterW, 3, 3);
2300     test_range_text(range, "abc");
2301     test_range_movestart(range, characterW, -2, -2);
2302     test_range_text(range, "rdabc");
2303     test_range_movestart(range, characterW, 3, 3);
2304     test_range_text(range, "bc");
2305     test_range_movestart(range, characterW, 4, 4);
2306     test_range_text(range, NULL);
2307     test_range_movestart(range, characterW, -3, -3);
2308     test_range_text(range, "c 1");
2309     test_range_movestart(range, characterW, -7, -6);
2310     test_range_text(range, "wordabc 1");
2311     test_range_movestart(range, characterW, 100, 22);
2312     test_range_text(range, NULL);
2313
2314     IHTMLTxtRange_Release(range);
2315     IHTMLTxtRange_Release(body_range);
2316
2317     hres = IHTMLDocument2_get_selection(doc, &selection);
2318     ok(hres == S_OK, "IHTMLDocument2_get_selection failed: %08x\n", hres);
2319
2320     hres = IHTMLSelectionObject_createRange(selection, &disp_range);
2321     ok(hres == S_OK, "IHTMLSelectionObject_createRange failed: %08x\n", hres);
2322     IHTMLSelectionObject_Release(selection);
2323
2324     hres = IDispatch_QueryInterface(disp_range, &IID_IHTMLTxtRange, (void **)&range);
2325     ok(hres == S_OK, "Could not get IID_IHTMLTxtRange interface: 0x%08x\n", hres);
2326     IDispatch_Release(disp_range);
2327
2328     test_range_text(range, NULL);
2329     test_range_moveend(range, characterW, 3, 3);
2330     test_range_text(range, "wor");
2331     test_range_parent(range, ET_BODY);
2332     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
2333     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
2334     test_range_move(range, characterW, 3, 3);
2335     test_range_expand(range, wordW, VARIANT_TRUE, "wordabc ");
2336     test_range_moveend(range, characterW, -4, -4);
2337     test_range_put_text(range, "abc def ");
2338     test_range_expand(range, texteditW, VARIANT_TRUE, "abc def abc 123\r\nit's text");
2339     test_range_move(range, wordW, 1, 1);
2340     test_range_movestart(range, characterW, -1, -1);
2341     test_range_text(range, " ");
2342     test_range_move(range, wordW, 1, 1);
2343     test_range_moveend(range, characterW, 3, 3);
2344     test_range_text(range, "def");
2345     test_range_put_text(range, "xyz");
2346     test_range_moveend(range, characterW, 1, 1);
2347     test_range_move(range, wordW, 1, 1);
2348     test_range_moveend(range, characterW, 2, 2);
2349     test_range_text(range, "ab");
2350
2351     IHTMLTxtRange_Release(range);
2352 }
2353
2354 static void test_txtrange2(IHTMLDocument2 *doc)
2355 {
2356     IHTMLTxtRange *range;
2357
2358     range = test_create_body_range(doc);
2359
2360     test_range_text(range, "abc\r\n\r\n123\r\n\r\n\r\ndef");
2361     test_range_move(range, characterW, 5, 5);
2362     test_range_moveend(range, characterW, 1, 1);
2363     test_range_text(range, "2");
2364     test_range_move(range, characterW, -3, -3);
2365     test_range_moveend(range, characterW, 3, 3);
2366     test_range_text(range, "c\r\n\r\n1");
2367     test_range_collapse(range, VARIANT_FALSE);
2368     test_range_moveend(range, characterW, 4, 4);
2369     test_range_text(range, "23");
2370     test_range_moveend(range, characterW, 1, 1);
2371     test_range_text(range, "23\r\n\r\n\r\nd");
2372     test_range_moveend(range, characterW, -1, -1);
2373     test_range_text(range, "23");
2374     test_range_moveend(range, characterW, -1, -1);
2375     test_range_text(range, "23");
2376     test_range_moveend(range, characterW, -2, -2);
2377     test_range_text(range, "2");
2378
2379     IHTMLTxtRange_Release(range);
2380 }
2381
2382 static void test_compatmode(IHTMLDocument2 *doc)
2383 {
2384     IHTMLDocument5 *doc5;
2385     BSTR mode;
2386     HRESULT hres;
2387
2388     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
2389     ok(hres == S_OK, "Could not get IHTMLDocument5 interface: %08x\n", hres);
2390     if(FAILED(hres))
2391         return;
2392
2393     hres = IHTMLDocument5_get_compatMode(doc5, &mode);
2394     IHTMLDocument5_Release(doc5);
2395     ok(hres == S_OK, "get_compatMode failed: %08x\n", hres);
2396     ok(!strcmp_wa(mode, "BackCompat"), "compatMode=%s\n", wine_dbgstr_w(mode));
2397     SysFreeString(mode);
2398 }
2399
2400 static void test_location(IHTMLDocument2 *doc)
2401 {
2402     IHTMLLocation *location, *location2;
2403     IHTMLWindow2 *window;
2404     BSTR str;
2405     ULONG ref;
2406     HRESULT hres;
2407
2408     hres = IHTMLDocument2_get_location(doc, &location);
2409     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2410
2411     hres = IHTMLDocument2_get_location(doc, &location2);
2412     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2413
2414     ok(location == location2, "location != location2\n");
2415     IHTMLLocation_Release(location2);
2416
2417     hres = IHTMLDocument2_get_parentWindow(doc, &window);
2418     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
2419
2420     hres = IHTMLWindow2_get_location(window, &location2);
2421     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2422     ok(location == location2, "location != location2\n");
2423     IHTMLLocation_Release(location2);
2424
2425     test_ifaces((IUnknown*)location, location_iids);
2426     test_disp2((IUnknown*)location, &DIID_DispHTMLLocation, &IID_IHTMLLocation, "about:blank");
2427
2428     hres = IHTMLLocation_get_pathname(location, &str);
2429     ok(hres == S_OK, "get_pathname failed: %08x\n", hres);
2430     ok(!strcmp_wa(str, "blank"), "unexpected pathname %s\n", wine_dbgstr_w(str));
2431
2432     hres = IHTMLLocation_get_href(location, NULL);
2433     ok(hres == E_POINTER, "get_href passed: %08x\n", hres);
2434
2435     hres = IHTMLLocation_get_href(location, &str);
2436     ok(hres == S_OK, "get_href failed: %08x\n", hres);
2437     ok(!strcmp_wa(str, "about:blank"), "unexpected href %s\n", wine_dbgstr_w(str));
2438
2439     ref = IHTMLLocation_Release(location);
2440     ok(!ref, "location chould be destroyed here\n");
2441 }
2442
2443 static void test_navigator(IHTMLDocument2 *doc)
2444 {
2445     IHTMLWindow2 *window;
2446     IOmNavigator *navigator, *navigator2;
2447     ULONG ref;
2448     BSTR bstr;
2449     HRESULT hres;
2450
2451     static const WCHAR v40[] = {'4','.','0'};
2452
2453     hres = IHTMLDocument2_get_parentWindow(doc, &window);
2454     ok(hres == S_OK, "parentWidnow failed: %08x\n", hres);
2455
2456     hres = IHTMLWindow2_get_navigator(window, &navigator);
2457     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
2458     ok(navigator != NULL, "navigator == NULL\n");
2459     test_disp2((IUnknown*)navigator, &DIID_DispHTMLNavigator, &IID_IOmNavigator, "[object]");
2460
2461     hres = IHTMLWindow2_get_navigator(window, &navigator2);
2462     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
2463     ok(navigator != navigator2, "navigator2 != navihgator\n");
2464
2465     IHTMLWindow2_Release(window);
2466     IOmNavigator_Release(navigator2);
2467
2468     hres = IOmNavigator_get_appCodeName(navigator, &bstr);
2469     ok(hres == S_OK, "get_appCodeName failed: %08x\n", hres);
2470     ok(!strcmp_wa(bstr, "Mozilla"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
2471     SysFreeString(bstr);
2472
2473     bstr = NULL;
2474     hres = IOmNavigator_get_appName(navigator, &bstr);
2475     ok(hres == S_OK, "get_appName failed: %08x\n", hres);
2476     ok(!strcmp_wa(bstr, "Microsoft Internet Explorer"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
2477     SysFreeString(bstr);
2478
2479     bstr = NULL;
2480     hres = IOmNavigator_get_platform(navigator, &bstr);
2481     ok(hres == S_OK, "get_platform failed: %08x\n", hres);
2482 #ifdef _WIN64
2483     ok(!strcmp_wa(bstr, "Win64"), "unexpected platform %s\n", wine_dbgstr_w(bstr));
2484 #else
2485     ok(!strcmp_wa(bstr, "Win32"), "unexpected platform %s\n", wine_dbgstr_w(bstr));
2486 #endif
2487     SysFreeString(bstr);
2488
2489     bstr = NULL;
2490     hres = IOmNavigator_get_appVersion(navigator, &bstr);
2491     ok(hres == S_OK, "get_appVersion failed: %08x\n", hres);
2492     ok(!memcmp(bstr, v40, sizeof(v40)), "appVersion is %s\n", wine_dbgstr_w(bstr));
2493     SysFreeString(bstr);
2494
2495     ref = IOmNavigator_Release(navigator);
2496     ok(!ref, "navigator should be destroyed here\n");
2497 }
2498
2499 static void test_current_style(IHTMLCurrentStyle *current_style)
2500 {
2501     BSTR str;
2502     HRESULT hres;
2503     VARIANT v;
2504
2505     test_disp((IUnknown*)current_style, &DIID_DispHTMLCurrentStyle, "[object]");
2506     test_ifaces((IUnknown*)current_style, cstyle_iids);
2507
2508     hres = IHTMLCurrentStyle_get_display(current_style, &str);
2509     ok(hres == S_OK, "get_display failed: %08x\n", hres);
2510     ok(!strcmp_wa(str, "block"), "get_display returned %s\n", wine_dbgstr_w(str));
2511     SysFreeString(str);
2512
2513     hres = IHTMLCurrentStyle_get_position(current_style, &str);
2514     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2515     ok(!strcmp_wa(str, "absolute"), "get_position returned %s\n", wine_dbgstr_w(str));
2516     SysFreeString(str);
2517
2518     hres = IHTMLCurrentStyle_get_fontFamily(current_style, &str);
2519     ok(hres == S_OK, "get_fontFamily failed: %08x\n", hres);
2520     SysFreeString(str);
2521
2522     hres = IHTMLCurrentStyle_get_fontStyle(current_style, &str);
2523     ok(hres == S_OK, "get_fontStyle failed: %08x\n", hres);
2524     ok(!strcmp_wa(str, "normal"), "get_fontStyle returned %s\n", wine_dbgstr_w(str));
2525     SysFreeString(str);
2526
2527     hres = IHTMLCurrentStyle_get_backgroundImage(current_style, &str);
2528     ok(hres == S_OK, "get_backgroundImage failed: %08x\n", hres);
2529     ok(!strcmp_wa(str, "none"), "get_backgroundImage returned %s\n", wine_dbgstr_w(str));
2530     SysFreeString(str);
2531
2532     hres = IHTMLCurrentStyle_get_fontVariant(current_style, &str);
2533     ok(hres == S_OK, "get_fontVariant failed: %08x\n", hres);
2534     ok(!strcmp_wa(str, "normal"), "get_fontVariant returned %s\n", wine_dbgstr_w(str));
2535     SysFreeString(str);
2536
2537     hres = IHTMLCurrentStyle_get_borderTopStyle(current_style, &str);
2538     ok(hres == S_OK, "get_borderTopStyle failed: %08x\n", hres);
2539     ok(!strcmp_wa(str, "none"), "get_borderTopStyle returned %s\n", wine_dbgstr_w(str));
2540     SysFreeString(str);
2541
2542     hres = IHTMLCurrentStyle_get_borderRightStyle(current_style, &str);
2543     ok(hres == S_OK, "get_borderRightStyle failed: %08x\n", hres);
2544     ok(!strcmp_wa(str, "none"), "get_borderRightStyle returned %s\n", wine_dbgstr_w(str));
2545     SysFreeString(str);
2546
2547     hres = IHTMLCurrentStyle_get_borderBottomStyle(current_style, &str);
2548     ok(hres == S_OK, "get_borderBottomStyle failed: %08x\n", hres);
2549     ok(!strcmp_wa(str, "none"), "get_borderBottomStyle returned %s\n", wine_dbgstr_w(str));
2550     SysFreeString(str);
2551
2552     hres = IHTMLCurrentStyle_get_borderLeftStyle(current_style, &str);
2553     ok(hres == S_OK, "get_borderLeftStyle failed: %08x\n", hres);
2554     ok(!strcmp_wa(str, "none"), "get_borderLeftStyle returned %s\n", wine_dbgstr_w(str));
2555     SysFreeString(str);
2556
2557     hres = IHTMLCurrentStyle_get_textAlign(current_style, &str);
2558     ok(hres == S_OK, "get_textAlign failed: %08x\n", hres);
2559     ok(!strcmp_wa(str, "center"), "get_textAlign returned %s\n", wine_dbgstr_w(str));
2560     SysFreeString(str);
2561
2562     hres = IHTMLCurrentStyle_get_textDecoration(current_style, &str);
2563     ok(hres == S_OK, "get_textDecoration failed: %08x\n", hres);
2564     ok(!strcmp_wa(str, "none"), "get_textDecoration returned %s\n", wine_dbgstr_w(str));
2565     SysFreeString(str);
2566
2567     hres = IHTMLCurrentStyle_get_cursor(current_style, &str);
2568     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
2569     ok(!strcmp_wa(str, "default"), "get_cursor returned %s\n", wine_dbgstr_w(str));
2570     SysFreeString(str);
2571
2572     hres = IHTMLCurrentStyle_get_backgroundRepeat(current_style, &str);
2573     ok(hres == S_OK, "get_backgroundRepeat failed: %08x\n", hres);
2574     ok(!strcmp_wa(str, "repeat"), "get_backgroundRepeat returned %s\n", wine_dbgstr_w(str));
2575     SysFreeString(str);
2576
2577     hres = IHTMLCurrentStyle_get_borderColor(current_style, &str);
2578     ok(hres == S_OK, "get_borderColor failed: %08x\n", hres);
2579     SysFreeString(str);
2580
2581     hres = IHTMLCurrentStyle_get_borderStyle(current_style, &str);
2582     ok(hres == S_OK, "get_borderStyle failed: %08x\n", hres);
2583     SysFreeString(str);
2584
2585     hres = IHTMLCurrentStyle_get_visibility(current_style, &str);
2586     ok(hres == S_OK, "get_visibility failed: %08x\n", hres);
2587     SysFreeString(str);
2588
2589     hres = IHTMLCurrentStyle_get_overflow(current_style, &str);
2590     ok(hres == S_OK, "get_overflow failed: %08x\n", hres);
2591     SysFreeString(str);
2592
2593     hres = IHTMLCurrentStyle_get_borderWidth(current_style, &str);
2594     ok(hres == S_OK, "get_borderWidth failed: %08x\n", hres);
2595     SysFreeString(str);
2596
2597     hres = IHTMLCurrentStyle_get_margin(current_style, &str);
2598     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
2599     SysFreeString(str);
2600
2601     hres = IHTMLCurrentStyle_get_fontWeight(current_style, &v);
2602     ok(hres == S_OK, "get_fontWeight failed: %08x\n", hres);
2603     ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2604     ok( V_I4(&v) == 400, "expect 400 got (%d)\n", V_I4(&v));
2605     VariantClear(&v);
2606
2607     hres = IHTMLCurrentStyle_get_fontSize(current_style, &v);
2608     ok(hres == S_OK, "get_fontSize failed: %08x\n", hres);
2609     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2610     VariantClear(&v);
2611
2612     hres = IHTMLCurrentStyle_get_left(current_style, &v);
2613     ok(hres == S_OK, "get_left failed: %08x\n", hres);
2614     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2615     VariantClear(&v);
2616
2617     hres = IHTMLCurrentStyle_get_top(current_style, &v);
2618     ok(hres == S_OK, "get_top failed: %08x\n", hres);
2619     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2620     VariantClear(&v);
2621
2622     hres = IHTMLCurrentStyle_get_width(current_style, &v);
2623     ok(hres == S_OK, "get_width failed: %08x\n", hres);
2624     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2625     VariantClear(&v);
2626
2627     hres = IHTMLCurrentStyle_get_height(current_style, &v);
2628     ok(hres == S_OK, "get_height failed: %08x\n", hres);
2629     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2630     VariantClear(&v);
2631
2632     hres = IHTMLCurrentStyle_get_paddingLeft(current_style, &v);
2633     ok(hres == S_OK, "get_paddingLeft failed: %08x\n", hres);
2634     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2635     VariantClear(&v);
2636
2637     hres = IHTMLCurrentStyle_get_zIndex(current_style, &v);
2638     ok(hres == S_OK, "get_zIndex failed: %08x\n", hres);
2639     ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2640     ok( V_I4(&v) == 1, "expect 1 got (%d)\n", V_I4(&v));
2641     VariantClear(&v);
2642
2643     hres = IHTMLCurrentStyle_get_verticalAlign(current_style, &v);
2644     ok(hres == S_OK, "get_verticalAlign failed: %08x\n", hres);
2645     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2646     ok(!strcmp_wa(V_BSTR(&v), "middle"), "get_verticalAlign returned %s\n", wine_dbgstr_w(V_BSTR(&v)));
2647     VariantClear(&v);
2648
2649     hres = IHTMLCurrentStyle_get_marginRight(current_style, &v);
2650     ok(hres == S_OK, "get_marginRight failed: %08x\n", hres);
2651     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2652     VariantClear(&v);
2653
2654     hres = IHTMLCurrentStyle_get_marginLeft(current_style, &v);
2655     ok(hres == S_OK, "get_marginLeft failed: %08x\n", hres);
2656     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2657     VariantClear(&v);
2658
2659     hres = IHTMLCurrentStyle_get_borderLeftWidth(current_style, &v);
2660     ok(hres == S_OK, "get_borderLeftWidth failed: %08x\n", hres);
2661     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2662     VariantClear(&v);
2663
2664     V_BSTR(&v) = NULL;
2665     hres = IHTMLCurrentStyle_get_borderRightWidth(current_style, &v);
2666     ok(hres == S_OK, "get_borderRightWidth failed: %08x\n", hres);
2667     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2668     VariantClear(&v);
2669
2670     hres = IHTMLCurrentStyle_get_borderBottomWidth(current_style, &v);
2671     ok(hres == S_OK, "get_borderBottomWidth failed: %08x\n", hres);
2672     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2673     VariantClear(&v);
2674
2675     hres = IHTMLCurrentStyle_get_borderTopWidth(current_style, &v);
2676     ok(hres == S_OK, "get_borderTopWidth failed: %08x\n", hres);
2677     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2678     VariantClear(&v);
2679
2680     hres = IHTMLCurrentStyle_get_color(current_style, &v);
2681     ok(hres == S_OK, "get_color failed: %08x\n", hres);
2682     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2683     VariantClear(&v);
2684
2685     hres = IHTMLCurrentStyle_get_backgroundColor(current_style, &v);
2686     ok(hres == S_OK, "get_backgroundColor failed: %08x\n", hres);
2687     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2688     VariantClear(&v);
2689 }
2690
2691 static void test_style2(IHTMLStyle2 *style2)
2692 {
2693     BSTR str;
2694     HRESULT hres;
2695
2696     str = (void*)0xdeadbeef;
2697     hres = IHTMLStyle2_get_position(style2, &str);
2698     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2699     ok(!str, "str != NULL\n");
2700
2701     str = a2bstr("absolute");
2702     hres = IHTMLStyle2_put_position(style2, str);
2703     ok(hres == S_OK, "put_position failed: %08x\n", hres);
2704     SysFreeString(str);
2705
2706     str = NULL;
2707     hres = IHTMLStyle2_get_position(style2, &str);
2708     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2709     ok(!strcmp_wa(str, "absolute"), "get_position returned %s\n", wine_dbgstr_w(str));
2710     SysFreeString(str);
2711 }
2712
2713 static void test_style3(IHTMLStyle3 *style3)
2714 {
2715     BSTR str;
2716     HRESULT hres;
2717
2718     str = (void*)0xdeadbeef;
2719     hres = IHTMLStyle3_get_wordWrap(style3, &str);
2720     ok(hres == S_OK, "get_wordWrap failed: %08x\n", hres);
2721     ok(!str, "str != NULL\n");
2722
2723     str = a2bstr("break-word");
2724     hres = IHTMLStyle3_put_wordWrap(style3, str);
2725     ok(hres == S_OK, "put_wordWrap failed: %08x\n", hres);
2726     SysFreeString(str);
2727
2728     str = NULL;
2729     hres = IHTMLStyle3_get_wordWrap(style3, &str);
2730     ok(hres == S_OK, "get_wordWrap failed: %08x\n", hres);
2731     ok(!strcmp_wa(str, "break-word"), "get_wordWrap returned %s\n", wine_dbgstr_w(str));
2732     SysFreeString(str);
2733 }
2734
2735 static void test_style4(IHTMLStyle4 *style4)
2736 {
2737     HRESULT hres;
2738     VARIANT v;
2739     VARIANT vdefault;
2740
2741     hres = IHTMLStyle4_get_minHeight(style4, &vdefault);
2742     ok(hres == S_OK, "get_minHeight failed: %08x\n", hres);
2743
2744     V_VT(&v) = VT_BSTR;
2745     V_BSTR(&v) = a2bstr("10px");
2746     hres = IHTMLStyle4_put_minHeight(style4, v);
2747     ok(hres == S_OK, "put_minHeight failed: %08x\n", hres);
2748     VariantClear(&v);
2749
2750     hres = IHTMLStyle4_get_minHeight(style4, &v);
2751     ok(hres == S_OK, "get_minHeight failed: %08x\n", hres);
2752     ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2753     ok( !strcmp_wa(V_BSTR(&v), "10px"), "expect 10px got (%s)\n", wine_dbgstr_w(V_BSTR(&v)));
2754
2755     hres = IHTMLStyle4_put_minHeight(style4, vdefault);
2756     ok(hres == S_OK, "put_minHeight failed: %08x\n", hres);
2757     VariantClear(&vdefault);
2758 }
2759
2760 static void test_default_style(IHTMLStyle *style)
2761 {
2762     IHTMLStyle2 *style2;
2763     IHTMLStyle3 *style3;
2764     IHTMLStyle4 *style4;
2765     VARIANT_BOOL b;
2766     VARIANT v;
2767     BSTR str;
2768     HRESULT hres;
2769     float f;
2770     BSTR sOverflowDefault;
2771     BSTR sDefault;
2772     VARIANT vDefault;
2773
2774     test_disp((IUnknown*)style, &DIID_DispHTMLStyle, "[object]");
2775     test_ifaces((IUnknown*)style, style_iids);
2776
2777     test_style_csstext(style, NULL);
2778
2779     hres = IHTMLStyle_get_position(style, &str);
2780     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2781     ok(!str, "str=%s\n", wine_dbgstr_w(str));
2782
2783     V_VT(&v) = VT_NULL;
2784     hres = IHTMLStyle_get_marginRight(style, &v);
2785     ok(hres == S_OK, "get_marginRight failed: %08x\n", hres);
2786     ok(V_VT(&v) == VT_BSTR, "V_VT(marginRight) = %d\n", V_VT(&v));
2787     ok(!V_BSTR(&v), "V_BSTR(marginRight) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
2788
2789     V_VT(&v) = VT_NULL;
2790     hres = IHTMLStyle_get_marginLeft(style, &v);
2791     ok(hres == S_OK, "get_marginLeft failed: %08x\n", hres);
2792     ok(V_VT(&v) == VT_BSTR, "V_VT(marginLeft) = %d\n", V_VT(&v));
2793     ok(!V_BSTR(&v), "V_BSTR(marginLeft) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
2794
2795     str = (void*)0xdeadbeef;
2796     hres = IHTMLStyle_get_fontFamily(style, &str);
2797     ok(hres == S_OK, "get_fontFamily failed: %08x\n", hres);
2798     ok(!str, "fontFamily = %s\n", wine_dbgstr_w(str));
2799
2800     str = (void*)0xdeadbeef;
2801     hres = IHTMLStyle_get_fontWeight(style, &str);
2802     ok(hres == S_OK, "get_fontWeight failed: %08x\n", hres);
2803     ok(!str, "fontWeight = %s\n", wine_dbgstr_w(str));
2804
2805     hres = IHTMLStyle_get_fontWeight(style, &sDefault);
2806     ok(hres == S_OK, "get_fontWeight failed: %08x\n", hres);
2807
2808     str = a2bstr("test");
2809     hres = IHTMLStyle_put_fontWeight(style, str);
2810     ok(hres == E_INVALIDARG, "put_fontWeight failed: %08x\n", hres);
2811     SysFreeString(str);
2812
2813     str = a2bstr("bold");
2814     hres = IHTMLStyle_put_fontWeight(style, str);
2815     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2816     SysFreeString(str);
2817
2818     str = a2bstr("bolder");
2819     hres = IHTMLStyle_put_fontWeight(style, str);
2820     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2821     SysFreeString(str);
2822
2823     str = a2bstr("lighter");
2824     hres = IHTMLStyle_put_fontWeight(style, str);
2825     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2826     SysFreeString(str);
2827
2828     str = a2bstr("100");
2829     hres = IHTMLStyle_put_fontWeight(style, str);
2830     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2831     SysFreeString(str);
2832
2833     str = a2bstr("200");
2834     hres = IHTMLStyle_put_fontWeight(style, str);
2835     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2836     SysFreeString(str);
2837
2838     str = a2bstr("300");
2839     hres = IHTMLStyle_put_fontWeight(style, str);
2840     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2841     SysFreeString(str);
2842
2843     str = a2bstr("400");
2844     hres = IHTMLStyle_put_fontWeight(style, str);
2845     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2846     SysFreeString(str);
2847
2848     str = a2bstr("500");
2849     hres = IHTMLStyle_put_fontWeight(style, str);
2850     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2851     SysFreeString(str);
2852
2853     str = a2bstr("600");
2854     hres = IHTMLStyle_put_fontWeight(style, str);
2855     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2856     SysFreeString(str);
2857
2858     str = a2bstr("700");
2859     hres = IHTMLStyle_put_fontWeight(style, str);
2860     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2861     SysFreeString(str);
2862
2863     str = a2bstr("800");
2864     hres = IHTMLStyle_put_fontWeight(style, str);
2865     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2866     SysFreeString(str);
2867
2868     str = a2bstr("900");
2869     hres = IHTMLStyle_put_fontWeight(style, str);
2870     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2871     SysFreeString(str);
2872
2873     hres = IHTMLStyle_get_fontWeight(style, &str);
2874     ok(hres == S_OK, "get_fontWeight failed: %08x\n", hres);
2875     ok(!strcmp_wa(str, "900"), "str != style900\n");
2876     SysFreeString(str);
2877
2878     hres = IHTMLStyle_put_fontWeight(style, sDefault);
2879     ok(hres == S_OK, "put_fontWeight failed: %08x\n", hres);
2880     SysFreeString(sDefault);
2881
2882     /* font Variant */
2883     hres = IHTMLStyle_get_fontVariant(style, NULL);
2884     ok(hres == E_INVALIDARG, "get_fontVariant failed: %08x\n", hres);
2885
2886     hres = IHTMLStyle_get_fontVariant(style, &sDefault);
2887     ok(hres == S_OK, "get_fontVariant failed: %08x\n", hres);
2888
2889     str = a2bstr("test");
2890     hres = IHTMLStyle_put_fontVariant(style, str);
2891     ok(hres == E_INVALIDARG, "fontVariant failed: %08x\n", hres);
2892     SysFreeString(str);
2893
2894     str = a2bstr("small-caps");
2895     hres = IHTMLStyle_put_fontVariant(style, str);
2896     ok(hres == S_OK, "fontVariant failed: %08x\n", hres);
2897     SysFreeString(str);
2898
2899     str = a2bstr("normal");
2900     hres = IHTMLStyle_put_fontVariant(style, str);
2901     ok(hres == S_OK, "fontVariant failed: %08x\n", hres);
2902     SysFreeString(str);
2903
2904     hres = IHTMLStyle_put_fontVariant(style, sDefault);
2905     ok(hres == S_OK, "fontVariant failed: %08x\n", hres);
2906     SysFreeString(sDefault);
2907
2908     str = (void*)0xdeadbeef;
2909     hres = IHTMLStyle_get_display(style, &str);
2910     ok(hres == S_OK, "get_display failed: %08x\n", hres);
2911     ok(!str, "display = %s\n", wine_dbgstr_w(str));
2912
2913     str = (void*)0xdeadbeef;
2914     hres = IHTMLStyle_get_visibility(style, &str);
2915     ok(hres == S_OK, "get_visibility failed: %08x\n", hres);
2916     ok(!str, "visibility = %s\n", wine_dbgstr_w(str));
2917
2918     V_VT(&v) = VT_NULL;
2919     hres = IHTMLStyle_get_fontSize(style, &v);
2920     ok(hres == S_OK, "get_fontSize failed: %08x\n", hres);
2921     ok(V_VT(&v) == VT_BSTR, "V_VT(fontSize) = %d\n", V_VT(&v));
2922     ok(!V_BSTR(&v), "V_BSTR(fontSize) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
2923
2924     V_VT(&v) = VT_NULL;
2925     hres = IHTMLStyle_get_color(style, &v);
2926     ok(hres == S_OK, "get_color failed: %08x\n", hres);
2927     ok(V_VT(&v) == VT_BSTR, "V_VT(color) = %d\n", V_VT(&v));
2928     ok(!V_BSTR(&v), "V_BSTR(color) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
2929
2930     b = 0xfefe;
2931     hres = IHTMLStyle_get_textDecorationUnderline(style, &b);
2932     ok(hres == S_OK, "get_textDecorationUnderline failed: %08x\n", hres);
2933     ok(b == VARIANT_FALSE, "textDecorationUnderline = %x\n", b);
2934
2935     hres = IHTMLStyle_put_textDecorationUnderline(style, VARIANT_TRUE);
2936     ok(hres == S_OK, "put_textDecorationUnderline failed: %08x\n", hres);
2937     ok(b == VARIANT_FALSE, "textDecorationUnderline = %x\n", b);
2938
2939     hres = IHTMLStyle_get_textDecorationUnderline(style, &b);
2940     ok(hres == S_OK, "get_textDecorationUnderline failed: %08x\n", hres);
2941     ok(b == VARIANT_TRUE, "textDecorationUnderline = %x\n", b);
2942
2943     hres = IHTMLStyle_put_textDecorationUnderline(style, VARIANT_FALSE);
2944     ok(hres == S_OK, "put_textDecorationUnderline failed: %08x\n", hres);
2945
2946     b = 0xfefe;
2947     hres = IHTMLStyle_get_textDecorationLineThrough(style, &b);
2948     ok(hres == S_OK, "get_textDecorationLineThrough failed: %08x\n", hres);
2949     ok(b == VARIANT_FALSE, "textDecorationLineThrough = %x\n", b);
2950
2951     hres = IHTMLStyle_put_textDecorationLineThrough(style, VARIANT_TRUE);
2952     ok(hres == S_OK, "put_textDecorationLineThrough failed: %08x\n", hres);
2953     ok(b == VARIANT_FALSE, "textDecorationLineThrough = %x\n", b);
2954
2955     hres = IHTMLStyle_get_textDecorationLineThrough(style, &b);
2956     ok(hres == S_OK, "get_textDecorationLineThrough failed: %08x\n", hres);
2957     ok(b == VARIANT_TRUE, "textDecorationLineThrough = %x\n", b);
2958
2959     hres = IHTMLStyle_put_textDecorationLineThrough(style, VARIANT_FALSE);
2960     ok(hres == S_OK, "put_textDecorationLineThrough failed: %08x\n", hres);
2961
2962     b = 0xfefe;
2963     hres = IHTMLStyle_get_textDecorationNone(style, &b);
2964     ok(hres == S_OK, "get_textDecorationNone failed: %08x\n", hres);
2965     ok(b == VARIANT_FALSE, "textDecorationNone = %x\n", b);
2966
2967     hres = IHTMLStyle_put_textDecorationNone(style, VARIANT_TRUE);
2968     ok(hres == S_OK, "put_textDecorationNone failed: %08x\n", hres);
2969     ok(b == VARIANT_FALSE, "textDecorationNone = %x\n", b);
2970
2971     hres = IHTMLStyle_get_textDecorationNone(style, &b);
2972     ok(hres == S_OK, "get_textDecorationNone failed: %08x\n", hres);
2973     ok(b == VARIANT_TRUE, "textDecorationNone = %x\n", b);
2974
2975     hres = IHTMLStyle_put_textDecorationNone(style, VARIANT_FALSE);
2976     ok(hres == S_OK, "put_textDecorationNone failed: %08x\n", hres);
2977
2978     b = 0xfefe;
2979     hres = IHTMLStyle_get_textDecorationOverline(style, &b);
2980     ok(hres == S_OK, "get_textDecorationOverline failed: %08x\n", hres);
2981     ok(b == VARIANT_FALSE, "textDecorationOverline = %x\n", b);
2982
2983     hres = IHTMLStyle_put_textDecorationOverline(style, VARIANT_TRUE);
2984     ok(hres == S_OK, "put_textDecorationOverline failed: %08x\n", hres);
2985     ok(b == VARIANT_FALSE, "textDecorationOverline = %x\n", b);
2986
2987     hres = IHTMLStyle_get_textDecorationOverline(style, &b);
2988     ok(hres == S_OK, "get_textDecorationOverline failed: %08x\n", hres);
2989     ok(b == VARIANT_TRUE, "textDecorationOverline = %x\n", b);
2990
2991     hres = IHTMLStyle_put_textDecorationOverline(style, VARIANT_FALSE);
2992     ok(hres == S_OK, "put_textDecorationOverline failed: %08x\n", hres);
2993
2994     b = 0xfefe;
2995     hres = IHTMLStyle_get_textDecorationBlink(style, &b);
2996     ok(hres == S_OK, "get_textDecorationBlink failed: %08x\n", hres);
2997     ok(b == VARIANT_FALSE, "textDecorationBlink = %x\n", b);
2998
2999     hres = IHTMLStyle_put_textDecorationBlink(style, VARIANT_TRUE);
3000     ok(hres == S_OK, "put_textDecorationBlink failed: %08x\n", hres);
3001     ok(b == VARIANT_FALSE, "textDecorationBlink = %x\n", b);
3002
3003     hres = IHTMLStyle_get_textDecorationBlink(style, &b);
3004     ok(hres == S_OK, "get_textDecorationBlink failed: %08x\n", hres);
3005     ok(b == VARIANT_TRUE, "textDecorationBlink = %x\n", b);
3006
3007     hres = IHTMLStyle_put_textDecorationBlink(style, VARIANT_FALSE);
3008     ok(hres == S_OK, "textDecorationBlink failed: %08x\n", hres);
3009
3010     hres = IHTMLStyle_get_textDecoration(style, &sDefault);
3011     ok(hres == S_OK, "get_textDecoration failed: %08x\n", hres);
3012
3013     str = a2bstr("invalid");
3014     hres = IHTMLStyle_put_textDecoration(style, str);
3015     ok(hres == E_INVALIDARG, "put_textDecoration failed: %08x\n", hres);
3016     SysFreeString(str);
3017
3018     str = a2bstr("none");
3019     hres = IHTMLStyle_put_textDecoration(style, str);
3020     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3021     SysFreeString(str);
3022
3023     str = a2bstr("underline");
3024     hres = IHTMLStyle_put_textDecoration(style, str);
3025     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3026     SysFreeString(str);
3027
3028     str = a2bstr("overline");
3029     hres = IHTMLStyle_put_textDecoration(style, str);
3030     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3031     SysFreeString(str);
3032
3033     str = a2bstr("line-through");
3034     hres = IHTMLStyle_put_textDecoration(style, str);
3035     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3036     SysFreeString(str);
3037
3038     str = a2bstr("blink");
3039     hres = IHTMLStyle_put_textDecoration(style, str);
3040     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3041     SysFreeString(str);
3042
3043     hres = IHTMLStyle_get_textDecoration(style, &str);
3044     ok(hres == S_OK, "get_textDecoration failed: %08x\n", hres);
3045     ok(!strcmp_wa(str, "blink"), "str != blink\n");
3046     SysFreeString(str);
3047
3048     hres = IHTMLStyle_put_textDecoration(style, sDefault);
3049     ok(hres == S_OK, "put_textDecoration failed: %08x\n", hres);
3050     SysFreeString(sDefault);
3051
3052     hres = IHTMLStyle_get_posWidth(style, NULL);
3053     ok(hres == E_POINTER, "get_posWidth failed: %08x\n", hres);
3054
3055     hres = IHTMLStyle_get_posWidth(style, &f);
3056     ok(hres == S_OK, "get_posWidth failed: %08x\n", hres);
3057     ok(f == 0.0f, "f = %f\n", f);
3058
3059     V_VT(&v) = VT_EMPTY;
3060     hres = IHTMLStyle_get_width(style, &v);
3061     ok(hres == S_OK, "get_width failed: %08x\n", hres);
3062     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3063     ok(!V_BSTR(&v), "V_BSTR(v)=%p\n", V_BSTR(&v));
3064
3065     hres = IHTMLStyle_put_posWidth(style, 2.2);
3066     ok(hres == S_OK, "put_posWidth failed: %08x\n", hres);
3067
3068     hres = IHTMLStyle_get_posWidth(style, &f);
3069     ok(hres == S_OK, "get_posWidth failed: %08x\n", hres);
3070     ok(f == 2.0f ||
3071        f == 2.2f, /* IE8 */
3072        "f = %f\n", f);
3073
3074     V_VT(&v) = VT_BSTR;
3075     V_BSTR(&v) = a2bstr("auto");
3076     hres = IHTMLStyle_put_width(style, v);
3077     ok(hres == S_OK, "put_width failed: %08x\n", hres);
3078     VariantClear(&v);
3079
3080     V_VT(&v) = VT_EMPTY;
3081     hres = IHTMLStyle_get_width(style, &v);
3082     ok(hres == S_OK, "get_width failed: %08x\n", hres);
3083     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3084     ok(!strcmp_wa(V_BSTR(&v), "auto"), "V_BSTR(v)=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3085     VariantClear(&v);
3086
3087     /* margin tests */
3088     str = (void*)0xdeadbeef;
3089     hres = IHTMLStyle_get_margin(style, &str);
3090     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
3091     ok(!str, "margin = %s\n", wine_dbgstr_w(str));
3092
3093     str = a2bstr("1");
3094     hres = IHTMLStyle_put_margin(style, str);
3095     ok(hres == S_OK, "put_margin failed: %08x\n", hres);
3096     SysFreeString(str);
3097
3098     hres = IHTMLStyle_get_margin(style, &str);
3099     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
3100     ok(!strcmp_wa(str, "1px"), "margin = %s\n", wine_dbgstr_w(str));
3101
3102     hres = IHTMLStyle_put_margin(style, NULL);
3103     ok(hres == S_OK, "put_margin failed: %08x\n", hres);
3104
3105     str = NULL;
3106     hres = IHTMLStyle_get_border(style, &str);
3107     ok(hres == S_OK, "get_border failed: %08x\n", hres);
3108     ok(!str || !*str, "str is not empty\n");
3109     SysFreeString(str);
3110
3111     str = a2bstr("1px");
3112     hres = IHTMLStyle_put_border(style, str);
3113     ok(hres == S_OK, "put_border failed: %08x\n", hres);
3114     SysFreeString(str);
3115
3116     V_VT(&v) = VT_EMPTY;
3117     hres = IHTMLStyle_get_left(style, &v);
3118     ok(hres == S_OK, "get_left failed: %08x\n", hres);
3119     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3120     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3121     VariantClear(&v);
3122
3123     /* Test posLeft */
3124     hres = IHTMLStyle_get_posLeft(style, NULL);
3125     ok(hres == E_POINTER, "get_posLeft failed: %08x\n", hres);
3126
3127     f = 1.0f;
3128     hres = IHTMLStyle_get_posLeft(style, &f);
3129     ok(hres == S_OK, "get_posLeft failed: %08x\n", hres);
3130     ok(f == 0.0, "expected 0.0 got %f\n", f);
3131
3132     hres = IHTMLStyle_put_posLeft(style, 4.9f);
3133     ok(hres == S_OK, "put_posLeft failed: %08x\n", hres);
3134
3135     hres = IHTMLStyle_get_posLeft(style, &f);
3136     ok(hres == S_OK, "get_posLeft failed: %08x\n", hres);
3137     ok(f == 4.0 ||
3138        f == 4.9f, /* IE8 */
3139        "expected 4.0 or 4.9 (IE8) got %f\n", f);
3140
3141     /* Ensure left is updated correctly. */
3142     V_VT(&v) = VT_EMPTY;
3143     hres = IHTMLStyle_get_left(style, &v);
3144     ok(hres == S_OK, "get_left failed: %08x\n", hres);
3145     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3146     ok(!strcmp_wa(V_BSTR(&v), "4px") ||
3147        !strcmp_wa(V_BSTR(&v), "4.9px"), /* IE8 */
3148        "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3149     VariantClear(&v);
3150
3151     /* Test left */
3152     V_VT(&v) = VT_BSTR;
3153     V_BSTR(&v) = a2bstr("3px");
3154     hres = IHTMLStyle_put_left(style, v);
3155     ok(hres == S_OK, "put_left failed: %08x\n", hres);
3156     VariantClear(&v);
3157
3158     hres = IHTMLStyle_get_posLeft(style, &f);
3159     ok(hres == S_OK, "get_posLeft failed: %08x\n", hres);
3160     ok(f == 3.0, "expected 3.0 got %f\n", f);
3161
3162     V_VT(&v) = VT_EMPTY;
3163     hres = IHTMLStyle_get_left(style, &v);
3164     ok(hres == S_OK, "get_left failed: %08x\n", hres);
3165     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3166     ok(!strcmp_wa(V_BSTR(&v), "3px"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3167     VariantClear(&v);
3168
3169     V_VT(&v) = VT_NULL;
3170     hres = IHTMLStyle_put_left(style, v);
3171     ok(hres == S_OK, "put_left failed: %08x\n", hres);
3172
3173     V_VT(&v) = VT_EMPTY;
3174     hres = IHTMLStyle_get_left(style, &v);
3175     ok(hres == S_OK, "get_left failed: %08x\n", hres);
3176     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3177     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3178     VariantClear(&v);
3179
3180     V_VT(&v) = VT_EMPTY;
3181     hres = IHTMLStyle_get_top(style, &v);
3182     ok(hres == S_OK, "get_top failed: %08x\n", hres);
3183     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3184     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3185     VariantClear(&v);
3186
3187     /* Test posTop */
3188     hres = IHTMLStyle_get_posTop(style, NULL);
3189     ok(hres == E_POINTER, "get_posTop failed: %08x\n", hres);
3190
3191     f = 1.0f;
3192     hres = IHTMLStyle_get_posTop(style, &f);
3193     ok(hres == S_OK, "get_posTop failed: %08x\n", hres);
3194     ok(f == 0.0, "expected 0.0 got %f\n", f);
3195
3196     hres = IHTMLStyle_put_posTop(style, 4.9f);
3197     ok(hres == S_OK, "put_posTop failed: %08x\n", hres);
3198
3199     hres = IHTMLStyle_get_posTop(style, &f);
3200     ok(hres == S_OK, "get_posTop failed: %08x\n", hres);
3201     ok(f == 4.0 ||
3202        f == 4.9f, /* IE8 */
3203        "expected 4.0 or 4.9 (IE8) got %f\n", f);
3204
3205     V_VT(&v) = VT_BSTR;
3206     V_BSTR(&v) = a2bstr("3px");
3207     hres = IHTMLStyle_put_top(style, v);
3208     ok(hres == S_OK, "put_top failed: %08x\n", hres);
3209     VariantClear(&v);
3210
3211     V_VT(&v) = VT_EMPTY;
3212     hres = IHTMLStyle_get_top(style, &v);
3213     ok(hres == S_OK, "get_top failed: %08x\n", hres);
3214     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3215     ok(!strcmp_wa(V_BSTR(&v), "3px"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3216     VariantClear(&v);
3217
3218     hres = IHTMLStyle_get_posTop(style, &f);
3219     ok(hres == S_OK, "get_posTop failed: %08x\n", hres);
3220     ok(f == 3.0, "expected 3.0 got %f\n", f);
3221
3222     V_VT(&v) = VT_NULL;
3223     hres = IHTMLStyle_put_top(style, v);
3224     ok(hres == S_OK, "put_top failed: %08x\n", hres);
3225
3226     V_VT(&v) = VT_EMPTY;
3227     hres = IHTMLStyle_get_top(style, &v);
3228     ok(hres == S_OK, "get_top failed: %08x\n", hres);
3229     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3230     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3231     VariantClear(&v);
3232
3233     /* Test posHeight */
3234     hres = IHTMLStyle_get_posHeight(style, NULL);
3235     ok(hres == E_POINTER, "get_posHeight failed: %08x\n", hres);
3236
3237     V_VT(&v) = VT_EMPTY;
3238     hres = IHTMLStyle_get_height(style, &v);
3239     ok(hres == S_OK, "get_height failed: %08x\n", hres);
3240     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3241     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3242     VariantClear(&v);
3243
3244     f = 1.0f;
3245     hres = IHTMLStyle_get_posHeight(style, &f);
3246     ok(hres == S_OK, "get_posHeight failed: %08x\n", hres);
3247     ok(f == 0.0, "expected 0.0 got %f\n", f);
3248
3249     hres = IHTMLStyle_put_posHeight(style, 4.9f);
3250     ok(hres == S_OK, "put_posHeight failed: %08x\n", hres);
3251
3252     hres = IHTMLStyle_get_posHeight(style, &f);
3253     ok(hres == S_OK, "get_posHeight failed: %08x\n", hres);
3254     ok(f == 4.0 ||
3255        f == 4.9f, /* IE8 */
3256        "expected 4.0 or 4.9 (IE8) got %f\n", f);
3257
3258     V_VT(&v) = VT_BSTR;
3259     V_BSTR(&v) = a2bstr("64px");
3260     hres = IHTMLStyle_put_height(style, v);
3261     ok(hres == S_OK, "put_height failed: %08x\n", hres);
3262     VariantClear(&v);
3263
3264     V_VT(&v) = VT_EMPTY;
3265     hres = IHTMLStyle_get_height(style, &v);
3266     ok(hres == S_OK, "get_height failed: %08x\n", hres);
3267     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3268     ok(!strcmp_wa(V_BSTR(&v), "64px"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3269     VariantClear(&v);
3270
3271     hres = IHTMLStyle_get_posHeight(style, &f);
3272     ok(hres == S_OK, "get_posHeight failed: %08x\n", hres);
3273     ok(f == 64.0, "expected 64.0 got %f\n", f);
3274
3275     str = (void*)0xdeadbeef;
3276     hres = IHTMLStyle_get_cursor(style, &str);
3277     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
3278     ok(!str, "get_cursor != NULL\n");
3279     SysFreeString(str);
3280
3281     str = a2bstr("default");
3282     hres = IHTMLStyle_put_cursor(style, str);
3283     ok(hres == S_OK, "put_cursor failed: %08x\n", hres);
3284     SysFreeString(str);
3285
3286     str = NULL;
3287     hres = IHTMLStyle_get_cursor(style, &str);
3288     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
3289     ok(!strcmp_wa(str, "default"), "get_cursor returned %s\n", wine_dbgstr_w(str));
3290     SysFreeString(str);
3291
3292     V_VT(&v) = VT_EMPTY;
3293     hres = IHTMLStyle_get_verticalAlign(style, &v);
3294     ok(hres == S_OK, "get_vertivalAlign failed: %08x\n", hres);
3295     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3296     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
3297     VariantClear(&v);
3298
3299     V_VT(&v) = VT_BSTR;
3300     V_BSTR(&v) = a2bstr("middle");
3301     hres = IHTMLStyle_put_verticalAlign(style, v);
3302     ok(hres == S_OK, "put_vertivalAlign failed: %08x\n", hres);
3303     VariantClear(&v);
3304
3305     V_VT(&v) = VT_EMPTY;
3306     hres = IHTMLStyle_get_verticalAlign(style, &v);
3307     ok(hres == S_OK, "get_verticalAlign failed: %08x\n", hres);
3308     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3309     ok(!strcmp_wa(V_BSTR(&v), "middle"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3310     VariantClear(&v);
3311
3312     str = (void*)0xdeadbeef;
3313     hres = IHTMLStyle_get_textAlign(style, &str);
3314     ok(hres == S_OK, "get_textAlign failed: %08x\n", hres);
3315     ok(!str, "textAlign != NULL\n");
3316
3317     str = a2bstr("center");
3318     hres = IHTMLStyle_put_textAlign(style, str);
3319     ok(hres == S_OK, "put_textAlign failed: %08x\n", hres);
3320     SysFreeString(str);
3321
3322     str = NULL;
3323     hres = IHTMLStyle_get_textAlign(style, &str);
3324     ok(hres == S_OK, "get_textAlign failed: %08x\n", hres);
3325     ok(!strcmp_wa(str, "center"), "textAlign = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3326     SysFreeString(str);
3327
3328     str = (void*)0xdeadbeef;
3329     hres = IHTMLStyle_get_filter(style, &str);
3330     ok(hres == S_OK, "get_filter failed: %08x\n", hres);
3331     ok(!str, "filter != NULL\n");
3332
3333     str = a2bstr("alpha(opacity=100)");
3334     hres = IHTMLStyle_put_filter(style, str);
3335     ok(hres == S_OK, "put_filter failed: %08x\n", hres);
3336     SysFreeString(str);
3337
3338     V_VT(&v) = VT_EMPTY;
3339     hres = IHTMLStyle_get_zIndex(style, &v);
3340     ok(hres == S_OK, "get_zIndex failed: %08x\n", hres);
3341     ok(V_VT(&v) == VT_I4, "V_VT(v)=%d\n", V_VT(&v));
3342     ok(!V_I4(&v), "V_I4(v) != 0\n");
3343     VariantClear(&v);
3344
3345     V_VT(&v) = VT_BSTR;
3346     V_BSTR(&v) = a2bstr("1");
3347     hres = IHTMLStyle_put_zIndex(style, v);
3348     ok(hres == S_OK, "put_zIndex failed: %08x\n", hres);
3349     VariantClear(&v);
3350
3351     V_VT(&v) = VT_EMPTY;
3352     hres = IHTMLStyle_get_zIndex(style, &v);
3353     ok(hres == S_OK, "get_zIndex failed: %08x\n", hres);
3354     ok(V_VT(&v) == VT_I4, "V_VT(v)=%d\n", V_VT(&v));
3355     ok(V_I4(&v) == 1, "V_I4(v) = %d\n", V_I4(&v));
3356     VariantClear(&v);
3357
3358     /* fontStyle */
3359     hres = IHTMLStyle_get_fontStyle(style, &sDefault);
3360     ok(hres == S_OK, "get_fontStyle failed: %08x\n", hres);
3361
3362     str = a2bstr("test");
3363     hres = IHTMLStyle_put_fontStyle(style, str);
3364     ok(hres == E_INVALIDARG, "put_fontStyle failed: %08x\n", hres);
3365     SysFreeString(str);
3366
3367     str = a2bstr("italic");
3368     hres = IHTMLStyle_put_fontStyle(style, str);
3369     ok(hres == S_OK, "put_fontStyle failed: %08x\n", hres);
3370     SysFreeString(str);
3371
3372     str = a2bstr("oblique");
3373     hres = IHTMLStyle_put_fontStyle(style, str);
3374     ok(hres == S_OK, "put_fontStyle failed: %08x\n", hres);
3375     SysFreeString(str);
3376
3377     str = a2bstr("normal");
3378     hres = IHTMLStyle_put_fontStyle(style, str);
3379     ok(hres == S_OK, "put_fontStyle failed: %08x\n", hres);
3380     SysFreeString(str);
3381
3382     hres = IHTMLStyle_put_fontStyle(style, sDefault);
3383     ok(hres == S_OK, "put_fontStyle failed: %08x\n", hres);
3384     SysFreeString(sDefault);
3385
3386     /* overflow */
3387     hres = IHTMLStyle_get_overflow(style, NULL);
3388     ok(hres == E_INVALIDARG, "get_overflow failed: %08x\n", hres);
3389
3390     hres = IHTMLStyle_get_overflow(style, &sOverflowDefault);
3391     ok(hres == S_OK, "get_overflow failed: %08x\n", hres);
3392
3393     str = a2bstr("test");
3394     hres = IHTMLStyle_put_overflow(style, str);
3395     ok(hres == E_INVALIDARG, "put_overflow failed: %08x\n", hres);
3396     SysFreeString(str);
3397
3398     str = a2bstr("visible");
3399     hres = IHTMLStyle_put_overflow(style, str);
3400     ok(hres == S_OK, "put_overflow failed: %08x\n", hres);
3401     SysFreeString(str);
3402
3403     str = a2bstr("scroll");
3404     hres = IHTMLStyle_put_overflow(style, str);
3405     ok(hres == S_OK, "put_overflow failed: %08x\n", hres);
3406     SysFreeString(str);
3407
3408     str = a2bstr("hidden");
3409     hres = IHTMLStyle_put_overflow(style, str);
3410     ok(hres == S_OK, "put_overflow failed: %08x\n", hres);
3411     SysFreeString(str);
3412
3413     str = a2bstr("auto");
3414     hres = IHTMLStyle_put_overflow(style, str);
3415     ok(hres == S_OK, "put_overflow failed: %08x\n", hres);
3416     SysFreeString(str);
3417
3418     hres = IHTMLStyle_get_overflow(style, &str);
3419     ok(hres == S_OK, "get_overflow failed: %08x\n", hres);
3420     ok(!strcmp_wa(str, "auto"), "str=%s\n", wine_dbgstr_w(str));
3421     SysFreeString(str);
3422
3423     /* restore overflow default */
3424     hres = IHTMLStyle_put_overflow(style, sOverflowDefault);
3425     ok(hres == S_OK, "put_overflow failed: %08x\n", hres);
3426     SysFreeString(sOverflowDefault);
3427
3428     /* Attribute Tests*/
3429     hres = IHTMLStyle_getAttribute(style, NULL, 1, &v);
3430     ok(hres == E_INVALIDARG, "getAttribute failed: %08x\n", hres);
3431
3432     str = a2bstr("position");
3433     hres = IHTMLStyle_getAttribute(style, str, 1, NULL);
3434     ok(hres == E_INVALIDARG, "getAttribute failed: %08x\n", hres);
3435
3436     hres = IHTMLStyle_getAttribute(style, str, 1, &v);
3437     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
3438     ok(V_VT(&v) == VT_BSTR, "type failed: %d\n", V_VT(&v));
3439     VariantClear(&v);
3440
3441     hres = IHTMLStyle_setAttribute(style, NULL, v, 1);
3442     ok(hres == E_INVALIDARG, "setAttribute failed: %08x\n", hres);
3443
3444     V_VT(&v) = VT_BSTR;
3445     V_BSTR(&v) = a2bstr("absolute");
3446     hres = IHTMLStyle_setAttribute(style, str, v, 1);
3447     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
3448     VariantClear(&v);
3449
3450     hres = IHTMLStyle_getAttribute(style, str, 1, &v);
3451     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
3452     ok(V_VT(&v) == VT_BSTR, "type failed: %d\n", V_VT(&v));
3453     ok(!strcmp_wa(V_BSTR(&v), "absolute"), "str=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3454     VariantClear(&v);
3455
3456     V_VT(&v) = VT_BSTR;
3457     V_BSTR(&v) = NULL;
3458     hres = IHTMLStyle_setAttribute(style, str, v, 1);
3459     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
3460     VariantClear(&v);
3461
3462     SysFreeString(str);
3463
3464     str = a2bstr("borderLeftStyle");
3465     test_border_styles(style, str);
3466     SysFreeString(str);
3467
3468     str = a2bstr("borderbottomstyle");
3469     test_border_styles(style, str);
3470     SysFreeString(str);
3471
3472     str = a2bstr("borderrightstyle");
3473     test_border_styles(style, str);
3474     SysFreeString(str);
3475
3476     str = a2bstr("bordertopstyle");
3477     test_border_styles(style, str);
3478     SysFreeString(str);
3479
3480     hres = IHTMLStyle_get_borderStyle(style, &sDefault);
3481     ok(hres == S_OK, "get_borderStyle failed: %08x\n", hres);
3482
3483     str = a2bstr("none dotted dashed solid");
3484     hres = IHTMLStyle_put_borderStyle(style, str);
3485     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3486     SysFreeString(str);
3487
3488     str = a2bstr("none dotted dashed solid");
3489     hres = IHTMLStyle_get_borderStyle(style, &str);
3490     ok(hres == S_OK, "get_borderStyle failed: %08x\n", hres);
3491     ok(!strcmp_wa(str, "none dotted dashed solid"),
3492         "expected (none dotted dashed solid) = (%s)\n", wine_dbgstr_w(V_BSTR(&v)));
3493     SysFreeString(str);
3494
3495     str = a2bstr("double groove ridge inset");
3496     hres = IHTMLStyle_put_borderStyle(style, str);
3497     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3498     SysFreeString(str);
3499
3500     str = a2bstr("window-inset outset ridge inset");
3501     hres = IHTMLStyle_put_borderStyle(style, str);
3502     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3503     SysFreeString(str);
3504
3505     str = a2bstr("window-inset");
3506     hres = IHTMLStyle_put_borderStyle(style, str);
3507     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3508     SysFreeString(str);
3509
3510     str = a2bstr("none none none none none");
3511     hres = IHTMLStyle_put_borderStyle(style, str);
3512     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3513     SysFreeString(str);
3514
3515     str = a2bstr("invalid none none none");
3516     hres = IHTMLStyle_put_borderStyle(style, str);
3517     ok(hres == E_INVALIDARG, "put_borderStyle failed: %08x\n", hres);
3518     SysFreeString(str);
3519
3520     str = a2bstr("none invalid none none");
3521     hres = IHTMLStyle_put_borderStyle(style, str);
3522     ok(hres == E_INVALIDARG, "put_borderStyle failed: %08x\n", hres);
3523     SysFreeString(str);
3524
3525     hres = IHTMLStyle_put_borderStyle(style, sDefault);
3526     ok(hres == S_OK, "put_borderStyle failed: %08x\n", hres);
3527     SysFreeString(sDefault);
3528
3529     /* backgoundColor */
3530     hres = IHTMLStyle_get_backgroundColor(style, &v);
3531     ok(hres == S_OK, "get_backgroundColor: %08x\n", hres);
3532     ok(V_VT(&v) == VT_BSTR, "type failed: %d\n", V_VT(&v));
3533     ok(!V_BSTR(&v), "str=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3534     VariantClear(&v);
3535
3536     /* PaddingLeft */
3537     hres = IHTMLStyle_get_paddingLeft(style, &vDefault);
3538     ok(hres == S_OK, "get_paddingLeft: %08x\n", hres);
3539
3540     V_VT(&v) = VT_BSTR;
3541     V_BSTR(&v) = a2bstr("10");
3542     hres = IHTMLStyle_put_paddingLeft(style, v);
3543     ok(hres == S_OK, "put_paddingLeft: %08x\n", hres);
3544     VariantClear(&v);
3545
3546     hres = IHTMLStyle_get_paddingLeft(style, &v);
3547     ok(hres == S_OK, "get_paddingLeft: %08x\n", hres);
3548     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expecte 10 = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3549
3550     hres = IHTMLStyle_put_paddingLeft(style, vDefault);
3551     ok(hres == S_OK, "put_paddingLeft: %08x\n", hres);
3552
3553     /* BackgroundRepeat */
3554     hres = IHTMLStyle_get_backgroundRepeat(style, &sDefault);
3555     ok(hres == S_OK, "get_backgroundRepeat failed: %08x\n", hres);
3556
3557     str = a2bstr("invalid");
3558     hres = IHTMLStyle_put_backgroundRepeat(style, str);
3559     ok(hres == E_INVALIDARG, "put_backgroundRepeat failed: %08x\n", hres);
3560     SysFreeString(str);
3561
3562     str = a2bstr("repeat");
3563     hres = IHTMLStyle_put_backgroundRepeat(style, str);
3564     ok(hres == S_OK, "put_backgroundRepeat failed: %08x\n", hres);
3565     SysFreeString(str);
3566
3567     str = a2bstr("no-repeat");
3568     hres = IHTMLStyle_put_backgroundRepeat(style, str);
3569     ok(hres == S_OK, "put_backgroundRepeat failed: %08x\n", hres);
3570     SysFreeString(str);
3571
3572     str = a2bstr("repeat-x");
3573     hres = IHTMLStyle_put_backgroundRepeat(style, str);
3574     ok(hres == S_OK, "put_backgroundRepeat failed: %08x\n", hres);
3575     SysFreeString(str);
3576
3577     str = a2bstr("repeat-y");
3578     hres = IHTMLStyle_put_backgroundRepeat(style, str);
3579     ok(hres == S_OK, "put_backgroundRepeat failed: %08x\n", hres);
3580     SysFreeString(str);
3581
3582     hres = IHTMLStyle_get_backgroundRepeat(style, &str);
3583     ok(hres == S_OK, "get_backgroundRepeat failed: %08x\n", hres);
3584     ok(!strcmp_wa(str, "repeat-y"), "str=%s\n", wine_dbgstr_w(str));
3585     SysFreeString(str);
3586
3587     hres = IHTMLStyle_put_backgroundRepeat(style, sDefault);
3588     ok(hres == S_OK, "put_backgroundRepeat failed: %08x\n", hres);
3589     SysFreeString(sDefault);
3590
3591     /* BorderColor */
3592     hres = IHTMLStyle_get_borderColor(style, &sDefault);
3593     ok(hres == S_OK, "get_borderColor failed: %08x\n", hres);
3594
3595     str = a2bstr("red green red blue");
3596     hres = IHTMLStyle_put_borderColor(style, str);
3597     ok(hres == S_OK, "put_borderColor failed: %08x\n", hres);
3598     SysFreeString(str);
3599
3600     hres = IHTMLStyle_get_borderColor(style, &str);
3601     ok(hres == S_OK, "get_borderColor failed: %08x\n", hres);
3602     ok(!strcmp_wa(str, "red green red blue"), "str=%s\n", wine_dbgstr_w(str));
3603     SysFreeString(str);
3604
3605     hres = IHTMLStyle_put_borderColor(style, sDefault);
3606     ok(hres == S_OK, "put_borderColor failed: %08x\n", hres);
3607     SysFreeString(sDefault);
3608
3609     /* BorderLeft */
3610     hres = IHTMLStyle_get_borderLeft(style, &sDefault);
3611     ok(hres == S_OK, "get_borderLeft failed: %08x\n", hres);
3612
3613     str = a2bstr("thick dotted red");
3614     hres = IHTMLStyle_put_borderLeft(style, str);
3615     ok(hres == S_OK, "put_borderLeft failed: %08x\n", hres);
3616     SysFreeString(str);
3617
3618     /* IHTMLStyle_get_borderLeft appears to have a bug where
3619         it returns the first letter of the color.  So we check
3620         each style individually.
3621      */
3622     V_BSTR(&v) = NULL;
3623     hres = IHTMLStyle_get_borderLeftColor(style, &v);
3624     todo_wine ok(hres == S_OK, "get_borderLeftColor failed: %08x\n", hres);
3625     todo_wine ok(!strcmp_wa(V_BSTR(&v), "red"), "str=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3626     VariantClear(&v);
3627
3628     V_BSTR(&v) = NULL;
3629     hres = IHTMLStyle_get_borderLeftWidth(style, &v);
3630     ok(hres == S_OK, "get_borderLeftWidth failed: %08x\n", hres);
3631     ok(!strcmp_wa(V_BSTR(&v), "thick"), "str=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3632     VariantClear(&v);
3633
3634     hres = IHTMLStyle_get_borderLeftStyle(style, &str);
3635     ok(hres == S_OK, "get_borderLeftStyle failed: %08x\n", hres);
3636     ok(!strcmp_wa(str, "dotted"), "str=%s\n", wine_dbgstr_w(str));
3637     SysFreeString(str);
3638
3639     hres = IHTMLStyle_put_borderLeft(style, sDefault);
3640     ok(hres == S_OK, "put_borderLeft failed: %08x\n", hres);
3641     SysFreeString(sDefault);
3642
3643     /* backgroundPositionX */
3644     hres = IHTMLStyle_get_backgroundPositionX(style, &vDefault);
3645     ok(hres == S_OK, "get_backgroundPositionX failed: %08x\n", hres);
3646
3647     V_VT(&v) = VT_BSTR;
3648     V_BSTR(&v) = a2bstr("10px");
3649     hres = IHTMLStyle_put_backgroundPositionX(style, v);
3650     ok(hres == S_OK, "put_backgroundPositionX failed: %08x\n", hres);
3651     VariantClear(&v);
3652
3653     hres = IHTMLStyle_get_backgroundPositionX(style, &v);
3654     ok(hres == S_OK, "get_backgroundPositionX failed: %08x\n", hres);
3655     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3656     VariantClear(&v);
3657
3658     hres = IHTMLStyle_put_backgroundPositionX(style, vDefault);
3659     ok(hres == S_OK, "put_backgroundPositionX failed: %08x\n", hres);
3660     VariantClear(&vDefault);
3661
3662     /* backgroundPositionY */
3663     hres = IHTMLStyle_get_backgroundPositionY(style, &vDefault);
3664     ok(hres == S_OK, "get_backgroundPositionY failed: %08x\n", hres);
3665
3666     V_VT(&v) = VT_BSTR;
3667     V_BSTR(&v) = a2bstr("10px");
3668     hres = IHTMLStyle_put_backgroundPositionY(style, v);
3669     ok(hres == S_OK, "put_backgroundPositionY failed: %08x\n", hres);
3670     VariantClear(&v);
3671
3672     hres = IHTMLStyle_get_backgroundPositionY(style, &v);
3673     ok(hres == S_OK, "get_backgroundPositionY failed: %08x\n", hres);
3674     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3675     VariantClear(&v);
3676
3677     hres = IHTMLStyle_put_backgroundPositionY(style, vDefault);
3678     ok(hres == S_OK, "put_backgroundPositionY failed: %08x\n", hres);
3679     VariantClear(&vDefault);
3680
3681      /* borderTopWidth */
3682     hres = IHTMLStyle_get_borderTopWidth(style, &vDefault);
3683     ok(hres == S_OK, "get_borderTopWidth: %08x\n", hres);
3684
3685     V_VT(&v) = VT_BSTR;
3686     V_BSTR(&v) = a2bstr("10px");
3687     hres = IHTMLStyle_put_borderTopWidth(style, v);
3688     ok(hres == S_OK, "put_borderTopWidth: %08x\n", hres);
3689     VariantClear(&v);
3690
3691     hres = IHTMLStyle_get_borderTopWidth(style, &v);
3692     ok(hres == S_OK, "get_borderTopWidth: %08x\n", hres);
3693     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3694     VariantClear(&v);
3695
3696     hres = IHTMLStyle_put_borderTopWidth(style, vDefault);
3697     ok(hres == S_OK, "put_borderTopWidth: %08x\n", hres);
3698     VariantClear(&vDefault);
3699
3700     /* borderRightWidth */
3701     hres = IHTMLStyle_get_borderRightWidth(style, &vDefault);
3702     ok(hres == S_OK, "get_borderRightWidth: %08x\n", hres);
3703
3704     V_VT(&v) = VT_BSTR;
3705     V_BSTR(&v) = a2bstr("10");
3706     hres = IHTMLStyle_put_borderRightWidth(style, v);
3707     ok(hres == S_OK, "put_borderRightWidth: %08x\n", hres);
3708     VariantClear(&v);
3709
3710     hres = IHTMLStyle_get_borderRightWidth(style, &v);
3711     ok(hres == S_OK, "get_borderRightWidth: %08x\n", hres);
3712     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3713     VariantClear(&v);
3714
3715     hres = IHTMLStyle_put_borderRightWidth(style, vDefault);
3716     ok(hres == S_OK, "put_borderRightWidth: %08x\n", hres);
3717     VariantClear(&vDefault);
3718
3719     /* borderBottomWidth */
3720     hres = IHTMLStyle_get_borderBottomWidth(style, &vDefault);
3721     ok(hres == S_OK, "get_borderBottomWidth: %08x\n", hres);
3722
3723     V_VT(&v) = VT_BSTR;
3724     V_BSTR(&v) = a2bstr("10");
3725     hres = IHTMLStyle_put_borderBottomWidth(style, v);
3726     ok(hres == S_OK, "put_borderBottomWidth: %08x\n", hres);
3727     VariantClear(&v);
3728
3729     hres = IHTMLStyle_get_borderBottomWidth(style, &v);
3730     ok(hres == S_OK, "get_borderBottomWidth: %08x\n", hres);
3731     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3732     VariantClear(&v);
3733
3734     hres = IHTMLStyle_put_borderBottomWidth(style, vDefault);
3735     ok(hres == S_OK, "put_borderBottomWidth: %08x\n", hres);
3736     VariantClear(&vDefault);
3737
3738     /* borderLeftWidth */
3739     hres = IHTMLStyle_get_borderLeftWidth(style, &vDefault);
3740     ok(hres == S_OK, "get_borderLeftWidth: %08x\n", hres);
3741
3742     V_VT(&v) = VT_BSTR;
3743     V_BSTR(&v) = a2bstr("10");
3744     hres = IHTMLStyle_put_borderLeftWidth(style, v);
3745     ok(hres == S_OK, "put_borderLeftWidth: %08x\n", hres);
3746     VariantClear(&v);
3747
3748     hres = IHTMLStyle_get_borderLeftWidth(style, &v);
3749     ok(hres == S_OK, "get_borderLeftWidth: %08x\n", hres);
3750     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3751     VariantClear(&v);
3752
3753     hres = IHTMLStyle_put_borderLeftWidth(style, vDefault);
3754     ok(hres == S_OK, "put_borderLeftWidth: %08x\n", hres);
3755     VariantClear(&vDefault);
3756
3757     /* wordSpacing */
3758     hres = IHTMLStyle_get_wordSpacing(style, &vDefault);
3759     ok(hres == S_OK, "get_wordSpacing: %08x\n", hres);
3760
3761     V_VT(&v) = VT_BSTR;
3762     V_BSTR(&v) = a2bstr("10");
3763     hres = IHTMLStyle_put_wordSpacing(style, v);
3764     ok(hres == S_OK, "put_wordSpacing: %08x\n", hres);
3765     VariantClear(&v);
3766
3767     hres = IHTMLStyle_get_wordSpacing(style, &v);
3768     ok(hres == S_OK, "get_wordSpacing: %08x\n", hres);
3769     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3770     ok(!strcmp_wa(V_BSTR(&v), "10px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3771     VariantClear(&v);
3772
3773     hres = IHTMLStyle_put_wordSpacing(style, vDefault);
3774     ok(hres == S_OK, "put_wordSpacing: %08x\n", hres);
3775     VariantClear(&vDefault);
3776
3777     /* letterSpacing */
3778     hres = IHTMLStyle_get_letterSpacing(style, &vDefault);
3779     ok(hres == S_OK, "get_letterSpacing: %08x\n", hres);
3780
3781     V_VT(&v) = VT_BSTR;
3782     V_BSTR(&v) = a2bstr("11");
3783     hres = IHTMLStyle_put_letterSpacing(style, v);
3784     ok(hres == S_OK, "put_letterSpacing: %08x\n", hres);
3785     VariantClear(&v);
3786
3787     hres = IHTMLStyle_get_letterSpacing(style, &v);
3788     ok(hres == S_OK, "get_letterSpacing: %08x\n", hres);
3789     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
3790     ok(!strcmp_wa(V_BSTR(&v), "11px"), "expected 10px = %s\n", wine_dbgstr_w(V_BSTR(&v)));
3791     VariantClear(&v);
3792
3793     hres = IHTMLStyle_put_letterSpacing(style, vDefault);
3794     ok(hres == S_OK, "put_letterSpacing: %08x\n", hres);
3795     VariantClear(&vDefault);
3796
3797     hres = IHTMLStyle_QueryInterface(style, &IID_IHTMLStyle2, (void**)&style2);
3798     ok(hres == S_OK, "Could not get IHTMLStyle2 iface: %08x\n", hres);
3799     if(SUCCEEDED(hres)) {
3800         test_style2(style2);
3801         IHTMLStyle2_Release(style2);
3802     }
3803
3804     hres = IHTMLStyle_QueryInterface(style, &IID_IHTMLStyle3, (void**)&style3);
3805     ok(hres == S_OK, "Could not get IHTMLStyle3 iface: %08x\n", hres);
3806     if(SUCCEEDED(hres)) {
3807         test_style3(style3);
3808         IHTMLStyle3_Release(style3);
3809     }
3810
3811     hres = IHTMLStyle_QueryInterface(style, &IID_IHTMLStyle4, (void**)&style4);
3812     ok(hres == S_OK, "Could not get IHTMLStyle4 iface: %08x\n", hres);
3813     if(SUCCEEDED(hres)) {
3814         test_style4(style4);
3815         IHTMLStyle4_Release(style4);
3816     }
3817 }
3818
3819 static void test_set_csstext(IHTMLStyle *style)
3820 {
3821     VARIANT v;
3822     HRESULT hres;
3823
3824     test_style_set_csstext(style, "background-color: black;");
3825
3826     hres = IHTMLStyle_get_backgroundColor(style, &v);
3827     ok(hres == S_OK, "get_backgroundColor: %08x\n", hres);
3828     ok(V_VT(&v) == VT_BSTR, "type failed: %d\n", V_VT(&v));
3829     ok(!strcmp_wa(V_BSTR(&v), "black"), "str=%s\n", wine_dbgstr_w(V_BSTR(&v)));
3830     VariantClear(&v);
3831 }
3832
3833 static void test_default_selection(IHTMLDocument2 *doc)
3834 {
3835     IHTMLSelectionObject *selection;
3836     IHTMLTxtRange *range;
3837     IDispatch *disp;
3838     BSTR str;
3839     HRESULT hres;
3840
3841     hres = IHTMLDocument2_get_selection(doc, &selection);
3842     ok(hres == S_OK, "get_selection failed: %08x\n", hres);
3843
3844     hres = IHTMLSelectionObject_get_type(selection, &str);
3845     ok(hres == S_OK, "get_type failed: %08x\n", hres);
3846     ok(!strcmp_wa(str, "None"), "type = %s\n", wine_dbgstr_w(str));
3847     SysFreeString(str);
3848
3849     hres = IHTMLSelectionObject_createRange(selection, &disp);
3850     IHTMLSelectionObject_Release(selection);
3851     ok(hres == S_OK, "createRange failed: %08x\n", hres);
3852
3853     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTxtRange, (void**)&range);
3854     IDispatch_Release(disp);
3855     ok(hres == S_OK, "Could not get IHTMLTxtRange interface: %08x\n", hres);
3856
3857     test_range_text(range, NULL);
3858     IHTMLTxtRange_Release(range);
3859 }
3860
3861 static void test_default_body(IHTMLBodyElement *body)
3862 {
3863     LONG l;
3864     BSTR bstr;
3865     HRESULT hres;
3866     VARIANT v;
3867     WCHAR sBodyText[] = {'#','F','F','0','0','0','0',0};
3868     WCHAR sTextInvalid[] = {'I','n','v','a','l','i','d',0};
3869
3870     bstr = (void*)0xdeadbeef;
3871     hres = IHTMLBodyElement_get_background(body, &bstr);
3872     ok(hres == S_OK, "get_background failed: %08x\n", hres);
3873     ok(bstr == NULL, "bstr != NULL\n");
3874
3875     l = elem_get_scroll_height((IUnknown*)body);
3876     ok(l != -1, "scrollHeight == -1\n");
3877     l = elem_get_scroll_width((IUnknown*)body);
3878     ok(l != -1, "scrollWidth == -1\n");
3879     l = elem_get_scroll_top((IUnknown*)body);
3880     ok(!l, "scrollTop = %d\n", l);
3881     elem_get_scroll_left((IUnknown*)body);
3882
3883     /* get_text tests */
3884     hres = IHTMLBodyElement_get_text(body, &v);
3885     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
3886     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
3887     ok(bstr == NULL, "bstr != NULL\n");
3888
3889
3890     /* get_text - Invalid Text */
3891     V_VT(&v) = VT_BSTR;
3892     V_BSTR(&v) = SysAllocString(sTextInvalid);
3893     hres = IHTMLBodyElement_put_text(body, v);
3894     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
3895     VariantClear(&v);
3896
3897     V_VT(&v) = VT_NULL;
3898     hres = IHTMLBodyElement_get_text(body, &v);
3899     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
3900     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
3901     ok(!strcmp_wa(V_BSTR(&v), "#00a0d0"), "v != '#00a0d0'\n");
3902     VariantClear(&v);
3903
3904     /* get_text - Valid Text */
3905     V_VT(&v) = VT_BSTR;
3906     V_BSTR(&v) = SysAllocString(sBodyText);
3907     hres = IHTMLBodyElement_put_text(body, v);
3908     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
3909     VariantClear(&v);
3910
3911     V_VT(&v) = VT_NULL;
3912     hres = IHTMLBodyElement_get_text(body, &v);
3913     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
3914     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
3915     ok(!strcmp_wa(V_BSTR(&v), "#ff0000"), "v != '#ff0000'\n");
3916     VariantClear(&v);
3917 }
3918
3919 static void test_body_funs(IHTMLBodyElement *body)
3920 {
3921     static WCHAR sRed[] = {'r','e','d',0};
3922     VARIANT vbg;
3923     VARIANT vDefaultbg;
3924     HRESULT hres;
3925
3926     hres = IHTMLBodyElement_get_bgColor(body, &vDefaultbg);
3927     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
3928     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
3929
3930     V_VT(&vbg) = VT_BSTR;
3931     V_BSTR(&vbg) = SysAllocString(sRed);
3932     hres = IHTMLBodyElement_put_bgColor(body, vbg);
3933     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
3934     VariantClear(&vbg);
3935
3936     hres = IHTMLBodyElement_get_bgColor(body, &vbg);
3937     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
3938     ok(V_VT(&vDefaultbg) == VT_BSTR, "V_VT(&vDefaultbg) != VT_BSTR\n");
3939     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
3940     VariantClear(&vbg);
3941
3942     /* Restore Originial */
3943     hres = IHTMLBodyElement_put_bgColor(body, vDefaultbg);
3944     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
3945     VariantClear(&vDefaultbg);
3946 }
3947
3948 static void test_window(IHTMLDocument2 *doc)
3949 {
3950     IHTMLWindow2 *window, *window2, *self;
3951     IHTMLDocument2 *doc2 = NULL;
3952     IDispatch *disp;
3953     HRESULT hres;
3954
3955     hres = IHTMLDocument2_get_parentWindow(doc, &window);
3956     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
3957     test_ifaces((IUnknown*)window, window_iids);
3958     test_disp((IUnknown*)window, &DIID_DispHTMLWindow2, "[object]");
3959
3960     hres = IHTMLWindow2_get_document(window, &doc2);
3961     ok(hres == S_OK, "get_document failed: %08x\n", hres);
3962     ok(doc2 != NULL, "doc2 == NULL\n");
3963
3964     IHTMLDocument_Release(doc2);
3965
3966     hres = IHTMLWindow2_get_window(window, &window2);
3967     ok(hres == S_OK, "get_window failed: %08x\n", hres);
3968     ok(window2 != NULL, "window2 == NULL\n");
3969
3970     hres = IHTMLWindow2_get_self(window, &self);
3971     ok(hres == S_OK, "get_self failed: %08x\n", hres);
3972     ok(window2 != NULL, "self == NULL\n");
3973
3974     ok(self == window2, "self != window2\n");
3975
3976     IHTMLWindow2_Release(window2);
3977     IHTMLWindow2_Release(self);
3978
3979     disp = NULL;
3980     hres = IHTMLDocument2_get_Script(doc, &disp);
3981     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
3982     ok(disp == (void*)window, "disp != window\n");
3983     IDispatch_Release(disp);
3984
3985     IHTMLWindow2_Release(window);
3986 }
3987
3988 static void test_defaults(IHTMLDocument2 *doc)
3989 {
3990     IHTMLStyleSheetsCollection *stylesheetcol;
3991     IHTMLCurrentStyle *cstyle;
3992     IHTMLBodyElement *body;
3993     IHTMLElement2 *elem2;
3994     IHTMLElement *elem;
3995     IHTMLStyle *style;
3996     LONG l;
3997     HRESULT hres;
3998     IHTMLElementCollection *collection;
3999
4000     hres = IHTMLDocument2_get_body(doc, &elem);
4001     ok(hres == S_OK, "get_body failed: %08x\n", hres);
4002
4003     hres = IHTMLDocument2_get_images(doc, NULL);
4004     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4005
4006     hres = IHTMLDocument2_get_images(doc, &collection);
4007     ok(hres == S_OK, "get_images failed: %08x\n", hres);
4008     if(hres == S_OK)
4009     {
4010         test_elem_collection((IUnknown*)collection, NULL, 0);
4011         IHTMLElementCollection_Release(collection);
4012     }
4013
4014     hres = IHTMLDocument2_get_applets(doc, NULL);
4015     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4016
4017     hres = IHTMLDocument2_get_applets(doc, &collection);
4018     ok(hres == S_OK, "get_applets failed: %08x\n", hres);
4019     if(hres == S_OK)
4020     {
4021         test_elem_collection((IUnknown*)collection, NULL, 0);
4022         IHTMLElementCollection_Release(collection);
4023     }
4024
4025     hres = IHTMLDocument2_get_links(doc, NULL);
4026     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4027
4028     hres = IHTMLDocument2_get_links(doc, &collection);
4029     ok(hres == S_OK, "get_links failed: %08x\n", hres);
4030     if(hres == S_OK)
4031     {
4032         test_elem_collection((IUnknown*)collection, NULL, 0);
4033         IHTMLElementCollection_Release(collection);
4034     }
4035
4036     hres = IHTMLDocument2_get_forms(doc, NULL);
4037     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4038
4039     hres = IHTMLDocument2_get_forms(doc, &collection);
4040     ok(hres == S_OK, "get_forms failed: %08x\n", hres);
4041     if(hres == S_OK)
4042     {
4043         test_elem_collection((IUnknown*)collection, NULL, 0);
4044         IHTMLElementCollection_Release(collection);
4045     }
4046
4047     hres = IHTMLDocument2_get_anchors(doc, NULL);
4048     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4049
4050     hres = IHTMLDocument2_get_anchors(doc, &collection);
4051     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
4052     if(hres == S_OK)
4053     {
4054         test_elem_collection((IUnknown*)collection, NULL, 0);
4055         IHTMLElementCollection_Release(collection);
4056     }
4057
4058     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
4059     ok(hres == S_OK, "Could not get IHTMBodyElement: %08x\n", hres);
4060     test_default_body(body);
4061     test_body_funs(body);
4062     IHTMLBodyElement_Release(body);
4063
4064     hres = IHTMLElement_get_style(elem, &style);
4065     ok(hres == S_OK, "get_style failed: %08x\n", hres);
4066
4067     test_default_style(style);
4068     test_window(doc);
4069     test_compatmode(doc);
4070     test_location(doc);
4071     test_navigator(doc);
4072
4073     elem2 = get_elem2_iface((IUnknown*)elem);
4074     hres = IHTMLElement2_get_currentStyle(elem2, &cstyle);
4075     ok(hres == S_OK, "get_currentStyle failed: %08x\n", hres);
4076     if(SUCCEEDED(hres)) {
4077         test_current_style(cstyle);
4078         IHTMLCurrentStyle_Release(cstyle);
4079     }
4080     IHTMLElement2_Release(elem2);
4081
4082     IHTMLElement_Release(elem);
4083
4084     test_set_csstext(style);
4085     IHTMLStyle_Release(style);
4086
4087     hres = IHTMLDocument2_get_styleSheets(doc, &stylesheetcol);
4088     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
4089
4090     l = 0xdeadbeef;
4091     hres = IHTMLStyleSheetsCollection_get_length(stylesheetcol, &l);
4092     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4093     ok(l == 0, "length = %d\n", l);
4094
4095     IHTMLStyleSheetsCollection_Release(stylesheetcol);
4096
4097     test_default_selection(doc);
4098     test_doc_title(doc, "");
4099 }
4100
4101 static void test_tr_elem(IHTMLElement *elem)
4102 {
4103     IHTMLElementCollection *col;
4104     IHTMLTableRow *row;
4105     HRESULT hres;
4106
4107     static const elem_type_t cell_types[] = {ET_TD,ET_TD};
4108
4109     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTableRow, (void**)&row);
4110     ok(hres == S_OK, "Could not get IHTMLTableRow iface: %08x\n", hres);
4111     if(FAILED(hres))
4112         return;
4113
4114     col = NULL;
4115     hres = IHTMLTableRow_get_cells(row, &col);
4116     ok(hres == S_OK, "get_cells failed: %08x\n", hres);
4117     ok(col != NULL, "get_cells returned NULL\n");
4118
4119     test_elem_collection((IUnknown*)col, cell_types, sizeof(cell_types)/sizeof(*cell_types));
4120     IHTMLElementCollection_Release(col);
4121
4122     IHTMLTable_Release(row);
4123 }
4124
4125 static void test_table_elem(IHTMLElement *elem)
4126 {
4127     IHTMLElementCollection *col;
4128     IHTMLTable *table;
4129     HRESULT hres;
4130
4131     static const elem_type_t row_types[] = {ET_TR,ET_TR};
4132
4133     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTable, (void**)&table);
4134     ok(hres == S_OK, "Could not get IHTMLTable iface: %08x\n", hres);
4135     if(FAILED(hres))
4136         return;
4137
4138     col = NULL;
4139     hres = IHTMLTable_get_rows(table, &col);
4140     ok(hres == S_OK, "get_rows failed: %08x\n", hres);
4141     ok(col != NULL, "get_ros returned NULL\n");
4142
4143     test_elem_collection((IUnknown*)col, row_types, sizeof(row_types)/sizeof(*row_types));
4144     IHTMLElementCollection_Release(col);
4145
4146     IHTMLTable_Release(table);
4147 }
4148
4149 static void doc_write(IHTMLDocument2 *doc, const char *text)
4150 {
4151     SAFEARRAYBOUND dim;
4152     SAFEARRAY *sa;
4153     VARIANT *var;
4154     BSTR str;
4155     HRESULT hres;
4156
4157     dim.lLbound = 0;
4158     dim.cElements = 1;
4159     sa = SafeArrayCreate(VT_VARIANT, 1, &dim);
4160     SafeArrayAccessData(sa, (void**)&var);
4161     V_VT(var) = VT_BSTR;
4162     V_BSTR(var) = str = a2bstr(text);
4163     SafeArrayUnaccessData(sa);
4164
4165     hres = IHTMLDocument2_write(doc, sa);
4166     ok(hres == S_OK, "write failed: %08x\n", hres);
4167
4168     SysFreeString(str);
4169     SafeArrayDestroy(sa);
4170 }
4171
4172 static void test_iframe_elem(IHTMLElement *elem)
4173 {
4174     IHTMLElementCollection *col;
4175     IHTMLDocument2 *content_doc;
4176     IHTMLWindow2 *content_window;
4177     IHTMLFrameBase2 *base2;
4178     IDispatch *disp;
4179     VARIANT errv;
4180     BSTR str;
4181     HRESULT hres;
4182
4183     static const elem_type_t all_types[] = {
4184         ET_HTML,
4185         ET_HEAD,
4186         ET_TITLE,
4187         ET_BODY,
4188         ET_BR
4189     };
4190
4191     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase2, (void**)&base2);
4192     ok(hres == S_OK, "Could not get IHTMFrameBase2 iface: %08x\n", hres);
4193     if (!base2) return;
4194
4195     content_window = NULL;
4196     hres = IHTMLFrameBase2_get_contentWindow(base2, &content_window);
4197     IHTMLFrameBase2_Release(base2);
4198     ok(hres == S_OK, "get_contentWindow failed: %08x\n", hres);
4199     ok(content_window != NULL, "contentWindow = NULL\n");
4200
4201     content_doc = NULL;
4202     hres = IHTMLWindow2_get_document(content_window, &content_doc);
4203     IHTMLWindow2_Release(content_window);
4204     ok(hres == S_OK, "get_document failed: %08x\n", hres);
4205     ok(content_doc != NULL, "content_doc = NULL\n");
4206
4207     str = a2bstr("text/html");
4208     V_VT(&errv) = VT_ERROR;
4209     disp = NULL;
4210     hres = IHTMLDocument2_open(content_doc, str, errv, errv, errv, &disp);
4211     SysFreeString(str);
4212     ok(hres == S_OK, "open failed: %08x\n", hres);
4213     ok(disp != NULL, "disp == NULL\n");
4214     ok(iface_cmp((IUnknown*)disp, (IUnknown*)content_window), "disp != content_window\n");
4215     IDispatch_Release(disp);
4216
4217     doc_write(content_doc, "<html><head><title>test</title></head><body><br /></body></html>");
4218
4219     hres = IHTMLDocument2_get_all(content_doc, &col);
4220     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4221     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4222     IHTMLElementCollection_Release(col);
4223
4224     hres = IHTMLDocument2_close(content_doc);
4225     ok(hres == S_OK, "close failed: %08x\n", hres);
4226
4227     IHTMLDocument2_Release(content_doc);
4228 }
4229
4230 static void test_stylesheet(IDispatch *disp)
4231 {
4232     IHTMLStyleSheetRulesCollection *col = NULL;
4233     IHTMLStyleSheet *stylesheet;
4234     HRESULT hres;
4235
4236     hres = IDispatch_QueryInterface(disp, &IID_IHTMLStyleSheet, (void**)&stylesheet);
4237     ok(hres == S_OK, "Could not get IHTMLStyleSheet: %08x\n", hres);
4238
4239     hres = IHTMLStyleSheet_get_rules(stylesheet, &col);
4240     ok(hres == S_OK, "get_rules failed: %08x\n", hres);
4241     ok(col != NULL, "col == NULL\n");
4242
4243     IHTMLStyleSheetRulesCollection_Release(col);
4244     IHTMLStyleSheet_Release(stylesheet);
4245 }
4246
4247 static void test_stylesheets(IHTMLDocument2 *doc)
4248 {
4249     IHTMLStyleSheetsCollection *col = NULL;
4250     VARIANT idx, res;
4251     LONG len = 0;
4252     HRESULT hres;
4253
4254     hres = IHTMLDocument2_get_styleSheets(doc, &col);
4255     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
4256     ok(col != NULL, "col == NULL\n");
4257
4258     hres = IHTMLStyleSheetsCollection_get_length(col, &len);
4259     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4260     ok(len == 1, "len=%d\n", len);
4261
4262     VariantInit(&res);
4263     V_VT(&idx) = VT_I4;
4264     V_I4(&idx) = 0;
4265
4266     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
4267     ok(hres == S_OK, "item failed: %08x\n", hres);
4268     ok(V_VT(&res) == VT_DISPATCH, "V_VT(res) = %d\n", V_VT(&res));
4269     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
4270     test_stylesheet(V_DISPATCH(&res));
4271     VariantClear(&res);
4272
4273     V_VT(&res) = VT_I4;
4274     V_VT(&idx) = VT_I4;
4275     V_I4(&idx) = 1;
4276
4277     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
4278     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4279     ok(V_VT(&res) == VT_EMPTY, "V_VT(res) = %d\n", V_VT(&res));
4280     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
4281     VariantClear(&res);
4282
4283     IHTMLStyleSheetsCollection_Release(col);
4284 }
4285
4286 static void test_child_col_disp(IHTMLDOMChildrenCollection *col)
4287 {
4288     IDispatchEx *dispex;
4289     IHTMLDOMNode *node;
4290     DISPPARAMS dp = {NULL, NULL, 0, 0};
4291     VARIANT var;
4292     EXCEPINFO ei;
4293     LONG type;
4294     DISPID id;
4295     BSTR bstr;
4296     HRESULT hres;
4297
4298     static const WCHAR w0[] = {'0',0};
4299     static const WCHAR w100[] = {'1','0','0',0};
4300
4301     hres = IHTMLDOMChildrenCollection_QueryInterface(col, &IID_IDispatchEx, (void**)&dispex);
4302     ok(hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
4303
4304     bstr = SysAllocString(w0);
4305     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
4306     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
4307     SysFreeString(bstr);
4308
4309     VariantInit(&var);
4310     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
4311     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
4312     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
4313     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
4314     node = get_node_iface((IUnknown*)V_DISPATCH(&var));
4315     type = get_node_type((IUnknown*)node);
4316     ok(type == 3, "type=%d\n", type);
4317     IHTMLDOMNode_Release(node);
4318     VariantClear(&var);
4319
4320     bstr = SysAllocString(w100);
4321     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
4322     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
4323     SysFreeString(bstr);
4324
4325     IDispatchEx_Release(dispex);
4326 }
4327
4328
4329
4330 static void test_elems(IHTMLDocument2 *doc)
4331 {
4332     IHTMLElementCollection *col;
4333     IHTMLDOMChildrenCollection *child_col;
4334     IHTMLElement *elem, *elem2, *elem3;
4335     IHTMLDOMNode *node, *node2;
4336     IDispatch *disp;
4337     LONG type;
4338     HRESULT hres;
4339     IHTMLElementCollection *collection;
4340     IHTMLDocument3 *doc3;
4341     BSTR str;
4342
4343     static const elem_type_t all_types[] = {
4344         ET_HTML,
4345         ET_HEAD,
4346         ET_TITLE,
4347         ET_STYLE,
4348         ET_BODY,
4349         ET_COMMENT,
4350         ET_A,
4351         ET_INPUT,
4352         ET_SELECT,
4353         ET_OPTION,
4354         ET_OPTION,
4355         ET_TEXTAREA,
4356         ET_TABLE,
4357         ET_TBODY,
4358         ET_TR,
4359         ET_TR,
4360         ET_TD,
4361         ET_TD,
4362         ET_SCRIPT,
4363         ET_TEST,
4364         ET_IMG,
4365         ET_IFRAME
4366     };
4367
4368     static const elem_type_t item_types[] = {
4369         ET_A,
4370         ET_OPTION,
4371         ET_TEXTAREA
4372     };
4373
4374     hres = IHTMLDocument2_get_all(doc, &col);
4375     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4376     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4377     test_elem_col_item(col, "x", item_types, sizeof(item_types)/sizeof(item_types[0]));
4378     IHTMLElementCollection_Release(col);
4379
4380     hres = IHTMLDocument2_get_images(doc, &collection);
4381     ok(hres == S_OK, "get_images failed: %08x\n", hres);
4382     if(hres == S_OK)
4383     {
4384         static const elem_type_t images_types[] = {ET_IMG};
4385         test_elem_collection((IUnknown*)collection, images_types, 1);
4386
4387         IHTMLElementCollection_Release(collection);
4388     }
4389
4390     hres = IHTMLDocument2_get_links(doc, &collection);
4391     ok(hres == S_OK, "get_links failed: %08x\n", hres);
4392     if(hres == S_OK)
4393     {
4394         static const elem_type_t images_types[] = {ET_A};
4395         test_elem_collection((IUnknown*)collection, images_types, 1);
4396
4397         IHTMLElementCollection_Release(collection);
4398     }
4399
4400     hres = IHTMLDocument2_get_anchors(doc, &collection);
4401     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
4402     if(hres == S_OK)
4403     {
4404         static const elem_type_t anchor_types[] = {ET_A};
4405         test_elem_collection((IUnknown*)collection, anchor_types, 1);
4406
4407         IHTMLElementCollection_Release(collection);
4408     }
4409
4410     elem = get_doc_elem(doc);
4411     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
4412     hres = IHTMLElement_get_all(elem, &disp);
4413     IHTMLElement_Release(elem);
4414     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4415
4416     hres = IDispatch_QueryInterface(disp, &IID_IHTMLElementCollection, (void**)&col);
4417     IDispatch_Release(disp);
4418     ok(hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
4419     test_elem_collection((IUnknown*)col, all_types+1, sizeof(all_types)/sizeof(all_types[0])-1);
4420     IHTMLElementCollection_Release(col);
4421
4422     get_elem_by_id(doc, "xxx", FALSE);
4423     elem = get_doc_elem_by_id(doc, "xxx");
4424     ok(!elem, "elem != NULL\n");
4425
4426     elem = get_doc_elem_by_id(doc, "s");
4427     ok(elem != NULL, "elem == NULL\n");
4428     if(elem) {
4429         test_elem_type((IUnknown*)elem, ET_SELECT);
4430         test_elem_attr(elem, "xxx", NULL);
4431         test_elem_attr(elem, "id", "s");
4432         test_elem_class((IUnknown*)elem, NULL);
4433         test_elem_set_class((IUnknown*)elem, "cl");
4434         test_elem_set_class((IUnknown*)elem, NULL);
4435         test_elem_tabindex((IUnknown*)elem, 0);
4436         test_elem_set_tabindex((IUnknown*)elem, 1);
4437
4438         node = test_node_get_parent((IUnknown*)elem);
4439         ok(node != NULL, "node == NULL\n");
4440         test_node_name((IUnknown*)node, "BODY");
4441         node2 = test_node_get_parent((IUnknown*)node);
4442         IHTMLDOMNode_Release(node);
4443         ok(node2 != NULL, "node == NULL\n");
4444         test_node_name((IUnknown*)node2, "HTML");
4445         node = test_node_get_parent((IUnknown*)node2);
4446         IHTMLDOMNode_Release(node2);
4447         ok(node != NULL, "node == NULL\n");
4448         if (node)
4449         {
4450             test_node_name((IUnknown*)node, "#document");
4451             type = get_node_type((IUnknown*)node);
4452             ok(type == 9, "type=%d, expected 9\n", type);
4453             node2 = test_node_get_parent((IUnknown*)node);
4454             IHTMLDOMNode_Release(node);
4455             ok(node2 == NULL, "node != NULL\n");
4456         }
4457
4458         elem2 = test_elem_get_parent((IUnknown*)elem);
4459         ok(elem2 != NULL, "elem2 == NULL\n");
4460         test_node_name((IUnknown*)elem2, "BODY");
4461         elem3 = test_elem_get_parent((IUnknown*)elem2);
4462         IHTMLElement_Release(elem2);
4463         ok(elem3 != NULL, "elem3 == NULL\n");
4464         test_node_name((IUnknown*)elem3, "HTML");
4465         elem2 = test_elem_get_parent((IUnknown*)elem3);
4466         IHTMLElement_Release(elem3);
4467         ok(elem2 == NULL, "elem2 != NULL\n");
4468
4469         test_elem_getelembytag((IUnknown*)elem, ET_OPTION, 2);
4470         test_elem_getelembytag((IUnknown*)elem, ET_SELECT, 0);
4471         test_elem_getelembytag((IUnknown*)elem, ET_HTML, 0);
4472
4473         test_elem_innertext(elem, "opt1opt2");
4474
4475         IHTMLElement_Release(elem);
4476     }
4477
4478     elem = get_elem_by_id(doc, "s", TRUE);
4479     if(elem) {
4480         IHTMLSelectElement *select;
4481
4482         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLSelectElement, (void**)&select);
4483         ok(hres == S_OK, "Could not get IHTMLSelectElement interface: %08x\n", hres);
4484
4485         test_select_elem(select);
4486
4487         test_elem_title((IUnknown*)select, NULL);
4488         test_elem_set_title((IUnknown*)select, "Title");
4489         test_elem_title((IUnknown*)select, "Title");
4490         test_elem_offset((IUnknown*)select);
4491
4492         node = get_first_child((IUnknown*)select);
4493         ok(node != NULL, "node == NULL\n");
4494         if(node) {
4495             test_elem_type((IUnknown*)node, ET_OPTION);
4496             IHTMLDOMNode_Release(node);
4497         }
4498
4499         type = get_node_type((IUnknown*)select);
4500         ok(type == 1, "type=%d\n", type);
4501
4502         IHTMLSelectElement_Release(select);
4503
4504         hres = IHTMLElement_get_document(elem, &disp);
4505         ok(hres == S_OK, "get_document failed: %08x\n", hres);
4506         ok(iface_cmp((IUnknown*)disp, (IUnknown*)doc), "disp != doc\n");
4507
4508         IHTMLElement_Release(elem);
4509     }
4510
4511     elem = get_elem_by_id(doc, "sc", TRUE);
4512     if(elem) {
4513         IHTMLScriptElement *script;
4514         BSTR type;
4515
4516         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLScriptElement, (void**)&script);
4517         ok(hres == S_OK, "Could not get IHTMLScriptElement interface: %08x\n", hres);
4518
4519         if(hres == S_OK)
4520         {
4521             VARIANT_BOOL vb;
4522
4523             hres = IHTMLScriptElement_get_type(script, &type);
4524             ok(hres == S_OK, "get_type failed: %08x\n", hres);
4525             ok(!strcmp_wa(type, "text/javascript"), "Unexpected type %s\n", wine_dbgstr_w(type));
4526             SysFreeString(type);
4527
4528             /* test defer */
4529             hres = IHTMLScriptElement_put_defer(script, VARIANT_TRUE);
4530             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
4531
4532             hres = IHTMLScriptElement_get_defer(script, &vb);
4533             ok(hres == S_OK, "get_defer failed: %08x\n", hres);
4534             ok(vb == VARIANT_TRUE, "get_defer result is %08x\n", hres);
4535
4536             hres = IHTMLScriptElement_put_defer(script, VARIANT_FALSE);
4537             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
4538         }
4539
4540         IHTMLScriptElement_Release(script);
4541     }
4542
4543     elem = get_elem_by_id(doc, "in", TRUE);
4544     if(elem) {
4545         IHTMLInputElement *input;
4546
4547         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLInputElement, (void**)&input);
4548         ok(hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
4549
4550         test_elem_id((IUnknown*)elem, "in");
4551         test_elem_put_id((IUnknown*)elem, "newin");
4552         test_input_get_disabled(input, VARIANT_FALSE);
4553         test_input_set_disabled(input, VARIANT_TRUE);
4554         test_input_set_disabled(input, VARIANT_FALSE);
4555         test_elem3_set_disabled((IUnknown*)input, VARIANT_TRUE);
4556         test_input_get_disabled(input, VARIANT_TRUE);
4557         test_elem3_set_disabled((IUnknown*)input, VARIANT_FALSE);
4558         test_input_get_disabled(input, VARIANT_FALSE);
4559         test_elem_client_size((IUnknown*)elem);
4560
4561         test_node_get_value_str((IUnknown*)elem, NULL);
4562         test_node_put_value_str((IUnknown*)elem, "test");
4563         test_node_get_value_str((IUnknown*)elem, NULL);
4564         test_input_value((IUnknown*)elem, NULL);
4565         test_input_put_value((IUnknown*)elem, "test");
4566         test_input_value((IUnknown*)elem, NULL);
4567         test_elem_class((IUnknown*)elem, "testclass");
4568         test_elem_tabindex((IUnknown*)elem, 2);
4569         test_elem_set_tabindex((IUnknown*)elem, 3);
4570         test_elem_title((IUnknown*)elem, "test title");
4571
4572         test_input_get_defaultchecked(input, VARIANT_FALSE);
4573         test_input_set_defaultchecked(input, VARIANT_TRUE);
4574         test_input_set_defaultchecked(input, VARIANT_FALSE);
4575
4576         test_input_get_checked(input, VARIANT_FALSE);
4577         test_input_set_checked(input, VARIANT_TRUE);
4578         test_input_set_checked(input, VARIANT_FALSE);
4579
4580         IHTMLInputElement_Release(input);
4581         IHTMLElement_Release(elem);
4582     }
4583
4584     elem = get_elem_by_id(doc, "imgid", TRUE);
4585     if(elem) {
4586         test_img_src((IUnknown*)elem, "");
4587         test_img_set_src((IUnknown*)elem, "about:blank");
4588         test_img_alt((IUnknown*)elem, NULL);
4589         test_img_set_alt((IUnknown*)elem, "alt test");
4590         IHTMLElement_Release(elem);
4591     }
4592
4593     elem = get_doc_elem_by_id(doc, "tbl");
4594     ok(elem != NULL, "elem == NULL\n");
4595     if(elem) {
4596         test_table_elem(elem);
4597         IHTMLElement_Release(elem);
4598     }
4599
4600     elem = get_doc_elem_by_id(doc, "row2");
4601     ok(elem != NULL, "elem == NULL\n");
4602     if(elem) {
4603         test_tr_elem(elem);
4604         IHTMLElement_Release(elem);
4605     }
4606
4607     elem = get_doc_elem_by_id(doc, "ifr");
4608     ok(elem != NULL, "elem == NULL\n");
4609     if(elem) {
4610         test_iframe_elem(elem);
4611         IHTMLElement_Release(elem);
4612     }
4613
4614     hres = IHTMLDocument2_get_body(doc, &elem);
4615     ok(hres == S_OK, "get_body failed: %08x\n", hres);
4616
4617     node = get_first_child((IUnknown*)elem);
4618     ok(node != NULL, "node == NULL\n");
4619     if(node) {
4620         test_ifaces((IUnknown*)node, text_iids);
4621         test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
4622
4623         node2 = get_first_child((IUnknown*)node);
4624         ok(!node2, "node2 != NULL\n");
4625
4626         type = get_node_type((IUnknown*)node);
4627         ok(type == 3, "type=%d\n", type);
4628
4629         test_node_get_value_str((IUnknown*)node, "text test");
4630         test_node_put_value_str((IUnknown*)elem, "test text");
4631         test_node_get_value_str((IUnknown*)node, "text test");
4632
4633         IHTMLDOMNode_Release(node);
4634     }
4635
4636     child_col = get_child_nodes((IUnknown*)elem);
4637     ok(child_col != NULL, "child_coll == NULL\n");
4638     if(child_col) {
4639         LONG length = 0;
4640
4641         test_disp((IUnknown*)child_col, &DIID_DispDOMChildrenCollection, "[object]");
4642
4643         hres = IHTMLDOMChildrenCollection_get_length(child_col, &length);
4644         ok(hres == S_OK, "get_length failed: %08x\n", hres);
4645         ok(length, "length=0\n");
4646
4647         node = get_child_item(child_col, 0);
4648         ok(node != NULL, "node == NULL\n");
4649         if(node) {
4650             type = get_node_type((IUnknown*)node);
4651             ok(type == 3, "type=%d\n", type);
4652             IHTMLDOMNode_Release(node);
4653         }
4654
4655         node = get_child_item(child_col, 1);
4656         ok(node != NULL, "node == NULL\n");
4657         if(node) {
4658             type = get_node_type((IUnknown*)node);
4659             ok(type == 8, "type=%d\n", type);
4660
4661             test_elem_id((IUnknown*)node, NULL);
4662             IHTMLDOMNode_Release(node);
4663         }
4664
4665         hres = IHTMLDOMChildrenCollection_item(child_col, length - 1, NULL);
4666         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
4667
4668         hres = IHTMLDOMChildrenCollection_item(child_col, length, NULL);
4669         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
4670
4671         hres = IHTMLDOMChildrenCollection_item(child_col, 6000, &disp);
4672         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4673
4674         hres = IHTMLDOMChildrenCollection_item(child_col, length, &disp);
4675         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4676
4677         test_child_col_disp(child_col);
4678
4679         IHTMLDOMChildrenCollection_Release(child_col);
4680     }
4681
4682     test_elem3_get_disabled((IUnknown*)elem, VARIANT_FALSE);
4683     test_elem3_set_disabled((IUnknown*)elem, VARIANT_TRUE);
4684     test_elem3_set_disabled((IUnknown*)elem, VARIANT_FALSE);
4685
4686     IHTMLElement_Release(elem);
4687
4688     test_stylesheets(doc);
4689     test_create_option_elem(doc);
4690
4691     elem = get_doc_elem_by_id(doc, "tbl");
4692     ok(elem != NULL, "elem = NULL\n");
4693     test_elem_set_innertext(elem, "inner text");
4694     IHTMLElement_Release(elem);
4695
4696     test_doc_title(doc, "test");
4697     test_doc_set_title(doc, "test title");
4698     test_doc_title(doc, "test title");
4699
4700     disp = NULL;
4701     hres = IHTMLDocument2_get_Script(doc, &disp);
4702     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
4703     if(hres == S_OK)
4704     {
4705         IDispatchEx *dispex;
4706         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
4707         ok(hres == S_OK, "IDispatch_QueryInterface failed: %08x\n", hres);
4708         if(hres == S_OK)
4709         {
4710             DISPID pid = -1;
4711             BSTR str = a2bstr("Testing");
4712             hres = IDispatchEx_GetDispID(dispex, str, 1, &pid);
4713             todo_wine ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
4714             todo_wine ok(pid != -1, "pid == -1\n");
4715             SysFreeString(str);
4716             IDispatchEx_Release(dispex);
4717         }
4718     }
4719     IDispatch_Release(disp);
4720
4721     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
4722     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
4723
4724     str = a2bstr("img");
4725     hres = IHTMLDocument3_getElementsByTagName(doc3, str, &col);
4726     ok(hres == S_OK, "getElementsByTagName(%s) failed: %08x\n", wine_dbgstr_w(str), hres);
4727     SysFreeString(str);
4728     if(hres == S_OK)
4729     {
4730         static const elem_type_t img_types[] = { ET_IMG };
4731
4732         test_elem_collection((IUnknown*)col, img_types, sizeof(img_types)/sizeof(img_types[0]));
4733         IHTMLElementCollection_Release(col);
4734     }
4735
4736     elem = get_doc_elem_by_id(doc, "y");
4737     test_elem_set_innerhtml((IUnknown*)elem, "inner html");
4738     test_elem_innerhtml((IUnknown*)elem, "inner html");
4739     test_elem_set_innerhtml((IUnknown*)elem, "");
4740     test_elem_innerhtml((IUnknown*)elem, NULL);
4741     IHTMLElement_Release(elem);
4742
4743     IHTMLDocument3_Release(doc3);
4744 }
4745
4746 static void test_create_elems(IHTMLDocument2 *doc)
4747 {
4748     IHTMLElement *elem, *body, *elem2;
4749     IHTMLDOMNode *node, *node2, *node3, *comment;
4750     IHTMLDocument5 *doc5;
4751     IDispatch *disp;
4752     VARIANT var;
4753     LONG type;
4754     HRESULT hres;
4755     BSTR str;
4756
4757     static const elem_type_t types1[] = { ET_TESTG };
4758
4759     elem = test_create_elem(doc, "TEST");
4760     test_elem_tag((IUnknown*)elem, "TEST");
4761     type = get_node_type((IUnknown*)elem);
4762     ok(type == 1, "type=%d\n", type);
4763     test_ifaces((IUnknown*)elem, elem_iids);
4764     test_disp((IUnknown*)elem, &DIID_DispHTMLGenericElement, "[object]");
4765
4766     hres = IHTMLDocument2_get_body(doc, &body);
4767     ok(hres == S_OK, "get_body failed: %08x\n", hres);
4768     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
4769
4770     node = test_node_append_child((IUnknown*)body, (IUnknown*)elem);
4771     test_node_has_child((IUnknown*)body, VARIANT_TRUE);
4772     elem2 = get_elem_iface((IUnknown*)node);
4773     IHTMLElement_Release(elem2);
4774
4775     hres = IHTMLElement_get_all(body, &disp);
4776     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4777     test_elem_collection((IUnknown*)disp, types1, sizeof(types1)/sizeof(types1[0]));
4778     IDispatch_Release(disp);
4779
4780     test_node_remove_child((IUnknown*)body, node);
4781
4782     hres = IHTMLElement_get_all(body, &disp);
4783     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4784     test_elem_collection((IUnknown*)disp, NULL, 0);
4785     IDispatch_Release(disp);
4786     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
4787
4788     IHTMLElement_Release(elem);
4789     IHTMLDOMNode_Release(node);
4790
4791     node = test_create_text(doc, "test");
4792     test_ifaces((IUnknown*)node, text_iids);
4793     test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
4794
4795     V_VT(&var) = VT_NULL;
4796     node2 = test_node_insertbefore((IUnknown*)body, node, &var);
4797     IHTMLDOMNode_Release(node);
4798
4799     node = test_create_text(doc, "insert ");
4800
4801     V_VT(&var) = VT_DISPATCH;
4802     V_DISPATCH(&var) = (IDispatch*)node2;
4803     node3 = test_node_insertbefore((IUnknown*)body, node, &var);
4804     IHTMLDOMNode_Release(node);
4805     IHTMLDOMNode_Release(node2);
4806     IHTMLDOMNode_Release(node3);
4807
4808     test_elem_innertext(body, "insert test");
4809     test_elem_innerhtml((IUnknown*)body, "insert test");
4810
4811     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
4812     if(hres == S_OK)
4813     {
4814         str = a2bstr("testing");
4815         hres = IHTMLDocument5_createComment(doc5, str, &comment);
4816         SysFreeString(str);
4817         ok(hres == S_OK, "createComment failed: %08x\n", hres);
4818         if(hres == S_OK)
4819         {
4820             type = get_node_type((IUnknown*)comment);
4821             ok(type == 8, "type=%d, expected 8\n", type);
4822
4823             test_node_get_value_str((IUnknown*)comment, "testing");
4824
4825             IHTMLDOMNode_Release(comment);
4826         }
4827
4828         IHTMLDocument5_Release(doc5);
4829     }
4830
4831     IHTMLElement_Release(body);
4832 }
4833
4834 static void test_exec(IUnknown *unk, const GUID *grpid, DWORD cmdid, VARIANT *in, VARIANT *out)
4835 {
4836     IOleCommandTarget *cmdtrg;
4837     HRESULT hres;
4838
4839     hres = IHTMLTxtRange_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
4840     ok(hres == S_OK, "Could not get IOleCommandTarget interface: %08x\n", hres);
4841
4842     hres = IOleCommandTarget_Exec(cmdtrg, grpid, cmdid, 0, in, out);
4843     ok(hres == S_OK, "Exec failed: %08x\n", hres);
4844
4845     IOleCommandTarget_Release(cmdtrg);
4846 }
4847
4848 static void test_indent(IHTMLDocument2 *doc)
4849 {
4850     IHTMLElementCollection *col;
4851     IHTMLTxtRange *range;
4852     HRESULT hres;
4853
4854     static const elem_type_t all_types[] = {
4855         ET_HTML,
4856         ET_HEAD,
4857         ET_TITLE,
4858         ET_BODY,
4859         ET_BR,
4860         ET_A,
4861     };
4862
4863     static const elem_type_t indent_types[] = {
4864         ET_HTML,
4865         ET_HEAD,
4866         ET_TITLE,
4867         ET_BODY,
4868         ET_BLOCKQUOTE,
4869         ET_P,
4870         ET_BR,
4871         ET_A,
4872     };
4873
4874     hres = IHTMLDocument2_get_all(doc, &col);
4875     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4876     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4877     IHTMLElementCollection_Release(col);
4878
4879     range = test_create_body_range(doc);
4880     test_exec((IUnknown*)range, &CGID_MSHTML, IDM_INDENT, NULL, NULL);
4881     IHTMLTxtRange_Release(range);
4882
4883     hres = IHTMLDocument2_get_all(doc, &col);
4884     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4885     test_elem_collection((IUnknown*)col, indent_types, sizeof(indent_types)/sizeof(indent_types[0]));
4886     IHTMLElementCollection_Release(col);
4887 }
4888
4889 static void test_cond_comment(IHTMLDocument2 *doc)
4890 {
4891     IHTMLElementCollection *col;
4892     HRESULT hres;
4893
4894     static const elem_type_t all_types[] = {
4895         ET_HTML,
4896         ET_HEAD,
4897         ET_TITLE,
4898         ET_BODY,
4899         ET_BR
4900     };
4901
4902     hres = IHTMLDocument2_get_all(doc, &col);
4903     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4904     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4905     IHTMLElementCollection_Release(col);
4906 }
4907
4908 static IHTMLDocument2 *notif_doc;
4909 static BOOL doc_complete;
4910
4911 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
4912         REFIID riid, void**ppv)
4913 {
4914     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
4915         *ppv = iface;
4916         return S_OK;
4917     }
4918
4919     ok(0, "unexpected call\n");
4920     return E_NOINTERFACE;
4921 }
4922
4923 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
4924 {
4925     return 2;
4926 }
4927
4928 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
4929 {
4930     return 1;
4931 }
4932
4933 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
4934 {
4935     if(dispID == DISPID_READYSTATE){
4936         BSTR state;
4937         HRESULT hres;
4938
4939         hres = IHTMLDocument2_get_readyState(notif_doc, &state);
4940         ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
4941
4942         if(!strcmp_wa(state, "complete"))
4943             doc_complete = TRUE;
4944
4945         SysFreeString(state);
4946     }
4947
4948     return S_OK;
4949 }
4950
4951 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
4952 {
4953     ok(0, "unexpected call\n");
4954     return E_NOTIMPL;
4955 }
4956
4957 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
4958     PropertyNotifySink_QueryInterface,
4959     PropertyNotifySink_AddRef,
4960     PropertyNotifySink_Release,
4961     PropertyNotifySink_OnChanged,
4962     PropertyNotifySink_OnRequestEdit
4963 };
4964
4965 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
4966
4967 static IHTMLDocument2 *create_doc_with_string(const char *str)
4968 {
4969     IPersistStreamInit *init;
4970     IStream *stream;
4971     IHTMLDocument2 *doc;
4972     HGLOBAL mem;
4973     SIZE_T len;
4974
4975     notif_doc = doc = create_document();
4976     if(!doc)
4977         return NULL;
4978
4979     doc_complete = FALSE;
4980     len = strlen(str);
4981     mem = GlobalAlloc(0, len);
4982     memcpy(mem, str, len);
4983     CreateStreamOnHGlobal(mem, TRUE, &stream);
4984
4985     IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
4986
4987     IPersistStreamInit_Load(init, stream);
4988     IPersistStreamInit_Release(init);
4989     IStream_Release(stream);
4990
4991     return doc;
4992 }
4993
4994 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
4995 {
4996     IConnectionPointContainer *container;
4997     IConnectionPoint *cp;
4998     DWORD cookie;
4999     HRESULT hres;
5000
5001     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
5002     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
5003
5004     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
5005     IConnectionPointContainer_Release(container);
5006     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
5007
5008     hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
5009     IConnectionPoint_Release(cp);
5010     ok(hres == S_OK, "Advise failed: %08x\n", hres);
5011 }
5012
5013 typedef void (*domtest_t)(IHTMLDocument2*);
5014
5015 static void run_domtest(const char *str, domtest_t test)
5016 {
5017     IHTMLDocument2 *doc;
5018     IHTMLElement *body = NULL;
5019     ULONG ref;
5020     MSG msg;
5021     HRESULT hres;
5022
5023     doc = create_doc_with_string(str);
5024     if(!doc)
5025         return;
5026
5027     do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
5028
5029     while(!doc_complete && GetMessage(&msg, NULL, 0, 0)) {
5030         TranslateMessage(&msg);
5031         DispatchMessage(&msg);
5032     }
5033
5034     hres = IHTMLDocument2_get_body(doc, &body);
5035     ok(hres == S_OK, "get_body failed: %08x\n", hres);
5036
5037     if(body) {
5038         IHTMLElement_Release(body);
5039         test(doc);
5040     }else {
5041         skip("Could not get document body. Assuming no Gecko installed.\n");
5042     }
5043
5044     ref = IHTMLDocument2_Release(doc);
5045     ok(!ref ||
5046        ref == 1, /* Vista */
5047        "ref = %d\n", ref);
5048 }
5049
5050 static void gecko_installer_workaround(BOOL disable)
5051 {
5052     HKEY hkey;
5053     DWORD res;
5054
5055     static BOOL has_url = FALSE;
5056     static char url[2048];
5057
5058     if(!disable && !has_url)
5059         return;
5060
5061     res = RegOpenKey(HKEY_CURRENT_USER, "Software\\Wine\\MSHTML", &hkey);
5062     if(res != ERROR_SUCCESS)
5063         return;
5064
5065     if(disable) {
5066         DWORD type, size = sizeof(url);
5067
5068         res = RegQueryValueEx(hkey, "GeckoUrl", NULL, &type, (PVOID)url, &size);
5069         if(res == ERROR_SUCCESS && type == REG_SZ)
5070             has_url = TRUE;
5071
5072         RegDeleteValue(hkey, "GeckoUrl");
5073     }else {
5074         RegSetValueEx(hkey, "GeckoUrl", 0, REG_SZ, (PVOID)url, lstrlenA(url)+1);
5075     }
5076
5077     RegCloseKey(hkey);
5078 }
5079
5080 /* Check if Internet Explorer is configured to run in "Enhanced Security Configuration" (aka hardened mode) */
5081 /* Note: this code is duplicated in dlls/mshtml/tests/dom.c, dlls/mshtml/tests/script.c and dlls/urlmon/tests/sec_mgr.c */
5082 static BOOL is_ie_hardened(void)
5083 {
5084     HKEY zone_map;
5085     DWORD ie_harden, type, size;
5086
5087     ie_harden = 0;
5088     if(RegOpenKeyEx(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap",
5089                     0, KEY_QUERY_VALUE, &zone_map) == ERROR_SUCCESS) {
5090         size = sizeof(DWORD);
5091         if (RegQueryValueEx(zone_map, "IEHarden", NULL, &type, (LPBYTE) &ie_harden, &size) != ERROR_SUCCESS ||
5092             type != REG_DWORD) {
5093             ie_harden = 0;
5094         }
5095     RegCloseKey(zone_map);
5096     }
5097
5098     return ie_harden != 0;
5099 }
5100
5101 START_TEST(dom)
5102 {
5103     gecko_installer_workaround(TRUE);
5104     CoInitialize(NULL);
5105
5106     run_domtest(doc_str1, test_doc_elem);
5107     run_domtest(range_test_str, test_txtrange);
5108     run_domtest(range_test2_str, test_txtrange2);
5109     if (winetest_interactive || ! is_ie_hardened()) {
5110         run_domtest(elem_test_str, test_elems);
5111     }else {
5112         skip("IE running in Enhanced Security Configuration\n");
5113     }
5114     run_domtest(doc_blank, test_create_elems);
5115     run_domtest(doc_blank, test_defaults);
5116     run_domtest(indent_test_str, test_indent);
5117     run_domtest(cond_comment_str, test_cond_comment);
5118
5119     CoUninitialize();
5120     gecko_installer_workaround(FALSE);
5121 }