git.oblomov.eu Git - wine/blob - dlls/mshtml/tests/dom.c

   1 /*
   2  * Copyright 2007-2011 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 #include "mshtml_test.h"
  35 #include "objsafe.h"
  36 #include "htiface.h"
  37 #include "tlogstg.h"
  38
  39 static INT (WINAPI *pLCIDToLocaleName)(LCID,LPWSTR,INT,DWORD);
  40 static LANGID (WINAPI *pGetUserDefaultUILanguage)(void);
  41
  42 static const char doc_blank[] = "<html></html>";
  43 static const char doc_str1[] = "<html><body>test</body></html>";
  44 static const char range_test_str[] =
  45     "<html><body>test \na<font size=\"2\">bc\t123<br /> it's\r\n  \t</font>text<br /></body></html>";
  46 static const char range_test2_str[] =
  47     "<html><body>abc<hr />123<br /><hr />def</body></html>";
  48 static const char elem_test_str[] =
  49     "<html><head><title>test</title><style id=\"styleid\">.body { margin-right: 0px; }</style>"
  50     "<body onload=\"Testing()\">text test<!-- a comment -->"
  51     "<a id=\"a\" href=\"http://test\" name=\"x\">link</a>"
  52     "<input id=\"in\" class=\"testclass\" tabIndex=\"2\" title=\"test title\" />"
  53     "<select id=\"s\"><option id=\"x\" value=\"val1\">opt1</option><option id=\"y\">opt2</option></select>"
  54     "<textarea id=\"X\">text text</textarea>"
  55     "<table id=\"tbl\"><tbody><tr></tr><tr id=\"row2\"><td>td1 text</td><td>td2 text</td></tr></tbody></table>"
  56     "<script id=\"sc\" type=\"text/javascript\"><!--\nfunction Testing() {}\n// -->\n</script>"
  57     "<test /><object id=\"objid\" vspace=100></object><embed />"
  58     "<img id=\"imgid\" name=\"WineImg\"/>"
  59     "<iframe src=\"about:blank\" id=\"ifr\"></iframe>"
  60     "<form id=\"frm\"></form>"
  61     "<div id=\"attr\" attr1=\"attr1\" attr2 attr3=\"attr3\"></div>"
  62     "</body></html>";
  63 static const char elem_test2_str[] =
  64     "<html><head><title>test</title><style>.body { margin-right: 0px; }</style>"
  65     "<body><div id=\"divid\" emptyattr=\"\" onclick=\"parseInt();\"></div></body>"
  66     "</html>";
  67
  68 static const char indent_test_str[] =
  69     "<html><head><title>test</title></head><body>abc<br /><a href=\"about:blank\">123</a></body></html>";
  70 static const char cond_comment_str[] =
  71     "<html><head><title>test</title></head><body>"
  72     "<!--[if gte IE 4]> <br> <![endif]-->"
  73     "</body></html>";
  74 static const char frameset_str[] =
  75     "<html><head><title>frameset test</title></head><frameset rows=\"25, 25, *\">"
  76     "<frame src=\"about:blank\" name=\"nm1\" id=\"fr1\"><frame src=\"about:blank\" name=\"nm2\" id=\"fr2\">"
  77     "<frame src=\"about:blank\" id=\"fr3\">"
  78     "</frameset></html>";
  79 static const char emptydiv_str[] =
  80     "<html><head><title>emptydiv test</title></head>"
  81     "<body><div id=\"divid\"></div></body></html>";
  82
  83 static WCHAR characterW[] = {'c','h','a','r','a','c','t','e','r',0};
  84 static WCHAR texteditW[] = {'t','e','x','t','e','d','i','t',0};
  85 static WCHAR wordW[] = {'w','o','r','d',0};
  86
  87 typedef enum {
  88     ET_NONE,
  89     ET_HTML,
  90     ET_HEAD,
  91     ET_TITLE,
  92     ET_BODY,
  93     ET_A,
  94     ET_INPUT,
  95     ET_SELECT,
  96     ET_TEXTAREA,
  97     ET_OPTION,
  98     ET_STYLE,
  99     ET_BLOCKQUOTE,
 100     ET_P,
 101     ET_BR,
 102     ET_TABLE,
 103     ET_TBODY,
 104     ET_SCRIPT,
 105     ET_TEST,
 106     ET_TESTG,
 107     ET_COMMENT,
 108     ET_IMG,
 109     ET_TR,
 110     ET_TD,
 111     ET_IFRAME,
 112     ET_FORM,
 113     ET_FRAME,
 114     ET_OBJECT,
 115     ET_EMBED,
 116     ET_DIV
 117 } elem_type_t;
 118
 119 static const IID * const none_iids[] = {
 120     &IID_IUnknown,
 121     NULL
 122 };
 123
 124 static const IID * const doc_node_iids[] = {
 125     &IID_IHTMLDOMNode,
 126     &IID_IHTMLDOMNode2,
 127     &IID_IHTMLDocument,
 128     &IID_IHTMLDocument2,
 129     &IID_IHTMLDocument3,
 130     &IID_IHTMLDocument4,
 131     &IID_IHTMLDocument5,
 132     &IID_IDispatchEx,
 133     &IID_IConnectionPointContainer,
 134     &IID_IInternetHostSecurityManager,
 135     &IID_IOleContainer,
 136     &IID_IObjectSafety,
 137     &IID_IProvideClassInfo,
 138     NULL
 139 };
 140
 141 static const IID * const doc_obj_iids[] = {
 142     &IID_IHTMLDocument,
 143     &IID_IHTMLDocument2,
 144     &IID_IHTMLDocument3,
 145     &IID_IHTMLDocument4,
 146     &IID_IHTMLDocument5,
 147     &IID_IDispatchEx,
 148     &IID_IConnectionPointContainer,
 149     &IID_ICustomDoc,
 150     &IID_IOleContainer,
 151     &IID_IObjectSafety,
 152     &IID_IProvideClassInfo,
 153     &IID_ITargetContainer,
 154     NULL
 155 };
 156
 157 #define ELEM_IFACES \
 158     &IID_IHTMLDOMNode,  \
 159     &IID_IHTMLDOMNode2, \
 160     &IID_IHTMLElement,  \
 161     &IID_IHTMLElement2, \
 162     &IID_IHTMLElement3, \
 163     &IID_IHTMLElement4, \
 164     &IID_IDispatchEx
 165
 166 static const IID * const elem_iids[] = {
 167     ELEM_IFACES,
 168     &IID_IConnectionPointContainer,
 169     NULL
 170 };
 171
 172 static const IID * const body_iids[] = {
 173     ELEM_IFACES,
 174     &IID_IHTMLTextContainer,
 175     &IID_IHTMLBodyElement,
 176     &IID_IConnectionPointContainer,
 177     NULL
 178 };
 179
 180 static const IID * const anchor_iids[] = {
 181     ELEM_IFACES,
 182     &IID_IHTMLAnchorElement,
 183     &IID_IConnectionPointContainer,
 184     NULL
 185 };
 186
 187 static const IID * const input_iids[] = {
 188     ELEM_IFACES,
 189     &IID_IHTMLInputElement,
 190     &IID_IHTMLInputTextElement,
 191     &IID_IConnectionPointContainer,
 192     NULL
 193 };
 194
 195 static const IID * const select_iids[] = {
 196     ELEM_IFACES,
 197     &IID_IHTMLSelectElement,
 198     &IID_IConnectionPointContainer,
 199     NULL
 200 };
 201
 202 static const IID * const textarea_iids[] = {
 203     ELEM_IFACES,
 204     &IID_IHTMLTextAreaElement,
 205     &IID_IConnectionPointContainer,
 206     NULL
 207 };
 208
 209 static const IID * const option_iids[] = {
 210     ELEM_IFACES,
 211     &IID_IHTMLOptionElement,
 212     &IID_IConnectionPointContainer,
 213     NULL
 214 };
 215
 216 static const IID * const table_iids[] = {
 217     ELEM_IFACES,
 218     &IID_IHTMLTable,
 219     &IID_IHTMLTable2,
 220     &IID_IHTMLTable3,
 221     &IID_IConnectionPointContainer,
 222     NULL
 223 };
 224
 225 static const IID * const script_iids[] = {
 226     ELEM_IFACES,
 227     &IID_IHTMLScriptElement,
 228     &IID_IConnectionPointContainer,
 229     NULL
 230 };
 231
 232 static const IID * const text_iids[] = {
 233     &IID_IHTMLDOMNode,
 234     &IID_IHTMLDOMNode2,
 235     &IID_IHTMLDOMTextNode,
 236     NULL
 237 };
 238
 239 static const IID * const attr_iids[] = {
 240     &IID_IHTMLDOMAttribute,
 241     &IID_IDispatchEx,
 242     NULL
 243 };
 244
 245 static const IID * const location_iids[] = {
 246     &IID_IDispatch,
 247     &IID_IHTMLLocation,
 248     NULL
 249 };
 250
 251 static const IID * const window_iids[] = {
 252     &IID_IDispatch,
 253     &IID_IHTMLWindow2,
 254     &IID_IHTMLWindow3,
 255     &IID_IDispatchEx,
 256     &IID_IServiceProvider,
 257     &IID_ITravelLogClient,
 258     NULL
 259 };
 260
 261 static const IID * const comment_iids[] = {
 262     ELEM_IFACES,
 263     &IID_IHTMLCommentElement,
 264     &IID_IConnectionPointContainer,
 265     NULL
 266 };
 267
 268 static const IID * const img_iids[] = {
 269     ELEM_IFACES,
 270     &IID_IHTMLImgElement,
 271     &IID_IConnectionPointContainer,
 272     NULL
 273 };
 274
 275 static const IID * const tr_iids[] = {
 276     ELEM_IFACES,
 277     &IID_IHTMLTableRow,
 278     &IID_IConnectionPointContainer,
 279     NULL
 280 };
 281
 282 static const IID * const td_iids[] = {
 283     ELEM_IFACES,
 284     &IID_IConnectionPointContainer,
 285     NULL
 286 };
 287
 288 static const IID * const frame_iids[] = {
 289     ELEM_IFACES,
 290     &IID_IHTMLFrameBase,
 291     &IID_IHTMLFrameBase2,
 292     &IID_IConnectionPointContainer,
 293     NULL
 294 };
 295
 296 static const IID * const head_iids[] = {
 297     ELEM_IFACES,
 298     &IID_IHTMLHeadElement,
 299     &IID_IConnectionPointContainer,
 300     NULL
 301 };
 302
 303 static const IID * const title_iids[] = {
 304     ELEM_IFACES,
 305     &IID_IHTMLTitleElement,
 306     &IID_IConnectionPointContainer,
 307     NULL
 308 };
 309
 310 static const IID * const object_iids[] = {
 311     ELEM_IFACES,
 312     &IID_IHTMLObjectElement,
 313     /* FIXME: No IConnectionPointContainer */
 314     NULL
 315 };
 316
 317 static const IID * const embed_iids[] = {
 318     ELEM_IFACES,
 319     &IID_IHTMLEmbedElement,
 320     /* FIXME: No IConnectionPointContainer */
 321     NULL
 322 };
 323
 324 static const IID * const iframe_iids[] = {
 325     ELEM_IFACES,
 326     &IID_IHTMLFrameBase,
 327     &IID_IHTMLFrameBase2,
 328     &IID_IHTMLIFrameElement,
 329     &IID_IConnectionPointContainer,
 330     NULL
 331 };
 332
 333 static const IID * const form_iids[] = {
 334     ELEM_IFACES,
 335     &IID_IHTMLFormElement,
 336     &IID_IConnectionPointContainer,
 337     NULL
 338 };
 339
 340 static const IID * const styleelem_iids[] = {
 341     ELEM_IFACES,
 342     &IID_IHTMLStyleElement,
 343     &IID_IConnectionPointContainer,
 344     NULL
 345 };
 346
 347 static const IID * const generic_iids[] = {
 348     ELEM_IFACES,
 349     &IID_IHTMLGenericElement,
 350     &IID_IConnectionPointContainer,
 351     NULL
 352 };
 353
 354 static const IID * const style_iids[] = {
 355     &IID_IUnknown,
 356     &IID_IDispatch,
 357     &IID_IDispatchEx,
 358     &IID_IHTMLStyle,
 359     &IID_IHTMLStyle2,
 360     &IID_IHTMLStyle3,
 361     &IID_IHTMLStyle4,
 362     NULL
 363 };
 364
 365 static const IID * const cstyle_iids[] = {
 366     &IID_IUnknown,
 367     &IID_IDispatch,
 368     &IID_IDispatchEx,
 369     &IID_IHTMLCurrentStyle,
 370     &IID_IHTMLCurrentStyle2,
 371     &IID_IHTMLCurrentStyle3,
 372     NULL
 373 };
 374
 375 static const IID * const img_factory_iids[] = {
 376     &IID_IUnknown,
 377     &IID_IDispatch,
 378     &IID_IDispatchEx,
 379     &IID_IHTMLImageElementFactory,
 380     NULL
 381 };
 382
 383 typedef struct {
 384     const char *tag;
 385     REFIID *iids;
 386     const IID *dispiid;
 387 } elem_type_info_t;
 388
 389 static const elem_type_info_t elem_type_infos[] = {
 390     {"",          none_iids,        NULL},
 391     {"HTML",      elem_iids,        NULL},
 392     {"HEAD",      head_iids,        &DIID_DispHTMLHeadElement},
 393     {"TITLE",     title_iids,       &DIID_DispHTMLTitleElement},
 394     {"BODY",      body_iids,        &DIID_DispHTMLBody},
 395     {"A",         anchor_iids,      &DIID_DispHTMLAnchorElement},
 396     {"INPUT",     input_iids,       &DIID_DispHTMLInputElement},
 397     {"SELECT",    select_iids,      &DIID_DispHTMLSelectElement},
 398     {"TEXTAREA",  textarea_iids,    &DIID_DispHTMLTextAreaElement},
 399     {"OPTION",    option_iids,      &DIID_DispHTMLOptionElement},
 400     {"STYLE",     styleelem_iids,   &DIID_DispHTMLStyleElement},
 401     {"BLOCKQUOTE",elem_iids,        NULL},
 402     {"P",         elem_iids,        NULL},
 403     {"BR",        elem_iids,        NULL},
 404     {"TABLE",     table_iids,       &DIID_DispHTMLTable},
 405     {"TBODY",     elem_iids,        NULL},
 406     {"SCRIPT",    script_iids,      &DIID_DispHTMLScriptElement},
 407     {"TEST",      elem_iids,        &DIID_DispHTMLUnknownElement},
 408     {"TEST",      generic_iids,     &DIID_DispHTMLGenericElement},
 409     {"!",         comment_iids,     &DIID_DispHTMLCommentElement},
 410     {"IMG",       img_iids,         &DIID_DispHTMLImg},
 411     {"TR",        tr_iids,          &DIID_DispHTMLTableRow},
 412     {"TD",        td_iids,          NULL},
 413     {"IFRAME",    iframe_iids,      &DIID_DispHTMLIFrame},
 414     {"FORM",      form_iids,        &DIID_DispHTMLFormElement},
 415     {"FRAME",     frame_iids,       &DIID_DispHTMLFrameElement},
 416     {"OBJECT",    object_iids,      &DIID_DispHTMLObjectElement},
 417     {"EMBED",     embed_iids,       &DIID_DispHTMLEmbed},
 418     {"DIV",       elem_iids,        NULL}
 419 };
 420
 421 static const char *dbgstr_guid(REFIID riid)
 422 {
 423     static char buf[50];
 424
 425     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
 426             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
 427             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
 428             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
 429
 430     return buf;
 431 }
 432
 433 static int strcmp_wa(LPCWSTR strw, const char *stra)
 434 {
 435     CHAR buf[512];
 436     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
 437     return lstrcmpA(stra, buf);
 438 }
 439
 440 static BSTR a2bstr(const char *str)
 441 {
 442     BSTR ret;
 443     int len;
 444
 445     if(!str)
 446         return NULL;
 447
 448     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 449     ret = SysAllocStringLen(NULL, len);
 450     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 451
 452     return ret;
 453 }
 454
 455 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
 456 {
 457     IUnknown *unk1, *unk2;
 458
 459     if(iface1 == iface2)
 460         return TRUE;
 461
 462     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
 463     IUnknown_Release(unk1);
 464     IUnknown_QueryInterface(iface2, &IID_IUnknown, (void**)&unk2);
 465     IUnknown_Release(unk2);
 466
 467     return unk1 == unk2;
 468 }
 469
 470 static IHTMLDocument2 *create_document(void)
 471 {
 472     IHTMLDocument2 *doc;
 473     IHTMLDocument5 *doc5;
 474     HRESULT hres;
 475
 476     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 477             &IID_IHTMLDocument2, (void**)&doc);
 478     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 479     if(FAILED(hres))
 480         return NULL;
 481
 482     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
 483     if(FAILED(hres)) {
 484         win_skip("Could not get IHTMLDocument5, probably too old IE\n");
 485         IHTMLDocument2_Release(doc);
 486         return NULL;
 487     }
 488
 489     IHTMLDocument5_Release(doc5);
 490     return doc;
 491 }
 492
 493 #define get_dispex_iface(u) _get_dispex_iface(__LINE__,u)
 494 static IDispatchEx *_get_dispex_iface(unsigned line, IUnknown *unk)
 495 {
 496     IDispatchEx *dispex;
 497     HRESULT hres;
 498
 499     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 500     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
 501     return dispex;
 502 }
 503
 504 #define test_ifaces(i,ids) _test_ifaces(__LINE__,i,ids)
 505 static void _test_ifaces(unsigned line, IUnknown *iface, REFIID *iids)
 506 {
 507     const IID * const *piid;
 508     IUnknown *unk;
 509     HRESULT hres;
 510
 511      for(piid = iids; *piid; piid++) {
 512         hres = IDispatch_QueryInterface(iface, *piid, (void**)&unk);
 513         ok_(__FILE__,line) (hres == S_OK, "Could not get %s interface: %08x\n", dbgstr_guid(*piid), hres);
 514         if(SUCCEEDED(hres))
 515             IUnknown_Release(unk);
 516     }
 517 }
 518
 519 #define test_no_iface(a,b) _test_no_iface(__LINE__,a,b)
 520 static void _test_no_iface(unsigned line, IUnknown *iface, REFIID iid)
 521 {
 522     IUnknown *unk;
 523     HRESULT hres;
 524
 525     unk = (void*)0xdeadbeef;
 526     hres = IUnknown_QueryInterface(iface, iid, (void**)&unk);
 527     ok_(__FILE__,line)(hres == E_NOINTERFACE, "hres = %08x, expected E_NOINTERFACE\n", hres);
 528     ok_(__FILE__,line)(!unk, "unk = %p\n", unk);
 529 }
 530
 531 #define test_get_dispid(u,id) _test_get_dispid(__LINE__,u,id)
 532 static BOOL _test_get_dispid(unsigned line, IUnknown *unk, IID *iid)
 533 {
 534     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 535     ITypeInfo *typeinfo;
 536     BOOL ret = FALSE;
 537     UINT ticnt;
 538     HRESULT hres;
 539
 540     ticnt = 0xdeadbeef;
 541     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
 542     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
 543     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
 544
 545     hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
 546     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
 547
 548     if(SUCCEEDED(hres)) {
 549         TYPEATTR *type_attr;
 550
 551         hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 552         ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 553         if(hres == S_OK) {
 554             *iid = type_attr->guid;
 555             ret = TRUE;
 556         }
 557
 558         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 559         ITypeInfo_Release(typeinfo);
 560     }
 561
 562     IDispatchEx_Release(dispex);
 563     return ret;
 564 }
 565
 566 #define test_disp_value(u) _test_disp_value(__LINE__,u,v)
 567 static void _test_disp_value(unsigned line, IUnknown *unk, const char *val)
 568 {
 569     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 570     DISPPARAMS dp  = {NULL,NULL,0,0};
 571     EXCEPINFO ei;
 572     VARIANT var;
 573     HRESULT hres;
 574
 575     hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, 0, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
 576     IDispatchEx_Release(dispex);
 577     ok_(__FILE__,line)(hres == S_OK, "InvokeEx(DISPID_VALUE) returned: %08x\n", hres);
 578
 579     ok_(__FILE__,line)(V_VT(&var) == VT_BSTR, "V_VT(value) = %d\n", V_VT(&var));
 580     ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&var), val), "value = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&var)), val);
 581     VariantClear(&var);
 582 }
 583
 584 #define test_disp(u,id,v) _test_disp(__LINE__,u,id,v)
 585 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid, const char *val)
 586 {
 587     IID iid;
 588
 589     if(_test_get_dispid(line, unk, &iid))
 590         ok_(__FILE__,line) (IsEqualGUID(&iid, diid), "unexpected guid %s\n", dbgstr_guid(&iid));
 591
 592     if(val)
 593         _test_disp_value(line, unk, val);
 594 }
 595
 596 #define test_disp2(u,id,id2,v) _test_disp2(__LINE__,u,id,id2,v)
 597 static void _test_disp2(unsigned line, IUnknown *unk, const IID *diid, const IID *diid2, const char *val)
 598 {
 599     IID iid;
 600
 601     if(_test_get_dispid(line, unk, &iid))
 602         ok_(__FILE__,line) (IsEqualGUID(&iid, diid) || broken(IsEqualGUID(&iid, diid2)),
 603                 "unexpected guid %s\n", dbgstr_guid(&iid));
 604
 605     if(val)
 606         _test_disp_value(line, unk, val);
 607 }
 608
 609 #define test_class_info(u) _test_class_info(__LINE__,u)
 610 static void _test_class_info(unsigned line, IUnknown *unk)
 611 {
 612     IProvideClassInfo *classinfo;
 613     ITypeInfo *typeinfo;
 614     TYPEATTR *type_attr;
 615     HRESULT hres;
 616
 617     hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo, (void**)&classinfo);
 618     ok_(__FILE__,line)(hres == S_OK, "Could not get IProvideClassInfo interface: %08x\n", hres);
 619     if(FAILED(hres))
 620         return;
 621
 622     hres = IProvideClassInfo_GetClassInfo(classinfo, &typeinfo);
 623     ok_(__FILE__,line)(hres == S_OK, "Could not get ITypeInfo interface: %08x\n", hres);
 624     if(FAILED(hres))
 625     {
 626         IProvideClassInfo_Release(classinfo);
 627         return;
 628     }
 629
 630     hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 631     ok_(__FILE__,line)(hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 632     if(SUCCEEDED(hres))
 633     {
 634         ok_(__FILE__,line)(IsEqualGUID(&type_attr->guid, &CLSID_HTMLDocument),
 635                 "unexpected guid %s\n", dbgstr_guid(&type_attr->guid));
 636         ok_(__FILE__,line)(type_attr->typekind == TKIND_COCLASS,
 637                 "unexpected typekind %d\n", type_attr->typekind);
 638         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 639     }
 640
 641     ITypeInfo_Release(typeinfo);
 642     IProvideClassInfo_Release(classinfo);
 643 }
 644
 645 #define set_dispex_value(a,b,c) _set_dispex_value(__LINE__,a,b,c)
 646 static void _set_dispex_value(unsigned line, IUnknown *unk, const char *name, VARIANT *val)
 647 {
 648     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 649     DISPPARAMS dp = {val, NULL, 1, 0};
 650     EXCEPINFO ei;
 651     DISPID id;
 652     BSTR str;
 653     HRESULT hres;
 654
 655     str = a2bstr(name);
 656     hres = IDispatchEx_GetDispID(dispex, str, fdexNameEnsure|fdexNameCaseInsensitive, &id);
 657     SysFreeString(str);
 658     ok_(__FILE__,line)(hres == S_OK, "GetDispID failed: %08x\n", hres);
 659
 660     memset(&ei, 0, sizeof(ei));
 661     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYPUT, &dp, NULL, &ei, NULL);
 662     ok_(__FILE__,line)(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 663
 664 }
 665
 666 #define get_elem_iface(u) _get_elem_iface(__LINE__,u)
 667 static IHTMLElement *_get_elem_iface(unsigned line, IUnknown *unk)
 668 {
 669     IHTMLElement *elem;
 670     HRESULT hres;
 671
 672     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement, (void**)&elem);
 673     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement: %08x\n", hres);
 674     return elem;
 675 }
 676
 677 #define get_elem2_iface(u) _get_elem2_iface(__LINE__,u)
 678 static IHTMLElement2 *_get_elem2_iface(unsigned line, IUnknown *unk)
 679 {
 680     IHTMLElement2 *elem;
 681     HRESULT hres;
 682
 683     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement2, (void**)&elem);
 684     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement2: %08x\n", hres);
 685     return elem;
 686 }
 687
 688 #define get_elem3_iface(u) _get_elem3_iface(__LINE__,u)
 689 static IHTMLElement3 *_get_elem3_iface(unsigned line, IUnknown *unk)
 690 {
 691     IHTMLElement3 *elem;
 692     HRESULT hres;
 693
 694     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement3, (void**)&elem);
 695     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement3: %08x\n", hres);
 696     return elem;
 697 }
 698
 699 #define get_elem4_iface(u) _get_elem4_iface(__LINE__,u)
 700 static IHTMLElement4 *_get_elem4_iface(unsigned line, IUnknown *unk)
 701 {
 702     IHTMLElement4 *elem;
 703     HRESULT hres;
 704
 705     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement4, (void**)&elem);
 706     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement4: %08x\n", hres);
 707     return elem;
 708 }
 709
 710 #define get_node_iface(u) _get_node_iface(__LINE__,u)
 711 static IHTMLDOMNode *_get_node_iface(unsigned line, IUnknown *unk)
 712 {
 713     IHTMLDOMNode *node;
 714     HRESULT hres;
 715
 716     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode, (void**)&node);
 717     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMNode: %08x\n", hres);
 718     return node;
 719 }
 720
 721 #define get_node2_iface(u) _get_node2_iface(__LINE__,u)
 722 static IHTMLDOMNode2 *_get_node2_iface(unsigned line, IUnknown *unk)
 723 {
 724     IHTMLDOMNode2 *node;
 725     HRESULT hres;
 726
 727     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode2, (void**)&node);
 728     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMNode2: %08x\n", hres);
 729     return node;
 730 }
 731
 732 #define get_img_iface(u) _get_img_iface(__LINE__,u)
 733 static IHTMLImgElement *_get_img_iface(unsigned line, IUnknown *unk)
 734 {
 735     IHTMLImgElement *img;
 736     HRESULT hres;
 737
 738     hres = IUnknown_QueryInterface(unk, &IID_IHTMLImgElement, (void**)&img);
 739     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLImgElement: %08x\n", hres);
 740     return img;
 741 }
 742
 743 #define get_anchor_iface(u) _get_anchor_iface(__LINE__,u)
 744 static IHTMLAnchorElement *_get_anchor_iface(unsigned line, IUnknown *unk)
 745 {
 746     IHTMLAnchorElement *anchor;
 747     HRESULT hres;
 748
 749     hres = IUnknown_QueryInterface(unk, &IID_IHTMLAnchorElement, (void**)&anchor);
 750     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLAnchorElement: %08x\n", hres);
 751     return anchor;
 752 }
 753
 754 #define get_textarea_iface(u) _get_textarea_iface(__LINE__,u)
 755 static IHTMLTextAreaElement *_get_textarea_iface(unsigned line, IUnknown *unk)
 756 {
 757     IHTMLTextAreaElement *textarea;
 758     HRESULT hres;
 759
 760     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextAreaElement, (void**)&textarea);
 761     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextAreaElement: %08x\n", hres);
 762     return textarea;
 763 }
 764
 765 #define get_select_iface(u) _get_select_iface(__LINE__,u)
 766 static IHTMLSelectElement *_get_select_iface(unsigned line, IUnknown *unk)
 767 {
 768     IHTMLSelectElement *select;
 769     HRESULT hres;
 770
 771     hres = IUnknown_QueryInterface(unk, &IID_IHTMLSelectElement, (void**)&select);
 772     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLSelectElement: %08x\n", hres);
 773     return select;
 774 }
 775
 776 #define get_form_iface(u) _get_form_iface(__LINE__,u)
 777 static IHTMLFormElement *_get_form_iface(unsigned line, IUnknown *unk)
 778 {
 779     IHTMLFormElement *form;
 780     HRESULT hres;
 781
 782     hres = IUnknown_QueryInterface(unk, &IID_IHTMLFormElement, (void**)&form);
 783     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLFormElement: %08x\n", hres);
 784     return form;
 785 }
 786
 787 #define get_text_iface(u) _get_text_iface(__LINE__,u)
 788 static IHTMLDOMTextNode *_get_text_iface(unsigned line, IUnknown *unk)
 789 {
 790     IHTMLDOMTextNode *text;
 791     HRESULT hres;
 792
 793     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMTextNode, (void**)&text);
 794     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMTextNode: %08x\n", hres);
 795     return text;
 796 }
 797
 798 #define get_comment_iface(u) _get_comment_iface(__LINE__,u)
 799 static IHTMLCommentElement *_get_comment_iface(unsigned line, IUnknown *unk)
 800 {
 801     IHTMLCommentElement *comment;
 802     HRESULT hres;
 803
 804     hres = IUnknown_QueryInterface(unk, &IID_IHTMLCommentElement, (void**)&comment);
 805     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLCommentElement: %08x\n", hres);
 806     return comment;
 807 }
 808
 809 #define get_object_iface(u) _get_object_iface(__LINE__,u)
 810 static IHTMLObjectElement *_get_object_iface(unsigned line, IUnknown *unk)
 811 {
 812     IHTMLObjectElement *obj;
 813     HRESULT hres;
 814
 815     hres = IUnknown_QueryInterface(unk, &IID_IHTMLObjectElement, (void**)&obj);
 816     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLObjectElement: %08x\n", hres);
 817     return obj;
 818 }
 819
 820 #define get_style_iface(u) _get_style_iface(__LINE__,u)
 821 static IHTMLStyleElement *_get_style_iface(unsigned line, IUnknown *unk)
 822 {
 823     IHTMLStyleElement *obj;
 824     HRESULT hres;
 825
 826     hres = IUnknown_QueryInterface(unk, &IID_IHTMLStyleElement, (void**)&obj);
 827     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLStyleElement: %08x\n", hres);
 828     return obj;
 829 }
 830
 831 #define test_node_name(u,n) _test_node_name(__LINE__,u,n)
 832 static void _test_node_name(unsigned line, IUnknown *unk, const char *exname)
 833 {
 834     IHTMLDOMNode *node = _get_node_iface(line, unk);
 835     BSTR name;
 836     HRESULT hres;
 837
 838     hres = IHTMLDOMNode_get_nodeName(node, &name);
 839     IHTMLDOMNode_Release(node);
 840     ok_(__FILE__, line) (hres == S_OK, "get_nodeName failed: %08x\n", hres);
 841     ok_(__FILE__, line) (!strcmp_wa(name, exname), "got name: %s, expected %s\n", wine_dbgstr_w(name), exname);
 842
 843     SysFreeString(name);
 844 }
 845
 846 #define get_owner_doc(u) _get_owner_doc(__LINE__,u)
 847 static IHTMLDocument2 *_get_owner_doc(unsigned line, IUnknown *unk)
 848 {
 849     IHTMLDOMNode2 *node = _get_node2_iface(line, unk);
 850     IDispatch *disp = (void*)0xdeadbeef;
 851     IHTMLDocument2 *doc = NULL;
 852     HRESULT hres;
 853
 854     hres = IHTMLDOMNode2_get_ownerDocument(node, &disp);
 855     IHTMLDOMNode2_Release(node);
 856     ok_(__FILE__,line)(hres == S_OK, "get_ownerDocument failed: %08x\n", hres);
 857
 858     if(disp) {
 859         hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&doc);
 860         IDispatch_Release(disp);
 861         ok_(__FILE__,line)(hres == S_OK, "Could not get IHTMLDocument2 iface: %08x\n", hres);
 862     }
 863
 864     return doc;
 865 }
 866
 867 #define get_doc_window(d) _get_doc_window(__LINE__,d)
 868 static IHTMLWindow2 *_get_doc_window(unsigned line, IHTMLDocument2 *doc)
 869 {
 870     IHTMLWindow2 *window;
 871     HRESULT hres;
 872
 873     window = NULL;
 874     hres = IHTMLDocument2_get_parentWindow(doc, &window);
 875     ok_(__FILE__,line)(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
 876     ok_(__FILE__,line)(window != NULL, "window == NULL\n");
 877
 878     return window;
 879 }
 880
 881 #define clone_node(n,d) _clone_node(__LINE__,n,d)
 882 static IHTMLDOMNode *_clone_node(unsigned line, IUnknown *unk, VARIANT_BOOL deep)
 883 {
 884     IHTMLDOMNode *node = _get_node_iface(line, unk);
 885     IHTMLDOMNode *ret = NULL;
 886     HRESULT hres;
 887
 888     hres = IHTMLDOMNode_cloneNode(node, deep, &ret);
 889     IHTMLDOMNode_Release(node);
 890     ok_(__FILE__,line)(hres == S_OK, "cloneNode failed: %08x\n", hres);
 891     ok_(__FILE__,line)(ret != NULL, "ret == NULL\n");
 892
 893     return ret;
 894
 895 }
 896
 897 #define test_elem_tag(u,n) _test_elem_tag(__LINE__,u,n)
 898 static void _test_elem_tag(unsigned line, IUnknown *unk, const char *extag)
 899 {
 900     IHTMLElement *elem = _get_elem_iface(line, unk);
 901     BSTR tag;
 902     HRESULT hres;
 903
 904     hres = IHTMLElement_get_tagName(elem, &tag);
 905     IHTMLElement_Release(elem);
 906     ok_(__FILE__, line) (hres == S_OK, "get_tagName failed: %08x\n", hres);
 907     ok_(__FILE__, line) (!strcmp_wa(tag, extag), "got tag: %s, expected %s\n", wine_dbgstr_w(tag), extag);
 908
 909     SysFreeString(tag);
 910 }
 911
 912 #define test_elem_type(ifc,t) _test_elem_type(__LINE__,ifc,t)
 913 static void _test_elem_type(unsigned line, IUnknown *unk, elem_type_t type)
 914 {
 915     _test_elem_tag(line, unk, elem_type_infos[type].tag);
 916     _test_ifaces(line, unk, elem_type_infos[type].iids);
 917
 918     if(elem_type_infos[type].dispiid && type != ET_A)
 919         _test_disp(line, unk, elem_type_infos[type].dispiid, "[object]");
 920 }
 921
 922 #define get_node_type(n) _get_node_type(__LINE__,n)
 923 static LONG _get_node_type(unsigned line, IUnknown *unk)
 924 {
 925     IHTMLDOMNode *node = _get_node_iface(line, unk);
 926     LONG type = -1;
 927     HRESULT hres;
 928
 929     hres = IHTMLDOMNode_get_nodeType(node, &type);
 930     ok(hres == S_OK, "get_nodeType failed: %08x\n", hres);
 931
 932     IHTMLDOMNode_Release(node);
 933
 934     return type;
 935 }
 936
 937 #define get_child_nodes(u) _get_child_nodes(__LINE__,u)
 938 static IHTMLDOMChildrenCollection *_get_child_nodes(unsigned line, IUnknown *unk)
 939 {
 940     IHTMLDOMNode *node = _get_node_iface(line, unk);
 941     IHTMLDOMChildrenCollection *col = NULL;
 942     IDispatch *disp;
 943     HRESULT hres;
 944
 945     hres = IHTMLDOMNode_get_childNodes(node, &disp);
 946     IHTMLDOMNode_Release(node);
 947     ok_(__FILE__,line) (hres == S_OK, "get_childNodes failed: %08x\n", hres);
 948     if(FAILED(hres))
 949         return NULL;
 950
 951     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDOMChildrenCollection, (void**)&col);
 952     IDispatch_Release(disp);
 953     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMChildrenCollection: %08x\n", hres);
 954
 955     return col;
 956 }
 957
 958 #define get_child_item(c,i) _get_child_item(__LINE__,c,i)
 959 static IHTMLDOMNode *_get_child_item(unsigned line, IHTMLDOMChildrenCollection *col, LONG idx)
 960 {
 961     IHTMLDOMNode *node = NULL;
 962     IDispatch *disp;
 963     HRESULT hres;
 964
 965     hres = IHTMLDOMChildrenCollection_item(col, idx, &disp);
 966     ok(hres == S_OK, "item failed: %08x\n", hres);
 967
 968     node = _get_node_iface(line, (IUnknown*)disp);
 969     IDispatch_Release(disp);
 970
 971     return node;
 972 }
 973
 974 #define test_elem_attr(e,n,v) _test_elem_attr(__LINE__,e,n,v)
 975 static void _test_elem_attr(unsigned line, IHTMLElement *elem, const char *name, const char *exval)
 976 {
 977     VARIANT value;
 978     BSTR tmp;
 979     HRESULT hres;
 980
 981     VariantInit(&value);
 982
 983     tmp = a2bstr(name);
 984     hres = IHTMLElement_getAttribute(elem, tmp, 0, &value);
 985     SysFreeString(tmp);
 986     ok_(__FILE__,line) (hres == S_OK, "getAttribute failed: %08x\n", hres);
 987
 988     if(exval) {
 989         ok_(__FILE__,line) (V_VT(&value) == VT_BSTR, "vt=%d\n", V_VT(&value));
 990         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&value), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&value)));
 991     }else {
 992         ok_(__FILE__,line) (V_VT(&value) == VT_NULL, "vt=%d\n", V_VT(&value));
 993     }
 994
 995     VariantClear(&value);
 996 }
 997
 998 #define test_elem_offset(a,b) _test_elem_offset(__LINE__,a,b)
 999 static void _test_elem_offset(unsigned line, IUnknown *unk, const char *parent_tag)
