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