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>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\"></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
  57 static const WCHAR noneW[] = {'N','o','n','e',0};
  58
  59 static WCHAR characterW[] = {'c','h','a','r','a','c','t','e','r',0};
  60 static WCHAR texteditW[] = {'t','e','x','t','e','d','i','t',0};
  61 static WCHAR wordW[] = {'w','o','r','d',0};
  62
  63 static const WCHAR text_javascriptW[] = {'t','e','x','t','/','j','a','v','a','s','c','r','i','p','t',0};
  64
  65 static const WCHAR idW[] = {'i','d',0};
  66
  67 typedef enum {
  68     ET_NONE,
  69     ET_HTML,
  70     ET_HEAD,
  71     ET_TITLE,
  72     ET_BODY,
  73     ET_A,
  74     ET_INPUT,
  75     ET_SELECT,
  76     ET_TEXTAREA,
  77     ET_OPTION,
  78     ET_STYLE,
  79     ET_BLOCKQUOTE,
  80     ET_P,
  81     ET_BR,
  82     ET_TABLE,
  83     ET_TBODY,
  84     ET_SCRIPT,
  85     ET_TEST,
  86     ET_TESTG,
  87     ET_COMMENT,
  88     ET_IMG,
  89     ET_TR,
  90     ET_TD,
  91     ET_IFRAME
  92 } elem_type_t;
  93
  94 static const IID * const none_iids[] = {
  95     &IID_IUnknown,
  96     NULL
  97 };
  98
  99 static const IID * const elem_iids[] = {
 100     &IID_IHTMLDOMNode,
 101     &IID_IHTMLDOMNode2,
 102     &IID_IHTMLElement,
 103     &IID_IHTMLElement2,
 104     &IID_IHTMLElement3,
 105     &IID_IDispatchEx,
 106     &IID_IConnectionPointContainer,
 107     NULL
 108 };
 109
 110 static const IID * const body_iids[] = {
 111     &IID_IHTMLDOMNode,
 112     &IID_IHTMLDOMNode2,
 113     &IID_IHTMLElement,
 114     &IID_IHTMLElement2,
 115     &IID_IHTMLElement3,
 116     &IID_IHTMLTextContainer,
 117     &IID_IHTMLBodyElement,
 118     &IID_IDispatchEx,
 119     &IID_IConnectionPointContainer,
 120     NULL
 121 };
 122
 123 static const IID * const anchor_iids[] = {
 124     &IID_IHTMLDOMNode,
 125     &IID_IHTMLDOMNode2,
 126     &IID_IHTMLElement,
 127     &IID_IHTMLElement2,
 128     &IID_IHTMLElement3,
 129     &IID_IHTMLAnchorElement,
 130     &IID_IDispatchEx,
 131     &IID_IConnectionPointContainer,
 132     NULL
 133 };
 134
 135 static const IID * const input_iids[] = {
 136     &IID_IHTMLDOMNode,
 137     &IID_IHTMLDOMNode2,
 138     &IID_IHTMLElement,
 139     &IID_IHTMLElement2,
 140     &IID_IHTMLElement3,
 141     &IID_IHTMLInputElement,
 142     &IID_IHTMLInputTextElement,
 143     &IID_IDispatchEx,
 144     &IID_IConnectionPointContainer,
 145     NULL
 146 };
 147
 148 static const IID * const select_iids[] = {
 149     &IID_IHTMLDOMNode,
 150     &IID_IHTMLDOMNode2,
 151     &IID_IHTMLElement,
 152     &IID_IHTMLElement2,
 153     &IID_IHTMLElement3,
 154     &IID_IHTMLSelectElement,
 155     &IID_IDispatchEx,
 156     &IID_IConnectionPointContainer,
 157     NULL
 158 };
 159
 160 static const IID * const textarea_iids[] = {
 161     &IID_IHTMLDOMNode,
 162     &IID_IHTMLDOMNode2,
 163     &IID_IHTMLElement,
 164     &IID_IHTMLElement2,
 165     &IID_IHTMLElement3,
 166     &IID_IHTMLTextAreaElement,
 167     &IID_IDispatchEx,
 168     &IID_IConnectionPointContainer,
 169     NULL
 170 };
 171
 172 static const IID * const option_iids[] = {
 173     &IID_IHTMLDOMNode,
 174     &IID_IHTMLDOMNode2,
 175     &IID_IHTMLElement,
 176     &IID_IHTMLElement2,
 177     &IID_IHTMLElement3,
 178     &IID_IHTMLOptionElement,
 179     &IID_IDispatchEx,
 180     &IID_IConnectionPointContainer,
 181     NULL
 182 };
 183
 184 static const IID * const table_iids[] = {
 185     &IID_IHTMLDOMNode,
 186     &IID_IHTMLDOMNode2,
 187     &IID_IHTMLElement,
 188     &IID_IHTMLElement2,
 189     &IID_IHTMLElement3,
 190     &IID_IHTMLTable,
 191     &IID_IDispatchEx,
 192     &IID_IConnectionPointContainer,
 193     NULL
 194 };
 195
 196 static const IID * const script_iids[] = {
 197     &IID_IHTMLDOMNode,
 198     &IID_IHTMLDOMNode2,
 199     &IID_IHTMLElement,
 200     &IID_IHTMLElement2,
 201     &IID_IHTMLElement3,
 202     &IID_IHTMLScriptElement,
 203     &IID_IDispatchEx,
 204     &IID_IConnectionPointContainer,
 205     NULL
 206 };
 207
 208 static const IID * const text_iids[] = {
 209     &IID_IHTMLDOMNode,
 210     &IID_IHTMLDOMNode2,
 211     &IID_IHTMLDOMTextNode,
 212     NULL
 213 };
 214
 215 static const IID * const location_iids[] = {
 216     &IID_IDispatch,
 217     &IID_IHTMLLocation,
 218     NULL
 219 };
 220
 221 static const IID * const window_iids[] = {
 222     &IID_IDispatch,
 223     &IID_IHTMLWindow2,
 224     &IID_IHTMLWindow3,
 225     &IID_IDispatchEx,
 226     NULL
 227 };
 228
 229 static const IID * const comment_iids[] = {
 230     &IID_IHTMLDOMNode,
 231     &IID_IHTMLDOMNode2,
 232     &IID_IHTMLElement,
 233     &IID_IHTMLElement2,
 234     &IID_IHTMLElement3,
 235     &IID_IHTMLCommentElement,
 236     &IID_IDispatchEx,
 237     &IID_IConnectionPointContainer,
 238     NULL
 239 };
 240
 241 static const IID * const img_iids[] = {
 242     &IID_IHTMLDOMNode,
 243     &IID_IHTMLDOMNode2,
 244     &IID_IHTMLElement,
 245     &IID_IHTMLElement2,
 246     &IID_IHTMLElement3,
 247     &IID_IDispatchEx,
 248     &IID_IHTMLImgElement,
 249     &IID_IConnectionPointContainer,
 250     NULL
 251 };
 252
 253 static const IID * const tr_iids[] = {
 254     &IID_IHTMLDOMNode,
 255     &IID_IHTMLDOMNode2,
 256     &IID_IHTMLElement,
 257     &IID_IHTMLElement2,
 258     &IID_IHTMLElement3,
 259     &IID_IDispatchEx,
 260     &IID_IHTMLTableRow,
 261     &IID_IConnectionPointContainer,
 262     NULL
 263 };
 264
 265 static const IID * const td_iids[] = {
 266     &IID_IHTMLDOMNode,
 267     &IID_IHTMLDOMNode2,
 268     &IID_IHTMLElement,
 269     &IID_IHTMLElement2,
 270     &IID_IHTMLElement3,
 271     &IID_IDispatchEx,
 272     &IID_IConnectionPointContainer,
 273     NULL
 274 };
 275
 276 static const IID * const iframe_iids[] = {
 277     &IID_IHTMLDOMNode,
 278     &IID_IHTMLDOMNode2,
 279     &IID_IHTMLElement,
 280     &IID_IHTMLElement2,
 281     &IID_IHTMLElement3,
 282     &IID_IHTMLFrameBase2,
 283     &IID_IDispatchEx,
 284     &IID_IConnectionPointContainer,
 285     NULL
 286 };
 287
 288 static const IID * const generic_iids[] = {
 289     &IID_IHTMLDOMNode,
 290     &IID_IHTMLDOMNode2,
 291     &IID_IHTMLElement,
 292     &IID_IHTMLElement2,
 293     &IID_IHTMLElement3,
 294     &IID_IHTMLGenericElement,
 295     &IID_IDispatchEx,
 296     &IID_IConnectionPointContainer,
 297     NULL
 298 };
 299
 300 static const IID * const style_iids[] = {
 301     &IID_IUnknown,
 302     &IID_IDispatch,
 303     &IID_IDispatchEx,
 304     &IID_IHTMLStyle,
 305     &IID_IHTMLStyle2,
 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_w(LPCWSTR str)
 351 {
 352     static char buf[512];
 353     if(!str)
 354         return "(null)";
 355     WideCharToMultiByte(CP_ACP, 0, str, -1, buf, sizeof(buf), NULL, NULL);
 356     return buf;
 357 }
 358
 359 static const char *dbgstr_guid(REFIID riid)
 360 {
 361     static char buf[50];
 362
 363     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
 364             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
 365             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
 366             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
 367
 368     return buf;
 369 }
 370
 371 static int strcmp_wa(LPCWSTR strw, const char *stra)
 372 {
 373     WCHAR buf[512];
 374     MultiByteToWideChar(CP_ACP, 0, stra, -1, buf, sizeof(buf)/sizeof(WCHAR));
 375     return lstrcmpW(strw, buf);
 376 }
 377
 378 static BSTR a2bstr(const char *str)
 379 {
 380     BSTR ret;
 381     int len;
 382
 383     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 384     ret = SysAllocStringLen(NULL, len);
 385     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 386
 387     return ret;
 388 }
 389
 390 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
 391 {
 392     IUnknown *unk1, *unk2;
 393
 394     if(iface1 == iface2)
 395         return TRUE;
 396
 397     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
 398     IUnknown_Release(unk1);
 399     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk2);
 400     IUnknown_Release(unk2);
 401
 402     return unk1 == unk2;
 403 }
 404
 405 static IHTMLDocument2 *create_document(void)
 406 {
 407     IHTMLDocument2 *doc;
 408     HRESULT hres;
 409
 410     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 411             &IID_IHTMLDocument2, (void**)&doc);
 412     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 413
 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_disp(u,id) _test_disp(__LINE__,u,id)
 433 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid)
 434 {
 435     IDispatchEx *dispex;
 436     ITypeInfo *typeinfo;
 437     UINT ticnt;
 438     HRESULT hres;
 439
 440     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 441     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
 442     if(FAILED(hres))
 443         return;
 444
 445     ticnt = 0xdeadbeef;
 446     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
 447     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
 448     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
 449
 450     hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
 451     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
 452
 453     if(SUCCEEDED(hres)) {
 454         TYPEATTR *type_attr;
 455
 456         hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 457         ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 458         ok_(__FILE__,line) (IsEqualGUID(&type_attr->guid, diid), "unexpected guid %s\n", dbgstr_guid(&type_attr->guid));
 459
 460         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 461         ITypeInfo_Release(typeinfo);
 462     }
 463
 464     IDispatchEx_Release(dispex);
 465 }
 466
 467 #define get_elem_iface(u) _get_elem_iface(__LINE__,u)
 468 static IHTMLElement *_get_elem_iface(unsigned line, IUnknown *unk)
 469 {
 470     IHTMLElement *elem;
 471     HRESULT hres;
 472
 473     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement, (void**)&elem);
 474     ok_(__FILE__,line) (hres == S_OK, "Coule not get IHTMLElement: %08x\n", hres);
 475     return elem;
 476 }
 477
 478 #define get_elem2_iface(u) _get_elem2_iface(__LINE__,u)
 479 static IHTMLElement2 *_get_elem2_iface(unsigned line, IUnknown *unk)
 480 {
 481     IHTMLElement2 *elem;
 482     HRESULT hres;
 483
 484     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement2, (void**)&elem);
 485     ok_(__FILE__,line) (hres == S_OK, "Coule not get IHTMLElement2: %08x\n", hres);
 486     return elem;
 487 }
 488
 489 #define get_elem3_iface(u) _get_elem3_iface(__LINE__,u)
 490 static IHTMLElement3 *_get_elem3_iface(unsigned line, IUnknown *unk)
 491 {
 492     IHTMLElement3 *elem;
 493     HRESULT hres;
 494
 495     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement3, (void**)&elem);
 496     ok_(__FILE__,line) (hres == S_OK, "Coule not get IHTMLElement3: %08x\n", hres);
 497     return elem;
 498 }
 499
 500 #define get_node_iface(u) _get_node_iface(__LINE__,u)
 501 static IHTMLDOMNode *_get_node_iface(unsigned line, IUnknown *unk)
 502 {
 503     IHTMLDOMNode *node;
 504     HRESULT hres;
 505
 506     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode, (void**)&node);
 507     ok_(__FILE__,line) (hres == S_OK, "Coule not get IHTMLDOMNode: %08x\n", hres);
 508     return node;
 509 }
 510
 511 #define get_img_iface(u) _get_img_iface(__LINE__,u)
 512 static IHTMLImgElement *_get_img_iface(unsigned line, IUnknown *unk)
 513 {
 514     IHTMLImgElement *img;
 515     HRESULT hres;
 516
 517     hres = IUnknown_QueryInterface(unk, &IID_IHTMLImgElement, (void**)&img);
 518     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLImgElement: %08x\n", hres);
 519     return img;
 520 }
 521
 522 #define test_node_name(u,n) _test_node_name(__LINE__,u,n)
 523 static void _test_node_name(unsigned line, IUnknown *unk, const char *exname)
 524 {
 525     IHTMLDOMNode *node = _get_node_iface(line, unk);
 526     BSTR name;
 527     HRESULT hres;
 528
 529     hres = IHTMLDOMNode_get_nodeName(node, &name);
 530     IHTMLDOMNode_Release(node);
 531     ok_(__FILE__, line) (hres == S_OK, "get_nodeName failed: %08x\n", hres);
 532     ok_(__FILE__, line) (!strcmp_wa(name, exname), "got name: %s, expected %s\n", dbgstr_w(name), exname);
 533
 534     SysFreeString(name);
 535 }
 536
 537 #define test_elem_tag(u,n) _test_elem_tag(__LINE__,u,n)
 538 static void _test_elem_tag(unsigned line, IUnknown *unk, const char *extag)
 539 {
 540     IHTMLElement *elem = _get_elem_iface(line, unk);
 541     BSTR tag;
 542     HRESULT hres;
 543
 544     hres = IHTMLElement_get_tagName(elem, &tag);
 545     IHTMLElement_Release(elem);
 546     ok_(__FILE__, line) (hres == S_OK, "get_tagName failed: %08x\n", hres);
 547     ok_(__FILE__, line) (!strcmp_wa(tag, extag), "got tag: %s, expected %s\n", dbgstr_w(tag), extag);
 548
 549     SysFreeString(tag);
 550 }
 551
 552 #define test_elem_type(ifc,t) _test_elem_type(__LINE__,ifc,t)
 553 static void _test_elem_type(unsigned line, IUnknown *unk, elem_type_t type)
 554 {
 555     _test_elem_tag(line, unk, elem_type_infos[type].tag);
 556     _test_ifaces(line, unk, elem_type_infos[type].iids);
 557
 558     if(elem_type_infos[type].dispiid)
 559         _test_disp(line, unk, elem_type_infos[type].dispiid);
 560 }
 561
 562 #define test_elem_attr(e,n,v) _test_elem_attr(__LINE__,e,n,v)
 563 static void _test_elem_attr(unsigned line, IHTMLElement *elem, LPCWSTR name, LPCWSTR exval)
 564 {
 565     VARIANT value;
 566     BSTR tmp;
 567     HRESULT hres;
 568
 569     VariantInit(&value);
 570
 571     tmp = SysAllocString(name);
 572     hres = IHTMLElement_getAttribute(elem, tmp, 0, &value);
 573     SysFreeString(tmp);
 574     ok_(__FILE__,line) (hres == S_OK, "getAttribute failed: %08x\n", hres);
 575
 576     if(exval) {
 577         ok_(__FILE__,line) (V_VT(&value) == VT_BSTR, "vt=%d\n", V_VT(&value));
 578         ok_(__FILE__,line) (!lstrcmpW(exval, V_BSTR(&value)), "unexpected value %s\n", dbgstr_w(V_BSTR(&value)));
 579     }else {
 580         ok_(__FILE__,line) (V_VT(&value) == VT_NULL, "vt=%d\n", V_VT(&value));
 581     }
 582
 583     VariantClear(&value);
 584 }
 585
 586 #define test_elem_offset(u) _test_elem_offset(__LINE__,u)
 587 static void _test_elem_offset(unsigned line, IUnknown *unk)
 588 {
 589     IHTMLElement *elem = _get_elem_iface(line, unk);
 590     long l;
 591     HRESULT hres;
 592
 593     hres = IHTMLElement_get_offsetTop(elem, &l);
 594     ok_(__FILE__,line) (hres == S_OK, "get_offsetTop failed: %08x\n", hres);
 595
 596     hres = IHTMLElement_get_offsetHeight(elem, &l);
 597     ok_(__FILE__,line) (hres == S_OK, "get_offsetHeight failed: %08x\n", hres);
 598
 599     hres = IHTMLElement_get_offsetWidth(elem, &l);
 600     ok_(__FILE__,line) (hres == S_OK, "get_offsetWidth failed: %08x\n", hres);
 601
 602     IHTMLElement_Release(elem);
 603 }
 604
 605 static void test_doc_elem(IHTMLDocument2 *doc)
 606 {
 607     IHTMLElement *elem;
 608     IHTMLDocument3 *doc3;
 609     HRESULT hres;
 610
 611     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
 612     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
 613
 614     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
 615     IHTMLDocument3_Release(doc3);
 616     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
 617
 618     test_node_name((IUnknown*)elem, "HTML");
 619     test_elem_tag((IUnknown*)elem, "HTML");
 620
 621     IHTMLElement_Release(elem);
 622 }
 623
 624 #define get_doc_elem(d) _get_doc_elem(__LINE__,d)
 625 static IHTMLElement *_get_doc_elem(unsigned line, IHTMLDocument2 *doc)
 626 {
 627     IHTMLElement *elem;
 628     IHTMLDocument3 *doc3;
 629     HRESULT hres;
 630
 631     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
 632     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 interface: %08x\n", hres);
 633     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
 634     ok_(__FILE__,line) (hres == S_OK, "get_documentElement failed: %08x\n", hres);
 635     IHTMLDocument3_Release(doc3);
 636
 637     return elem;
 638 }
 639
 640 #define test_option_text(o,t) _test_option_text(__LINE__,o,t)
 641 static void _test_option_text(unsigned line, IHTMLOptionElement *option, const char *text)
 642 {
 643     BSTR bstr;
 644     HRESULT hres;
 645
 646     hres = IHTMLOptionElement_get_text(option, &bstr);
 647     ok_(__FILE__,line) (hres == S_OK, "get_text failed: %08x\n", hres);
 648     ok_(__FILE__,line) (!strcmp_wa(bstr, text), "text=%s\n", dbgstr_w(bstr));
 649     SysFreeString(bstr);
 650 }
 651
 652 #define test_option_put_text(o,t) _test_option_put_text(__LINE__,o,t)
 653 static void _test_option_put_text(unsigned line, IHTMLOptionElement *option, const char *text)
 654 {
 655     BSTR bstr;
 656     HRESULT hres;
 657
 658     bstr = a2bstr(text);
 659     hres = IHTMLOptionElement_put_text(option, bstr);
 660     SysFreeString(bstr);
 661     ok(hres == S_OK, "put_text failed: %08x\n", hres);
 662
 663     _test_option_text(line, option, text);
 664 }
 665
 666 #define test_option_value(o,t) _test_option_value(__LINE__,o,t)
 667 static void _test_option_value(unsigned line, IHTMLOptionElement *option, const char *value)
 668 {
 669     BSTR bstr;
 670     HRESULT hres;
 671
 672     hres = IHTMLOptionElement_get_value(option, &bstr);
 673     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
 674     ok_(__FILE__,line) (!strcmp_wa(bstr, value), "value=%s\n", dbgstr_w(bstr));
 675     SysFreeString(bstr);
 676 }
 677
 678 #define test_option_put_value(o,t) _test_option_put_value(__LINE__,o,t)
 679 static void _test_option_put_value(unsigned line, IHTMLOptionElement *option, const char *value)
 680 {
 681     BSTR bstr;
 682     HRESULT hres;
 683
 684     bstr = a2bstr(value);
 685     hres = IHTMLOptionElement_put_value(option, bstr);
 686     SysFreeString(bstr);
 687     ok(hres == S_OK, "put_value failed: %08x\n", hres);
 688
 689     _test_option_value(line, option, value);
 690 }
 691
 692 #define create_option_elem(d,t,v) _create_option_elem(__LINE__,d,t,v)
 693 static IHTMLOptionElement *_create_option_elem(unsigned line, IHTMLDocument2 *doc,
 694         const char *txt, const char *val)
 695 {
 696     IHTMLOptionElementFactory *factory;
 697     IHTMLOptionElement *option;
 698     IHTMLWindow2 *window;
 699     VARIANT text, value, empty;
 700     HRESULT hres;
 701
 702     hres = IHTMLDocument2_get_parentWindow(doc, &window);
 703     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
 704
 705     hres = IHTMLWindow2_get_Option(window, &factory);
 706     IHTMLWindow2_Release(window);
 707     ok_(__FILE__,line) (hres == S_OK, "get_Option failed: %08x\n", hres);
 708
 709     V_VT(&text) = VT_BSTR;
 710     V_BSTR(&text) = a2bstr(txt);
 711     V_VT(&value) = VT_BSTR;
 712     V_BSTR(&value) = a2bstr(val);
 713     V_VT(&empty) = VT_EMPTY;
 714
 715     hres = IHTMLOptionElementFactory_create(factory, text, value, empty, empty, &option);
 716     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
 717
 718     IHTMLOptionElementFactory_Release(factory);
 719     VariantClear(&text);
 720     VariantClear(&value);
 721
 722     _test_option_text(line, option, txt);
 723     _test_option_value(line, option, val);
 724
 725     return option;
 726 }
 727
 728 #define test_select_length(s,l) _test_select_length(__LINE__,s,l)
 729 static void _test_select_length(unsigned line, IHTMLSelectElement *select, long length)
 730 {
 731     long len = 0xdeadbeef;
 732     HRESULT hres;
 733
 734     hres = IHTMLSelectElement_get_length(select, &len);
 735     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
 736     ok_(__FILE__,line) (len == length, "len=%ld, expected %ld\n", len, length);
 737 }
 738
 739 #define test_select_selidx(s,i) _test_select_selidx(__LINE__,s,i)
 740 static void _test_select_selidx(unsigned line, IHTMLSelectElement *select, long index)
 741 {
 742     long idx = 0xdeadbeef;
 743     HRESULT hres;
 744
 745     hres = IHTMLSelectElement_get_selectedIndex(select, &idx);
 746     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
 747     ok_(__FILE__,line) (idx == index, "idx=%ld, expected %ld\n", idx, index);
 748 }
 749
 750 #define test_select_put_selidx(s,i) _test_select_put_selidx(__LINE__,s,i)
 751 static void _test_select_put_selidx(unsigned line, IHTMLSelectElement *select, long index)
 752 {
 753     HRESULT hres;
 754
 755     hres = IHTMLSelectElement_put_selectedIndex(select, index);
 756     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
 757     _test_select_selidx(line, select, index);
 758 }
 759
 760 #define test_select_value(s,v) _test_select_value(__LINE__,s,v)
 761 static void _test_select_value(unsigned line, IHTMLSelectElement *select, const char *exval)
 762 {
 763     BSTR val;
 764     HRESULT hres;
 765
 766     hres = IHTMLSelectElement_get_value(select, &val);
 767     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
 768     if(exval)
 769         ok_(__FILE__,line) (!strcmp_wa(val, exval), "unexpected value %s\n", dbgstr_w(val));
 770     else
 771         ok_(__FILE__,line) (val == NULL, "val=%s, expected NULL\n", dbgstr_w(val));
 772 }
 773
 774 #define test_select_set_value(s,v) _test_select_set_value(__LINE__,s,v)
 775 static void _test_select_set_value(unsigned line, IHTMLSelectElement *select, const char *val)
 776 {
 777     BSTR bstr;
 778     HRESULT hres;
 779
 780     bstr = a2bstr(val);
 781     hres = IHTMLSelectElement_put_value(select, bstr);
 782     SysFreeString(bstr);
 783     ok_(__FILE__,line) (hres == S_OK, "put_value failed: %08x\n", hres);
 784 }
 785
 786 #define test_select_type(s,t) _test_select_type(__LINE__,s,t)
 787 static void _test_select_type(unsigned line, IHTMLSelectElement *select, const char *extype)
 788 {
 789     BSTR type;
 790     HRESULT hres;
 791
 792     hres = IHTMLSelectElement_get_type(select, &type);
 793     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
 794     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", dbgstr_w(type), extype);
 795 }
 796
 797 #define test_range_text(r,t) _test_range_text(__LINE__,r,t)
 798 static void _test_range_text(unsigned line, IHTMLTxtRange *range, const char *extext)
 799 {
 800     BSTR text;
 801     HRESULT hres;
 802
 803     hres = IHTMLTxtRange_get_text(range, &text);
 804     ok_(__FILE__, line) (hres == S_OK, "get_text failed: %08x\n", hres);
 805
 806     if(extext) {
 807         ok_(__FILE__, line) (text != NULL, "text == NULL\n");
 808         ok_(__FILE__, line) (!strcmp_wa(text, extext), "text=\"%s\", expected \"%s\"\n", dbgstr_w(text), extext);
 809     }else {
 810         ok_(__FILE__, line) (text == NULL, "text=\"%s\", expected NULL\n", dbgstr_w(text));
 811     }
 812
 813     SysFreeString(text);
 814
 815 }
 816
 817 #define test_range_collapse(r,b) _test_range_collapse(__LINE__,r,b)
 818 static void _test_range_collapse(unsigned line, IHTMLTxtRange *range, BOOL b)
 819 {
 820     HRESULT hres;
 821
 822     hres = IHTMLTxtRange_collapse(range, b);
 823     ok_(__FILE__, line) (hres == S_OK, "collapse failed: %08x\n", hres);
 824     _test_range_text(line, range, NULL);
 825 }
 826
 827 #define test_range_expand(r,u,b,t) _test_range_expand(__LINE__,r,u,b,t)
 828 static void _test_range_expand(unsigned line, IHTMLTxtRange *range, LPWSTR unit,
 829         VARIANT_BOOL exb, const char *extext)
 830 {
 831     VARIANT_BOOL b = 0xe0e0;
 832     HRESULT hres;
 833
 834     hres = IHTMLTxtRange_expand(range, unit, &b);
 835     ok_(__FILE__,line) (hres == S_OK, "expand failed: %08x\n", hres);
 836     ok_(__FILE__,line) (b == exb, "b=%x, expected %x\n", b, exb);
 837     _test_range_text(line, range, extext);
 838 }
 839
 840 #define test_range_move(r,u,c,e) _test_range_move(__LINE__,r,u,c,e)
 841 static void _test_range_move(unsigned line, IHTMLTxtRange *range, LPWSTR unit, long cnt, long excnt)
 842 {
 843     long c = 0xdeadbeef;
 844     HRESULT hres;
 845
 846     hres = IHTMLTxtRange_move(range, unit, cnt, &c);
 847     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 848     ok_(__FILE__,line) (c == excnt, "count=%ld, expected %ld\n", c, excnt);
 849     _test_range_text(line, range, NULL);
 850 }
 851
 852 #define test_range_movestart(r,u,c,e) _test_range_movestart(__LINE__,r,u,c,e)
 853 static void _test_range_movestart(unsigned line, IHTMLTxtRange *range,
 854         LPWSTR unit, long cnt, long excnt)
 855 {
 856     long c = 0xdeadbeef;
 857     HRESULT hres;
 858
 859     hres = IHTMLTxtRange_moveStart(range, unit, cnt, &c);
 860     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 861     ok_(__FILE__,line) (c == excnt, "count=%ld, expected %ld\n", c, excnt);
 862 }
 863
 864 #define test_range_moveend(r,u,c,e) _test_range_moveend(__LINE__,r,u,c,e)
 865 static void _test_range_moveend(unsigned line, IHTMLTxtRange *range, LPWSTR unit, long cnt, long excnt)
 866 {
 867     long c = 0xdeadbeef;
 868     HRESULT hres;
 869
 870     hres = IHTMLTxtRange_moveEnd(range, unit, cnt, &c);
 871     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
 872     ok_(__FILE__,line) (c == excnt, "count=%ld, expected %ld\n", c, excnt);
 873 }
 874
 875 #define test_range_put_text(r,t) _test_range_put_text(__LINE__,r,t)
 876 static void _test_range_put_text(unsigned line, IHTMLTxtRange *range, const char *text)
 877 {
 878     HRESULT hres;
 879     BSTR bstr = a2bstr(text);
 880
 881     hres = IHTMLTxtRange_put_text(range, bstr);
 882     ok_(__FILE__,line) (hres == S_OK, "put_text failed: %08x\n", hres);
 883     SysFreeString(bstr);
 884     _test_range_text(line, range, NULL);
 885 }
 886
 887 #define test_range_inrange(r1,r2,b) _test_range_inrange(__LINE__,r1,r2,b)
 888 static void _test_range_inrange(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
 889 {
 890     VARIANT_BOOL b;
 891     HRESULT hres;
 892
 893     b = 0xe0e0;
 894     hres = IHTMLTxtRange_inRange(range1, range2, &b);
 895     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
 896     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
 897 }
 898
 899 #define test_range_isequal(r1,r2,b) _test_range_isequal(__LINE__,r1,r2,b)
 900 static void _test_range_isequal(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
 901 {
 902     VARIANT_BOOL b;
 903     HRESULT hres;
 904
 905     b = 0xe0e0;
 906     hres = IHTMLTxtRange_isEqual(range1, range2, &b);
 907     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
 908     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
 909
 910     b = 0xe0e0;
 911     hres = IHTMLTxtRange_isEqual(range2, range1, &b);
 912     ok_(__FILE__,line) (hres == S_OK, "(2->1) isEqual failed: %08x\n", hres);
 913     ok_(__FILE__,line) (b == exb, "(2->1) b=%x, expected %x\n", b, exb);
 914
 915     if(exb) {
 916         test_range_inrange(range1, range2, VARIANT_TRUE);
 917         test_range_inrange(range2, range1, VARIANT_TRUE);
 918     }
 919 }
 920
 921 #define test_range_parent(r,t) _test_range_parent(__LINE__,r,t)
 922 static void _test_range_parent(unsigned line, IHTMLTxtRange *range, elem_type_t type)
 923 {
 924     IHTMLElement *elem;
 925     HRESULT hres;
 926
 927     hres = IHTMLTxtRange_parentElement(range, &elem);
 928     ok_(__FILE__,line) (hres == S_OK, "parentElement failed: %08x\n", hres);
 929
 930     _test_elem_type(line, (IUnknown*)elem, type);
 931
 932     IHTMLElement_Release(elem);
 933 }
 934
 935 #define test_elem_collection(c,t,l) _test_elem_collection(__LINE__,c,t,l)
 936 static void _test_elem_collection(unsigned line, IUnknown *unk,
 937         const elem_type_t *elem_types, long exlen)
 938 {
 939     IHTMLElementCollection *col;
 940     long len;
 941     DWORD i;
 942     VARIANT name, index;
 943     IDispatch *disp;
 944     HRESULT hres;
 945
 946     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElementCollection, (void**)&col);
 947     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
 948
 949     test_disp((IUnknown*)col, &DIID_DispHTMLElementCollection);
 950
 951     hres = IHTMLElementCollection_get_length(col, &len);
 952     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
 953     ok_(__FILE__,line) (len == exlen, "len=%ld, expected %ld\n", len, exlen);
 954
 955     if(len > exlen)
 956         len = exlen;
 957
 958     V_VT(&index) = VT_EMPTY;
 959     V_VT(&name) = VT_I4;
 960
 961     for(i=0; i<len; i++) {
 962         V_I4(&name) = i;
 963         disp = (void*)0xdeadbeef;
 964         hres = IHTMLElementCollection_item(col, name, index, &disp);
 965         ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
 966         ok_(__FILE__,line) (disp != NULL, "item returned NULL\n");
 967         if(FAILED(hres) || !disp)
 968             continue;
 969
 970         _test_elem_type(line, (IUnknown*)disp, elem_types[i]);
 971         IDispatch_Release(disp);
 972     }
 973
 974     V_I4(&name) = len;
 975     disp = (void*)0xdeadbeef;
 976     hres = IHTMLElementCollection_item(col, name, index, &disp);
 977     ok_(__FILE__,line) (hres == S_OK, "item failed: %08x\n", hres);
 978     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
 979
 980     V_I4(&name) = -1;
 981     disp = (void*)0xdeadbeef;
 982     hres = IHTMLElementCollection_item(col, name, index, &disp);
 983     ok_(__FILE__,line) (hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
 984     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
 985
 986     IHTMLElementCollection_Release(col);
 987 }
 988
 989 #define test_elem_getelembytag(u,t,l) _test_elem_getelembytag(__LINE__,u,t,l)
 990 static void _test_elem_getelembytag(unsigned line, IUnknown *unk, elem_type_t type, long exlen)
 991 {
 992     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
 993     IHTMLElementCollection *col = NULL;
 994     elem_type_t *types = NULL;
 995     BSTR tmp;
 996     int i;
 997     HRESULT hres;
 998
 999     tmp = a2bstr(elem_type_infos[type].tag);
1000     hres = IHTMLElement2_getElementsByTagName(elem, tmp, &col);
1001     SysFreeString(tmp);
1002     IHTMLElement2_Release(elem);
1003     ok_(__FILE__,line) (hres == S_OK, "getElementByTagName failed: %08x\n", hres);
1004     ok_(__FILE__,line) (col != NULL, "col == NULL\n");
1005
1006     if(exlen) {
1007         types = HeapAlloc(GetProcessHeap(), 0, exlen*sizeof(elem_type_t));
1008         for(i=0; i<exlen; i++)
1009             types[i] = type;
1010     }
1011
1012     _test_elem_collection(line, (IUnknown*)col, types, exlen);
1013
1014     HeapFree(GetProcessHeap(), 0, types);
1015 }
1016
1017 #define get_first_child(n) _get_first_child(__LINE__,n)
1018 static IHTMLDOMNode *_get_first_child(unsigned line, IUnknown *unk)
1019 {
1020     IHTMLDOMNode *node = _get_node_iface(line, unk);
1021     IHTMLDOMNode *child = NULL;
1022     HRESULT hres;
1023
1024     hres = IHTMLDOMNode_get_firstChild(node, &child);
1025     IHTMLDOMNode_Release(node);
1026     ok_(__FILE__,line) (hres == S_OK, "get_firstChild failed: %08x\n", hres);
1027
1028     return child;
1029 }
1030
1031 #define test_node_has_child(u,b) _test_node_has_child(__LINE__,u,b)
1032 static void _test_node_has_child(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
1033 {
1034     IHTMLDOMNode *node = _get_node_iface(line, unk);
1035     VARIANT_BOOL b = 0xdead;
1036     HRESULT hres;
1037
1038     hres = IHTMLDOMNode_hasChildNodes(node, &b);
1039     ok_(__FILE__,line) (hres == S_OK, "hasChildNodes failed: %08x\n", hres);
1040     ok_(__FILE__,line) (b == exb, "hasChildNodes=%x, expected %x\n", b, exb);
1041
1042     IHTMLDOMNode_Release(node);
1043 }
1044
1045 #define test_node_get_parent(u) _test_node_get_parent(__LINE__,u)
1046 static IHTMLDOMNode *_test_node_get_parent(unsigned line, IUnknown *unk)
1047 {
1048     IHTMLDOMNode *node = _get_node_iface(line, unk);
1049     IHTMLDOMNode *parent;
1050     HRESULT hres;
1051
1052     hres = IHTMLDOMNode_get_parentNode(node, &parent);
1053     IHTMLDOMNode_Release(node);
1054     ok_(__FILE__,line) (hres == S_OK, "get_parentNode failed: %08x\n", hres);
1055
1056     return parent;
1057 }
1058
1059 #define get_node_type(n) _get_node_type(__LINE__,n)
1060 static long _get_node_type(unsigned line, IUnknown *unk)
1061 {
1062     IHTMLDOMNode *node = _get_node_iface(line, unk);
1063     long type = -1;
1064     HRESULT hres;
1065
1066     hres = IHTMLDOMNode_get_nodeType(node, &type);
1067     ok(hres == S_OK, "get_nodeType failed: %08x\n", hres);
1068
1069     IHTMLDOMNode_Release(node);
1070
1071     return type;
1072 }
1073
1074 #define test_elem_get_parent(u) _test_elem_get_parent(__LINE__,u)
1075 static IHTMLElement *_test_elem_get_parent(unsigned line, IUnknown *unk)
1076 {
1077     IHTMLElement *elem = _get_elem_iface(line, unk);
1078     IHTMLElement *parent;
1079     HRESULT hres;
1080
1081     hres = IHTMLElement_get_parentElement(elem, &parent);
1082     IHTMLElement_Release(elem);
1083     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1084
1085     return parent;
1086 }
1087
1088 #define test_elem3_get_disabled(i,b) _test_elem3_get_disabled(__LINE__,i,b)
1089 static void _test_elem3_get_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
1090 {
1091     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
1092     VARIANT_BOOL disabled = 100;
1093     HRESULT hres;
1094
1095     hres = IHTMLElement3_get_disabled(elem3, &disabled);
1096     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1097     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
1098     IHTMLElement3_Release(elem3);
1099 }
1100
1101 #define test_elem3_set_disabled(i,b) _test_elem3_set_disabled(__LINE__,i,b)
1102 static void _test_elem3_set_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL b)
1103 {
1104     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
1105     HRESULT hres;
1106
1107     hres = IHTMLElement3_put_disabled(elem3, b);
1108     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1109
1110     IHTMLElement3_Release(elem3);
1111     _test_elem3_get_disabled(line, unk, b);
1112 }
1113
1114 #define test_select_get_disabled(i,b) _test_select_get_disabled(__LINE__,i,b)
1115 static void _test_select_get_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL exb)
1116 {
1117     VARIANT_BOOL disabled = 100;
1118     HRESULT hres;
1119
1120     hres = IHTMLSelectElement_get_disabled(select, &disabled);
1121     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1122     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
1123
1124     _test_elem3_get_disabled(line, (IUnknown*)select, exb);
1125 }
1126
1127 #define test_select_set_disabled(i,b) _test_select_set_disabled(__LINE__,i,b)
1128 static void _test_select_set_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL b)
1129 {
1130     HRESULT hres;
1131
1132     hres = IHTMLSelectElement_put_disabled(select, b);
1133     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1134
1135     _test_select_get_disabled(line, select, b);
1136 }
1137
1138 #define elem_get_scroll_height(u) _elem_get_scroll_height(__LINE__,u)
1139 static long _elem_get_scroll_height(unsigned line, IUnknown *unk)
1140 {
1141     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1142     IHTMLTextContainer *txtcont;
1143     long l = -1, l2 = -1;
1144     HRESULT hres;
1145
1146     hres = IHTMLElement2_get_scrollHeight(elem, &l);
1147     ok_(__FILE__,line) (hres == S_OK, "get_scrollHeight failed: %08x\n", hres);
1148     IHTMLElement2_Release(elem);
1149
1150     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1151     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1152
1153     hres = IHTMLTextContainer_get_scrollHeight(txtcont, &l2);
1154     IHTMLTextContainer_Release(txtcont);
1155     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollHeight failed: %ld\n", l2);
1156     ok_(__FILE__,line) (l == l2, "unexpected height %ld, expected %ld\n", l2, l);
1157
1158     return l;
1159 }
1160
1161 #define elem_get_scroll_width(u) _elem_get_scroll_width(__LINE__,u)
1162 static long _elem_get_scroll_width(unsigned line, IUnknown *unk)
1163 {
1164     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1165     IHTMLTextContainer *txtcont;
1166     long l = -1, l2 = -1;
1167     HRESULT hres;
1168
1169     hres = IHTMLElement2_get_scrollWidth(elem, &l);
1170     ok_(__FILE__,line) (hres == S_OK, "get_scrollWidth failed: %08x\n", hres);
1171     IHTMLElement2_Release(elem);
1172
1173     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1174     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1175
1176     hres = IHTMLTextContainer_get_scrollWidth(txtcont, &l2);
1177     IHTMLTextContainer_Release(txtcont);
1178     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollWidth failed: %ld\n", l2);
1179     ok_(__FILE__,line) (l == l2, "unexpected width %ld, expected %ld\n", l2, l);
1180
1181     return l;
1182 }
1183
1184 #define elem_get_scroll_top(u) _elem_get_scroll_top(__LINE__,u)
1185 static long _elem_get_scroll_top(unsigned line, IUnknown *unk)
1186 {
1187     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1188     IHTMLTextContainer *txtcont;
1189     long l = -1, l2 = -1;
1190     HRESULT hres;
1191
1192     hres = IHTMLElement2_get_scrollTop(elem, &l);
1193     ok_(__FILE__,line) (hres == S_OK, "get_scrollTop failed: %08x\n", hres);
1194     IHTMLElement2_Release(elem);
1195
1196     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1197     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1198
1199     hres = IHTMLTextContainer_get_scrollTop(txtcont, &l2);
1200     IHTMLTextContainer_Release(txtcont);
1201     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollTop failed: %ld\n", l2);
1202     ok_(__FILE__,line) (l == l2, "unexpected top %ld, expected %ld\n", l2, l);
1203
1204     return l;
1205 }
1206
1207 #define elem_get_scroll_left(u) _elem_get_scroll_left(__LINE__,u)
1208 static void _elem_get_scroll_left(unsigned line, IUnknown *unk)
1209 {
1210     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1211     IHTMLTextContainer *txtcont;
1212     long l = -1, l2 = -1;
1213     HRESULT hres;
1214
1215     hres = IHTMLElement2_get_scrollLeft(elem, NULL);
1216     ok(hres == E_INVALIDARG, "expect E_INVALIDARG got 0x%08x\n", hres);
1217
1218     hres = IHTMLElement2_get_scrollLeft(elem, &l);
1219     ok(hres == S_OK, "get_scrollTop failed: %08x\n", hres);
1220     IHTMLElement2_Release(elem);
1221
1222     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
1223     ok(hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
1224
1225     hres = IHTMLTextContainer_get_scrollLeft(txtcont, &l2);
1226     IHTMLTextContainer_Release(txtcont);
1227     ok(hres == S_OK, "IHTMLTextContainer::get_scrollLeft failed: %ld\n", l2);
1228     ok(l == l2, "unexpected left %ld, expected %ld\n", l2, l);
1229 }
1230
1231 #define test_img_set_src(u,s) _test_img_set_src(__LINE__,u,s)
1232 static void _test_img_set_src(unsigned line, IUnknown *unk, const char *src)
1233 {
1234     IHTMLImgElement *img = _get_img_iface(line, unk);
1235     BSTR tmp;
1236     HRESULT hres;
1237
1238     tmp = a2bstr(src);
1239     hres = IHTMLImgElement_put_src(img, tmp);
1240     IHTMLImgElement_Release(img);
1241     SysFreeString(tmp);
1242     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
1243 }
1244
1245 #define test_img_alt(u,a) _test_img_alt(__LINE__,u,a)
1246 static void _test_img_alt(unsigned line, IUnknown *unk, const char *exalt)
1247 {
1248     IHTMLImgElement *img = _get_img_iface(line, unk);
1249     BSTR alt;
1250     HRESULT hres;
1251
1252     hres = IHTMLImgElement_get_alt(img, &alt);
1253     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
1254     if(exalt)
1255         ok_(__FILE__,line) (!strcmp_wa(alt, exalt), "inexopected alt %s\n", dbgstr_w(alt));
1256     else
1257         ok_(__FILE__,line) (!alt, "alt != NULL\n");
1258     SysFreeString(alt);
1259 }
1260
1261 #define test_img_set_alt(u,a) _test_img_set_alt(__LINE__,u,a)
1262 static void _test_img_set_alt(unsigned line, IUnknown *unk, const char *alt)
1263 {
1264     IHTMLImgElement *img = _get_img_iface(line, unk);
1265     BSTR tmp;
1266     HRESULT hres;
1267
1268     tmp = a2bstr(alt);
1269     hres = IHTMLImgElement_put_alt(img, tmp);
1270     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
1271     SysFreeString(tmp);
1272
1273     _test_img_alt(line, unk, alt);
1274 }
1275
1276 #define test_input_get_disabled(i,b) _test_input_get_disabled(__LINE__,i,b)
1277 static void _test_input_get_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
1278 {
1279     VARIANT_BOOL disabled = 100;
1280     HRESULT hres;
1281
1282     hres = IHTMLInputElement_get_disabled(input, &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
1286     _test_elem3_get_disabled(line, (IUnknown*)input, exb);
1287 }
1288
1289 #define test_input_set_disabled(i,b) _test_input_set_disabled(__LINE__,i,b)
1290 static void _test_input_set_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
1291 {
1292     HRESULT hres;
1293
1294     hres = IHTMLInputElement_put_disabled(input, b);
1295     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
1296
1297     _test_input_get_disabled(line, input, b);
1298 }
1299
1300 #define test_input_value(o,t) _test_input_value(__LINE__,o,t)
1301 static void _test_input_value(unsigned line, IUnknown *unk, const char *exval)
1302 {
1303     IHTMLInputElement *input;
1304     BSTR bstr;
1305     HRESULT hres;
1306
1307     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
1308     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
1309     if(FAILED(hres))
1310         return;
1311
1312     hres = IHTMLInputElement_get_value(input, &bstr);
1313     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1314     if(exval)
1315         ok_(__FILE__,line) (!strcmp_wa(bstr, exval), "value=%s\n", dbgstr_w(bstr));
1316     else
1317         ok_(__FILE__,line) (!exval, "exval != NULL\n");
1318     SysFreeString(bstr);
1319     IHTMLInputElement_Release(input);
1320 }
1321
1322 #define test_input_put_value(o,v) _test_input_put_value(__LINE__,o,v)
1323 static void _test_input_put_value(unsigned line, IUnknown *unk, const char *val)
1324 {
1325     IHTMLInputElement *input;
1326     BSTR bstr;
1327     HRESULT hres;
1328
1329     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
1330     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
1331     if(FAILED(hres))
1332         return;
1333
1334     bstr = a2bstr(val);
1335     hres = IHTMLInputElement_get_value(input, &bstr);
1336     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1337     SysFreeString(bstr);
1338     IHTMLInputElement_Release(input);
1339 }
1340
1341 #define get_child_nodes(u) _get_child_nodes(__LINE__,u)
1342 static IHTMLDOMChildrenCollection *_get_child_nodes(unsigned line, IUnknown *unk)
1343 {
1344     IHTMLDOMNode *node = _get_node_iface(line, unk);
1345     IHTMLDOMChildrenCollection *col = NULL;
1346     IDispatch *disp;
1347     HRESULT hres;
1348
1349     hres = IHTMLDOMNode_get_childNodes(node, &disp);
1350     IHTMLDOMNode_Release(node);
1351     ok_(__FILE__,line) (hres == S_OK, "get_childNodes failed: %08x\n", hres);
1352     if(FAILED(hres))
1353         return NULL;
1354
1355     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDOMChildrenCollection, (void**)&col);
1356     IDispatch_Release(disp);
1357     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMChildrenCollection: %08x\n", hres);
1358
1359     return col;
1360 }
1361
1362 #define test_elem_class(u,c) _test_elem_class(__LINE__,u,c)
1363 static void _test_elem_class(unsigned line, IUnknown *unk, const char *exclass)
1364 {
1365     IHTMLElement *elem = _get_elem_iface(line, unk);
1366     BSTR class = (void*)0xdeadbeef;
1367     HRESULT hres;
1368
1369     hres = IHTMLElement_get_className(elem, &class);
1370     IHTMLElement_Release(elem);
1371     ok_(__FILE__,line) (hres == S_OK, "get_className failed: %08x\n", hres);
1372     if(exclass)
1373         ok_(__FILE__,line) (!strcmp_wa(class, exclass), "unexpected className %s\n", dbgstr_w(class));
1374     else
1375         ok_(__FILE__,line) (!class, "class != NULL\n");
1376     SysFreeString(class);
1377 }
1378
1379 #define test_elem_tabindex(u,i) _test_elem_tabindex(__LINE__,u,i)
1380 static void _test_elem_tabindex(unsigned line, IUnknown *unk, short exindex)
1381 {
1382     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
1383     short index = -3;
1384     HRESULT hres;
1385
1386     hres = IHTMLElement2_get_tabIndex(elem2, &index);
1387     IHTMLElement2_Release(elem2);
1388     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
1389     ok_(__FILE__,line) (index == exindex, "unexpected index %d\n", index);
1390 }
1391
1392 #define test_elem_set_tabindex(u,i) _test_elem_set_tabindex(__LINE__,u,i)
1393 static void _test_elem_set_tabindex(unsigned line, IUnknown *unk, short index)
1394 {
1395     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
1396     HRESULT hres;
1397
1398     hres = IHTMLElement2_put_tabIndex(elem2, index);
1399     IHTMLElement2_Release(elem2);
1400     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
1401
1402     _test_elem_tabindex(line, unk, index);
1403 }
1404
1405 #define test_elem_set_class(u,c) _test_elem_set_class(__LINE__,u,c)
1406 static void _test_elem_set_class(unsigned line, IUnknown *unk, const char *class)
1407 {
1408     IHTMLElement *elem = _get_elem_iface(line, unk);
1409     BSTR tmp;
1410     HRESULT hres;
1411
1412     tmp = class ? a2bstr(class) : NULL;
1413     hres = IHTMLElement_put_className(elem, tmp);
1414     IHTMLElement_Release(elem);
1415     ok_(__FILE__,line) (hres == S_OK, "put_className failed: %08x\n", hres);
1416     SysFreeString(tmp);
1417
1418     _test_elem_class(line, unk, class);
1419 }
1420
1421 #define get_child_item(c,i) _get_child_item(__LINE__,c,i)
1422 static IHTMLDOMNode *_get_child_item(unsigned line, IHTMLDOMChildrenCollection *col, long idx)
1423 {
1424     IHTMLDOMNode *node = NULL;
1425     IDispatch *disp;
1426     HRESULT hres;
1427
1428     hres = IHTMLDOMChildrenCollection_item(col, idx, &disp);
1429     ok(hres == S_OK, "item failed: %08x\n", hres);
1430
1431     node = _get_node_iface(line, (IUnknown*)disp);
1432     IDispatch_Release(disp);
1433
1434     return node;
1435 }
1436
1437 #define test_elem_id(e,i) _test_elem_id(__LINE__,e,i)
1438 static void _test_elem_id(unsigned line, IUnknown *unk, const char *exid)
1439 {
1440     IHTMLElement *elem = _get_elem_iface(line, unk);
1441     BSTR id = (void*)0xdeadbeef;
1442     HRESULT hres;
1443
1444     hres = IHTMLElement_get_id(elem, &id);
1445     IHTMLElement_Release(elem);
1446     ok_(__FILE__,line) (hres == S_OK, "get_id failed: %08x\n", hres);
1447
1448     if(exid)
1449         ok_(__FILE__,line) (!strcmp_wa(id, exid), "unexpected id %s\n", dbgstr_w(id));
1450     else
1451         ok_(__FILE__,line) (!id, "id=%s\n", dbgstr_w(id));
1452
1453     SysFreeString(id);
1454 }
1455
1456 #define test_elem_put_id(u,i) _test_elem_put_id(__LINE__,u,i)
1457 static void _test_elem_put_id(unsigned line, IUnknown *unk, const char *new_id)
1458 {
1459     IHTMLElement *elem = _get_elem_iface(line, unk);
1460     BSTR tmp = a2bstr(new_id);
1461     HRESULT hres;
1462
1463     hres = IHTMLElement_put_id(elem, tmp);
1464     IHTMLElement_Release(elem);
1465     SysFreeString(tmp);
1466     ok_(__FILE__,line) (hres == S_OK, "put_id failed: %08x\n", hres);
1467
1468     _test_elem_id(line, unk, new_id);
1469 }
1470
1471 #define test_elem_title(u,t) _test_elem_title(__LINE__,u,t)
1472 static void _test_elem_title(unsigned line, IUnknown *unk, const char *extitle)
1473 {
1474     IHTMLElement *elem = _get_elem_iface(line, unk);
1475     BSTR title;
1476     HRESULT hres;
1477
1478     hres = IHTMLElement_get_title(elem, &title);
1479     IHTMLElement_Release(elem);
1480     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1481     if(extitle)
1482         ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", dbgstr_w(title));
1483     else
1484         ok_(__FILE__,line) (!title, "title=%s, expected NULL\n", dbgstr_w(title));
1485
1486     SysFreeString(title);
1487 }
1488
1489 #define test_elem_set_title(u,t) _test_elem_set_title(__LINE__,u,t)
1490 static void _test_elem_set_title(unsigned line, IUnknown *unk, const char *title)
1491 {
1492     IHTMLElement *elem = _get_elem_iface(line, unk);
1493     BSTR tmp;
1494     HRESULT hres;
1495
1496     tmp = a2bstr(title);
1497     hres = IHTMLElement_put_title(elem, tmp);
1498     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1499
1500     IHTMLElement_Release(elem);
1501     SysFreeString(tmp);
1502 }
1503
1504 #define test_node_get_value_str(u,e) _test_node_get_value_str(__LINE__,u,e)
1505 static void _test_node_get_value_str(unsigned line, IUnknown *unk, const char *exval)
1506 {
1507     IHTMLDOMNode *node = _get_node_iface(line, unk);
1508     VARIANT var;
1509     HRESULT hres;
1510
1511     hres = IHTMLDOMNode_get_nodeValue(node, &var);
1512     IHTMLDOMNode_Release(node);
1513     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
1514
1515     if(exval) {
1516         ok_(__FILE__,line) (V_VT(&var) == VT_BSTR, "vt=%d\n", V_VT(&var));
1517         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&var), exval), "unexpected value %s\n", dbgstr_w(V_BSTR(&var)));
1518     }else {
1519         ok_(__FILE__,line) (V_VT(&var) == VT_NULL, "vt=%d, expected VT_NULL\n", V_VT(&var));
1520     }
1521
1522     VariantClear(&var);
1523 }
1524
1525 #define test_node_put_value_str(u,v) _test_node_put_value_str(__LINE__,u,v)
1526 static void _test_node_put_value_str(unsigned line, IUnknown *unk, const char *val)
1527 {
1528     IHTMLDOMNode *node = _get_node_iface(line, unk);
1529     VARIANT var;
1530     HRESULT hres;
1531
1532     V_VT(&var) = VT_BSTR;
1533     V_BSTR(&var) = a2bstr(val);
1534
1535     hres = IHTMLDOMNode_put_nodeValue(node, var);
1536     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
1537     IHTMLDOMNode_Release(node);
1538     VariantClear(&var);
1539 }
1540
1541 #define test_elem_client_size(u) _test_elem_client_size(__LINE__,u)
1542 static void _test_elem_client_size(unsigned line, IUnknown *unk)
1543 {
1544     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1545     long l;
1546     HRESULT hres;
1547
1548     hres = IHTMLElement2_get_clientWidth(elem, &l);
1549     ok_(__FILE__,line) (hres == S_OK, "get_clientWidth failed: %08x\n", hres);
1550     hres = IHTMLElement2_get_clientHeight(elem, &l);
1551     ok_(__FILE__,line) (hres == S_OK, "get_clientHeight failed: %08x\n", hres);
1552
1553     IHTMLElement2_Release(elem);
1554 }
1555
1556 #define test_create_elem(d,t) _test_create_elem(__LINE__,d,t)
1557 static IHTMLElement *_test_create_elem(unsigned line, IHTMLDocument2 *doc, const char *tag)
1558 {
1559     IHTMLElement *elem = NULL;
1560     BSTR tmp;
1561     HRESULT hres;
1562
1563     tmp = a2bstr(tag);
1564     hres = IHTMLDocument2_createElement(doc, tmp, &elem);
1565     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
1566     ok_(__FILE__,line) (elem != NULL, "elem == NULL\n");
1567
1568     return elem;
1569 }
1570
1571 #define test_create_text(d,t) _test_create_text(__LINE__,d,t)
1572 static IHTMLDOMNode *_test_create_text(unsigned line, IHTMLDocument2 *doc, const char *text)
1573 {
1574     IHTMLDocument3 *doc3;
1575     IHTMLDOMNode *node = NULL;
1576     BSTR tmp;
1577     HRESULT hres;
1578
1579     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1580     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3: %08x\n", hres);
1581
1582     tmp = a2bstr(text);
1583     hres = IHTMLDocument3_createTextNode(doc3, tmp, &node);
1584     IHTMLDocument3_Release(doc3);
1585     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
1586     ok_(__FILE__,line) (node != NULL, "node == NULL\n");
1587
1588     return node;
1589 }
1590
1591 #define test_node_append_child(n,c) _test_node_append_child(__LINE__,n,c)
1592 static IHTMLDOMNode *_test_node_append_child(unsigned line, IUnknown *node_unk, IUnknown *child_unk)
1593 {
1594     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
1595     IHTMLDOMNode *child = _get_node_iface(line, child_unk);
1596     IHTMLDOMNode *new_child = NULL;
1597     HRESULT hres;
1598
1599     hres = IHTMLDOMNode_appendChild(node, child, &new_child);
1600     ok_(__FILE__,line) (hres == S_OK, "appendChild failed: %08x\n", hres);
1601     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
1602     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
1603
1604     IHTMLDOMNode_Release(node);
1605     IHTMLDOMNode_Release(child);
1606
1607     return new_child;
1608 }
1609
1610 #define test_node_remove_child(n,c) _test_node_remove_child(__LINE__,n,c)
1611 static void _test_node_remove_child(unsigned line, IUnknown *unk, IHTMLDOMNode *child)
1612 {
1613     IHTMLDOMNode *node = _get_node_iface(line, unk);
1614     IHTMLDOMNode *new_node = NULL;
1615     HRESULT hres;
1616
1617     hres = IHTMLDOMNode_removeChild(node, child, &new_node);
1618     ok_(__FILE__,line) (hres == S_OK, "appendChild failed: %08x\n", hres);
1619     ok_(__FILE__,line) (new_node != NULL, "new_node == NULL\n");
1620     /* TODO ok_(__FILE__,line) (new_node != child, "new_node == child\n"); */
1621
1622     IHTMLDOMNode_Release(node);
1623     IHTMLDOMNode_Release(new_node);
1624 }
1625
1626 #define test_doc_title(d,t) _test_doc_title(__LINE__,d,t)
1627 static void _test_doc_title(unsigned line, IHTMLDocument2 *doc, const char *extitle)
1628 {
1629     BSTR title = NULL;
1630     HRESULT hres;
1631
1632     hres = IHTMLDocument2_get_title(doc, &title);
1633     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1634     ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", dbgstr_w(title));
1635     SysFreeString(title);
1636 }
1637
1638 #define test_doc_set_title(d,t) _test_doc_set_title(__LINE__,d,t)
1639 static void _test_doc_set_title(unsigned line, IHTMLDocument2 *doc, const char *title)
1640 {
1641     BSTR tmp;
1642     HRESULT hres;
1643
1644     tmp = a2bstr(title);
1645     hres = IHTMLDocument2_put_title(doc, tmp);
1646     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
1647     SysFreeString(tmp);
1648 }
1649
1650 static void test_elem_col_item(IHTMLElementCollection *col, LPCWSTR n,
1651         const elem_type_t *elem_types, long len)
1652 {
1653     IDispatch *disp;
1654     VARIANT name, index;
1655     DWORD i;
1656     HRESULT hres;
1657
1658     V_VT(&index) = VT_EMPTY;
1659     V_VT(&name) = VT_BSTR;
1660     V_BSTR(&name) = SysAllocString(n);
1661
1662     hres = IHTMLElementCollection_item(col, name, index, &disp);
1663     ok(hres == S_OK, "item failed: %08x\n", hres);
1664
1665     test_elem_collection((IUnknown*)disp, elem_types, len);
1666     IDispatch_Release(disp);
1667     ok(hres == S_OK, "Could not get IHTMLElementCollection interface: %08x\n", hres);
1668     if(hres != S_OK)
1669         goto cleanup;
1670
1671     V_VT(&index) = VT_I4;
1672
1673     for(i=0; i<len; i++) {
1674         V_I4(&index) = i;
1675         disp = (void*)0xdeadbeef;
1676         hres = IHTMLElementCollection_item(col, name, index, &disp);
1677         ok(hres == S_OK, "item failed: %08x\n", hres);
1678         ok(disp != NULL, "disp == NULL\n");
1679         if(FAILED(hres) || !disp)
1680             continue;
1681
1682         test_elem_type((IUnknown*)disp, elem_types[i]);
1683
1684         IDispatch_Release(disp);
1685     }
1686
1687     V_I4(&index) = len;
1688     disp = (void*)0xdeadbeef;
1689     hres = IHTMLElementCollection_item(col, name, index, &disp);
1690     ok(hres == S_OK, "item failed: %08x\n", hres);
1691     ok(disp == NULL, "disp != NULL\n");
1692
1693     V_I4(&index) = -1;
1694     disp = (void*)0xdeadbeef;
1695     hres = IHTMLElementCollection_item(col, name, index, &disp);
1696     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
1697     ok(disp == NULL, "disp != NULL\n");
1698
1699 cleanup:
1700     SysFreeString(V_BSTR(&name));
1701 }
1702
1703 static IHTMLElement *get_elem_by_id(IHTMLDocument2 *doc, LPCWSTR id, BOOL expect_success)
1704 {
1705     IHTMLElementCollection *col;
1706     IHTMLElement *elem;
1707     IDispatch *disp = (void*)0xdeadbeef;
1708     VARIANT name, index;
1709     HRESULT hres;
1710
1711     hres = IHTMLDocument2_get_all(doc, &col);
1712     ok(hres == S_OK, "get_all failed: %08x\n", hres);
1713     ok(col != NULL, "col == NULL\n");
1714     if(FAILED(hres) || !col)
1715         return NULL;
1716
1717     V_VT(&index) = VT_EMPTY;
1718     V_VT(&name) = VT_BSTR;
1719     V_BSTR(&name) = SysAllocString(id);
1720
1721     hres = IHTMLElementCollection_item(col, name, index, &disp);
1722     IHTMLElementCollection_Release(col);
1723     SysFreeString(V_BSTR(&name));
1724     ok(hres == S_OK, "item failed: %08x\n", hres);
1725     if(!expect_success) {
1726         ok(disp == NULL, "disp != NULL\n");
1727         return NULL;
1728     }
1729
1730     ok(disp != NULL, "disp == NULL\n");
1731     if(!disp)
1732         return NULL;
1733
1734     elem = get_elem_iface((IUnknown*)disp);
1735     IDispatch_Release(disp);
1736
1737     return elem;
1738 }
1739
1740 static IHTMLElement *get_doc_elem_by_id(IHTMLDocument2 *doc, LPCWSTR id)
1741 {
1742     IHTMLDocument3 *doc3;
1743     IHTMLElement *elem;
1744     BSTR tmp;
1745     HRESULT hres;
1746
1747     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1748     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
1749
1750     tmp = SysAllocString(id);
1751     hres = IHTMLDocument3_getElementById(doc3, tmp, &elem);
1752     SysFreeString(tmp);
1753     ok(hres == S_OK, "getElementById(%s) failed: %08x\n", dbgstr_w(id), hres);
1754
1755     IHTMLDocument3_Release(doc3);
1756
1757     return elem;
1758 }
1759
1760 static void test_select_elem(IHTMLSelectElement *select)
1761 {
1762     test_select_type(select, "select-one");
1763     test_select_length(select, 2);
1764     test_select_selidx(select, 0);
1765     test_select_put_selidx(select, 1);
1766
1767     test_select_set_value(select, "val1");
1768     test_select_value(select, "val1");
1769
1770     test_select_get_disabled(select, VARIANT_FALSE);
1771     test_select_set_disabled(select, VARIANT_TRUE);
1772     test_select_set_disabled(select, VARIANT_FALSE);
1773 }
1774
1775 static void test_create_option_elem(IHTMLDocument2 *doc)
1776 {
1777     IHTMLOptionElement *option;
1778
1779     option = create_option_elem(doc, "test text", "test value");
1780
1781     test_option_put_text(option, "new text");
1782     test_option_put_value(option, "new value");
1783
1784     IHTMLOptionElement_Release(option);
1785 }
1786
1787 static IHTMLTxtRange *test_create_body_range(IHTMLDocument2 *doc)
1788 {
1789     IHTMLBodyElement *body;
1790     IHTMLTxtRange *range;
1791     IHTMLElement *elem;
1792     HRESULT hres;
1793
1794     hres = IHTMLDocument2_get_body(doc, &elem);
1795     ok(hres == S_OK, "get_body failed: %08x\n", hres);
1796
1797     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
1798     IHTMLElement_Release(elem);
1799
1800     hres = IHTMLBodyElement_createTextRange(body, &range);
1801     IHTMLBodyElement_Release(body);
1802     ok(hres == S_OK, "createTextRange failed: %08x\n", hres);
1803
1804     return range;
1805 }
1806
1807 static void test_txtrange(IHTMLDocument2 *doc)
1808 {
1809     IHTMLTxtRange *body_range, *range, *range2;
1810     IHTMLSelectionObject *selection;
1811     IDispatch *disp_range;
1812     HRESULT hres;
1813
1814     body_range = test_create_body_range(doc);
1815
1816     test_range_text(body_range, "test abc 123\r\nit's text");
1817
1818     hres = IHTMLTxtRange_duplicate(body_range, &range);
1819     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1820
1821     hres = IHTMLTxtRange_duplicate(body_range, &range2);
1822     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1823     test_range_isequal(range, range2, VARIANT_TRUE);
1824
1825     test_range_text(range, "test abc 123\r\nit's text");
1826     test_range_text(body_range, "test abc 123\r\nit's text");
1827
1828     test_range_collapse(range, TRUE);
1829     test_range_isequal(range, range2, VARIANT_FALSE);
1830     test_range_inrange(range, range2, VARIANT_FALSE);
1831     test_range_inrange(range2, range, VARIANT_TRUE);
1832     IHTMLTxtRange_Release(range2);
1833
1834     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
1835     test_range_expand(range, wordW, VARIANT_FALSE, "test ");
1836     test_range_move(range, characterW, 2, 2);
1837     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
1838
1839     test_range_collapse(range, FALSE);
1840     test_range_expand(range, wordW, VARIANT_TRUE, "abc ");
1841
1842     test_range_collapse(range, FALSE);
1843     test_range_expand(range, wordW, VARIANT_TRUE, "123");
1844     test_range_expand(range, wordW, VARIANT_FALSE, "123");
1845     test_range_move(range, characterW, 2, 2);
1846     test_range_expand(range, wordW, VARIANT_TRUE, "123");
1847     test_range_moveend(range, characterW, -5, -5);
1848     test_range_text(range, NULL);
1849     test_range_moveend(range, characterW, 3, 3);
1850     test_range_text(range, "c 1");
1851     test_range_expand(range, texteditW, VARIANT_TRUE, "test abc 123\r\nit's text");
1852     test_range_collapse(range, TRUE);
1853     test_range_move(range, characterW, 4, 4);
1854     test_range_moveend(range, characterW, 1, 1);
1855     test_range_text(range, " ");
1856     test_range_move(range, wordW, 1, 1);
1857     test_range_moveend(range, characterW, 2, 2);
1858     test_range_text(range, "ab");
1859
1860     IHTMLTxtRange_Release(range);
1861
1862     hres = IHTMLTxtRange_duplicate(body_range, &range);
1863     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1864
1865     test_range_text(range, "test abc 123\r\nit's text");
1866     test_range_move(range, characterW, 3, 3);
1867     test_range_moveend(range, characterW, 1, 1);
1868     test_range_text(range, "t");
1869     test_range_moveend(range, characterW, 3, 3);
1870     test_range_text(range, "t ab");
1871     test_range_moveend(range, characterW, -2, -2);
1872     test_range_text(range, "t ");
1873     test_range_move(range, characterW, 6, 6);
1874     test_range_moveend(range, characterW, 3, 3);
1875     test_range_text(range, "123");
1876     test_range_moveend(range, characterW, 2, 2);
1877     test_range_text(range, "123\r\ni");
1878
1879     IHTMLTxtRange_Release(range);
1880
1881     hres = IHTMLTxtRange_duplicate(body_range, &range);
1882     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1883
1884     test_range_move(range, wordW, 1, 1);
1885     test_range_moveend(range, characterW, 2, 2);
1886     test_range_text(range, "ab");
1887
1888     test_range_move(range, characterW, -2, -2);
1889     test_range_moveend(range, characterW, 2, 2);
1890     test_range_text(range, "t ");
1891
1892     test_range_move(range, wordW, 3, 3);
1893     test_range_move(range, wordW, -2, -2);
1894     test_range_moveend(range, characterW, 2, 2);
1895     test_range_text(range, "ab");
1896
1897     test_range_move(range, characterW, -6, -5);
1898     test_range_moveend(range, characterW, -1, 0);
1899     test_range_moveend(range, characterW, -6, 0);
1900     test_range_move(range, characterW, 2, 2);
1901     test_range_moveend(range, characterW, 2, 2);
1902     test_range_text(range, "st");
1903     test_range_moveend(range, characterW, -6, -4);
1904     test_range_moveend(range, characterW, 2, 2);
1905
1906     IHTMLTxtRange_Release(range);
1907
1908     hres = IHTMLTxtRange_duplicate(body_range, &range);
1909     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1910
1911     test_range_move(range, wordW, 2, 2);
1912     test_range_moveend(range, characterW, 2, 2);
1913     test_range_text(range, "12");
1914
1915     test_range_move(range, characterW, 15, 14);
1916     test_range_move(range, characterW, -2, -2);
1917     test_range_moveend(range, characterW, 3, 2);
1918     test_range_text(range, "t");
1919     test_range_moveend(range, characterW, -1, -1);
1920     test_range_text(range, "t");
1921     test_range_expand(range, wordW, VARIANT_TRUE, "text");
1922     test_range_move(range, characterW, -2, -2);
1923     test_range_moveend(range, characterW, 2, 2);
1924     test_range_text(range, "s ");
1925     test_range_move(range, characterW, 100, 7);
1926     test_range_move(range, wordW, 1, 0);
1927     test_range_move(range, characterW, -2, -2);
1928     test_range_moveend(range, characterW, 3, 2);
1929     test_range_text(range, "t");
1930
1931     IHTMLTxtRange_Release(range);
1932
1933     hres = IHTMLTxtRange_duplicate(body_range, &range);
1934     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
1935
1936     test_range_collapse(range, TRUE);
1937     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
1938     test_range_put_text(range, "word");
1939     test_range_text(body_range, "wordabc 123\r\nit's text");
1940     test_range_text(range, NULL);
1941     test_range_moveend(range, characterW, 3, 3);
1942     test_range_text(range, "abc");
1943     test_range_movestart(range, characterW, -2, -2);
1944     test_range_text(range, "rdabc");
1945     test_range_movestart(range, characterW, 3, 3);
1946     test_range_text(range, "bc");
1947     test_range_movestart(range, characterW, 4, 4);
1948     test_range_text(range, NULL);
1949     test_range_movestart(range, characterW, -3, -3);
1950     test_range_text(range, "c 1");
1951     test_range_movestart(range, characterW, -7, -6);
1952     test_range_text(range, "wordabc 1");
1953     test_range_movestart(range, characterW, 100, 22);
1954     test_range_text(range, NULL);
1955
1956     IHTMLTxtRange_Release(range);
1957     IHTMLTxtRange_Release(body_range);
1958
1959     hres = IHTMLDocument2_get_selection(doc, &selection);
1960     ok(hres == S_OK, "IHTMLDocument2_get_selection failed: %08x\n", hres);
1961
1962     hres = IHTMLSelectionObject_createRange(selection, &disp_range);
1963     ok(hres == S_OK, "IHTMLSelectionObject_createRange failed: %08x\n", hres);
1964     IHTMLSelectionObject_Release(selection);
1965
1966     hres = IDispatch_QueryInterface(disp_range, &IID_IHTMLTxtRange, (void **)&range);
1967     ok(hres == S_OK, "Could not get IID_IHTMLTxtRange interface: 0x%08x\n", hres);
1968     IDispatch_Release(disp_range);
1969
1970     test_range_text(range, NULL);
1971     test_range_moveend(range, characterW, 3, 3);
1972     test_range_text(range, "wor");
1973     test_range_parent(range, ET_BODY);
1974     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
1975     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
1976     test_range_move(range, characterW, 3, 3);
1977     test_range_expand(range, wordW, VARIANT_TRUE, "wordabc ");
1978     test_range_moveend(range, characterW, -4, -4);
1979     test_range_put_text(range, "abc def ");
1980     test_range_expand(range, texteditW, VARIANT_TRUE, "abc def abc 123\r\nit's text");
1981     test_range_move(range, wordW, 1, 1);
1982     test_range_movestart(range, characterW, -1, -1);
1983     test_range_text(range, " ");
1984     test_range_move(range, wordW, 1, 1);
1985     test_range_moveend(range, characterW, 3, 3);
1986     test_range_text(range, "def");
1987     test_range_put_text(range, "xyz");
1988     test_range_moveend(range, characterW, 1, 1);
1989     test_range_move(range, wordW, 1, 1);
1990     test_range_moveend(range, characterW, 2, 2);
1991     test_range_text(range, "ab");
1992
1993     IHTMLTxtRange_Release(range);
1994 }
1995
1996 static void test_txtrange2(IHTMLDocument2 *doc)
1997 {
1998     IHTMLTxtRange *range;
1999
2000     range = test_create_body_range(doc);
2001
2002     test_range_text(range, "abc\r\n\r\n123\r\n\r\n\r\ndef");
2003     test_range_move(range, characterW, 5, 5);
2004     test_range_moveend(range, characterW, 1, 1);
2005     test_range_text(range, "2");
2006     test_range_move(range, characterW, -3, -3);
2007     test_range_moveend(range, characterW, 3, 3);
2008     test_range_text(range, "c\r\n\r\n1");
2009     test_range_collapse(range, VARIANT_FALSE);
2010     test_range_moveend(range, characterW, 4, 4);
2011     test_range_text(range, "23");
2012     test_range_moveend(range, characterW, 1, 1);
2013     test_range_text(range, "23\r\n\r\n\r\nd");
2014     test_range_moveend(range, characterW, -1, -1);
2015     test_range_text(range, "23");
2016     test_range_moveend(range, characterW, -1, -1);
2017     test_range_text(range, "23");
2018     test_range_moveend(range, characterW, -2, -2);
2019     test_range_text(range, "2");
2020
2021     IHTMLTxtRange_Release(range);
2022 }
2023
2024 static void test_compatmode(IHTMLDocument2 *doc)
2025 {
2026     IHTMLDocument5 *doc5;
2027     BSTR mode;
2028     HRESULT hres;
2029
2030     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
2031     ok(hres == S_OK, "Could not get IHTMLDocument5 interface: %08x\n", hres);
2032     if(FAILED(hres))
2033         return;
2034
2035     hres = IHTMLDocument5_get_compatMode(doc5, &mode);
2036     IHTMLDocument5_Release(doc5);
2037     ok(hres == S_OK, "get_compatMode failed: %08x\n", hres);
2038     ok(!strcmp_wa(mode, "BackCompat"), "compatMode=%s\n", dbgstr_w(mode));
2039     SysFreeString(mode);
2040 }
2041
2042 static void test_location(IHTMLDocument2 *doc)
2043 {
2044     IHTMLLocation *location, *location2;
2045     ULONG ref;
2046     HRESULT hres;
2047
2048     hres = IHTMLDocument2_get_location(doc, &location);
2049     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2050
2051     hres = IHTMLDocument2_get_location(doc, &location2);
2052     ok(hres == S_OK, "get_location failed: %08x\n", hres);
2053
2054     ok(location == location2, "location != location2\n");
2055
2056     test_ifaces((IUnknown*)location, location_iids);
2057
2058     IHTMLLocation_Release(location2);
2059     ref = IHTMLLocation_Release(location);
2060     ok(!ref, "location chould be destroyed here\n");
2061 }
2062
2063 static void test_navigator(IHTMLDocument2 *doc)
2064 {
2065     IHTMLWindow2 *window;
2066     IOmNavigator *navigator, *navigator2;
2067     ULONG ref;
2068     BSTR bstr;
2069     HRESULT hres;
2070
2071     hres = IHTMLDocument2_get_parentWindow(doc, &window);
2072     ok(hres == S_OK, "parentWidnow failed: %08x\n", hres);
2073
2074     hres = IHTMLWindow2_get_navigator(window, &navigator);
2075     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
2076     ok(navigator != NULL, "navigator == NULL\n");
2077     test_disp((IUnknown*)navigator, &IID_IOmNavigator);
2078
2079     hres = IHTMLWindow2_get_navigator(window, &navigator2);
2080     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
2081     ok(navigator != navigator2, "navigator2 != navihgator\n");
2082
2083     IHTMLWindow2_Release(window);
2084     IOmNavigator_Release(navigator2);
2085
2086     hres = IOmNavigator_get_appCodeName(navigator, &bstr);
2087     ok(hres == S_OK, "get_appCodeName failed: %08x\n", hres);
2088     ok(!strcmp_wa(bstr, "Mozilla"), "Unexpected appCodeName %s\n", dbgstr_w(bstr));
2089     SysFreeString(bstr);
2090
2091     bstr = NULL;
2092     hres = IOmNavigator_get_platform(navigator, &bstr);
2093     ok(hres == S_OK, "get_appMinorVersion failed: %08x\n", hres);
2094     ok(!strcmp_wa(bstr, "Win32"), "unexpected platform %s\n", dbgstr_w(bstr));
2095     SysFreeString(bstr);
2096
2097     ref = IOmNavigator_Release(navigator);
2098     ok(!ref, "navigator should be destroyed here\n");
2099 }
2100
2101 static void test_current_style(IHTMLCurrentStyle *current_style)
2102 {
2103     BSTR str;
2104     HRESULT hres;
2105
2106     test_disp((IUnknown*)current_style, &DIID_DispHTMLCurrentStyle);
2107     test_ifaces((IUnknown*)current_style, cstyle_iids);
2108
2109     hres = IHTMLCurrentStyle_get_display(current_style, &str);
2110     ok(hres == S_OK, "get_display failed: %08x\n", hres);
2111     ok(!strcmp_wa(str, "block"), "get_display returned %s\n", dbgstr_w(str));
2112     SysFreeString(str);
2113 }
2114
2115 static void test_style2(IHTMLStyle2 *style2)
2116 {
2117     BSTR str;
2118     HRESULT hres;
2119
2120     str = (void*)0xdeadbeef;
2121     hres = IHTMLStyle2_get_position(style2, &str);
2122     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2123     ok(!str, "str != NULL\n");
2124
2125     str = a2bstr("absolute");
2126     hres = IHTMLStyle2_put_position(style2, str);
2127     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2128     SysFreeString(str);
2129
2130     str = NULL;
2131     hres = IHTMLStyle2_get_position(style2, &str);
2132     ok(hres == S_OK, "get_position failed: %08x\n", hres);
2133     ok(!strcmp_wa(str, "absolute"), "get_position returned %s\n", dbgstr_w(str));
2134     SysFreeString(str);
2135 }
2136
2137 static void test_default_style(IHTMLStyle *style)
2138 {
2139     IHTMLStyle2 *style2;
2140     VARIANT_BOOL b;
2141     VARIANT v;
2142     BSTR str;
2143     HRESULT hres;
2144
2145     test_disp((IUnknown*)style, &DIID_DispHTMLStyle);
2146     test_ifaces((IUnknown*)style, style_iids);
2147
2148     str = (void*)0xdeadbeef;
2149     hres = IHTMLStyle_get_fontFamily(style, &str);
2150     ok(hres == S_OK, "get_fontFamily failed: %08x\n", hres);
2151     ok(!str, "fontFamily = %s\n", dbgstr_w(str));
2152
2153     str = (void*)0xdeadbeef;
2154     hres = IHTMLStyle_get_fontWeight(style, &str);
2155     ok(hres == S_OK, "get_fontWeight failed: %08x\n", hres);
2156     ok(!str, "fontWeight = %s\n", dbgstr_w(str));
2157
2158     str = (void*)0xdeadbeef;
2159     hres = IHTMLStyle_get_display(style, &str);
2160     ok(hres == S_OK, "get_display failed: %08x\n", hres);
2161     ok(!str, "display = %s\n", dbgstr_w(str));
2162
2163     str = (void*)0xdeadbeef;
2164     hres = IHTMLStyle_get_visibility(style, &str);
2165     ok(hres == S_OK, "get_visibility failed: %08x\n", hres);
2166     ok(!str, "visibility = %s\n", dbgstr_w(str));
2167
2168     V_VT(&v) = VT_NULL;
2169     hres = IHTMLStyle_get_fontSize(style, &v);
2170     ok(hres == S_OK, "get_fontSize failed: %08x\n", hres);
2171     ok(V_VT(&v) == VT_BSTR, "V_VT(fontSize) = %d\n", V_VT(&v));
2172     ok(!V_BSTR(&v), "V_BSTR(fontSize) = %s\n", dbgstr_w(V_BSTR(&v)));
2173
2174     V_VT(&v) = VT_NULL;
2175     hres = IHTMLStyle_get_color(style, &v);
2176     ok(hres == S_OK, "get_color failed: %08x\n", hres);
2177     ok(V_VT(&v) == VT_BSTR, "V_VT(color) = %d\n", V_VT(&v));
2178     ok(!V_BSTR(&v), "V_BSTR(color) = %s\n", dbgstr_w(V_BSTR(&v)));
2179
2180     b = 0xfefe;
2181     hres = IHTMLStyle_get_textDecorationUnderline(style, &b);
2182     ok(hres == S_OK, "get_textDecorationUnderline failed: %08x\n", hres);
2183     ok(b == VARIANT_FALSE, "textDecorationUnderline = %x\n", b);
2184
2185     b = 0xfefe;
2186     hres = IHTMLStyle_get_textDecorationLineThrough(style, &b);
2187     ok(hres == S_OK, "get_textDecorationLineThrough failed: %08x\n", hres);
2188     ok(b == VARIANT_FALSE, "textDecorationLineThrough = %x\n", b);
2189
2190     V_VT(&v) = VT_EMPTY;
2191     hres = IHTMLStyle_get_width(style, &v);
2192     ok(hres == S_OK, "get_width failed: %08x\n", hres);
2193     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2194     ok(!V_BSTR(&v), "V_BSTR(v)=%p\n", V_BSTR(&v));
2195
2196     V_VT(&v) = VT_BSTR;
2197     V_BSTR(&v) = a2bstr("auto");
2198     hres = IHTMLStyle_put_width(style, v);
2199     ok(hres == S_OK, "put_width failed: %08x\n", hres);
2200     VariantClear(&v);
2201
2202     V_VT(&v) = VT_EMPTY;
2203     hres = IHTMLStyle_get_width(style, &v);
2204     ok(hres == S_OK, "get_width failed: %08x\n", hres);
2205     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2206     ok(!strcmp_wa(V_BSTR(&v), "auto"), "V_BSTR(v)=%s\n", dbgstr_w(V_BSTR(&v)));
2207     VariantClear(&v);
2208
2209     /* margin tests */
2210     str = (void*)0xdeadbeef;
2211     hres = IHTMLStyle_get_margin(style, &str);
2212     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
2213     ok(!str, "margin = %s\n", dbgstr_w(str));
2214
2215     str = a2bstr("1");
2216     hres = IHTMLStyle_put_margin(style, str);
2217     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
2218     SysFreeString(str);
2219
2220     hres = IHTMLStyle_get_margin(style, &str);
2221     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
2222     ok(strcmp_wa(str, "1"), "margin = %s\n", dbgstr_w(str));
2223
2224     hres = IHTMLStyle_put_margin(style, NULL);
2225     ok(hres == S_OK, "get_margin failed: %08x\n", hres);
2226
2227     str = NULL;
2228     hres = IHTMLStyle_get_border(style, &str);
2229     ok(hres == S_OK, "get_border failed: %08x\n", hres);
2230     ok(!str || !*str, "str is not empty\n");
2231     SysFreeString(str);
2232
2233     str = a2bstr("1px");
2234     hres = IHTMLStyle_put_border(style, str);
2235     ok(hres == S_OK, "get_border failed: %08x\n", hres);
2236     SysFreeString(str);
2237
2238     V_VT(&v) = VT_EMPTY;
2239     hres = IHTMLStyle_get_left(style, &v);
2240     ok(hres == S_OK, "get_left failed: %08x\n", hres);
2241     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2242     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
2243     VariantClear(&v);
2244
2245     V_VT(&v) = VT_BSTR;
2246     V_BSTR(&v) = a2bstr("3px");
2247     hres = IHTMLStyle_put_left(style, v);
2248     ok(hres == S_OK, "put_left failed: %08x\n", hres);
2249     VariantClear(&v);
2250
2251     V_VT(&v) = VT_EMPTY;
2252     hres = IHTMLStyle_get_left(style, &v);
2253     ok(hres == S_OK, "get_left failed: %08x\n", hres);
2254     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2255     ok(!strcmp_wa(V_BSTR(&v), "3px"), "V_BSTR(v) = %s\n", dbgstr_w(V_BSTR(&v)));
2256     VariantClear(&v);
2257
2258     V_VT(&v) = VT_EMPTY;
2259     hres = IHTMLStyle_get_top(style, &v);
2260     ok(hres == S_OK, "get_top failed: %08x\n", hres);
2261     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2262     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
2263     VariantClear(&v);
2264
2265     V_VT(&v) = VT_BSTR;
2266     V_BSTR(&v) = a2bstr("3px");
2267     hres = IHTMLStyle_put_top(style, v);
2268     ok(hres == S_OK, "put_top failed: %08x\n", hres);
2269     VariantClear(&v);
2270
2271     V_VT(&v) = VT_EMPTY;
2272     hres = IHTMLStyle_get_top(style, &v);
2273     ok(hres == S_OK, "get_top failed: %08x\n", hres);
2274     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2275     ok(!strcmp_wa(V_BSTR(&v), "3px"), "V_BSTR(v) = %s\n", dbgstr_w(V_BSTR(&v)));
2276     VariantClear(&v);
2277
2278     V_VT(&v) = VT_EMPTY;
2279     hres = IHTMLStyle_get_height(style, &v);
2280     ok(hres == S_OK, "get_height failed: %08x\n", hres);
2281     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2282     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
2283     VariantClear(&v);
2284
2285     V_VT(&v) = VT_BSTR;
2286     V_BSTR(&v) = a2bstr("64px");
2287     hres = IHTMLStyle_put_height(style, v);
2288     ok(hres == S_OK, "put_height failed: %08x\n", hres);
2289     VariantClear(&v);
2290
2291     V_VT(&v) = VT_EMPTY;
2292     hres = IHTMLStyle_get_height(style, &v);
2293     ok(hres == S_OK, "get_height failed: %08x\n", hres);
2294     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2295     ok(!strcmp_wa(V_BSTR(&v), "64px"), "V_BSTR(v) = %s\n", dbgstr_w(V_BSTR(&v)));
2296     VariantClear(&v);
2297
2298     str = (void*)0xdeadbeef;
2299     hres = IHTMLStyle_get_cursor(style, &str);
2300     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
2301     ok(!str, "get_cursor != NULL\n");
2302     SysFreeString(str);
2303
2304     str = a2bstr("default");
2305     hres = IHTMLStyle_put_cursor(style, str);
2306     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
2307     SysFreeString(str);
2308
2309     str = NULL;
2310     hres = IHTMLStyle_get_cursor(style, &str);
2311     ok(hres == S_OK, "get_cursor failed: %08x\n", hres);
2312     ok(!strcmp_wa(str, "default"), "get_cursor returned %s\n", dbgstr_w(str));
2313     SysFreeString(str);
2314
2315     V_VT(&v) = VT_EMPTY;
2316     hres = IHTMLStyle_get_verticalAlign(style, &v);
2317     ok(hres == S_OK, "get_vertivalAlign failed: %08x\n", hres);
2318     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2319     ok(!V_BSTR(&v), "V_BSTR(v) != NULL\n");
2320     VariantClear(&v);
2321
2322     V_VT(&v) = VT_BSTR;
2323     V_BSTR(&v) = a2bstr("middle");
2324     hres = IHTMLStyle_put_verticalAlign(style, v);
2325     ok(hres == S_OK, "put_vertivalAlign failed: %08x\n", hres);
2326     VariantClear(&v);
2327
2328     V_VT(&v) = VT_EMPTY;
2329     hres = IHTMLStyle_get_verticalAlign(style, &v);
2330     ok(hres == S_OK, "get_verticalAlign failed: %08x\n", hres);
2331     ok(V_VT(&v) == VT_BSTR, "V_VT(v)=%d\n", V_VT(&v));
2332     ok(!strcmp_wa(V_BSTR(&v), "middle"), "V_BSTR(v) = %s\n", dbgstr_w(V_BSTR(&v)));
2333     VariantClear(&v);
2334
2335     str = (void*)0xdeadbeef;
2336     hres = IHTMLStyle_get_textAlign(style, &str);
2337     ok(hres == S_OK, "get_textAlign failed: %08x\n", hres);
2338     ok(!str, "textAlign != NULL\n");
2339
2340     str = a2bstr("center");
2341     hres = IHTMLStyle_put_textAlign(style, str);
2342     ok(hres == S_OK, "put_textAlign failed: %08x\n", hres);
2343     SysFreeString(str);
2344
2345     str = NULL;
2346     hres = IHTMLStyle_get_textAlign(style, &str);
2347     ok(hres == S_OK, "get_textAlign failed: %08x\n", hres);
2348     ok(!strcmp_wa(str, "center"), "textAlign = %s\n", dbgstr_w(V_BSTR(&v)));
2349     SysFreeString(str);
2350
2351     str = (void*)0xdeadbeef;
2352     hres = IHTMLStyle_get_filter(style, &str);
2353     ok(hres == S_OK, "get_filter failed: %08x\n", hres);
2354     ok(!str, "filter != NULL\n");
2355
2356     str = a2bstr("alpha(opacity=100)");
2357     hres = IHTMLStyle_put_filter(style, str);
2358     ok(hres == S_OK, "put_filter failed: %08x\n", hres);
2359     SysFreeString(str);
2360
2361     V_VT(&v) = VT_EMPTY;
2362     hres = IHTMLStyle_get_zIndex(style, &v);
2363     ok(hres == S_OK, "get_zIndex failed: %08x\n", hres);
2364     ok(V_VT(&v) == VT_I4, "V_VT(v)=%d\n", V_VT(&v));
2365     ok(!V_I4(&v), "V_I4(v) != 0\n");
2366     VariantClear(&v);
2367
2368     V_VT(&v) = VT_BSTR;
2369     V_BSTR(&v) = a2bstr("1");
2370     hres = IHTMLStyle_put_zIndex(style, v);
2371     ok(hres == S_OK, "put_zIndex failed: %08x\n", hres);
2372     VariantClear(&v);
2373
2374     V_VT(&v) = VT_EMPTY;
2375     hres = IHTMLStyle_get_zIndex(style, &v);
2376     ok(hres == S_OK, "get_zIndex failed: %08x\n", hres);
2377     ok(V_VT(&v) == VT_I4, "V_VT(v)=%d\n", V_VT(&v));
2378     ok(V_I4(&v) == 1, "V_I4(v) = %d\n", V_I4(&v));
2379     VariantClear(&v);
2380
2381     hres = IHTMLStyle_QueryInterface(style, &IID_IHTMLStyle2, (void**)&style2);
2382     ok(hres == S_OK, "Could not get IHTMLStyle2 iface: %08x\n", hres);
2383     if(SUCCEEDED(hres)) {
2384         test_style2(style2);
2385         IHTMLStyle2_Release(style2);
2386     }
2387 }
2388
2389 static void test_default_selection(IHTMLDocument2 *doc)
2390 {
2391     IHTMLSelectionObject *selection;
2392     IHTMLTxtRange *range;
2393     IDispatch *disp;
2394     BSTR str;
2395     HRESULT hres;
2396
2397     hres = IHTMLDocument2_get_selection(doc, &selection);
2398     ok(hres == S_OK, "get_selection failed: %08x\n", hres);
2399
2400     hres = IHTMLSelectionObject_get_type(selection, &str);
2401     ok(hres == S_OK, "get_type failed: %08x\n", hres);
2402     ok(!lstrcmpW(str, noneW), "type = %s\n", dbgstr_w(str));
2403     SysFreeString(str);
2404
2405     hres = IHTMLSelectionObject_createRange(selection, &disp);
2406     IHTMLSelectionObject_Release(selection);
2407     ok(hres == S_OK, "createRange failed: %08x\n", hres);
2408
2409     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTxtRange, (void**)&range);
2410     IDispatch_Release(disp);
2411     ok(hres == S_OK, "Could not get IHTMLTxtRange interface: %08x\n", hres);
2412
2413     test_range_text(range, NULL);
2414     IHTMLTxtRange_Release(range);
2415 }
2416
2417 static void test_default_body(IHTMLBodyElement *body)
2418 {
2419     long l;
2420     BSTR bstr;
2421     HRESULT hres;
2422     VARIANT v;
2423     WCHAR sBodyText[] = {'#','F','F','0','0','0','0',0};
2424     WCHAR sTextInvalid[] = {'I','n','v','a','l','i','d',0};
2425     WCHAR sResInvalid[] = {'#','0','0','a','0','d','0',0};
2426
2427     bstr = (void*)0xdeadbeef;
2428     hres = IHTMLBodyElement_get_background(body, &bstr);
2429     ok(hres == S_OK, "get_background failed: %08x\n", hres);
2430     ok(bstr == NULL, "bstr != NULL\n");
2431
2432     l = elem_get_scroll_height((IUnknown*)body);
2433     ok(l != -1, "scrollHeight == -1\n");
2434     l = elem_get_scroll_width((IUnknown*)body);
2435     ok(l != -1, "scrollWidth == -1\n");
2436     l = elem_get_scroll_top((IUnknown*)body);
2437     ok(!l, "scrollTop = %ld\n", l);
2438     elem_get_scroll_left((IUnknown*)body);
2439
2440     /* get_text tests */
2441     hres = IHTMLBodyElement_get_text(body, &v);
2442     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
2443     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
2444     ok(bstr == NULL, "bstr != NULL\n");
2445
2446
2447     /* get_text - Invalid Text */
2448     V_VT(&v) = VT_BSTR;
2449     V_BSTR(&v) = SysAllocString(sTextInvalid);
2450     hres = IHTMLBodyElement_put_text(body, v);
2451     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
2452
2453     V_VT(&v) = VT_NULL;
2454     hres = IHTMLBodyElement_get_text(body, &v);
2455     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
2456     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
2457     ok(!lstrcmpW(sResInvalid, V_BSTR(&v)), "bstr != sResInvalid\n");
2458     VariantClear(&v);
2459
2460     /* get_text - Valid Text */
2461     V_VT(&v) = VT_BSTR;
2462     V_BSTR(&v) = SysAllocString(sBodyText);
2463     hres = IHTMLBodyElement_put_text(body, v);
2464     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
2465
2466     V_VT(&v) = VT_NULL;
2467     hres = IHTMLBodyElement_get_text(body, &v);
2468     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
2469     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
2470     ok(lstrcmpW(bstr, V_BSTR(&v)), "bstr != V_BSTR(&v)\n");
2471     VariantClear(&v);
2472 }
2473
2474 static void test_body_funs(IHTMLBodyElement *body)
2475 {
2476     static WCHAR sRed[] = {'r','e','d',0};
2477     static WCHAR sRedbg[] = {'#','f','f','0','0','0','0',0};
2478     VARIANT vbg;
2479     VARIANT vDefaultbg;
2480     HRESULT hres;
2481
2482     hres = IHTMLBodyElement_get_bgColor(body, &vDefaultbg);
2483     ok(hres == S_OK, "get_background failed: %08x\n", hres);
2484     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
2485
2486     V_VT(&vbg) = VT_BSTR;
2487     V_BSTR(&vbg) = SysAllocString(sRed);
2488     hres = IHTMLBodyElement_put_bgColor(body, vbg);
2489     ok(hres == S_OK, "get_background failed: %08x\n", hres);
2490     VariantClear(&vbg);
2491
2492     hres = IHTMLBodyElement_get_bgColor(body, &vbg);
2493     ok(hres == S_OK, "get_background failed: %08x\n", hres);
2494     ok(V_VT(&vDefaultbg) == VT_BSTR, "V_VT(&vDefaultbg) != VT_BSTR\n");
2495     ok(!lstrcmpW(V_BSTR(&vbg), sRedbg), "Unexpected type %s\n", dbgstr_w(V_BSTR(&vbg)));
2496     VariantClear(&vbg);
2497
2498     /* Restore Originial */
2499     hres = IHTMLBodyElement_put_bgColor(body, vDefaultbg);
2500     ok(hres == S_OK, "get_background failed: %08x\n", hres);
2501     VariantClear(&vDefaultbg);
2502 }
2503
2504 static void test_window(IHTMLDocument2 *doc)
2505 {
2506     IHTMLWindow2 *window, *window2, *self;
2507     IHTMLDocument2 *doc2 = NULL;
2508     IDispatch *disp;
2509     HRESULT hres;
2510
2511     hres = IHTMLDocument2_get_parentWindow(doc, &window);
2512     ok(hres == S_OK, "get_parentElement failed: %08x\n", hres);
2513     test_ifaces((IUnknown*)window, window_iids);
2514     test_disp((IUnknown*)window, &DIID_DispHTMLWindow2);
2515
2516     hres = IHTMLWindow2_get_document(window, &doc2);
2517     ok(hres == S_OK, "get_document failed: %08x\n", hres);
2518     ok(doc2 != NULL, "doc2 == NULL\n");
2519
2520     IHTMLDocument_Release(doc2);
2521
2522     hres = IHTMLWindow2_get_window(window, &window2);
2523     ok(hres == S_OK, "get_window failed: %08x\n", hres);
2524     ok(window2 != NULL, "window2 == NULL\n");
2525
2526     hres = IHTMLWindow2_get_self(window, &self);
2527     ok(hres == S_OK, "get_window failed: %08x\n", hres);
2528     ok(window2 != NULL, "self == NULL\n");
2529
2530     ok(self == window2, "self != window2\n");
2531
2532     IHTMLWindow2_Release(window2);
2533     IHTMLWindow2_Release(self);
2534
2535     disp = NULL;
2536     hres = IHTMLDocument2_get_Script(doc, &disp);
2537     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
2538     ok(disp == (void*)window, "disp != window\n");
2539     IDispatch_Release(disp);
2540
2541     IHTMLWindow2_Release(window);
2542 }
2543
2544 static void test_defaults(IHTMLDocument2 *doc)
2545 {
2546     IHTMLStyleSheetsCollection *stylesheetcol;
2547     IHTMLCurrentStyle *cstyle;
2548     IHTMLBodyElement *body;
2549     IHTMLElement2 *elem2;
2550     IHTMLElement *elem;
2551     IHTMLStyle *style;
2552     long l;
2553     HRESULT hres;
2554
2555     hres = IHTMLDocument2_get_body(doc, &elem);
2556     ok(hres == S_OK, "get_body failed: %08x\n", hres);
2557
2558     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
2559     ok(hres == S_OK, "Could not get IHTMBodyElement: %08x\n", hres);
2560     test_default_body(body);
2561     test_body_funs(body);
2562     IHTMLBodyElement_Release(body);
2563
2564     hres = IHTMLElement_get_style(elem, &style);
2565     ok(hres == S_OK, "get_style failed: %08x\n", hres);
2566
2567     test_default_style(style);
2568     test_window(doc);
2569     test_compatmode(doc);
2570     test_location(doc);
2571     test_navigator(doc);
2572
2573     IHTMLStyle_Release(style);
2574
2575     elem2 = get_elem2_iface((IUnknown*)elem);
2576     hres = IHTMLElement2_get_currentStyle(elem2, &cstyle);
2577     ok(hres == S_OK, "get_currentStyle failed: %08x\n", hres);
2578     if(SUCCEEDED(hres)) {
2579         test_current_style(cstyle);
2580         IHTMLCurrentStyle_Release(cstyle);
2581     }
2582     IHTMLElement2_Release(elem2);
2583
2584     IHTMLElement_Release(elem);
2585
2586     hres = IHTMLDocument2_get_styleSheets(doc, &stylesheetcol);
2587     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
2588
2589     l = 0xdeadbeef;
2590     hres = IHTMLStyleSheetsCollection_get_length(stylesheetcol, &l);
2591     ok(hres == S_OK, "get_length failed: %08x\n", hres);
2592     ok(l == 0, "length = %ld\n", l);
2593
2594     IHTMLStyleSheetsCollection_Release(stylesheetcol);
2595
2596     test_default_selection(doc);
2597     test_doc_title(doc, "");
2598 }
2599
2600 static void test_tr_elem(IHTMLElement *elem)
2601 {
2602     IHTMLElementCollection *col;
2603     IHTMLTableRow *row;
2604     HRESULT hres;
2605
2606     static const elem_type_t cell_types[] = {ET_TD,ET_TD};
2607
2608     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTableRow, (void**)&row);
2609     ok(hres == S_OK, "Could not get IHTMLTableRow iface: %08x\n", hres);
2610     if(FAILED(hres))
2611         return;
2612
2613     col = NULL;
2614     hres = IHTMLTableRow_get_cells(row, &col);
2615     ok(hres == S_OK, "get_cells failed: %08x\n", hres);
2616     ok(col != NULL, "get_cells returned NULL\n");
2617
2618     test_elem_collection((IUnknown*)col, cell_types, sizeof(cell_types)/sizeof(*cell_types));
2619     IHTMLElementCollection_Release(col);
2620
2621     IHTMLTable_Release(row);
2622 }
2623
2624 static void test_table_elem(IHTMLElement *elem)
2625 {
2626     IHTMLElementCollection *col;
2627     IHTMLTable *table;
2628     HRESULT hres;
2629
2630     static const elem_type_t row_types[] = {ET_TR,ET_TR};
2631
2632     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTable, (void**)&table);
2633     ok(hres == S_OK, "Could not get IHTMLTable iface: %08x\n", hres);
2634     if(FAILED(hres))
2635         return;
2636
2637     col = NULL;
2638     hres = IHTMLTable_get_rows(table, &col);
2639     ok(hres == S_OK, "get_rows failed: %08x\n", hres);
2640     ok(col != NULL, "get_ros returned NULL\n");
2641
2642     test_elem_collection((IUnknown*)col, row_types, sizeof(row_types)/sizeof(*row_types));
2643     IHTMLElementCollection_Release(col);
2644
2645     IHTMLTable_Release(table);
2646 }
2647
2648 static void doc_write(IHTMLDocument2 *doc, const char *text)
2649 {
2650     SAFEARRAYBOUND dim;
2651     SAFEARRAY *sa;
2652     VARIANT *var;
2653     BSTR str;
2654     HRESULT hres;
2655
2656     dim.lLbound = 0;
2657     dim.cElements = 1;
2658     sa = SafeArrayCreate(VT_VARIANT, 1, &dim);
2659     SafeArrayAccessData(sa, (void**)&var);
2660     V_VT(var) = VT_BSTR;
2661     V_BSTR(var) = str = a2bstr(text);
2662     SafeArrayUnaccessData(sa);
2663
2664     hres = IHTMLDocument2_write(doc, sa);
2665     ok(hres == S_OK, "write failed: %08x\n", hres);
2666
2667     SysFreeString(str);
2668     SafeArrayDestroy(sa);
2669 }
2670
2671 static void test_iframe_elem(IHTMLElement *elem)
2672 {
2673     IHTMLElementCollection *col;
2674     IHTMLDocument2 *content_doc;
2675     IHTMLWindow2 *content_window;
2676     IHTMLFrameBase2 *base2;
2677     IDispatch *disp;
2678     VARIANT errv;
2679     BSTR str;
2680     HRESULT hres;
2681
2682     static const elem_type_t all_types[] = {
2683         ET_HTML,
2684         ET_HEAD,
2685         ET_TITLE,
2686         ET_BODY,
2687         ET_BR
2688     };
2689
2690     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase2, (void**)&base2);
2691     ok(hres == S_OK, "Could not get IHTMFrameBase2 iface: %08x\n", hres);
2692
2693     content_window = NULL;
2694     hres = IHTMLFrameBase2_get_contentWindow(base2, &content_window);
2695     IHTMLFrameBase2_Release(base2);
2696     ok(hres == S_OK, "get_contentWindow failed: %08x\n", hres);
2697     ok(content_window != NULL, "contentWindow = NULL\n");
2698
2699     content_doc = NULL;
2700     hres = IHTMLWindow2_get_document(content_window, &content_doc);
2701     IHTMLWindow2_Release(content_window);
2702     ok(hres == S_OK, "get_document failed: %08x\n", hres);
2703     ok(content_doc != NULL, "content_doc = NULL\n");
2704
2705     str = a2bstr("text/html");
2706     V_VT(&errv) = VT_ERROR;
2707     disp = NULL;
2708     hres = IHTMLDocument2_open(content_doc, str, errv, errv, errv, &disp);
2709     SysFreeString(str);
2710     ok(hres == S_OK, "open failed: %08x\n", hres);
2711     ok(disp != NULL, "disp == NULL\n");
2712     ok(iface_cmp((IUnknown*)disp, (IUnknown*)content_window), "disp != content_window\n");
2713     IDispatch_Release(disp);
2714
2715     doc_write(content_doc, "<html><head><title>test</title></head><body><br /></body></html>");
2716
2717     hres = IHTMLDocument2_get_all(content_doc, &col);
2718     ok(hres == S_OK, "get_all failed: %08x\n", hres);
2719     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
2720     IHTMLElementCollection_Release(col);
2721
2722     hres = IHTMLDocument2_close(content_doc);
2723     ok(hres == S_OK, "close failed: %08x\n", hres);
2724
2725     IHTMLDocument2_Release(content_doc);
2726 }
2727
2728 static void test_stylesheet(IDispatch *disp)
2729 {
2730     IHTMLStyleSheetRulesCollection *col = NULL;
2731     IHTMLStyleSheet *stylesheet;
2732     HRESULT hres;
2733
2734     hres = IDispatch_QueryInterface(disp, &IID_IHTMLStyleSheet, (void**)&stylesheet);
2735     ok(hres == S_OK, "Could not get IHTMLStyleSheet: %08x\n", hres);
2736
2737     hres = IHTMLStyleSheet_get_rules(stylesheet, &col);
2738     ok(hres == S_OK, "get_rules failed: %08x\n", hres);
2739     ok(col != NULL, "col == NULL\n");
2740
2741     IHTMLStyleSheetRulesCollection_Release(col);
2742     IHTMLStyleSheet_Release(stylesheet);
2743 }
2744
2745 static void test_stylesheets(IHTMLDocument2 *doc)
2746 {
2747     IHTMLStyleSheetsCollection *col = NULL;
2748     VARIANT idx, res;
2749     long len = 0;
2750     HRESULT hres;
2751
2752     hres = IHTMLDocument2_get_styleSheets(doc, &col);
2753     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
2754     ok(col != NULL, "col == NULL\n");
2755
2756     hres = IHTMLStyleSheetsCollection_get_length(col, &len);
2757     ok(hres == S_OK, "get_length failed: %08x\n", hres);
2758     ok(len == 1, "len=%ld\n", len);
2759
2760     VariantInit(&res);
2761     V_VT(&idx) = VT_I4;
2762     V_I4(&idx) = 0;
2763
2764     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
2765     ok(hres == S_OK, "item failed: %08x\n", hres);
2766     ok(V_VT(&res) == VT_DISPATCH, "V_VT(res) = %d\n", V_VT(&res));
2767     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
2768     test_stylesheet(V_DISPATCH(&res));
2769     VariantClear(&res);
2770
2771     V_VT(&res) = VT_I4;
2772     V_VT(&idx) = VT_I4;
2773     V_I4(&idx) = 1;
2774
2775     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
2776     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
2777     ok(V_VT(&res) == VT_EMPTY, "V_VT(res) = %d\n", V_VT(&res));
2778     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
2779     VariantClear(&res);
2780
2781     IHTMLStyleSheetsCollection_Release(col);
2782 }
2783
2784 static void test_child_col_disp(IHTMLDOMChildrenCollection *col)
2785 {
2786     IDispatchEx *dispex;
2787     IHTMLDOMNode *node;
2788     DISPPARAMS dp = {NULL, NULL, 0, 0};
2789     VARIANT var;
2790     EXCEPINFO ei;
2791     long type;
2792     DISPID id;
2793     BSTR bstr;
2794     HRESULT hres;
2795
2796     static const WCHAR w0[] = {'0',0};
2797     static const WCHAR w100[] = {'1','0','0',0};
2798
2799     hres = IHTMLDOMChildrenCollection_QueryInterface(col, &IID_IDispatchEx, (void**)&dispex);
2800     ok(hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
2801
2802     bstr = SysAllocString(w0);
2803     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2804     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2805     SysFreeString(bstr);
2806
2807     VariantInit(&var);
2808     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
2809     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2810     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
2811     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
2812     node = get_node_iface((IUnknown*)V_DISPATCH(&var));
2813     type = get_node_type((IUnknown*)node);
2814     ok(type == 3, "type=%ld\n", type);
2815     IHTMLDOMNode_Release(node);
2816     VariantClear(&var);
2817
2818     bstr = SysAllocString(w100);
2819     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2820     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
2821     SysFreeString(bstr);
2822
2823     IDispatchEx_Release(dispex);
2824 }
2825
2826
2827
2828 static void test_elems(IHTMLDocument2 *doc)
2829 {
2830     IHTMLElementCollection *col;
2831     IHTMLDOMChildrenCollection *child_col;
2832     IHTMLElement *elem, *elem2, *elem3;
2833     IHTMLDOMNode *node, *node2;
2834     IDispatch *disp;
2835     long type;
2836     HRESULT hres;
2837
2838     static const WCHAR imgidW[] = {'i','m','g','i','d',0};
2839     static const WCHAR inW[] = {'i','n',0};
2840     static const WCHAR xW[] = {'x',0};
2841     static const WCHAR sW[] = {'s',0};
2842     static const WCHAR scW[] = {'s','c',0};
2843     static const WCHAR xxxW[] = {'x','x','x',0};
2844     static const WCHAR tblW[] = {'t','b','l',0};
2845     static const WCHAR row2W[] = {'r','o','w','2',0};
2846     static const WCHAR ifrW[] = {'i','f','r',0};
2847
2848     static const elem_type_t all_types[] = {
2849         ET_HTML,
2850         ET_HEAD,
2851         ET_TITLE,
2852         ET_STYLE,
2853         ET_BODY,
2854         ET_COMMENT,
2855         ET_A,
2856         ET_INPUT,
2857         ET_SELECT,
2858         ET_OPTION,
2859         ET_OPTION,
2860         ET_TEXTAREA,
2861         ET_TABLE,
2862         ET_TBODY,
2863         ET_TR,
2864         ET_TR,
2865         ET_TD,
2866         ET_TD,
2867         ET_SCRIPT,
2868         ET_TEST,
2869         ET_IMG,
2870         ET_IFRAME
2871     };
2872
2873     static const elem_type_t item_types[] = {
2874         ET_A,
2875         ET_OPTION,
2876         ET_TEXTAREA
2877     };
2878
2879     hres = IHTMLDocument2_get_all(doc, &col);
2880     ok(hres == S_OK, "get_all failed: %08x\n", hres);
2881     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
2882     test_elem_col_item(col, xW, item_types, sizeof(item_types)/sizeof(item_types[0]));
2883     IHTMLElementCollection_Release(col);
2884
2885     elem = get_doc_elem(doc);
2886     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
2887     hres = IHTMLElement_get_all(elem, &disp);
2888     IHTMLElement_Release(elem);
2889     ok(hres == S_OK, "get_all failed: %08x\n", hres);
2890
2891     hres = IDispatch_QueryInterface(disp, &IID_IHTMLElementCollection, (void**)&col);
2892     IDispatch_Release(disp);
2893     ok(hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
2894     test_elem_collection((IUnknown*)col, all_types+1, sizeof(all_types)/sizeof(all_types[0])-1);
2895     IHTMLElementCollection_Release(col);
2896
2897     get_elem_by_id(doc, xxxW, FALSE);
2898     elem = get_doc_elem_by_id(doc, xxxW);
2899     ok(!elem, "elem != NULL\n");
2900
2901     elem = get_doc_elem_by_id(doc, sW);
2902     ok(elem != NULL, "elem == NULL\n");
2903     if(elem) {
2904         test_elem_type((IUnknown*)elem, ET_SELECT);
2905         test_elem_attr(elem, xxxW, NULL);
2906         test_elem_attr(elem, idW, sW);
2907         test_elem_class((IUnknown*)elem, NULL);
2908         test_elem_set_class((IUnknown*)elem, "cl");
2909         test_elem_set_class((IUnknown*)elem, NULL);
2910         test_elem_tabindex((IUnknown*)elem, 0);
2911         test_elem_set_tabindex((IUnknown*)elem, 1);
2912
2913         node = test_node_get_parent((IUnknown*)elem);
2914         ok(node != NULL, "node == NULL\n");
2915         test_node_name((IUnknown*)node, "BODY");
2916         node2 = test_node_get_parent((IUnknown*)node);
2917         IHTMLDOMNode_Release(node);
2918         ok(node2 != NULL, "node == NULL\n");
2919         test_node_name((IUnknown*)node2, "HTML");
2920         node = test_node_get_parent((IUnknown*)node2);
2921         IHTMLDOMNode_Release(node2);
2922         ok(node != NULL, "node == NULL\n");
2923         test_node_name((IUnknown*)node, "#document");
2924         type = get_node_type((IUnknown*)node);
2925         ok(type == 9, "type=%ld, expected 9\n", type);
2926         node2 = test_node_get_parent((IUnknown*)node);
2927         IHTMLDOMNode_Release(node);
2928         ok(node2 == NULL, "node != NULL\n");
2929
2930         elem2 = test_elem_get_parent((IUnknown*)elem);
2931         ok(elem2 != NULL, "elem2 == NULL\n");
2932         test_node_name((IUnknown*)elem2, "BODY");
2933         elem3 = test_elem_get_parent((IUnknown*)elem2);
2934         IHTMLElement_Release(elem2);
2935         ok(elem3 != NULL, "elem3 == NULL\n");
2936         test_node_name((IUnknown*)elem3, "HTML");
2937         elem2 = test_elem_get_parent((IUnknown*)elem3);
2938         IHTMLElement_Release(elem3);
2939         ok(elem2 == NULL, "elem2 != NULL\n");
2940
2941         test_elem_getelembytag((IUnknown*)elem, ET_OPTION, 2);
2942         test_elem_getelembytag((IUnknown*)elem, ET_SELECT, 0);
2943         test_elem_getelembytag((IUnknown*)elem, ET_HTML, 0);
2944
2945         IHTMLElement_Release(elem);
2946     }
2947
2948     elem = get_elem_by_id(doc, sW, TRUE);
2949     if(elem) {
2950         IHTMLSelectElement *select;
2951
2952         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLSelectElement, (void**)&select);
2953         ok(hres == S_OK, "Could not get IHTMLSelectElement interface: %08x\n", hres);
2954
2955         test_select_elem(select);
2956
2957         test_elem_title((IUnknown*)select, NULL);
2958         test_elem_set_title((IUnknown*)select, "Title");
2959         test_elem_title((IUnknown*)select, "Title");
2960         test_elem_offset((IUnknown*)select);
2961
2962         node = get_first_child((IUnknown*)select);
2963         ok(node != NULL, "node == NULL\n");
2964         if(node) {
2965             test_elem_type((IUnknown*)node, ET_OPTION);
2966             IHTMLDOMNode_Release(node);
2967         }
2968
2969         type = get_node_type((IUnknown*)select);
2970         ok(type == 1, "type=%ld\n", type);
2971
2972         IHTMLSelectElement_Release(select);
2973         IHTMLElement_Release(elem);
2974     }
2975
2976     elem = get_elem_by_id(doc, scW, TRUE);
2977     if(elem) {
2978         IHTMLScriptElement *script;
2979         BSTR type;
2980
2981         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLScriptElement, (void**)&script);
2982         ok(hres == S_OK, "Could not get IHTMLScriptElement interface: %08x\n", hres);
2983
2984         hres = IHTMLScriptElement_get_type(script, &type);
2985         ok(hres == S_OK, "get_type failed: %08x\n", hres);
2986         ok(!lstrcmpW(type, text_javascriptW), "Unexpected type %s\n", dbgstr_w(type));
2987         SysFreeString(type);
2988
2989         IHTMLScriptElement_Release(script);
2990     }
2991
2992     elem = get_elem_by_id(doc, inW, TRUE);
2993     if(elem) {
2994         IHTMLInputElement *input;
2995
2996         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLInputElement, (void**)&input);
2997         ok(hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
2998
2999         test_elem_id((IUnknown*)elem, "in");
3000         test_elem_put_id((IUnknown*)elem, "newin");
3001         test_input_get_disabled(input, VARIANT_FALSE);
3002         test_input_set_disabled(input, VARIANT_TRUE);
3003         test_input_set_disabled(input, VARIANT_FALSE);
3004         test_elem3_set_disabled((IUnknown*)input, VARIANT_TRUE);
3005         test_input_get_disabled(input, VARIANT_TRUE);
3006         test_elem3_set_disabled((IUnknown*)input, VARIANT_FALSE);
3007         test_input_get_disabled(input, VARIANT_FALSE);
3008         test_elem_client_size((IUnknown*)elem);
3009
3010         test_node_get_value_str((IUnknown*)elem, NULL);
3011         test_node_put_value_str((IUnknown*)elem, "test");
3012         test_node_get_value_str((IUnknown*)elem, NULL);
3013         test_input_value((IUnknown*)elem, NULL);
3014         test_input_put_value((IUnknown*)elem, "test");
3015         test_input_value((IUnknown*)elem, NULL);
3016         test_elem_class((IUnknown*)elem, "testclass");
3017         test_elem_tabindex((IUnknown*)elem, 2);
3018         test_elem_set_tabindex((IUnknown*)elem, 3);
3019         test_elem_title((IUnknown*)elem, "test title");
3020
3021         IHTMLInputElement_Release(input);
3022         IHTMLElement_Release(elem);
3023     }
3024
3025     elem = get_elem_by_id(doc, imgidW, TRUE);
3026     if(elem) {
3027         test_img_set_src((IUnknown*)elem, "about:blank");
3028         test_img_alt((IUnknown*)elem, NULL);
3029         test_img_set_alt((IUnknown*)elem, "alt test");
3030         IHTMLElement_Release(elem);
3031     }
3032
3033     elem = get_doc_elem_by_id(doc, tblW);
3034     ok(elem != NULL, "elem == NULL\n");
3035     if(elem) {
3036         test_table_elem(elem);
3037         IHTMLElement_Release(elem);
3038     }
3039
3040     elem = get_doc_elem_by_id(doc, row2W);
3041     ok(elem != NULL, "elem == NULL\n");
3042     if(elem) {
3043         test_tr_elem(elem);
3044         IHTMLElement_Release(elem);
3045     }
3046
3047     elem = get_doc_elem_by_id(doc, ifrW);
3048     ok(elem != NULL, "elem == NULL\n");
3049     if(elem) {
3050         test_iframe_elem(elem);
3051         IHTMLElement_Release(elem);
3052     }
3053
3054     hres = IHTMLDocument2_get_body(doc, &elem);
3055     ok(hres == S_OK, "get_body failed: %08x\n", hres);
3056
3057     node = get_first_child((IUnknown*)elem);
3058     ok(node != NULL, "node == NULL\n");
3059     if(node) {
3060         test_ifaces((IUnknown*)node, text_iids);
3061         test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode);
3062
3063         node2 = get_first_child((IUnknown*)node);
3064         ok(!node2, "node2 != NULL\n");
3065
3066         type = get_node_type((IUnknown*)node);
3067         ok(type == 3, "type=%ld\n", type);
3068
3069         test_node_get_value_str((IUnknown*)node, "text test");
3070         test_node_put_value_str((IUnknown*)elem, "test text");
3071         test_node_get_value_str((IUnknown*)node, "text test");
3072
3073         IHTMLDOMNode_Release(node);
3074     }
3075
3076     child_col = get_child_nodes((IUnknown*)elem);
3077     ok(child_col != NULL, "child_coll == NULL\n");
3078     if(child_col) {
3079         long length = 0;
3080
3081         test_disp((IUnknown*)child_col, &DIID_DispDOMChildrenCollection);
3082
3083         hres = IHTMLDOMChildrenCollection_get_length(child_col, &length);
3084         ok(hres == S_OK, "get_length failed: %08x\n", hres);
3085         ok(length, "length=0\n");
3086
3087         node = get_child_item(child_col, 0);
3088         ok(node != NULL, "node == NULL\n");
3089         if(node) {
3090             type = get_node_type((IUnknown*)node);
3091             ok(type == 3, "type=%ld\n", type);
3092             IHTMLDOMNode_Release(node);
3093         }
3094
3095         node = get_child_item(child_col, 1);
3096         ok(node != NULL, "node == NULL\n");
3097         if(node) {
3098             type = get_node_type((IUnknown*)node);
3099             ok(type == 8, "type=%ld\n", type);
3100
3101             test_elem_id((IUnknown*)node, NULL);
3102             IHTMLDOMNode_Release(node);
3103         }
3104
3105         disp = (void*)0xdeadbeef;
3106         hres = IHTMLDOMChildrenCollection_item(child_col, 6000, &disp);
3107         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3108         ok(disp == (void*)0xdeadbeef, "disp=%p\n", disp);
3109
3110         disp = (void*)0xdeadbeef;
3111         hres = IHTMLDOMChildrenCollection_item(child_col, length, &disp);
3112         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3113         ok(disp == (void*)0xdeadbeef, "disp=%p\n", disp);
3114
3115         test_child_col_disp(child_col);
3116
3117         IHTMLDOMChildrenCollection_Release(child_col);
3118     }
3119
3120     test_elem3_get_disabled((IUnknown*)elem, VARIANT_FALSE);
3121     test_elem3_set_disabled((IUnknown*)elem, VARIANT_TRUE);
3122     test_elem3_set_disabled((IUnknown*)elem, VARIANT_FALSE);
3123
3124     IHTMLElement_Release(elem);
3125
3126     test_stylesheets(doc);
3127     test_create_option_elem(doc);
3128
3129     test_doc_title(doc, "test");
3130     test_doc_set_title(doc, "test title");
3131     test_doc_title(doc, "test title");
3132 }
3133
3134 static void test_create_elems(IHTMLDocument2 *doc)
3135 {
3136     IHTMLElement *elem, *body, *elem2;
3137     IHTMLDOMNode *node;
3138     IDispatch *disp;
3139     long type;
3140     HRESULT hres;
3141
3142     static const elem_type_t types1[] = { ET_TESTG };
3143
3144     elem = test_create_elem(doc, "TEST");
3145     test_elem_tag((IUnknown*)elem, "TEST");
3146     type = get_node_type((IUnknown*)elem);
3147     ok(type == 1, "type=%ld\n", type);
3148     test_ifaces((IUnknown*)elem, elem_iids);
3149     test_disp((IUnknown*)elem, &DIID_DispHTMLGenericElement);
3150
3151     hres = IHTMLDocument2_get_body(doc, &body);
3152     ok(hres == S_OK, "get_body failed: %08x\n", hres);
3153     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
3154
3155     node = test_node_append_child((IUnknown*)body, (IUnknown*)elem);
3156     test_node_has_child((IUnknown*)body, VARIANT_TRUE);
3157     elem2 = get_elem_iface((IUnknown*)node);
3158     IHTMLElement_Release(elem2);
3159
3160     hres = IHTMLElement_get_all(body, &disp);
3161     ok(hres == S_OK, "get_all failed: %08x\n", hres);
3162     test_elem_collection((IUnknown*)disp, types1, sizeof(types1)/sizeof(types1[0]));
3163     IDispatch_Release(disp);
3164
3165     test_node_remove_child((IUnknown*)body, node);
3166
3167     hres = IHTMLElement_get_all(body, &disp);
3168     ok(hres == S_OK, "get_all failed: %08x\n", hres);
3169     test_elem_collection((IUnknown*)disp, NULL, 0);
3170     IDispatch_Release(disp);
3171     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
3172
3173     IHTMLElement_Release(body);
3174     IHTMLElement_Release(elem);
3175     IHTMLDOMNode_Release(node);
3176
3177     node = test_create_text(doc, "test");
3178     test_ifaces((IUnknown*)node, text_iids);
3179     test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode);
3180     IHTMLDOMNode_Release(node);
3181 }
3182
3183 static void test_exec(IUnknown *unk, const GUID *grpid, DWORD cmdid, VARIANT *in, VARIANT *out)
3184 {
3185     IOleCommandTarget *cmdtrg;
3186     HRESULT hres;
3187
3188     hres = IHTMLTxtRange_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3189     ok(hres == S_OK, "Could not get IOleCommandTarget interface: %08x\n", hres);
3190
3191     hres = IOleCommandTarget_Exec(cmdtrg, grpid, cmdid, 0, in, out);
3192     ok(hres == S_OK, "Exec failed: %08x\n", hres);
3193
3194     IOleCommandTarget_Release(cmdtrg);
3195 }
3196
3197 static void test_indent(IHTMLDocument2 *doc)
3198 {
3199     IHTMLElementCollection *col;
3200     IHTMLTxtRange *range;
3201     HRESULT hres;
3202
3203     static const elem_type_t all_types[] = {
3204         ET_HTML,
3205         ET_HEAD,
3206         ET_TITLE,
3207         ET_BODY,
3208         ET_BR,
3209         ET_A,
3210     };
3211
3212     static const elem_type_t indent_types[] = {
3213         ET_HTML,
3214         ET_HEAD,
3215         ET_TITLE,
3216         ET_BODY,
3217         ET_BLOCKQUOTE,
3218         ET_P,
3219         ET_BR,
3220         ET_A,
3221     };
3222
3223     hres = IHTMLDocument2_get_all(doc, &col);
3224     ok(hres == S_OK, "get_all failed: %08x\n", hres);
3225     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
3226     IHTMLElementCollection_Release(col);
3227
3228     range = test_create_body_range(doc);
3229     test_exec((IUnknown*)range, &CGID_MSHTML, IDM_INDENT, NULL, NULL);
3230     IHTMLTxtRange_Release(range);
3231
3232     hres = IHTMLDocument2_get_all(doc, &col);
3233     ok(hres == S_OK, "get_all failed: %08x\n", hres);
3234     test_elem_collection((IUnknown*)col, indent_types, sizeof(indent_types)/sizeof(indent_types[0]));
3235     IHTMLElementCollection_Release(col);
3236 }
3237
3238 static IHTMLDocument2 *notif_doc;
3239 static BOOL doc_complete;
3240
3241 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
3242         REFIID riid, void**ppv)
3243 {
3244     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
3245         *ppv = iface;
3246         return S_OK;
3247     }
3248
3249     ok(0, "unexpected call\n");
3250     return E_NOINTERFACE;
3251 }
3252
3253 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
3254 {
3255     return 2;
3256 }
3257
3258 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
3259 {
3260     return 1;
3261 }
3262
3263 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
3264 {
3265     if(dispID == DISPID_READYSTATE){
3266         BSTR state;
3267         HRESULT hres;
3268
3269         static const WCHAR completeW[] = {'c','o','m','p','l','e','t','e',0};
3270
3271         hres = IHTMLDocument2_get_readyState(notif_doc, &state);
3272         ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
3273
3274         if(!lstrcmpW(state, completeW))
3275             doc_complete = TRUE;
3276
3277         SysFreeString(state);
3278     }
3279
3280     return S_OK;
3281 }
3282
3283 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
3284 {
3285     ok(0, "unexpected call\n");
3286     return E_NOTIMPL;
3287 }
3288
3289 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
3290     PropertyNotifySink_QueryInterface,
3291     PropertyNotifySink_AddRef,
3292     PropertyNotifySink_Release,
3293     PropertyNotifySink_OnChanged,
3294     PropertyNotifySink_OnRequestEdit
3295 };
3296
3297 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
3298
3299 static IHTMLDocument2 *create_doc_with_string(const char *str)
3300 {
3301     IPersistStreamInit *init;
3302     IStream *stream;
3303     IHTMLDocument2 *doc;
3304     HGLOBAL mem;
3305     SIZE_T len;
3306
3307     notif_doc = doc = create_document();
3308     if(!doc)
3309         return NULL;
3310
3311     doc_complete = FALSE;
3312     len = strlen(str);
3313     mem = GlobalAlloc(0, len);
3314     memcpy(mem, str, len);
3315     CreateStreamOnHGlobal(mem, TRUE, &stream);
3316
3317     IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
3318
3319     IPersistStreamInit_Load(init, stream);
3320     IPersistStreamInit_Release(init);
3321     IStream_Release(stream);
3322
3323     return doc;
3324 }
3325
3326 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
3327 {
3328     IConnectionPointContainer *container;
3329     IConnectionPoint *cp;
3330     DWORD cookie;
3331     HRESULT hres;
3332
3333     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
3334     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
3335
3336     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
3337     IConnectionPointContainer_Release(container);
3338     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
3339
3340     hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
3341     IConnectionPoint_Release(cp);
3342     ok(hres == S_OK, "Advise failed: %08x\n", hres);
3343 }
3344
3345 typedef void (*domtest_t)(IHTMLDocument2*);
3346
3347 static void run_domtest(const char *str, domtest_t test)
3348 {
3349     IHTMLDocument2 *doc;
3350     IHTMLElement *body = NULL;
3351     ULONG ref;
3352     MSG msg;
3353     HRESULT hres;
3354
3355     doc = create_doc_with_string(str);
3356     do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
3357
3358     while(!doc_complete && GetMessage(&msg, NULL, 0, 0)) {
3359         TranslateMessage(&msg);
3360         DispatchMessage(&msg);
3361     }
3362
3363     hres = IHTMLDocument2_get_body(doc, &body);
3364     ok(hres == S_OK, "get_body failed: %08x\n", hres);
3365
3366     if(body) {
3367         IHTMLElement_Release(body);
3368         test(doc);
3369     }else {
3370         skip("Could not get document body. Assuming no Gecko installed.\n");
3371     }
3372
3373     ref = IHTMLDocument2_Release(doc);
3374     ok(!ref ||
3375        ref == 1, /* Vista */
3376        "ref = %d\n", ref);
3377 }
3378
3379 static void gecko_installer_workaround(BOOL disable)
3380 {
3381     HKEY hkey;
3382     DWORD res;
3383
3384     static BOOL has_url = FALSE;
3385     static char url[2048];
3386
3387     if(!disable && !has_url)
3388         return;
3389
3390     res = RegOpenKey(HKEY_CURRENT_USER, "Software\\Wine\\MSHTML", &hkey);
3391     if(res != ERROR_SUCCESS)
3392         return;
3393
3394     if(disable) {
3395         DWORD type, size = sizeof(url);
3396
3397         res = RegQueryValueEx(hkey, "GeckoUrl", NULL, &type, (PVOID)url, &size);
3398         if(res == ERROR_SUCCESS && type == REG_SZ)
3399             has_url = TRUE;
3400
3401         RegDeleteValue(hkey, "GeckoUrl");
3402     }else {
3403         RegSetValueEx(hkey, "GeckoUrl", 0, REG_SZ, (PVOID)url, lstrlenA(url)+1);
3404     }
3405
3406     RegCloseKey(hkey);
3407 }
3408
3409 START_TEST(dom)
3410 {
3411     gecko_installer_workaround(TRUE);
3412     CoInitialize(NULL);
3413
3414     run_domtest(doc_str1, test_doc_elem);
3415     run_domtest(range_test_str, test_txtrange);
3416     run_domtest(range_test2_str, test_txtrange2);
3417     run_domtest(elem_test_str, test_elems);
3418     run_domtest(doc_blank, test_create_elems);
3419     run_domtest(doc_blank, test_defaults);
3420     run_domtest(indent_test_str, test_indent);
3421
3422     CoUninitialize();
3423     gecko_installer_workaround(FALSE);
3424 }