1000 {
1001     IHTMLElement *elem = _get_elem_iface(line, unk);
1002     IHTMLElement *off_parent;
1003     LONG l;
1004     HRESULT hres;
1005
1006     hres = IHTMLElement_get_offsetTop(elem, &l);
1007     ok_(__FILE__,line) (hres == S_OK, "get_offsetTop failed: %08x\n", hres);
1008
1009     hres = IHTMLElement_get_offsetHeight(elem, &l);
1010     ok_(__FILE__,line) (hres == S_OK, "get_offsetHeight failed: %08x\n", hres);
1011
1012     hres = IHTMLElement_get_offsetWidth(elem, &l);
1013     ok_(__FILE__,line) (hres == S_OK, "get_offsetWidth failed: %08x\n", hres);
1014
1015     hres = IHTMLElement_get_offsetLeft(elem, &l);
1016     ok_(__FILE__,line) (hres == S_OK, "get_offsetLeft failed: %08x\n", hres);
1017
1018     hres = IHTMLElement_get_offsetParent(elem, &off_parent);
1019     ok_(__FILE__,line) (hres == S_OK, "get_offsetParent failed: %08x\n", hres);
1020
1021     _test_elem_tag(line, (IUnknown*)off_parent, parent_tag);
1022     IHTMLElement_Release(off_parent);
1023
1024     IHTMLElement_Release(elem);
1025 }
1026
1027 #define get_doc_node(d) _get_doc_node(__LINE__,d)
1028 static IHTMLDocument2 *_get_doc_node(unsigned line, IHTMLDocument2 *doc)
1029 {
1030     IHTMLWindow2 *window;
1031     IHTMLDocument2 *ret;
1032     HRESULT hres;
1033
1034     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1035     ok_(__FILE__,line)(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
1036
1037     hres = IHTMLWindow2_get_document(window, &ret);
1038     ok_(__FILE__,line)(hres == S_OK, "get_document failed: %08x\n", hres);
1039     ok_(__FILE__,line)(ret != NULL, "document = NULL\n");
1040
1041     return ret;
1042 }
1043
1044 #define test_window_name(d,e) _test_window_name(__LINE__,d,e)
1045 static void _test_window_name(unsigned line, IHTMLWindow2 *window, const char *exname)
1046 {
1047     BSTR name;
1048     HRESULT hres;
1049
1050     hres = IHTMLWindow2_get_name(window, &name);
1051     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
1052     if(exname)
1053         ok_(__FILE__,line)(!strcmp_wa(name, exname), "name = %s\n", wine_dbgstr_w(name));
1054     else
1055         ok_(__FILE__,line)(!name, "name = %s\n", wine_dbgstr_w(name));
1056     SysFreeString(name);
1057 }
1058
1059 #define set_window_name(w,n) _set_window_name(__LINE__,w,n)
1060 static void _set_window_name(unsigned line, IHTMLWindow2 *window, const char *name)
1061 {
1062     BSTR str;
1063     HRESULT hres;
1064
1065     str = a2bstr(name);
1066     hres = IHTMLWindow2_put_name(window, str);
1067     SysFreeString(str);
1068     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
1069
1070     _test_window_name(line, window, name);
1071 }
1072
1073 #define test_window_status(d) _test_window_status(__LINE__,d)
1074 static void _test_window_status(unsigned line, IHTMLWindow2 *window)
1075 {
1076     BSTR status;
1077     HRESULT hres;
1078
1079     status = (void*)0xdeadbeef;
1080     hres = IHTMLWindow2_get_status(window, &status);
1081     ok_(__FILE__,line)(hres == S_OK, "get_status failed: %08x\n", hres);
1082     ok_(__FILE__,line)(!status, "status = %s\n", wine_dbgstr_w(status));
1083     SysFreeString(status);
1084 }
1085
1086 #define set_window_status(w,n) _set_window_status(__LINE__,w,n)
1087 static void _set_window_status(unsigned line, IHTMLWindow2 *window, const char *status)
1088 {
1089     BSTR str;
1090     HRESULT hres;
1091
1092     str = a2bstr(status);
1093     hres = IHTMLWindow2_put_status(window, str);
1094     SysFreeString(str);
1095     ok_(__FILE__,line)(hres == S_OK, "put_status failed: %08x\n", hres);
1096 }
1097
1098 #define test_window_length(w,l) _test_window_length(__LINE__,w,l)
1099 static void _test_window_length(unsigned line, IHTMLWindow2 *window, LONG exlen)
1100 {
1101     LONG length = -1;
1102     HRESULT hres;
1103
1104     hres = IHTMLWindow2_get_length(window, &length);
1105     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
1106     ok_(__FILE__,line)(length == exlen, "length = %d, expected %d\n", length, exlen);
1107 }
1108
1109 #define get_frame_content_window(e) _get_frame_content_window(__LINE__,e)
1110 static IHTMLWindow2 *_get_frame_content_window(unsigned line, IUnknown *elem)
1111 {
1112     IHTMLFrameBase2 *base2;
1113     IHTMLWindow2 *window;
1114     HRESULT hres;
1115
1116     hres = IUnknown_QueryInterface(elem, &IID_IHTMLFrameBase2, (void**)&base2);
1117     ok(hres == S_OK, "Could not get IHTMFrameBase2 iface: %08x\n", hres);
1118
1119     window = NULL;
1120     hres = IHTMLFrameBase2_get_contentWindow(base2, &window);
1121     IHTMLFrameBase2_Release(base2);
1122     ok(hres == S_OK, "get_contentWindow failed: %08x\n", hres);
1123     ok(window != NULL, "contentWindow = NULL\n");
1124
1125     return window;
1126 }
1127
1128 static void test_get_set_attr(IHTMLDocument2 *doc)
1129 {
1130     IHTMLElement *elem;
1131     IHTMLDocument3 *doc3;
1132     HRESULT hres;
1133     BSTR bstr;
1134     VARIANT val;
1135
1136     /* grab an element to test with */
1137     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1138     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
1139
1140     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
1141     IHTMLDocument3_Release(doc3);
1142     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
1143
1144     /* get a non-present attribute */
1145     bstr = a2bstr("notAnAttribute");
1146     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1147     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1148     ok(V_VT(&val) == VT_NULL, "variant type should have been VT_NULL (0x%x), was: 0x%x\n", VT_NULL, V_VT(&val));
1149     VariantClear(&val);
1150     SysFreeString(bstr);
1151
1152     /* get a present attribute */
1153     bstr = a2bstr("scrollHeight");
1154     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1155     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1156     ok(V_VT(&val) == VT_I4, "variant type should have been VT_I4 (0x%x), was: 0x%x\n", VT_I4, V_VT(&val));
1157     VariantClear(&val);
1158     SysFreeString(bstr);
1159
1160     /* create a new BSTR attribute */
1161     bstr = a2bstr("newAttribute");
1162
1163     V_VT(&val) = VT_BSTR;
1164     V_BSTR(&val) = a2bstr("the value");
1165     hres = IHTMLElement_setAttribute(elem, bstr, val, 0);
1166     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1167     VariantClear(&val);
1168
1169     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1170     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1171     ok(V_VT(&val) == VT_BSTR, "variant type should have been VT_BSTR (0x%x), was: 0x%x\n", VT_BSTR, V_VT(&val));
1172     ok(strcmp_wa(V_BSTR(&val), "the value") == 0, "variant value should have been L\"the value\", was %s\n", wine_dbgstr_w(V_BSTR(&val)));
1173     VariantClear(&val);
1174
1175     /* overwrite the attribute with a BOOL */
1176     V_VT(&val) = VT_BOOL;
1177     V_BOOL(&val) = VARIANT_TRUE;
1178     hres = IHTMLElement_setAttribute(elem, bstr, val, 0);
1179     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1180     VariantClear(&val);
1181
1182     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1183     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1184     ok(V_VT(&val) == VT_BOOL, "variant type should have been VT_BOOL (0x%x), was: 0x%x\n", VT_BOOL, V_VT(&val));
1185     ok(V_BOOL(&val) == VARIANT_TRUE, "variant value should have been VARIANT_TRUE (0x%x), was %d\n", VARIANT_TRUE, V_BOOL(&val));
1186     VariantClear(&val);
1187
1188     SysFreeString(bstr);
1189
1190     /* case-insensitive */
1191     bstr = a2bstr("newattribute");
1192     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1193     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1194     ok(V_VT(&val) == VT_BOOL, "variant type should have been VT_BOOL (0x%x), was: 0x%x\n", VT_BOOL, V_VT(&val));
1195     ok(V_BOOL(&val) == VARIANT_TRUE, "variant value should have been VARIANT_TRUE (0x%x), was %d\n", VARIANT_TRUE, V_BOOL(&val));
1196     VariantClear(&val);
1197     SysFreeString(bstr);
1198
1199     IHTMLElement_Release(elem);
1200 }
1201
1202 #define get_doc_elem(d) _get_doc_elem(__LINE__,d)
1203 static IHTMLElement *_get_doc_elem(unsigned line, IHTMLDocument2 *doc)
1204 {
1205     IHTMLElement *elem;
1206     IHTMLDocument3 *doc3;
1207     HRESULT hres;
1208
1209     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1210     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 interface: %08x\n", hres);
1211     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
1212     ok_(__FILE__,line) (hres == S_OK, "get_documentElement failed: %08x\n", hres);
1213     IHTMLDocument3_Release(doc3);
1214
1215     return elem;
1216 }
1217
1218 #define test_anchor_href(a,h) _test_anchor_href(__LINE__,a,h)
1219 static void _test_anchor_href(unsigned line, IUnknown *unk, const char *exhref)
1220 {
1221     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1222     BSTR str;
1223     HRESULT hres;
1224
1225     hres = IHTMLAnchorElement_get_href(anchor, &str);
1226     ok_(__FILE__,line)(hres == S_OK, "get_href failed: %08x\n", hres);
1227     ok_(__FILE__,line)(!strcmp_wa(str, exhref), "href = %s, expected %s\n", wine_dbgstr_w(str), exhref);
1228     SysFreeString(str);
1229
1230     _test_disp_value(line, unk, exhref);
1231 }
1232
1233 #define test_anchor_put_href(a,h) _test_anchor_put_href(__LINE__,a,h)
1234 static void _test_anchor_put_href(unsigned line, IUnknown *unk, const char *exhref)
1235 {
1236     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1237     BSTR str;
1238     HRESULT hres;
1239
1240     str = a2bstr(exhref);
1241     hres = IHTMLAnchorElement_put_href(anchor, str);
1242     ok_(__FILE__,line)(hres == S_OK, "get_href failed: %08x\n", hres);
1243     SysFreeString(str);
1244
1245     _test_disp_value(line, unk, exhref);
1246 }
1247
1248 #define test_anchor_get_target(a,h) _test_anchor_get_target(__LINE__,a,h)
1249 static void _test_anchor_get_target(unsigned line, IUnknown *unk, const char *target)
1250 {
1251     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1252     BSTR str;
1253     HRESULT hres;
1254
1255     hres = IHTMLAnchorElement_get_target(anchor, &str);
1256     ok_(__FILE__,line)(hres == S_OK, "get_target failed: %08x\n", hres);
1257     if(target)
1258         ok_(__FILE__,line)(!strcmp_wa(str, target), "target = %s, expected %s\n", wine_dbgstr_w(str), target);
1259     else
1260         ok_(__FILE__,line)(str == NULL, "target = %s, expected NULL\n", wine_dbgstr_w(str));
1261     SysFreeString(str);
1262 }
1263
1264 #define test_anchor_put_target(a,h) _test_anchor_put_target(__LINE__,a,h)
1265 static void _test_anchor_put_target(unsigned line, IUnknown *unk, const char *target)
1266 {
1267     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1268     BSTR str;
1269     HRESULT hres;
1270
1271     str = target ? a2bstr(target) : NULL;
1272     hres = IHTMLAnchorElement_put_target(anchor, str);
1273     ok_(__FILE__,line)(hres == S_OK, "put_target failed: %08x\n", hres);
1274     SysFreeString(str);
1275 }
1276
1277
1278 #define test_option_text(o,t) _test_option_text(__LINE__,o,t)
1279 static void _test_option_text(unsigned line, IHTMLOptionElement *option, const char *text)
1280 {
1281     BSTR bstr;
1282     HRESULT hres;
1283
1284     hres = IHTMLOptionElement_get_text(option, &bstr);
1285     ok_(__FILE__,line) (hres == S_OK, "get_text failed: %08x\n", hres);
1286     ok_(__FILE__,line) (!strcmp_wa(bstr, text), "text=%s\n", wine_dbgstr_w(bstr));
1287     SysFreeString(bstr);
1288 }
1289
1290 #define test_option_put_text(o,t) _test_option_put_text(__LINE__,o,t)
1291 static void _test_option_put_text(unsigned line, IHTMLOptionElement *option, const char *text)
1292 {
1293     BSTR bstr;
1294     HRESULT hres;
1295
1296     bstr = a2bstr(text);
1297     hres = IHTMLOptionElement_put_text(option, bstr);
1298     SysFreeString(bstr);
1299     ok(hres == S_OK, "put_text failed: %08x\n", hres);
1300
1301     _test_option_text(line, option, text);
1302 }
1303
1304 #define test_option_value(o,t) _test_option_value(__LINE__,o,t)
1305 static void _test_option_value(unsigned line, IHTMLOptionElement *option, const char *value)
1306 {
1307     BSTR bstr;
1308     HRESULT hres;
1309
1310     hres = IHTMLOptionElement_get_value(option, &bstr);
1311     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1312     ok_(__FILE__,line) (!strcmp_wa(bstr, value), "value=%s\n", wine_dbgstr_w(bstr));
1313     SysFreeString(bstr);
1314 }
1315
1316 #define test_option_put_value(o,t) _test_option_put_value(__LINE__,o,t)
1317 static void _test_option_put_value(unsigned line, IHTMLOptionElement *option, const char *value)
1318 {
1319     BSTR bstr;
1320     HRESULT hres;
1321
1322     bstr = a2bstr(value);
1323     hres = IHTMLOptionElement_put_value(option, bstr);
1324     SysFreeString(bstr);
1325     ok(hres == S_OK, "put_value failed: %08x\n", hres);
1326
1327     _test_option_value(line, option, value);
1328 }
1329
1330 #define test_option_selected(o,s) _test_option_selected(__LINE__,o,s)
1331 static void _test_option_selected(unsigned line, IHTMLOptionElement *option, VARIANT_BOOL ex)
1332 {
1333     VARIANT_BOOL b = 0x100;
1334     HRESULT hres;
1335
1336     hres = IHTMLOptionElement_get_selected(option, &b);
1337     ok_(__FILE__,line)(hres == S_OK, "get_selected failed: %08x\n", hres);
1338     ok_(__FILE__,line)(b == ex, "selected = %x, expected %x\n", b, ex);
1339 }
1340
1341 #define test_option_put_selected(o,s) _test_option_put_selected(__LINE__,o,s)
1342 static void _test_option_put_selected(unsigned line, IHTMLOptionElement *option, VARIANT_BOOL b)
1343 {
1344     HRESULT hres;
1345
1346     hres = IHTMLOptionElement_put_selected(option, b);
1347     ok_(__FILE__,line)(hres == S_OK, "put_selected failed: %08x\n", hres);
1348     _test_option_selected(line, option, b);
1349 }
1350
1351 #define test_textarea_value(t,v) _test_textarea_value(__LINE__,t,v)
1352 static void _test_textarea_value(unsigned line, IUnknown *unk, const char *exval)
1353 {
1354     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1355     BSTR value = (void*)0xdeadbeef;
1356     HRESULT hres;
1357
1358     hres = IHTMLTextAreaElement_get_value(textarea, &value);
1359     IHTMLTextAreaElement_Release(textarea);
1360     ok_(__FILE__,line)(hres == S_OK, "get_value failed: %08x\n", hres);
1361     if(exval)
1362         ok_(__FILE__,line)(!strcmp_wa(value, exval), "value = %s, expected %s\n", wine_dbgstr_w(value), exval);
1363     else
1364         ok_(__FILE__,line)(!value, "value = %p\n", value);
1365     SysFreeString(value);
1366 }
1367
1368 #define test_textarea_put_value(t,v) _test_textarea_put_value(__LINE__,t,v)
1369 static void _test_textarea_put_value(unsigned line, IUnknown *unk, const char *value)
1370 {
1371     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1372     BSTR tmp = a2bstr(value);
1373     HRESULT hres;
1374
1375     hres = IHTMLTextAreaElement_put_value(textarea, tmp);
1376     IHTMLTextAreaElement_Release(textarea);
1377     ok_(__FILE__,line)(hres == S_OK, "put_value failed: %08x\n", hres);
1378     SysFreeString(tmp);
1379
1380     _test_textarea_value(line, unk, value);
1381 }
1382
1383 #define test_textarea_readonly(t,v) _test_textarea_readonly(__LINE__,t,v)
1384 static void _test_textarea_readonly(unsigned line, IUnknown *unk, VARIANT_BOOL ex)
1385 {
1386     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1387     VARIANT_BOOL b = 0x100;
1388     HRESULT hres;
1389
1390     hres = IHTMLTextAreaElement_get_readOnly(textarea, &b);
1391     IHTMLTextAreaElement_Release(textarea);
1392     ok_(__FILE__,line)(hres == S_OK, "get_readOnly failed: %08x\n", hres);
1393     ok_(__FILE__,line)(b == ex, "readOnly = %x, expected %x\n", b, ex);
1394 }
1395
1396 #define test_textarea_put_readonly(t,v) _test_textarea_put_readonly(__LINE__,t,v)
1397 static void _test_textarea_put_readonly(unsigned line, IUnknown *unk, VARIANT_BOOL b)
1398 {
1399     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1400     HRESULT hres;
1401
1402     hres = IHTMLTextAreaElement_put_readOnly(textarea, b);
1403     IHTMLTextAreaElement_Release(textarea);
1404     ok_(__FILE__,line)(hres == S_OK, "put_readOnly failed: %08x\n", hres);
1405
1406     _test_textarea_readonly(line, unk, b);
1407 }
1408
1409 #define test_textarea_type(t) _test_textarea_type(__LINE__,t)
1410 static void _test_textarea_type(unsigned line, IUnknown *unk)
1411 {
1412     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1413     BSTR type = (void*)0xdeadbeef;
1414     HRESULT hres;
1415
1416     hres = IHTMLTextAreaElement_get_type(textarea, &type);
1417     IHTMLTextAreaElement_Release(textarea);
1418     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
1419     ok_(__FILE__,line)(!strcmp_wa(type, "textarea"), "type = %s, expected textarea\n", wine_dbgstr_w(type));
1420     SysFreeString(type);
1421 }
1422
1423 #define test_comment_text(c,t) _test_comment_text(__LINE__,c,t)
1424 static void _test_comment_text(unsigned line, IUnknown *unk, const char *extext)
1425 {
1426     IHTMLCommentElement *comment = _get_comment_iface(__LINE__,unk);
1427     BSTR text;
1428     HRESULT hres;
1429
1430     text = a2bstr(extext);
1431     hres = IHTMLCommentElement_get_text(comment, &text);
1432     ok_(__FILE__,line)(hres == S_OK, "get_text failed: %08x\n", hres);
1433     ok_(__FILE__,line)(!strcmp_wa(text, extext), "text = \"%s\", expected \"%s\"\n", wine_dbgstr_w(text), extext);
1434
1435     IHTMLCommentElement_Release(comment);
1436     SysFreeString(text);
1437 }
1438
1439 #define test_comment_attrs(c) _test_comment_attrs(__LINE__,c)
1440 static void _test_comment_attrs(unsigned line, IUnknown *unk)
1441 {
1442     IHTMLCommentElement *comment = _get_comment_iface(__LINE__,unk);
1443     IHTMLElement *elem = _get_elem_iface(__LINE__,unk);
1444     IHTMLElement4 *elem4 = _get_elem4_iface(__LINE__,unk);
1445     IHTMLDOMAttribute *attr;
1446     BSTR name = a2bstr("test");
1447     VARIANT val;
1448     HRESULT hres;
1449
1450     hres = IHTMLElement4_getAttributeNode(elem4, name, &attr);
1451     ok(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
1452     ok(attr == NULL, "attr != NULL\n");
1453
1454     V_VT(&val) = VT_I4;
1455     V_I4(&val) = 1234;
1456     hres = IHTMLElement_setAttribute(elem, name, val, 0);
1457     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1458
1459     hres = IHTMLElement4_getAttributeNode(elem4, name, &attr);
1460     ok(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
1461     ok(attr != NULL, "attr == NULL\n");
1462
1463     IHTMLDOMAttribute_Release(attr);
1464     IHTMLCommentElement_Release(comment);
1465     IHTMLElement_Release(elem);
1466     IHTMLElement4_Release(elem);
1467     SysFreeString(name);
1468 }
1469
1470 #define test_object_vspace(u,s) _test_object_vspace(__LINE__,u,s)
1471 static void _test_object_vspace(unsigned line, IUnknown *unk, LONG exl)
1472 {
1473     IHTMLObjectElement *object = _get_object_iface(line, unk);
1474     LONG l;
1475     HRESULT hres;
1476
1477     l = 0xdeadbeef;
1478     hres = IHTMLObjectElement_get_vspace(object, &l);
1479     ok_(__FILE__,line)(hres == S_OK, "get_vspace failed: %08x\n", hres);
1480     ok_(__FILE__,line)(l == exl, "vspace=%d, expected %d\n", l, exl);
1481     IHTMLObjectElement_Release(object);
1482 }
1483
1484 #define create_option_elem(d,t,v) _create_option_elem(__LINE__,d,t,v)
1485 static IHTMLOptionElement *_create_option_elem(unsigned line, IHTMLDocument2 *doc,
1486         const char *txt, const char *val)
1487 {
1488     IHTMLOptionElementFactory *factory;
1489     IHTMLOptionElement *option;
1490     IHTMLWindow2 *window;
1491     VARIANT text, value, empty;
1492     HRESULT hres;
1493
1494     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1495     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1496
1497     hres = IHTMLWindow2_get_Option(window, &factory);
1498     IHTMLWindow2_Release(window);
1499     ok_(__FILE__,line) (hres == S_OK, "get_Option failed: %08x\n", hres);
1500
1501     V_VT(&text) = VT_BSTR;
1502     V_BSTR(&text) = a2bstr(txt);
1503     V_VT(&value) = VT_BSTR;
1504     V_BSTR(&value) = a2bstr(val);
1505     V_VT(&empty) = VT_EMPTY;
1506
1507     hres = IHTMLOptionElementFactory_create(factory, text, value, empty, empty, &option);
1508     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
1509
1510     IHTMLOptionElementFactory_Release(factory);
1511     VariantClear(&text);
1512     VariantClear(&value);
1513
1514     _test_option_text(line, option, txt);
1515     _test_option_value(line, option, val);
1516     _test_option_selected(line, option, VARIANT_FALSE);
1517
1518     return option;
1519 }
1520
1521 #define test_img_width(o,w) _test_img_width(__LINE__,o,w)
1522 static void _test_img_width(unsigned line, IHTMLImgElement *img, const LONG exp)
1523 {
1524     LONG found = -1;
1525     HRESULT hres;
1526
1527     hres = IHTMLImgElement_get_width(img, &found);
1528     ok_(__FILE__,line) (hres == S_OK, "get_width failed: %08x\n", hres);
1529     ok_(__FILE__,line) (found == exp, "width=%d\n", found);
1530 }
1531
1532 #define test_img_put_width(o,w) _test_img_put_width(__LINE__,o,w)
1533 static void _test_img_put_width(unsigned line, IHTMLImgElement *img, const LONG width)
1534 {
1535     HRESULT hres;
1536
1537     hres = IHTMLImgElement_put_width(img, width);
1538     ok(hres == S_OK, "put_width failed: %08x\n", hres);
1539
1540     _test_img_width(line, img, width);
1541 }
1542
1543 #define test_img_height(o,h) _test_img_height(__LINE__,o,h)
1544 static void _test_img_height(unsigned line, IHTMLImgElement *img, const LONG exp)
1545 {
1546     LONG found = -1;
1547     HRESULT hres;
1548
1549     hres = IHTMLImgElement_get_height(img, &found);
1550     ok_(__FILE__,line) (hres == S_OK, "get_height failed: %08x\n", hres);
1551     ok_(__FILE__,line) (found == exp, "height=%d\n", found);
1552 }
1553
1554 #define test_img_put_height(o,w) _test_img_put_height(__LINE__,o,w)
1555 static void _test_img_put_height(unsigned line, IHTMLImgElement *img, const LONG height)
1556 {
1557     HRESULT hres;
1558
1559     hres = IHTMLImgElement_put_height(img, height);
1560     ok(hres == S_OK, "put_height failed: %08x\n", hres);
1561
1562     _test_img_height(line, img, height);
1563 }
1564
1565 #define create_img_elem(d,t,v) _create_img_elem(__LINE__,d,t,v)
1566 static IHTMLImgElement *_create_img_elem(unsigned line, IHTMLDocument2 *doc,
1567         LONG wdth, LONG hght)
1568 {
1569     IHTMLImageElementFactory *factory;
1570     IHTMLImgElement *img;
1571     IHTMLWindow2 *window;
1572     VARIANT width, height;
1573     char buf[16];
1574     HRESULT hres;
1575
1576     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1577     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1578
1579     hres = IHTMLWindow2_get_Image(window, &factory);
1580     IHTMLWindow2_Release(window);
1581     ok_(__FILE__,line) (hres == S_OK, "get_Image failed: %08x\n", hres);
1582
1583     test_ifaces((IUnknown*)factory, img_factory_iids);
1584     test_disp((IUnknown*)factory, &IID_IHTMLImageElementFactory, "[object]");
1585
1586     if(wdth >= 0){
1587         snprintf(buf, 16, "%d", wdth);
1588         V_VT(&width) = VT_BSTR;
1589         V_BSTR(&width) = a2bstr(buf);
1590     }else{
1591         V_VT(&width) = VT_EMPTY;
1592         wdth = 0;
1593     }
1594
1595     if(hght >= 0){
1596         snprintf(buf, 16, "%d", hght);
1597         V_VT(&height) = VT_BSTR;
1598         V_BSTR(&height) = a2bstr(buf);
1599     }else{
1600         V_VT(&height) = VT_EMPTY;
1601         hght = 0;
1602     }
1603
1604     hres = IHTMLImageElementFactory_create(factory, width, height, &img);
1605     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
1606
1607     IHTMLImageElementFactory_Release(factory);
1608     VariantClear(&width);
1609     VariantClear(&height);
1610
1611     if(SUCCEEDED(hres)) {
1612         _test_img_width(line, img, wdth);
1613         _test_img_height(line, img, hght);
1614         return img;
1615     }
1616
1617     return NULL;
1618 }
1619
1620 #define test_select_length(s,l) _test_select_length(__LINE__,s,l)
1621 static void _test_select_length(unsigned line, IHTMLSelectElement *select, LONG length)
1622 {
1623     LONG len = 0xdeadbeef;
1624     HRESULT hres;
1625
1626     hres = IHTMLSelectElement_get_length(select, &len);
1627     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
1628     ok_(__FILE__,line) (len == length, "len=%d, expected %d\n", len, length);
1629 }
1630
1631 #define test_select_put_length(s,l) _test_select_put_length(__LINE__,s,l)
1632 static void _test_select_put_length(unsigned line, IUnknown *unk, LONG length)
1633 {
1634     IHTMLSelectElement *select = _get_select_iface(line, unk);
1635     HRESULT hres;
1636
1637     hres = IHTMLSelectElement_put_length(select, length);
1638     ok_(__FILE__,line) (hres == S_OK, "put_length failed: %08x\n", hres);
1639     _test_select_length(line, select, length);
1640     IHTMLSelectElement_Release(select);
1641 }
1642
1643 #define test_select_selidx(s,i) _test_select_selidx(__LINE__,s,i)
1644 static void _test_select_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
1645 {
1646     LONG idx = 0xdeadbeef;
1647     HRESULT hres;
1648
1649     hres = IHTMLSelectElement_get_selectedIndex(select, &idx);
1650     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
1651     ok_(__FILE__,line) (idx == index, "idx=%d, expected %d\n", idx, index);
1652 }
1653
1654 #define test_select_put_selidx(s,i) _test_select_put_selidx(__LINE__,s,i)
1655 static void _test_select_put_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
1656 {
1657     HRESULT hres;
1658
1659     hres = IHTMLSelectElement_put_selectedIndex(select, index);
1660     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
1661     _test_select_selidx(line, select, index);
1662 }
1663
1664 #define test_select_value(s,v) _test_select_value(__LINE__,s,v)
1665 static void _test_select_value(unsigned line, IHTMLSelectElement *select, const char *exval)
1666 {
1667     BSTR val;
1668     HRESULT hres;
1669
1670     hres = IHTMLSelectElement_get_value(select, &val);
1671     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1672     if(exval)
1673         ok_(__FILE__,line) (!strcmp_wa(val, exval), "unexpected value %s\n", wine_dbgstr_w(val));
1674     else
1675         ok_(__FILE__,line) (val == NULL, "val=%s, expected NULL\n", wine_dbgstr_w(val));
1676     SysFreeString(val);
1677 }
1678
1679 #define test_select_set_value(s,v) _test_select_set_value(__LINE__,s,v)
1680 static void _test_select_set_value(unsigned line, IHTMLSelectElement *select, const char *val)
1681 {
1682     BSTR bstr;
1683     HRESULT hres;
1684
1685     bstr = a2bstr(val);
1686     hres = IHTMLSelectElement_put_value(select, bstr);
1687     SysFreeString(bstr);
1688     ok_(__FILE__,line) (hres == S_OK, "put_value failed: %08x\n", hres);
1689 }
1690
1691 #define test_select_type(s,t) _test_select_type(__LINE__,s,t)
1692 static void _test_select_type(unsigned line, IHTMLSelectElement *select, const char *extype)
1693 {
1694     BSTR type;
1695     HRESULT hres;
1696
1697     hres = IHTMLSelectElement_get_type(select, &type);
1698     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
1699     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", wine_dbgstr_w(type), extype);
1700     SysFreeString(type);
1701 }
1702
1703 #define test_range_text(r,t) _test_range_text(__LINE__,r,t)
1704 static void _test_range_text(unsigned line, IHTMLTxtRange *range, const char *extext)
1705 {
1706     BSTR text;
1707     HRESULT hres;
1708
1709     hres = IHTMLTxtRange_get_text(range, &text);
1710     ok_(__FILE__, line) (hres == S_OK, "get_text failed: %08x\n", hres);
1711
1712     if(extext) {
1713         ok_(__FILE__, line) (text != NULL, "text == NULL\n");
1714         ok_(__FILE__, line) (!strcmp_wa(text, extext), "text=%s, expected %s\n", wine_dbgstr_w(text), extext);
1715     }else {
1716         ok_(__FILE__, line) (text == NULL, "text=%s, expected NULL\n", wine_dbgstr_w(text));
1717     }
1718
1719     SysFreeString(text);
1720
1721 }
1722
1723 #define test_range_collapse(r,b) _test_range_collapse(__LINE__,r,b)
1724 static void _test_range_collapse(unsigned line, IHTMLTxtRange *range, BOOL b)
1725 {
1726     HRESULT hres;
1727
1728     hres = IHTMLTxtRange_collapse(range, b);
1729     ok_(__FILE__, line) (hres == S_OK, "collapse failed: %08x\n", hres);
1730     _test_range_text(line, range, NULL);
1731 }
1732
1733 #define test_range_expand(r,u,b,t) _test_range_expand(__LINE__,r,u,b,t)
1734 static void _test_range_expand(unsigned line, IHTMLTxtRange *range, LPWSTR unit,
1735         VARIANT_BOOL exb, const char *extext)
1736 {
1737     VARIANT_BOOL b = 0xe0e0;
1738     HRESULT hres;
1739
1740     hres = IHTMLTxtRange_expand(range, unit, &b);
1741     ok_(__FILE__,line) (hres == S_OK, "expand failed: %08x\n", hres);
1742     ok_(__FILE__,line) (b == exb, "b=%x, expected %x\n", b, exb);
1743     _test_range_text(line, range, extext);
1744 }
1745
1746 #define test_range_move(r,u,c,e) _test_range_move(__LINE__,r,u,c,e)
1747 static void _test_range_move(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
1748 {
1749     LONG c = 0xdeadbeef;
1750     HRESULT hres;
1751
1752     hres = IHTMLTxtRange_move(range, unit, cnt, &c);
1753     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
1754     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
1755     _test_range_text(line, range, NULL);
1756 }
1757
1758 #define test_range_movestart(r,u,c,e) _test_range_movestart(__LINE__,r,u,c,e)
1759 static void _test_range_movestart(unsigned line, IHTMLTxtRange *range,
1760         LPWSTR unit, LONG cnt, LONG excnt)
1761 {
1762     LONG c = 0xdeadbeef;
1763     HRESULT hres;
1764
1765     hres = IHTMLTxtRange_moveStart(range, unit, cnt, &c);
1766     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
1767     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
1768 }
1769
1770 #define test_range_moveend(r,u,c,e) _test_range_moveend(__LINE__,r,u,c,e)
1771 static void _test_range_moveend(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
1772 {
1773     LONG c = 0xdeadbeef;
1774     HRESULT hres;
1775
1776     hres = IHTMLTxtRange_moveEnd(range, unit, cnt, &c);
1777     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
1778     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
1779 }
1780
1781 #define test_range_put_text(r,t) _test_range_put_text(__LINE__,r,t)
1782 static void _test_range_put_text(unsigned line, IHTMLTxtRange *range, const char *text)
1783 {
1784     HRESULT hres;
1785     BSTR bstr = a2bstr(text);
1786
1787     hres = IHTMLTxtRange_put_text(range, bstr);
1788     ok_(__FILE__,line) (hres == S_OK, "put_text failed: %08x\n", hres);
1789     SysFreeString(bstr);
1790     _test_range_text(line, range, NULL);
1791 }
1792
1793 #define test_range_inrange(r1,r2,b) _test_range_inrange(__LINE__,r1,r2,b)
1794 static void _test_range_inrange(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
1795 {
1796     VARIANT_BOOL b;
1797     HRESULT hres;
1798
1799     b = 0xe0e0;
1800     hres = IHTMLTxtRange_inRange(range1, range2, &b);
1801     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
1802     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
1803 }
1804
1805 #define test_range_isequal(r1,r2,b) _test_range_isequal(__LINE__,r1,r2,b)
1806 static void _test_range_isequal(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
1807 {
1808     VARIANT_BOOL b;
1809     HRESULT hres;
1810
1811     b = 0xe0e0;
1812     hres = IHTMLTxtRange_isEqual(range1, range2, &b);
1813     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
1814     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
1815
1816     b = 0xe0e0;
1817     hres = IHTMLTxtRange_isEqual(range2, range1, &b);
1818     ok_(__FILE__,line) (hres == S_OK, "(2->1) isEqual failed: %08x\n", hres);
1819     ok_(__FILE__,line) (b == exb, "(2->1) b=%x, expected %x\n", b, exb);
1820
1821     if(exb) {
1822         test_range_inrange(range1, range2, VARIANT_TRUE);
1823         test_range_inrange(range2, range1, VARIANT_TRUE);
1824     }
1825 }
1826
1827 #define test_range_parent(r,t) _test_range_parent(__LINE__,r,t)
1828 static void _test_range_parent(unsigned line, IHTMLTxtRange *range, elem_type_t type)
1829 {
1830     IHTMLElement *elem;
1831     HRESULT hres;
1832
1833     hres = IHTMLTxtRange_parentElement(range, &elem);
1834     ok_(__FILE__,line) (hres == S_OK, "parentElement failed: %08x\n", hres);
1835
1836     _test_elem_type(line, (IUnknown*)elem, type);
1837
1838     IHTMLElement_Release(elem);
1839 }
1840
1841 #define test_elem_collection(c,t,l) _test_elem_collection(__LINE__,c,t,l)
1842 static void _test_elem_collection(unsigned line, IUnknown *unk,
1843         const elem_type_t *elem_types, LONG exlen)
1844 {
1845     IHTMLElementCollection *col;
1846     LONG len;
1847     DWORD i;
1848     VARIANT name, index;
1849     IDispatch *disp, *disp2;
1850     HRESULT hres;
1851
1852     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElementCollection, (void**)&col);
1853     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
1854
1855     test_disp((IUnknown*)col, &DIID_DispHTMLElementCollection, "[object]");
1856
1857     hres = IHTMLElementCollection_get_length(col, &len);
1858     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
1859     ok_(__FILE__,line) (len == exlen, "len=%d, expected %d\n", len, exlen);
1860
1861     if(len > exlen)
1862         len = exlen;
1863
1864     V_VT(&index) = VT_EMPTY;
1865
1866     for(i=0; i<len; i++) {
1867         V_VT(&name) = VT_I4;
1868         V_I4(&name) = i;
1869         disp = (void*)0xdeadbeef;
1870         hres = IHTMLElementCollection_item(col, name, index, &disp);
1871         ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
1872         ok_(__FILE__,line) (disp != NULL, "item returned NULL\n");
1873         if(FAILED(hres) || !disp)
1874             continue;
1875
1876         _test_elem_type(line, (IUnknown*)disp, elem_types[i]);
1877
1878         if(!i) {
1879             V_VT(&name) = VT_UINT;
1880             V_I4(&name) = 0;
1881             disp2 = (void*)0xdeadbeef;
1882             hres = IHTMLElementCollection_item(col, name, index, &disp2);
1883             ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
1884             ok_(__FILE__,line) (iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
1885             if(disp2)
1886                 IDispatch_Release(disp2);
1887         }
1888
1889         IDispatch_Release(disp);
1890     }
1891
1892     V_VT(&name) = VT_I4;
1893     V_I4(&name) = len;
1894     disp = (void*)0xdeadbeef;
1895     hres = IHTMLElementCollection_item(col, name, index, &disp);
1896     ok_(__FILE__,line) (hres == S_OK, "item failed: %08x\n", hres);
1897     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
1898
1899     V_VT(&name) = VT_I4;
1900     V_I4(&name) = -1;
1901     disp = (void*)0xdeadbeef;
1902     hres = IHTMLElementCollection_item(col, name, index, &disp);
1903     ok_(__FILE__,line) (hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
1904     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
1905
1906     IHTMLElementCollection_Release(col);
1907 }
1908
1909 #define test_elem_all(c,t,l) _test_elem_all(__LINE__,c,t,l)
1910 static void _test_elem_all(unsigned line, IUnknown *unk, const elem_type_t *elem_types, LONG exlen)
1911 {
1912     IHTMLElement *elem = _get_elem_iface(line, unk);
1913     IDispatch *disp;
1914     HRESULT hres;
1915
1916     hres = IHTMLElement_get_all(elem, &disp);
1917     IHTMLElement_Release(elem);
1918     ok_(__FILE__,line)(hres == S_OK, "get_all failed: %08x\n", hres);
1919
1920     _test_elem_collection(line, (IUnknown*)disp, elem_types, exlen);
1921     IDispatch_Release(disp);
1922 }
1923
1924 #define test_elem_getelembytag(u,t,l) _test_elem_getelembytag(__LINE__,u,t,l)
1925 static void _test_elem_getelembytag(unsigned line, IUnknown *unk, elem_type_t type, LONG exlen)
1926 {
1927     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
1928     IHTMLElementCollection *col = NULL;
1929     elem_type_t *types = NULL;
1930     BSTR tmp;
1931     int i;
1932     HRESULT hres;
1933
1934     tmp = a2bstr(elem_type_infos[type].tag);
1935     hres = IHTMLElement2_getElementsByTagName(elem, tmp, &col);
1936     SysFreeString(tmp);
1937     IHTMLElement2_Release(elem);
1938     ok_(__FILE__,line) (hres == S_OK, "getElementByTagName failed: %08x\n", hres);
1939     ok_(__FILE__,line) (col != NULL, "col == NULL\n");
1940
1941     if(exlen) {
1942         types = HeapAlloc(GetProcessHeap(), 0, exlen*sizeof(elem_type_t));
1943         for(i=0; i<exlen; i++)
1944             types[i] = type;
1945     }
1946
1947     _test_elem_collection(line, (IUnknown*)col, types, exlen);
1948
1949     HeapFree(GetProcessHeap(), 0, types);
1950 }
1951
1952 #define test_elem_innertext(e,t) _test_elem_innertext(__LINE__,e,t)
1953 static void _test_elem_innertext(unsigned line, IHTMLElement *elem, const char *extext)
1954 {
1955     BSTR text = NULL;
1956     HRESULT hres;
1957
1958     hres = IHTMLElement_get_innerText(elem, &text);
1959     ok_(__FILE__,line) (hres == S_OK, "get_innerText failed: %08x\n", hres);
1960     ok_(__FILE__,line) (!strcmp_wa(text, extext), "get_innerText returned %s expected %s\n",
1961                         wine_dbgstr_w(text), extext);
1962     SysFreeString(text);
1963 }
1964
1965 #define test_elem_set_innertext(e,t) _test_elem_set_innertext(__LINE__,e,t)
1966 static void _test_elem_set_innertext(unsigned line, IHTMLElement *elem, const char *text)
1967 {
1968     IHTMLDOMChildrenCollection *col;
1969     BSTR str;
1970     HRESULT hres;
1971
1972     str = a2bstr(text);
1973     hres = IHTMLElement_put_innerText(elem, str);
1974     ok_(__FILE__,line) (hres == S_OK, "put_innerText failed: %08x\n", hres);
1975     SysFreeString(str);
1976
1977     _test_elem_innertext(line, elem, text);
1978
1979
1980     col = _get_child_nodes(line, (IUnknown*)elem);
1981     ok(col != NULL, "col == NULL\n");
1982     if(col) {
1983         LONG length = 0, type;
1984         IHTMLDOMNode *node;
1985
1986         hres = IHTMLDOMChildrenCollection_get_length(col, &length);
1987         ok(hres == S_OK, "get_length failed: %08x\n", hres);
1988         ok(length == 1, "length = %d\n", length);
1989
1990         node = _get_child_item(line, col, 0);
1991         ok(node != NULL, "node == NULL\n");
1992         if(node) {
1993             type = _get_node_type(line, (IUnknown*)node);
1994             ok(type == 3, "type=%d\n", type);
1995             IHTMLDOMNode_Release(node);
1996         }
1997
1998         IHTMLDOMChildrenCollection_Release(col);
1999     }
2000
2001 }
2002
2003 #define test_elem_innerhtml(e,t) _test_elem_innerhtml(__LINE__,e,t)
2004 static void _test_elem_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
2005 {
2006     IHTMLElement *elem = _get_elem_iface(line, unk);
2007     BSTR html;
2008     HRESULT hres;
2009
2010     hres = IHTMLElement_get_innerHTML(elem, &html);
2011     ok_(__FILE__,line)(hres == S_OK, "get_innerHTML failed: %08x\n", hres);
2012     if(inner_html)
2013         ok_(__FILE__,line)(!strcmp_wa(html, inner_html), "unexpected innerHTML: %s\n", wine_dbgstr_w(html));
2014     else
2015         ok_(__FILE__,line)(!html, "innerHTML = %s\n", wine_dbgstr_w(html));
2016
2017     IHTMLElement_Release(elem);
2018     SysFreeString(html);
2019 }
2020
2021 #define test_elem_set_innerhtml(e,t) _test_elem_set_innerhtml(__LINE__,e,t)
2022 static void _test_elem_set_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
2023 {
2024     IHTMLElement *elem = _get_elem_iface(line, unk);
2025     BSTR html;
2026     HRESULT hres;
2027
2028     html = a2bstr(inner_html);
2029     hres = IHTMLElement_put_innerHTML(elem, html);
2030     ok_(__FILE__,line)(hres == S_OK, "put_innerHTML failed: %08x\n", hres);
2031
2032     IHTMLElement_Release(elem);
2033     SysFreeString(html);
2034 }
2035
2036 #define test_elem_set_outerhtml(e,t) _test_elem_set_outerhtml(__LINE__,e,t)
2037 static void _test_elem_set_outerhtml(unsigned line, IUnknown *unk, const char *outer_html)
2038 {
2039     IHTMLElement *elem = _get_elem_iface(line, unk);
2040     BSTR html;
2041     HRESULT hres;
2042
2043     html = a2bstr(outer_html);
2044     hres = IHTMLElement_put_outerHTML(elem, html);
2045     ok_(__FILE__,line)(hres == S_OK, "put_outerHTML failed: %08x\n", hres);
2046
2047     IHTMLElement_Release(elem);
2048     SysFreeString(html);
2049 }
2050
2051 #define test_elem_outerhtml(e,t) _test_elem_outerhtml(__LINE__,e,t)
2052 static void _test_elem_outerhtml(unsigned line, IUnknown *unk, const char *outer_html)
2053 {
2054     IHTMLElement *elem = _get_elem_iface(line, unk);
2055     BSTR html;
2056     HRESULT hres;
2057
2058     hres = IHTMLElement_get_outerHTML(elem, &html);
2059     ok_(__FILE__,line)(hres == S_OK, "get_outerHTML failed: %08x\n", hres);
2060     ok_(__FILE__,line)(!strcmp_wa(html, outer_html), "outerHTML = '%s', expected '%s'\n", wine_dbgstr_w(html), outer_html);
2061
2062     IHTMLElement_Release(elem);
2063     SysFreeString(html);
2064 }
2065
2066 #define get_first_child(n) _get_first_child(__LINE__,n)
2067 static IHTMLDOMNode *_get_first_child(unsigned line, IUnknown *unk)
2068 {
2069     IHTMLDOMNode *node = _get_node_iface(line, unk);
2070     IHTMLDOMNode *child = NULL;
2071     HRESULT hres;
2072
2073     hres = IHTMLDOMNode_get_firstChild(node, &child);
2074     IHTMLDOMNode_Release(node);
2075     ok_(__FILE__,line) (hres == S_OK, "get_firstChild failed: %08x\n", hres);
2076
2077     return child;
2078 }
2079
2080 #define test_node_has_child(u,b) _test_node_has_child(__LINE__,u,b)
2081 static void _test_node_has_child(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
2082 {
2083     IHTMLDOMNode *node = _get_node_iface(line, unk);
2084     VARIANT_BOOL b = 0xdead;
2085     HRESULT hres;
2086
2087     hres = IHTMLDOMNode_hasChildNodes(node, &b);
2088     ok_(__FILE__,line) (hres == S_OK, "hasChildNodes failed: %08x\n", hres);
2089     ok_(__FILE__,line) (b == exb, "hasChildNodes=%x, expected %x\n", b, exb);
2090
2091     IHTMLDOMNode_Release(node);
2092 }
2093
2094 #define test_node_get_parent(u) _test_node_get_parent(__LINE__,u)
2095 static IHTMLDOMNode *_test_node_get_parent(unsigned line, IUnknown *unk)
2096 {
2097     IHTMLDOMNode *node = _get_node_iface(line, unk);
2098     IHTMLDOMNode *parent;
2099     HRESULT hres;
2100
2101     hres = IHTMLDOMNode_get_parentNode(node, &parent);
2102     IHTMLDOMNode_Release(node);
2103     ok_(__FILE__,line) (hres == S_OK, "get_parentNode failed: %08x\n", hres);
2104
2105     return parent;
2106 }
2107
2108 #define node_get_next(u) _node_get_next(__LINE__,u)
2109 static IHTMLDOMNode *_node_get_next(unsigned line, IUnknown *unk)
2110 {
2111     IHTMLDOMNode *node = _get_node_iface(line, unk);
2112     IHTMLDOMNode *next;
2113     HRESULT hres;
2114
2115     hres = IHTMLDOMNode_get_nextSibling(node, &next);
2116     IHTMLDOMNode_Release(node);
2117     ok_(__FILE__,line) (hres == S_OK, "get_nextSiblibg failed: %08x\n", hres);
2118
2119     return next;
2120 }
2121
2122 #define node_get_prev(u) _node_get_prev(__LINE__,u)
2123 static IHTMLDOMNode *_node_get_prev(unsigned line, IUnknown *unk)
2124 {
2125     IHTMLDOMNode *node = _get_node_iface(line, unk);
2126     IHTMLDOMNode *prev;
2127     HRESULT hres;
2128
2129     hres = IHTMLDOMNode_get_previousSibling(node, &prev);
2130     IHTMLDOMNode_Release(node);
2131     ok_(__FILE__,line) (hres == S_OK, "get_previousSibling failed: %08x\n", hres);
2132
2133     return prev;
2134 }
2135
2136 #define test_elem_get_parent(u) _test_elem_get_parent(__LINE__,u)
2137 static IHTMLElement *_test_elem_get_parent(unsigned line, IUnknown *unk)
2138 {
2139     IHTMLElement *elem = _get_elem_iface(line, unk);
2140     IHTMLElement *parent;
2141     HRESULT hres;
2142
2143     hres = IHTMLElement_get_parentElement(elem, &parent);
2144     IHTMLElement_Release(elem);
2145     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
2146
2147     return parent;
2148 }
2149
2150 #define test_elem3_get_disabled(i,b) _test_elem3_get_disabled(__LINE__,i,b)
2151 static void _test_elem3_get_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
2152 {
2153     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
2154     VARIANT_BOOL disabled = 100;
2155     HRESULT hres;
2156
2157     if (!elem3) return;
2158     hres = IHTMLElement3_get_disabled(elem3, &disabled);
2159     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2160     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
2161     IHTMLElement3_Release(elem3);
2162 }
2163
2164 #define test_elem3_set_disabled(i,b) _test_elem3_set_disabled(__LINE__,i,b)
2165 static void _test_elem3_set_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL b)
2166 {
2167     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
2168     HRESULT hres;
2169
2170     if (!elem3) return;
2171     hres = IHTMLElement3_put_disabled(elem3, b);
2172     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2173
2174     IHTMLElement3_Release(elem3);
2175     _test_elem3_get_disabled(line, unk, b);
2176 }
2177
2178 #define test_select_get_disabled(i,b) _test_select_get_disabled(__LINE__,i,b)
2179 static void _test_select_get_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL exb)
2180 {
2181     VARIANT_BOOL disabled = 100;
2182     HRESULT hres;
2183
2184     hres = IHTMLSelectElement_get_disabled(select, &disabled);
2185     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2186     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
2187
2188     _test_elem3_get_disabled(line, (IUnknown*)select, exb);
2189 }
2190
2191 #define test_text_length(u,l) _test_text_length(__LINE__,u,l)
2192 static void _test_text_length(unsigned line, IUnknown *unk, LONG l)
2193 {
2194     IHTMLDOMTextNode *text = _get_text_iface(line, unk);
2195     LONG length;
2196     HRESULT hres;
2197
2198     hres = IHTMLDOMTextNode_get_length(text, &length);
2199     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
2200     ok_(__FILE__,line)(length == l, "length = %d, expected %d\n", length, l);
2201     IHTMLDOMTextNode_Release(text);
2202 }
2203
2204 #define test_select_set_disabled(i,b) _test_select_set_disabled(__LINE__,i,b)
2205 static void _test_select_set_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL b)
2206 {
2207     HRESULT hres;
2208
2209     hres = IHTMLSelectElement_put_disabled(select, b);
2210     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2211
2212     _test_select_get_disabled(line, select, b);
2213 }
2214
2215 #define elem_get_scroll_height(u) _elem_get_scroll_height(__LINE__,u)
2216 static LONG _elem_get_scroll_height(unsigned line, IUnknown *unk)
2217 {
2218     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2219     IHTMLTextContainer *txtcont;
2220     LONG l = -1, l2 = -1;
2221     HRESULT hres;
2222
2223     hres = IHTMLElement2_get_scrollHeight(elem, &l);
2224     ok_(__FILE__,line) (hres == S_OK, "get_scrollHeight failed: %08x\n", hres);
2225     IHTMLElement2_Release(elem);
2226
2227     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2228     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2229
2230     hres = IHTMLTextContainer_get_scrollHeight(txtcont, &l2);
2231     IHTMLTextContainer_Release(txtcont);
2232     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollHeight failed: %d\n", l2);
2233     ok_(__FILE__,line) (l == l2, "unexpected height %d, expected %d\n", l2, l);
2234
2235     return l;
2236 }
2237
2238 #define elem_get_scroll_width(u) _elem_get_scroll_width(__LINE__,u)
2239 static LONG _elem_get_scroll_width(unsigned line, IUnknown *unk)
2240 {
2241     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2242     IHTMLTextContainer *txtcont;
2243     LONG l = -1, l2 = -1;
2244     HRESULT hres;
2245
2246     hres = IHTMLElement2_get_scrollWidth(elem, &l);
2247     ok_(__FILE__,line) (hres == S_OK, "get_scrollWidth failed: %08x\n", hres);
2248     IHTMLElement2_Release(elem);
2249
2250     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2251     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2252
2253     hres = IHTMLTextContainer_get_scrollWidth(txtcont, &l2);
2254     IHTMLTextContainer_Release(txtcont);
2255     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollWidth failed: %d\n", l2);
2256     ok_(__FILE__,line) (l == l2, "unexpected width %d, expected %d\n", l2, l);
2257
2258     return l;
2259 }
2260
2261 #define elem_get_scroll_top(u) _elem_get_scroll_top(__LINE__,u)
2262 static LONG _elem_get_scroll_top(unsigned line, IUnknown *unk)
2263 {
2264     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2265     IHTMLTextContainer *txtcont;
2266     LONG l = -1, l2 = -1;
2267     HRESULT hres;
2268
2269     hres = IHTMLElement2_get_scrollTop(elem, &l);
2270     ok_(__FILE__,line) (hres == S_OK, "get_scrollTop failed: %08x\n", hres);
2271     IHTMLElement2_Release(elem);
2272
2273     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2274     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2275
2276     hres = IHTMLTextContainer_get_scrollTop(txtcont, &l2);
2277     IHTMLTextContainer_Release(txtcont);
2278     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollTop failed: %d\n", l2);
2279     ok_(__FILE__,line) (l == l2, "unexpected top %d, expected %d\n", l2, l);
2280
2281     return l;
2282 }
2283
2284 #define elem_get_scroll_left(u) _elem_get_scroll_left(__LINE__,u)
2285 static void _elem_get_scroll_left(unsigned line, IUnknown *unk)
2286 {
2287     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2288     IHTMLTextContainer *txtcont;
2289     LONG l = -1, l2 = -1;
2290     HRESULT hres;
2291
2292     hres = IHTMLElement2_get_scrollLeft(elem, NULL);
2293     ok(hres == E_INVALIDARG, "expect E_INVALIDARG got 0x%08x\n", hres);
2294
2295     hres = IHTMLElement2_get_scrollLeft(elem, &l);
2296     ok(hres == S_OK, "get_scrollTop failed: %08x\n", hres);
2297     IHTMLElement2_Release(elem);
2298
2299     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2300     ok(hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2301
2302     hres = IHTMLTextContainer_get_scrollLeft(txtcont, &l2);
2303     IHTMLTextContainer_Release(txtcont);
2304     ok(hres == S_OK, "IHTMLTextContainer::get_scrollLeft failed: %d\n", l2);
2305     ok(l == l2, "unexpected left %d, expected %d\n", l2, l);
2306 }
2307
2308 #define test_img_src(a,b,c) _test_img_src(__LINE__,a,b,c)
2309 static void _test_img_src(unsigned line, IUnknown *unk, const char *exsrc, const char *broken_src)
2310 {
2311     IHTMLImgElement *img = _get_img_iface(line, unk);
2312     BSTR src;
2313     HRESULT hres;
2314
2315     hres = IHTMLImgElement_get_src(img, &src);
2316     IHTMLImgElement_Release(img);
2317     ok_(__FILE__,line) (hres == S_OK, "get_src failed: %08x\n", hres);
2318     ok_(__FILE__,line) (!strcmp_wa(src, exsrc) || (broken_src && broken(!strcmp_wa(src, broken_src))),
2319         "get_src returned %s expected %s\n", wine_dbgstr_w(src), exsrc);
2320     SysFreeString(src);
2321 }
2322
2323 #define test_img_set_src(u,s) _test_img_set_src(__LINE__,u,s)
2324 static void _test_img_set_src(unsigned line, IUnknown *unk, const char *src)
2325 {
2326     IHTMLImgElement *img = _get_img_iface(line, unk);
2327     BSTR tmp;
2328     HRESULT hres;
2329
2330     tmp = a2bstr(src);
2331     hres = IHTMLImgElement_put_src(img, tmp);
2332     IHTMLImgElement_Release(img);
2333     SysFreeString(tmp);
2334     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
2335 }
2336
2337 #define test_img_alt(u,a) _test_img_alt(__LINE__,u,a)
2338 static void _test_img_alt(unsigned line, IUnknown *unk, const char *exalt)
2339 {
2340     IHTMLImgElement *img = _get_img_iface(line, unk);
2341     BSTR alt;
2342     HRESULT hres;
2343
2344     hres = IHTMLImgElement_get_alt(img, &alt);
2345     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
2346     if(exalt)
2347         ok_(__FILE__,line) (!strcmp_wa(alt, exalt), "inexopected alt %s\n", wine_dbgstr_w(alt));
2348     else
2349         ok_(__FILE__,line) (!alt, "alt != NULL\n");
2350     SysFreeString(alt);
2351 }
2352
2353 #define test_img_set_alt(u,a) _test_img_set_alt(__LINE__,u,a)
2354 static void _test_img_set_alt(unsigned line, IUnknown *unk, const char *alt)
2355 {
2356     IHTMLImgElement *img = _get_img_iface(line, unk);
2357     BSTR tmp;
2358     HRESULT hres;
2359
2360     tmp = a2bstr(alt);
2361     hres = IHTMLImgElement_put_alt(img, tmp);
2362     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
2363     SysFreeString(tmp);
2364
2365     _test_img_alt(line, unk, alt);
2366 }
2367
2368 #define test_img_name(u, c) _test_img_name(__LINE__,u, c)
2369 static void _test_img_name(unsigned line, IUnknown *unk, const char *pValue)
2370 {
2371     IHTMLImgElement *img = _get_img_iface(line, unk);
2372     BSTR sName;
2373     HRESULT hres;
2374
2375     hres = IHTMLImgElement_get_name(img, &sName);
2376     ok_(__FILE__,line) (hres == S_OK, "get_Name failed: %08x\n", hres);
2377     ok_(__FILE__,line) (!strcmp_wa (sName, pValue), "expected '%s' got '%s'\n", pValue, wine_dbgstr_w(sName));
2378     IHTMLImgElement_Release(img);
2379     SysFreeString(sName);
2380 }
2381
2382 static void test_dynamic_properties(IHTMLElement *elem)
2383 {
2384     static const WCHAR attr1W[] = {'a','t','t','r','1',0};
2385     IDispatchEx *dispex;
2386     BSTR name, attr1 = SysAllocString(attr1W);
2387     VARIANT_BOOL succ;
2388     VARIANT val;
2389     int checked_no = 0;
2390     DISPID id = DISPID_STARTENUM;
2391     HRESULT hres;
2392
2393     hres = IHTMLElement_QueryInterface(elem, &IID_IDispatchEx, (void**)&dispex);
2394     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2395
2396     hres = IHTMLElement_removeAttribute(elem, attr1, 0, &succ);
2397     ok(hres == S_OK, "removeAttribute failed: %08x\n", hres);
2398     ok(succ, "removeAttribute set succ to FALSE\n");
2399
2400     while(1) {
2401         hres = IDispatchEx_GetNextDispID(dispex, fdexEnumAll, id, &id);
2402         ok(hres==S_OK || hres==S_FALSE, "GetNextDispID failed: %08x\n", hres);
2403         if(hres != S_OK)
2404             break;
2405
2406         hres = IDispatchEx_GetMemberName(dispex, id, &name);
2407         ok(hres == S_OK, "GetMemberName failed: %08x\n", hres);
2408
2409         if(!strcmp_wa(name, "attr1"))
2410             ok(0, "attr1 should be removed\n");
2411         else if(!strcmp_wa(name, "attr2") || !strcmp_wa(name, "attr3"))
2412             checked_no++;
2413         SysFreeString(name);
2414     }
2415     ok(checked_no == 2, "checked_no=%d, expected 2\n", checked_no);
2416     IDispatchEx_Release(dispex);
2417
2418     V_VT(&val) = VT_BSTR;
2419     V_BSTR(&val) = attr1;
2420     hres = IHTMLElement_setAttribute(elem, attr1, val, 0);
2421     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
2422     SysFreeString(attr1);
2423 }
2424
2425 static void test_attr_collection_disp(IDispatch *disp)
2426 {
2427     IDispatchEx *dispex;
2428     IHTMLDOMAttribute *attr;
2429     DISPPARAMS dp = {NULL, NULL, 0, 0};
2430     VARIANT var;
2431     EXCEPINFO ei;
2432     DISPID id;
2433     BSTR bstr;
2434     HRESULT hres;
2435
2436     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
2437     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2438
2439     bstr = a2bstr("0");
2440     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2441     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2442     SysFreeString(bstr);
2443
2444     VariantInit(&var);
2445     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
2446     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2447     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
2448     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
2449     VariantClear(&var);
2450
2451     bstr = a2bstr("attr1");
2452     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2453     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2454     SysFreeString(bstr);
2455
2456     VariantInit(&var);
2457     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
2458     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2459     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
2460     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
2461     hres = IDispatch_QueryInterface(V_DISPATCH(&var), &IID_IHTMLDOMAttribute, (void**)&attr);
2462     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2463     hres = IHTMLDOMAttribute_get_nodeName(attr, &bstr);
2464     ok(hres == S_OK, "get_nodeName failed: %08x\n", hres);
2465     ok(!strcmp_wa(bstr, "attr1"), "node name is %s, expected attr1\n", wine_dbgstr_w(bstr));
2466     SysFreeString(bstr);
2467     IHTMLDOMAttribute_Release(attr);
2468     VariantClear(&var);
2469
2470     IDispatchEx_Release(dispex);
2471 }
2472
2473 static void test_attr_collection(IHTMLElement *elem)
2474 {
2475     static const WCHAR testW[] = {'t','e','s','t',0};
2476
2477     IHTMLDOMNode *node;
2478     IDispatch *disp, *attr;
2479     IHTMLDOMAttribute *dom_attr;
2480     IHTMLAttributeCollection *attr_col;
2481     BSTR name = SysAllocString(testW);
2482     VARIANT id, val;
2483     LONG i, len, checked;
2484     HRESULT hres;
2485
2486     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLDOMNode, (void**)&node);
2487     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2488
2489     hres = IHTMLDOMNode_get_attributes(node, &disp);
2490     ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
2491
2492     hres = IHTMLDOMNode_get_attributes(node, &attr);
2493     ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
2494     ok(iface_cmp((IUnknown*)disp, (IUnknown*)attr), "disp != attr\n");
2495     IDispatch_Release(attr);
2496     IHTMLDOMNode_Release(node);
2497
2498     hres = IDispatch_QueryInterface(disp, &IID_IHTMLAttributeCollection, (void**)&attr_col);
2499     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2500
2501     hres = IHTMLAttributeCollection_get_length(attr_col, &i);
2502     ok(hres == S_OK, "get_length failed: %08x\n", hres);
2503
2504     V_VT(&val) = VT_I4;
2505     V_I4(&val) = 1;
2506     hres = IHTMLElement_setAttribute(elem, name, val, 0);
2507     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
2508     SysFreeString(name);
2509
2510     hres = IHTMLAttributeCollection_get_length(attr_col, &len);
2511     ok(hres == S_OK, "get_length failed: %08x\n", hres);
2512     ok(len == i+1, "get_length returned %d, expected %d\n", len, i+1);
2513
2514     checked = 0;
2515     for(i=0; i<len; i++) {
2516         V_VT(&id) = VT_I4;
2517         V_I4(&id) = i;
2518         hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
2519         ok(hres == S_OK, "%d) item failed: %08x\n", i, hres);
2520
2521         hres = IDispatch_QueryInterface(attr, &IID_IHTMLDOMAttribute, (void**)&dom_attr);
2522         ok(hres == S_OK, "%d) QueryInterface failed: %08x\n", i, hres);
2523         IDispatch_Release(attr);
2524
2525         hres = IHTMLDOMAttribute_get_nodeName(dom_attr, &name);
2526         ok(hres == S_OK, "%d) get_nodeName failed: %08x\n", i, hres);
2527
2528         if(!strcmp_wa(name, "id")) {
2529             checked++;
2530             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
2531             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
2532             ok(V_VT(&val) == VT_BSTR, "id: V_VT(&val) = %d\n", V_VT(&val));
2533             ok(!strcmp_wa(V_BSTR(&val), "attr"), "id: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
2534         } else if(!strcmp_wa(name, "attr1")) {
2535             checked++;
2536             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
2537             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
2538             ok(V_VT(&val) == VT_BSTR, "attr1: V_VT(&val) = %d\n", V_VT(&val));
2539             ok(!strcmp_wa(V_BSTR(&val), "attr1"), "attr1: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
2540         } else if(!strcmp_wa(name, "attr2")) {
2541             checked++;
2542             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
2543             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
2544             ok(V_VT(&val) == VT_BSTR, "attr2: V_VT(&val) = %d\n", V_VT(&val));
2545             ok(!V_BSTR(&val), "attr2: V_BSTR(&val) != NULL\n");
2546         } else if(!strcmp_wa(name, "attr3")) {
2547             checked++;
2548             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
2549             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
2550             ok(V_VT(&val) == VT_BSTR, "attr3: V_VT(&val) = %d\n", V_VT(&val));
2551             ok(!strcmp_wa(V_BSTR(&val), "attr3"), "attr3: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
2552         } else if(!strcmp_wa(name, "test")) {
2553             checked++;
2554             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
2555             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
2556             ok(V_VT(&val) == VT_I4, "test: V_VT(&val) = %d\n", V_VT(&val));
2557             ok(V_I4(&val) == 1, "test: V_I4(&val) = %d\n", V_I4(&val));
2558         }
2559
2560         IHTMLDOMAttribute_Release(dom_attr);
2561         SysFreeString(name);
2562         VariantClear(&val);
2563     }
2564     ok(checked==5, "invalid number of specified attributes (%d)\n", checked);
2565
2566     V_I4(&id) = len;
2567     hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
2568     ok(hres == E_INVALIDARG, "item failed: %08x\n", hres);
2569
2570     V_VT(&id) = VT_BSTR;
2571     V_BSTR(&id) = a2bstr("nonexisting");
2572     hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
2573     ok(hres == E_INVALIDARG, "item failed: %08x\n", hres);
2574     VariantClear(&id);
2575
2576     test_attr_collection_disp(disp);
2577
2578     IDispatch_Release(disp);
2579     IHTMLAttributeCollection_Release(attr_col);
2580 }
2581
2582 #define test_input_type(i,t) _test_input_type(__LINE__,i,t)
2583 static void _test_input_type(unsigned line, IHTMLInputElement *input, const char *extype)
2584 {
2585     BSTR type;
2586     HRESULT hres;
2587
2588     hres = IHTMLInputElement_get_type(input, &type);
2589     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
2590     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", wine_dbgstr_w(type), extype);
2591     SysFreeString(type);
2592 }
2593
2594 #define test_input_name(u, c) _test_input_name(__LINE__,u, c)
2595 static void _test_input_name(unsigned line, IHTMLInputElement *input, const char *exname)
2596 {
2597     BSTR name = (BSTR)0xdeadbeef;
2598     HRESULT hres;
2599
2600     hres = IHTMLInputElement_get_name(input, &name);
2601     ok_(__FILE__,line) (hres == S_OK, "get_name failed: %08x\n", hres);
2602     if(exname)
2603         ok_(__FILE__,line) (!strcmp_wa (name, exname), "name=%s, expected %s\n", wine_dbgstr_w(name), exname);
2604     else
2605         ok_(__FILE__,line) (!name, "name=%p, expected NULL\n", name);
2606     SysFreeString(name);
2607 }
2608
2609 #define test_input_set_name(u, c) _test_input_set_name(__LINE__,u, c)
2610 static void _test_input_set_name(unsigned line, IHTMLInputElement *input, const char *name)
2611 {
2612     BSTR tmp = a2bstr(name);
2613     HRESULT hres;
2614
2615     hres = IHTMLInputElement_put_name(input, tmp);
2616     ok_(__FILE__,line) (hres == S_OK, "put_name failed: %08x\n", hres);
2617     SysFreeString(tmp);
2618
2619     _test_input_name(line, input, name);
2620 }
2621
2622 #define test_input_get_disabled(i,b) _test_input_get_disabled(__LINE__,i,b)
2623 static void _test_input_get_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
2624 {
2625     VARIANT_BOOL disabled = 100;
2626     HRESULT hres;
2627
2628     hres = IHTMLInputElement_get_disabled(input, &disabled);
2629     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2630     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
2631
2632     _test_elem3_get_disabled(line, (IUnknown*)input, exb);
2633 }
2634
2635 #define test_input_set_disabled(i,b) _test_input_set_disabled(__LINE__,i,b)
2636 static void _test_input_set_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
2637 {
2638     HRESULT hres;
2639
2640     hres = IHTMLInputElement_put_disabled(input, b);
2641     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2642
2643     _test_input_get_disabled(line, input, b);
2644 }
2645
2646 #define test_input_get_defaultchecked(i,b) _test_input_get_defaultchecked(__LINE__,i,b)
2647 static void _test_input_get_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
2648 {
2649     VARIANT_BOOL checked = 100;
2650     HRESULT hres;
2651
2652     hres = IHTMLInputElement_get_defaultChecked(input, &checked);
2653     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
2654     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
2655 }
2656
2657 #define test_input_set_defaultchecked(i,b) _test_input_set_defaultchecked(__LINE__,i,b)
2658 static void _test_input_set_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
2659 {
2660     HRESULT hres;
2661
2662     hres = IHTMLInputElement_put_defaultChecked(input, b);
2663     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
2664
2665     _test_input_get_defaultchecked(line, input, b);
2666 }
2667
2668 #define test_input_get_checked(i,b) _test_input_get_checked(__LINE__,i,b)
2669 static void _test_input_get_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
2670 {
2671     VARIANT_BOOL checked = 100;
2672     HRESULT hres;
2673
2674     hres = IHTMLInputElement_get_checked(input, &checked);
2675     ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
2676     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
2677 }
2678
2679 #define test_input_set_checked(i,b) _test_input_set_checked(__LINE__,i,b)
2680 static void _test_input_set_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
2681 {
2682     HRESULT hres;
2683
2684     hres = IHTMLInputElement_put_checked(input, b);
2685     ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
2686
2687     _test_input_get_checked(line, input, b);
2688 }
2689
2690 #define test_input_value(o,t) _test_input_value(__LINE__,o,t)
2691 static void _test_input_value(unsigned line, IUnknown *unk, const char *exval)
2692 {
2693     IHTMLInputElement *input;
2694     BSTR bstr;
2695     HRESULT hres;
2696
2697     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
2698     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
2699     if(FAILED(hres))
2700         return;
2701
2702     hres = IHTMLInputElement_get_value(input, &bstr);
2703     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
2704     if(exval)
2705         ok_(__FILE__,line) (!strcmp_wa(bstr, exval), "value=%s\n", wine_dbgstr_w(bstr));
2706     else
2707         ok_(__FILE__,line) (!bstr, "exval != NULL\n");
2708     SysFreeString(bstr);
2709     IHTMLInputElement_Release(input);
2710 }
2711
2712 #define test_input_put_value(o,v) _test_input_put_value(__LINE__,o,v)
2713 static void _test_input_put_value(unsigned line, IUnknown *unk, const char *val)
2714 {
2715     IHTMLInputElement *input;
2716     BSTR bstr;
2717     HRESULT hres;
2718
2719     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
2720     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
2721     if(FAILED(hres))
2722         return;
2723
2724     bstr = a2bstr(val);
2725     hres = IHTMLInputElement_put_value(input, bstr);
2726     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
2727     SysFreeString(bstr);
2728     IHTMLInputElement_Release(input);
2729
2730     _test_input_value(line, unk, val);
2731 }
2732
2733 #define test_input_src(i,s) _test_input_src(__LINE__,i,s)
2734 static void _test_input_src(unsigned line, IHTMLInputElement *input, const char *exsrc)
2735 {
2736     BSTR src;
2737     HRESULT hres;
2738
2739     hres = IHTMLInputElement_get_src(input, &src);
2740     ok_(__FILE__,line) (hres == S_OK, "get_src failed: %08x\n", hres);
2741     if(exsrc)
2742         ok_(__FILE__,line) (!strcmp_wa(src, exsrc), "get_src returned %s expected %s\n", wine_dbgstr_w(src), exsrc);
2743     else
2744         ok_(__FILE__,line) (!src, "get_src returned %s expected NULL\n", wine_dbgstr_w(src));
2745     SysFreeString(src);
2746 }
2747
2748 #define test_input_set_src(u,s) _test_input_set_src(__LINE__,u,s)
2749 static void _test_input_set_src(unsigned line, IHTMLInputElement *input, const char *src)
2750 {
2751     BSTR tmp;
2752     HRESULT hres;
2753
2754     tmp = a2bstr(src);
2755     hres = IHTMLInputElement_put_src(input, tmp);
2756     SysFreeString(tmp);
2757     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
2758
2759     _test_input_src(line, input, src);
2760 }
2761
2762 #define test_elem_class(u,c) _test_elem_class(__LINE__,u,c)
2763 static void _test_elem_class(unsigned line, IUnknown *unk, const char *exclass)
2764 {
2765     IHTMLElement *elem = _get_elem_iface(line, unk);
2766     BSTR class = (void*)0xdeadbeef;
2767     HRESULT hres;
2768
2769     hres = IHTMLElement_get_className(elem, &class);
2770     IHTMLElement_Release(elem);
2771     ok_(__FILE__,line) (hres == S_OK, "get_className failed: %08x\n", hres);
2772     if(exclass)
2773         ok_(__FILE__,line) (!strcmp_wa(class, exclass), "unexpected className %s\n", wine_dbgstr_w(class));
2774     else
2775         ok_(__FILE__,line) (!class, "class != NULL\n");
2776     SysFreeString(class);
2777 }
2778
2779 #define test_elem_tabindex(u,i) _test_elem_tabindex(__LINE__,u,i)
2780 static void _test_elem_tabindex(unsigned line, IUnknown *unk, short exindex)
2781 {
2782     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
2783     short index = -3;
2784     HRESULT hres;
2785
2786     hres = IHTMLElement2_get_tabIndex(elem2, &index);
2787     IHTMLElement2_Release(elem2);
2788     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
2789     ok_(__FILE__,line) (index == exindex, "unexpected index %d\n", index);
2790 }
2791
2792 #define test_elem_set_tabindex(u,i) _test_elem_set_tabindex(__LINE__,u,i)
2793 static void _test_elem_set_tabindex(unsigned line, IUnknown *unk, short index)
2794 {
2795     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
2796     HRESULT hres;
2797
2798     hres = IHTMLElement2_put_tabIndex(elem2, index);
2799     IHTMLElement2_Release(elem2);
2800     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
2801
2802     _test_elem_tabindex(line, unk, index);
2803 }
2804
2805 #define test_style_media(s,m) _test_style_media(__LINE__,s,m)
2806 static void _test_style_media(unsigned line, IUnknown *unk, const char *exmedia)
2807 {
2808     IHTMLStyleElement *style = _get_style_iface(line, unk);
2809     BSTR media;
2810     HRESULT hres;
2811
2812     hres = IHTMLStyleElement_get_media(style, &media);
2813     ok_(__FILE__,line)(hres == S_OK, "get_media failed: %08x\n", hres);
2814     if(exmedia)
2815         ok_(__FILE__,line)(!strcmp_wa(media, exmedia), "media = %s, expected %s\n", wine_dbgstr_w(media), exmedia);
2816     else
2817         ok_(__FILE__,line)(!media, "media = %s, expected NULL\n", wine_dbgstr_w(media));
2818
2819     IHTMLStyleElement_Release(style);
2820     SysFreeString(media);
2821 }
2822
2823 #define test_style_put_media(s,m) _test_style_put_media(__LINE__,s,m)
2824 static void _test_style_put_media(unsigned line, IUnknown *unk, const char *media)
2825 {
2826     IHTMLStyleElement *style = _get_style_iface(line, unk);
2827     BSTR str;
2828     HRESULT hres;
2829
2830     str = a2bstr(media);
2831     hres = IHTMLStyleElement_put_media(style, str);
2832     ok_(__FILE__,line)(hres == S_OK, "put_media failed: %08x\n", hres);
2833     IHTMLStyleElement_Release(style);
2834     SysFreeString(str);
2835
2836     _test_style_media(line, unk, media);
2837 }
2838
2839 #define test_style_type(s,m) _test_style_type(__LINE__,s,m)
2840 static void _test_style_type(unsigned line, IUnknown *unk, const char *extype)
2841 {
2842     IHTMLStyleElement *style = _get_style_iface(line, unk);
2843     BSTR type;
2844     HRESULT hres;
2845
2846     hres = IHTMLStyleElement_get_type(style, &type);
2847     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
2848     if(extype)
2849         ok_(__FILE__,line)(!strcmp_wa(type, extype), "type = %s, expected %s\n", wine_dbgstr_w(type), extype);
2850     else
2851         ok_(__FILE__,line)(!type, "type = %s, expected NULL\n", wine_dbgstr_w(type));
2852
2853     IHTMLStyleElement_Release(style);
2854     SysFreeString(type);
2855 }
2856
2857 #define test_style_put_type(s,m) _test_style_put_type(__LINE__,s,m)
2858 static void _test_style_put_type(unsigned line, IUnknown *unk, const char *type)
2859 {
2860     IHTMLStyleElement *style = _get_style_iface(line, unk);
2861     BSTR str;
2862     HRESULT hres;
2863
2864     str = a2bstr(type);
2865     hres = IHTMLStyleElement_put_type(style, str);
2866     ok_(__FILE__,line)(hres == S_OK, "put_type failed: %08x\n", hres);
2867     IHTMLStyleElement_Release(style);
2868     SysFreeString(str);
2869
2870     _test_style_type(line, unk, type);
2871 }
2872
2873 #define test_elem_filters(u) _test_elem_filters(__LINE__,u)
2874 static void _test_elem_filters(unsigned line, IUnknown *unk)
2875 {
2876     IHTMLElement *elem = _get_elem_iface(line, unk);
2877     HRESULT hres;
2878     IHTMLFiltersCollection *filters;
2879
2880     hres = IHTMLElement_get_filters(elem, &filters);
2881     ok_(__FILE__,line) (hres == S_OK || broken(hres == REGDB_E_CLASSNOTREG) /* NT4 */,
2882                         "get_filters failed: %08x\n", hres);
2883     if(hres == S_OK)
2884     {
2885         LONG len;
2886         IDispatchEx *dispex;
2887
2888         hres = IHTMLFiltersCollection_get_length(filters, &len);
2889         ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
2890         ok_(__FILE__,line) (len == 0, "expect 0 got %d\n", len);
2891
2892         hres = IHTMLFiltersCollection_QueryInterface(filters, &IID_IDispatchEx, (void**)&dispex);
2893         ok_(__FILE__,line) (hres == S_OK || broken(hres == E_NOINTERFACE),
2894                             "Could not get IDispatchEx interface: %08x\n", hres);
2895         if(SUCCEEDED(hres)) {
2896             test_disp((IUnknown*)filters, &IID_IHTMLFiltersCollection, "[object]");
2897             IDispatchEx_Release(dispex);
2898         }
2899
2900         IHTMLFiltersCollection_Release(filters);
2901     }
2902
2903     IHTMLElement_Release(elem);
2904 }
2905
2906 #define test_elem_set_class(u,c) _test_elem_set_class(__LINE__,u,c)
2907 static void _test_elem_set_class(unsigned line, IUnknown *unk, const char *class)
2908 {
2909     IHTMLElement *elem = _get_elem_iface(line, unk);
2910     BSTR tmp;
2911     HRESULT hres;
2912
2913     tmp = class ? a2bstr(class) : NULL;
2914     hres = IHTMLElement_put_className(elem, tmp);
2915     IHTMLElement_Release(elem);
2916     ok_(__FILE__,line) (hres == S_OK, "put_className failed: %08x\n", hres);
2917     SysFreeString(tmp);
2918
2919     _test_elem_class(line, unk, class);
2920 }
2921
2922 #define test_elem_id(e,i) _test_elem_id(__LINE__,e,i)
2923 static void _test_elem_id(unsigned line, IUnknown *unk, const char *exid)
2924 {
2925     IHTMLElement *elem = _get_elem_iface(line, unk);
2926     BSTR id = (void*)0xdeadbeef;
2927     HRESULT hres;
2928
2929     hres = IHTMLElement_get_id(elem, &id);
2930     IHTMLElement_Release(elem);
2931     ok_(__FILE__,line) (hres == S_OK, "get_id failed: %08x\n", hres);
2932
2933     if(exid)
2934         ok_(__FILE__,line) (!strcmp_wa(id, exid), "unexpected id %s\n", wine_dbgstr_w(id));
2935     else
2936         ok_(__FILE__,line) (!id, "id=%s\n", wine_dbgstr_w(id));
2937
2938     SysFreeString(id);
2939 }
2940
2941 #define test_elem_put_id(u,i) _test_elem_put_id(__LINE__,u,i)
2942 static void _test_elem_put_id(unsigned line, IUnknown *unk, const char *new_id)
2943 {
2944     IHTMLElement *elem = _get_elem_iface(line, unk);
2945     BSTR tmp = a2bstr(new_id);
2946     HRESULT hres;
2947
2948     hres = IHTMLElement_put_id(elem, tmp);
2949     IHTMLElement_Release(elem);
2950     SysFreeString(tmp);
2951     ok_(__FILE__,line) (hres == S_OK, "put_id failed: %08x\n", hres);
2952
2953     _test_elem_id(line, unk, new_id);
2954 }
2955
2956 #define test_elem_title(u,t) _test_elem_title(__LINE__,u,t)
2957 static void _test_elem_title(unsigned line, IUnknown *unk, const char *extitle)
2958 {
2959     IHTMLElement *elem = _get_elem_iface(line, unk);
2960     BSTR title;
2961     HRESULT hres;
2962
2963     hres = IHTMLElement_get_title(elem, &title);
2964     IHTMLElement_Release(elem);
2965     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
2966     if(extitle)
2967         ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
2968     else
2969         ok_(__FILE__,line) (!title, "title=%s, expected NULL\n", wine_dbgstr_w(title));
2970
2971     SysFreeString(title);
2972 }
2973
2974 #define test_elem_set_title(u,t) _test_elem_set_title(__LINE__,u,t)
2975 static void _test_elem_set_title(unsigned line, IUnknown *unk, const char *title)
2976 {
2977     IHTMLElement *elem = _get_elem_iface(line, unk);
2978     BSTR tmp;
2979     HRESULT hres;
2980
2981     tmp = a2bstr(title);
2982     hres = IHTMLElement_put_title(elem, tmp);
2983     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
2984
2985     IHTMLElement_Release(elem);
2986     SysFreeString(tmp);
2987 }
2988
2989 #define test_node_get_value_str(u,e) _test_node_get_value_str(__LINE__,u,e)
2990 static void _test_node_get_value_str(unsigned line, IUnknown *unk, const char *exval)
2991 {
2992     IHTMLDOMNode *node = _get_node_iface(line, unk);
2993     VARIANT var;
2994     HRESULT hres;
2995
2996     hres = IHTMLDOMNode_get_nodeValue(node, &var);
2997     IHTMLDOMNode_Release(node);
2998     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
2999
3000     if(exval) {
3001         ok_(__FILE__,line) (V_VT(&var) == VT_BSTR, "vt=%d\n", V_VT(&var));
3002         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&var), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&var)));
3003     }else {
3004         ok_(__FILE__,line) (V_VT(&var) == VT_NULL, "vt=%d, expected VT_NULL\n", V_VT(&var));
3005     }
3006
3007     VariantClear(&var);
3008 }
3009
3010 #define test_node_put_value_str(u,v) _test_node_put_value_str(__LINE__,u,v)
3011 static void _test_node_put_value_str(unsigned line, IUnknown *unk, const char *val)
3012 {
3013     IHTMLDOMNode *node = _get_node_iface(line, unk);
3014     VARIANT var;
3015     HRESULT hres;
3016
3017     V_VT(&var) = VT_BSTR;
3018     V_BSTR(&var) = a2bstr(val);
3019
3020     hres = IHTMLDOMNode_put_nodeValue(node, var);
3021     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
3022     IHTMLDOMNode_Release(node);
3023     VariantClear(&var);
3024 }
3025
3026 #define test_elem_client_size(u) _test_elem_client_size(__LINE__,u)
3027 static void _test_elem_client_size(unsigned line, IUnknown *unk)
3028 {
3029     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
3030     LONG l;
3031     HRESULT hres;
3032
3033     hres = IHTMLElement2_get_clientWidth(elem, &l);
3034     ok_(__FILE__,line) (hres == S_OK, "get_clientWidth failed: %08x\n", hres);
3035     hres = IHTMLElement2_get_clientHeight(elem, &l);
3036     ok_(__FILE__,line) (hres == S_OK, "get_clientHeight failed: %08x\n", hres);
3037
3038     IHTMLElement2_Release(elem);
3039 }
3040
3041 #define test_elem_client_rect(u) _test_elem_client_rect(__LINE__,u)
3042 static void _test_elem_client_rect(unsigned line, IUnknown *unk)
3043 {
3044     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
3045     LONG l;
3046     HRESULT hres;
3047
3048     hres = IHTMLElement2_get_clientLeft(elem, &l);
3049     ok_(__FILE__,line) (hres == S_OK, "get_clientLeft failed: %08x\n", hres);
3050     ok_(__FILE__,line) (!l, "clientLeft = %d\n", l);
3051
3052     hres = IHTMLElement2_get_clientTop(elem, &l);
3053     ok_(__FILE__,line) (hres == S_OK, "get_clientTop failed: %08x\n", hres);
3054     ok_(__FILE__,line) (!l, "clientTop = %d\n", l);
3055
3056     IHTMLElement2_Release(elem);
3057 }
3058
3059 #define test_form_length(e,l) _test_form_length(__LINE__,e,l)
3060 static void _test_form_length(unsigned line, IUnknown *unk, LONG exlen)
3061 {
3062     IHTMLFormElement *form = _get_form_iface(line, unk);
3063     LONG len = 0xdeadbeef;
3064     HRESULT hres;
3065
3066     hres = IHTMLFormElement_get_length(form, &len);
3067     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
3068     ok_(__FILE__,line)(len == exlen, "length=%d, expected %d\n", len, exlen);
3069
3070     IHTMLFormElement_Release(form);
3071 }
3072
3073 #define test_form_action(f,a) _test_form_action(__LINE__,f,a)
3074 static void _test_form_action(unsigned line, IUnknown *unk, const char *ex)
3075 {
3076     IHTMLFormElement *form = _get_form_iface(line, unk);
3077     BSTR action = (void*)0xdeadbeef;
3078     HRESULT hres;
3079
3080     hres = IHTMLFormElement_get_action(form, &action);
3081     ok_(__FILE__,line)(hres == S_OK, "get_action failed: %08x\n", hres);
3082     if(ex)
3083         ok_(__FILE__,line)(!strcmp_wa(action, ex), "action=%s, expected %s\n", wine_dbgstr_w(action), ex);
3084     else
3085         ok_(__FILE__,line)(!action, "action=%p\n", action);
3086
3087     SysFreeString(action);
3088     IHTMLFormElement_Release(form);
3089 }
3090
3091 #define test_form_put_action(f,a) _test_form_put_action(__LINE__,f,a)
3092 static void _test_form_put_action(unsigned line, IUnknown *unk, const char *action)
3093 {
3094     IHTMLFormElement *form = _get_form_iface(line, unk);
3095     BSTR tmp = a2bstr(action);
3096     HRESULT hres;
3097
3098     hres = IHTMLFormElement_put_action(form, tmp);
3099     ok_(__FILE__,line)(hres == S_OK, "put_action failed: %08x\n", hres);
3100     SysFreeString(tmp);
3101     IHTMLFormElement_Release(form);
3102
3103     _test_form_action(line, unk, action);
3104 }
3105
3106 #define test_form_method(f,a) _test_form_method(__LINE__,f,a)
3107 static void _test_form_method(unsigned line, IUnknown *unk, const char *ex)
3108 {
3109     IHTMLFormElement *form = _get_form_iface(line, unk);
3110     BSTR method = (void*)0xdeadbeef;
3111     HRESULT hres;
3112
3113     hres = IHTMLFormElement_get_method(form, &method);
3114     ok_(__FILE__,line)(hres == S_OK, "get_method failed: %08x\n", hres);
3115     if(ex)
3116         ok_(__FILE__,line)(!strcmp_wa(method, ex), "method=%s, expected %s\n", wine_dbgstr_w(method), ex);
3117     else
3118         ok_(__FILE__,line)(!method, "method=%p\n", method);
3119
3120     SysFreeString(method);
3121     IHTMLFormElement_Release(form);
3122 }
3123
3124 #define test_form_put_method(f,r,a) _test_form_put_method(__LINE__,f,r,a)
3125 static void _test_form_put_method(unsigned line, IUnknown *unk, HRESULT exp_hres, const char *method)
3126 {
3127     IHTMLFormElement *form = _get_form_iface(line, unk);
3128     BSTR tmp = a2bstr(method);
3129     HRESULT hres;
3130
3131     hres = IHTMLFormElement_put_method(form, tmp);
3132     ok_(__FILE__,line)(hres == exp_hres, "put_method returned: %08x, expected %08x\n", hres, exp_hres);
3133     SysFreeString(tmp);
3134     IHTMLFormElement_Release(form);
3135
3136     if(exp_hres == S_OK)
3137         _test_form_method(line, unk, method);
3138 }
3139
3140 #define test_form_name(f,a) _test_form_name(__LINE__,f,a)
3141 static void _test_form_name(unsigned line, IUnknown *unk, const char *ex)
3142 {
3143     IHTMLFormElement *form = _get_form_iface(line, unk);
3144     BSTR name = (void*)0xdeadbeef;
3145     HRESULT hres;
3146
3147     hres = IHTMLFormElement_get_name(form, &name);
3148     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
3149     if(ex)
3150         ok_(__FILE__,line)(!strcmp_wa(name, ex), "name=%s, expected %s\n", wine_dbgstr_w(name), ex);
3151     else
3152         ok_(__FILE__,line)(!name, "name=%p\n", name);
3153
3154     SysFreeString(name);
3155     IHTMLFormElement_Release(form);
3156 }
3157
3158 #define test_form_put_name(f,a) _test_form_put_name(__LINE__,f,a)
3159 static void _test_form_put_name(unsigned line, IUnknown *unk, const char *name)
3160 {
3161     IHTMLFormElement *form = _get_form_iface(line, unk);
3162     BSTR tmp = a2bstr(name);
3163     HRESULT hres;
3164
3165     hres = IHTMLFormElement_put_name(form, tmp);
3166     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
3167     SysFreeString(tmp);
3168     IHTMLFormElement_Release(form);
3169
3170     _test_form_name(line, unk, name);
3171 }
3172
3173 #define test_form_encoding(f,a) _test_form_encoding(__LINE__,f,a)
3174 static void _test_form_encoding(unsigned line, IUnknown *unk, const char *ex)
3175 {
3176     IHTMLFormElement *form = _get_form_iface(line, unk);
3177     BSTR encoding = (void*)0xdeadbeef;
3178     HRESULT hres;
3179
3180     hres = IHTMLFormElement_get_encoding(form, &encoding);
3181     ok_(__FILE__,line)(hres == S_OK, "get_encoding failed: %08x\n", hres);
3182     if(ex)
3183         ok_(__FILE__,line)(!strcmp_wa(encoding, ex), "encoding=%s, expected %s\n", wine_dbgstr_w(encoding), ex);
3184     else
3185         ok_(__FILE__,line)(!encoding, "encoding=%p\n", encoding);
3186
3187     SysFreeString(encoding);
3188     IHTMLFormElement_Release(form);
3189 }
3190
3191 #define test_form_put_encoding(f,r,a) _test_form_put_encoding(__LINE__,f,r,a)
3192 static void _test_form_put_encoding(unsigned line, IUnknown *unk, HRESULT exp_hres, const char *encoding)
3193 {
3194     IHTMLFormElement *form = _get_form_iface(line, unk);
3195     BSTR tmp = a2bstr(encoding);
3196     HRESULT hres;
3197
3198     hres = IHTMLFormElement_put_encoding(form, tmp);
3199     ok_(__FILE__,line)(hres == exp_hres, "put_encoding returned: %08x, expected %08x\n", hres, exp_hres);
3200     SysFreeString(tmp);
3201     IHTMLFormElement_Release(form);
3202
3203     if(exp_hres == S_OK)
3204         _test_form_encoding(line, unk, encoding);
3205 }
3206
3207 #define test_form_elements(a) _test_form_elements(__LINE__,a)
3208 static void _test_form_elements(unsigned line, IUnknown *unk)
3209 {
3210     IHTMLFormElement *form = _get_form_iface(line, unk);
3211     IDispatch *disp;
3212     HRESULT hres;
3213
3214     disp = NULL;
3215     hres = IHTMLFormElement_get_elements(form, &disp);
3216     ok_(__FILE__,line)(hres == S_OK, "get_elements failed: %08x\n", hres);
3217     ok_(__FILE__,line)(disp != NULL, "disp = NULL\n");
3218     ok_(__FILE__,line)(iface_cmp((IUnknown*)form, (IUnknown*)disp), "disp != form\n");
3219
3220     IDispatch_Release(disp);
3221     IHTMLFormElement_Release(form);
3222 }
3223
3224 #define get_elem_doc(e) _get_elem_doc(__LINE__,e)
3225 static IHTMLDocument2 *_get_elem_doc(unsigned line, IUnknown *unk)
3226 {
3227     IHTMLElement *elem = _get_elem_iface(line, unk);
3228     IHTMLDocument2 *doc;
3229     IDispatch *disp;
3230     HRESULT hres;
3231
3232     disp = NULL;
3233     hres = IHTMLElement_get_document(elem, &disp);
3234     ok(hres == S_OK, "get_document failed: %08x\n", hres);
3235     ok(disp != NULL, "disp == NULL\n");
3236
3237     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&doc);
3238     IDispatch_Release(disp);
3239     ok(hres == S_OK, "Could not get IHTMLDocument2 iface: %08x\n", hres);
3240
3241     return doc;
3242 }
3243
3244 #define get_elem_attr_node(a,b,c) _get_elem_attr_node(__LINE__,a,b,c)
3245 static IHTMLDOMAttribute *_get_elem_attr_node(unsigned line, IUnknown *unk, const char *attr_name, BOOL expect_success)
3246 {
3247     IHTMLElement4 *elem = _get_elem4_iface(line, unk);
3248     BSTR str = a2bstr(attr_name);
3249     IHTMLDOMAttribute *attr;
3250     HRESULT hres;
3251
3252     attr = (void*)0xdeadbeef;
3253     hres = IHTMLElement4_getAttributeNode(elem, str, &attr);
3254     ok_(__FILE__,line)(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
3255     if(expect_success)
3256         ok_(__FILE__,line)(attr != NULL, "attr = NULL\n");
3257     else
3258         ok_(__FILE__,line)(!attr, "attr = %p\n", attr);
3259
3260     IHTMLElement4_Release(elem);
3261     SysFreeString(str);
3262     return attr;
3263 }
3264
3265 #define get_attr_node_value(a,b,c) _get_attr_node_value(__LINE__,a,b,c)
3266 static void _get_attr_node_value(unsigned line, IHTMLDOMAttribute *attr, VARIANT *v, VARTYPE vt)
3267 {
3268     HRESULT hres;
3269
3270     hres = IHTMLDOMAttribute_get_nodeValue(attr, v);
3271     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
3272     ok_(__FILE__,line) (V_VT(v) == vt, "vt=%d, expected %d\n", V_VT(v), vt);
3273 }
3274
3275 #define get_window_doc(e) _get_window_doc(__LINE__,e)
3276 static IHTMLDocument2 *_get_window_doc(unsigned line, IHTMLWindow2 *window)
3277 {
3278     IHTMLDocument2 *doc;
3279     HRESULT hres;
3280
3281     doc = NULL;
3282     hres = IHTMLWindow2_get_document(window, &doc);
3283     ok(hres == S_OK, "get_document failed: %08x\n", hres);
3284     ok(doc != NULL, "disp == NULL\n");
3285
3286     return doc;
3287 }
3288
3289 #define doc_get_body(d) _doc_get_body(__LINE__,d)
3290 static IHTMLElement *_doc_get_body(unsigned line, IHTMLDocument2 *doc)
3291 {
3292     IHTMLElement *elem;
3293     HRESULT hres;
3294
3295     hres = IHTMLDocument2_get_body(doc, &elem);
3296     ok_(__FILE__,line)(hres == S_OK, "get_body failed: %08x\n", hres);
3297     ok_(__FILE__,line)(elem != NULL, "body == NULL\n");
3298
3299     return elem;
3300 }
3301
3302 #define test_create_elem(d,t) _test_create_elem(__LINE__,d,t)
3303 static IHTMLElement *_test_create_elem(unsigned line, IHTMLDocument2 *doc, const char *tag)
3304 {
3305     IHTMLElement *elem = NULL;
3306     BSTR tmp;
3307     HRESULT hres;
3308
3309     tmp = a2bstr(tag);
3310     hres = IHTMLDocument2_createElement(doc, tmp, &elem);
3311     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
3312     ok_(__FILE__,line) (elem != NULL, "elem == NULL\n");
3313     SysFreeString(tmp);
3314
3315     return elem;
3316 }
3317
3318 #define test_create_text(d,t) _test_create_text(__LINE__,d,t)
3319 static IHTMLDOMNode *_test_create_text(unsigned line, IHTMLDocument2 *doc, const char *text)
3320 {
3321     IHTMLDocument3 *doc3;
3322     IHTMLDOMNode *node = NULL;
3323     BSTR tmp;
3324     HRESULT hres;
3325
3326     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
3327     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3: %08x\n", hres);
3328
3329     tmp = a2bstr(text);
3330     hres = IHTMLDocument3_createTextNode(doc3, tmp, &node);
3331     IHTMLDocument3_Release(doc3);
3332     SysFreeString(tmp);
3333     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
3334     ok_(__FILE__,line) (node != NULL, "node == NULL\n");
3335
3336     return node;
3337 }
3338
3339 #define test_node_append_child(n,c) _test_node_append_child(__LINE__,n,c)
3340 static IHTMLDOMNode *_test_node_append_child(unsigned line, IUnknown *node_unk, IUnknown *child_unk)
3341 {
3342     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
3343     IHTMLDOMNode *child = _get_node_iface(line, child_unk);
3344     IHTMLDOMNode *new_child = NULL;
3345     HRESULT hres;
3346
3347     hres = IHTMLDOMNode_appendChild(node, child, &new_child);
3348     ok_(__FILE__,line) (hres == S_OK, "appendChild failed: %08x\n", hres);
3349     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
3350     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
3351
3352     IHTMLDOMNode_Release(node);
3353     IHTMLDOMNode_Release(child);
3354
3355     return new_child;
3356 }
3357
3358 #define test_node_insertbefore(n,c,v) _test_node_insertbefore(__LINE__,n,c,v)
3359 static IHTMLDOMNode *_test_node_insertbefore(unsigned line, IUnknown *node_unk, IHTMLDOMNode *child, VARIANT *var)
3360 {
3361     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
3362     IHTMLDOMNode *new_child = NULL;
3363     HRESULT hres;
3364
3365     hres = IHTMLDOMNode_insertBefore(node, child, *var, &new_child);
3366     ok_(__FILE__,line) (hres == S_OK, "insertBefore failed: %08x\n", hres);
3367     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
3368     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
3369
3370     IHTMLDOMNode_Release(node);
3371
3372     return new_child;
3373 }
3374
3375 #define test_node_remove_child(n,c) _test_node_remove_child(__LINE__,n,c)
3376 static void _test_node_remove_child(unsigned line, IUnknown *unk, IHTMLDOMNode *child)
3377 {
3378     IHTMLDOMNode *node = _get_node_iface(line, unk);
3379     IHTMLDOMNode *new_node = NULL;
3380     HRESULT hres;
3381
3382     hres = IHTMLDOMNode_removeChild(node, child, &new_node);
3383     ok_(__FILE__,line) (hres == S_OK, "removeChild failed: %08x\n", hres);
3384     ok_(__FILE__,line) (new_node != NULL, "new_node == NULL\n");
3385     /* TODO ok_(__FILE__,line) (new_node != child, "new_node == child\n"); */
3386
3387     IHTMLDOMNode_Release(node);
3388     IHTMLDOMNode_Release(new_node);
3389 }
3390
3391 #define test_doc_title(d,t) _test_doc_title(__LINE__,d,t)
3392 static void _test_doc_title(unsigned line, IHTMLDocument2 *doc, const char *extitle)
3393 {
3394     BSTR title = NULL;
3395     HRESULT hres;
3396
3397     hres = IHTMLDocument2_get_title(doc, &title);
3398     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
3399     ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
3400     SysFreeString(title);
3401 }
3402
3403 #define test_doc_set_title(d,t) _test_doc_set_title(__LINE__,d,t)
3404 static void _test_doc_set_title(unsigned line, IHTMLDocument2 *doc, const char *title)
3405 {
3406     BSTR tmp;
3407     HRESULT hres;
3408
3409     tmp = a2bstr(title);
3410     hres = IHTMLDocument2_put_title(doc, tmp);
3411     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
3412     SysFreeString(tmp);
3413 }
3414
3415 static void test_elem_bounding_client_rect(IUnknown *unk)
3416 {
3417     IHTMLRect *rect, *rect2;
3418     IHTMLElement2 *elem2;
3419     LONG l;
3420     HRESULT hres;
3421
3422     elem2 = get_elem2_iface(unk);
3423     hres = IHTMLElement2_getBoundingClientRect(elem2, &rect);
3424     ok(hres == S_OK, "getBoundingClientRect failed: %08x\n", hres);
3425     hres = IHTMLElement2_getBoundingClientRect(elem2, &rect2);
3426     IHTMLElement2_Release(elem2);
3427     ok(hres == S_OK, "getBoundingClientRect failed: %08x\n", hres);
3428     ok(rect != NULL, "rect == NULL\n");
3429     ok(rect != rect2, "rect == rect2\n");
3430     IHTMLRect_Release(rect2);
3431
3432     test_disp((IUnknown*)rect, &IID_IHTMLRect, "[object]");
3433
3434     l = 0xdeadbeef;
3435     hres = IHTMLRect_get_top(rect, &l);
3436     ok(hres == S_OK, "get_top failed: %08x\n", hres);
3437     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
3438
3439     l = 0xdeadbeef;
3440     hres = IHTMLRect_get_left(rect, &l);
3441     ok(hres == S_OK, "get_left failed: %08x\n", hres);
3442     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
3443
3444     l = 0xdeadbeef;
3445     hres = IHTMLRect_get_bottom(rect, &l);
3446     ok(hres == S_OK, "get_bottom failed: %08x\n", hres);
3447     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
3448
3449     l = 0xdeadbeef;
3450     hres = IHTMLRect_get_right(rect, &l);
3451     ok(hres == S_OK, "get_right failed: %08x\n", hres);
3452     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
3453
3454     IHTMLRect_Release(rect);
3455 }
3456
3457 static void test_elem_col_item(IHTMLElementCollection *col, const char *n,
3458         const elem_type_t *elem_types, LONG len)
3459 {
3460     IDispatch *disp;
3461     VARIANT name, index;
3462     DWORD i;
3463     HRESULT hres;
3464
3465     V_VT(&index) = VT_EMPTY;
3466     V_VT(&name) = VT_BSTR;
3467     V_BSTR(&name) = a2bstr(n);
3468
3469     hres = IHTMLElementCollection_item(col, name, index, &disp);
3470     ok(hres == S_OK, "item failed: %08x\n", hres);
3471
3472     test_elem_collection((IUnknown*)disp, elem_types, len);
3473     IDispatch_Release(disp);
3474     ok(hres == S_OK, "Could not get IHTMLElementCollection interface: %08x\n", hres);
3475     if(hres != S_OK)
3476         goto cleanup;
3477
3478     V_VT(&index) = VT_I4;
3479
3480     for(i=0; i<len; i++) {
3481         V_I4(&index) = i;
3482         disp = (void*)0xdeadbeef;
3483         hres = IHTMLElementCollection_item(col, name, index, &disp);
3484         ok(hres == S_OK, "item failed: %08x\n", hres);
3485         ok(disp != NULL, "disp == NULL\n");
3486         if(FAILED(hres) || !disp)
3487             continue;
3488
3489         test_elem_type((IUnknown*)disp, elem_types[i]);
3490
3491         IDispatch_Release(disp);
3492     }
3493
3494     V_I4(&index) = len;
3495     disp = (void*)0xdeadbeef;
3496     hres = IHTMLElementCollection_item(col, name, index, &disp);
3497     ok(hres == S_OK, "item failed: %08x\n", hres);
3498     ok(disp == NULL, "disp != NULL\n");
3499
3500     V_I4(&index) = -1;
3501     disp = (void*)0xdeadbeef;
3502     hres = IHTMLElementCollection_item(col, name, index, &disp);
3503     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3504     ok(disp == NULL, "disp != NULL\n");
3505
3506 cleanup:
3507     SysFreeString(V_BSTR(&name));
3508 }
3509
3510 static IHTMLElement *get_elem_by_id(IHTMLDocument2 *doc, const char *id, BOOL expect_success)
3511 {
3512     IHTMLElementCollection *col;
3513     IHTMLElement *elem;
3514     IDispatch *disp = (void*)0xdeadbeef;
3515     VARIANT name, index;
3516     HRESULT hres;
3517
3518     hres = IHTMLDocument2_get_all(doc, &col);
3519     ok(hres == S_OK, "get_all failed: %08x\n", hres);
3520     ok(col != NULL, "col == NULL\n");
3521     if(FAILED(hres) || !col)
3522         return NULL;
3523
3524     V_VT(&index) = VT_EMPTY;
3525     V_VT(&name) = VT_BSTR;
3526     V_BSTR(&name) = a2bstr(id);
3527
3528     hres = IHTMLElementCollection_item(col, name, index, &disp);
3529     IHTMLElementCollection_Release(col);
3530     SysFreeString(V_BSTR(&name));
3531     ok(hres == S_OK, "item failed: %08x\n", hres);
3532     if(!expect_success) {
3533         ok(disp == NULL, "disp != NULL\n");
3534         return NULL;
3535     }
3536
3537     ok(disp != NULL, "disp == NULL\n");
3538     if(!disp)
3539         return NULL;
3540
3541     elem = get_elem_iface((IUnknown*)disp);
3542     IDispatch_Release(disp);
3543
3544     return elem;
3545 }
3546
3547 static IHTMLElement *get_doc_elem_by_id(IHTMLDocument2 *doc, const char *id)
3548 {
3549     IHTMLDocument3 *doc3;
3550     IHTMLElement *elem;
3551     BSTR tmp;
3552     HRESULT hres;
3553
3554     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
3555     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
3556
3557     tmp = a2bstr(id);
3558     hres = IHTMLDocument3_getElementById(doc3, tmp, &elem);
3559     SysFreeString(tmp);
3560     ok(hres == S_OK, "getElementById(%s) failed: %08x\n", id, hres);
3561
3562     IHTMLDocument3_Release(doc3);
3563
3564     return elem;
3565 }
3566
3567 static void test_select_elem(IHTMLSelectElement *select)
3568 {
3569     IDispatch *disp, *disp2;
3570     VARIANT name, index;
3571     HRESULT hres;
3572
3573     test_select_type(select, "select-one");
3574     test_select_length(select, 2);
3575     test_select_selidx(select, 0);
3576     test_select_put_selidx(select, 1);
3577
3578     test_select_set_value(select, "val1");
3579     test_select_value(select, "val1");
3580
3581     test_select_get_disabled(select, VARIANT_FALSE);
3582     test_select_set_disabled(select, VARIANT_TRUE);
3583     test_select_set_disabled(select, VARIANT_FALSE);
3584
3585     disp = NULL;
3586     hres = IHTMLSelectElement_get_options(select, &disp);
3587     ok(hres == S_OK, "get_options failed: %08x\n", hres);
3588     ok(disp != NULL, "options == NULL\n");
3589     ok(iface_cmp((IUnknown*)disp, (IUnknown*)select), "disp != select\n");
3590     IDispatch_Release(disp);
3591
3592     V_VT(&index) = VT_EMPTY;
3593     V_VT(&name) = VT_I4;
3594     V_I4(&name) = -1;
3595     disp = (void*)0xdeadbeef;
3596     hres = IHTMLSelectElement_item(select, name, index, &disp);
3597     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3598     ok(!disp, "disp = %p\n", disp);
3599
3600     V_I4(&name) = 2;
3601     disp = (void*)0xdeadbeef;
3602     hres = IHTMLSelectElement_item(select, name, index, &disp);
3603     ok(hres == S_OK, "item failed: %08x\n", hres);
3604     ok(!disp, "disp = %p\n", disp);
3605
3606     V_I4(&name) = 1;
3607     hres = IHTMLSelectElement_item(select, name, index, NULL);
3608     ok(hres == E_POINTER || broken(hres == E_INVALIDARG), "item failed: %08x, expected E_POINTER\n", hres);
3609
3610     disp = NULL;
3611     hres = IHTMLSelectElement_item(select, name, index, &disp);
3612     ok(hres == S_OK, "item failed: %08x\n", hres);
3613     ok(disp != NULL, "disp = NULL\n");
3614     test_disp((IUnknown*)disp, &DIID_DispHTMLOptionElement, NULL);
3615
3616     V_VT(&index) = VT_I4;
3617     V_I4(&index) = 1;
3618     disp2 = NULL;
3619     hres = IHTMLSelectElement_item(select, name, index, &disp2);
3620     ok(hres == S_OK, "item failed: %08x\n", hres);
3621     ok(disp2 != NULL, "disp = NULL\n");
3622     ok(iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
3623     IDispatch_Release(disp2);
3624     IDispatch_Release(disp);
3625 }
3626
3627 static void test_form_item(IHTMLElement *elem)
3628 {
3629     IHTMLFormElement *form = get_form_iface((IUnknown*)elem);
3630     IDispatch *disp, *disp2;
3631     VARIANT name, index;
3632     HRESULT hres;
3633
3634     V_VT(&index) = VT_EMPTY;
3635     V_VT(&name) = VT_I4;
3636     V_I4(&name) = -1;
3637     disp = (void*)0xdeadbeef;
3638     hres = IHTMLFormElement_item(form, name, index, &disp);
3639     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3640     ok(!disp, "disp = %p\n", disp);
3641
3642     V_I4(&name) = 2;
3643     disp = (void*)0xdeadbeef;
3644     hres = IHTMLFormElement_item(form, name, index, &disp);
3645     ok(hres == S_OK, "item failed: %08x\n", hres);
3646     ok(!disp, "disp = %p\n", disp);
3647
3648     V_I4(&name) = 1;
3649     hres = IHTMLFormElement_item(form, name, index, NULL);
3650     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
3651
3652     disp = NULL;
3653     hres = IHTMLFormElement_item(form, name, index, &disp);
3654     ok(hres == S_OK, "item failed: %08x\n", hres);
3655     ok(disp != NULL, "disp = NULL\n");
3656     test_disp((IUnknown*)disp, &DIID_DispHTMLInputElement, NULL);
3657
3658     V_VT(&index) = VT_I4;
3659     V_I4(&index) = 1;
3660     disp2 = NULL;
3661     hres = IHTMLFormElement_item(form, name, index, &disp2);
3662     ok(hres == S_OK, "item failed: %08x\n", hres);
3663     ok(disp2 != NULL, "disp = NULL\n");
3664     ok(iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
3665     IDispatch_Release(disp2);
3666     IDispatch_Release(disp);
3667 }
3668
3669 static void test_create_option_elem(IHTMLDocument2 *doc)
3670 {
3671     IHTMLOptionElement *option;
3672
3673     option = create_option_elem(doc, "test text", "test value");
3674
3675     test_option_put_text(option, "new text");
3676     test_option_put_value(option, "new value");
3677     test_option_put_selected(option, VARIANT_TRUE);
3678     test_option_put_selected(option, VARIANT_FALSE);
3679
3680     IHTMLOptionElement_Release(option);
3681 }
3682
3683 static void test_create_img_elem(IHTMLDocument2 *doc)
3684 {
3685     IHTMLImgElement *img;
3686
3687     img = create_img_elem(doc, 10, 15);
3688
3689     if(img){
3690         test_img_put_width(img, 5);
3691         test_img_put_height(img, 20);
3692
3693         IHTMLImgElement_Release(img);
3694         img = NULL;
3695     }
3696
3697     img = create_img_elem(doc, -1, -1);
3698
3699     if(img){
3700         test_img_put_width(img, 5);
3701         test_img_put_height(img, 20);
3702
3703         IHTMLImgElement_Release(img);
3704     }
3705 }
3706
3707 static IHTMLTxtRange *test_create_body_range(IHTMLDocument2 *doc)
3708 {
3709     IHTMLBodyElement *body;
3710     IHTMLTxtRange *range;
3711     IHTMLElement *elem;
3712     HRESULT hres;
3713
3714     elem = doc_get_body(doc);
3715     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
3716     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3717     IHTMLElement_Release(elem);
3718
3719     hres = IHTMLBodyElement_createTextRange(body, &range);
3720     IHTMLBodyElement_Release(body);
3721     ok(hres == S_OK, "createTextRange failed: %08x\n", hres);
3722
3723     return range;
3724 }
3725
3726 static void test_txtrange(IHTMLDocument2 *doc)
3727 {
3728     IHTMLTxtRange *body_range, *range, *range2;
3729     IHTMLSelectionObject *selection;
3730     IDispatch *disp_range;
3731     HRESULT hres;
3732
3733     body_range = test_create_body_range(doc);
3734
3735     test_range_text(body_range, "test abc 123\r\nit's text");
3736
3737     hres = IHTMLTxtRange_duplicate(body_range, &range);
3738     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3739
3740     hres = IHTMLTxtRange_duplicate(body_range, &range2);
3741     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3742     test_range_isequal(range, range2, VARIANT_TRUE);
3743
3744     test_range_text(range, "test abc 123\r\nit's text");
3745     test_range_text(body_range, "test abc 123\r\nit's text");
3746
3747     test_range_collapse(range, TRUE);
3748     test_range_isequal(range, range2, VARIANT_FALSE);
3749     test_range_inrange(range, range2, VARIANT_FALSE);
3750     test_range_inrange(range2, range, VARIANT_TRUE);
3751     IHTMLTxtRange_Release(range2);
3752
3753     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
3754     test_range_expand(range, wordW, VARIANT_FALSE, "test ");
3755     test_range_move(range, characterW, 2, 2);
3756     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
3757
3758     test_range_collapse(range, FALSE);
3759     test_range_expand(range, wordW, VARIANT_TRUE, "abc ");
3760
3761     test_range_collapse(range, FALSE);
3762     test_range_expand(range, wordW, VARIANT_TRUE, "123");
3763     test_range_expand(range, wordW, VARIANT_FALSE, "123");
3764     test_range_move(range, characterW, 2, 2);
3765     test_range_expand(range, wordW, VARIANT_TRUE, "123");
3766     test_range_moveend(range, characterW, -5, -5);
3767     test_range_text(range, NULL);
3768     test_range_moveend(range, characterW, 3, 3);
3769     test_range_text(range, "c 1");
3770     test_range_expand(range, texteditW, VARIANT_TRUE, "test abc 123\r\nit's text");
3771     test_range_collapse(range, TRUE);
3772     test_range_move(range, characterW, 4, 4);
3773     test_range_moveend(range, characterW, 1, 1);
3774     test_range_text(range, " ");
3775     test_range_move(range, wordW, 1, 1);
3776     test_range_moveend(range, characterW, 2, 2);
3777     test_range_text(range, "ab");
3778
3779     IHTMLTxtRange_Release(range);
3780
3781     hres = IHTMLTxtRange_duplicate(body_range, &range);
3782     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3783
3784     test_range_text(range, "test abc 123\r\nit's text");
3785     test_range_move(range, characterW, 3, 3);
3786     test_range_moveend(range, characterW, 1, 1);
3787     test_range_text(range, "t");
3788     test_range_moveend(range, characterW, 3, 3);
3789     test_range_text(range, "t ab");
3790     test_range_moveend(range, characterW, -2, -2);
3791     test_range_text(range, "t ");
3792     test_range_move(range, characterW, 6, 6);
3793     test_range_moveend(range, characterW, 3, 3);
3794     test_range_text(range, "123");
3795     test_range_moveend(range, characterW, 2, 2);
3796     test_range_text(range, "123\r\ni");
3797
3798     IHTMLTxtRange_Release(range);
3799
3800     hres = IHTMLTxtRange_duplicate(body_range, &range);
3801     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3802
3803     test_range_move(range, wordW, 1, 1);
3804     test_range_moveend(range, characterW, 2, 2);
3805     test_range_text(range, "ab");
3806
3807     test_range_move(range, characterW, -2, -2);
3808     test_range_moveend(range, characterW, 2, 2);
3809     test_range_text(range, "t ");
3810
3811     test_range_move(range, wordW, 3, 3);
3812     test_range_move(range, wordW, -2, -2);
3813     test_range_moveend(range, characterW, 2, 2);
3814     test_range_text(range, "ab");
3815
3816     test_range_move(range, characterW, -6, -5);
3817     test_range_moveend(range, characterW, -1, 0);
3818     test_range_moveend(range, characterW, -6, 0);
3819     test_range_move(range, characterW, 2, 2);
3820     test_range_moveend(range, characterW, 2, 2);
3821     test_range_text(range, "st");
3822     test_range_moveend(range, characterW, -6, -4);
3823     test_range_moveend(range, characterW, 2, 2);
3824
3825     IHTMLTxtRange_Release(range);
3826
3827     hres = IHTMLTxtRange_duplicate(body_range, &range);
3828     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3829
3830     test_range_move(range, wordW, 2, 2);
3831     test_range_moveend(range, characterW, 2, 2);
3832     test_range_text(range, "12");
3833
3834     test_range_move(range, characterW, 15, 14);
3835     test_range_move(range, characterW, -2, -2);
3836     test_range_moveend(range, characterW, 3, 2);
3837     test_range_text(range, "t");
3838     test_range_moveend(range, characterW, -1, -1);
3839     test_range_text(range, "t");
3840     test_range_expand(range, wordW, VARIANT_TRUE, "text");
3841     test_range_move(range, characterW, -2, -2);
3842     test_range_moveend(range, characterW, 2, 2);
3843     test_range_text(range, "s ");
3844     test_range_move(range, characterW, 100, 7);
3845     test_range_move(range, wordW, 1, 0);
3846     test_range_move(range, characterW, -2, -2);
3847     test_range_moveend(range, characterW, 3, 2);
3848     test_range_text(range, "t");
3849
3850     IHTMLTxtRange_Release(range);
3851
3852     hres = IHTMLTxtRange_duplicate(body_range, &range);
3853     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
3854
3855     test_range_collapse(range, TRUE);
3856     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
3857     test_range_put_text(range, "word");
3858     test_range_text(body_range, "wordabc 123\r\nit's text");
3859     test_range_text(range, NULL);
3860     test_range_moveend(range, characterW, 3, 3);
3861     test_range_text(range, "abc");
3862     test_range_movestart(range, characterW, -2, -2);
3863     test_range_text(range, "rdabc");
3864     test_range_movestart(range, characterW, 3, 3);
3865     test_range_text(range, "bc");
3866     test_range_movestart(range, characterW, 4, 4);
3867     test_range_text(range, NULL);
3868     test_range_movestart(range, characterW, -3, -3);
3869     test_range_text(range, "c 1");
3870     test_range_movestart(range, characterW, -7, -6);
3871     test_range_text(range, "wordabc 1");
3872     test_range_movestart(range, characterW, 100, 22);
3873     test_range_text(range, NULL);
3874
3875     IHTMLTxtRange_Release(range);
3876     IHTMLTxtRange_Release(body_range);
3877
3878     hres = IHTMLDocument2_get_selection(doc, &selection);
3879     ok(hres == S_OK, "IHTMLDocument2_get_selection failed: %08x\n", hres);
3880
3881     hres = IHTMLSelectionObject_createRange(selection, &disp_range);
3882     ok(hres == S_OK, "IHTMLSelectionObject_createRange failed: %08x\n", hres);
3883     IHTMLSelectionObject_Release(selection);
3884
3885     hres = IDispatch_QueryInterface(disp_range, &IID_IHTMLTxtRange, (void **)&range);
3886     ok(hres == S_OK, "Could not get IID_IHTMLTxtRange interface: 0x%08x\n", hres);
3887     IDispatch_Release(disp_range);
3888
3889     test_range_text(range, NULL);
3890     test_range_moveend(range, characterW, 3, 3);
3891     test_range_text(range, "wor");
3892     test_range_parent(range, ET_BODY);
3893     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
3894     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
3895     test_range_move(range, characterW, 3, 3);
3896     test_range_expand(range, wordW, VARIANT_TRUE, "wordabc ");
3897     test_range_moveend(range, characterW, -4, -4);
3898     test_range_put_text(range, "abc def ");
3899     test_range_expand(range, texteditW, VARIANT_TRUE, "abc def abc 123\r\nit's text");
3900     test_range_move(range, wordW, 1, 1);
3901     test_range_movestart(range, characterW, -1, -1);
3902     test_range_text(range, " ");
3903     test_range_move(range, wordW, 1, 1);
3904     test_range_moveend(range, characterW, 3, 3);
3905     test_range_text(range, "def");
3906     test_range_put_text(range, "xyz");
3907     test_range_moveend(range, characterW, 1, 1);
3908     test_range_move(range, wordW, 1, 1);
3909     test_range_moveend(range, characterW, 2, 2);
3910     test_range_text(range, "ab");
3911
3912     IHTMLTxtRange_Release(range);
3913 }
3914
3915 static void test_txtrange2(IHTMLDocument2 *doc)
3916 {
3917     IHTMLTxtRange *range;
3918
3919     range = test_create_body_range(doc);
3920
3921     test_range_text(range, "abc\r\n\r\n123\r\n\r\n\r\ndef");
3922     test_range_move(range, characterW, 5, 5);
3923     test_range_moveend(range, characterW, 1, 1);
3924     test_range_text(range, "2");
3925     test_range_move(range, characterW, -3, -3);
3926     test_range_moveend(range, characterW, 3, 3);
3927     test_range_text(range, "c\r\n\r\n1");
3928     test_range_collapse(range, VARIANT_FALSE);
3929     test_range_moveend(range, characterW, 4, 4);
3930     test_range_text(range, "23");
3931     test_range_moveend(range, characterW, 1, 1);
3932     test_range_text(range, "23\r\n\r\n\r\nd");
3933     test_range_moveend(range, characterW, -1, -1);
3934     test_range_text(range, "23");
3935     test_range_moveend(range, characterW, -1, -1);
3936     test_range_text(range, "23");
3937     test_range_moveend(range, characterW, -2, -2);
3938     test_range_text(range, "2");
3939
3940     IHTMLTxtRange_Release(range);
3941 }
3942
3943 static void test_compatmode(IHTMLDocument2 *doc)
3944 {
3945     IHTMLDocument5 *doc5;
3946     BSTR mode;
3947     HRESULT hres;
3948
3949     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
3950     ok(hres == S_OK, "Could not get IHTMLDocument5 interface: %08x\n", hres);
3951     if(FAILED(hres))
3952         return;
3953
3954     hres = IHTMLDocument5_get_compatMode(doc5, &mode);
3955     IHTMLDocument5_Release(doc5);
3956     ok(hres == S_OK, "get_compatMode failed: %08x\n", hres);
3957     ok(!strcmp_wa(mode, "BackCompat"), "compatMode=%s\n", wine_dbgstr_w(mode));
3958     SysFreeString(mode);
3959 }
3960
3961 static void test_location(IHTMLDocument2 *doc)
3962 {
3963     IHTMLLocation *location, *location2;
3964     IHTMLWindow2 *window;
3965     BSTR str;
3966     ULONG ref;
3967     HRESULT hres;
3968
3969     hres = IHTMLDocument2_get_location(doc, &location);
3970     ok(hres == S_OK, "get_location failed: %08x\n", hres);
3971
3972     hres = IHTMLDocument2_get_location(doc, &location2);
3973     ok(hres == S_OK, "get_location failed: %08x\n", hres);
3974
3975     ok(location == location2, "location != location2\n");
3976     IHTMLLocation_Release(location2);
3977
3978     hres = IHTMLDocument2_get_parentWindow(doc, &window);
3979     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
3980
3981     hres = IHTMLWindow2_get_location(window, &location2);
3982     ok(hres == S_OK, "get_location failed: %08x\n", hres);
3983     ok(location == location2, "location != location2\n");
3984     IHTMLLocation_Release(location2);
3985
3986     test_ifaces((IUnknown*)location, location_iids);
3987     test_disp2((IUnknown*)location, &DIID_DispHTMLLocation, &IID_IHTMLLocation, "about:blank");
3988
3989     hres = IHTMLLocation_get_pathname(location, &str);
3990     ok(hres == S_OK, "get_pathname failed: %08x\n", hres);
3991     ok(!strcmp_wa(str, "blank"), "unexpected pathname %s\n", wine_dbgstr_w(str));
3992     SysFreeString(str);
3993
3994     hres = IHTMLLocation_get_href(location, NULL);
3995     ok(hres == E_POINTER, "get_href passed: %08x\n", hres);
3996
3997     hres = IHTMLLocation_get_href(location, &str);
3998     ok(hres == S_OK, "get_href failed: %08x\n", hres);
3999     ok(!strcmp_wa(str, "about:blank"), "unexpected href %s\n", wine_dbgstr_w(str));
4000     SysFreeString(str);
4001
4002     ref = IHTMLLocation_Release(location);
4003     ok(!ref, "location chould be destroyed here\n");
4004 }
4005
4006 static void test_plugins_col(IHTMLDocument2 *doc)
4007 {
4008     IHTMLPluginsCollection *col, *col2;
4009     IHTMLWindow2 *window;
4010     IOmNavigator *nav;
4011     ULONG ref;
4012     LONG len;
4013     HRESULT hres;
4014
4015     window = get_doc_window(doc);
4016     hres = IHTMLWindow2_get_navigator(window, &nav);
4017     IHTMLWindow2_Release(window);
4018
4019     hres = IOmNavigator_get_plugins(nav, &col);
4020     ok(hres == S_OK, "get_plugins failed: %08x\n", hres);
4021
4022     hres = IOmNavigator_get_plugins(nav, &col2);
4023     ok(hres == S_OK, "get_plugins failed: %08x\n", hres);
4024     ok(iface_cmp((IUnknown*)col, (IUnknown*)col2), "col != col2\n");
4025     IHTMLPluginsCollection_Release(col2);
4026
4027     test_disp2((IUnknown*)col, &DIID_DispCPlugins, &IID_IHTMLPluginsCollection, "[object]");
4028
4029     len = 0xdeadbeef;
4030     hres = IHTMLPluginsCollection_get_length(col, &len);
4031     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4032     ok(!len, "length = %d\n", len);
4033
4034     ref = IHTMLPluginsCollection_Release(col);
4035     ok(!ref, "ref=%d\n", ref);
4036
4037     IOmNavigator_Release(nav);
4038 }
4039
4040 static void test_mime_types_col(IOmNavigator *nav)
4041 {
4042     IHTMLMimeTypesCollection *col, *col2;
4043     LONG length;
4044     ULONG ref;
4045     HRESULT hres;
4046
4047     hres = IOmNavigator_get_mimeTypes(nav, &col);
4048     ok(hres == S_OK, "get_mimeTypes failed: %08x\n", hres);
4049
4050     hres = IOmNavigator_get_mimeTypes(nav, &col2);
4051     ok(hres == S_OK, "get_mimeTypes failed: %08x\n", hres);
4052     ok(iface_cmp((IUnknown*)col, (IUnknown*)col2), "col != col2\n");
4053     IHTMLMimeTypesCollection_Release(col2);
4054
4055     test_disp((IUnknown*)col, &IID_IHTMLMimeTypesCollection, "[object]");
4056
4057     length = 0xdeadbeef;
4058     hres = IHTMLMimeTypesCollection_get_length(col, &length);
4059     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4060     ok(!length, "length = %d\n", length);
4061
4062     ref = IHTMLMimeTypesCollection_Release(col);
4063     ok(!ref, "ref=%d\n", ref);
4064 }
4065
4066 #define test_language_string(a,b) _test_language_string(__LINE__,a,b)
4067 static void _test_language_string(unsigned line, const WCHAR *lang, LCID lcid)
4068 {
4069     WCHAR buf[64];
4070     int res;
4071
4072     if(pLCIDToLocaleName) {
4073         res = pLCIDToLocaleName(lcid, buf, sizeof(buf)/sizeof(WCHAR), 0);
4074         ok_(__FILE__,line)(res, "LCIDToLocaleName failed: %u\n", GetLastError());
4075         ok_(__FILE__,line)(!lstrcmpW(lang, buf), "lang = %s, expected %s\n", wine_dbgstr_w(lang), wine_dbgstr_w(buf));
4076     }else {
4077         win_skip("LCIDToLocaleName not available, unable to test language string\n");
4078         ok_(__FILE__,line)(lang != NULL, "lang == NULL\n");
4079     }
4080 }
4081
4082 static void test_navigator(IHTMLDocument2 *doc)
4083 {
4084     IHTMLWindow2 *window;
4085     IOmNavigator *navigator, *navigator2;
4086     char buf[512];
4087     DWORD size;
4088     ULONG ref;
4089     BSTR bstr;
4090     HRESULT hres;
4091
4092     static const WCHAR v40[] = {'4','.','0'};
4093
4094     hres = IHTMLDocument2_get_parentWindow(doc, &window);
4095     ok(hres == S_OK, "parentWidnow failed: %08x\n", hres);
4096
4097     hres = IHTMLWindow2_get_navigator(window, &navigator);
4098     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
4099     ok(navigator != NULL, "navigator == NULL\n");
4100     test_disp2((IUnknown*)navigator, &DIID_DispHTMLNavigator, &IID_IOmNavigator, "[object]");
4101
4102     hres = IHTMLWindow2_get_navigator(window, &navigator2);
4103     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
4104     ok(navigator != navigator2, "navigator2 != navihgator\n");
4105
4106     IHTMLWindow2_Release(window);
4107     IOmNavigator_Release(navigator2);
4108
4109     hres = IOmNavigator_get_appCodeName(navigator, &bstr);
4110     ok(hres == S_OK, "get_appCodeName failed: %08x\n", hres);
4111     ok(!strcmp_wa(bstr, "Mozilla"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
4112     SysFreeString(bstr);
4113
4114     bstr = NULL;
4115     hres = IOmNavigator_get_appName(navigator, &bstr);
4116     ok(hres == S_OK, "get_appName failed: %08x\n", hres);
4117     ok(!strcmp_wa(bstr, "Microsoft Internet Explorer"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
4118     SysFreeString(bstr);
4119
4120     bstr = NULL;
4121     hres = IOmNavigator_get_platform(navigator, &bstr);
4122     ok(hres == S_OK, "get_platform failed: %08x\n", hres);
4123     ok(!strcmp_wa(bstr, sizeof(void*) == 8 ? "Win64" : "Win32")
4124        || (sizeof(void*) == 8 && broken(!strcmp_wa(bstr, "Win32") /* IE6 */)), "unexpected platform %s\n", wine_dbgstr_w(bstr));
4125     SysFreeString(bstr);
4126
4127     bstr = NULL;
4128     hres = IOmNavigator_get_cpuClass(navigator, &bstr);
4129     ok(hres == S_OK, "get_cpuClass failed: %08x\n", hres);
4130     ok(!strcmp_wa(bstr, sizeof(void*) == 8 ? "x64" : "x86"), "unexpected cpuClass %s\n", wine_dbgstr_w(bstr));
4131     SysFreeString(bstr);
4132
4133     bstr = NULL;
4134     hres = IOmNavigator_get_appVersion(navigator, &bstr);
4135     ok(hres == S_OK, "get_appVersion failed: %08x\n", hres);
4136     ok(!memcmp(bstr, v40, sizeof(v40)), "appVersion is %s\n", wine_dbgstr_w(bstr));
4137     SysFreeString(bstr);
4138
4139     bstr = NULL;
4140     hres = IOmNavigator_get_systemLanguage(navigator, &bstr);
4141     ok(hres == S_OK, "get_systemLanguage failed: %08x\n", hres);
4142     test_language_string(bstr, LOCALE_SYSTEM_DEFAULT);
4143     SysFreeString(bstr);
4144
4145     if (pGetUserDefaultUILanguage)
4146     {
4147         bstr = NULL;
4148         hres = IOmNavigator_get_browserLanguage(navigator, &bstr);
4149         ok(hres == S_OK, "get_browserLanguage failed: %08x\n", hres);
4150         test_language_string(bstr, pGetUserDefaultUILanguage());
4151         SysFreeString(bstr);
4152     }
4153     else
4154         win_skip("GetUserDefaultUILanguage not available\n");
4155
4156     bstr = NULL;
4157     hres = IOmNavigator_get_userLanguage(navigator, &bstr);
4158     ok(hres == S_OK, "get_userLanguage failed: %08x\n", hres);
4159     test_language_string(bstr, LOCALE_USER_DEFAULT);
4160     SysFreeString(bstr);
4161
4162     hres = IOmNavigator_toString(navigator, NULL);
4163     ok(hres == E_INVALIDARG, "toString failed: %08x\n", hres);
4164
4165     bstr = NULL;
4166     hres = IOmNavigator_toString(navigator, &bstr);
4167     ok(hres == S_OK, "toString failed: %08x\n", hres);
4168     ok(!strcmp_wa(bstr, "[object]"), "toString returned %s\n", wine_dbgstr_w(bstr));
4169     SysFreeString(bstr);
4170
4171     size = sizeof(buf);
4172     hres = ObtainUserAgentString(0, buf, &size);
4173     ok(hres == S_OK, "ObtainUserAgentString failed: %08x\n", hres);
4174
4175     bstr = NULL;
4176     hres = IOmNavigator_get_userAgent(navigator, &bstr);
4177     ok(hres == S_OK, "get_userAgent failed: %08x\n", hres);
4178     ok(!strcmp_wa(bstr, buf), "userAgent returned %s, expected \"%s\"\n", wine_dbgstr_w(bstr), buf);
4179     SysFreeString(bstr);
4180
4181     if(!strncmp(buf, "Mozilla/", 8)) {
4182         bstr = NULL;
4183         hres = IOmNavigator_get_appVersion(navigator, &bstr);
4184         ok(hres == S_OK, "get_appVersion failed: %08x\n", hres);
4185         ok(!strcmp_wa(bstr, buf+8), "appVersion returned %s, expected \"%s\"\n", wine_dbgstr_w(bstr), buf+8);
4186         SysFreeString(bstr);
4187     }else {
4188         skip("nonstandard user agent\n");
4189     }
4190
4191     bstr = NULL;
4192     hres = IOmNavigator_get_appMinorVersion(navigator, &bstr);
4193     ok(hres == S_OK, "get_appMonorVersion failed: %08x\n", hres);
4194     ok(bstr != NULL, "appMinorVersion returned NULL\n");
4195     SysFreeString(bstr);
4196
4197     test_mime_types_col(navigator);
4198
4199     ref = IOmNavigator_Release(navigator);
4200     ok(!ref, "navigator should be destroyed here\n");
4201 }
4202
4203 static void test_screen(IHTMLWindow2 *window)
4204 {
4205     IHTMLScreen *screen, *screen2;
4206     IDispatchEx *dispex;
4207     RECT work_area;
4208     LONG l, exl;
4209     HDC hdc;
4210     HRESULT hres;
4211
4212     screen = NULL;
4213     hres = IHTMLWindow2_get_screen(window, &screen);
4214     ok(hres == S_OK, "get_screen failed: %08x\n", hres);
4215     ok(screen != NULL, "screen == NULL\n");
4216
4217     screen2 = NULL;
4218     hres = IHTMLWindow2_get_screen(window, &screen2);
4219     ok(hres == S_OK, "get_screen failed: %08x\n", hres);
4220     ok(screen2 != NULL, "screen == NULL\n");
4221     ok(iface_cmp((IUnknown*)screen2, (IUnknown*)screen), "screen2 != screen\n");
4222     IHTMLScreen_Release(screen2);
4223
4224     hres = IHTMLScreen_QueryInterface(screen, &IID_IDispatchEx, (void**)&dispex);
4225     ok(hres == S_OK || broken(hres == E_NOINTERFACE), "Could not get IDispatchEx interface: %08x\n", hres);
4226     if(SUCCEEDED(hres)) {
4227         test_disp((IUnknown*)screen, &DIID_DispHTMLScreen, "[object]");
4228         IDispatchEx_Release(dispex);
4229     }
4230
4231     hdc = CreateICA("DISPLAY", NULL, NULL, NULL);
4232
4233     exl = GetDeviceCaps(hdc, HORZRES);
4234     l = 0xdeadbeef;
4235     hres = IHTMLScreen_get_width(screen, &l);
4236     ok(hres == S_OK, "get_width failed: %08x\n", hres);
4237     ok(l == exl, "width = %d, expected %d\n", l, exl);
4238
4239     exl = GetDeviceCaps(hdc, VERTRES);
4240     l = 0xdeadbeef;
4241     hres = IHTMLScreen_get_height(screen, &l);
4242     ok(hres == S_OK, "get_height failed: %08x\n", hres);
4243     ok(l == exl, "height = %d, expected %d\n", l, exl);
4244
4245     exl = GetDeviceCaps(hdc, BITSPIXEL);
4246     l = 0xdeadbeef;
4247     hres = IHTMLScreen_get_colorDepth(screen, &l);
4248     ok(hres == S_OK, "get_height failed: %08x\n", hres);
4249     ok(l == exl, "height = %d, expected %d\n", l, exl);
4250
4251     DeleteObject(hdc);
4252
4253     SystemParametersInfoW(SPI_GETWORKAREA, 0, &work_area, 0);
4254
4255     l = 0xdeadbeef;
4256     hres = IHTMLScreen_get_availHeight(screen, &l);
4257     ok(hres == S_OK, "get_availHeight failed: %08x\n", hres);
4258     ok(l == work_area.bottom-work_area.top, "availHeight = %d, expected %d\n", l, work_area.bottom-work_area.top);
4259
4260     l = 0xdeadbeef;
4261     hres = IHTMLScreen_get_availWidth(screen, &l);
4262     ok(hres == S_OK, "get_availWidth failed: %08x\n", hres);
4263     ok(l == work_area.right-work_area.left, "availWidth = %d, expected %d\n", l, work_area.right-work_area.left);
4264
4265     IHTMLScreen_Release(screen);
4266 }
4267
4268 static void test_default_selection(IHTMLDocument2 *doc)
4269 {
4270     IHTMLSelectionObject *selection;
4271     IHTMLTxtRange *range;
4272     IDispatch *disp;
4273     BSTR str;
4274     HRESULT hres;
4275
4276     hres = IHTMLDocument2_get_selection(doc, &selection);
4277     ok(hres == S_OK, "get_selection failed: %08x\n", hres);
4278
4279     hres = IHTMLSelectionObject_get_type(selection, &str);
4280     ok(hres == S_OK, "get_type failed: %08x\n", hres);
4281     ok(!strcmp_wa(str, "None"), "type = %s\n", wine_dbgstr_w(str));
4282     SysFreeString(str);
4283
4284     hres = IHTMLSelectionObject_createRange(selection, &disp);
4285     IHTMLSelectionObject_Release(selection);
4286     ok(hres == S_OK, "createRange failed: %08x\n", hres);
4287
4288     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTxtRange, (void**)&range);
4289     IDispatch_Release(disp);
4290     ok(hres == S_OK, "Could not get IHTMLTxtRange interface: %08x\n", hres);
4291
4292     test_range_text(range, NULL);
4293     IHTMLTxtRange_Release(range);
4294 }
4295
4296 static void test_doc_elem(IHTMLDocument2 *doc)
4297 {
4298     IHTMLDocument2 *doc_node, *owner_doc;
4299     IHTMLElement *elem;
4300     IHTMLDocument3 *doc3;
4301     HRESULT hres;
4302
4303     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
4304     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
4305
4306     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
4307     IHTMLDocument3_Release(doc3);
4308     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
4309
4310     test_node_name((IUnknown*)elem, "HTML");
4311     test_elem_tag((IUnknown*)elem, "HTML");
4312
4313     doc_node = get_doc_node(doc);
4314     owner_doc = get_owner_doc((IUnknown*)elem);
4315     ok(iface_cmp((IUnknown *)doc_node, (IUnknown *)owner_doc), "doc_node != owner_doc\n");
4316     IHTMLDocument2_Release(owner_doc);
4317
4318     owner_doc = get_owner_doc((IUnknown*)doc_node);
4319     ok(!owner_doc, "owner_doc = %p\n", owner_doc);
4320     IHTMLDocument2_Release(doc_node);
4321
4322     test_elem_client_rect((IUnknown*)elem);
4323
4324     IHTMLElement_Release(elem);
4325 }
4326
4327 static void test_default_body(IHTMLBodyElement *body)
4328 {
4329     LONG l;
4330     BSTR bstr;
4331     HRESULT hres;
4332     VARIANT v;
4333
4334     bstr = (void*)0xdeadbeef;
4335     hres = IHTMLBodyElement_get_background(body, &bstr);
4336     ok(hres == S_OK, "get_background failed: %08x\n", hres);
4337     ok(bstr == NULL, "bstr != NULL\n");
4338
4339     l = elem_get_scroll_height((IUnknown*)body);
4340     ok(l != -1, "scrollHeight == -1\n");
4341     l = elem_get_scroll_width((IUnknown*)body);
4342     ok(l != -1, "scrollWidth == -1\n");
4343     l = elem_get_scroll_top((IUnknown*)body);
4344     ok(!l, "scrollTop = %d\n", l);
4345     elem_get_scroll_left((IUnknown*)body);
4346
4347     /* get_text tests */
4348     hres = IHTMLBodyElement_get_text(body, &v);
4349     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
4350     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
4351     ok(bstr == NULL, "bstr != NULL\n");
4352
4353     /* get_text - Invalid Text */
4354     V_VT(&v) = VT_BSTR;
4355     V_BSTR(&v) = a2bstr("Invalid");
4356     hres = IHTMLBodyElement_put_text(body, v);
4357     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
4358     VariantClear(&v);
4359
4360     V_VT(&v) = VT_NULL;
4361     hres = IHTMLBodyElement_get_text(body, &v);
4362     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
4363     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
4364     ok(!strcmp_wa(V_BSTR(&v), "#00a0d0"), "v = %s, expected '#00a0d0'\n", wine_dbgstr_w(V_BSTR(&v)));
4365     VariantClear(&v);
4366
4367     /* get_text - Valid Text */
4368     V_VT(&v) = VT_BSTR;
4369     V_BSTR(&v) = a2bstr("#FF0000");
4370     hres = IHTMLBodyElement_put_text(body, v);
4371     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
4372     VariantClear(&v);
4373
4374     V_VT(&v) = VT_NULL;
4375     hres = IHTMLBodyElement_get_text(body, &v);
4376     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
4377     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
4378     ok(!strcmp_wa(V_BSTR(&v), "#ff0000"), "v = %s, expected '#ff0000'\n", wine_dbgstr_w(V_BSTR(&v)));
4379     VariantClear(&v);
4380 }
4381
4382 static void test_body_funs(IHTMLBodyElement *body)
4383 {
4384     VARIANT vbg, vDefaultbg;
4385     HRESULT hres;
4386
4387     hres = IHTMLBodyElement_get_bgColor(body, &vDefaultbg);
4388     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
4389     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
4390     ok(!V_BSTR(&vDefaultbg), "V_BSTR(bgColor) = %s\n", wine_dbgstr_w(V_BSTR(&vDefaultbg)));
4391
4392     V_VT(&vbg) = VT_BSTR;
4393     V_BSTR(&vbg) = a2bstr("red");
4394     hres = IHTMLBodyElement_put_bgColor(body, vbg);
4395     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
4396     VariantClear(&vbg);
4397
4398     hres = IHTMLBodyElement_get_bgColor(body, &vbg);
4399     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
4400     ok(V_VT(&vDefaultbg) == VT_BSTR, "V_VT(&vDefaultbg) != VT_BSTR\n");
4401     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
4402     VariantClear(&vbg);
4403
4404     /* Restore Originial */
4405     hres = IHTMLBodyElement_put_bgColor(body, vDefaultbg);
4406     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
4407     VariantClear(&vDefaultbg);
4408 }
4409
4410 static void test_window(IHTMLDocument2 *doc)
4411 {
4412     IHTMLWindow2 *window, *window2, *self;
4413     IHTMLDocument2 *doc2 = NULL;
4414     IDispatch *disp;
4415     IUnknown *unk;
4416     BSTR str;
4417     HRESULT hres;
4418
4419     hres = IHTMLDocument2_get_parentWindow(doc, &window);
4420     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
4421     test_ifaces((IUnknown*)window, window_iids);
4422     test_disp((IUnknown*)window, &DIID_DispHTMLWindow2, "[object]");
4423
4424     hres = IHTMLWindow2_get_document(window, &doc2);
4425     ok(hres == S_OK, "get_document failed: %08x\n", hres);
4426     ok(doc2 != NULL, "doc2 == NULL\n");
4427
4428     test_ifaces((IUnknown*)doc2, doc_node_iids);
4429     test_disp((IUnknown*)doc2, &DIID_DispHTMLDocument, "[object]");
4430     test_class_info((IUnknown*)doc2);
4431
4432     test_ifaces((IUnknown*)doc, doc_obj_iids);
4433     test_disp((IUnknown*)doc, &DIID_DispHTMLDocument, "[object]");
4434     test_class_info((IUnknown*)doc);
4435
4436     unk = (void*)0xdeadbeef;
4437     hres = IHTMLDocument2_QueryInterface(doc2, &IID_ICustomDoc, (void**)&unk);
4438     ok(hres == E_NOINTERFACE, "QueryInterface(IID_ICustomDoc) returned: %08x\n", hres);
4439     ok(!unk, "unk = %p\n", unk);
4440
4441     IHTMLDocument_Release(doc2);
4442
4443     hres = IHTMLWindow2_get_window(window, &window2);
4444     ok(hres == S_OK, "get_window failed: %08x\n", hres);
4445     ok(window2 != NULL, "window2 == NULL\n");
4446
4447     hres = IHTMLWindow2_get_self(window, &self);
4448     ok(hres == S_OK, "get_self failed: %08x\n", hres);
4449     ok(window2 != NULL, "self == NULL\n");
4450
4451     ok(self == window2, "self != window2\n");
4452
4453     IHTMLWindow2_Release(window2);
4454     IHTMLWindow2_Release(self);
4455
4456     disp = NULL;
4457     hres = IHTMLDocument2_get_Script(doc, &disp);
4458     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
4459     ok(disp == (void*)window, "disp != window\n");
4460     IDispatch_Release(disp);
4461
4462     hres = IHTMLWindow2_toString(window, NULL);
4463     ok(hres == E_INVALIDARG, "toString failed: %08x\n", hres);
4464
4465     str = NULL;
4466     hres = IHTMLWindow2_toString(window, &str);
4467     ok(hres == S_OK, "toString failed: %08x\n", hres);
4468     ok(!strcmp_wa(str, "[object]") ||
4469        !strcmp_wa(str, "[object Window]") /* win7 ie9 */, "toString returned %s\n", wine_dbgstr_w(str));
4470     SysFreeString(str);
4471
4472     test_window_name(window, NULL);
4473     set_window_name(window, "test");
4474     test_window_length(window, 0);
4475     test_screen(window);
4476     test_window_status(window);
4477     set_window_status(window, "Test!");
4478
4479     IHTMLWindow2_Release(window);
4480 }
4481
4482 static void test_defaults(IHTMLDocument2 *doc)
4483 {
4484     IHTMLStyleSheetsCollection *stylesheetcol;
4485     IHTMLCurrentStyle *cstyle;
4486     IHTMLBodyElement *body;
4487     IHTMLElement2 *elem2;
4488     IHTMLElement *elem;
4489     IHTMLStyle *style;
4490     LONG l;
4491     HRESULT hres;
4492     IHTMLElementCollection *collection;
4493
4494     elem = doc_get_body(doc);
4495
4496     hres = IHTMLDocument2_get_images(doc, NULL);
4497     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4498
4499     hres = IHTMLDocument2_get_images(doc, &collection);
4500     ok(hres == S_OK, "get_images failed: %08x\n", hres);
4501     if(hres == S_OK)
4502     {
4503         test_elem_collection((IUnknown*)collection, NULL, 0);
4504         IHTMLElementCollection_Release(collection);
4505     }
4506
4507     hres = IHTMLDocument2_get_applets(doc, NULL);
4508     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4509
4510     hres = IHTMLDocument2_get_applets(doc, &collection);
4511     ok(hres == S_OK, "get_applets failed: %08x\n", hres);
4512     if(hres == S_OK)
4513     {
4514         test_elem_collection((IUnknown*)collection, NULL, 0);
4515         IHTMLElementCollection_Release(collection);
4516     }
4517
4518     hres = IHTMLDocument2_get_links(doc, NULL);
4519     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4520
4521     hres = IHTMLDocument2_get_links(doc, &collection);
4522     ok(hres == S_OK, "get_links failed: %08x\n", hres);
4523     if(hres == S_OK)
4524     {
4525         test_elem_collection((IUnknown*)collection, NULL, 0);
4526         IHTMLElementCollection_Release(collection);
4527     }
4528
4529     hres = IHTMLDocument2_get_forms(doc, NULL);
4530     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4531
4532     hres = IHTMLDocument2_get_forms(doc, &collection);
4533     ok(hres == S_OK, "get_forms failed: %08x\n", hres);
4534     if(hres == S_OK)
4535     {
4536         test_elem_collection((IUnknown*)collection, NULL, 0);
4537         IHTMLElementCollection_Release(collection);
4538     }
4539
4540     hres = IHTMLDocument2_get_anchors(doc, NULL);
4541     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
4542
4543     hres = IHTMLDocument2_get_anchors(doc, &collection);
4544     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
4545     if(hres == S_OK)
4546     {
4547         test_elem_collection((IUnknown*)collection, NULL, 0);
4548         IHTMLElementCollection_Release(collection);
4549     }
4550
4551     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
4552     ok(hres == S_OK, "Could not get IHTMBodyElement: %08x\n", hres);
4553     test_default_body(body);
4554     test_body_funs(body);
4555     IHTMLBodyElement_Release(body);
4556
4557     hres = IHTMLElement_get_style(elem, &style);
4558     ok(hres == S_OK, "get_style failed: %08x\n", hres);
4559
4560     test_disp((IUnknown*)style, &DIID_DispHTMLStyle, "[object]");
4561     test_ifaces((IUnknown*)style, style_iids);
4562     IHTMLStyle_Release(style);
4563
4564     test_window(doc);
4565     test_compatmode(doc);
4566     test_location(doc);
4567     test_navigator(doc);
4568     test_plugins_col(doc);
4569
4570     elem2 = get_elem2_iface((IUnknown*)elem);
4571     hres = IHTMLElement2_get_currentStyle(elem2, &cstyle);
4572     ok(hres == S_OK, "get_currentStyle failed: %08x\n", hres);
4573     if(SUCCEEDED(hres)) {
4574         IUnknown *unk;
4575
4576         test_disp((IUnknown*)cstyle, &DIID_DispHTMLCurrentStyle, "[object]");
4577         test_ifaces((IUnknown*)cstyle, cstyle_iids);
4578
4579         hres = IHTMLCurrentStyle_QueryInterface(cstyle, &IID_IHTMLCurrentStyle4, (void**)&unk);
4580         if(SUCCEEDED(hres))
4581             IUnknown_Release(unk);
4582         else
4583         {
4584            /*IE6 doesn't have interface */
4585            win_skip("IID_IHTMLCurrentStyle4 not supported\n");
4586         }
4587
4588         IHTMLCurrentStyle_Release(cstyle);
4589     }
4590     IHTMLElement2_Release(elem2);
4591
4592     IHTMLElement_Release(elem);
4593
4594     hres = IHTMLDocument2_get_styleSheets(doc, &stylesheetcol);
4595     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
4596
4597     l = 0xdeadbeef;
4598     hres = IHTMLStyleSheetsCollection_get_length(stylesheetcol, &l);
4599     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4600     ok(l == 0, "length = %d\n", l);
4601
4602     IHTMLStyleSheetsCollection_Release(stylesheetcol);
4603
4604     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFiltersCollection, (void**)&body);
4605     ok(hres == E_NOINTERFACE, "got interface IHTMLFiltersCollection\n");
4606
4607     test_default_selection(doc);
4608     test_doc_title(doc, "");
4609 }
4610
4611 static void test_tr_elem(IHTMLElement *elem)
4612 {
4613     IHTMLElementCollection *col;
4614     IHTMLTableRow *row;
4615     HRESULT hres;
4616
4617     static const elem_type_t cell_types[] = {ET_TD,ET_TD};
4618
4619     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTableRow, (void**)&row);
4620     ok(hres == S_OK, "Could not get IHTMLTableRow iface: %08x\n", hres);
4621     if(FAILED(hres))
4622         return;
4623
4624     col = NULL;
4625     hres = IHTMLTableRow_get_cells(row, &col);
4626     ok(hres == S_OK, "get_cells failed: %08x\n", hres);
4627     ok(col != NULL, "get_cells returned NULL\n");
4628
4629     test_elem_collection((IUnknown*)col, cell_types, sizeof(cell_types)/sizeof(*cell_types));
4630     IHTMLElementCollection_Release(col);
4631
4632     IHTMLTable_Release(row);
4633 }
4634
4635 static void test_table_elem(IHTMLElement *elem)
4636 {
4637     IHTMLElementCollection *col;
4638     IHTMLTable *table;
4639     IHTMLDOMNode *node;
4640     HRESULT hres;
4641
4642     static const elem_type_t row_types[] = {ET_TR,ET_TR};
4643     static const elem_type_t all_types[] = {ET_TBODY,ET_TR,ET_TR,ET_TD,ET_TD};
4644
4645     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTable, (void**)&table);
4646     ok(hres == S_OK, "Could not get IHTMLTable iface: %08x\n", hres);
4647     if(FAILED(hres))
4648         return;
4649
4650     col = NULL;
4651     hres = IHTMLTable_get_rows(table, &col);
4652     ok(hres == S_OK, "get_rows failed: %08x\n", hres);
4653     ok(col != NULL, "get_ros returned NULL\n");
4654
4655     test_elem_collection((IUnknown*)col, row_types, sizeof(row_types)/sizeof(*row_types));
4656     IHTMLElementCollection_Release(col);
4657
4658     test_elem_all((IUnknown*)table, all_types, sizeof(all_types)/sizeof(*all_types));
4659
4660     node = clone_node((IUnknown*)table, VARIANT_TRUE);
4661     test_elem_tag((IUnknown*)node, "TABLE");
4662     test_elem_all((IUnknown*)node, all_types, sizeof(all_types)/sizeof(*all_types));
4663     IHTMLDOMNode_Release(node);
4664
4665     node = clone_node((IUnknown*)table, VARIANT_FALSE);
4666     test_elem_tag((IUnknown*)node, "TABLE");
4667     test_elem_all((IUnknown*)node, NULL, 0);
4668     IHTMLDOMNode_Release(node);
4669
4670     IHTMLTable_Release(table);
4671 }
4672
4673 static void doc_write(IHTMLDocument2 *doc, BOOL ln, const char *text)
4674 {
4675     SAFEARRAYBOUND dim;
4676     SAFEARRAY *sa;
4677     VARIANT *var;
4678     HRESULT hres;
4679
4680     dim.lLbound = 0;
4681     dim.cElements = 1;
4682     sa = SafeArrayCreate(VT_VARIANT, 1, &dim);
4683     SafeArrayAccessData(sa, (void**)&var);
4684     V_VT(var) = VT_BSTR;
4685     V_BSTR(var) = a2bstr(text);
4686     SafeArrayUnaccessData(sa);
4687
4688     if(ln)
4689         hres = IHTMLDocument2_writeln(doc, sa);
4690     else
4691         hres = IHTMLDocument2_write(doc, sa);
4692     ok(hres == S_OK, "write failed: %08x\n", hres);
4693
4694     SafeArrayDestroy(sa);
4695 }
4696
4697 static void test_frame_doc(IUnknown *frame_elem, BOOL iframe)
4698 {
4699     IHTMLDocument2 *window_doc, *elem_doc;
4700     IHTMLFrameElement3 *frame_elem3;
4701     IHTMLWindow2 *content_window;
4702     HRESULT hres;
4703
4704     content_window = get_frame_content_window(frame_elem);
4705     window_doc = get_window_doc(content_window);
4706     IHTMLWindow2_Release(content_window);
4707
4708     elem_doc = get_elem_doc(frame_elem);
4709     ok(iface_cmp((IUnknown*)window_doc, (IUnknown*)elem_doc), "content_doc != elem_doc\n");
4710
4711     if(!iframe) {
4712         hres = IUnknown_QueryInterface(frame_elem, &IID_IHTMLFrameElement3, (void**)&frame_elem3);
4713         if(SUCCEEDED(hres)) {
4714             IDispatch *disp = NULL;
4715
4716             hres = IHTMLFrameElement3_get_contentDocument(frame_elem3, &disp);
4717             ok(hres == S_OK, "get_contentDocument failed: %08x\n", hres);
4718             ok(disp != NULL, "contentDocument == NULL\n");
4719             ok(iface_cmp((IUnknown*)disp, (IUnknown*)window_doc), "contentDocument != contentWindow.document\n");
4720
4721             IDispatch_Release(disp);
4722             IHTMLFrameElement3_Release(frame_elem3);
4723         }else {
4724             win_skip("IHTMLFrameElement3 not supported\n");
4725         }
4726     }
4727
4728     IHTMLDocument2_Release(elem_doc);
4729     IHTMLDocument2_Release(window_doc);
4730 }
4731
4732 static void test_iframe_elem(IHTMLElement *elem)
4733 {
4734     IHTMLDocument2 *content_doc, *owner_doc;
4735     IHTMLElementCollection *col;
4736     IHTMLWindow2 *content_window;
4737     IDispatch *disp;
4738     VARIANT errv;
4739     BSTR str;
4740     HRESULT hres;
4741
4742     static const elem_type_t all_types[] = {
4743         ET_HTML,
4744         ET_HEAD,
4745         ET_TITLE,
4746         ET_BODY,
4747         ET_BR
4748     };
4749
4750     test_frame_doc((IUnknown*)elem, TRUE);
4751
4752     content_window = get_frame_content_window((IUnknown*)elem);
4753     test_window_length(content_window, 0);
4754
4755     content_doc = get_window_doc(content_window);
4756     IHTMLWindow2_Release(content_window);
4757
4758     str = a2bstr("text/html");
4759     V_VT(&errv) = VT_ERROR;
4760     disp = NULL;
4761     hres = IHTMLDocument2_open(content_doc, str, errv, errv, errv, &disp);
4762     SysFreeString(str);
4763     ok(hres == S_OK, "open failed: %08x\n", hres);
4764     ok(disp != NULL, "disp == NULL\n");
4765     ok(iface_cmp((IUnknown*)disp, (IUnknown*)content_window), "disp != content_window\n");
4766     IDispatch_Release(disp);
4767
4768     doc_write(content_doc, FALSE, "<html><head><title>test</title></head><body><br /></body>");
4769     doc_write(content_doc, TRUE, "</html>");
4770
4771     hres = IHTMLDocument2_get_all(content_doc, &col);
4772     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4773     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4774     IHTMLElementCollection_Release(col);
4775
4776     hres = IHTMLDocument2_close(content_doc);
4777     ok(hres == S_OK, "close failed: %08x\n", hres);
4778
4779     owner_doc = get_owner_doc((IUnknown*)content_doc);
4780     ok(!owner_doc, "owner_doc = %p\n", owner_doc);
4781
4782     IHTMLDocument2_Release(content_doc);
4783 }
4784
4785 static void test_stylesheet(IDispatch *disp)
4786 {
4787     IHTMLStyleSheetRulesCollection *col = NULL;
4788     IHTMLStyleSheet *stylesheet;
4789     HRESULT hres;
4790
4791     hres = IDispatch_QueryInterface(disp, &IID_IHTMLStyleSheet, (void**)&stylesheet);
4792     ok(hres == S_OK, "Could not get IHTMLStyleSheet: %08x\n", hres);
4793
4794     hres = IHTMLStyleSheet_get_rules(stylesheet, &col);
4795     ok(hres == S_OK, "get_rules failed: %08x\n", hres);
4796     ok(col != NULL, "col == NULL\n");
4797
4798     IHTMLStyleSheetRulesCollection_Release(col);
4799     IHTMLStyleSheet_Release(stylesheet);
4800 }
4801
4802 static void test_stylesheets(IHTMLDocument2 *doc)
4803 {
4804     IHTMLStyleSheetsCollection *col = NULL;
4805     VARIANT idx, res;
4806     LONG len = 0;
4807     HRESULT hres;
4808
4809     hres = IHTMLDocument2_get_styleSheets(doc, &col);
4810     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
4811     ok(col != NULL, "col == NULL\n");
4812
4813     test_disp2((IUnknown*)col, &DIID_DispHTMLStyleSheetsCollection, &IID_IHTMLStyleSheetsCollection, "[object]");
4814
4815     hres = IHTMLStyleSheetsCollection_get_length(col, &len);
4816     ok(hres == S_OK, "get_length failed: %08x\n", hres);
4817     ok(len == 1, "len=%d\n", len);
4818
4819     VariantInit(&res);
4820     V_VT(&idx) = VT_I4;
4821     V_I4(&idx) = 0;
4822
4823     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
4824     ok(hres == S_OK, "item failed: %08x\n", hres);
4825     ok(V_VT(&res) == VT_DISPATCH, "V_VT(res) = %d\n", V_VT(&res));
4826     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
4827     test_stylesheet(V_DISPATCH(&res));
4828     VariantClear(&res);
4829
4830     V_VT(&res) = VT_I4;
4831     V_VT(&idx) = VT_I4;
4832     V_I4(&idx) = 1;
4833
4834     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
4835     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4836     ok(V_VT(&res) == VT_EMPTY, "V_VT(res) = %d\n", V_VT(&res));
4837     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
4838     VariantClear(&res);
4839
4840     IHTMLStyleSheetsCollection_Release(col);
4841 }
4842
4843 static void test_child_col_disp(IHTMLDOMChildrenCollection *col)
4844 {
4845     IDispatchEx *dispex;
4846     IHTMLDOMNode *node;
4847     DISPPARAMS dp = {NULL, NULL, 0, 0};
4848     VARIANT var;
4849     EXCEPINFO ei;
4850     LONG type;
4851     DISPID id;
4852     BSTR bstr;
4853     HRESULT hres;
4854
4855     static const WCHAR w0[] = {'0',0};
4856     static const WCHAR w100[] = {'1','0','0',0};
4857
4858     hres = IHTMLDOMChildrenCollection_QueryInterface(col, &IID_IDispatchEx, (void**)&dispex);
4859     ok(hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
4860
4861     bstr = SysAllocString(w0);
4862     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
4863     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
4864     SysFreeString(bstr);
4865
4866     VariantInit(&var);
4867     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
4868     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
4869     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
4870     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
4871     node = get_node_iface((IUnknown*)V_DISPATCH(&var));
4872     type = get_node_type((IUnknown*)node);
4873     ok(type == 3, "type=%d\n", type);
4874     IHTMLDOMNode_Release(node);
4875     VariantClear(&var);
4876
4877     bstr = SysAllocString(w100);
4878     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
4879     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
4880     SysFreeString(bstr);
4881
4882     IDispatchEx_Release(dispex);
4883 }
4884
4885
4886
4887 static void test_elems(IHTMLDocument2 *doc)
4888 {
4889     IHTMLElementCollection *col;
4890     IHTMLDOMChildrenCollection *child_col;
4891     IHTMLElement *elem, *elem2, *elem3;
4892     IHTMLDOMNode *node, *node2;
4893     IHTMLWindow2 *window;
4894     IDispatch *disp;
4895     LONG type;
4896     HRESULT hres;
4897     IHTMLElementCollection *collection;
4898     IHTMLDocument3 *doc3;
4899     BSTR str;
4900
4901     static const elem_type_t all_types[] = {
4902         ET_HTML,
4903         ET_HEAD,
4904         ET_TITLE,
4905         ET_STYLE,
4906         ET_BODY,
4907         ET_COMMENT,
4908         ET_A,
4909         ET_INPUT,
4910         ET_SELECT,
4911         ET_OPTION,
4912         ET_OPTION,
4913         ET_TEXTAREA,
4914         ET_TABLE,
4915         ET_TBODY,
4916         ET_TR,
4917         ET_TR,
4918         ET_TD,
4919         ET_TD,
4920         ET_SCRIPT,
4921         ET_TEST,
4922         ET_OBJECT,
4923         ET_EMBED,
4924         ET_IMG,
4925         ET_IFRAME,
4926         ET_FORM,
4927         ET_DIV
4928     };
4929
4930     static const elem_type_t item_types[] = {
4931         ET_A,
4932         ET_OPTION,
4933         ET_TEXTAREA
4934     };
4935
4936     hres = IHTMLDocument2_get_all(doc, &col);
4937     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4938     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
4939     test_elem_col_item(col, "x", item_types, sizeof(item_types)/sizeof(item_types[0]));
4940     IHTMLElementCollection_Release(col);
4941
4942     hres = IHTMLDocument2_get_images(doc, &collection);
4943     ok(hres == S_OK, "get_images failed: %08x\n", hres);
4944     if(hres == S_OK)
4945     {
4946         static const elem_type_t images_types[] = {ET_IMG};
4947         test_elem_collection((IUnknown*)collection, images_types, 1);
4948
4949         IHTMLElementCollection_Release(collection);
4950     }
4951
4952     hres = IHTMLDocument2_get_links(doc, &collection);
4953     ok(hres == S_OK, "get_links failed: %08x\n", hres);
4954     if(hres == S_OK)
4955     {
4956         static const elem_type_t images_types[] = {ET_A};
4957         test_elem_collection((IUnknown*)collection, images_types, 1);
4958
4959         IHTMLElementCollection_Release(collection);
4960     }
4961
4962     hres = IHTMLDocument2_get_anchors(doc, &collection);
4963     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
4964     if(hres == S_OK)
4965     {
4966         static const elem_type_t anchor_types[] = {ET_A};
4967         test_elem_collection((IUnknown*)collection, anchor_types, 1);
4968
4969         IHTMLElementCollection_Release(collection);
4970     }
4971
4972     test_plugins_col(doc);
4973
4974     elem = get_doc_elem(doc);
4975     test_elem_all((IUnknown*)elem, all_types+1, sizeof(all_types)/sizeof(all_types[0])-1);
4976     IHTMLElement_Release(elem);
4977
4978     get_elem_by_id(doc, "xxx", FALSE);
4979     elem = get_doc_elem_by_id(doc, "xxx");
4980     ok(!elem, "elem != NULL\n");
4981
4982     elem = get_doc_elem_by_id(doc, "s");
4983     ok(elem != NULL, "elem == NULL\n");
4984     if(elem) {
4985         test_elem_type((IUnknown*)elem, ET_SELECT);
4986         test_elem_attr(elem, "xxx", NULL);
4987         test_elem_attr(elem, "id", "s");
4988         test_elem_class((IUnknown*)elem, NULL);
4989         test_elem_set_class((IUnknown*)elem, "cl");
4990         test_elem_set_class((IUnknown*)elem, NULL);
4991         test_elem_tabindex((IUnknown*)elem, 0);
4992         test_elem_set_tabindex((IUnknown*)elem, 1);
4993         test_elem_filters((IUnknown*)elem);
4994
4995         node = test_node_get_parent((IUnknown*)elem);
4996         ok(node != NULL, "node == NULL\n");
4997         test_node_name((IUnknown*)node, "BODY");
4998         node2 = test_node_get_parent((IUnknown*)node);
4999         IHTMLDOMNode_Release(node);
5000         ok(node2 != NULL, "node == NULL\n");
5001         test_node_name((IUnknown*)node2, "HTML");
5002         node = test_node_get_parent((IUnknown*)node2);
5003         IHTMLDOMNode_Release(node2);
5004         ok(node != NULL, "node == NULL\n");
5005         if (node)
5006         {
5007             test_node_name((IUnknown*)node, "#document");
5008             type = get_node_type((IUnknown*)node);
5009             ok(type == 9, "type=%d, expected 9\n", type);
5010             node2 = test_node_get_parent((IUnknown*)node);
5011             IHTMLDOMNode_Release(node);
5012             ok(node2 == NULL, "node != NULL\n");
5013         }
5014
5015         elem2 = test_elem_get_parent((IUnknown*)elem);
5016         ok(elem2 != NULL, "elem2 == NULL\n");
5017         test_node_name((IUnknown*)elem2, "BODY");
5018         elem3 = test_elem_get_parent((IUnknown*)elem2);
5019         IHTMLElement_Release(elem2);
5020         ok(elem3 != NULL, "elem3 == NULL\n");
5021         test_node_name((IUnknown*)elem3, "HTML");
5022         elem2 = test_elem_get_parent((IUnknown*)elem3);
5023         IHTMLElement_Release(elem3);
5024         ok(elem2 == NULL, "elem2 != NULL\n");
5025
5026         test_elem_getelembytag((IUnknown*)elem, ET_OPTION, 2);
5027         test_elem_getelembytag((IUnknown*)elem, ET_SELECT, 0);
5028         test_elem_getelembytag((IUnknown*)elem, ET_HTML, 0);
5029
5030         test_elem_innertext(elem, "opt1opt2");
5031
5032         IHTMLElement_Release(elem);
5033     }
5034
5035     elem = get_elem_by_id(doc, "s", TRUE);
5036     if(elem) {
5037         IHTMLSelectElement *select = get_select_iface((IUnknown*)elem);
5038         IHTMLDocument2 *doc_node, *elem_doc;
5039
5040         test_select_elem(select);
5041
5042         test_elem_title((IUnknown*)select, NULL);
5043         test_elem_set_title((IUnknown*)select, "Title");
5044         test_elem_title((IUnknown*)select, "Title");
5045         test_elem_offset((IUnknown*)select, "BODY");
5046         test_elem_bounding_client_rect((IUnknown*)select);
5047
5048         node = get_first_child((IUnknown*)select);
5049         ok(node != NULL, "node == NULL\n");
5050         if(node) {
5051             test_elem_type((IUnknown*)node, ET_OPTION);
5052             IHTMLDOMNode_Release(node);
5053         }
5054
5055         type = get_node_type((IUnknown*)select);
5056         ok(type == 1, "type=%d\n", type);
5057
5058         IHTMLSelectElement_Release(select);
5059
5060         elem_doc = get_elem_doc((IUnknown*)elem);
5061
5062         doc_node = get_doc_node(doc);
5063         ok(iface_cmp((IUnknown*)elem_doc, (IUnknown*)doc_node), "disp != doc\n");
5064         IHTMLDocument2_Release(doc_node);
5065         IHTMLDocument2_Release(elem_doc);
5066
5067         IHTMLElement_Release(elem);
5068     }
5069
5070     elem = get_elem_by_id(doc, "sc", TRUE);
5071     if(elem) {
5072         IHTMLScriptElement *script;
5073         BSTR type;
5074
5075         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLScriptElement, (void**)&script);
5076         ok(hres == S_OK, "Could not get IHTMLScriptElement interface: %08x\n", hres);
5077
5078         if(hres == S_OK)
5079         {
5080             VARIANT_BOOL vb;
5081
5082             hres = IHTMLScriptElement_put_type (script, NULL);
5083             ok(hres == S_OK, "put_type failed: %08x\n", hres);
5084             hres = IHTMLScriptElement_get_type(script, &type);
5085             ok(hres == S_OK, "get_type failed: %08x\n", hres);
5086             ok(type == NULL, "Unexpected type %s\n", wine_dbgstr_w(type));
5087
5088             hres = IHTMLScriptElement_put_type (script, a2bstr ("text/javascript"));
5089             ok(hres == S_OK, "put_type failed: %08x\n", hres);
5090             hres = IHTMLScriptElement_get_type(script, &type);
5091             ok(hres == S_OK, "get_type failed: %08x\n", hres);
5092             ok(!strcmp_wa(type, "text/javascript"), "Unexpected type %s\n", wine_dbgstr_w(type));
5093
5094             SysFreeString(type);
5095
5096             /* test defer */
5097             hres = IHTMLScriptElement_put_defer(script, VARIANT_TRUE);
5098             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
5099
5100             hres = IHTMLScriptElement_get_defer(script, &vb);
5101             ok(hres == S_OK, "get_defer failed: %08x\n", hres);
5102             ok(vb == VARIANT_TRUE, "get_defer result is %08x\n", hres);
5103
5104             hres = IHTMLScriptElement_put_defer(script, VARIANT_FALSE);
5105             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
5106
5107             str = (BSTR)0xdeadbeef;
5108             hres = IHTMLScriptElement_get_src(script, &str);
5109             ok(hres == S_OK, "get_src failed: %08x\n", hres);
5110             ok(!str, "src = %s\n", wine_dbgstr_w(str));
5111         }
5112
5113         IHTMLScriptElement_Release(script);
5114     }
5115
5116     elem = get_elem_by_id(doc, "in", TRUE);
5117     if(elem) {
5118         IHTMLInputElement *input;
5119
5120         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLInputElement, (void**)&input);
5121         ok(hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
5122
5123         test_elem_id((IUnknown*)elem, "in");
5124         test_elem_put_id((IUnknown*)elem, "newin");
5125         test_input_get_disabled(input, VARIANT_FALSE);
5126         test_input_set_disabled(input, VARIANT_TRUE);
5127         test_input_set_disabled(input, VARIANT_FALSE);
5128         test_elem3_set_disabled((IUnknown*)input, VARIANT_TRUE);
5129         test_input_get_disabled(input, VARIANT_TRUE);
5130         test_elem3_set_disabled((IUnknown*)input, VARIANT_FALSE);
5131         test_input_get_disabled(input, VARIANT_FALSE);
5132         test_elem_client_size((IUnknown*)elem);
5133         test_input_type(input, "text");
5134
5135         test_node_get_value_str((IUnknown*)elem, NULL);
5136         test_node_put_value_str((IUnknown*)elem, "test");
5137         test_node_get_value_str((IUnknown*)elem, NULL);
5138         test_input_value((IUnknown*)elem, NULL);
5139         test_input_put_value((IUnknown*)elem, "test");
5140         test_elem_class((IUnknown*)elem, "testclass");
5141         test_elem_tabindex((IUnknown*)elem, 2);
5142         test_elem_set_tabindex((IUnknown*)elem, 3);
5143         test_elem_title((IUnknown*)elem, "test title");
5144
5145         test_input_get_defaultchecked(input, VARIANT_FALSE);
5146         test_input_set_defaultchecked(input, VARIANT_TRUE);
5147         test_input_set_defaultchecked(input, VARIANT_FALSE);
5148
5149         test_input_get_checked(input, VARIANT_FALSE);
5150         test_input_set_checked(input, VARIANT_TRUE);
5151         test_input_set_checked(input, VARIANT_FALSE);
5152
5153         test_input_name(input, NULL);
5154         test_input_set_name(input, "test");
5155
5156         test_input_src(input, NULL);
5157         test_input_set_src(input, "about:blank");
5158
5159         IHTMLInputElement_Release(input);
5160         IHTMLElement_Release(elem);
5161     }
5162
5163     elem = get_elem_by_id(doc, "imgid", TRUE);
5164     if(elem) {
5165         test_img_src((IUnknown*)elem, "", NULL);
5166         test_img_set_src((IUnknown*)elem, "about:blank");
5167         test_img_src((IUnknown*)elem, "about:blank", NULL);
5168         test_img_alt((IUnknown*)elem, NULL);
5169         test_img_set_alt((IUnknown*)elem, "alt test");
5170         test_img_name((IUnknown*)elem, "WineImg");
5171         IHTMLElement_Release(elem);
5172     }
5173
5174     elem = get_elem_by_id(doc, "attr", TRUE);
5175     if(elem) {
5176         test_dynamic_properties(elem);
5177         test_attr_collection(elem);
5178         IHTMLElement_Release(elem);
5179     }
5180
5181     elem = get_elem_by_id(doc, "styleid", TRUE);
5182     if(elem) {
5183         test_style_media((IUnknown*)elem, NULL);
5184         test_style_put_media((IUnknown*)elem, "screen");
5185         test_style_type((IUnknown*)elem, NULL);
5186         test_style_put_type((IUnknown*)elem, "text/css");
5187         IHTMLElement_Release(elem);
5188     }
5189
5190     elem = get_doc_elem_by_id(doc, "tbl");
5191     ok(elem != NULL, "elem == NULL\n");
5192     if(elem) {
5193         test_table_elem(elem);
5194         IHTMLElement_Release(elem);
5195     }
5196
5197     elem = get_doc_elem_by_id(doc, "row2");
5198     ok(elem != NULL, "elem == NULL\n");
5199     if(elem) {
5200         test_tr_elem(elem);
5201         IHTMLElement_Release(elem);
5202     }
5203
5204     elem = get_doc_elem_by_id(doc, "ifr");
5205     ok(elem != NULL, "elem == NULL\n");
5206     if(elem) {
5207         test_iframe_elem(elem);
5208         IHTMLElement_Release(elem);
5209     }
5210
5211     elem = get_doc_elem_by_id(doc, "objid");
5212     ok(elem != NULL, "elem == NULL\n");
5213     if(elem) {
5214         test_object_vspace((IUnknown*)elem, 100);
5215         IHTMLElement_Release(elem);
5216     }
5217
5218     elem = get_elem_by_id(doc, "a", TRUE);
5219     if(elem) {
5220         test_anchor_href((IUnknown*)elem, "http://test/");
5221
5222         /* Change the href */
5223         test_anchor_put_href((IUnknown*)elem, "http://test1/");
5224         test_anchor_href((IUnknown*)elem, "http://test1/");
5225
5226         /* Restore the href */
5227         test_anchor_put_href((IUnknown*)elem, "http://test/");
5228         test_anchor_href((IUnknown*)elem, "http://test/");
5229
5230         /* target */
5231         test_anchor_get_target((IUnknown*)elem, NULL);
5232
5233         /* Change the target */
5234         test_anchor_put_target((IUnknown*)elem, "wine");
5235         test_anchor_get_target((IUnknown*)elem, "wine");
5236
5237         /* Restore the target */
5238         test_anchor_put_target((IUnknown*)elem, NULL);
5239         test_anchor_get_target((IUnknown*)elem, NULL);
5240
5241         IHTMLElement_Release(elem);
5242     }
5243
5244     elem = doc_get_body(doc);
5245
5246     node = get_first_child((IUnknown*)elem);
5247     ok(node != NULL, "node == NULL\n");
5248     if(node) {
5249         test_ifaces((IUnknown*)node, text_iids);
5250         test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
5251
5252         node2 = get_first_child((IUnknown*)node);
5253         ok(!node2, "node2 != NULL\n");
5254
5255         type = get_node_type((IUnknown*)node);
5256         ok(type == 3, "type=%d\n", type);
5257
5258         test_node_get_value_str((IUnknown*)node, "text test");
5259         test_node_put_value_str((IUnknown*)elem, "test text");
5260         test_node_get_value_str((IUnknown*)node, "text test");
5261
5262         hres = IHTMLDOMNode_get_attributes(node, &disp);
5263         ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
5264         ok(!disp, "disp != NULL\n");
5265
5266         IHTMLDOMNode_Release(node);
5267     }
5268
5269     child_col = get_child_nodes((IUnknown*)elem);
5270     ok(child_col != NULL, "child_coll == NULL\n");
5271     if(child_col) {
5272         LONG length = 0;
5273
5274         test_disp((IUnknown*)child_col, &DIID_DispDOMChildrenCollection, "[object]");
5275
5276         hres = IHTMLDOMChildrenCollection_get_length(child_col, &length);
5277         ok(hres == S_OK, "get_length failed: %08x\n", hres);
5278         ok(length, "length=0\n");
5279
5280         node2 = NULL;
5281         node = get_child_item(child_col, 0);
5282         ok(node != NULL, "node == NULL\n");
5283         if(node) {
5284             IHTMLDOMNode *prev;
5285
5286             type = get_node_type((IUnknown*)node);
5287             ok(type == 3, "type=%d\n", type);
5288             node2 = node_get_next((IUnknown*)node);
5289
5290             prev = node_get_prev((IUnknown*)node2);
5291             ok(iface_cmp((IUnknown*)node, (IUnknown*)prev), "node != prev\n");
5292             IHTMLDOMNode_Release(prev);
5293
5294             IHTMLDOMNode_Release(node);
5295         }
5296
5297         node = get_child_item(child_col, 1);
5298         ok(node != NULL, "node == NULL\n");
5299         if(node) {
5300             type = get_node_type((IUnknown*)node);
5301             ok(type == 8, "type=%d\n", type);
5302
5303             test_elem_id((IUnknown*)node, NULL);
5304             ok(iface_cmp((IUnknown*)node2, (IUnknown*)node), "node2 != node\n");
5305             IHTMLDOMNode_Release(node2);
5306             IHTMLDOMNode_Release(node);
5307         }
5308
5309         hres = IHTMLDOMChildrenCollection_item(child_col, length - 1, NULL);
5310         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
5311
5312         hres = IHTMLDOMChildrenCollection_item(child_col, length, NULL);
5313         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
5314
5315         hres = IHTMLDOMChildrenCollection_item(child_col, 6000, &disp);
5316         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
5317
5318         hres = IHTMLDOMChildrenCollection_item(child_col, length, &disp);
5319         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
5320
5321         test_child_col_disp(child_col);
5322
5323         IHTMLDOMChildrenCollection_Release(child_col);
5324     }
5325
5326     test_elem3_get_disabled((IUnknown*)elem, VARIANT_FALSE);
5327     test_elem3_set_disabled((IUnknown*)elem, VARIANT_TRUE);
5328     test_elem3_set_disabled((IUnknown*)elem, VARIANT_FALSE);
5329
5330     IHTMLElement_Release(elem);
5331
5332     elem = get_doc_elem_by_id(doc, "frm");
5333     ok(elem != NULL, "elem == NULL\n");
5334     if(elem) {
5335         test_form_length((IUnknown*)elem, 0);
5336         test_form_elements((IUnknown*)elem);
5337         IHTMLElement_Release(elem);
5338     }
5339
5340     test_stylesheets(doc);
5341     test_create_option_elem(doc);
5342     test_create_img_elem(doc);
5343
5344     elem = get_doc_elem_by_id(doc, "tbl");
5345     ok(elem != NULL, "elem = NULL\n");
5346     test_elem_set_innertext(elem, "inner text");
5347     IHTMLElement_Release(elem);
5348
5349     test_doc_title(doc, "test");
5350     test_doc_set_title(doc, "test title");
5351     test_doc_title(doc, "test title");
5352
5353     disp = NULL;
5354     hres = IHTMLDocument2_get_Script(doc, &disp);
5355     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
5356     if(hres == S_OK)
5357     {
5358         IDispatchEx *dispex;
5359         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
5360         ok(hres == S_OK, "IDispatch_QueryInterface failed: %08x\n", hres);
5361         if(hres == S_OK)
5362         {
5363             DISPID pid = -1;
5364             BSTR str = a2bstr("Testing");
5365             hres = IDispatchEx_GetDispID(dispex, str, 1, &pid);
5366             ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
5367             ok(pid != -1, "pid == -1\n");
5368             SysFreeString(str);
5369             IDispatchEx_Release(dispex);
5370         }
5371     }
5372     IDispatch_Release(disp);
5373
5374     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
5375     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
5376
5377     str = a2bstr("img");
5378     hres = IHTMLDocument3_getElementsByTagName(doc3, str, &col);
5379     ok(hres == S_OK, "getElementsByTagName(%s) failed: %08x\n", wine_dbgstr_w(str), hres);
5380     SysFreeString(str);
5381     if(hres == S_OK)
5382     {
5383         static const elem_type_t img_types[] = { ET_IMG };
5384
5385         test_elem_collection((IUnknown*)col, img_types, sizeof(img_types)/sizeof(img_types[0]));
5386         IHTMLElementCollection_Release(col);
5387     }
5388
5389     elem = get_doc_elem_by_id(doc, "y");
5390     test_elem_set_innerhtml((IUnknown*)elem, "inner html");
5391     test_elem_innerhtml((IUnknown*)elem, "inner html");
5392     test_elem_set_innerhtml((IUnknown*)elem, "");
5393     test_elem_innerhtml((IUnknown*)elem, NULL);
5394     node = node_get_next((IUnknown*)elem);
5395     ok(!node, "node = %p\n", node);
5396
5397     elem2 = get_doc_elem_by_id(doc, "x");
5398     test_elem_tag((IUnknown*)elem2, "A");
5399     node = node_get_next((IUnknown*)elem2);
5400     IHTMLDOMNode_Release(node);
5401     IHTMLElement_Release(elem2);
5402     IHTMLElement_Release(elem);
5403
5404     IHTMLDocument3_Release(doc3);
5405
5406     elem = get_elem_by_id(doc, "s", TRUE);
5407     if(elem) {
5408         static const elem_type_t select_types[] = { ET_OPTION, ET_OPTION, ET_OPTION };
5409
5410         test_select_put_length((IUnknown*)elem, 3);
5411         test_elem_all((IUnknown*)elem, select_types, sizeof(select_types)/sizeof(*select_types));
5412         test_select_put_length((IUnknown*)elem, 1);
5413         test_elem_all((IUnknown*)elem, select_types, 1);
5414         IHTMLElement_Release(elem);
5415     }
5416
5417     window = get_doc_window(doc);
5418     test_window_name(window, NULL);
5419     set_window_name(window, "test name");
5420     test_window_length(window, 1);
5421     IHTMLWindow2_Release(window);
5422 }
5423
5424 static void test_attr(IHTMLElement *elem)
5425 {
5426     IHTMLDOMAttribute *attr, *attr2;
5427     VARIANT v;
5428
5429     get_elem_attr_node((IUnknown*)elem, "noattr", FALSE);
5430
5431     attr = get_elem_attr_node((IUnknown*)elem, "id", TRUE);
5432
5433     test_disp((IUnknown*)attr, &DIID_DispHTMLDOMAttribute, "[object]");
5434     test_ifaces((IUnknown*)attr, attr_iids);
5435     test_no_iface((IUnknown*)attr, &IID_IHTMLDOMNode);
5436
5437     attr2 = get_elem_attr_node((IUnknown*)elem, "id", TRUE);
5438     ok(iface_cmp((IUnknown*)attr, (IUnknown*)attr2), "attr != attr2\n");
5439     IHTMLDOMAttribute_Release(attr2);
5440
5441     get_attr_node_value(attr, &v, VT_BSTR);
5442     ok(!strcmp_wa(V_BSTR(&v), "divid"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
5443     VariantClear(&v);
5444
5445     IHTMLDOMAttribute_Release(attr);
5446
5447     attr = get_elem_attr_node((IUnknown*)elem, "emptyattr", TRUE);
5448     get_attr_node_value(attr, &v, VT_BSTR);
5449     ok(!V_BSTR(&v), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
5450     VariantClear(&v);
5451     IHTMLDOMAttribute_Release(attr);
5452
5453     V_VT(&v) = VT_I4;
5454     V_I4(&v) = 100;
5455     set_dispex_value((IUnknown*)elem, "dispprop", &v);
5456     attr = get_elem_attr_node((IUnknown*)elem, "dispprop", TRUE);
5457     get_attr_node_value(attr, &v, VT_I4);
5458     ok(V_I4(&v) == 100, "V_I4(v) = %d\n", V_I4(&v));
5459     IHTMLDOMAttribute_Release(attr);
5460 }
5461
5462 static void test_blocked(IHTMLDocument2 *doc, IHTMLElement *outer_elem)
5463 {
5464     IHTMLElement *elem;
5465
5466     test_elem_set_innerhtml((IUnknown*)outer_elem,
5467             "<img id=\"imgid\" src=\"BLOCKED::http://www.winehq.org/img.png\" />");
5468     elem = get_elem_by_id(doc, "imgid", TRUE);
5469     if(elem) {
5470         test_img_src((IUnknown*)elem, "BLOCKED::", "blocked::http://www.winehq.org/img.png");
5471         IHTMLElement_Release(elem);
5472     }
5473
5474     test_elem_set_innerhtml((IUnknown*)outer_elem,
5475             "<img id=\"imgid\" src=\"BLOCKE::http://www.winehq.org/img.png\" />");
5476     elem = get_elem_by_id(doc, "imgid", TRUE);
5477     if(elem) {
5478         test_img_src((IUnknown*)elem, "blocke::http://www.winehq.org/img.png", NULL);
5479         test_img_set_src((IUnknown*)elem, "BLOCKED:http://www.winehq.org/img.png");
5480         test_img_src((IUnknown*)elem, "blocked:http://www.winehq.org/img.png", NULL);
5481         test_img_set_src((IUnknown*)elem, "blocked::http://www.winehq.org/img.png");
5482         test_img_src((IUnknown*)elem, "BLOCKED::", "blocked::http://www.winehq.org/img.png");
5483         IHTMLElement_Release(elem);
5484     }
5485 }
5486
5487 static void test_elems2(IHTMLDocument2 *doc)
5488 {
5489     IHTMLElement *elem, *elem2, *div;
5490
5491     static const elem_type_t outer_types[] = {
5492         ET_BR,
5493         ET_A
5494     };
5495
5496     div = get_doc_elem_by_id(doc, "divid");
5497
5498     test_elem_set_innerhtml((IUnknown*)div, "<div id=\"innerid\"></div>");
5499     elem2 = get_doc_elem_by_id(doc, "innerid");
5500     ok(elem2 != NULL, "elem2 == NULL\n");
5501     test_elem_set_outerhtml((IUnknown*)elem2, "<br><a href=\"about:blank\" id=\"aid\">a</a>");
5502     test_elem_all((IUnknown*)div, outer_types, sizeof(outer_types)/sizeof(*outer_types));
5503     IHTMLElement_Release(elem2);
5504
5505     elem2 = get_doc_elem_by_id(doc, "aid");
5506     ok(elem2 != NULL, "elem2 == NULL\n");
5507     test_elem_set_outerhtml((IUnknown*)elem2, "");
5508     test_elem_all((IUnknown*)div, outer_types, 1);
5509     IHTMLElement_Release(elem2);
5510
5511     test_elem_set_innerhtml((IUnknown*)div, "<textarea id=\"ta\"></textarea>");
5512     elem = get_elem_by_id(doc, "ta", TRUE);
5513     if(elem) {
5514         test_textarea_value((IUnknown*)elem, NULL);
5515         test_textarea_put_value((IUnknown*)elem, "test");
5516         test_textarea_readonly((IUnknown*)elem, VARIANT_FALSE);
5517         test_textarea_put_readonly((IUnknown*)elem, VARIANT_TRUE);
5518         test_textarea_put_readonly((IUnknown*)elem, VARIANT_FALSE);
5519         test_textarea_type((IUnknown*)elem);
5520         IHTMLElement_Release(elem);
5521     }
5522
5523     test_elem_set_innerhtml((IUnknown*)div,
5524             "<form id=\"form\"><input type=\"button\" /><div><input type=\"text\" /></div></textarea>");
5525     elem = get_elem_by_id(doc, "form", TRUE);
5526     if(elem) {
5527         test_form_length((IUnknown*)elem, 2);
5528         test_form_item(elem);
5529         test_form_action((IUnknown*)elem, NULL);
5530         test_form_put_action((IUnknown*)elem, "about:blank");
5531         test_form_method((IUnknown*)elem, "get");
5532         test_form_put_method((IUnknown*)elem, S_OK, "post");
5533         test_form_put_method((IUnknown*)elem, E_INVALIDARG, "put");
5534         test_form_method((IUnknown*)elem, "post");
5535         test_form_name((IUnknown*)elem, NULL);
5536         test_form_put_name((IUnknown*)elem, "Name");
5537         test_form_encoding((IUnknown*)elem, "application/x-www-form-urlencoded");
5538         test_form_put_encoding((IUnknown*)elem, S_OK, "text/plain");
5539         test_form_put_encoding((IUnknown*)elem, S_OK, "multipart/form-data");
5540         test_form_put_encoding((IUnknown*)elem, E_INVALIDARG, "image/png");
5541         test_form_encoding((IUnknown*)elem, "multipart/form-data");
5542         test_form_elements((IUnknown*)elem);
5543         IHTMLElement_Release(elem);
5544     }
5545
5546     test_attr(div);
5547     test_blocked(doc, div);
5548
5549     IHTMLElement_Release(div);
5550 }
5551
5552 static void test_create_elems(IHTMLDocument2 *doc)
5553 {
5554     IHTMLElement *elem, *body, *elem2;
5555     IHTMLDOMNode *node, *node2, *node3, *comment;
5556     IHTMLDocument5 *doc5;
5557     IDispatch *disp;
5558     VARIANT var;
5559     LONG type;
5560     HRESULT hres;
5561     BSTR str;
5562
5563     static const elem_type_t types1[] = { ET_TESTG };
5564
5565     elem = test_create_elem(doc, "TEST");
5566     test_elem_tag((IUnknown*)elem, "TEST");
5567     type = get_node_type((IUnknown*)elem);
5568     ok(type == 1, "type=%d\n", type);
5569     test_ifaces((IUnknown*)elem, elem_iids);
5570     test_disp((IUnknown*)elem, &DIID_DispHTMLGenericElement, "[object]");
5571
5572     body = doc_get_body(doc);
5573     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
5574
5575     node = test_node_append_child((IUnknown*)body, (IUnknown*)elem);
5576     test_node_has_child((IUnknown*)body, VARIANT_TRUE);
5577     elem2 = get_elem_iface((IUnknown*)node);
5578     IHTMLElement_Release(elem2);
5579
5580     hres = IHTMLElement_get_all(body, &disp);
5581     ok(hres == S_OK, "get_all failed: %08x\n", hres);
5582     test_elem_collection((IUnknown*)disp, types1, sizeof(types1)/sizeof(types1[0]));
5583     IDispatch_Release(disp);
5584
5585     test_node_remove_child((IUnknown*)body, node);
5586
5587     hres = IHTMLElement_get_all(body, &disp);
5588     ok(hres == S_OK, "get_all failed: %08x\n", hres);
5589     test_elem_collection((IUnknown*)disp, NULL, 0);
5590     IDispatch_Release(disp);
5591     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
5592
5593     IHTMLElement_Release(elem);
5594     IHTMLDOMNode_Release(node);
5595
5596     node = test_create_text(doc, "test");
5597     test_ifaces((IUnknown*)node, text_iids);
5598     test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
5599     test_text_length((IUnknown*)node, 4);
5600
5601     V_VT(&var) = VT_NULL;
5602     node2 = test_node_insertbefore((IUnknown*)body, node, &var);
5603     IHTMLDOMNode_Release(node);
5604
5605     node = test_create_text(doc, "insert ");
5606
5607     V_VT(&var) = VT_DISPATCH;
5608     V_DISPATCH(&var) = (IDispatch*)node2;
5609     node3 = test_node_insertbefore((IUnknown*)body, node, &var);
5610     IHTMLDOMNode_Release(node);
5611     IHTMLDOMNode_Release(node2);
5612     IHTMLDOMNode_Release(node3);
5613
5614     test_elem_innertext(body, "insert test");
5615     test_elem_innerhtml((IUnknown*)body, "insert test");
5616
5617     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
5618     if(hres == S_OK)
5619     {
5620         str = a2bstr("testing");
5621         hres = IHTMLDocument5_createComment(doc5, str, &comment);
5622         SysFreeString(str);
5623         ok(hres == S_OK, "createComment failed: %08x\n", hres);
5624         if(hres == S_OK)
5625         {
5626             type = get_node_type((IUnknown*)comment);
5627             ok(type == 8, "type=%d, expected 8\n", type);
5628
5629             test_node_get_value_str((IUnknown*)comment, "testing");
5630             test_elem_title((IUnknown*)comment, NULL);
5631             test_elem_set_title((IUnknown*)comment, "comment title");
5632             test_elem_title((IUnknown*)comment, "comment title");
5633             test_comment_text((IUnknown*)comment, "<!--testing-->");
5634             test_elem_outerhtml((IUnknown*)comment, "<!--testing-->");
5635             test_comment_attrs((IUnknown*)comment);
5636
5637             IHTMLDOMNode_Release(comment);
5638         }
5639
5640         IHTMLDocument5_Release(doc5);
5641     }
5642
5643     IHTMLElement_Release(body);
5644 }
5645
5646 static void test_replacechild_elems(IHTMLDocument2 *doc)
5647 {
5648     IHTMLElement *body;
5649     IHTMLDOMNode *node, *node2, *node3;
5650     IHTMLDOMNode *nodeBody, *nodeNew;
5651     HRESULT hres;
5652     VARIANT var;
5653
5654     body = doc_get_body(doc);
5655
5656     node = test_create_text(doc, "insert");
5657
5658     V_VT(&var) = VT_NULL;
5659     V_DISPATCH(&var) = NULL;
5660     node2 = test_node_insertbefore((IUnknown*)body, node, &var);
5661     IHTMLDOMNode_Release(node);
5662
5663     test_elem_innertext(body, "insert");
5664
5665     node3 = test_create_text(doc, "replaced");
5666
5667     nodeBody = _get_node_iface(__LINE__, (IUnknown *)body);
5668
5669     hres = IHTMLDOMNode_replaceChild(nodeBody, node3, node2, &nodeNew);
5670     ok(hres == S_OK, "Expected S_OK, got 0x%08x\n", hres);
5671
5672     test_elem_innertext(body, "replaced");
5673
5674     IHTMLDOMNode_Release(node2);
5675     IHTMLDOMNode_Release(node3);
5676     IHTMLDOMNode_Release(nodeBody);
5677
5678     IHTMLElement_Release(body);
5679 }
5680
5681 static void test_null_write(IHTMLDocument2 *doc)
5682 {
5683     HRESULT hres;
5684
5685     doc_write(doc, FALSE, NULL);
5686     doc_write(doc, TRUE, NULL);
5687
5688     hres = IHTMLDocument2_write(doc, NULL);
5689     ok(hres == S_OK,
5690        "Expected IHTMLDocument2::write to return S_OK, got 0x%08x\n", hres);
5691
5692     hres = IHTMLDocument2_writeln(doc, NULL);
5693     ok(hres == S_OK,
5694        "Expected IHTMLDocument2::writeln to return S_OK, got 0x%08x\n", hres);
5695 }
5696
5697 static void test_exec(IUnknown *unk, const GUID *grpid, DWORD cmdid, VARIANT *in, VARIANT *out)
5698 {
5699     IOleCommandTarget *cmdtrg;
5700     HRESULT hres;
5701
5702     hres = IHTMLTxtRange_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
5703     ok(hres == S_OK, "Could not get IOleCommandTarget interface: %08x\n", hres);
5704
5705     hres = IOleCommandTarget_Exec(cmdtrg, grpid, cmdid, 0, in, out);
5706     ok(hres == S_OK, "Exec failed: %08x\n", hres);
5707
5708     IOleCommandTarget_Release(cmdtrg);
5709 }
5710
5711 static void test_indent(IHTMLDocument2 *doc)
5712 {
5713     IHTMLElementCollection *col;
5714     IHTMLTxtRange *range;
5715     HRESULT hres;
5716
5717     static const elem_type_t all_types[] = {
5718         ET_HTML,
5719         ET_HEAD,
5720         ET_TITLE,
5721         ET_BODY,
5722         ET_BR,
5723         ET_A,
5724     };
5725
5726     static const elem_type_t indent_types[] = {
5727         ET_HTML,
5728         ET_HEAD,
5729         ET_TITLE,
5730         ET_BODY,
5731         ET_BLOCKQUOTE,
5732         ET_P,
5733         ET_BR,
5734         ET_A,
5735     };
5736
5737     hres = IHTMLDocument2_get_all(doc, &col);
5738     ok(hres == S_OK, "get_all failed: %08x\n", hres);
5739     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
5740     IHTMLElementCollection_Release(col);
5741
5742     range = test_create_body_range(doc);
5743     test_exec((IUnknown*)range, &CGID_MSHTML, IDM_INDENT, NULL, NULL);
5744     IHTMLTxtRange_Release(range);
5745
5746     hres = IHTMLDocument2_get_all(doc, &col);
5747     ok(hres == S_OK, "get_all failed: %08x\n", hres);
5748     test_elem_collection((IUnknown*)col, indent_types, sizeof(indent_types)/sizeof(indent_types[0]));
5749     IHTMLElementCollection_Release(col);
5750 }
5751
5752 static void test_cond_comment(IHTMLDocument2 *doc)
5753 {
5754     IHTMLElementCollection *col;
5755     HRESULT hres;
5756
5757     static const elem_type_t all_types[] = {
5758         ET_HTML,
5759         ET_HEAD,
5760         ET_TITLE,
5761         ET_BODY,
5762         ET_BR
5763     };
5764
5765     hres = IHTMLDocument2_get_all(doc, &col);
5766     ok(hres == S_OK, "get_all failed: %08x\n", hres);
5767     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
5768     IHTMLElementCollection_Release(col);
5769 }
5770
5771 static void test_frame(IDispatch *disp, const char *exp_id)
5772 {
5773     IHTMLWindow2 *frame2, *parent, *top;
5774     IHTMLDocument2 *parent_doc, *top_doc;
5775     IHTMLWindow4 *frame;
5776     IHTMLFrameBase *frame_elem;
5777     HRESULT hres;
5778
5779     hres = IDispatch_QueryInterface(disp, &IID_IHTMLWindow4, (void**)&frame);
5780     ok(hres == S_OK, "Could not get IHTMLWindow4 interface: 0x%08x\n", hres);
5781     if(FAILED(hres))
5782         return;
5783
5784     hres = IHTMLWindow4_get_frameElement(frame, &frame_elem);
5785     ok(hres == S_OK, "IHTMLWindow4_get_frameElement failed: 0x%08x\n", hres);
5786     IHTMLWindow4_Release(frame);
5787     if(FAILED(hres))
5788         return;
5789
5790     test_elem_type((IUnknown*)frame_elem, ET_FRAME);
5791     test_frame_doc((IUnknown*)frame_elem, FALSE);
5792     test_elem_id((IUnknown*)frame_elem, exp_id);
5793     IHTMLElement_Release(frame_elem);
5794
5795     hres = IDispatch_QueryInterface(disp, &IID_IHTMLWindow2, (void**)&frame2);
5796     ok(hres == S_OK, "Could not get IHTMLWindow2 interface: 0x%08x\n", hres);
5797     if(FAILED(hres))
5798         return;
5799
5800     hres = IHTMLWindow2_get_parent(frame2, &parent);
5801     ok(hres == S_OK, "IHTMLWindow2_get_parent failed: 0x%08x\n", hres);
5802     if(FAILED(hres)){
5803         IHTMLWindow2_Release(frame2);
5804         return;
5805     }
5806
5807     hres = IHTMLWindow2_get_document(parent, &parent_doc);
5808     ok(hres == S_OK, "IHTMLWindow2_get_document failed: 0x%08x\n", hres);
5809     IHTMLWindow2_Release(parent);
5810     if(FAILED(hres)){
5811         IHTMLWindow2_Release(frame2);
5812         return;
5813     }
5814
5815     test_doc_title(parent_doc, "frameset test");
5816     IHTMLDocument2_Release(parent_doc);
5817
5818     /* test get_top */
5819     hres = IHTMLWindow2_get_top(frame2, &top);
5820     ok(hres == S_OK, "IHTMLWindow2_get_top failed: 0x%08x\n", hres);
5821     IHTMLWindow2_Release(frame2);
5822     if(FAILED(hres))
5823         return;
5824
5825     hres = IHTMLWindow2_get_document(top, &top_doc);
5826     ok(hres == S_OK, "IHTMLWindow2_get_document failed: 0x%08x\n", hres);
5827     IHTMLWindow2_Release(top);
5828     if(FAILED(hres))
5829         return;
5830
5831     test_doc_title(top_doc, "frameset test");
5832     IHTMLDocument2_Release(top_doc);
5833 }
5834
5835 static void test_frameset(IHTMLDocument2 *doc)
5836 {
5837     IHTMLWindow2 *window;
5838     IHTMLFramesCollection2 *frames;
5839     IHTMLElement *elem;
5840     IHTMLFrameBase *fbase;
5841     LONG length;
5842     VARIANT index_var, result_var;
5843     BSTR str;
5844     HRESULT hres;
5845
5846     window = get_doc_window(doc);
5847
5848     /* test using IHTMLFramesCollection object */
5849
5850     hres = IHTMLWindow2_get_frames(window, &frames);
5851     ok(hres == S_OK, "IHTMLWindow2_get_frames failed: 0x%08x\n", hres);
5852     IHTMLWindow2_Release(window);
5853     if(FAILED(hres))
5854         return;
5855
5856     /* test result length */
5857     hres = IHTMLFramesCollection2_get_length(frames, &length);
5858     ok(hres == S_OK, "IHTMLFramesCollection2_get_length failed: 0x%08x\n", hres);
5859     ok(length == 3, "IHTMLFramesCollection2_get_length should have been 3, was: %d\n", length);
5860
5861     /* test first frame */
5862     V_VT(&index_var) = VT_I4;
5863     V_I4(&index_var) = 0;
5864     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
5865     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
5866     if(SUCCEEDED(hres)) {
5867         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5868         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr1");
5869     }
5870     VariantClear(&result_var);
5871
5872     /* test second frame */
5873     V_I4(&index_var) = 1;
5874     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
5875     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
5876     if(SUCCEEDED(hres)) {
5877         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5878         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr2");
5879     }
5880     VariantClear(&result_var);
5881
5882     /* fail on next frame */
5883     V_I4(&index_var) = 3;
5884     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
5885     ok(hres == DISP_E_MEMBERNOTFOUND, "IHTMLFramesCollection2_item should have"
5886            "failed with DISP_E_MEMBERNOTFOUND, instead: 0x%08x\n", hres);
5887     VariantClear(&result_var);
5888
5889     /* string argument (element id lookup) */
5890     V_VT(&index_var) = VT_BSTR;
5891     V_BSTR(&index_var) = a2bstr("fr1");
5892     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
5893     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
5894     if(SUCCEEDED(hres)) {
5895         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5896         test_frame(V_DISPATCH(&result_var), "fr1");
5897     }
5898     VariantClear(&result_var);
5899     VariantClear(&index_var);
5900
5901     /* invalid argument */
5902     V_VT(&index_var) = VT_BOOL;
5903     V_BOOL(&index_var) = VARIANT_TRUE;
5904     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
5905     ok(hres == E_INVALIDARG, "IHTMLFramesCollection2_item should have"
5906            "failed with E_INVALIDARG, instead: 0x%08x\n", hres);
5907     VariantClear(&result_var);
5908
5909     IHTMLFramesCollection2_Release(frames);
5910
5911     /* test using IHTMLWindow2 inheritance */
5912
5913     /* test result length */
5914     hres = IHTMLWindow2_get_length(window, &length);
5915     ok(hres == S_OK, "IHTMLWindow2_get_length failed: 0x%08x\n", hres);
5916     ok(length == 3, "IHTMLWindow2_get_length should have been 3, was: %d\n", length);
5917
5918     /* test first frame */
5919     V_VT(&index_var) = VT_I4;
5920     V_I4(&index_var) = 0;
5921     hres = IHTMLWindow2_item(window, &index_var, &result_var);
5922     ok(hres == S_OK, "IHTMLWindow2_item failed: 0x%08x\n", hres);
5923     if(SUCCEEDED(hres)) {
5924         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5925         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr1");
5926     }
5927     VariantClear(&result_var);
5928
5929     /* test second frame */
5930     V_I4(&index_var) = 1;
5931     hres = IHTMLWindow2_item(window, &index_var, &result_var);
5932     ok(hres == S_OK, "IHTMLWindow2_item failed: 0x%08x\n", hres);
5933     if(SUCCEEDED(hres)) {
5934         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5935         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr2");
5936     }
5937     VariantClear(&result_var);
5938
5939     /* fail on next frame */
5940     V_I4(&index_var) = 3;
5941     hres = IHTMLWindow2_item(window, &index_var, &result_var);
5942     ok(hres == DISP_E_MEMBERNOTFOUND, "IHTMLWindow2_item should have"
5943            "failed with DISP_E_MEMBERNOTFOUND, instead: 0x%08x\n", hres);
5944     VariantClear(&result_var);
5945
5946     /* string argument (element id lookup) */
5947     V_VT(&index_var) = VT_BSTR;
5948     V_BSTR(&index_var) = a2bstr("fr2");
5949     hres = IHTMLWindow2_item(window, &index_var, &result_var);
5950     ok(hres == S_OK, "IHTMLWindow2_item failed: 0x%08x\n", hres);
5951     if(SUCCEEDED(hres)) {
5952         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
5953         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr2");
5954     }
5955     VariantClear(&result_var);
5956     VariantClear(&index_var);
5957
5958     /* invalid argument */
5959     V_VT(&index_var) = VT_BOOL;
5960     V_BOOL(&index_var) = VARIANT_TRUE;
5961     hres = IHTMLWindow2_item(window, &index_var, &result_var);
5962     ok(hres == E_INVALIDARG, "IHTMLWindow2_item should have"
5963            "failed with E_INVALIDARG, instead: 0x%08x\n", hres);
5964     VariantClear(&result_var);
5965
5966     /* getElementById with node name attributes */
5967     elem = get_doc_elem_by_id(doc, "nm1");
5968     test_elem_id((IUnknown*)elem, "fr1");
5969
5970     /* get/put scrolling */
5971     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase, (void**)&fbase);
5972     ok(hres == S_OK, "Could not get IHTMLFrameBase interface: 0x%08x\n", hres);
5973
5974     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5975     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5976     ok(!strcmp_wa(str, "auto"), "get_scrolling should have given 'auto', gave: %s\n", wine_dbgstr_w(str));
5977     SysFreeString(str);
5978
5979     str = a2bstr("no");
5980     hres = IHTMLFrameBase_put_scrolling(fbase, str);
5981     ok(hres == S_OK, "IHTMLFrameBase_put_scrolling failed: 0x%08x\n", hres);
5982     SysFreeString(str);
5983
5984     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5985     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5986     ok(!strcmp_wa(str, "no"), "get_scrolling should have given 'no', gave: %s\n", wine_dbgstr_w(str));
5987     SysFreeString(str);
5988
5989     str = a2bstr("junk");
5990     hres = IHTMLFrameBase_put_scrolling(fbase, str);
5991     ok(hres == E_INVALIDARG, "IHTMLFrameBase_put_scrolling should have failed "
5992             "with E_INVALIDARG, instead: 0x%08x\n", hres);
5993     SysFreeString(str);
5994
5995     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5996     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5997     ok(!strcmp_wa(str, "no"), "get_scrolling should have given 'no', gave: %s\n", wine_dbgstr_w(str));
5998     SysFreeString(str);
5999
6000     /* get_name */
6001     hres = IHTMLFrameBase_get_name(fbase, &str);
6002     ok(hres == S_OK, "IHTMLFrameBase_get_name failed: 0x%08x\n", hres);
6003     ok(!strcmp_wa(str, "nm1"), "get_name should have given 'nm1', gave: %s\n", wine_dbgstr_w(str));
6004     SysFreeString(str);
6005
6006     IHTMLFrameBase_Release(fbase);
6007     IHTMLElement_Release(elem);
6008
6009     /* get_name with no name attr */
6010     elem = get_doc_elem_by_id(doc, "fr3");
6011     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase, (void**)&fbase);
6012     ok(hres == S_OK, "Could not get IHTMLFrameBase interface: 0x%08x\n", hres);
6013
6014     hres = IHTMLFrameBase_get_name(fbase, &str);
6015     ok(hres == S_OK, "IHTMLFrameBase_get_name failed: 0x%08x\n", hres);
6016     ok(str == NULL, "get_name should have given 'null', gave: %s\n", wine_dbgstr_w(str));
6017     SysFreeString(str);
6018
6019     IHTMLFrameBase_Release(fbase);
6020     IHTMLElement_Release(elem);
6021 }
6022
6023 static IHTMLDocument2 *create_docfrag(IHTMLDocument2 *doc)
6024 {
6025     IHTMLDocument2 *frag;
6026     IHTMLDocument3 *doc3;
6027     HRESULT hres;
6028
6029     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
6030     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
6031
6032     hres = IHTMLDocument3_createDocumentFragment(doc3, &frag);
6033     IHTMLDocument3_Release(doc3);
6034     ok(hres == S_OK, "createDocumentFragment failed: %08x\n", hres);
6035     ok(frag != NULL, "frag == NULL\n");
6036
6037     return frag;
6038 }
6039
6040 static void test_docfrag(IHTMLDocument2 *doc)
6041 {
6042     IHTMLElement *div, *body, *br;
6043     IHTMLElementCollection *col;
6044     IHTMLLocation *location;
6045     IHTMLDocument2 *frag;
6046     HRESULT hres;
6047
6048     static const elem_type_t all_types[] = {
6049         ET_HTML,
6050         ET_HEAD,
6051         ET_TITLE,
6052         ET_BODY,
6053         ET_DIV,
6054         ET_BR
6055     };
6056
6057     frag = create_docfrag(doc);
6058
6059     test_disp((IUnknown*)frag, &DIID_DispHTMLDocument, "[object]");
6060
6061     body = (void*)0xdeadbeef;
6062     hres = IHTMLDocument2_get_body(frag, &body);
6063     ok(hres == S_OK, "get_body failed: %08x\n", hres);
6064     ok(!body, "body != NULL\n");
6065
6066     location = (void*)0xdeadbeef;
6067     hres = IHTMLDocument2_get_location(frag, &location);
6068     ok(hres == E_UNEXPECTED, "get_location failed: %08x\n", hres);
6069     ok(location == (void*)0xdeadbeef, "location changed\n");
6070
6071     br = test_create_elem(doc, "BR");
6072     test_node_append_child((IUnknown*)frag, (IUnknown*)br);
6073     IHTMLElement_Release(br);
6074
6075     div = get_elem_by_id(doc, "divid", TRUE);
6076     test_node_append_child((IUnknown*)div, (IUnknown*)frag);
6077     IHTMLElement_Release(div);
6078
6079     hres = IHTMLDocument2_get_all(doc, &col);
6080     ok(hres == S_OK, "get_all failed: %08x\n", hres);
6081     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
6082     IHTMLElementCollection_Release(col);
6083
6084     IHTMLDocument2_Release(frag);
6085 }
6086
6087 static IHTMLDocument2 *notif_doc;
6088 static BOOL doc_complete;
6089
6090 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
6091         REFIID riid, void**ppv)
6092 {
6093     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
6094         *ppv = iface;
6095         return S_OK;
6096     }
6097
6098     ok(0, "unexpected call\n");
6099     return E_NOINTERFACE;
6100 }
6101
6102 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
6103 {
6104     return 2;
6105 }
6106
6107 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
6108 {
6109     return 1;
6110 }
6111
6112 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
6113 {
6114     if(dispID == DISPID_READYSTATE){
6115         BSTR state;
6116         HRESULT hres;
6117
6118         hres = IHTMLDocument2_get_readyState(notif_doc, &state);
6119         ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
6120
6121         if(!strcmp_wa(state, "complete"))
6122             doc_complete = TRUE;
6123
6124         SysFreeString(state);
6125     }
6126
6127     return S_OK;
6128 }
6129
6130 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
6131 {
6132     ok(0, "unexpected call\n");
6133     return E_NOTIMPL;
6134 }
6135
6136 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
6137     PropertyNotifySink_QueryInterface,
6138     PropertyNotifySink_AddRef,
6139     PropertyNotifySink_Release,
6140     PropertyNotifySink_OnChanged,
6141     PropertyNotifySink_OnRequestEdit
6142 };
6143
6144 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
6145
6146 static IHTMLDocument2 *create_doc_with_string(const char *str)
6147 {
6148     IPersistStreamInit *init;
6149     IStream *stream;
6150     IHTMLDocument2 *doc;
6151     HGLOBAL mem;
6152     SIZE_T len;
6153
6154     notif_doc = doc = create_document();
6155     if(!doc)
6156         return NULL;
6157
6158     doc_complete = FALSE;
6159     len = strlen(str);
6160     mem = GlobalAlloc(0, len);
6161     memcpy(mem, str, len);
6162     CreateStreamOnHGlobal(mem, TRUE, &stream);
6163
6164     IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
6165
6166     IPersistStreamInit_Load(init, stream);
6167     IPersistStreamInit_Release(init);
6168     IStream_Release(stream);
6169
6170     return doc;
6171 }
6172
6173 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
6174 {
6175     IConnectionPointContainer *container;
6176     IConnectionPoint *cp;
6177     DWORD cookie;
6178     HRESULT hres;
6179
6180     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
6181     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
6182
6183     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
6184     IConnectionPointContainer_Release(container);
6185     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
6186
6187     hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
6188     IConnectionPoint_Release(cp);
6189     ok(hres == S_OK, "Advise failed: %08x\n", hres);
6190 }
6191
6192 typedef void (*domtest_t)(IHTMLDocument2*);
6193
6194 static void run_domtest(const char *str, domtest_t test)
6195 {
6196     IHTMLDocument2 *doc;
6197     ULONG ref;
6198     MSG msg;
6199
6200     doc = create_doc_with_string(str);
6201     if(!doc)
6202         return;
6203
6204     do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
6205
6206     while(!doc_complete && GetMessage(&msg, NULL, 0, 0)) {
6207         TranslateMessage(&msg);
6208         DispatchMessage(&msg);
6209     }
6210
6211     test(doc);
6212
6213     ref = IHTMLDocument2_Release(doc);
6214     ok(!ref || broken(ref == 1), /* Vista */
6215        "ref = %d\n", ref);
6216 }
6217
6218 START_TEST(dom)
6219 {
6220     HMODULE hkernel32 = GetModuleHandleA("kernel32.dll");
6221     pLCIDToLocaleName = (void*)GetProcAddress(hkernel32, "LCIDToLocaleName");
6222     pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
6223
6224     CoInitialize(NULL);
6225
6226     run_domtest(doc_str1, test_doc_elem);
6227     run_domtest(doc_str1, test_get_set_attr);
6228     run_domtest(range_test_str, test_txtrange);
6229     run_domtest(range_test2_str, test_txtrange2);
6230     if (winetest_interactive || ! is_ie_hardened()) {
6231         run_domtest(elem_test_str, test_elems);
6232         run_domtest(elem_test2_str, test_elems2);
6233     }else {
6234         skip("IE running in Enhanced Security Configuration\n");
6235     }
6236     run_domtest(doc_blank, test_create_elems);
6237     run_domtest(doc_blank, test_defaults);
6238     run_domtest(doc_blank, test_null_write);
6239     run_domtest(indent_test_str, test_indent);
6240     run_domtest(cond_comment_str, test_cond_comment);
6241     run_domtest(frameset_str, test_frameset);
6242     run_domtest(emptydiv_str, test_docfrag);
6243     run_domtest(doc_blank, test_replacechild_elems);
6244
6245     CoUninitialize();
6246 }