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