dlls/mshtml/tests/dom.c

   1 /*
   2  * Copyright 2007-2011 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #define COBJMACROS
  20 #define CONST_VTABLE
  21
  22 #include <wine/test.h>
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "ole2.h"
  29 #include "mshtml.h"
  30 #include "mshtmcid.h"
  31 #include "mshtmhst.h"
  32 #include "docobj.h"
  33 #include "dispex.h"
  34 #include "mshtml_test.h"
  35 #include "objsafe.h"
  36 #include "htiface.h"
  37 #include "tlogstg.h"
  38
  39 static INT (WINAPI *pLCIDToLocaleName)(LCID,LPWSTR,INT,DWORD);
  40 static LANGID (WINAPI *pGetUserDefaultUILanguage)(void);
  41
  42 static const char doc_blank[] = "<html></html>";
  43 static const char doc_str1[] = "<html><body>test</body></html>";
  44 static const char range_test_str[] =
  45     "<html><body>test \na<font size=\"2\">bc\t123<br /> it's\r\n  \t</font>text<br /></body></html>";
  46 static const char range_test2_str[] =
  47     "<html><body>abc<hr />123<br /><hr />def</body></html>";
  48 static const char elem_test_str[] =
  49     "<html><head><title>test</title><style id=\"styleid\">.body { margin-right: 0px; }</style>"
  50     "<meta id=\"metaid\" name=\"meta name\" http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"
  51     "<link id=\"linkid\"></head>"
  52     "<body onload=\"Testing()\">text test<!-- a comment -->"
  53     "<a id=\"a\" href=\"http://test\" name=\"x\">link</a>"
  54     "<label for=\"in\" id=\"labelid\">Label:</label>"
  55     "<input id=\"in\" class=\"testclass\" tabIndex=\"2\" title=\"test title\" />"
  56     "<button id=\"btnid\"></button>"
  57     "<select id=\"s\"><option id=\"x\" value=\"val1\">opt1</option><option id=\"y\">opt2</option></select>"
  58     "<textarea id=\"X\">text text</textarea>"
  59     "<table id=\"tbl\"><tbody><tr></tr><tr id=\"row2\"><td id=\"td1\">td1 text</td><td id=\"td2\">td2 text</td></tr></tbody></table>"
  60     "<script id=\"sc\" type=\"text/javascript\"><!--\nfunction Testing() {}\n// -->\n</script>"
  61     "<test /><object id=\"objid\" name=\"objname\" vspace=100></object><embed />"
  62     "<img id=\"imgid\" name=\"WineImg\"/>"
  63     "<iframe src=\"about:blank\" id=\"ifr\"></iframe>"
  64     "<form id=\"frm\"></form>"
  65     "<div id=\"attr\" attr1=\"attr1\" attr2 attr3=\"attr3\"></div>"
  66     "</body></html>";
  67 static const char elem_test2_str[] =
  68     "<html><head><title>test</title><style>.body { margin-right: 0px; }</style>"
  69     "<link id=\"linkid\" rel=\"stylesheet\" href=\"about:blank\" type=\"text/css\"></head>"
  70     "<body><div id=\"divid\" emptyattr=\"\" onclick=\"parseInt();\"></div></body>"
  71     "</html>";
  72
  73 static const char indent_test_str[] =
  74     "<html><head><title>test</title></head><body>abc<br /><a href=\"about:blank\">123</a></body></html>";
  75 static const char cond_comment_str[] =
  76     "<html><head><title>test</title></head><body>"
  77     "<!--[if gte IE 4]> <br> <![endif]-->"
  78     "</body></html>";
  79 static const char frameset_str[] =
  80     "<html><head><title>frameset test</title></head><frameset rows=\"25, 25, *\">"
  81     "<frame src=\"about:blank\" name=\"nm1\" id=\"fr1\"><frame src=\"about:blank\" name=\"nm2\" id=\"fr2\">"
  82     "<frame src=\"about:blank\" id=\"fr3\">"
  83     "</frameset></html>";
  84 static const char emptydiv_str[] =
  85     "<html><head><title>emptydiv test</title></head>"
  86     "<body><div id=\"divid\"></div></body></html>";
  87 static const char noscript_str[] =
  88     "<html><head><title>noscript test</title><noscript><style>.body { margin-right: 0px; }</style></noscript></head>"
  89     "<body><noscript><div>test</div></noscript></body></html>";
  90 static const char doctype_str[] =
  91     "<!DOCTYPE html>"
  92     "<html><head><title>emptydiv test</title></head>"
  93     "<body><div id=\"divid\"></div></body></html>";
  94
  95 static WCHAR characterW[] = {'c','h','a','r','a','c','t','e','r',0};
  96 static WCHAR texteditW[] = {'t','e','x','t','e','d','i','t',0};
  97 static WCHAR wordW[] = {'w','o','r','d',0};
  98
  99 typedef enum {
 100     ET_NONE,
 101     ET_HTML,
 102     ET_HEAD,
 103     ET_TITLE,
 104     ET_BODY,
 105     ET_A,
 106     ET_INPUT,
 107     ET_SELECT,
 108     ET_TEXTAREA,
 109     ET_OPTION,
 110     ET_STYLE,
 111     ET_BLOCKQUOTE,
 112     ET_P,
 113     ET_BR,
 114     ET_TABLE,
 115     ET_TBODY,
 116     ET_SCRIPT,
 117     ET_TEST,
 118     ET_TESTG,
 119     ET_COMMENT,
 120     ET_IMG,
 121     ET_TR,
 122     ET_TD,
 123     ET_IFRAME,
 124     ET_FORM,
 125     ET_FRAME,
 126     ET_OBJECT,
 127     ET_EMBED,
 128     ET_DIV,
 129     ET_META,
 130     ET_NOSCRIPT,
 131     ET_LINK,
 132     ET_LABEL,
 133     ET_BUTTON
 134 } elem_type_t;
 135
 136 static const IID * const none_iids[] = {
 137     &IID_IUnknown,
 138     NULL
 139 };
 140
 141 static const IID * const doc_node_iids[] = {
 142     &IID_IHTMLDOMNode,
 143     &IID_IHTMLDOMNode2,
 144     &IID_IHTMLDocument,
 145     &IID_IHTMLDocument2,
 146     &IID_IHTMLDocument3,
 147     &IID_IHTMLDocument4,
 148     &IID_IHTMLDocument5,
 149     &IID_IDispatchEx,
 150     &IID_IConnectionPointContainer,
 151     &IID_IInternetHostSecurityManager,
 152     &IID_IOleContainer,
 153     &IID_IObjectSafety,
 154     &IID_IProvideClassInfo,
 155     NULL
 156 };
 157
 158 static const IID * const doc_obj_iids[] = {
 159     &IID_IHTMLDocument,
 160     &IID_IHTMLDocument2,
 161     &IID_IHTMLDocument3,
 162     &IID_IHTMLDocument4,
 163     &IID_IHTMLDocument5,
 164     &IID_IDispatchEx,
 165     &IID_IConnectionPointContainer,
 166     &IID_ICustomDoc,
 167     &IID_IOleContainer,
 168     &IID_IObjectSafety,
 169     &IID_IProvideClassInfo,
 170     &IID_ITargetContainer,
 171     NULL
 172 };
 173
 174 #define ELEM_IFACES \
 175     &IID_IHTMLDOMNode,  \
 176     &IID_IHTMLDOMNode2, \
 177     &IID_IHTMLElement,  \
 178     &IID_IHTMLElement2, \
 179     &IID_IHTMLElement3, \
 180     &IID_IHTMLElement4, \
 181     &IID_IDispatchEx
 182
 183 static const IID * const elem_iids[] = {
 184     ELEM_IFACES,
 185     &IID_IConnectionPointContainer,
 186     NULL
 187 };
 188
 189 static const IID * const body_iids[] = {
 190     ELEM_IFACES,
 191     &IID_IHTMLTextContainer,
 192     &IID_IHTMLBodyElement,
 193     &IID_IConnectionPointContainer,
 194     NULL
 195 };
 196
 197 static const IID * const anchor_iids[] = {
 198     ELEM_IFACES,
 199     &IID_IHTMLAnchorElement,
 200     &IID_IConnectionPointContainer,
 201     NULL
 202 };
 203
 204 static const IID * const input_iids[] = {
 205     ELEM_IFACES,
 206     &IID_IHTMLInputElement,
 207     &IID_IHTMLInputTextElement,
 208     &IID_IConnectionPointContainer,
 209     NULL
 210 };
 211
 212 static const IID *const button_iids[] = {
 213     ELEM_IFACES,
 214     &IID_IHTMLButtonElement,
 215     &IID_IConnectionPointContainer,
 216     NULL
 217 };
 218
 219 static const IID * const label_iids[] = {
 220     ELEM_IFACES,
 221     &IID_IHTMLLabelElement,
 222     &IID_IConnectionPointContainer,
 223     NULL
 224 };
 225
 226 static const IID * const select_iids[] = {
 227     ELEM_IFACES,
 228     &IID_IHTMLSelectElement,
 229     &IID_IConnectionPointContainer,
 230     NULL
 231 };
 232
 233 static const IID * const textarea_iids[] = {
 234     ELEM_IFACES,
 235     &IID_IHTMLTextAreaElement,
 236     &IID_IConnectionPointContainer,
 237     NULL
 238 };
 239
 240 static const IID * const option_iids[] = {
 241     ELEM_IFACES,
 242     &IID_IHTMLOptionElement,
 243     &IID_IConnectionPointContainer,
 244     NULL
 245 };
 246
 247 static const IID * const table_iids[] = {
 248     ELEM_IFACES,
 249     &IID_IHTMLTable,
 250     &IID_IHTMLTable2,
 251     &IID_IHTMLTable3,
 252     &IID_IConnectionPointContainer,
 253     NULL
 254 };
 255
 256 static const IID * const script_iids[] = {
 257     ELEM_IFACES,
 258     &IID_IHTMLScriptElement,
 259     &IID_IConnectionPointContainer,
 260     NULL
 261 };
 262
 263 static const IID * const text_iids[] = {
 264     &IID_IHTMLDOMNode,
 265     &IID_IHTMLDOMNode2,
 266     &IID_IHTMLDOMTextNode,
 267     NULL
 268 };
 269
 270 static const IID * const attr_iids[] = {
 271     &IID_IHTMLDOMAttribute,
 272     &IID_IDispatchEx,
 273     NULL
 274 };
 275
 276 static const IID * const location_iids[] = {
 277     &IID_IDispatch,
 278     &IID_IHTMLLocation,
 279     NULL
 280 };
 281
 282 static const IID * const window_iids[] = {
 283     &IID_IDispatch,
 284     &IID_IHTMLWindow2,
 285     &IID_IHTMLWindow3,
 286     &IID_IDispatchEx,
 287     &IID_IServiceProvider,
 288     NULL
 289 };
 290
 291 static const IID * const comment_iids[] = {
 292     ELEM_IFACES,
 293     &IID_IHTMLCommentElement,
 294     &IID_IConnectionPointContainer,
 295     NULL
 296 };
 297
 298 static const IID * const img_iids[] = {
 299     ELEM_IFACES,
 300     &IID_IHTMLImgElement,
 301     &IID_IConnectionPointContainer,
 302     NULL
 303 };
 304
 305 static const IID * const tr_iids[] = {
 306     ELEM_IFACES,
 307     &IID_IHTMLTableRow,
 308     &IID_IConnectionPointContainer,
 309     NULL
 310 };
 311
 312 static const IID * const td_iids[] = {
 313     ELEM_IFACES,
 314     &IID_IHTMLTableCell,
 315     &IID_IConnectionPointContainer,
 316     NULL
 317 };
 318
 319 static const IID * const frame_iids[] = {
 320     ELEM_IFACES,
 321     &IID_IHTMLFrameBase,
 322     &IID_IHTMLFrameBase2,
 323     &IID_IConnectionPointContainer,
 324     NULL
 325 };
 326
 327 static const IID * const head_iids[] = {
 328     ELEM_IFACES,
 329     &IID_IHTMLHeadElement,
 330     &IID_IConnectionPointContainer,
 331     NULL
 332 };
 333
 334 static const IID * const title_iids[] = {
 335     ELEM_IFACES,
 336     &IID_IHTMLTitleElement,
 337     &IID_IConnectionPointContainer,
 338     NULL
 339 };
 340
 341 static const IID * const meta_iids[] = {
 342     ELEM_IFACES,
 343     &IID_IHTMLMetaElement,
 344     &IID_IConnectionPointContainer,
 345     NULL
 346 };
 347
 348 static const IID * const link_iids[] = {
 349     ELEM_IFACES,
 350     &IID_IHTMLLinkElement,
 351     &IID_IConnectionPointContainer,
 352     NULL
 353 };
 354
 355 static const IID * const object_iids[] = {
 356     ELEM_IFACES,
 357     &IID_IHTMLObjectElement,
 358     &IID_IHTMLObjectElement2,
 359     /* FIXME: No IConnectionPointContainer */
 360     NULL
 361 };
 362
 363 static const IID * const embed_iids[] = {
 364     ELEM_IFACES,
 365     &IID_IHTMLEmbedElement,
 366     /* FIXME: No IConnectionPointContainer */
 367     NULL
 368 };
 369
 370 static const IID * const iframe_iids[] = {
 371     ELEM_IFACES,
 372     &IID_IHTMLFrameBase,
 373     &IID_IHTMLFrameBase2,
 374     &IID_IHTMLIFrameElement,
 375     &IID_IHTMLIFrameElement2,
 376     &IID_IConnectionPointContainer,
 377     NULL
 378 };
 379
 380 static const IID * const form_iids[] = {
 381     ELEM_IFACES,
 382     &IID_IHTMLFormElement,
 383     &IID_IConnectionPointContainer,
 384     &DIID_DispHTMLFormElement,
 385     NULL
 386 };
 387
 388 static const IID * const styleelem_iids[] = {
 389     ELEM_IFACES,
 390     &IID_IHTMLStyleElement,
 391     &IID_IConnectionPointContainer,
 392     NULL
 393 };
 394
 395 static const IID * const generic_iids[] = {
 396     ELEM_IFACES,
 397     &IID_IHTMLGenericElement,
 398     &IID_IConnectionPointContainer,
 399     NULL
 400 };
 401
 402 static const IID * const style_iids[] = {
 403     &IID_IUnknown,
 404     &IID_IDispatch,
 405     &IID_IDispatchEx,
 406     &IID_IHTMLStyle,
 407     &IID_IHTMLStyle2,
 408     &IID_IHTMLStyle3,
 409     &IID_IHTMLStyle4,
 410     NULL
 411 };
 412
 413 static const IID * const cstyle_iids[] = {
 414     &IID_IUnknown,
 415     &IID_IDispatch,
 416     &IID_IDispatchEx,
 417     &IID_IHTMLCurrentStyle,
 418     &IID_IHTMLCurrentStyle2,
 419     &IID_IHTMLCurrentStyle3,
 420     NULL
 421 };
 422
 423 static const IID * const img_factory_iids[] = {
 424     &IID_IUnknown,
 425     &IID_IDispatch,
 426     &IID_IDispatchEx,
 427     &IID_IHTMLImageElementFactory,
 428     NULL
 429 };
 430
 431 typedef struct {
 432     const char *tag;
 433     REFIID *iids;
 434     const IID *dispiid;
 435 } elem_type_info_t;
 436
 437 static const elem_type_info_t elem_type_infos[] = {
 438     {"",          none_iids,        NULL},
 439     {"HTML",      elem_iids,        NULL},
 440     {"HEAD",      head_iids,        &DIID_DispHTMLHeadElement},
 441     {"TITLE",     title_iids,       &DIID_DispHTMLTitleElement},
 442     {"BODY",      body_iids,        &DIID_DispHTMLBody},
 443     {"A",         anchor_iids,      &DIID_DispHTMLAnchorElement},
 444     {"INPUT",     input_iids,       &DIID_DispHTMLInputElement},
 445     {"SELECT",    select_iids,      &DIID_DispHTMLSelectElement},
 446     {"TEXTAREA",  textarea_iids,    &DIID_DispHTMLTextAreaElement},
 447     {"OPTION",    option_iids,      &DIID_DispHTMLOptionElement},
 448     {"STYLE",     styleelem_iids,   &DIID_DispHTMLStyleElement},
 449     {"BLOCKQUOTE",elem_iids,        NULL},
 450     {"P",         elem_iids,        NULL},
 451     {"BR",        elem_iids,        NULL},
 452     {"TABLE",     table_iids,       &DIID_DispHTMLTable},
 453     {"TBODY",     elem_iids,        NULL},
 454     {"SCRIPT",    script_iids,      &DIID_DispHTMLScriptElement},
 455     {"TEST",      elem_iids,        &DIID_DispHTMLUnknownElement},
 456     {"TEST",      generic_iids,     &DIID_DispHTMLGenericElement},
 457     {"!",         comment_iids,     &DIID_DispHTMLCommentElement},
 458     {"IMG",       img_iids,         &DIID_DispHTMLImg},
 459     {"TR",        tr_iids,          &DIID_DispHTMLTableRow},
 460     {"TD",        td_iids,          &DIID_DispHTMLTableCell},
 461     {"IFRAME",    iframe_iids,      &DIID_DispHTMLIFrame},
 462     {"FORM",      form_iids,        &DIID_DispHTMLFormElement},
 463     {"FRAME",     frame_iids,       &DIID_DispHTMLFrameElement},
 464     {"OBJECT",    object_iids,      &DIID_DispHTMLObjectElement},
 465     {"EMBED",     embed_iids,       &DIID_DispHTMLEmbed},
 466     {"DIV",       elem_iids,        NULL},
 467     {"META",      meta_iids,        &DIID_DispHTMLMetaElement},
 468     {"NOSCRIPT",  elem_iids,        NULL /*&DIID_DispHTMLNoShowElement*/},
 469     {"LINK",      link_iids,        &DIID_DispHTMLLinkElement},
 470     {"LABEL",     label_iids,       &DIID_DispHTMLLabelElement},
 471     {"BUTTON",    button_iids,      &DIID_DispHTMLButtonElement}
 472 };
 473
 474 static int strcmp_wa(LPCWSTR strw, const char *stra)
 475 {
 476     CHAR buf[512];
 477     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
 478     return lstrcmpA(stra, buf);
 479 }
 480
 481 static BSTR a2bstr(const char *str)
 482 {
 483     BSTR ret;
 484     int len;
 485
 486     if(!str)
 487         return NULL;
 488
 489     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 490     ret = SysAllocStringLen(NULL, len);
 491     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 492
 493     return ret;
 494 }
 495
 496 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
 497 {
 498     IUnknown *unk1, *unk2;
 499
 500     if(iface1 == iface2)
 501         return TRUE;
 502
 503     IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
 504     IUnknown_Release(unk1);
 505     IUnknown_QueryInterface(iface2, &IID_IUnknown, (void**)&unk2);
 506     IUnknown_Release(unk2);
 507
 508     return unk1 == unk2;
 509 }
 510
 511 static IHTMLDocument2 *create_document(void)
 512 {
 513     IHTMLDocument2 *doc;
 514     IHTMLDocument5 *doc5;
 515     HRESULT hres;
 516
 517     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 518             &IID_IHTMLDocument2, (void**)&doc);
 519     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 520     if(FAILED(hres))
 521         return NULL;
 522
 523     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
 524     if(FAILED(hres)) {
 525         win_skip("Could not get IHTMLDocument5, probably too old IE\n");
 526         IHTMLDocument2_Release(doc);
 527         return NULL;
 528     }
 529
 530     IHTMLDocument5_Release(doc5);
 531     return doc;
 532 }
 533
 534 #define get_dispex_iface(u) _get_dispex_iface(__LINE__,u)
 535 static IDispatchEx *_get_dispex_iface(unsigned line, IUnknown *unk)
 536 {
 537     IDispatchEx *dispex;
 538     HRESULT hres;
 539
 540     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 541     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
 542     return dispex;
 543 }
 544
 545 #define test_ifaces(i,ids) _test_ifaces(__LINE__,i,ids)
 546 static void _test_ifaces(unsigned line, IUnknown *iface, REFIID *iids)
 547 {
 548     const IID * const *piid;
 549     IUnknown *unk;
 550     HRESULT hres;
 551
 552      for(piid = iids; *piid; piid++) {
 553         hres = IUnknown_QueryInterface(iface, *piid, (void**)&unk);
 554         ok_(__FILE__,line) (hres == S_OK, "Could not get %s interface: %08x\n", wine_dbgstr_guid(*piid), hres);
 555         if(SUCCEEDED(hres))
 556             IUnknown_Release(unk);
 557     }
 558 }
 559
 560 #define test_no_iface(a,b) _test_no_iface(__LINE__,a,b)
 561 static void _test_no_iface(unsigned line, IUnknown *iface, REFIID iid)
 562 {
 563     IUnknown *unk;
 564     HRESULT hres;
 565
 566     unk = (void*)0xdeadbeef;
 567     hres = IUnknown_QueryInterface(iface, iid, (void**)&unk);
 568     ok_(__FILE__,line)(hres == E_NOINTERFACE, "hres = %08x, expected E_NOINTERFACE\n", hres);
 569     ok_(__FILE__,line)(!unk, "unk = %p\n", unk);
 570 }
 571
 572 #define test_get_dispid(u,id) _test_get_dispid(__LINE__,u,id)
 573 static BOOL _test_get_dispid(unsigned line, IUnknown *unk, IID *iid)
 574 {
 575     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 576     ITypeInfo *typeinfo;
 577     BOOL ret = FALSE;
 578     UINT ticnt;
 579     HRESULT hres;
 580
 581     ticnt = 0xdeadbeef;
 582     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
 583     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
 584     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
 585
 586     hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
 587     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
 588
 589     if(SUCCEEDED(hres)) {
 590         TYPEATTR *type_attr;
 591
 592         hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 593         ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 594         if(hres == S_OK) {
 595             *iid = type_attr->guid;
 596             ret = TRUE;
 597         }
 598
 599         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 600         ITypeInfo_Release(typeinfo);
 601     }
 602
 603     IDispatchEx_Release(dispex);
 604     return ret;
 605 }
 606
 607 #define test_disp_value(u) _test_disp_value(__LINE__,u,v)
 608 static void _test_disp_value(unsigned line, IUnknown *unk, const char *val)
 609 {
 610     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 611     DISPPARAMS dp  = {NULL,NULL,0,0};
 612     EXCEPINFO ei;
 613     VARIANT var;
 614     HRESULT hres;
 615
 616     hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, 0, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
 617     IDispatchEx_Release(dispex);
 618     ok_(__FILE__,line)(hres == S_OK, "InvokeEx(DISPID_VALUE) returned: %08x\n", hres);
 619
 620     ok_(__FILE__,line)(V_VT(&var) == VT_BSTR, "V_VT(value) = %d\n", V_VT(&var));
 621     ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&var), val), "value = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&var)), val);
 622     VariantClear(&var);
 623 }
 624
 625 #define test_disp(u,id,v) _test_disp(__LINE__,u,id,v)
 626 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid, const char *val)
 627 {
 628     IID iid;
 629
 630     if(_test_get_dispid(line, unk, &iid))
 631         ok_(__FILE__,line) (IsEqualGUID(&iid, diid), "unexpected guid %s\n", wine_dbgstr_guid(&iid));
 632
 633     if(val)
 634         _test_disp_value(line, unk, val);
 635 }
 636
 637 #define test_disp2(u,id,id2,v) _test_disp2(__LINE__,u,id,id2,v)
 638 static void _test_disp2(unsigned line, IUnknown *unk, const IID *diid, const IID *diid2, const char *val)
 639 {
 640     IID iid;
 641
 642     if(_test_get_dispid(line, unk, &iid))
 643         ok_(__FILE__,line) (IsEqualGUID(&iid, diid) || broken(IsEqualGUID(&iid, diid2)),
 644                 "unexpected guid %s\n", wine_dbgstr_guid(&iid));
 645
 646     if(val)
 647         _test_disp_value(line, unk, val);
 648 }
 649
 650 #define test_class_info(u) _test_class_info(__LINE__,u)
 651 static void _test_class_info(unsigned line, IUnknown *unk)
 652 {
 653     IProvideClassInfo *classinfo;
 654     ITypeInfo *typeinfo;
 655     TYPEATTR *type_attr;
 656     HRESULT hres;
 657
 658     hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo, (void**)&classinfo);
 659     ok_(__FILE__,line)(hres == S_OK, "Could not get IProvideClassInfo interface: %08x\n", hres);
 660     if(FAILED(hres))
 661         return;
 662
 663     hres = IProvideClassInfo_GetClassInfo(classinfo, &typeinfo);
 664     ok_(__FILE__,line)(hres == S_OK, "Could not get ITypeInfo interface: %08x\n", hres);
 665     if(FAILED(hres))
 666     {
 667         IProvideClassInfo_Release(classinfo);
 668         return;
 669     }
 670
 671     hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
 672     ok_(__FILE__,line)(hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
 673     if(SUCCEEDED(hres))
 674     {
 675         ok_(__FILE__,line)(IsEqualGUID(&type_attr->guid, &CLSID_HTMLDocument),
 676                 "unexpected guid %s\n", wine_dbgstr_guid(&type_attr->guid));
 677         ok_(__FILE__,line)(type_attr->typekind == TKIND_COCLASS,
 678                 "unexpected typekind %d\n", type_attr->typekind);
 679         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
 680     }
 681
 682     ITypeInfo_Release(typeinfo);
 683     IProvideClassInfo_Release(classinfo);
 684 }
 685
 686 #define set_dispex_value(a,b,c) _set_dispex_value(__LINE__,a,b,c)
 687 static void _set_dispex_value(unsigned line, IUnknown *unk, const char *name, VARIANT *val)
 688 {
 689     IDispatchEx *dispex = _get_dispex_iface(line, unk);
 690     DISPPARAMS dp = {val, NULL, 1, 0};
 691     EXCEPINFO ei;
 692     DISPID id;
 693     BSTR str;
 694     HRESULT hres;
 695
 696     str = a2bstr(name);
 697     hres = IDispatchEx_GetDispID(dispex, str, fdexNameEnsure|fdexNameCaseInsensitive, &id);
 698     SysFreeString(str);
 699     ok_(__FILE__,line)(hres == S_OK, "GetDispID failed: %08x\n", hres);
 700
 701     memset(&ei, 0, sizeof(ei));
 702     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYPUT, &dp, NULL, &ei, NULL);
 703     ok_(__FILE__,line)(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 704
 705 }
 706
 707 #define get_elem_iface(u) _get_elem_iface(__LINE__,u)
 708 static IHTMLElement *_get_elem_iface(unsigned line, IUnknown *unk)
 709 {
 710     IHTMLElement *elem;
 711     HRESULT hres;
 712
 713     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement, (void**)&elem);
 714     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement: %08x\n", hres);
 715     return elem;
 716 }
 717
 718 #define get_elem2_iface(u) _get_elem2_iface(__LINE__,u)
 719 static IHTMLElement2 *_get_elem2_iface(unsigned line, IUnknown *unk)
 720 {
 721     IHTMLElement2 *elem;
 722     HRESULT hres;
 723
 724     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement2, (void**)&elem);
 725     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement2: %08x\n", hres);
 726     return elem;
 727 }
 728
 729 #define get_elem3_iface(u) _get_elem3_iface(__LINE__,u)
 730 static IHTMLElement3 *_get_elem3_iface(unsigned line, IUnknown *unk)
 731 {
 732     IHTMLElement3 *elem;
 733     HRESULT hres;
 734
 735     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement3, (void**)&elem);
 736     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement3: %08x\n", hres);
 737     return elem;
 738 }
 739
 740 #define get_elem4_iface(u) _get_elem4_iface(__LINE__,u)
 741 static IHTMLElement4 *_get_elem4_iface(unsigned line, IUnknown *unk)
 742 {
 743     IHTMLElement4 *elem;
 744     HRESULT hres;
 745
 746     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement4, (void**)&elem);
 747     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement4: %08x\n", hres);
 748     return elem;
 749 }
 750
 751 #define get_doc3_iface(u) _get_doc3_iface(__LINE__,u)
 752 static IHTMLDocument3 *_get_doc3_iface(unsigned line, IHTMLDocument2 *doc)
 753 {
 754     IHTMLDocument3 *doc3;
 755     HRESULT hres;
 756
 757     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
 758     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 interface: %08x\n", hres);
 759
 760     return doc3;
 761 }
 762
 763 #define get_node_iface(u) _get_node_iface(__LINE__,u)
 764 static IHTMLDOMNode *_get_node_iface(unsigned line, IUnknown *unk)
 765 {
 766     IHTMLDOMNode *node;
 767     HRESULT hres;
 768
 769     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode, (void**)&node);
 770     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMNode: %08x\n", hres);
 771     return node;
 772 }
 773
 774 #define get_node2_iface(u) _get_node2_iface(__LINE__,u)
 775 static IHTMLDOMNode2 *_get_node2_iface(unsigned line, IUnknown *unk)
 776 {
 777     IHTMLDOMNode2 *node;
 778     HRESULT hres;
 779
 780     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode2, (void**)&node);
 781     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMNode2: %08x\n", hres);
 782     return node;
 783 }
 784
 785 #define get_htmldoc5_iface(u) _get_htmldoc5_iface(__LINE__,u)
 786 static IHTMLDocument5 *_get_htmldoc5_iface(unsigned line, IUnknown *unk)
 787 {
 788     IHTMLDocument5 *doc;
 789     HRESULT hres;
 790
 791     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument5, (void**)&doc);
 792     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument5: %08x\n", hres);
 793     return doc;
 794 }
 795
 796 #define get_img_iface(u) _get_img_iface(__LINE__,u)
 797 static IHTMLImgElement *_get_img_iface(unsigned line, IUnknown *unk)
 798 {
 799     IHTMLImgElement *img;
 800     HRESULT hres;
 801
 802     hres = IUnknown_QueryInterface(unk, &IID_IHTMLImgElement, (void**)&img);
 803     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLImgElement: %08x\n", hres);
 804     return img;
 805 }
 806
 807 #define get_anchor_iface(u) _get_anchor_iface(__LINE__,u)
 808 static IHTMLAnchorElement *_get_anchor_iface(unsigned line, IUnknown *unk)
 809 {
 810     IHTMLAnchorElement *anchor;
 811     HRESULT hres;
 812
 813     hres = IUnknown_QueryInterface(unk, &IID_IHTMLAnchorElement, (void**)&anchor);
 814     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLAnchorElement: %08x\n", hres);
 815     return anchor;
 816 }
 817
 818 #define get_textarea_iface(u) _get_textarea_iface(__LINE__,u)
 819 static IHTMLTextAreaElement *_get_textarea_iface(unsigned line, IUnknown *unk)
 820 {
 821     IHTMLTextAreaElement *textarea;
 822     HRESULT hres;
 823
 824     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextAreaElement, (void**)&textarea);
 825     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextAreaElement: %08x\n", hres);
 826     return textarea;
 827 }
 828
 829 #define get_select_iface(u) _get_select_iface(__LINE__,u)
 830 static IHTMLSelectElement *_get_select_iface(unsigned line, IUnknown *unk)
 831 {
 832     IHTMLSelectElement *select;
 833     HRESULT hres;
 834
 835     hres = IUnknown_QueryInterface(unk, &IID_IHTMLSelectElement, (void**)&select);
 836     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLSelectElement: %08x\n", hres);
 837     return select;
 838 }
 839
 840 #define get_form_iface(u) _get_form_iface(__LINE__,u)
 841 static IHTMLFormElement *_get_form_iface(unsigned line, IUnknown *unk)
 842 {
 843     IHTMLFormElement *form;
 844     HRESULT hres;
 845
 846     hres = IUnknown_QueryInterface(unk, &IID_IHTMLFormElement, (void**)&form);
 847     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLFormElement: %08x\n", hres);
 848     return form;
 849 }
 850
 851 #define get_text_iface(u) _get_text_iface(__LINE__,u)
 852 static IHTMLDOMTextNode *_get_text_iface(unsigned line, IUnknown *unk)
 853 {
 854     IHTMLDOMTextNode *text;
 855     HRESULT hres;
 856
 857     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMTextNode, (void**)&text);
 858     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMTextNode: %08x\n", hres);
 859     return text;
 860 }
 861
 862 #define get_comment_iface(u) _get_comment_iface(__LINE__,u)
 863 static IHTMLCommentElement *_get_comment_iface(unsigned line, IUnknown *unk)
 864 {
 865     IHTMLCommentElement *comment;
 866     HRESULT hres;
 867
 868     hres = IUnknown_QueryInterface(unk, &IID_IHTMLCommentElement, (void**)&comment);
 869     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLCommentElement: %08x\n", hres);
 870     return comment;
 871 }
 872
 873 #define get_object_iface(u) _get_object_iface(__LINE__,u)
 874 static IHTMLObjectElement *_get_object_iface(unsigned line, IUnknown *unk)
 875 {
 876     IHTMLObjectElement *obj;
 877     HRESULT hres;
 878
 879     hres = IUnknown_QueryInterface(unk, &IID_IHTMLObjectElement, (void**)&obj);
 880     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLObjectElement: %08x\n", hres);
 881     return obj;
 882 }
 883
 884 #define get_style_iface(u) _get_style_iface(__LINE__,u)
 885 static IHTMLStyleElement *_get_style_iface(unsigned line, IUnknown *unk)
 886 {
 887     IHTMLStyleElement *obj;
 888     HRESULT hres;
 889
 890     hres = IUnknown_QueryInterface(unk, &IID_IHTMLStyleElement, (void**)&obj);
 891     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLStyleElement: %08x\n", hres);
 892     return obj;
 893 }
 894
 895 #define get_metaelem_iface(u) _get_metaelem_iface(__LINE__,u)
 896 static IHTMLMetaElement *_get_metaelem_iface(unsigned line, IUnknown *unk)
 897 {
 898     IHTMLMetaElement *ret;
 899     HRESULT hres;
 900
 901     hres = IUnknown_QueryInterface(unk, &IID_IHTMLMetaElement, (void**)&ret);
 902     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLMetaElement: %08x\n", hres);
 903     return ret;
 904 }
 905
 906 #define get_link_iface(u) _get_link_iface(__LINE__,u)
 907 static IHTMLLinkElement *_get_link_iface(unsigned line, IUnknown *unk)
 908 {
 909     IHTMLLinkElement *ret;
 910     HRESULT hres;
 911
 912     hres = IUnknown_QueryInterface(unk, &IID_IHTMLLinkElement, (void**)&ret);
 913     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLLinkElement: %08x\n", hres);
 914     return ret;
 915 }
 916
 917 #define get_iframe2_iface(u) _get_iframe2_iface(__LINE__,u)
 918 static IHTMLIFrameElement2 *_get_iframe2_iface(unsigned line, IUnknown *unk)
 919 {
 920     IHTMLIFrameElement2 *ret;
 921     HRESULT hres;
 922
 923     hres = IUnknown_QueryInterface(unk, &IID_IHTMLIFrameElement2, (void**)&ret);
 924     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLIFrameElement: %08x\n", hres);
 925     return ret;
 926 }
 927
 928 #define get_button_iface(u) _get_button_iface(__LINE__,u)
 929 static IHTMLButtonElement *_get_button_iface(unsigned line, IUnknown *unk)
 930 {
 931     IHTMLButtonElement *ret;
 932     HRESULT hres;
 933
 934     hres = IUnknown_QueryInterface(unk, &IID_IHTMLButtonElement, (void**)&ret);
 935     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLButtonElement: %08x\n", hres);
 936     return ret;
 937 }
 938
 939 #define get_label_iface(u) _get_label_iface(__LINE__,u)
 940 static IHTMLLabelElement *_get_label_iface(unsigned line, IUnknown *unk)
 941 {
 942     IHTMLLabelElement *ret;
 943     HRESULT hres;
 944
 945     hres = IUnknown_QueryInterface(unk, &IID_IHTMLLabelElement, (void**)&ret);
 946     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLLabelElement: %08x\n", hres);
 947     return ret;
 948 }
 949
 950 #define test_node_name(u,n) _test_node_name(__LINE__,u,n)
 951 static void _test_node_name(unsigned line, IUnknown *unk, const char *exname)
 952 {
 953     IHTMLDOMNode *node = _get_node_iface(line, unk);
 954     BSTR name;
 955     HRESULT hres;
 956
 957     hres = IHTMLDOMNode_get_nodeName(node, &name);
 958     IHTMLDOMNode_Release(node);
 959     ok_(__FILE__, line) (hres == S_OK, "get_nodeName failed: %08x\n", hres);
 960     ok_(__FILE__, line) (!strcmp_wa(name, exname), "got name: %s, expected %s\n", wine_dbgstr_w(name), exname);
 961
 962     SysFreeString(name);
 963 }
 964
 965 #define get_owner_doc(u) _get_owner_doc(__LINE__,u)
 966 static IHTMLDocument2 *_get_owner_doc(unsigned line, IUnknown *unk)
 967 {
 968     IHTMLDOMNode2 *node = _get_node2_iface(line, unk);
 969     IDispatch *disp = (void*)0xdeadbeef;
 970     IHTMLDocument2 *doc = NULL;
 971     HRESULT hres;
 972
 973     hres = IHTMLDOMNode2_get_ownerDocument(node, &disp);
 974     IHTMLDOMNode2_Release(node);
 975     ok_(__FILE__,line)(hres == S_OK, "get_ownerDocument failed: %08x\n", hres);
 976
 977     if(disp) {
 978         hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&doc);
 979         IDispatch_Release(disp);
 980         ok_(__FILE__,line)(hres == S_OK, "Could not get IHTMLDocument2 iface: %08x\n", hres);
 981     }
 982
 983     return doc;
 984 }
 985
 986 #define get_doc_window(d) _get_doc_window(__LINE__,d)
 987 static IHTMLWindow2 *_get_doc_window(unsigned line, IHTMLDocument2 *doc)
 988 {
 989     IHTMLWindow2 *window;
 990     HRESULT hres;
 991
 992     window = NULL;
 993     hres = IHTMLDocument2_get_parentWindow(doc, &window);
 994     ok_(__FILE__,line)(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
 995     ok_(__FILE__,line)(window != NULL, "window == NULL\n");
 996
 997     return window;
 998 }
 999
1000 #define clone_node(n,d) _clone_node(__LINE__,n,d)
1001 static IHTMLDOMNode *_clone_node(unsigned line, IUnknown *unk, VARIANT_BOOL deep)
1002 {
1003     IHTMLDOMNode *node = _get_node_iface(line, unk);
1004     IHTMLDOMNode *ret = NULL;
1005     HRESULT hres;
1006
1007     hres = IHTMLDOMNode_cloneNode(node, deep, &ret);
1008     IHTMLDOMNode_Release(node);
1009     ok_(__FILE__,line)(hres == S_OK, "cloneNode failed: %08x\n", hres);
1010     ok_(__FILE__,line)(ret != NULL, "ret == NULL\n");
1011
1012     return ret;
1013
1014 }
1015
1016 #define test_elem_tag(u,n) _test_elem_tag(__LINE__,u,n)
1017 static void _test_elem_tag(unsigned line, IUnknown *unk, const char *extag)
1018 {
1019     IHTMLElement *elem = _get_elem_iface(line, unk);
1020     BSTR tag;
1021     HRESULT hres;
1022
1023     hres = IHTMLElement_get_tagName(elem, &tag);
1024     IHTMLElement_Release(elem);
1025     ok_(__FILE__, line) (hres == S_OK, "get_tagName failed: %08x\n", hres);
1026     ok_(__FILE__, line) (!strcmp_wa(tag, extag), "got tag: %s, expected %s\n", wine_dbgstr_w(tag), extag);
1027
1028     SysFreeString(tag);
1029 }
1030
1031 #define test_elem_type(ifc,t) _test_elem_type(__LINE__,ifc,t)
1032 static void _test_elem_type(unsigned line, IUnknown *unk, elem_type_t type)
1033 {
1034     _test_elem_tag(line, unk, elem_type_infos[type].tag);
1035     _test_ifaces(line, unk, elem_type_infos[type].iids);
1036
1037     if(elem_type_infos[type].dispiid && type != ET_A)
1038         _test_disp(line, unk, elem_type_infos[type].dispiid, "[object]");
1039 }
1040
1041 #define get_node_type(n) _get_node_type(__LINE__,n)
1042 static LONG _get_node_type(unsigned line, IUnknown *unk)
1043 {
1044     IHTMLDOMNode *node = _get_node_iface(line, unk);
1045     LONG type = -1;
1046     HRESULT hres;
1047
1048     hres = IHTMLDOMNode_get_nodeType(node, &type);
1049     ok(hres == S_OK, "get_nodeType failed: %08x\n", hres);
1050
1051     IHTMLDOMNode_Release(node);
1052
1053     return type;
1054 }
1055
1056 #define get_child_nodes(u) _get_child_nodes(__LINE__,u)
1057 static IHTMLDOMChildrenCollection *_get_child_nodes(unsigned line, IUnknown *unk)
1058 {
1059     IHTMLDOMNode *node = _get_node_iface(line, unk);
1060     IHTMLDOMChildrenCollection *col = NULL;
1061     IDispatch *disp;
1062     HRESULT hres;
1063
1064     hres = IHTMLDOMNode_get_childNodes(node, &disp);
1065     IHTMLDOMNode_Release(node);
1066     ok_(__FILE__,line) (hres == S_OK, "get_childNodes failed: %08x\n", hres);
1067     if(FAILED(hres))
1068         return NULL;
1069
1070     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDOMChildrenCollection, (void**)&col);
1071     IDispatch_Release(disp);
1072     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDOMChildrenCollection: %08x\n", hres);
1073
1074     return col;
1075 }
1076
1077 #define get_child_item(c,i) _get_child_item(__LINE__,c,i)
1078 static IHTMLDOMNode *_get_child_item(unsigned line, IHTMLDOMChildrenCollection *col, LONG idx)
1079 {
1080     IHTMLDOMNode *node = NULL;
1081     IDispatch *disp;
1082     HRESULT hres;
1083
1084     hres = IHTMLDOMChildrenCollection_item(col, idx, &disp);
1085     ok(hres == S_OK, "item failed: %08x\n", hres);
1086
1087     node = _get_node_iface(line, (IUnknown*)disp);
1088     IDispatch_Release(disp);
1089
1090     return node;
1091 }
1092
1093 #define test_elem_attr(e,n,v) _test_elem_attr(__LINE__,e,n,v)
1094 static void _test_elem_attr(unsigned line, IHTMLElement *elem, const char *name, const char *exval)
1095 {
1096     VARIANT value;
1097     BSTR tmp;
1098     HRESULT hres;
1099
1100     VariantInit(&value);
1101
1102     tmp = a2bstr(name);
1103     hres = IHTMLElement_getAttribute(elem, tmp, 0, &value);
1104     SysFreeString(tmp);
1105     ok_(__FILE__,line) (hres == S_OK, "getAttribute failed: %08x\n", hres);
1106
1107     if(exval) {
1108         ok_(__FILE__,line) (V_VT(&value) == VT_BSTR, "vt=%d\n", V_VT(&value));
1109         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&value), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&value)));
1110     }else {
1111         ok_(__FILE__,line) (V_VT(&value) == VT_NULL, "vt=%d\n", V_VT(&value));
1112     }
1113
1114     VariantClear(&value);
1115 }
1116
1117 #define test_elem_offset(a,b) _test_elem_offset(__LINE__,a,b)
1118 static void _test_elem_offset(unsigned line, IUnknown *unk, const char *parent_tag)
1119 {
1120     IHTMLElement *elem = _get_elem_iface(line, unk);
1121     IHTMLElement *off_parent;
1122     LONG l;
1123     HRESULT hres;
1124
1125     hres = IHTMLElement_get_offsetTop(elem, &l);
1126     ok_(__FILE__,line) (hres == S_OK, "get_offsetTop failed: %08x\n", hres);
1127
1128     hres = IHTMLElement_get_offsetHeight(elem, &l);
1129     ok_(__FILE__,line) (hres == S_OK, "get_offsetHeight failed: %08x\n", hres);
1130
1131     hres = IHTMLElement_get_offsetWidth(elem, &l);
1132     ok_(__FILE__,line) (hres == S_OK, "get_offsetWidth failed: %08x\n", hres);
1133
1134     hres = IHTMLElement_get_offsetLeft(elem, &l);
1135     ok_(__FILE__,line) (hres == S_OK, "get_offsetLeft failed: %08x\n", hres);
1136
1137     hres = IHTMLElement_get_offsetParent(elem, &off_parent);
1138     ok_(__FILE__,line) (hres == S_OK, "get_offsetParent failed: %08x\n", hres);
1139
1140     _test_elem_tag(line, (IUnknown*)off_parent, parent_tag);
1141     IHTMLElement_Release(off_parent);
1142
1143     IHTMLElement_Release(elem);
1144 }
1145
1146 #define test_elem_source_index(a,b) _test_elem_source_index(__LINE__,a,b)
1147 static void _test_elem_source_index(unsigned line, IHTMLElement *elem, int index)
1148 {
1149     LONG l = 0xdeadbeef;
1150     HRESULT hres;
1151
1152     hres = IHTMLElement_get_sourceIndex(elem, &l);
1153     ok_(__FILE__,line)(hres == S_OK, "get_sourceIndex failed: %08x\n", hres);
1154     ok_(__FILE__,line)(l == index, "sourceIndex = %d, expected %d\n", l, index);
1155 }
1156
1157 #define get_doc_node(d) _get_doc_node(__LINE__,d)
1158 static IHTMLDocument2 *_get_doc_node(unsigned line, IHTMLDocument2 *doc)
1159 {
1160     IHTMLWindow2 *window;
1161     IHTMLDocument2 *ret;
1162     HRESULT hres;
1163
1164     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1165     ok_(__FILE__,line)(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
1166
1167     hres = IHTMLWindow2_get_document(window, &ret);
1168     ok_(__FILE__,line)(hres == S_OK, "get_document failed: %08x\n", hres);
1169     ok_(__FILE__,line)(ret != NULL, "document = NULL\n");
1170
1171     return ret;
1172 }
1173
1174 #define test_window_name(d,e) _test_window_name(__LINE__,d,e)
1175 static void _test_window_name(unsigned line, IHTMLWindow2 *window, const char *exname)
1176 {
1177     BSTR name;
1178     HRESULT hres;
1179
1180     hres = IHTMLWindow2_get_name(window, &name);
1181     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
1182     if(exname)
1183         ok_(__FILE__,line)(!strcmp_wa(name, exname), "name = %s\n", wine_dbgstr_w(name));
1184     else
1185         ok_(__FILE__,line)(!name, "name = %s\n", wine_dbgstr_w(name));
1186     SysFreeString(name);
1187 }
1188
1189 #define set_window_name(w,n) _set_window_name(__LINE__,w,n)
1190 static void _set_window_name(unsigned line, IHTMLWindow2 *window, const char *name)
1191 {
1192     BSTR str;
1193     HRESULT hres;
1194
1195     str = a2bstr(name);
1196     hres = IHTMLWindow2_put_name(window, str);
1197     SysFreeString(str);
1198     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
1199
1200     _test_window_name(line, window, name);
1201 }
1202
1203 #define test_window_status(d) _test_window_status(__LINE__,d)
1204 static void _test_window_status(unsigned line, IHTMLWindow2 *window)
1205 {
1206     BSTR status;
1207     HRESULT hres;
1208
1209     status = (void*)0xdeadbeef;
1210     hres = IHTMLWindow2_get_status(window, &status);
1211     ok_(__FILE__,line)(hres == S_OK, "get_status failed: %08x\n", hres);
1212     ok_(__FILE__,line)(!status, "status = %s\n", wine_dbgstr_w(status));
1213     SysFreeString(status);
1214 }
1215
1216 #define set_window_status(w,n) _set_window_status(__LINE__,w,n)
1217 static void _set_window_status(unsigned line, IHTMLWindow2 *window, const char *status)
1218 {
1219     BSTR str;
1220     HRESULT hres;
1221
1222     str = a2bstr(status);
1223     hres = IHTMLWindow2_put_status(window, str);
1224     SysFreeString(str);
1225     ok_(__FILE__,line)(hres == S_OK, "put_status failed: %08x\n", hres);
1226 }
1227
1228 #define test_window_length(w,l) _test_window_length(__LINE__,w,l)
1229 static void _test_window_length(unsigned line, IHTMLWindow2 *window, LONG exlen)
1230 {
1231     LONG length = -1;
1232     HRESULT hres;
1233
1234     hres = IHTMLWindow2_get_length(window, &length);
1235     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
1236     ok_(__FILE__,line)(length == exlen, "length = %d, expected %d\n", length, exlen);
1237 }
1238
1239 #define get_frame_content_window(e) _get_frame_content_window(__LINE__,e)
1240 static IHTMLWindow2 *_get_frame_content_window(unsigned line, IUnknown *elem)
1241 {
1242     IHTMLFrameBase2 *base2;
1243     IHTMLWindow2 *window;
1244     HRESULT hres;
1245
1246     hres = IUnknown_QueryInterface(elem, &IID_IHTMLFrameBase2, (void**)&base2);
1247     ok(hres == S_OK, "Could not get IHTMFrameBase2 iface: %08x\n", hres);
1248
1249     window = NULL;
1250     hres = IHTMLFrameBase2_get_contentWindow(base2, &window);
1251     IHTMLFrameBase2_Release(base2);
1252     ok(hres == S_OK, "get_contentWindow failed: %08x\n", hres);
1253     ok(window != NULL, "contentWindow = NULL\n");
1254
1255     return window;
1256 }
1257
1258 static void test_get_set_attr(IHTMLDocument2 *doc)
1259 {
1260     IHTMLElement *elem;
1261     IHTMLDocument3 *doc3;
1262     HRESULT hres;
1263     BSTR bstr;
1264     VARIANT val;
1265
1266     /* grab an element to test with */
1267     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1268     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
1269
1270     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
1271     IHTMLDocument3_Release(doc3);
1272     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
1273
1274     /* get a non-present attribute */
1275     bstr = a2bstr("notAnAttribute");
1276     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1277     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1278     ok(V_VT(&val) == VT_NULL, "variant type should have been VT_NULL (0x%x), was: 0x%x\n", VT_NULL, V_VT(&val));
1279     VariantClear(&val);
1280     SysFreeString(bstr);
1281
1282     /* get a present attribute */
1283     bstr = a2bstr("scrollHeight");
1284     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1285     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1286     ok(V_VT(&val) == VT_I4, "variant type should have been VT_I4 (0x%x), was: 0x%x\n", VT_I4, V_VT(&val));
1287     VariantClear(&val);
1288     SysFreeString(bstr);
1289
1290     /* create a new BSTR attribute */
1291     bstr = a2bstr("newAttribute");
1292
1293     V_VT(&val) = VT_BSTR;
1294     V_BSTR(&val) = a2bstr("the value");
1295     hres = IHTMLElement_setAttribute(elem, bstr, val, 0);
1296     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1297     VariantClear(&val);
1298
1299     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1300     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1301     ok(V_VT(&val) == VT_BSTR, "variant type should have been VT_BSTR (0x%x), was: 0x%x\n", VT_BSTR, V_VT(&val));
1302     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)));
1303     VariantClear(&val);
1304
1305     /* overwrite the attribute with a BOOL */
1306     V_VT(&val) = VT_BOOL;
1307     V_BOOL(&val) = VARIANT_TRUE;
1308     hres = IHTMLElement_setAttribute(elem, bstr, val, 0);
1309     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1310     VariantClear(&val);
1311
1312     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1313     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1314     ok(V_VT(&val) == VT_BOOL, "variant type should have been VT_BOOL (0x%x), was: 0x%x\n", VT_BOOL, V_VT(&val));
1315     ok(V_BOOL(&val) == VARIANT_TRUE, "variant value should have been VARIANT_TRUE (0x%x), was %d\n", VARIANT_TRUE, V_BOOL(&val));
1316     VariantClear(&val);
1317
1318     SysFreeString(bstr);
1319
1320     /* case-insensitive */
1321     bstr = a2bstr("newattribute");
1322     hres = IHTMLElement_getAttribute(elem, bstr, 0, &val);
1323     ok(hres == S_OK, "getAttribute failed: %08x\n", hres);
1324     ok(V_VT(&val) == VT_BOOL, "variant type should have been VT_BOOL (0x%x), was: 0x%x\n", VT_BOOL, V_VT(&val));
1325     ok(V_BOOL(&val) == VARIANT_TRUE, "variant value should have been VARIANT_TRUE (0x%x), was %d\n", VARIANT_TRUE, V_BOOL(&val));
1326     VariantClear(&val);
1327     SysFreeString(bstr);
1328
1329     IHTMLElement_Release(elem);
1330 }
1331
1332 #define get_doc_elem(d) _get_doc_elem(__LINE__,d)
1333 static IHTMLElement *_get_doc_elem(unsigned line, IHTMLDocument2 *doc)
1334 {
1335     IHTMLElement *elem;
1336     IHTMLDocument3 *doc3;
1337     HRESULT hres;
1338
1339     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1340     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 interface: %08x\n", hres);
1341     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
1342     ok_(__FILE__,line) (hres == S_OK, "get_documentElement failed: %08x\n", hres);
1343     IHTMLDocument3_Release(doc3);
1344
1345     return elem;
1346 }
1347
1348 #define test_anchor_href(a,h) _test_anchor_href(__LINE__,a,h)
1349 static void _test_anchor_href(unsigned line, IUnknown *unk, const char *exhref)
1350 {
1351     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1352     BSTR str;
1353     HRESULT hres;
1354
1355     hres = IHTMLAnchorElement_get_href(anchor, &str);
1356     ok_(__FILE__,line)(hres == S_OK, "get_href failed: %08x\n", hres);
1357     ok_(__FILE__,line)(!strcmp_wa(str, exhref), "href = %s, expected %s\n", wine_dbgstr_w(str), exhref);
1358     SysFreeString(str);
1359
1360     _test_disp_value(line, unk, exhref);
1361 }
1362
1363 #define test_anchor_put_href(a,h) _test_anchor_put_href(__LINE__,a,h)
1364 static void _test_anchor_put_href(unsigned line, IUnknown *unk, const char *exhref)
1365 {
1366     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1367     BSTR str;
1368     HRESULT hres;
1369
1370     str = a2bstr(exhref);
1371     hres = IHTMLAnchorElement_put_href(anchor, str);
1372     ok_(__FILE__,line)(hres == S_OK, "get_href failed: %08x\n", hres);
1373     SysFreeString(str);
1374
1375     _test_disp_value(line, unk, exhref);
1376 }
1377
1378 #define test_anchor_rel(a,h) _test_anchor_rel(__LINE__,a,h)
1379 static void _test_anchor_rel(unsigned line, IUnknown *unk, const char *exrel)
1380 {
1381     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1382     BSTR str;
1383     HRESULT hres;
1384
1385     hres = IHTMLAnchorElement_get_rel(anchor, &str);
1386     ok_(__FILE__,line)(hres == S_OK, "get_rel failed: %08x\n", hres);
1387     if(exrel)
1388         ok_(__FILE__,line)(!strcmp_wa(str, exrel), "rel = %s, expected %s\n", wine_dbgstr_w(str), exrel);
1389     else
1390         ok_(__FILE__,line)(!str, "rel = %s, expected NULL\n", wine_dbgstr_w(str));
1391     SysFreeString(str);
1392 }
1393
1394 #define test_anchor_put_rel(a,h) _test_anchor_put_rel(__LINE__,a,h)
1395 static void _test_anchor_put_rel(unsigned line, IUnknown *unk, const char *exrel)
1396 {
1397     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1398     BSTR str;
1399     HRESULT hres;
1400
1401     str = a2bstr(exrel);
1402     hres = IHTMLAnchorElement_put_rel(anchor, str);
1403     ok_(__FILE__,line)(hres == S_OK, "get_rel failed: %08x\n", hres);
1404     SysFreeString(str);
1405 }
1406
1407 #define test_anchor_get_target(a,h) _test_anchor_get_target(__LINE__,a,h)
1408 static void _test_anchor_get_target(unsigned line, IUnknown *unk, const char *target)
1409 {
1410     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1411     BSTR str;
1412     HRESULT hres;
1413
1414     hres = IHTMLAnchorElement_get_target(anchor, &str);
1415     ok_(__FILE__,line)(hres == S_OK, "get_target failed: %08x\n", hres);
1416     if(target)
1417         ok_(__FILE__,line)(!strcmp_wa(str, target), "target = %s, expected %s\n", wine_dbgstr_w(str), target);
1418     else
1419         ok_(__FILE__,line)(str == NULL, "target = %s, expected NULL\n", wine_dbgstr_w(str));
1420     SysFreeString(str);
1421 }
1422
1423 #define test_anchor_put_target(a,h) _test_anchor_put_target(__LINE__,a,h)
1424 static void _test_anchor_put_target(unsigned line, IUnknown *unk, const char *target)
1425 {
1426     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1427     BSTR str;
1428     HRESULT hres;
1429
1430     str = target ? a2bstr(target) : NULL;
1431     hres = IHTMLAnchorElement_put_target(anchor, str);
1432     ok_(__FILE__,line)(hres == S_OK, "put_target failed: %08x\n", hres);
1433     SysFreeString(str);
1434 }
1435
1436 #define test_anchor_name(a,h) _test_anchor_name(__LINE__,a,h)
1437 static void _test_anchor_name(unsigned line, IUnknown *unk, const char *name)
1438 {
1439     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1440     BSTR str;
1441     HRESULT hres;
1442
1443     hres = IHTMLAnchorElement_get_name(anchor, &str);
1444     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
1445     if(name)
1446         ok_(__FILE__,line)(!strcmp_wa(str, name), "name = %s, expected %s\n", wine_dbgstr_w(str), name);
1447     else
1448         ok_(__FILE__,line)(str == NULL, "name = %s, expected NULL\n", wine_dbgstr_w(str));
1449     SysFreeString(str);
1450 }
1451
1452 #define test_anchor_put_name(a,h) _test_anchor_put_name(__LINE__,a,h)
1453 static void _test_anchor_put_name(unsigned line, IUnknown *unk, const char *name)
1454 {
1455     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1456     BSTR str;
1457     HRESULT hres;
1458
1459     str = name ? a2bstr(name) : NULL;
1460     hres = IHTMLAnchorElement_put_name(anchor, str);
1461     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
1462     SysFreeString(str);
1463
1464     _test_anchor_name(line, unk, name);
1465 }
1466
1467 #define test_anchor_hostname(a,h) _test_anchor_hostname(__LINE__,a,h)
1468 static void _test_anchor_hostname(unsigned line, IUnknown *unk, const char *hostname)
1469 {
1470     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1471     BSTR str;
1472     HRESULT hres;
1473
1474     hres = IHTMLAnchorElement_get_hostname(anchor, &str);
1475     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
1476     if(hostname)
1477         ok_(__FILE__,line)(!strcmp_wa(str, hostname), "hostname = %s, expected %s\n", wine_dbgstr_w(str), hostname);
1478     else
1479         ok_(__FILE__,line)(str == NULL, "hostname = %s, expected NULL\n", wine_dbgstr_w(str));
1480     SysFreeString(str);
1481 }
1482
1483 #define test_anchor_search(a,h,n) _test_anchor_search(__LINE__,a,h,n)
1484 static void _test_anchor_search(unsigned line, IUnknown *elem, const char *search, BOOL allowbroken)
1485 {
1486     IHTMLAnchorElement *anchor = _get_anchor_iface(line, elem);
1487     BSTR str;
1488     HRESULT hres;
1489
1490     hres = IHTMLAnchorElement_get_search(anchor, &str);
1491     ok_(__FILE__,line)(hres == S_OK, "get_search failed: %08x\n", hres);
1492     if ( ! str && allowbroken)
1493         win_skip("skip ie6 incorrect behavior\n");
1494     else if(search)
1495         ok_(__FILE__,line)(!strcmp_wa(str, search), "search = %s, expected %s\n", wine_dbgstr_w(str), search);
1496     else
1497         ok_(__FILE__,line)(!str, "search = %s, expected NULL\n", wine_dbgstr_w(str));
1498     SysFreeString(str);
1499 }
1500
1501 #define test_anchor_put_search(a,h) _test_anchor_put_search(__LINE__,a,h)
1502 static void _test_anchor_put_search(unsigned line, IUnknown *unk, const char *search)
1503 {
1504     IHTMLAnchorElement *anchor = _get_anchor_iface(line, unk);
1505     BSTR str;
1506     HRESULT hres;
1507
1508     str = search ? a2bstr(search) : NULL;
1509     hres = IHTMLAnchorElement_put_search(anchor, str);
1510     ok_(__FILE__,line)(hres == S_OK, "put_search failed: %08x\n", hres);
1511     SysFreeString(str);
1512 }
1513
1514 #define test_anchor_hash(a,h) _test_anchor_hash(__LINE__,a,h)
1515 static void _test_anchor_hash(unsigned line, IHTMLElement *elem, const char *exhash)
1516 {
1517     IHTMLAnchorElement *anchor = _get_anchor_iface(line, (IUnknown*)elem);
1518     BSTR str;
1519     HRESULT hres;
1520
1521     hres = IHTMLAnchorElement_get_hash(anchor, &str);
1522     ok_(__FILE__,line)(hres == S_OK, "get_hash failed: %08x\n", hres);
1523     if(exhash)
1524         ok_(__FILE__,line)(!strcmp_wa(str, exhash), "hash = %s, expected %s\n", wine_dbgstr_w(str), exhash);
1525     else
1526         ok_(__FILE__,line)(!str, "hash = %s, expected NULL\n", wine_dbgstr_w(str));
1527     SysFreeString(str);
1528 }
1529
1530 #define test_option_text(o,t) _test_option_text(__LINE__,o,t)
1531 static void _test_option_text(unsigned line, IHTMLOptionElement *option, const char *text)
1532 {
1533     BSTR bstr;
1534     HRESULT hres;
1535
1536     hres = IHTMLOptionElement_get_text(option, &bstr);
1537     ok_(__FILE__,line) (hres == S_OK, "get_text failed: %08x\n", hres);
1538     ok_(__FILE__,line) (!strcmp_wa(bstr, text), "text=%s\n", wine_dbgstr_w(bstr));
1539     SysFreeString(bstr);
1540 }
1541
1542 #define test_option_put_text(o,t) _test_option_put_text(__LINE__,o,t)
1543 static void _test_option_put_text(unsigned line, IHTMLOptionElement *option, const char *text)
1544 {
1545     BSTR bstr;
1546     HRESULT hres;
1547
1548     bstr = a2bstr(text);
1549     hres = IHTMLOptionElement_put_text(option, bstr);
1550     SysFreeString(bstr);
1551     ok(hres == S_OK, "put_text failed: %08x\n", hres);
1552
1553     _test_option_text(line, option, text);
1554 }
1555
1556 #define test_option_value(o,t) _test_option_value(__LINE__,o,t)
1557 static void _test_option_value(unsigned line, IHTMLOptionElement *option, const char *value)
1558 {
1559     BSTR bstr;
1560     HRESULT hres;
1561
1562     hres = IHTMLOptionElement_get_value(option, &bstr);
1563     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1564     ok_(__FILE__,line) (!strcmp_wa(bstr, value), "value=%s\n", wine_dbgstr_w(bstr));
1565     SysFreeString(bstr);
1566 }
1567
1568 #define test_option_put_value(o,t) _test_option_put_value(__LINE__,o,t)
1569 static void _test_option_put_value(unsigned line, IHTMLOptionElement *option, const char *value)
1570 {
1571     BSTR bstr;
1572     HRESULT hres;
1573
1574     bstr = a2bstr(value);
1575     hres = IHTMLOptionElement_put_value(option, bstr);
1576     SysFreeString(bstr);
1577     ok(hres == S_OK, "put_value failed: %08x\n", hres);
1578
1579     _test_option_value(line, option, value);
1580 }
1581
1582 #define test_option_selected(o,s) _test_option_selected(__LINE__,o,s)
1583 static void _test_option_selected(unsigned line, IHTMLOptionElement *option, VARIANT_BOOL ex)
1584 {
1585     VARIANT_BOOL b = 0x100;
1586     HRESULT hres;
1587
1588     hres = IHTMLOptionElement_get_selected(option, &b);
1589     ok_(__FILE__,line)(hres == S_OK, "get_selected failed: %08x\n", hres);
1590     ok_(__FILE__,line)(b == ex, "selected = %x, expected %x\n", b, ex);
1591 }
1592
1593 #define test_option_put_selected(o,s) _test_option_put_selected(__LINE__,o,s)
1594 static void _test_option_put_selected(unsigned line, IHTMLOptionElement *option, VARIANT_BOOL b)
1595 {
1596     HRESULT hres;
1597
1598     hres = IHTMLOptionElement_put_selected(option, b);
1599     ok_(__FILE__,line)(hres == S_OK, "put_selected failed: %08x\n", hres);
1600     _test_option_selected(line, option, b);
1601 }
1602
1603 #define test_textarea_value(t,v) _test_textarea_value(__LINE__,t,v)
1604 static void _test_textarea_value(unsigned line, IUnknown *unk, const char *exval)
1605 {
1606     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1607     BSTR value = (void*)0xdeadbeef;
1608     HRESULT hres;
1609
1610     hres = IHTMLTextAreaElement_get_value(textarea, &value);
1611     IHTMLTextAreaElement_Release(textarea);
1612     ok_(__FILE__,line)(hres == S_OK, "get_value failed: %08x\n", hres);
1613     if(exval)
1614         ok_(__FILE__,line)(!strcmp_wa(value, exval), "value = %s, expected %s\n", wine_dbgstr_w(value), exval);
1615     else
1616         ok_(__FILE__,line)(!value, "value = %p\n", value);
1617     SysFreeString(value);
1618 }
1619
1620 #define test_textarea_put_value(t,v) _test_textarea_put_value(__LINE__,t,v)
1621 static void _test_textarea_put_value(unsigned line, IUnknown *unk, const char *value)
1622 {
1623     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1624     BSTR tmp = a2bstr(value);
1625     HRESULT hres;
1626
1627     hres = IHTMLTextAreaElement_put_value(textarea, tmp);
1628     IHTMLTextAreaElement_Release(textarea);
1629     ok_(__FILE__,line)(hres == S_OK, "put_value failed: %08x\n", hres);
1630     SysFreeString(tmp);
1631
1632     _test_textarea_value(line, unk, value);
1633 }
1634
1635 #define test_textarea_readonly(t,v) _test_textarea_readonly(__LINE__,t,v)
1636 static void _test_textarea_readonly(unsigned line, IUnknown *unk, VARIANT_BOOL ex)
1637 {
1638     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1639     VARIANT_BOOL b = 0x100;
1640     HRESULT hres;
1641
1642     hres = IHTMLTextAreaElement_get_readOnly(textarea, &b);
1643     IHTMLTextAreaElement_Release(textarea);
1644     ok_(__FILE__,line)(hres == S_OK, "get_readOnly failed: %08x\n", hres);
1645     ok_(__FILE__,line)(b == ex, "readOnly = %x, expected %x\n", b, ex);
1646 }
1647
1648 #define test_textarea_put_readonly(t,v) _test_textarea_put_readonly(__LINE__,t,v)
1649 static void _test_textarea_put_readonly(unsigned line, IUnknown *unk, VARIANT_BOOL b)
1650 {
1651     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1652     HRESULT hres;
1653
1654     hres = IHTMLTextAreaElement_put_readOnly(textarea, b);
1655     IHTMLTextAreaElement_Release(textarea);
1656     ok_(__FILE__,line)(hres == S_OK, "put_readOnly failed: %08x\n", hres);
1657
1658     _test_textarea_readonly(line, unk, b);
1659 }
1660
1661 #define test_textarea_type(t) _test_textarea_type(__LINE__,t)
1662 static void _test_textarea_type(unsigned line, IUnknown *unk)
1663 {
1664     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1665     BSTR type = (void*)0xdeadbeef;
1666     HRESULT hres;
1667
1668     hres = IHTMLTextAreaElement_get_type(textarea, &type);
1669     IHTMLTextAreaElement_Release(textarea);
1670     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
1671     ok_(__FILE__,line)(!strcmp_wa(type, "textarea"), "type = %s, expected textarea\n", wine_dbgstr_w(type));
1672     SysFreeString(type);
1673 }
1674
1675 #define get_textarea_form(t) _get_textarea_form(__LINE__,t)
1676 static IHTMLFormElement *_get_textarea_form(unsigned line, IUnknown *unk)
1677 {
1678     IHTMLTextAreaElement *textarea = _get_textarea_iface(line, unk);
1679     IHTMLFormElement *form;
1680     HRESULT hres;
1681
1682     hres = IHTMLTextAreaElement_get_form(textarea, &form);
1683     IHTMLTextAreaElement_Release(textarea);
1684     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
1685
1686     return form;
1687 }
1688
1689 #define test_comment_text(c,t) _test_comment_text(__LINE__,c,t)
1690 static void _test_comment_text(unsigned line, IUnknown *unk, const char *extext)
1691 {
1692     IHTMLCommentElement *comment = _get_comment_iface(__LINE__,unk);
1693     BSTR text;
1694     HRESULT hres;
1695
1696     text = a2bstr(extext);
1697     hres = IHTMLCommentElement_get_text(comment, &text);
1698     ok_(__FILE__,line)(hres == S_OK, "get_text failed: %08x\n", hres);
1699     ok_(__FILE__,line)(!strcmp_wa(text, extext), "text = \"%s\", expected \"%s\"\n", wine_dbgstr_w(text), extext);
1700
1701     IHTMLCommentElement_Release(comment);
1702     SysFreeString(text);
1703 }
1704
1705 #define test_comment_attrs(c) _test_comment_attrs(__LINE__,c)
1706 static void _test_comment_attrs(unsigned line, IUnknown *unk)
1707 {
1708     IHTMLCommentElement *comment = _get_comment_iface(__LINE__,unk);
1709     IHTMLElement *elem = _get_elem_iface(__LINE__,unk);
1710     IHTMLElement4 *elem4 = _get_elem4_iface(__LINE__,unk);
1711     IHTMLDOMAttribute *attr;
1712     BSTR name = a2bstr("test");
1713     VARIANT val;
1714     HRESULT hres;
1715
1716     hres = IHTMLElement4_getAttributeNode(elem4, name, &attr);
1717     ok(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
1718     ok(attr == NULL, "attr != NULL\n");
1719
1720     V_VT(&val) = VT_I4;
1721     V_I4(&val) = 1234;
1722     hres = IHTMLElement_setAttribute(elem, name, val, 0);
1723     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
1724
1725     hres = IHTMLElement4_getAttributeNode(elem4, name, &attr);
1726     ok(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
1727     ok(attr != NULL, "attr == NULL\n");
1728
1729     IHTMLDOMAttribute_Release(attr);
1730     IHTMLCommentElement_Release(comment);
1731     IHTMLElement_Release(elem);
1732     IHTMLElement4_Release(elem4);
1733     SysFreeString(name);
1734 }
1735
1736 #define test_object_vspace(u,s) _test_object_vspace(__LINE__,u,s)
1737 static void _test_object_vspace(unsigned line, IUnknown *unk, LONG exl)
1738 {
1739     IHTMLObjectElement *object = _get_object_iface(line, unk);
1740     LONG l;
1741     HRESULT hres;
1742
1743     l = 0xdeadbeef;
1744     hres = IHTMLObjectElement_get_vspace(object, &l);
1745     ok_(__FILE__,line)(hres == S_OK, "get_vspace failed: %08x\n", hres);
1746     ok_(__FILE__,line)(l == exl, "vspace=%d, expected %d\n", l, exl);
1747     IHTMLObjectElement_Release(object);
1748 }
1749
1750 #define test_object_name(a,b) _test_object_name(__LINE__,a,b)
1751 static void _test_object_name(unsigned line, IHTMLElement *elem, const char *exname)
1752 {
1753     IHTMLObjectElement *object = _get_object_iface(line, (IUnknown*)elem);
1754     BSTR str;
1755     HRESULT hres;
1756
1757     str = (void*)0xdeadbeef;
1758     hres = IHTMLObjectElement_get_name(object, &str);
1759     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
1760     if(exname)
1761         ok_(__FILE__,line)(!strcmp_wa(str, exname), "name=%s, expected %s\n", wine_dbgstr_w(str), exname);
1762     else
1763         ok_(__FILE__,line)(!str, "name=%s, expected NULL\n", wine_dbgstr_w(str));
1764     SysFreeString(str);
1765     IHTMLObjectElement_Release(object);
1766 }
1767
1768 #define set_object_name(a,b) _set_object_name(__LINE__,a,b)
1769 static void _set_object_name(unsigned line, IHTMLElement *elem, const char *name)
1770 {
1771     IHTMLObjectElement *object = _get_object_iface(line, (IUnknown*)elem);
1772     BSTR str;
1773     HRESULT hres;
1774
1775     str = a2bstr(name);
1776     hres = IHTMLObjectElement_put_name(object, str);
1777     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
1778     SysFreeString(str);
1779     IHTMLObjectElement_Release(object);
1780
1781     _test_object_name(line, elem, name);
1782 }
1783
1784 #define create_option_elem(d,t,v) _create_option_elem(__LINE__,d,t,v)
1785 static IHTMLOptionElement *_create_option_elem(unsigned line, IHTMLDocument2 *doc,
1786         const char *txt, const char *val)
1787 {
1788     IHTMLOptionElementFactory *factory;
1789     IHTMLOptionElement *option;
1790     IHTMLWindow2 *window;
1791     VARIANT text, value, empty;
1792     HRESULT hres;
1793
1794     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1795     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1796
1797     hres = IHTMLWindow2_get_Option(window, &factory);
1798     IHTMLWindow2_Release(window);
1799     ok_(__FILE__,line) (hres == S_OK, "get_Option failed: %08x\n", hres);
1800
1801     test_disp((IUnknown*)factory, &IID_IHTMLOptionElementFactory, "[object]");
1802
1803     V_VT(&text) = VT_BSTR;
1804     V_BSTR(&text) = a2bstr(txt);
1805     V_VT(&value) = VT_BSTR;
1806     V_BSTR(&value) = a2bstr(val);
1807     V_VT(&empty) = VT_EMPTY;
1808
1809     hres = IHTMLOptionElementFactory_create(factory, text, value, empty, empty, &option);
1810     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
1811
1812     IHTMLOptionElementFactory_Release(factory);
1813     VariantClear(&text);
1814     VariantClear(&value);
1815
1816     _test_option_text(line, option, txt);
1817     _test_option_value(line, option, val);
1818     _test_option_selected(line, option, VARIANT_FALSE);
1819
1820     return option;
1821 }
1822
1823 #define test_img_width(o,w) _test_img_width(__LINE__,o,w)
1824 static void _test_img_width(unsigned line, IHTMLImgElement *img, const LONG exp)
1825 {
1826     LONG found = -1;
1827     HRESULT hres;
1828
1829     hres = IHTMLImgElement_get_width(img, &found);
1830     ok_(__FILE__,line) (hres == S_OK, "get_width failed: %08x\n", hres);
1831     ok_(__FILE__,line) (found == exp, "width=%d\n", found);
1832 }
1833
1834 #define test_img_put_width(o,w) _test_img_put_width(__LINE__,o,w)
1835 static void _test_img_put_width(unsigned line, IHTMLImgElement *img, const LONG width)
1836 {
1837     HRESULT hres;
1838
1839     hres = IHTMLImgElement_put_width(img, width);
1840     ok(hres == S_OK, "put_width failed: %08x\n", hres);
1841
1842     _test_img_width(line, img, width);
1843 }
1844
1845 #define test_img_height(o,h) _test_img_height(__LINE__,o,h)
1846 static void _test_img_height(unsigned line, IHTMLImgElement *img, const LONG exp)
1847 {
1848     LONG found = -1;
1849     HRESULT hres;
1850
1851     hres = IHTMLImgElement_get_height(img, &found);
1852     ok_(__FILE__,line) (hres == S_OK, "get_height failed: %08x\n", hres);
1853     ok_(__FILE__,line) (found == exp, "height=%d\n", found);
1854 }
1855
1856 #define test_img_put_height(o,w) _test_img_put_height(__LINE__,o,w)
1857 static void _test_img_put_height(unsigned line, IHTMLImgElement *img, const LONG height)
1858 {
1859     HRESULT hres;
1860
1861     hres = IHTMLImgElement_put_height(img, height);
1862     ok(hres == S_OK, "put_height failed: %08x\n", hres);
1863
1864     _test_img_height(line, img, height);
1865 }
1866
1867 #define create_img_elem(d,t,v) _create_img_elem(__LINE__,d,t,v)
1868 static IHTMLImgElement *_create_img_elem(unsigned line, IHTMLDocument2 *doc,
1869         LONG wdth, LONG hght)
1870 {
1871     IHTMLImageElementFactory *factory;
1872     IHTMLImgElement *img;
1873     IHTMLWindow2 *window;
1874     VARIANT width, height;
1875     char buf[16];
1876     HRESULT hres;
1877
1878     hres = IHTMLDocument2_get_parentWindow(doc, &window);
1879     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
1880
1881     hres = IHTMLWindow2_get_Image(window, &factory);
1882     IHTMLWindow2_Release(window);
1883     ok_(__FILE__,line) (hres == S_OK, "get_Image failed: %08x\n", hres);
1884
1885     test_ifaces((IUnknown*)factory, img_factory_iids);
1886     test_disp((IUnknown*)factory, &IID_IHTMLImageElementFactory, "[object]");
1887
1888     if(wdth >= 0){
1889         snprintf(buf, 16, "%d", wdth);
1890         V_VT(&width) = VT_BSTR;
1891         V_BSTR(&width) = a2bstr(buf);
1892     }else{
1893         V_VT(&width) = VT_EMPTY;
1894         wdth = 0;
1895     }
1896
1897     if(hght >= 0){
1898         snprintf(buf, 16, "%d", hght);
1899         V_VT(&height) = VT_BSTR;
1900         V_BSTR(&height) = a2bstr(buf);
1901     }else{
1902         V_VT(&height) = VT_EMPTY;
1903         hght = 0;
1904     }
1905
1906     hres = IHTMLImageElementFactory_create(factory, width, height, &img);
1907     ok_(__FILE__,line) (hres == S_OK, "create failed: %08x\n", hres);
1908
1909     IHTMLImageElementFactory_Release(factory);
1910     VariantClear(&width);
1911     VariantClear(&height);
1912
1913     if(SUCCEEDED(hres)) {
1914         _test_img_width(line, img, wdth);
1915         _test_img_height(line, img, hght);
1916         return img;
1917     }
1918
1919     return NULL;
1920 }
1921
1922 #define test_select_length(s,l) _test_select_length(__LINE__,s,l)
1923 static void _test_select_length(unsigned line, IHTMLSelectElement *select, LONG length)
1924 {
1925     LONG len = 0xdeadbeef;
1926     HRESULT hres;
1927
1928     hres = IHTMLSelectElement_get_length(select, &len);
1929     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
1930     ok_(__FILE__,line) (len == length, "len=%d, expected %d\n", len, length);
1931 }
1932
1933 #define test_select_put_length(s,l) _test_select_put_length(__LINE__,s,l)
1934 static void _test_select_put_length(unsigned line, IUnknown *unk, LONG length)
1935 {
1936     IHTMLSelectElement *select = _get_select_iface(line, unk);
1937     HRESULT hres;
1938
1939     hres = IHTMLSelectElement_put_length(select, length);
1940     ok_(__FILE__,line) (hres == S_OK, "put_length failed: %08x\n", hres);
1941     _test_select_length(line, select, length);
1942     IHTMLSelectElement_Release(select);
1943 }
1944
1945 #define test_select_selidx(s,i) _test_select_selidx(__LINE__,s,i)
1946 static void _test_select_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
1947 {
1948     LONG idx = 0xdeadbeef;
1949     HRESULT hres;
1950
1951     hres = IHTMLSelectElement_get_selectedIndex(select, &idx);
1952     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
1953     ok_(__FILE__,line) (idx == index, "idx=%d, expected %d\n", idx, index);
1954 }
1955
1956 #define test_select_put_selidx(s,i) _test_select_put_selidx(__LINE__,s,i)
1957 static void _test_select_put_selidx(unsigned line, IHTMLSelectElement *select, LONG index)
1958 {
1959     HRESULT hres;
1960
1961     hres = IHTMLSelectElement_put_selectedIndex(select, index);
1962     ok_(__FILE__,line) (hres == S_OK, "get_selectedIndex failed: %08x\n", hres);
1963     _test_select_selidx(line, select, index);
1964 }
1965
1966 #define test_select_value(s,v) _test_select_value(__LINE__,s,v)
1967 static void _test_select_value(unsigned line, IHTMLSelectElement *select, const char *exval)
1968 {
1969     BSTR val;
1970     HRESULT hres;
1971
1972     hres = IHTMLSelectElement_get_value(select, &val);
1973     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
1974     if(exval)
1975         ok_(__FILE__,line) (!strcmp_wa(val, exval), "unexpected value %s\n", wine_dbgstr_w(val));
1976     else
1977         ok_(__FILE__,line) (val == NULL, "val=%s, expected NULL\n", wine_dbgstr_w(val));
1978     SysFreeString(val);
1979 }
1980
1981 #define test_select_set_value(s,v) _test_select_set_value(__LINE__,s,v)
1982 static void _test_select_set_value(unsigned line, IHTMLSelectElement *select, const char *val)
1983 {
1984     BSTR bstr;
1985     HRESULT hres;
1986
1987     bstr = a2bstr(val);
1988     hres = IHTMLSelectElement_put_value(select, bstr);
1989     SysFreeString(bstr);
1990     ok_(__FILE__,line) (hres == S_OK, "put_value failed: %08x\n", hres);
1991 }
1992
1993 #define test_select_type(s,t) _test_select_type(__LINE__,s,t)
1994 static void _test_select_type(unsigned line, IHTMLSelectElement *select, const char *extype)
1995 {
1996     BSTR type;
1997     HRESULT hres;
1998
1999     hres = IHTMLSelectElement_get_type(select, &type);
2000     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
2001     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", wine_dbgstr_w(type), extype);
2002     SysFreeString(type);
2003 }
2004
2005 #define test_select_multiple(s,t) _test_select_multiple(__LINE__,s,t)
2006 static void _test_select_multiple(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL exmultiple)
2007 {
2008     VARIANT_BOOL b = 100;
2009     HRESULT hres;
2010
2011     hres = IHTMLSelectElement_get_multiple(select, &b);
2012     ok_(__FILE__,line) (hres == S_OK, "get_multiple failed: %08x\n", hres);
2013     ok_(__FILE__,line) (b == exmultiple, "multiple=%x, expected %x\n", b, exmultiple);
2014 }
2015
2016 #define test_select_set_multiple(s,v) _test_select_set_multiple(__LINE__,s,v)
2017 static void _test_select_set_multiple(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL val)
2018 {
2019     HRESULT hres;
2020
2021     hres = IHTMLSelectElement_put_multiple(select, val);
2022     ok_(__FILE__,line) (hres == S_OK, "put_multiple failed: %08x\n", hres);
2023
2024     _test_select_multiple(line, select, val);
2025 }
2026
2027 #define test_range_text(r,t) _test_range_text(__LINE__,r,t)
2028 static void _test_range_text(unsigned line, IHTMLTxtRange *range, const char *extext)
2029 {
2030     BSTR text;
2031     HRESULT hres;
2032
2033     hres = IHTMLTxtRange_get_text(range, &text);
2034     ok_(__FILE__, line) (hres == S_OK, "get_text failed: %08x\n", hres);
2035
2036     if(extext) {
2037         ok_(__FILE__, line) (text != NULL, "text == NULL\n");
2038         ok_(__FILE__, line) (!strcmp_wa(text, extext), "text=%s, expected %s\n", wine_dbgstr_w(text), extext);
2039     }else {
2040         ok_(__FILE__, line) (text == NULL, "text=%s, expected NULL\n", wine_dbgstr_w(text));
2041     }
2042
2043     SysFreeString(text);
2044
2045 }
2046
2047 #define test_range_collapse(r,b) _test_range_collapse(__LINE__,r,b)
2048 static void _test_range_collapse(unsigned line, IHTMLTxtRange *range, BOOL b)
2049 {
2050     HRESULT hres;
2051
2052     hres = IHTMLTxtRange_collapse(range, b);
2053     ok_(__FILE__, line) (hres == S_OK, "collapse failed: %08x\n", hres);
2054     _test_range_text(line, range, NULL);
2055 }
2056
2057 #define test_range_expand(r,u,b,t) _test_range_expand(__LINE__,r,u,b,t)
2058 static void _test_range_expand(unsigned line, IHTMLTxtRange *range, LPWSTR unit,
2059         VARIANT_BOOL exb, const char *extext)
2060 {
2061     VARIANT_BOOL b = 0xe0e0;
2062     HRESULT hres;
2063
2064     hres = IHTMLTxtRange_expand(range, unit, &b);
2065     ok_(__FILE__,line) (hres == S_OK, "expand failed: %08x\n", hres);
2066     ok_(__FILE__,line) (b == exb, "b=%x, expected %x\n", b, exb);
2067     _test_range_text(line, range, extext);
2068 }
2069
2070 #define test_range_move(r,u,c,e) _test_range_move(__LINE__,r,u,c,e)
2071 static void _test_range_move(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
2072 {
2073     LONG c = 0xdeadbeef;
2074     HRESULT hres;
2075
2076     hres = IHTMLTxtRange_move(range, unit, cnt, &c);
2077     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
2078     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
2079     _test_range_text(line, range, NULL);
2080 }
2081
2082 #define test_range_movestart(r,u,c,e) _test_range_movestart(__LINE__,r,u,c,e)
2083 static void _test_range_movestart(unsigned line, IHTMLTxtRange *range,
2084         LPWSTR unit, LONG cnt, LONG excnt)
2085 {
2086     LONG c = 0xdeadbeef;
2087     HRESULT hres;
2088
2089     hres = IHTMLTxtRange_moveStart(range, unit, cnt, &c);
2090     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
2091     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
2092 }
2093
2094 #define test_range_moveend(r,u,c,e) _test_range_moveend(__LINE__,r,u,c,e)
2095 static void _test_range_moveend(unsigned line, IHTMLTxtRange *range, LPWSTR unit, LONG cnt, LONG excnt)
2096 {
2097     LONG c = 0xdeadbeef;
2098     HRESULT hres;
2099
2100     hres = IHTMLTxtRange_moveEnd(range, unit, cnt, &c);
2101     ok_(__FILE__,line) (hres == S_OK, "move failed: %08x\n", hres);
2102     ok_(__FILE__,line) (c == excnt, "count=%d, expected %d\n", c, excnt);
2103 }
2104
2105 #define test_range_put_text(r,t) _test_range_put_text(__LINE__,r,t)
2106 static void _test_range_put_text(unsigned line, IHTMLTxtRange *range, const char *text)
2107 {
2108     HRESULT hres;
2109     BSTR bstr = a2bstr(text);
2110
2111     hres = IHTMLTxtRange_put_text(range, bstr);
2112     ok_(__FILE__,line) (hres == S_OK, "put_text failed: %08x\n", hres);
2113     SysFreeString(bstr);
2114     _test_range_text(line, range, NULL);
2115 }
2116
2117 #define test_range_inrange(r1,r2,b) _test_range_inrange(__LINE__,r1,r2,b)
2118 static void _test_range_inrange(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
2119 {
2120     VARIANT_BOOL b;
2121     HRESULT hres;
2122
2123     b = 0xe0e0;
2124     hres = IHTMLTxtRange_inRange(range1, range2, &b);
2125     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
2126     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
2127 }
2128
2129 #define test_range_isequal(r1,r2,b) _test_range_isequal(__LINE__,r1,r2,b)
2130 static void _test_range_isequal(unsigned line, IHTMLTxtRange *range1, IHTMLTxtRange *range2, VARIANT_BOOL exb)
2131 {
2132     VARIANT_BOOL b;
2133     HRESULT hres;
2134
2135     b = 0xe0e0;
2136     hres = IHTMLTxtRange_isEqual(range1, range2, &b);
2137     ok_(__FILE__,line) (hres == S_OK, "(1->2) isEqual failed: %08x\n", hres);
2138     ok_(__FILE__,line) (b == exb, "(1->2) b=%x, expected %x\n", b, exb);
2139
2140     b = 0xe0e0;
2141     hres = IHTMLTxtRange_isEqual(range2, range1, &b);
2142     ok_(__FILE__,line) (hres == S_OK, "(2->1) isEqual failed: %08x\n", hres);
2143     ok_(__FILE__,line) (b == exb, "(2->1) b=%x, expected %x\n", b, exb);
2144
2145     if(exb) {
2146         test_range_inrange(range1, range2, VARIANT_TRUE);
2147         test_range_inrange(range2, range1, VARIANT_TRUE);
2148     }
2149 }
2150
2151 #define test_range_parent(r,t) _test_range_parent(__LINE__,r,t)
2152 static void _test_range_parent(unsigned line, IHTMLTxtRange *range, elem_type_t type)
2153 {
2154     IHTMLElement *elem;
2155     HRESULT hres;
2156
2157     hres = IHTMLTxtRange_parentElement(range, &elem);
2158     ok_(__FILE__,line) (hres == S_OK, "parentElement failed: %08x\n", hres);
2159
2160     _test_elem_type(line, (IUnknown*)elem, type);
2161
2162     IHTMLElement_Release(elem);
2163 }
2164
2165 #define get_elem_col_item_idx(a,b) _get_elem_col_item_idx(__LINE__,a,b)
2166 static IHTMLElement *_get_elem_col_item_idx(unsigned line, IHTMLElementCollection *col, int i)
2167 {
2168     VARIANT name, index;
2169     IHTMLElement *elem;
2170     IDispatch *disp;
2171     HRESULT hres;
2172
2173     V_VT(&index) = VT_EMPTY;
2174     V_VT(&name) = VT_I4;
2175     V_I4(&name) = i;
2176     hres = IHTMLElementCollection_item(col, name, index, &disp);
2177     ok_(__FILE__,line)(hres == S_OK, "item failed: %08x\n", hres);
2178     ok_(__FILE__,line)(disp != NULL, "disp == NULL\n");
2179
2180     elem = _get_elem_iface(line, (IUnknown*)disp);
2181     IDispatch_Release(disp);
2182     return elem;
2183 }
2184
2185 #define test_elem_collection(c,t,l) _test_elem_collection(__LINE__,c,t,l)
2186 static void _test_elem_collection(unsigned line, IUnknown *unk,
2187         const elem_type_t *elem_types, LONG exlen)
2188 {
2189     IHTMLElementCollection *col;
2190     IEnumVARIANT *enum_var;
2191     IUnknown *enum_unk;
2192     ULONG fetched;
2193     LONG len;
2194     DWORD i;
2195     VARIANT name, index, v, vs[5];
2196     IDispatch *disp, *disp2;
2197     HRESULT hres;
2198
2199     hres = IUnknown_QueryInterface(unk, &IID_IHTMLElementCollection, (void**)&col);
2200     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElementCollection: %08x\n", hres);
2201
2202     test_disp((IUnknown*)col, &DIID_DispHTMLElementCollection, "[object]");
2203
2204     hres = IHTMLElementCollection_get_length(col, &len);
2205     ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
2206     ok_(__FILE__,line) (len == exlen, "len=%d, expected %d\n", len, exlen);
2207
2208     if(len > exlen)
2209         len = exlen;
2210
2211     V_VT(&index) = VT_EMPTY;
2212
2213     hres = IHTMLElementCollection_get__newEnum(col, &enum_unk);
2214     ok_(__FILE__,line)(hres == S_OK, "_newEnum failed: %08x\n", hres);
2215
2216     hres = IUnknown_QueryInterface(enum_unk, &IID_IEnumVARIANT, (void**)&enum_var);
2217     IUnknown_Release(enum_unk);
2218     ok_(__FILE__,line)(hres == S_OK, "Could not get IEnumVARIANT iface: %08x\n", hres);
2219
2220     for(i=0; i<len; i++) {
2221         V_VT(&name) = VT_I4;
2222         V_I4(&name) = i;
2223         disp = (void*)0xdeadbeef;
2224         hres = IHTMLElementCollection_item(col, name, index, &disp);
2225         ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
2226         ok_(__FILE__,line) (disp != NULL, "item returned NULL\n");
2227         if(FAILED(hres) || !disp)
2228             continue;
2229
2230         _test_elem_type(line, (IUnknown*)disp, elem_types[i]);
2231
2232         if(!i) {
2233             V_VT(&name) = VT_UINT;
2234             V_I4(&name) = 0;
2235             disp2 = (void*)0xdeadbeef;
2236             hres = IHTMLElementCollection_item(col, name, index, &disp2);
2237             ok_(__FILE__,line) (hres == S_OK, "item(%d) failed: %08x\n", i, hres);
2238             ok_(__FILE__,line) (iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
2239             if(disp2)
2240                 IDispatch_Release(disp2);
2241         }
2242
2243         fetched = 0;
2244         V_VT(&v) = VT_ERROR;
2245         hres = IEnumVARIANT_Next(enum_var, 1, &v, i ? &fetched : NULL);
2246         ok_(__FILE__,line)(hres == S_OK, "Next failed: %08x\n", hres);
2247         if(i)
2248             ok_(__FILE__,line)(fetched == 1, "fetched = %d\n", fetched);
2249         ok_(__FILE__,line)(V_VT(&v) == VT_DISPATCH && V_DISPATCH(&v), "V_VT(v) = %d\n", V_VT(&v));
2250         ok_(__FILE__,line)(iface_cmp((IUnknown*)disp, (IUnknown*)V_DISPATCH(&v)), "disp != V_DISPATCH(v)\n");
2251         IDispatch_Release(V_DISPATCH(&v));
2252
2253         IDispatch_Release(disp);
2254     }
2255
2256     fetched = 0xdeadbeef;
2257     V_VT(&v) = VT_BOOL;
2258     hres = IEnumVARIANT_Next(enum_var, 1, &v, &fetched);
2259     ok_(__FILE__,line)(hres == S_FALSE, "Next returned %08x, expected S_FALSE\n", hres);
2260     ok_(__FILE__,line)(fetched == 0, "fetched = %d\n", fetched);
2261     ok_(__FILE__,line)(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2262
2263     hres = IEnumVARIANT_Reset(enum_var);
2264     ok_(__FILE__,line)(hres == S_OK, "Reset failed: %08x\n", hres);
2265
2266     fetched = 0xdeadbeef;
2267     V_VT(&v) = VT_BOOL;
2268     hres = IEnumVARIANT_Next(enum_var, 0, &v, &fetched);
2269     ok_(__FILE__,line)(hres == S_OK, "Next returned %08x, expected S_FALSE\n", hres);
2270     ok_(__FILE__,line)(fetched == 0, "fetched = %d\n", fetched);
2271     ok_(__FILE__,line)(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2272
2273     hres = IEnumVARIANT_Skip(enum_var, len > 2 ? len-2 : 0);
2274     ok_(__FILE__,line)(hres == S_OK, "Skip failed: %08x\n", hres);
2275
2276     memset(vs, 0, sizeof(vs));
2277     fetched = 0;
2278     hres = IEnumVARIANT_Next(enum_var, sizeof(vs)/sizeof(*vs), vs, &fetched);
2279     ok_(__FILE__,line)(hres == S_FALSE, "Next failed: %08x\n", hres);
2280     ok_(__FILE__,line)(fetched == (len > 2 ? 2 : len), "fetched = %d\n", fetched);
2281     if(len) {
2282         ok_(__FILE__,line)(V_VT(vs) == VT_DISPATCH && V_DISPATCH(vs), "V_VT(vs[0]) = %d\n", V_VT(vs));
2283         IDispatch_Release(V_DISPATCH(vs));
2284     }
2285     if(len > 1) {
2286         ok_(__FILE__,line)(V_VT(vs+1) == VT_DISPATCH && V_DISPATCH(vs+1), "V_VT(vs[1]) = %d\n", V_VT(vs+1));
2287         IDispatch_Release(V_DISPATCH(vs+1));
2288     }
2289
2290     hres = IEnumVARIANT_Reset(enum_var);
2291     ok_(__FILE__,line)(hres == S_OK, "Reset failed: %08x\n", hres);
2292
2293     hres = IEnumVARIANT_Skip(enum_var, len+1);
2294     ok_(__FILE__,line)(hres == S_FALSE, "Skip failed: %08x\n", hres);
2295
2296     IEnumVARIANT_Release(enum_var);
2297
2298     V_VT(&name) = VT_I4;
2299     V_I4(&name) = len;
2300     disp = (void*)0xdeadbeef;
2301     hres = IHTMLElementCollection_item(col, name, index, &disp);
2302     ok_(__FILE__,line) (hres == S_OK, "item failed: %08x\n", hres);
2303     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
2304
2305     V_VT(&name) = VT_I4;
2306     V_I4(&name) = -1;
2307     disp = (void*)0xdeadbeef;
2308     hres = IHTMLElementCollection_item(col, name, index, &disp);
2309     ok_(__FILE__,line) (hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
2310     ok_(__FILE__,line) (disp == NULL, "disp != NULL\n");
2311
2312     IHTMLElementCollection_Release(col);
2313 }
2314
2315 #define test_elem_all(c,t,l) _test_elem_all(__LINE__,c,t,l)
2316 static void _test_elem_all(unsigned line, IUnknown *unk, const elem_type_t *elem_types, LONG exlen)
2317 {
2318     IHTMLElement *elem = _get_elem_iface(line, unk);
2319     IDispatch *disp;
2320     HRESULT hres;
2321
2322     hres = IHTMLElement_get_all(elem, &disp);
2323     IHTMLElement_Release(elem);
2324     ok_(__FILE__,line)(hres == S_OK, "get_all failed: %08x\n", hres);
2325
2326     _test_elem_collection(line, (IUnknown*)disp, elem_types, exlen);
2327     IDispatch_Release(disp);
2328 }
2329
2330 #define test_doc_all(a,b,c) _test_doc_all(__LINE__,a,b,c)
2331 static void _test_doc_all(unsigned line, IHTMLDocument2 *doc, const elem_type_t *elem_types, LONG exlen)
2332 {
2333     IHTMLElementCollection *col;
2334     HRESULT hres;
2335
2336     hres = IHTMLDocument2_get_all(doc, &col);
2337     ok_(__FILE__,line)(hres == S_OK, "get_all failed: %08x\n", hres);
2338
2339     _test_elem_collection(line, (IUnknown*)col, elem_types, exlen);
2340     IHTMLElementCollection_Release(col);
2341 }
2342
2343 #define test_elem_getelembytag(a,b,c,d) _test_elem_getelembytag(__LINE__,a,b,c,d)
2344 static void _test_elem_getelembytag(unsigned line, IUnknown *unk, elem_type_t type, LONG exlen, IHTMLElement **ret)
2345 {
2346     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2347     IHTMLElementCollection *col = NULL;
2348     elem_type_t *types = NULL;
2349     BSTR tmp;
2350     int i;
2351     HRESULT hres;
2352
2353     tmp = a2bstr(elem_type_infos[type].tag);
2354     hres = IHTMLElement2_getElementsByTagName(elem, tmp, &col);
2355     SysFreeString(tmp);
2356     IHTMLElement2_Release(elem);
2357     ok_(__FILE__,line) (hres == S_OK, "getElementByTagName failed: %08x\n", hres);
2358     ok_(__FILE__,line) (col != NULL, "col == NULL\n");
2359
2360     if(exlen) {
2361         types = HeapAlloc(GetProcessHeap(), 0, exlen*sizeof(elem_type_t));
2362         for(i=0; i<exlen; i++)
2363             types[i] = type;
2364     }
2365
2366     _test_elem_collection(line, (IUnknown*)col, types, exlen);
2367
2368     HeapFree(GetProcessHeap(), 0, types);
2369
2370     if(ret)
2371         *ret = get_elem_col_item_idx(col, 0);
2372     IHTMLElementCollection_Release(col);
2373 }
2374
2375 #define test_elem_innertext(e,t) _test_elem_innertext(__LINE__,e,t)
2376 static void _test_elem_innertext(unsigned line, IHTMLElement *elem, const char *extext)
2377 {
2378     BSTR text = NULL;
2379     HRESULT hres;
2380
2381     hres = IHTMLElement_get_innerText(elem, &text);
2382     ok_(__FILE__,line) (hres == S_OK, "get_innerText failed: %08x\n", hres);
2383     if(extext)
2384         ok_(__FILE__,line) (!strcmp_wa(text, extext), "get_innerText returned %s expected %s\n",
2385                             wine_dbgstr_w(text), extext);
2386     else
2387         ok_(__FILE__,line) (!text, "get_innerText returned %s expected NULL\n", wine_dbgstr_w(text));
2388     SysFreeString(text);
2389 }
2390
2391 #define test_elem_set_innertext(e,t) _test_elem_set_innertext(__LINE__,e,t)
2392 static void _test_elem_set_innertext(unsigned line, IHTMLElement *elem, const char *text)
2393 {
2394     IHTMLDOMChildrenCollection *col;
2395     BSTR str;
2396     HRESULT hres;
2397
2398     str = a2bstr(text);
2399     hres = IHTMLElement_put_innerText(elem, str);
2400     ok_(__FILE__,line) (hres == S_OK, "put_innerText failed: %08x\n", hres);
2401     SysFreeString(str);
2402
2403     _test_elem_innertext(line, elem, text);
2404
2405
2406     col = _get_child_nodes(line, (IUnknown*)elem);
2407     ok(col != NULL, "col == NULL\n");
2408     if(col) {
2409         LONG length = 0, type;
2410         IHTMLDOMNode *node;
2411
2412         hres = IHTMLDOMChildrenCollection_get_length(col, &length);
2413         ok(hres == S_OK, "get_length failed: %08x\n", hres);
2414         ok(length == 1, "length = %d\n", length);
2415
2416         node = _get_child_item(line, col, 0);
2417         ok(node != NULL, "node == NULL\n");
2418         if(node) {
2419             type = _get_node_type(line, (IUnknown*)node);
2420             ok(type == 3, "type=%d\n", type);
2421             IHTMLDOMNode_Release(node);
2422         }
2423
2424         IHTMLDOMChildrenCollection_Release(col);
2425     }
2426
2427 }
2428
2429 #define test_elem_innerhtml(e,t) _test_elem_innerhtml(__LINE__,e,t)
2430 static void _test_elem_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
2431 {
2432     IHTMLElement *elem = _get_elem_iface(line, unk);
2433     BSTR html;
2434     HRESULT hres;
2435
2436     hres = IHTMLElement_get_innerHTML(elem, &html);
2437     ok_(__FILE__,line)(hres == S_OK, "get_innerHTML failed: %08x\n", hres);
2438     if(inner_html)
2439         ok_(__FILE__,line)(!strcmp_wa(html, inner_html), "unexpected innerHTML: %s\n", wine_dbgstr_w(html));
2440     else
2441         ok_(__FILE__,line)(!html, "innerHTML = %s\n", wine_dbgstr_w(html));
2442
2443     IHTMLElement_Release(elem);
2444     SysFreeString(html);
2445 }
2446
2447 #define test_elem_set_innerhtml(e,t) _test_elem_set_innerhtml(__LINE__,e,t)
2448 static void _test_elem_set_innerhtml(unsigned line, IUnknown *unk, const char *inner_html)
2449 {
2450     IHTMLElement *elem = _get_elem_iface(line, unk);
2451     BSTR html;
2452     HRESULT hres;
2453
2454     html = a2bstr(inner_html);
2455     hres = IHTMLElement_put_innerHTML(elem, html);
2456     ok_(__FILE__,line)(hres == S_OK, "put_innerHTML failed: %08x\n", hres);
2457
2458     IHTMLElement_Release(elem);
2459     SysFreeString(html);
2460 }
2461
2462 #define test_elem_set_outerhtml(e,t) _test_elem_set_outerhtml(__LINE__,e,t)
2463 static void _test_elem_set_outerhtml(unsigned line, IUnknown *unk, const char *outer_html)
2464 {
2465     IHTMLElement *elem = _get_elem_iface(line, unk);
2466     BSTR html;
2467     HRESULT hres;
2468
2469     html = a2bstr(outer_html);
2470     hres = IHTMLElement_put_outerHTML(elem, html);
2471     ok_(__FILE__,line)(hres == S_OK, "put_outerHTML failed: %08x\n", hres);
2472
2473     IHTMLElement_Release(elem);
2474     SysFreeString(html);
2475 }
2476
2477 #define test_elem_outerhtml(e,t) _test_elem_outerhtml(__LINE__,e,t)
2478 static void _test_elem_outerhtml(unsigned line, IUnknown *unk, const char *outer_html)
2479 {
2480     IHTMLElement *elem = _get_elem_iface(line, unk);
2481     BSTR html;
2482     HRESULT hres;
2483
2484     hres = IHTMLElement_get_outerHTML(elem, &html);
2485     ok_(__FILE__,line)(hres == S_OK, "get_outerHTML failed: %08x\n", hres);
2486     ok_(__FILE__,line)(!strcmp_wa(html, outer_html), "outerHTML = '%s', expected '%s'\n", wine_dbgstr_w(html), outer_html);
2487
2488     IHTMLElement_Release(elem);
2489     SysFreeString(html);
2490 }
2491
2492 #define test_elem_contains(a,b,c) _test_elem_contains(__LINE__,a,b,c)
2493 static void _test_elem_contains(unsigned line, IHTMLElement *elem, IHTMLElement *elem2, VARIANT_BOOL exval)
2494 {
2495     VARIANT_BOOL b;
2496     HRESULT hres;
2497
2498     b = 100;
2499     hres = IHTMLElement_contains(elem, elem2, &b);
2500     ok_(__FILE__,line)(hres == S_OK, "contains failed: %08x\n", hres);
2501     ok_(__FILE__,line)(b == exval, "contains returned %x, expected %x\n", b, exval);
2502 }
2503
2504 #define get_first_child(n) _get_first_child(__LINE__,n)
2505 static IHTMLDOMNode *_get_first_child(unsigned line, IUnknown *unk)
2506 {
2507     IHTMLDOMNode *node = _get_node_iface(line, unk);
2508     IHTMLDOMNode *child = NULL;
2509     HRESULT hres;
2510
2511     hres = IHTMLDOMNode_get_firstChild(node, &child);
2512     IHTMLDOMNode_Release(node);
2513     ok_(__FILE__,line) (hres == S_OK, "get_firstChild failed: %08x\n", hres);
2514
2515     return child;
2516 }
2517
2518 #define test_node_has_child(u,b) _test_node_has_child(__LINE__,u,b)
2519 static void _test_node_has_child(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
2520 {
2521     IHTMLDOMNode *node = _get_node_iface(line, unk);
2522     VARIANT_BOOL b = 0xdead;
2523     HRESULT hres;
2524
2525     hres = IHTMLDOMNode_hasChildNodes(node, &b);
2526     ok_(__FILE__,line) (hres == S_OK, "hasChildNodes failed: %08x\n", hres);
2527     ok_(__FILE__,line) (b == exb, "hasChildNodes=%x, expected %x\n", b, exb);
2528
2529     IHTMLDOMNode_Release(node);
2530 }
2531
2532 #define test_node_get_parent(u) _test_node_get_parent(__LINE__,u)
2533 static IHTMLDOMNode *_test_node_get_parent(unsigned line, IUnknown *unk)
2534 {
2535     IHTMLDOMNode *node = _get_node_iface(line, unk);
2536     IHTMLDOMNode *parent;
2537     HRESULT hres;
2538
2539     hres = IHTMLDOMNode_get_parentNode(node, &parent);
2540     IHTMLDOMNode_Release(node);
2541     ok_(__FILE__,line) (hres == S_OK, "get_parentNode failed: %08x\n", hres);
2542
2543     return parent;
2544 }
2545
2546 #define node_get_next(u) _node_get_next(__LINE__,u)
2547 static IHTMLDOMNode *_node_get_next(unsigned line, IUnknown *unk)
2548 {
2549     IHTMLDOMNode *node = _get_node_iface(line, unk);
2550     IHTMLDOMNode *next;
2551     HRESULT hres;
2552
2553     hres = IHTMLDOMNode_get_nextSibling(node, &next);
2554     IHTMLDOMNode_Release(node);
2555     ok_(__FILE__,line) (hres == S_OK, "get_nextSiblibg failed: %08x\n", hres);
2556
2557     return next;
2558 }
2559
2560 #define node_get_prev(u) _node_get_prev(__LINE__,u)
2561 static IHTMLDOMNode *_node_get_prev(unsigned line, IUnknown *unk)
2562 {
2563     IHTMLDOMNode *node = _get_node_iface(line, unk);
2564     IHTMLDOMNode *prev;
2565     HRESULT hres;
2566
2567     hres = IHTMLDOMNode_get_previousSibling(node, &prev);
2568     IHTMLDOMNode_Release(node);
2569     ok_(__FILE__,line) (hres == S_OK, "get_previousSibling failed: %08x\n", hres);
2570
2571     return prev;
2572 }
2573
2574 #define test_elem_get_parent(u) _test_elem_get_parent(__LINE__,u)
2575 static IHTMLElement *_test_elem_get_parent(unsigned line, IUnknown *unk)
2576 {
2577     IHTMLElement *elem = _get_elem_iface(line, unk);
2578     IHTMLElement *parent;
2579     HRESULT hres;
2580
2581     hres = IHTMLElement_get_parentElement(elem, &parent);
2582     IHTMLElement_Release(elem);
2583     ok_(__FILE__,line) (hres == S_OK, "get_parentElement failed: %08x\n", hres);
2584
2585     return parent;
2586 }
2587
2588 #define test_elem3_get_disabled(i,b) _test_elem3_get_disabled(__LINE__,i,b)
2589 static void _test_elem3_get_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL exb)
2590 {
2591     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
2592     VARIANT_BOOL disabled = 100;
2593     HRESULT hres;
2594
2595     if (!elem3) return;
2596     hres = IHTMLElement3_get_disabled(elem3, &disabled);
2597     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2598     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
2599     IHTMLElement3_Release(elem3);
2600 }
2601
2602 #define test_elem3_set_disabled(i,b) _test_elem3_set_disabled(__LINE__,i,b)
2603 static void _test_elem3_set_disabled(unsigned line, IUnknown *unk, VARIANT_BOOL b)
2604 {
2605     IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
2606     HRESULT hres;
2607
2608     if (!elem3) return;
2609     hres = IHTMLElement3_put_disabled(elem3, b);
2610     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2611
2612     IHTMLElement3_Release(elem3);
2613     _test_elem3_get_disabled(line, unk, b);
2614 }
2615
2616 #define test_select_get_disabled(i,b) _test_select_get_disabled(__LINE__,i,b)
2617 static void _test_select_get_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL exb)
2618 {
2619     VARIANT_BOOL disabled = 100;
2620     HRESULT hres;
2621
2622     hres = IHTMLSelectElement_get_disabled(select, &disabled);
2623     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2624     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
2625
2626     _test_elem3_get_disabled(line, (IUnknown*)select, exb);
2627 }
2628
2629 static void test_select_remove(IHTMLSelectElement *select)
2630 {
2631     HRESULT hres;
2632
2633     hres = IHTMLSelectElement_remove(select, 3);
2634     ok(hres == S_OK, "remove failed: %08x, expected S_OK\n", hres);
2635     test_select_length(select, 2);
2636
2637     hres = IHTMLSelectElement_remove(select, -1);
2638     todo_wine
2639     ok(hres == E_INVALIDARG, "remove failed: %08x, expected E_INVALIDARG\n", hres);
2640     test_select_length(select, 2);
2641
2642     hres = IHTMLSelectElement_remove(select, 0);
2643     ok(hres == S_OK, "remove failed:%08x\n", hres);
2644     test_select_length(select, 1);
2645 }
2646
2647 #define test_text_length(u,l) _test_text_length(__LINE__,u,l)
2648 static void _test_text_length(unsigned line, IUnknown *unk, LONG l)
2649 {
2650     IHTMLDOMTextNode *text = _get_text_iface(line, unk);
2651     LONG length;
2652     HRESULT hres;
2653
2654     hres = IHTMLDOMTextNode_get_length(text, &length);
2655     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
2656     ok_(__FILE__,line)(length == l, "length = %d, expected %d\n", length, l);
2657     IHTMLDOMTextNode_Release(text);
2658 }
2659
2660 #define test_text_data(a,b) _test_text_data(__LINE__,a,b)
2661 static void _test_text_data(unsigned line, IUnknown *unk, const char *exdata)
2662 {
2663     IHTMLDOMTextNode *text = _get_text_iface(line, unk);
2664     BSTR str;
2665     HRESULT hres;
2666
2667     hres = IHTMLDOMTextNode_get_data(text, &str);
2668     ok_(__FILE__,line)(hres == S_OK, "get_data failed: %08x\n", hres);
2669     ok_(__FILE__,line)(!strcmp_wa(str, exdata), "data = %s, expected %s\n", wine_dbgstr_w(str), exdata);
2670     IHTMLDOMTextNode_Release(text);
2671     SysFreeString(str);
2672 }
2673
2674 #define set_text_data(a,b) _set_text_data(__LINE__,a,b)
2675 static void _set_text_data(unsigned line, IUnknown *unk, const char *data)
2676 {
2677     IHTMLDOMTextNode *text = _get_text_iface(line, unk);
2678     BSTR str = a2bstr(data);
2679     HRESULT hres;
2680
2681     hres = IHTMLDOMTextNode_put_data(text, str);
2682     ok_(__FILE__,line)(hres == S_OK, "get_data failed: %08x\n", hres);
2683     IHTMLDOMTextNode_Release(text);
2684     SysFreeString(str);
2685 }
2686
2687 #define test_select_set_disabled(i,b) _test_select_set_disabled(__LINE__,i,b)
2688 static void _test_select_set_disabled(unsigned line, IHTMLSelectElement *select, VARIANT_BOOL b)
2689 {
2690     HRESULT hres;
2691
2692     hres = IHTMLSelectElement_put_disabled(select, b);
2693     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
2694
2695     _test_select_get_disabled(line, select, b);
2696 }
2697
2698 #define elem_get_scroll_height(u) _elem_get_scroll_height(__LINE__,u)
2699 static LONG _elem_get_scroll_height(unsigned line, IUnknown *unk)
2700 {
2701     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2702     IHTMLTextContainer *txtcont;
2703     LONG l = -1, l2 = -1;
2704     HRESULT hres;
2705
2706     hres = IHTMLElement2_get_scrollHeight(elem, &l);
2707     ok_(__FILE__,line) (hres == S_OK, "get_scrollHeight failed: %08x\n", hres);
2708     IHTMLElement2_Release(elem);
2709
2710     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2711     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2712
2713     hres = IHTMLTextContainer_get_scrollHeight(txtcont, &l2);
2714     IHTMLTextContainer_Release(txtcont);
2715     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollHeight failed: %d\n", l2);
2716     ok_(__FILE__,line) (l == l2, "unexpected height %d, expected %d\n", l2, l);
2717
2718     return l;
2719 }
2720
2721 #define elem_get_scroll_width(u) _elem_get_scroll_width(__LINE__,u)
2722 static LONG _elem_get_scroll_width(unsigned line, IUnknown *unk)
2723 {
2724     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2725     IHTMLTextContainer *txtcont;
2726     LONG l = -1, l2 = -1;
2727     HRESULT hres;
2728
2729     hres = IHTMLElement2_get_scrollWidth(elem, &l);
2730     ok_(__FILE__,line) (hres == S_OK, "get_scrollWidth failed: %08x\n", hres);
2731     IHTMLElement2_Release(elem);
2732
2733     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2734     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2735
2736     hres = IHTMLTextContainer_get_scrollWidth(txtcont, &l2);
2737     IHTMLTextContainer_Release(txtcont);
2738     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollWidth failed: %d\n", l2);
2739     ok_(__FILE__,line) (l == l2, "unexpected width %d, expected %d\n", l2, l);
2740
2741     return l;
2742 }
2743
2744 #define elem_get_scroll_top(u) _elem_get_scroll_top(__LINE__,u)
2745 static LONG _elem_get_scroll_top(unsigned line, IUnknown *unk)
2746 {
2747     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2748     IHTMLTextContainer *txtcont;
2749     LONG l = -1, l2 = -1;
2750     HRESULT hres;
2751
2752     hres = IHTMLElement2_get_scrollTop(elem, &l);
2753     ok_(__FILE__,line) (hres == S_OK, "get_scrollTop failed: %08x\n", hres);
2754     IHTMLElement2_Release(elem);
2755
2756     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2757     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2758
2759     hres = IHTMLTextContainer_get_scrollTop(txtcont, &l2);
2760     IHTMLTextContainer_Release(txtcont);
2761     ok_(__FILE__,line) (hres == S_OK, "IHTMLTextContainer::get_scrollTop failed: %d\n", l2);
2762     ok_(__FILE__,line) (l == l2, "unexpected top %d, expected %d\n", l2, l);
2763
2764     return l;
2765 }
2766
2767 #define elem_get_scroll_left(u) _elem_get_scroll_left(__LINE__,u)
2768 static void _elem_get_scroll_left(unsigned line, IUnknown *unk)
2769 {
2770     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
2771     IHTMLTextContainer *txtcont;
2772     LONG l = -1, l2 = -1;
2773     HRESULT hres;
2774
2775     hres = IHTMLElement2_get_scrollLeft(elem, NULL);
2776     ok(hres == E_INVALIDARG, "expect E_INVALIDARG got 0x%08x\n", hres);
2777
2778     hres = IHTMLElement2_get_scrollLeft(elem, &l);
2779     ok(hres == S_OK, "get_scrollTop failed: %08x\n", hres);
2780     IHTMLElement2_Release(elem);
2781
2782     hres = IUnknown_QueryInterface(unk, &IID_IHTMLTextContainer, (void**)&txtcont);
2783     ok(hres == S_OK, "Could not get IHTMLTextContainer: %08x\n", hres);
2784
2785     hres = IHTMLTextContainer_get_scrollLeft(txtcont, &l2);
2786     IHTMLTextContainer_Release(txtcont);
2787     ok(hres == S_OK, "IHTMLTextContainer::get_scrollLeft failed: %d\n", l2);
2788     ok(l == l2, "unexpected left %d, expected %d\n", l2, l);
2789 }
2790
2791 #define test_img_src(a,b,c) _test_img_src(__LINE__,a,b,c)
2792 static void _test_img_src(unsigned line, IUnknown *unk, const char *exsrc, const char *broken_src)
2793 {
2794     IHTMLImgElement *img = _get_img_iface(line, unk);
2795     BSTR src;
2796     HRESULT hres;
2797
2798     hres = IHTMLImgElement_get_src(img, &src);
2799     IHTMLImgElement_Release(img);
2800     ok_(__FILE__,line) (hres == S_OK, "get_src failed: %08x\n", hres);
2801     ok_(__FILE__,line) (!strcmp_wa(src, exsrc) || (broken_src && broken(!strcmp_wa(src, broken_src))),
2802         "get_src returned %s expected %s\n", wine_dbgstr_w(src), exsrc);
2803     SysFreeString(src);
2804 }
2805
2806 #define test_img_set_src(u,s) _test_img_set_src(__LINE__,u,s)
2807 static void _test_img_set_src(unsigned line, IUnknown *unk, const char *src)
2808 {
2809     IHTMLImgElement *img = _get_img_iface(line, unk);
2810     BSTR tmp;
2811     HRESULT hres;
2812
2813     tmp = a2bstr(src);
2814     hres = IHTMLImgElement_put_src(img, tmp);
2815     IHTMLImgElement_Release(img);
2816     SysFreeString(tmp);
2817     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
2818 }
2819
2820 #define test_img_alt(u,a) _test_img_alt(__LINE__,u,a)
2821 static void _test_img_alt(unsigned line, IUnknown *unk, const char *exalt)
2822 {
2823     IHTMLImgElement *img = _get_img_iface(line, unk);
2824     BSTR alt;
2825     HRESULT hres;
2826
2827     hres = IHTMLImgElement_get_alt(img, &alt);
2828     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
2829     if(exalt)
2830         ok_(__FILE__,line) (!strcmp_wa(alt, exalt), "inexopected alt %s\n", wine_dbgstr_w(alt));
2831     else
2832         ok_(__FILE__,line) (!alt, "alt != NULL\n");
2833     SysFreeString(alt);
2834 }
2835
2836 #define test_img_set_alt(u,a) _test_img_set_alt(__LINE__,u,a)
2837 static void _test_img_set_alt(unsigned line, IUnknown *unk, const char *alt)
2838 {
2839     IHTMLImgElement *img = _get_img_iface(line, unk);
2840     BSTR tmp;
2841     HRESULT hres;
2842
2843     tmp = a2bstr(alt);
2844     hres = IHTMLImgElement_put_alt(img, tmp);
2845     ok_(__FILE__,line) (hres == S_OK, "get_alt failed: %08x\n", hres);
2846     SysFreeString(tmp);
2847
2848     _test_img_alt(line, unk, alt);
2849 }
2850
2851 #define test_img_align(u,a) _test_img_align(__LINE__,u,a)
2852 static void _test_img_align(unsigned line, IUnknown *unk, const char *align)
2853 {
2854     IHTMLImgElement *img = _get_img_iface(line, unk);
2855     BSTR tmp;
2856     HRESULT hres;
2857
2858     tmp = a2bstr(align);
2859     hres = IHTMLImgElement_put_align(img, tmp);
2860     ok_(__FILE__,line) (hres == S_OK, "put_align failed: %08x\n", hres);
2861     SysFreeString(tmp);
2862
2863     hres = IHTMLImgElement_get_align(img, &tmp);
2864     ok_(__FILE__,line) (hres == S_OK, "put_align failed: %08x\n", hres);
2865     ok_(__FILE__,line) (!strcmp_wa(tmp, align), "Expect %s, got %s\n", align, wine_dbgstr_w(tmp));
2866     SysFreeString(tmp);
2867 }
2868
2869 #define test_img_name(u, c) _test_img_name(__LINE__,u, c)
2870 static void _test_img_name(unsigned line, IUnknown *unk, const char *pValue)
2871 {
2872     IHTMLImgElement *img = _get_img_iface(line, unk);
2873     BSTR sName;
2874     HRESULT hres;
2875
2876     hres = IHTMLImgElement_get_name(img, &sName);
2877     ok_(__FILE__,line) (hres == S_OK, "get_Name failed: %08x\n", hres);
2878     ok_(__FILE__,line) (!strcmp_wa (sName, pValue), "expected '%s' got '%s'\n", pValue, wine_dbgstr_w(sName));
2879     IHTMLImgElement_Release(img);
2880     SysFreeString(sName);
2881 }
2882
2883 #define test_img_complete(a,b) _test_img_complete(__LINE__,a,b)
2884 static void _test_img_complete(unsigned line, IHTMLElement *elem, VARIANT_BOOL exb)
2885 {
2886     IHTMLImgElement *img = _get_img_iface(line, (IUnknown*)elem);
2887     VARIANT_BOOL b = 100;
2888     HRESULT hres;
2889
2890     hres = IHTMLImgElement_get_complete(img, &b);
2891     ok_(__FILE__,line) (hres == S_OK, "get_complete failed: %08x\n", hres);
2892     ok_(__FILE__,line) (b == exb, "complete = %x, expected %x\n", b, exb);
2893     IHTMLImgElement_Release(img);
2894 }
2895
2896 #define test_img_isMap(u, c) _test_img_isMap(__LINE__,u, c)
2897 static void _test_img_isMap(unsigned line, IUnknown *unk, VARIANT_BOOL v)
2898 {
2899     IHTMLImgElement *img = _get_img_iface(line, unk);
2900     VARIANT_BOOL b = 100;
2901     HRESULT hres;
2902
2903     hres = IHTMLImgElement_put_isMap(img, v);
2904     ok_(__FILE__,line) (hres == S_OK, "put_isMap failed: %08x\n", hres);
2905
2906     hres = IHTMLImgElement_get_isMap(img, &b);
2907     ok_(__FILE__,line) (hres == S_OK, "get_isMap failed: %08x\n", hres);
2908     ok_(__FILE__,line) (b == v, "isMap = %x, expected %x\n", b, v);
2909
2910     hres = IHTMLImgElement_get_isMap(img, NULL);
2911     ok_(__FILE__,line) (hres == E_INVALIDARG, "ret = %08x, expected E_INVALIDARG\n", hres);
2912     IHTMLImgElement_Release(img);
2913 }
2914
2915 static void test_dynamic_properties(IHTMLElement *elem)
2916 {
2917     static const WCHAR attr1W[] = {'a','t','t','r','1',0};
2918     IDispatchEx *dispex;
2919     BSTR name, attr1 = SysAllocString(attr1W);
2920     VARIANT_BOOL succ;
2921     VARIANT val;
2922     int checked_no = 0;
2923     DISPID id = DISPID_STARTENUM;
2924     HRESULT hres;
2925
2926     hres = IHTMLElement_QueryInterface(elem, &IID_IDispatchEx, (void**)&dispex);
2927     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2928
2929     hres = IHTMLElement_removeAttribute(elem, attr1, 0, &succ);
2930     ok(hres == S_OK, "removeAttribute failed: %08x\n", hres);
2931     ok(succ, "removeAttribute set succ to FALSE\n");
2932
2933     while(1) {
2934         hres = IDispatchEx_GetNextDispID(dispex, fdexEnumAll, id, &id);
2935         ok(hres==S_OK || hres==S_FALSE, "GetNextDispID failed: %08x\n", hres);
2936         if(hres != S_OK)
2937             break;
2938
2939         hres = IDispatchEx_GetMemberName(dispex, id, &name);
2940         ok(hres == S_OK, "GetMemberName failed: %08x\n", hres);
2941
2942         if(!strcmp_wa(name, "attr1"))
2943             ok(0, "attr1 should be removed\n");
2944         else if(!strcmp_wa(name, "attr2") || !strcmp_wa(name, "attr3"))
2945             checked_no++;
2946         SysFreeString(name);
2947     }
2948     ok(checked_no == 2, "checked_no=%d, expected 2\n", checked_no);
2949     IDispatchEx_Release(dispex);
2950
2951     V_VT(&val) = VT_BSTR;
2952     V_BSTR(&val) = attr1;
2953     hres = IHTMLElement_setAttribute(elem, attr1, val, 0);
2954     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
2955     SysFreeString(attr1);
2956 }
2957
2958 #define test_attr_node_name(a,b) _test_attr_node_name(__LINE__,a,b)
2959 static void _test_attr_node_name(unsigned line, IHTMLDOMAttribute *attr, const char *exname)
2960 {
2961     BSTR str;
2962     HRESULT hres;
2963
2964     hres = IHTMLDOMAttribute_get_nodeName(attr, &str);
2965     ok_(__FILE__,line)(hres == S_OK, "get_nodeName failed: %08x\n", hres);
2966     ok_(__FILE__,line)(!strcmp_wa(str, exname), "node name is %s, expected %s\n", wine_dbgstr_w(str), exname);
2967     SysFreeString(str);
2968 }
2969
2970 static void test_attr_collection_disp(IDispatch *disp)
2971 {
2972     IDispatchEx *dispex;
2973     IHTMLDOMAttribute *attr;
2974     DISPPARAMS dp = {NULL, NULL, 0, 0};
2975     VARIANT var;
2976     EXCEPINFO ei;
2977     DISPID id;
2978     BSTR bstr;
2979     HRESULT hres;
2980
2981     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
2982     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
2983
2984     bstr = a2bstr("0");
2985     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2986     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2987     SysFreeString(bstr);
2988
2989     VariantInit(&var);
2990     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
2991     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2992     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
2993     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
2994     VariantClear(&var);
2995
2996     bstr = a2bstr("attr1");
2997     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
2998     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2999     SysFreeString(bstr);
3000
3001     VariantInit(&var);
3002     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
3003     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
3004     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
3005     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
3006     hres = IDispatch_QueryInterface(V_DISPATCH(&var), &IID_IHTMLDOMAttribute, (void**)&attr);
3007     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3008
3009     test_attr_node_name(attr, "attr1");
3010
3011     IHTMLDOMAttribute_Release(attr);
3012     VariantClear(&var);
3013
3014     IDispatchEx_Release(dispex);
3015 }
3016
3017 static void test_attr_collection(IHTMLElement *elem)
3018 {
3019     static const WCHAR testW[] = {'t','e','s','t',0};
3020
3021     IHTMLDOMNode *node;
3022     IDispatch *disp, *attr;
3023     IHTMLDOMAttribute *dom_attr;
3024     IHTMLAttributeCollection *attr_col;
3025     BSTR name = SysAllocString(testW);
3026     VARIANT id, val;
3027     LONG i, len, checked;
3028     HRESULT hres;
3029
3030     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLDOMNode, (void**)&node);
3031     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3032
3033     hres = IHTMLDOMNode_get_attributes(node, &disp);
3034     ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
3035
3036     hres = IHTMLDOMNode_get_attributes(node, &attr);
3037     ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
3038     ok(iface_cmp((IUnknown*)disp, (IUnknown*)attr), "disp != attr\n");
3039     IDispatch_Release(attr);
3040     IHTMLDOMNode_Release(node);
3041
3042     hres = IDispatch_QueryInterface(disp, &IID_IHTMLAttributeCollection, (void**)&attr_col);
3043     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
3044
3045     hres = IHTMLAttributeCollection_get_length(attr_col, &i);
3046     ok(hres == S_OK, "get_length failed: %08x\n", hres);
3047
3048     V_VT(&val) = VT_I4;
3049     V_I4(&val) = 1;
3050     hres = IHTMLElement_setAttribute(elem, name, val, 0);
3051     ok(hres == S_OK, "setAttribute failed: %08x\n", hres);
3052     SysFreeString(name);
3053
3054     hres = IHTMLAttributeCollection_get_length(attr_col, &len);
3055     ok(hres == S_OK, "get_length failed: %08x\n", hres);
3056     ok(len == i+1, "get_length returned %d, expected %d\n", len, i+1);
3057
3058     checked = 0;
3059     for(i=0; i<len; i++) {
3060         V_VT(&id) = VT_I4;
3061         V_I4(&id) = i;
3062         hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
3063         ok(hres == S_OK, "%d) item failed: %08x\n", i, hres);
3064
3065         hres = IDispatch_QueryInterface(attr, &IID_IHTMLDOMAttribute, (void**)&dom_attr);
3066         ok(hres == S_OK, "%d) QueryInterface failed: %08x\n", i, hres);
3067         IDispatch_Release(attr);
3068
3069         hres = IHTMLDOMAttribute_get_nodeName(dom_attr, &name);
3070         ok(hres == S_OK, "%d) get_nodeName failed: %08x\n", i, hres);
3071
3072         if(!strcmp_wa(name, "id")) {
3073             checked++;
3074             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
3075             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
3076             ok(V_VT(&val) == VT_BSTR, "id: V_VT(&val) = %d\n", V_VT(&val));
3077             ok(!strcmp_wa(V_BSTR(&val), "attr"), "id: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
3078         } else if(!strcmp_wa(name, "attr1")) {
3079             checked++;
3080             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
3081             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
3082             ok(V_VT(&val) == VT_BSTR, "attr1: V_VT(&val) = %d\n", V_VT(&val));
3083             ok(!strcmp_wa(V_BSTR(&val), "attr1"), "attr1: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
3084         } else if(!strcmp_wa(name, "attr2")) {
3085             checked++;
3086             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
3087             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
3088             ok(V_VT(&val) == VT_BSTR, "attr2: V_VT(&val) = %d\n", V_VT(&val));
3089             ok(!V_BSTR(&val), "attr2: V_BSTR(&val) != NULL\n");
3090         } else if(!strcmp_wa(name, "attr3")) {
3091             checked++;
3092             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
3093             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
3094             ok(V_VT(&val) == VT_BSTR, "attr3: V_VT(&val) = %d\n", V_VT(&val));
3095             ok(!strcmp_wa(V_BSTR(&val), "attr3"), "attr3: V_BSTR(&val) = %s\n", wine_dbgstr_w(V_BSTR(&val)));
3096         } else if(!strcmp_wa(name, "test")) {
3097             checked++;
3098             hres = IHTMLDOMAttribute_get_nodeValue(dom_attr, &val);
3099             ok(hres == S_OK, "%d) get_nodeValue failed: %08x\n", i, hres);
3100             ok(V_VT(&val) == VT_I4, "test: V_VT(&val) = %d\n", V_VT(&val));
3101             ok(V_I4(&val) == 1, "test: V_I4(&val) = %d\n", V_I4(&val));
3102         }
3103
3104         IHTMLDOMAttribute_Release(dom_attr);
3105         SysFreeString(name);
3106         VariantClear(&val);
3107     }
3108     ok(checked==5, "invalid number of specified attributes (%d)\n", checked);
3109
3110     V_I4(&id) = len;
3111     hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
3112     ok(hres == E_INVALIDARG, "item failed: %08x\n", hres);
3113
3114     V_VT(&id) = VT_BSTR;
3115     V_BSTR(&id) = a2bstr("nonexisting");
3116     hres = IHTMLAttributeCollection_item(attr_col, &id, &attr);
3117     ok(hres == E_INVALIDARG, "item failed: %08x\n", hres);
3118     VariantClear(&id);
3119
3120     test_attr_collection_disp(disp);
3121
3122     IDispatch_Release(disp);
3123     IHTMLAttributeCollection_Release(attr_col);
3124 }
3125
3126 #define test_attr_specified(a,b) _test_attr_specified(__LINE__,a,b)
3127 static void _test_attr_specified(unsigned line, IHTMLDOMAttribute *attr, VARIANT_BOOL expected)
3128 {
3129     VARIANT_BOOL specified;
3130     HRESULT hres;
3131
3132     hres = IHTMLDOMAttribute_get_specified(attr, &specified);
3133     ok_(__FILE__,line)(hres == S_OK, "get_specified failed: %08x\n", hres);
3134     ok_(__FILE__,line)(specified == expected, "specified = %x, expected %x\n", specified, expected);
3135 }
3136
3137 #define test_elem_id(e,i) _test_elem_id(__LINE__,e,i)
3138 static void _test_elem_id(unsigned line, IUnknown *unk, const char *exid)
3139 {
3140     IHTMLElement *elem = _get_elem_iface(line, unk);
3141     BSTR id = (void*)0xdeadbeef;
3142     HRESULT hres;
3143
3144     hres = IHTMLElement_get_id(elem, &id);
3145     IHTMLElement_Release(elem);
3146     ok_(__FILE__,line) (hres == S_OK, "get_id failed: %08x\n", hres);
3147
3148     if(exid)
3149         ok_(__FILE__,line) (!strcmp_wa(id, exid), "unexpected id %s\n", wine_dbgstr_w(id));
3150     else
3151         ok_(__FILE__,line) (!id, "id=%s\n", wine_dbgstr_w(id));
3152
3153     SysFreeString(id);
3154 }
3155
3156 #define test_elem_language(e,i) _test_elem_language(__LINE__,e,i)
3157 static void _test_elem_language(unsigned line, IHTMLElement *elem, const char *exlang)
3158 {
3159     BSTR lang = (void*)0xdeadbeef;
3160     HRESULT hres;
3161
3162     hres = IHTMLElement_get_language(elem, &lang);
3163     ok_(__FILE__,line) (hres == S_OK, "get_language failed: %08x\n", hres);
3164
3165     if(exlang)
3166         ok_(__FILE__,line) (!strcmp_wa(lang, exlang), "unexpected language %s\n", wine_dbgstr_w(lang));
3167     else
3168         ok_(__FILE__,line) (!lang, "language=%s\n", wine_dbgstr_w(lang));
3169
3170     SysFreeString(lang);
3171 }
3172
3173 #define set_elem_language(e,i) _set_elem_language(__LINE__,e,i)
3174 static void _set_elem_language(unsigned line, IHTMLElement *elem, const char *lang)
3175 {
3176     BSTR str = a2bstr(lang);
3177     HRESULT hres;
3178
3179     hres = IHTMLElement_put_language(elem, str);
3180     ok_(__FILE__,line) (hres == S_OK, "get_language failed: %08x\n", hres);
3181     SysFreeString(str);
3182
3183     _test_elem_language(line, elem, lang);
3184 }
3185
3186 #define test_elem_put_id(u,i) _test_elem_put_id(__LINE__,u,i)
3187 static void _test_elem_put_id(unsigned line, IUnknown *unk, const char *new_id)
3188 {
3189     IHTMLElement *elem = _get_elem_iface(line, unk);
3190     BSTR tmp = a2bstr(new_id);
3191     HRESULT hres;
3192
3193     hres = IHTMLElement_put_id(elem, tmp);
3194     IHTMLElement_Release(elem);
3195     SysFreeString(tmp);
3196     ok_(__FILE__,line) (hres == S_OK, "put_id failed: %08x\n", hres);
3197
3198     _test_elem_id(line, unk, new_id);
3199 }
3200
3201 static void test_contenteditable(IUnknown *unk)
3202 {
3203     IHTMLElement3 *elem3 = get_elem3_iface(unk);
3204     HRESULT hres;
3205     BSTR str, strDefault;
3206
3207     hres = IHTMLElement3_get_contentEditable(elem3, &strDefault);
3208     ok(hres == S_OK, "get_contentEditable failed: 0x%08x\n", hres);
3209
3210     str = a2bstr("true");
3211     hres = IHTMLElement3_put_contentEditable(elem3, str);
3212     ok(hres == S_OK, "put_contentEditable(%s) failed: 0x%08x\n", wine_dbgstr_w(str), hres);
3213     SysFreeString(str);
3214     hres = IHTMLElement3_get_contentEditable(elem3, &str);
3215     ok(hres == S_OK, "get_contentEditable failed: 0x%08x\n", hres);
3216     ok(!strcmp_wa(str, "true"), "Got %s, expected %s\n", wine_dbgstr_w(str), "true");
3217
3218     /* Restore origin contentEditable */
3219     hres = IHTMLElement3_put_contentEditable(elem3, strDefault);
3220     ok(hres == S_OK, "put_contentEditable(%s) failed: 0x%08x\n", wine_dbgstr_w(strDefault), hres);
3221     SysFreeString(strDefault);
3222
3223     IHTMLElement3_Release(elem3);
3224 }
3225
3226 #define test_input_type(i,t) _test_input_type(__LINE__,i,t)
3227 static void _test_input_type(unsigned line, IHTMLInputElement *input, const char *extype)
3228 {
3229     BSTR type;
3230     HRESULT hres;
3231
3232     hres = IHTMLInputElement_get_type(input, &type);
3233     ok_(__FILE__,line) (hres == S_OK, "get_type failed: %08x\n", hres);
3234     ok_(__FILE__,line) (!strcmp_wa(type, extype), "type=%s, expected %s\n", wine_dbgstr_w(type), extype);
3235     SysFreeString(type);
3236 }
3237
3238 #define test_input_name(u, c) _test_input_name(__LINE__,u, c)
3239 static void _test_input_name(unsigned line, IHTMLInputElement *input, const char *exname)
3240 {
3241     BSTR name = (BSTR)0xdeadbeef;
3242     HRESULT hres;
3243
3244     hres = IHTMLInputElement_get_name(input, &name);
3245     ok_(__FILE__,line) (hres == S_OK, "get_name failed: %08x\n", hres);
3246     if(exname)
3247         ok_(__FILE__,line) (!strcmp_wa (name, exname), "name=%s, expected %s\n", wine_dbgstr_w(name), exname);
3248     else
3249         ok_(__FILE__,line) (!name, "name=%p, expected NULL\n", name);
3250     SysFreeString(name);
3251 }
3252
3253 #define test_input_set_name(u, c) _test_input_set_name(__LINE__,u, c)
3254 static void _test_input_set_name(unsigned line, IHTMLInputElement *input, const char *name)
3255 {
3256     BSTR tmp = a2bstr(name);
3257     HRESULT hres;
3258
3259     hres = IHTMLInputElement_put_name(input, tmp);
3260     ok_(__FILE__,line) (hres == S_OK, "put_name failed: %08x\n", hres);
3261     SysFreeString(tmp);
3262
3263     _test_input_name(line, input, name);
3264 }
3265
3266 #define test_input_get_disabled(i,b) _test_input_get_disabled(__LINE__,i,b)
3267 static void _test_input_get_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
3268 {
3269     VARIANT_BOOL disabled = 100;
3270     HRESULT hres;
3271
3272     hres = IHTMLInputElement_get_disabled(input, &disabled);
3273     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
3274     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
3275
3276     _test_elem3_get_disabled(line, (IUnknown*)input, exb);
3277 }
3278
3279 #define test_input_set_disabled(i,b) _test_input_set_disabled(__LINE__,i,b)
3280 static void _test_input_set_disabled(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
3281 {
3282     HRESULT hres;
3283
3284     hres = IHTMLInputElement_put_disabled(input, b);
3285     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
3286
3287     _test_input_get_disabled(line, input, b);
3288 }
3289
3290 #define test_input_get_defaultchecked(i,b) _test_input_get_defaultchecked(__LINE__,i,b)
3291 static void _test_input_get_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
3292 {
3293     VARIANT_BOOL checked = 100;
3294     HRESULT hres;
3295
3296     hres = IHTMLInputElement_get_defaultChecked(input, &checked);
3297     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
3298     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
3299 }
3300
3301 #define test_input_set_defaultchecked(i,b) _test_input_set_defaultchecked(__LINE__,i,b)
3302 static void _test_input_set_defaultchecked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
3303 {
3304     HRESULT hres;
3305
3306     hres = IHTMLInputElement_put_defaultChecked(input, b);
3307     ok_(__FILE__,line) (hres == S_OK, "get_defaultChecked failed: %08x\n", hres);
3308
3309     _test_input_get_defaultchecked(line, input, b);
3310 }
3311
3312 #define test_input_get_checked(i,b) _test_input_get_checked(__LINE__,i,b)
3313 static void _test_input_get_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL exb)
3314 {
3315     VARIANT_BOOL checked = 100;
3316     HRESULT hres;
3317
3318     hres = IHTMLInputElement_get_checked(input, &checked);
3319     ok_(__FILE__,line) (hres == S_OK, "get_checked failed: %08x\n", hres);
3320     ok_(__FILE__,line) (checked == exb, "checked=%x, expected %x\n", checked, exb);
3321 }
3322
3323 #define test_input_set_checked(i,b) _test_input_set_checked(__LINE__,i,b)
3324 static void _test_input_set_checked(unsigned line, IHTMLInputElement *input, VARIANT_BOOL b)
3325 {
3326     HRESULT hres;
3327
3328     hres = IHTMLInputElement_put_checked(input, b);
3329     ok_(__FILE__,line) (hres == S_OK, "put_checked failed: %08x\n", hres);
3330
3331     _test_input_get_checked(line, input, b);
3332 }
3333
3334 #define test_input_maxlength(i,b) _test_input_maxlength(__LINE__,i,b)
3335 static void _test_input_maxlength(unsigned line, IHTMLInputElement *input, LONG exl)
3336 {
3337     LONG maxlength = 0xdeadbeef;
3338     HRESULT hres;
3339
3340     hres = IHTMLInputElement_get_maxLength(input, &maxlength);
3341     ok_(__FILE__,line) (hres == S_OK, "get_maxLength failed: %08x\n", hres);
3342     ok_(__FILE__,line) (maxlength == exl, "maxLength=%x, expected %d\n", maxlength, exl);
3343 }
3344
3345 #define test_input_set_maxlength(i,b) _test_input_set_maxlength(__LINE__,i,b)
3346 static void _test_input_set_maxlength(unsigned line, IHTMLInputElement *input, LONG l)
3347 {
3348     HRESULT hres;
3349
3350     hres = IHTMLInputElement_put_maxLength(input, l);
3351     ok_(__FILE__,line) (hres == S_OK, "put_maxLength failed: %08x\n", hres);
3352
3353     _test_input_maxlength(line, input, l);
3354 }
3355
3356 #define test_input_value(o,t) _test_input_value(__LINE__,o,t)
3357 static void _test_input_value(unsigned line, IUnknown *unk, const char *exval)
3358 {
3359     IHTMLInputElement *input;
3360     BSTR bstr;
3361     HRESULT hres;
3362
3363     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
3364     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
3365     if(FAILED(hres))
3366         return;
3367
3368     hres = IHTMLInputElement_get_value(input, &bstr);
3369     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
3370     if(exval)
3371         ok_(__FILE__,line) (!strcmp_wa(bstr, exval), "value=%s\n", wine_dbgstr_w(bstr));
3372     else
3373         ok_(__FILE__,line) (!bstr, "exval != NULL\n");
3374     SysFreeString(bstr);
3375     IHTMLInputElement_Release(input);
3376 }
3377
3378 #define test_input_get_form(o, t)  _test_input_get_form(__LINE__, o, t)
3379 static void _test_input_get_form(unsigned line, IUnknown *unk, const char *id)
3380 {
3381     IHTMLInputElement *input;
3382     IHTMLFormElement *form;
3383     IHTMLElement *elem;
3384     HRESULT hres;
3385
3386     ok_(__FILE__,line) (unk != NULL, "unk is NULL!\n");
3387     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
3388     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
3389     ok_(__FILE__,line) (input != NULL, "input == NULL\n");
3390     if(FAILED(hres) || input == NULL)
3391         return;
3392
3393     hres = IHTMLInputElement_get_form(input, &form);
3394     ok_(__FILE__, line) (hres == S_OK, "get_form failed: %08x\n", hres);
3395     ok_(__FILE__, line) (form != NULL, "form == NULL\n");
3396     if(FAILED(hres) || form == NULL){
3397         IHTMLInputElement_Release(input);
3398         return;
3399     }
3400
3401     hres = IHTMLFormElement_QueryInterface(form, &IID_IHTMLElement, (void **)&elem);
3402     ok_(__FILE__, line) (hres == S_OK, "QueryInterface(IID_IHTMLElement) failed: %08x\n", hres);
3403     ok_(__FILE__, line) (elem != NULL, "elem == NULL\n");
3404     if(FAILED(hres) || elem == NULL){
3405         IHTMLInputElement_Release(input);
3406         IHTMLFormElement_Release(form);
3407         return;
3408     }
3409
3410     _test_elem_id(line, (IUnknown*)elem, id);
3411
3412     IHTMLInputElement_Release(input);
3413     IHTMLFormElement_Release(form);
3414     IHTMLElement_Release(elem);
3415 }
3416
3417 #define test_input_put_value(o,v) _test_input_put_value(__LINE__,o,v)
3418 static void _test_input_put_value(unsigned line, IUnknown *unk, const char *val)
3419 {
3420     IHTMLInputElement *input;
3421     BSTR bstr;
3422     HRESULT hres;
3423
3424     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
3425     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
3426     if(FAILED(hres))
3427         return;
3428
3429     bstr = a2bstr(val);
3430     hres = IHTMLInputElement_put_value(input, bstr);
3431     ok_(__FILE__,line) (hres == S_OK, "get_value failed: %08x\n", hres);
3432     SysFreeString(bstr);
3433     IHTMLInputElement_Release(input);
3434
3435     _test_input_value(line, unk, val);
3436 }
3437
3438 #define test_input_defaultValue(o,t) _test_input_defaultValue(__LINE__,o,t)
3439 static void _test_input_defaultValue(unsigned line, IUnknown *unk, const char *exval)
3440 {
3441     IHTMLInputElement *input;
3442     BSTR str;
3443     HRESULT hres;
3444
3445     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
3446     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
3447     if(FAILED(hres))
3448         return;
3449
3450     hres = IHTMLInputElement_get_defaultValue(input, &str);
3451     ok_(__FILE__,line) (hres == S_OK, "get_defaultValue failed: %08x\n", hres);
3452     if(exval)
3453         ok_(__FILE__,line) (!strcmp_wa(str, exval), "defaultValue=%s\n", wine_dbgstr_w(str));
3454     else
3455         ok_(__FILE__,line) (!str, "exval != NULL\n");
3456     SysFreeString(str);
3457     IHTMLInputElement_Release(input);
3458 }
3459
3460 #define test_input_put_defaultValue(o,v) _test_input_put_defaultValue(__LINE__,o,v)
3461 static void _test_input_put_defaultValue(unsigned line, IUnknown *unk, const char *val)
3462 {
3463     IHTMLInputElement *input;
3464     BSTR str;
3465     HRESULT hres;
3466
3467     hres = IUnknown_QueryInterface(unk, &IID_IHTMLInputElement, (void**)&input);
3468     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
3469     if(FAILED(hres))
3470         return;
3471
3472     str = a2bstr(val);
3473     hres = IHTMLInputElement_put_defaultValue(input, str);
3474     ok_(__FILE__,line) (hres == S_OK, "get_defaultValue failed: %08x\n", hres);
3475     SysFreeString(str);
3476     IHTMLInputElement_Release(input);
3477
3478     _test_input_defaultValue(line, unk, val);
3479 }
3480
3481 #define test_input_src(i,s) _test_input_src(__LINE__,i,s)
3482 static void _test_input_src(unsigned line, IHTMLInputElement *input, const char *exsrc)
3483 {
3484     BSTR src;
3485     HRESULT hres;
3486
3487     hres = IHTMLInputElement_get_src(input, &src);
3488     ok_(__FILE__,line) (hres == S_OK, "get_src failed: %08x\n", hres);
3489     if(exsrc)
3490         ok_(__FILE__,line) (!strcmp_wa(src, exsrc), "get_src returned %s expected %s\n", wine_dbgstr_w(src), exsrc);
3491     else
3492         ok_(__FILE__,line) (!src, "get_src returned %s expected NULL\n", wine_dbgstr_w(src));
3493     SysFreeString(src);
3494 }
3495
3496 #define test_input_set_src(u,s) _test_input_set_src(__LINE__,u,s)
3497 static void _test_input_set_src(unsigned line, IHTMLInputElement *input, const char *src)
3498 {
3499     BSTR tmp;
3500     HRESULT hres;
3501
3502     tmp = a2bstr(src);
3503     hres = IHTMLInputElement_put_src(input, tmp);
3504     SysFreeString(tmp);
3505     ok_(__FILE__,line) (hres == S_OK, "put_src failed: %08x\n", hres);
3506
3507     _test_input_src(line, input, src);
3508 }
3509
3510 #define test_input_set_size(u,s,r) _test_input_set_size(__LINE__,u,s,r)
3511 static void _test_input_set_size(unsigned line, IHTMLInputElement *input, LONG size, HRESULT exret)
3512 {
3513     HRESULT hres;
3514
3515     hres = IHTMLInputElement_put_size(input, size);
3516     ok_(__FILE__,line) (hres == exret, "Expect ret = %08x, got: %08x\n", exret, hres);
3517 }
3518
3519 #define test_input_get_size(u,s) _test_input_get_size(__LINE__,u,s)
3520 static void _test_input_get_size(unsigned line, IHTMLInputElement *input, LONG exsize)
3521 {
3522     HRESULT hres;
3523     LONG size;
3524
3525     hres = IHTMLInputElement_get_size(input, &size);
3526     ok_(__FILE__,line) (hres == S_OK, "get_size failed: %08x\n", hres);
3527     ok_(__FILE__,line) (size == exsize, "Expect %d, got %d\n", exsize, size);
3528
3529     hres = IHTMLInputElement_get_size(input, NULL);
3530     ok_(__FILE__,line) (hres == E_INVALIDARG, "Expect ret E_INVALIDARG, got: %08x\n", hres);
3531 }
3532
3533 #define test_input_readOnly(u,b) _test_input_readOnly(__LINE__,u,b)
3534 static void _test_input_readOnly(unsigned line, IHTMLInputElement *input, VARIANT_BOOL v)
3535 {
3536     HRESULT hres;
3537     VARIANT_BOOL b = 100;
3538
3539     hres = IHTMLInputElement_put_readOnly(input, v);
3540     ok_(__FILE__,line)(hres == S_OK, "put readOnly failed: %08x\n", hres);
3541
3542     hres = IHTMLInputElement_get_readOnly(input, &b);
3543     ok_(__FILE__,line)(hres == S_OK, "get readOnly failed: %08x\n", hres);
3544     ok_(__FILE__,line)(v == b, "Expect %x, got %x\n", v, b);
3545 }
3546
3547 #define test_elem_class(u,c) _test_elem_class(__LINE__,u,c)
3548 static void _test_elem_class(unsigned line, IUnknown *unk, const char *exclass)
3549 {
3550     IHTMLElement *elem = _get_elem_iface(line, unk);
3551     BSTR class = (void*)0xdeadbeef;
3552     HRESULT hres;
3553
3554     hres = IHTMLElement_get_className(elem, &class);
3555     IHTMLElement_Release(elem);
3556     ok_(__FILE__,line) (hres == S_OK, "get_className failed: %08x\n", hres);
3557     if(exclass)
3558         ok_(__FILE__,line) (!strcmp_wa(class, exclass), "unexpected className %s\n", wine_dbgstr_w(class));
3559     else
3560         ok_(__FILE__,line) (!class, "class != NULL\n");
3561     SysFreeString(class);
3562 }
3563
3564 #define test_elem_tabindex(u,i) _test_elem_tabindex(__LINE__,u,i)
3565 static void _test_elem_tabindex(unsigned line, IUnknown *unk, short exindex)
3566 {
3567     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
3568     short index = -3;
3569     HRESULT hres;
3570
3571     hres = IHTMLElement2_get_tabIndex(elem2, &index);
3572     IHTMLElement2_Release(elem2);
3573     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
3574     ok_(__FILE__,line) (index == exindex, "unexpected index %d\n", index);
3575 }
3576
3577 #define test_elem_set_tabindex(u,i) _test_elem_set_tabindex(__LINE__,u,i)
3578 static void _test_elem_set_tabindex(unsigned line, IUnknown *unk, short index)
3579 {
3580     IHTMLElement2 *elem2 = _get_elem2_iface(line, unk);
3581     HRESULT hres;
3582
3583     hres = IHTMLElement2_put_tabIndex(elem2, index);
3584     IHTMLElement2_Release(elem2);
3585     ok_(__FILE__,line) (hres == S_OK, "get_tabIndex failed: %08x\n", hres);
3586
3587     _test_elem_tabindex(line, unk, index);
3588 }
3589
3590 #define test_style_media(s,m) _test_style_media(__LINE__,s,m)
3591 static void _test_style_media(unsigned line, IUnknown *unk, const char *exmedia)
3592 {
3593     IHTMLStyleElement *style = _get_style_iface(line, unk);
3594     BSTR media;
3595     HRESULT hres;
3596
3597     hres = IHTMLStyleElement_get_media(style, &media);
3598     ok_(__FILE__,line)(hres == S_OK, "get_media failed: %08x\n", hres);
3599     if(exmedia)
3600         ok_(__FILE__,line)(!strcmp_wa(media, exmedia), "media = %s, expected %s\n", wine_dbgstr_w(media), exmedia);
3601     else
3602         ok_(__FILE__,line)(!media, "media = %s, expected NULL\n", wine_dbgstr_w(media));
3603
3604     IHTMLStyleElement_Release(style);
3605     SysFreeString(media);
3606 }
3607
3608 #define test_style_put_media(s,m) _test_style_put_media(__LINE__,s,m)
3609 static void _test_style_put_media(unsigned line, IUnknown *unk, const char *media)
3610 {
3611     IHTMLStyleElement *style = _get_style_iface(line, unk);
3612     BSTR str;
3613     HRESULT hres;
3614
3615     str = a2bstr(media);
3616     hres = IHTMLStyleElement_put_media(style, str);
3617     ok_(__FILE__,line)(hres == S_OK, "put_media failed: %08x\n", hres);
3618     IHTMLStyleElement_Release(style);
3619     SysFreeString(str);
3620
3621     _test_style_media(line, unk, media);
3622 }
3623
3624 #define test_style_type(s,m) _test_style_type(__LINE__,s,m)
3625 static void _test_style_type(unsigned line, IUnknown *unk, const char *extype)
3626 {
3627     IHTMLStyleElement *style = _get_style_iface(line, unk);
3628     BSTR type;
3629     HRESULT hres;
3630
3631     hres = IHTMLStyleElement_get_type(style, &type);
3632     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
3633     if(extype)
3634         ok_(__FILE__,line)(!strcmp_wa(type, extype), "type = %s, expected %s\n", wine_dbgstr_w(type), extype);
3635     else
3636         ok_(__FILE__,line)(!type, "type = %s, expected NULL\n", wine_dbgstr_w(type));
3637
3638     IHTMLStyleElement_Release(style);
3639     SysFreeString(type);
3640 }
3641
3642 #define test_style_put_type(s,m) _test_style_put_type(__LINE__,s,m)
3643 static void _test_style_put_type(unsigned line, IUnknown *unk, const char *type)
3644 {
3645     IHTMLStyleElement *style = _get_style_iface(line, unk);
3646     BSTR str;
3647     HRESULT hres;
3648
3649     str = a2bstr(type);
3650     hres = IHTMLStyleElement_put_type(style, str);
3651     ok_(__FILE__,line)(hres == S_OK, "put_type failed: %08x\n", hres);
3652     IHTMLStyleElement_Release(style);
3653     SysFreeString(str);
3654
3655     _test_style_type(line, unk, type);
3656 }
3657
3658 #define test_elem_filters(u) _test_elem_filters(__LINE__,u)
3659 static void _test_elem_filters(unsigned line, IUnknown *unk)
3660 {
3661     IHTMLElement *elem = _get_elem_iface(line, unk);
3662     HRESULT hres;
3663     IHTMLFiltersCollection *filters;
3664
3665     hres = IHTMLElement_get_filters(elem, &filters);
3666     ok_(__FILE__,line) (hres == S_OK || broken(hres == REGDB_E_CLASSNOTREG) /* NT4 */,
3667                         "get_filters failed: %08x\n", hres);
3668     if(hres == S_OK)
3669     {
3670         LONG len;
3671         IDispatchEx *dispex;
3672
3673         hres = IHTMLFiltersCollection_get_length(filters, &len);
3674         ok_(__FILE__,line) (hres == S_OK, "get_length failed: %08x\n", hres);
3675         ok_(__FILE__,line) (len == 0, "expect 0 got %d\n", len);
3676
3677         hres = IHTMLFiltersCollection_QueryInterface(filters, &IID_IDispatchEx, (void**)&dispex);
3678         ok_(__FILE__,line) (hres == S_OK || broken(hres == E_NOINTERFACE),
3679                             "Could not get IDispatchEx interface: %08x\n", hres);
3680         if(SUCCEEDED(hres)) {
3681             test_disp((IUnknown*)filters, &IID_IHTMLFiltersCollection, "[object]");
3682             IDispatchEx_Release(dispex);
3683         }
3684
3685         IHTMLFiltersCollection_Release(filters);
3686     }
3687
3688     IHTMLElement_Release(elem);
3689 }
3690
3691 #define test_elem_set_class(u,c) _test_elem_set_class(__LINE__,u,c)
3692 static void _test_elem_set_class(unsigned line, IUnknown *unk, const char *class)
3693 {
3694     IHTMLElement *elem = _get_elem_iface(line, unk);
3695     BSTR tmp;
3696     HRESULT hres;
3697
3698     tmp = class ? a2bstr(class) : NULL;
3699     hres = IHTMLElement_put_className(elem, tmp);
3700     IHTMLElement_Release(elem);
3701     ok_(__FILE__,line) (hres == S_OK, "put_className failed: %08x\n", hres);
3702     SysFreeString(tmp);
3703
3704     _test_elem_class(line, unk, class);
3705 }
3706
3707 #define test_elem_title(u,t) _test_elem_title(__LINE__,u,t)
3708 static void _test_elem_title(unsigned line, IUnknown *unk, const char *extitle)
3709 {
3710     IHTMLElement *elem = _get_elem_iface(line, unk);
3711     BSTR title;
3712     HRESULT hres;
3713
3714     hres = IHTMLElement_get_title(elem, &title);
3715     IHTMLElement_Release(elem);
3716     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
3717     if(extitle)
3718         ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
3719     else
3720         ok_(__FILE__,line) (!title, "title=%s, expected NULL\n", wine_dbgstr_w(title));
3721
3722     SysFreeString(title);
3723 }
3724
3725 #define test_elem_set_title(u,t) _test_elem_set_title(__LINE__,u,t)
3726 static void _test_elem_set_title(unsigned line, IUnknown *unk, const char *title)
3727 {
3728     IHTMLElement *elem = _get_elem_iface(line, unk);
3729     BSTR tmp;
3730     HRESULT hres;
3731
3732     tmp = a2bstr(title);
3733     hres = IHTMLElement_put_title(elem, tmp);
3734     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
3735
3736     IHTMLElement_Release(elem);
3737     SysFreeString(tmp);
3738 }
3739
3740 #define test_node_get_value_str(u,e) _test_node_get_value_str(__LINE__,u,e)
3741 static void _test_node_get_value_str(unsigned line, IUnknown *unk, const char *exval)
3742 {
3743     IHTMLDOMNode *node = _get_node_iface(line, unk);
3744     VARIANT var;
3745     HRESULT hres;
3746
3747     hres = IHTMLDOMNode_get_nodeValue(node, &var);
3748     IHTMLDOMNode_Release(node);
3749     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
3750
3751     if(exval) {
3752         ok_(__FILE__,line) (V_VT(&var) == VT_BSTR, "vt=%d\n", V_VT(&var));
3753         ok_(__FILE__,line) (!strcmp_wa(V_BSTR(&var), exval), "unexpected value %s\n", wine_dbgstr_w(V_BSTR(&var)));
3754     }else {
3755         ok_(__FILE__,line) (V_VT(&var) == VT_NULL, "vt=%d, expected VT_NULL\n", V_VT(&var));
3756     }
3757
3758     VariantClear(&var);
3759 }
3760
3761 #define test_node_put_value_str(u,v) _test_node_put_value_str(__LINE__,u,v)
3762 static void _test_node_put_value_str(unsigned line, IUnknown *unk, const char *val)
3763 {
3764     IHTMLDOMNode *node = _get_node_iface(line, unk);
3765     VARIANT var;
3766     HRESULT hres;
3767
3768     V_VT(&var) = VT_BSTR;
3769     V_BSTR(&var) = a2bstr(val);
3770
3771     hres = IHTMLDOMNode_put_nodeValue(node, var);
3772     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x, expected VT_BSTR\n", hres);
3773     IHTMLDOMNode_Release(node);
3774     VariantClear(&var);
3775 }
3776
3777 #define test_elem_client_size(u) _test_elem_client_size(__LINE__,u)
3778 static void _test_elem_client_size(unsigned line, IUnknown *unk)
3779 {
3780     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
3781     LONG l;
3782     HRESULT hres;
3783
3784     hres = IHTMLElement2_get_clientWidth(elem, &l);
3785     ok_(__FILE__,line) (hres == S_OK, "get_clientWidth failed: %08x\n", hres);
3786     hres = IHTMLElement2_get_clientHeight(elem, &l);
3787     ok_(__FILE__,line) (hres == S_OK, "get_clientHeight failed: %08x\n", hres);
3788
3789     IHTMLElement2_Release(elem);
3790 }
3791
3792 #define test_elem_client_rect(u) _test_elem_client_rect(__LINE__,u)
3793 static void _test_elem_client_rect(unsigned line, IUnknown *unk)
3794 {
3795     IHTMLElement2 *elem = _get_elem2_iface(line, unk);
3796     LONG l;
3797     HRESULT hres;
3798
3799     hres = IHTMLElement2_get_clientLeft(elem, &l);
3800     ok_(__FILE__,line) (hres == S_OK, "get_clientLeft failed: %08x\n", hres);
3801     ok_(__FILE__,line) (!l, "clientLeft = %d\n", l);
3802
3803     hres = IHTMLElement2_get_clientTop(elem, &l);
3804     ok_(__FILE__,line) (hres == S_OK, "get_clientTop failed: %08x\n", hres);
3805     ok_(__FILE__,line) (!l, "clientTop = %d\n", l);
3806
3807     IHTMLElement2_Release(elem);
3808 }
3809
3810 #define test_form_length(e,l) _test_form_length(__LINE__,e,l)
3811 static void _test_form_length(unsigned line, IUnknown *unk, LONG exlen)
3812 {
3813     IHTMLFormElement *form = _get_form_iface(line, unk);
3814     LONG len = 0xdeadbeef;
3815     HRESULT hres;
3816
3817     hres = IHTMLFormElement_get_length(form, &len);
3818     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
3819     ok_(__FILE__,line)(len == exlen, "length=%d, expected %d\n", len, exlen);
3820
3821     IHTMLFormElement_Release(form);
3822 }
3823
3824 #define test_form_action(f,a) _test_form_action(__LINE__,f,a)
3825 static void _test_form_action(unsigned line, IUnknown *unk, const char *ex)
3826 {
3827     IHTMLFormElement *form = _get_form_iface(line, unk);
3828     BSTR action = (void*)0xdeadbeef;
3829     HRESULT hres;
3830
3831     hres = IHTMLFormElement_get_action(form, &action);
3832     ok_(__FILE__,line)(hres == S_OK, "get_action failed: %08x\n", hres);
3833     if(ex)
3834         ok_(__FILE__,line)(!strcmp_wa(action, ex), "action=%s, expected %s\n", wine_dbgstr_w(action), ex);
3835     else
3836         ok_(__FILE__,line)(!action, "action=%p\n", action);
3837
3838     SysFreeString(action);
3839     IHTMLFormElement_Release(form);
3840 }
3841
3842 #define test_form_put_action(f,a) _test_form_put_action(__LINE__,f,a)
3843 static void _test_form_put_action(unsigned line, IUnknown *unk, const char *action)
3844 {
3845     IHTMLFormElement *form = _get_form_iface(line, unk);
3846     BSTR tmp = a2bstr(action);
3847     HRESULT hres;
3848
3849     hres = IHTMLFormElement_put_action(form, tmp);
3850     ok_(__FILE__,line)(hres == S_OK, "put_action failed: %08x\n", hres);
3851     SysFreeString(tmp);
3852     IHTMLFormElement_Release(form);
3853
3854     _test_form_action(line, unk, action);
3855 }
3856
3857 #define test_form_method(f,a) _test_form_method(__LINE__,f,a)
3858 static void _test_form_method(unsigned line, IUnknown *unk, const char *ex)
3859 {
3860     IHTMLFormElement *form = _get_form_iface(line, unk);
3861     BSTR method = (void*)0xdeadbeef;
3862     HRESULT hres;
3863
3864     hres = IHTMLFormElement_get_method(form, &method);
3865     ok_(__FILE__,line)(hres == S_OK, "get_method failed: %08x\n", hres);
3866     if(ex)
3867         ok_(__FILE__,line)(!strcmp_wa(method, ex), "method=%s, expected %s\n", wine_dbgstr_w(method), ex);
3868     else
3869         ok_(__FILE__,line)(!method, "method=%p\n", method);
3870
3871     SysFreeString(method);
3872     IHTMLFormElement_Release(form);
3873 }
3874
3875 #define test_form_put_method(f,r,a) _test_form_put_method(__LINE__,f,r,a)
3876 static void _test_form_put_method(unsigned line, IUnknown *unk, HRESULT exp_hres, const char *method)
3877 {
3878     IHTMLFormElement *form = _get_form_iface(line, unk);
3879     BSTR tmp = a2bstr(method);
3880     HRESULT hres;
3881
3882     hres = IHTMLFormElement_put_method(form, tmp);
3883     ok_(__FILE__,line)(hres == exp_hres, "put_method returned: %08x, expected %08x\n", hres, exp_hres);
3884     SysFreeString(tmp);
3885     IHTMLFormElement_Release(form);
3886
3887     if(exp_hres == S_OK)
3888         _test_form_method(line, unk, method);
3889 }
3890
3891 #define test_form_name(f,a) _test_form_name(__LINE__,f,a)
3892 static void _test_form_name(unsigned line, IUnknown *unk, const char *ex)
3893 {
3894     IHTMLFormElement *form = _get_form_iface(line, unk);
3895     BSTR name = (void*)0xdeadbeef;
3896     HRESULT hres;
3897
3898     hres = IHTMLFormElement_get_name(form, &name);
3899     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
3900     if(ex)
3901         ok_(__FILE__,line)(!strcmp_wa(name, ex), "name=%s, expected %s\n", wine_dbgstr_w(name), ex);
3902     else
3903         ok_(__FILE__,line)(!name, "name=%p\n", name);
3904
3905     SysFreeString(name);
3906     IHTMLFormElement_Release(form);
3907 }
3908
3909 #define test_form_put_name(f,a) _test_form_put_name(__LINE__,f,a)
3910 static void _test_form_put_name(unsigned line, IUnknown *unk, const char *name)
3911 {
3912     IHTMLFormElement *form = _get_form_iface(line, unk);
3913     BSTR tmp = a2bstr(name);
3914     HRESULT hres;
3915
3916     hres = IHTMLFormElement_put_name(form, tmp);
3917     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
3918     SysFreeString(tmp);
3919     IHTMLFormElement_Release(form);
3920
3921     _test_form_name(line, unk, name);
3922 }
3923
3924 #define test_form_encoding(f,a) _test_form_encoding(__LINE__,f,a)
3925 static void _test_form_encoding(unsigned line, IUnknown *unk, const char *ex)
3926 {
3927     IHTMLFormElement *form = _get_form_iface(line, unk);
3928     BSTR encoding = (void*)0xdeadbeef;
3929     HRESULT hres;
3930
3931     hres = IHTMLFormElement_get_encoding(form, &encoding);
3932     ok_(__FILE__,line)(hres == S_OK, "get_encoding failed: %08x\n", hres);
3933     if(ex)
3934         ok_(__FILE__,line)(!strcmp_wa(encoding, ex), "encoding=%s, expected %s\n", wine_dbgstr_w(encoding), ex);
3935     else
3936         ok_(__FILE__,line)(!encoding, "encoding=%p\n", encoding);
3937
3938     SysFreeString(encoding);
3939     IHTMLFormElement_Release(form);
3940 }
3941
3942 #define test_form_put_encoding(f,r,a) _test_form_put_encoding(__LINE__,f,r,a)
3943 static void _test_form_put_encoding(unsigned line, IUnknown *unk, HRESULT exp_hres, const char *encoding)
3944 {
3945     IHTMLFormElement *form = _get_form_iface(line, unk);
3946     BSTR tmp = a2bstr(encoding);
3947     HRESULT hres;
3948
3949     hres = IHTMLFormElement_put_encoding(form, tmp);
3950     ok_(__FILE__,line)(hres == exp_hres, "put_encoding returned: %08x, expected %08x\n", hres, exp_hres);
3951     SysFreeString(tmp);
3952     IHTMLFormElement_Release(form);
3953
3954     if(exp_hres == S_OK)
3955         _test_form_encoding(line, unk, encoding);
3956 }
3957
3958 #define test_form_elements(a) _test_form_elements(__LINE__,a)
3959 static void _test_form_elements(unsigned line, IUnknown *unk)
3960 {
3961     IHTMLFormElement *form = _get_form_iface(line, unk);
3962     IDispatch *disp;
3963     HRESULT hres;
3964
3965     disp = NULL;
3966     hres = IHTMLFormElement_get_elements(form, &disp);
3967     ok_(__FILE__,line)(hres == S_OK, "get_elements failed: %08x\n", hres);
3968     ok_(__FILE__,line)(disp != NULL, "disp = NULL\n");
3969     ok_(__FILE__,line)(iface_cmp((IUnknown*)form, (IUnknown*)disp), "disp != form\n");
3970
3971     IDispatch_Release(disp);
3972     IHTMLFormElement_Release(form);
3973 }
3974
3975 #define test_form_reset(a) _test_form_reset(__LINE__,a)
3976 static void _test_form_reset(unsigned line, IUnknown *unk)
3977 {
3978     IHTMLFormElement *form = _get_form_iface(line, unk);
3979     HRESULT hres;
3980
3981     hres = IHTMLFormElement_reset(form);
3982     ok_(__FILE__,line)(hres == S_OK, "reset failed: %08x\n", hres);
3983
3984     IHTMLFormElement_Release(form);
3985 }
3986
3987 static void test_form_target(IUnknown *unk)
3988 {
3989     IHTMLFormElement *form = get_form_iface(unk);
3990     HRESULT hres;
3991     BSTR str;
3992     static const char target[] = "_blank";
3993
3994     str = a2bstr(target);
3995     hres = IHTMLFormElement_put_target(form, str);
3996     ok(hres == S_OK, "put_target(%s) failed: %08x\n", target, hres);
3997     SysFreeString(str);
3998
3999     hres = IHTMLFormElement_get_target(form, &str);
4000     ok(hres == S_OK, "get_target failed: %08x\n", hres);
4001     ok(!strcmp_wa(str, target), "Expected %s, got %s\n", target, wine_dbgstr_w(str));
4002     SysFreeString(str);
4003
4004     IHTMLFormElement_Release(form);
4005 }
4006
4007 #define test_meta_name(a,b) _test_meta_name(__LINE__,a,b)
4008 static void _test_meta_name(unsigned line, IUnknown *unk, const char *exname)
4009 {
4010     IHTMLMetaElement *meta;
4011     BSTR name = NULL;
4012     HRESULT hres;
4013
4014     meta = _get_metaelem_iface(line, unk);
4015     hres = IHTMLMetaElement_get_name(meta, &name);
4016     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
4017     ok_(__FILE__,line)(!strcmp_wa(name, exname), "name = %s, expected %s\n", wine_dbgstr_w(name), exname);
4018     SysFreeString(name);
4019     IHTMLMetaElement_Release(meta);
4020 }
4021
4022 #define test_meta_content(a,b) _test_meta_content(__LINE__,a,b)
4023 static void _test_meta_content(unsigned line, IUnknown *unk, const char *excontent)
4024 {
4025     IHTMLMetaElement *meta;
4026     BSTR content = NULL;
4027     HRESULT hres;
4028
4029     meta = _get_metaelem_iface(line, unk);
4030     hres = IHTMLMetaElement_get_content(meta, &content);
4031     ok_(__FILE__,line)(hres == S_OK, "get_content failed: %08x\n", hres);
4032     ok_(__FILE__,line)(!strcmp_wa(content, excontent), "content = %s, expected %s\n", wine_dbgstr_w(content), excontent);
4033     SysFreeString(content);
4034     IHTMLMetaElement_Release(meta);
4035 }
4036
4037 #define test_meta_httpequiv(a,b) _test_meta_httpequiv(__LINE__,a,b)
4038 static void _test_meta_httpequiv(unsigned line, IUnknown *unk, const char *exval)
4039 {
4040     IHTMLMetaElement *meta;
4041     BSTR val = NULL;
4042     HRESULT hres;
4043
4044     meta = _get_metaelem_iface(line, unk);
4045     hres = IHTMLMetaElement_get_httpEquiv(meta, &val);
4046     ok_(__FILE__,line)(hres == S_OK, "get_httpEquiv failed: %08x\n", hres);
4047     ok_(__FILE__,line)(!strcmp_wa(val, exval), "httpEquiv = %s, expected %s\n", wine_dbgstr_w(val), exval);
4048     SysFreeString(val);
4049     IHTMLMetaElement_Release(meta);
4050 }
4051
4052 #define test_meta_charset(a,b) _test_meta_charset(__LINE__,a,b)
4053 static void _test_meta_charset(unsigned line, IUnknown *unk, const char *exval)
4054 {
4055     IHTMLMetaElement *meta;
4056     BSTR val = NULL;
4057     HRESULT hres;
4058
4059     meta = _get_metaelem_iface(line, unk);
4060     hres = IHTMLMetaElement_get_charset(meta, &val);
4061     ok_(__FILE__,line)(hres == S_OK, "get_charset failed: %08x\n", hres);
4062     if(exval)
4063         ok_(__FILE__,line)(!strcmp_wa(val, exval), "charset = %s, expected %s\n", wine_dbgstr_w(val), exval);
4064     else
4065         ok_(__FILE__,line)(!val, "charset = %s, expected NULL\n", wine_dbgstr_w(val));
4066     SysFreeString(val);
4067     IHTMLMetaElement_Release(meta);
4068 }
4069
4070 #define set_meta_charset(a,b) _set_meta_charset(__LINE__,a,b)
4071 static void _set_meta_charset(unsigned line, IUnknown *unk, const char *vala)
4072 {
4073     BSTR val = a2bstr(vala);
4074     IHTMLMetaElement *meta;
4075     HRESULT hres;
4076
4077     meta = _get_metaelem_iface(line, unk);
4078     hres = IHTMLMetaElement_put_charset(meta, val);
4079     ok_(__FILE__,line)(hres == S_OK, "put_charset failed: %08x\n", hres);
4080     SysFreeString(val);
4081     IHTMLMetaElement_Release(meta);
4082
4083     _test_meta_charset(line, unk, vala);
4084 }
4085
4086 #define test_link_media(a,b) _test_link_media(__LINE__,a,b)
4087 static void _test_link_media(unsigned line, IHTMLElement *elem, const char *exval)
4088 {
4089     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4090     HRESULT hres;
4091     BSTR str;
4092
4093     str = a2bstr(exval);
4094     hres = IHTMLLinkElement_put_media(link, str);
4095     ok_(__FILE__,line)(hres == S_OK, "put_media(%s) failed: %08x\n", exval, hres);
4096     SysFreeString(str);
4097
4098     hres = IHTMLLinkElement_get_media(link, &str);
4099     ok_(__FILE__,line)(hres == S_OK, "get_media failed: %08x\n", hres);
4100     ok_(__FILE__,line)(!strcmp_wa(str, exval), "got %s, expected %s\n", wine_dbgstr_w(str), exval);
4101     SysFreeString(str);
4102     IHTMLLinkElement_Release(link);
4103 }
4104
4105 #define test_link_disabled(a,b) _test_link_disabled(__LINE__,a,b)
4106 static void _test_link_disabled(unsigned line, IHTMLElement *elem, VARIANT_BOOL v)
4107 {
4108     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4109     VARIANT_BOOL b = 10;
4110     HRESULT hres;
4111
4112     hres = IHTMLLinkElement_get_disabled(link, &b);
4113     ok_(__FILE__,line)(hres == S_OK, "get_disabled failed: %08x\n", hres);
4114     ok_(__FILE__,line)(b == v, "disabled = %x, expected %x\n", b, v);
4115
4116     IHTMLLinkElement_Release(link);
4117 }
4118
4119 #define link_put_disabled(a,b) _link_put_disabled(__LINE__,a,b)
4120 static void _link_put_disabled(unsigned line, IHTMLElement *elem, VARIANT_BOOL v)
4121 {
4122     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4123     HRESULT hres;
4124
4125     hres = IHTMLLinkElement_put_disabled(link, v);
4126     ok_(__FILE__,line)(hres == S_OK, "put_disabled failed: %08x\n", hres);
4127     IHTMLLinkElement_Release(link);
4128     _test_link_disabled(line, elem, v);
4129 }
4130
4131 #define test_link_rel(a,b) _test_link_rel(__LINE__,a,b)
4132 static void _test_link_rel(unsigned line, IHTMLElement *elem, const char *v)
4133 {
4134     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4135     BSTR rel;
4136     HRESULT hres;
4137
4138     hres = IHTMLLinkElement_get_rel(link, &rel);
4139     ok_(__FILE__,line)(hres == S_OK, "get_rel failed: %08x\n", hres);
4140     if(v)
4141         ok_(__FILE__,line)(!strcmp_wa(rel, v), "rel = %s, expected %s\n", wine_dbgstr_w(rel), v);
4142     else
4143         ok_(__FILE__,line)(!rel, "rel = %s, expected NULL\n", wine_dbgstr_w(rel));
4144
4145     IHTMLLinkElement_Release(link);
4146 }
4147
4148 #define link_put_rel(a,b) _link_put_rel(__LINE__,a,b)
4149 static void _link_put_rel(unsigned line, IHTMLElement *elem, const char *v)
4150 {
4151     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4152     BSTR str = a2bstr(v);
4153     HRESULT hres;
4154
4155     hres = IHTMLLinkElement_put_rel(link, str);
4156     ok_(__FILE__,line)(hres == S_OK, "put_disabled failed: %08x\n", hres);
4157     SysFreeString(str);
4158     IHTMLLinkElement_Release(link);
4159     _test_link_rel(line, elem, v);
4160 }
4161
4162 #define test_link_rev(a,b) _test_link_rev(__LINE__,a,b)
4163 static void _test_link_rev(unsigned line, IHTMLElement *elem, const char *v)
4164 {
4165     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4166     BSTR rev;
4167     HRESULT hres;
4168
4169     hres = IHTMLLinkElement_get_rev(link, &rev);
4170     ok_(__FILE__,line)(hres == S_OK, "get_rev failed: %08x\n", hres);
4171     if(v)
4172         ok_(__FILE__,line)(!strcmp_wa(rev, v), "rev = %s, expected %s\n", wine_dbgstr_w(rev), v);
4173     else
4174         ok_(__FILE__,line)(!rev, "rev = %s, expected NULL\n", wine_dbgstr_w(rev));
4175
4176     IHTMLLinkElement_Release(link);
4177 }
4178
4179 #define link_put_rev(a,b) _link_put_rev(__LINE__,a,b)
4180 static void _link_put_rev(unsigned line, IHTMLElement *elem, const char *v)
4181 {
4182     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4183     BSTR str = a2bstr(v);
4184     HRESULT hres;
4185
4186     hres = IHTMLLinkElement_put_rev(link, str);
4187     ok_(__FILE__,line)(hres == S_OK, "put_disabled failed: %08x\n", hres);
4188     SysFreeString(str);
4189     IHTMLLinkElement_Release(link);
4190     _test_link_rev(line, elem, v);
4191 }
4192
4193 #define test_link_type(a,b) _test_link_type(__LINE__,a,b)
4194 static void _test_link_type(unsigned line, IHTMLElement *elem, const char *v)
4195 {
4196     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4197     BSTR type;
4198     HRESULT hres;
4199
4200     hres = IHTMLLinkElement_get_type(link, &type);
4201     ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
4202     if(v)
4203         ok_(__FILE__,line)(!strcmp_wa(type, v), "type = %s, expected %s\n", wine_dbgstr_w(type), v);
4204     else
4205         ok_(__FILE__,line)(!type, "type = %s, expected NULL\n", wine_dbgstr_w(type));
4206
4207     IHTMLLinkElement_Release(link);
4208 }
4209
4210 #define test_script_text(a,b) _test_script_text(__LINE__,a,b)
4211 static void _test_script_text(unsigned line, IHTMLScriptElement *script, const char *extext)
4212 {
4213     BSTR str;
4214     HRESULT hres;
4215
4216     str = (void*)0xdeadbeef;
4217     hres = IHTMLScriptElement_get_text(script, &str);
4218     ok_(__FILE__,line)(hres == S_OK, "get_text failed: %08x\n", hres);
4219     ok(!strcmp_wa(str, extext), "text = %s, expected \"%s\"\n", wine_dbgstr_w(str), extext);
4220     SysFreeString(str);
4221 }
4222
4223 #define link_put_type(a,b) _link_put_type(__LINE__,a,b)
4224 static void _link_put_type(unsigned line, IHTMLElement *elem, const char *v)
4225 {
4226     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4227     BSTR str = a2bstr(v);
4228     HRESULT hres;
4229
4230     hres = IHTMLLinkElement_put_type(link, str);
4231     ok_(__FILE__,line)(hres == S_OK, "put_disabled failed: %08x\n", hres);
4232     SysFreeString(str);
4233     IHTMLLinkElement_Release(link);
4234     _test_link_type(line, elem, v);
4235 }
4236
4237 #define test_link_href(a,b) _test_link_href(__LINE__,a,b)
4238 static void _test_link_href(unsigned line, IHTMLElement *elem, const char *v)
4239 {
4240     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4241     BSTR href;
4242     HRESULT hres;
4243
4244     hres = IHTMLLinkElement_get_href(link, &href);
4245     ok_(__FILE__,line)(hres == S_OK, "get_href failed: %08x\n", hres);
4246     if(v)
4247         ok_(__FILE__,line)(!strcmp_wa(href, v), "href = %s, expected %s\n", wine_dbgstr_w(href), v);
4248     else
4249         ok_(__FILE__,line)(!href, "href = %s, expected NULL\n", wine_dbgstr_w(href));
4250
4251     IHTMLLinkElement_Release(link);
4252 }
4253
4254 #define link_put_href(a,b) _link_put_href(__LINE__,a,b)
4255 static void _link_put_href(unsigned line, IHTMLElement *elem, const char *v)
4256 {
4257     IHTMLLinkElement *link = _get_link_iface(line, (IUnknown*)elem);
4258     BSTR str = a2bstr(v);
4259     HRESULT hres;
4260
4261     hres = IHTMLLinkElement_put_href(link, str);
4262     ok_(__FILE__,line)(hres == S_OK, "put_disabled failed: %08x\n", hres);
4263     SysFreeString(str);
4264     IHTMLLinkElement_Release(link);
4265     _test_link_href(line, elem, v);
4266 }
4267
4268 #define get_elem_doc(e) _get_elem_doc(__LINE__,e)
4269 static IHTMLDocument2 *_get_elem_doc(unsigned line, IUnknown *unk)
4270 {
4271     IHTMLElement *elem = _get_elem_iface(line, unk);
4272     IHTMLDocument2 *doc;
4273     IDispatch *disp;
4274     HRESULT hres;
4275
4276     disp = NULL;
4277     hres = IHTMLElement_get_document(elem, &disp);
4278     ok(hres == S_OK, "get_document failed: %08x\n", hres);
4279     ok(disp != NULL, "disp == NULL\n");
4280
4281     hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&doc);
4282     IDispatch_Release(disp);
4283     ok(hres == S_OK, "Could not get IHTMLDocument2 iface: %08x\n", hres);
4284
4285     return doc;
4286 }
4287
4288 #define get_elem_attr_node(a,b,c) _get_elem_attr_node(__LINE__,a,b,c)
4289 static IHTMLDOMAttribute *_get_elem_attr_node(unsigned line, IUnknown *unk, const char *attr_name, BOOL expect_success)
4290 {
4291     IHTMLElement4 *elem = _get_elem4_iface(line, unk);
4292     BSTR str = a2bstr(attr_name);
4293     IHTMLDOMAttribute *attr;
4294     HRESULT hres;
4295
4296     attr = (void*)0xdeadbeef;
4297     hres = IHTMLElement4_getAttributeNode(elem, str, &attr);
4298     ok_(__FILE__,line)(hres == S_OK, "getAttributeNode failed: %08x\n", hres);
4299     if(expect_success)
4300         ok_(__FILE__,line)(attr != NULL, "attr = NULL\n");
4301     else
4302         ok_(__FILE__,line)(!attr, "attr = %p\n", attr);
4303
4304     IHTMLElement4_Release(elem);
4305     SysFreeString(str);
4306     return attr;
4307 }
4308
4309 #define get_attr_node_value(a,b,c) _get_attr_node_value(__LINE__,a,b,c)
4310 static void _get_attr_node_value(unsigned line, IHTMLDOMAttribute *attr, VARIANT *v, VARTYPE vt)
4311 {
4312     HRESULT hres;
4313
4314     hres = IHTMLDOMAttribute_get_nodeValue(attr, v);
4315     ok_(__FILE__,line) (hres == S_OK, "get_nodeValue failed: %08x\n", hres);
4316     ok_(__FILE__,line) (V_VT(v) == vt, "vt=%d, expected %d\n", V_VT(v), vt);
4317 }
4318
4319 #define put_attr_node_value(a,b) _put_attr_node_value(__LINE__,a,b)
4320 static void _put_attr_node_value(unsigned line, IHTMLDOMAttribute *attr, VARIANT v)
4321 {
4322     HRESULT hres;
4323
4324     hres = IHTMLDOMAttribute_put_nodeValue(attr, v);
4325     ok_(__FILE__,line) (hres == S_OK, "put_nodeValue failed: %08x\n", hres);
4326 }
4327
4328 #define get_window_doc(e) _get_window_doc(__LINE__,e)
4329 static IHTMLDocument2 *_get_window_doc(unsigned line, IHTMLWindow2 *window)
4330 {
4331     IHTMLDocument2 *doc;
4332     HRESULT hres;
4333
4334     doc = NULL;
4335     hres = IHTMLWindow2_get_document(window, &doc);
4336     ok(hres == S_OK, "get_document failed: %08x\n", hres);
4337     ok(doc != NULL, "disp == NULL\n");
4338
4339     return doc;
4340 }
4341
4342 #define doc_get_body(d) _doc_get_body(__LINE__,d)
4343 static IHTMLElement *_doc_get_body(unsigned line, IHTMLDocument2 *doc)
4344 {
4345     IHTMLElement *elem;
4346     HRESULT hres;
4347
4348     hres = IHTMLDocument2_get_body(doc, &elem);
4349     ok_(__FILE__,line)(hres == S_OK, "get_body failed: %08x\n", hres);
4350     ok_(__FILE__,line)(elem != NULL, "body == NULL\n");
4351
4352     return elem;
4353 }
4354
4355 #define test_create_elem(d,t) _test_create_elem(__LINE__,d,t)
4356 static IHTMLElement *_test_create_elem(unsigned line, IHTMLDocument2 *doc, const char *tag)
4357 {
4358     IHTMLElement *elem = NULL;
4359     BSTR tmp;
4360     HRESULT hres;
4361
4362     tmp = a2bstr(tag);
4363     hres = IHTMLDocument2_createElement(doc, tmp, &elem);
4364     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
4365     ok_(__FILE__,line) (elem != NULL, "elem == NULL\n");
4366     SysFreeString(tmp);
4367
4368     return elem;
4369 }
4370
4371 #define test_create_text(d,t) _test_create_text(__LINE__,d,t)
4372 static IHTMLDOMNode *_test_create_text(unsigned line, IHTMLDocument2 *doc, const char *text)
4373 {
4374     IHTMLDocument3 *doc3;
4375     IHTMLDOMNode *node = NULL;
4376     BSTR tmp;
4377     HRESULT hres;
4378
4379     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
4380     ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3: %08x\n", hres);
4381
4382     tmp = a2bstr(text);
4383     hres = IHTMLDocument3_createTextNode(doc3, tmp, &node);
4384     IHTMLDocument3_Release(doc3);
4385     SysFreeString(tmp);
4386     ok_(__FILE__,line) (hres == S_OK, "createElement failed: %08x\n", hres);
4387     ok_(__FILE__,line) (node != NULL, "node == NULL\n");
4388
4389     return node;
4390 }
4391
4392 #define test_node_append_child(n,c) _test_node_append_child(__LINE__,n,c)
4393 static IHTMLDOMNode *_test_node_append_child(unsigned line, IUnknown *node_unk, IUnknown *child_unk)
4394 {
4395     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
4396     IHTMLDOMNode *child = _get_node_iface(line, child_unk);
4397     IHTMLDOMNode *new_child = NULL;
4398     HRESULT hres;
4399
4400     hres = IHTMLDOMNode_appendChild(node, child, &new_child);
4401     ok_(__FILE__,line) (hres == S_OK, "appendChild failed: %08x\n", hres);
4402     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
4403     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
4404
4405     IHTMLDOMNode_Release(node);
4406     IHTMLDOMNode_Release(child);
4407
4408     return new_child;
4409 }
4410
4411 #define test_node_insertbefore(n,c,v) _test_node_insertbefore(__LINE__,n,c,v)
4412 static IHTMLDOMNode *_test_node_insertbefore(unsigned line, IUnknown *node_unk, IHTMLDOMNode *child, VARIANT *var)
4413 {
4414     IHTMLDOMNode *node = _get_node_iface(line, node_unk);
4415     IHTMLDOMNode *new_child = NULL;
4416     HRESULT hres;
4417
4418     hres = IHTMLDOMNode_insertBefore(node, child, *var, &new_child);
4419     ok_(__FILE__,line) (hres == S_OK, "insertBefore failed: %08x\n", hres);
4420     ok_(__FILE__,line) (new_child != NULL, "new_child == NULL\n");
4421     /* TODO  ok_(__FILE__,line) (new_child != child, "new_child == child\n"); */
4422
4423     IHTMLDOMNode_Release(node);
4424
4425     return new_child;
4426 }
4427
4428 #define test_node_remove_child(n,c) _test_node_remove_child(__LINE__,n,c)
4429 static void _test_node_remove_child(unsigned line, IUnknown *unk, IHTMLDOMNode *child)
4430 {
4431     IHTMLDOMNode *node = _get_node_iface(line, unk);
4432     IHTMLDOMNode *new_node = NULL;
4433     HRESULT hres;
4434
4435     hres = IHTMLDOMNode_removeChild(node, child, &new_node);
4436     ok_(__FILE__,line) (hres == S_OK, "removeChild failed: %08x\n", hres);
4437     ok_(__FILE__,line) (new_node != NULL, "new_node == NULL\n");
4438     /* TODO ok_(__FILE__,line) (new_node != child, "new_node == child\n"); */
4439
4440     IHTMLDOMNode_Release(node);
4441     IHTMLDOMNode_Release(new_node);
4442 }
4443
4444 #define test_doc_title(d,t) _test_doc_title(__LINE__,d,t)
4445 static void _test_doc_title(unsigned line, IHTMLDocument2 *doc, const char *extitle)
4446 {
4447     BSTR title = NULL;
4448     HRESULT hres;
4449
4450     hres = IHTMLDocument2_get_title(doc, &title);
4451     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
4452     ok_(__FILE__,line) (!strcmp_wa(title, extitle), "unexpected title %s\n", wine_dbgstr_w(title));
4453     SysFreeString(title);
4454 }
4455
4456 #define test_doc_set_title(d,t) _test_doc_set_title(__LINE__,d,t)
4457 static void _test_doc_set_title(unsigned line, IHTMLDocument2 *doc, const char *title)
4458 {
4459     BSTR tmp;
4460     HRESULT hres;
4461
4462     tmp = a2bstr(title);
4463     hres = IHTMLDocument2_put_title(doc, tmp);
4464     ok_(__FILE__,line) (hres == S_OK, "get_title failed: %08x\n", hres);
4465     SysFreeString(tmp);
4466 }
4467
4468 static void test_elem_bounding_client_rect(IUnknown *unk)
4469 {
4470     IHTMLRect *rect, *rect2;
4471     IHTMLElement2 *elem2;
4472     LONG l;
4473     HRESULT hres;
4474
4475     elem2 = get_elem2_iface(unk);
4476     hres = IHTMLElement2_getBoundingClientRect(elem2, &rect);
4477     ok(hres == S_OK, "getBoundingClientRect failed: %08x\n", hres);
4478     hres = IHTMLElement2_getBoundingClientRect(elem2, &rect2);
4479     IHTMLElement2_Release(elem2);
4480     ok(hres == S_OK, "getBoundingClientRect failed: %08x\n", hres);
4481     ok(rect != NULL, "rect == NULL\n");
4482     ok(rect != rect2, "rect == rect2\n");
4483     IHTMLRect_Release(rect2);
4484
4485     test_disp((IUnknown*)rect, &IID_IHTMLRect, "[object]");
4486
4487     l = 0xdeadbeef;
4488     hres = IHTMLRect_get_top(rect, &l);
4489     ok(hres == S_OK, "get_top failed: %08x\n", hres);
4490     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
4491
4492     l = 0xdeadbeef;
4493     hres = IHTMLRect_get_left(rect, &l);
4494     ok(hres == S_OK, "get_left failed: %08x\n", hres);
4495     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
4496
4497     l = 0xdeadbeef;
4498     hres = IHTMLRect_get_bottom(rect, &l);
4499     ok(hres == S_OK, "get_bottom failed: %08x\n", hres);
4500     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
4501
4502     l = 0xdeadbeef;
4503     hres = IHTMLRect_get_right(rect, &l);
4504     ok(hres == S_OK, "get_right failed: %08x\n", hres);
4505     ok(l != 0xdeadbeef, "l = 0xdeadbeef\n");
4506
4507     IHTMLRect_Release(rect);
4508 }
4509
4510 static void test_elem_col_item(IHTMLElementCollection *col, const char *n,
4511         const elem_type_t *elem_types, LONG len)
4512 {
4513     IDispatch *disp;
4514     VARIANT name, index;
4515     DWORD i;
4516     HRESULT hres;
4517
4518     V_VT(&index) = VT_EMPTY;
4519     V_VT(&name) = VT_BSTR;
4520     V_BSTR(&name) = a2bstr(n);
4521
4522     hres = IHTMLElementCollection_item(col, name, index, &disp);
4523     ok(hres == S_OK, "item failed: %08x\n", hres);
4524
4525     test_elem_collection((IUnknown*)disp, elem_types, len);
4526     IDispatch_Release(disp);
4527
4528     V_VT(&index) = VT_I4;
4529
4530     for(i=0; i<len; i++) {
4531         V_I4(&index) = i;
4532         disp = (void*)0xdeadbeef;
4533         hres = IHTMLElementCollection_item(col, name, index, &disp);
4534         ok(hres == S_OK, "item failed: %08x\n", hres);
4535         ok(disp != NULL, "disp == NULL\n");
4536         if(FAILED(hres) || !disp)
4537             continue;
4538
4539         test_elem_type((IUnknown*)disp, elem_types[i]);
4540
4541         IDispatch_Release(disp);
4542     }
4543
4544     V_I4(&index) = len;
4545     disp = (void*)0xdeadbeef;
4546     hres = IHTMLElementCollection_item(col, name, index, &disp);
4547     ok(hres == S_OK, "item failed: %08x\n", hres);
4548     ok(disp == NULL, "disp != NULL\n");
4549
4550     V_I4(&index) = -1;
4551     disp = (void*)0xdeadbeef;
4552     hres = IHTMLElementCollection_item(col, name, index, &disp);
4553     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4554     ok(disp == NULL, "disp != NULL\n");
4555
4556     SysFreeString(V_BSTR(&name));
4557 }
4558
4559 static IHTMLElement *get_elem_by_id(IHTMLDocument2 *doc, const char *id, BOOL expect_success)
4560 {
4561     IHTMLElementCollection *col;
4562     IHTMLElement *elem;
4563     IDispatch *disp = (void*)0xdeadbeef;
4564     VARIANT name, index;
4565     HRESULT hres;
4566
4567     hres = IHTMLDocument2_get_all(doc, &col);
4568     ok(hres == S_OK, "get_all failed: %08x\n", hres);
4569     ok(col != NULL, "col == NULL\n");
4570     if(FAILED(hres) || !col)
4571         return NULL;
4572
4573     V_VT(&index) = VT_EMPTY;
4574     V_VT(&name) = VT_BSTR;
4575     V_BSTR(&name) = a2bstr(id);
4576
4577     hres = IHTMLElementCollection_item(col, name, index, &disp);
4578     IHTMLElementCollection_Release(col);
4579     SysFreeString(V_BSTR(&name));
4580     ok(hres == S_OK, "item failed: %08x\n", hres);
4581     if(!expect_success) {
4582         ok(disp == NULL, "disp != NULL\n");
4583         return NULL;
4584     }
4585
4586     ok(disp != NULL, "disp == NULL\n");
4587     if(!disp)
4588         return NULL;
4589
4590     elem = get_elem_iface((IUnknown*)disp);
4591     IDispatch_Release(disp);
4592
4593     return elem;
4594 }
4595
4596 static IHTMLElement *get_doc_elem_by_id(IHTMLDocument2 *doc, const char *id)
4597 {
4598     IHTMLDocument3 *doc3;
4599     IHTMLElement *elem;
4600     BSTR tmp;
4601     HRESULT hres;
4602
4603     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
4604     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
4605
4606     tmp = a2bstr(id);
4607     hres = IHTMLDocument3_getElementById(doc3, tmp, &elem);
4608     SysFreeString(tmp);
4609     ok(hres == S_OK, "getElementById(%s) failed: %08x\n", id, hres);
4610
4611     IHTMLDocument3_Release(doc3);
4612
4613     return elem;
4614 }
4615
4616 static void test_select_elem(IHTMLSelectElement *select)
4617 {
4618     IDispatch *disp, *disp2;
4619     VARIANT name, index;
4620     HRESULT hres;
4621
4622     test_select_type(select, "select-one");
4623     test_select_length(select, 2);
4624     test_select_selidx(select, 0);
4625     test_select_put_selidx(select, 1);
4626
4627     test_select_set_value(select, "val1");
4628     test_select_value(select, "val1");
4629
4630     test_select_get_disabled(select, VARIANT_FALSE);
4631     test_select_set_disabled(select, VARIANT_TRUE);
4632     test_select_set_disabled(select, VARIANT_FALSE);
4633
4634     disp = NULL;
4635     hres = IHTMLSelectElement_get_options(select, &disp);
4636     ok(hres == S_OK, "get_options failed: %08x\n", hres);
4637     ok(disp != NULL, "options == NULL\n");
4638     ok(iface_cmp((IUnknown*)disp, (IUnknown*)select), "disp != select\n");
4639     IDispatch_Release(disp);
4640
4641     V_VT(&index) = VT_EMPTY;
4642     V_VT(&name) = VT_I4;
4643     V_I4(&name) = -1;
4644     disp = (void*)0xdeadbeef;
4645     hres = IHTMLSelectElement_item(select, name, index, &disp);
4646     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4647     ok(!disp, "disp = %p\n", disp);
4648
4649     V_I4(&name) = 2;
4650     disp = (void*)0xdeadbeef;
4651     hres = IHTMLSelectElement_item(select, name, index, &disp);
4652     ok(hres == S_OK, "item failed: %08x\n", hres);
4653     ok(!disp, "disp = %p\n", disp);
4654
4655     V_I4(&name) = 1;
4656     hres = IHTMLSelectElement_item(select, name, index, NULL);
4657     ok(hres == E_POINTER || broken(hres == E_INVALIDARG), "item failed: %08x, expected E_POINTER\n", hres);
4658
4659     disp = NULL;
4660     hres = IHTMLSelectElement_item(select, name, index, &disp);
4661     ok(hres == S_OK, "item failed: %08x\n", hres);
4662     ok(disp != NULL, "disp = NULL\n");
4663     test_disp((IUnknown*)disp, &DIID_DispHTMLOptionElement, NULL);
4664
4665     V_VT(&index) = VT_I4;
4666     V_I4(&index) = 1;
4667     disp2 = NULL;
4668     hres = IHTMLSelectElement_item(select, name, index, &disp2);
4669     ok(hres == S_OK, "item failed: %08x\n", hres);
4670     ok(disp2 != NULL, "disp = NULL\n");
4671     ok(iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
4672     IDispatch_Release(disp2);
4673     IDispatch_Release(disp);
4674
4675     test_select_multiple(select, VARIANT_FALSE);
4676     test_select_set_multiple(select, VARIANT_TRUE);
4677     test_select_remove(select);
4678 }
4679
4680 static void test_form_item(IHTMLElement *elem)
4681 {
4682     IHTMLFormElement *form = get_form_iface((IUnknown*)elem);
4683     IDispatch *disp, *disp2;
4684     VARIANT name, index;
4685     HRESULT hres;
4686
4687     V_VT(&index) = VT_EMPTY;
4688     V_VT(&name) = VT_I4;
4689     V_I4(&name) = -1;
4690     disp = (void*)0xdeadbeef;
4691     hres = IHTMLFormElement_item(form, name, index, &disp);
4692     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4693     ok(!disp, "disp = %p\n", disp);
4694
4695     V_I4(&name) = 2;
4696     disp = (void*)0xdeadbeef;
4697     hres = IHTMLFormElement_item(form, name, index, &disp);
4698     ok(hres == S_OK, "item failed: %08x\n", hres);
4699     ok(!disp, "disp = %p\n", disp);
4700
4701     V_I4(&name) = 1;
4702     hres = IHTMLFormElement_item(form, name, index, NULL);
4703     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
4704
4705     disp = NULL;
4706     hres = IHTMLFormElement_item(form, name, index, &disp);
4707     ok(hres == S_OK, "item failed: %08x\n", hres);
4708     ok(disp != NULL, "disp = NULL\n");
4709     test_disp((IUnknown*)disp, &DIID_DispHTMLInputElement, NULL);
4710
4711     V_VT(&index) = VT_I4;
4712     V_I4(&index) = 1;
4713     disp2 = NULL;
4714     hres = IHTMLFormElement_item(form, name, index, &disp2);
4715     ok(hres == S_OK, "item failed: %08x\n", hres);
4716     ok(disp2 != NULL, "disp = NULL\n");
4717     ok(iface_cmp((IUnknown*)disp, (IUnknown*)disp2), "disp != disp2\n");
4718     IDispatch_Release(disp2);
4719     IDispatch_Release(disp);
4720 }
4721
4722 static void test_create_option_elem(IHTMLDocument2 *doc)
4723 {
4724     IHTMLOptionElement *option;
4725
4726     option = create_option_elem(doc, "test text", "test value");
4727
4728     test_option_put_text(option, "new text");
4729     test_option_put_value(option, "new value");
4730     test_option_put_selected(option, VARIANT_TRUE);
4731     test_option_put_selected(option, VARIANT_FALSE);
4732
4733     IHTMLOptionElement_Release(option);
4734 }
4735
4736 static void test_create_img_elem(IHTMLDocument2 *doc)
4737 {
4738     IHTMLImgElement *img;
4739
4740     img = create_img_elem(doc, 10, 15);
4741
4742     if(img){
4743         test_img_put_width(img, 5);
4744         test_img_put_height(img, 20);
4745
4746         IHTMLImgElement_Release(img);
4747         img = NULL;
4748     }
4749
4750     img = create_img_elem(doc, -1, -1);
4751
4752     if(img){
4753         test_img_put_width(img, 5);
4754         test_img_put_height(img, 20);
4755
4756         IHTMLImgElement_Release(img);
4757     }
4758 }
4759
4760 #define insert_adjacent_elem(a,b,c) _insert_adjacent_elem(__LINE__,a,b,c)
4761 static void _insert_adjacent_elem(unsigned line, IHTMLElement *parent, const char *where, IHTMLElement *elem)
4762 {
4763     IHTMLElement2 *elem2 = _get_elem2_iface(line, (IUnknown*)parent);
4764     IHTMLElement *ret_elem = NULL;
4765     BSTR str = a2bstr(where);
4766     HRESULT hres;
4767
4768     hres = IHTMLElement2_insertAdjacentElement(elem2, str, elem, &ret_elem);
4769     IHTMLElement2_Release(elem2);
4770     SysFreeString(str);
4771     ok_(__FILE__,line)(hres == S_OK, "insertAdjacentElement failed: %08x\n", hres);
4772     ok_(__FILE__,line)(ret_elem == elem, "ret_elem != elem\n");
4773     IHTMLElement_Release(ret_elem);
4774 }
4775
4776 static void test_insert_adjacent_elems(IHTMLDocument2 *doc, IHTMLElement *parent)
4777 {
4778     IHTMLElement *elem, *elem2;
4779
4780     static const elem_type_t br_br[] = {ET_BR, ET_BR};
4781     static const elem_type_t br_div_br[] = {ET_BR, ET_DIV, ET_BR};
4782
4783     elem = test_create_elem(doc, "BR");
4784     insert_adjacent_elem(parent, "BeforeEnd", elem);
4785     IHTMLElement_Release(elem);
4786
4787     test_elem_all((IUnknown*)parent, br_br, 1);
4788
4789     elem = test_create_elem(doc, "BR");
4790     insert_adjacent_elem(parent, "beforeend", elem);
4791
4792     test_elem_all((IUnknown*)parent, br_br, 2);
4793
4794     elem2 = test_create_elem(doc, "DIV");
4795     insert_adjacent_elem(elem, "beforebegin", elem2);
4796     IHTMLElement_Release(elem2);
4797     IHTMLElement_Release(elem);
4798
4799     test_elem_all((IUnknown*)parent, br_div_br, 3);
4800 }
4801
4802 static IHTMLTxtRange *test_create_body_range(IHTMLDocument2 *doc)
4803 {
4804     IHTMLBodyElement *body;
4805     IHTMLTxtRange *range;
4806     IHTMLElement *elem;
4807     HRESULT hres;
4808
4809     elem = doc_get_body(doc);
4810     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
4811     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
4812     IHTMLElement_Release(elem);
4813
4814     hres = IHTMLBodyElement_createTextRange(body, &range);
4815     IHTMLBodyElement_Release(body);
4816     ok(hres == S_OK, "createTextRange failed: %08x\n", hres);
4817
4818     return range;
4819 }
4820
4821 static void test_txtrange(IHTMLDocument2 *doc)
4822 {
4823     IHTMLTxtRange *body_range, *range, *range2;
4824     IHTMLSelectionObject *selection;
4825     IDispatch *disp_range;
4826     HRESULT hres;
4827
4828     body_range = test_create_body_range(doc);
4829
4830     test_range_text(body_range, "test abc 123\r\nit's text");
4831
4832     hres = IHTMLTxtRange_duplicate(body_range, &range);
4833     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4834
4835     hres = IHTMLTxtRange_duplicate(body_range, &range2);
4836     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4837     test_range_isequal(range, range2, VARIANT_TRUE);
4838
4839     test_range_text(range, "test abc 123\r\nit's text");
4840     test_range_text(body_range, "test abc 123\r\nit's text");
4841
4842     test_range_collapse(range, TRUE);
4843     test_range_isequal(range, range2, VARIANT_FALSE);
4844     test_range_inrange(range, range2, VARIANT_FALSE);
4845     test_range_inrange(range2, range, VARIANT_TRUE);
4846     IHTMLTxtRange_Release(range2);
4847
4848     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
4849     test_range_expand(range, wordW, VARIANT_FALSE, "test ");
4850     test_range_move(range, characterW, 2, 2);
4851     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
4852
4853     test_range_collapse(range, FALSE);
4854     test_range_expand(range, wordW, VARIANT_TRUE, "abc ");
4855
4856     test_range_collapse(range, FALSE);
4857     test_range_expand(range, wordW, VARIANT_TRUE, "123");
4858     test_range_expand(range, wordW, VARIANT_FALSE, "123");
4859     test_range_move(range, characterW, 2, 2);
4860     test_range_expand(range, wordW, VARIANT_TRUE, "123");
4861     test_range_moveend(range, characterW, -5, -5);
4862     test_range_text(range, NULL);
4863     test_range_moveend(range, characterW, 3, 3);
4864     test_range_text(range, "c 1");
4865     test_range_expand(range, texteditW, VARIANT_TRUE, "test abc 123\r\nit's text");
4866     test_range_collapse(range, TRUE);
4867     test_range_move(range, characterW, 4, 4);
4868     test_range_moveend(range, characterW, 1, 1);
4869     test_range_text(range, " ");
4870     test_range_move(range, wordW, 1, 1);
4871     test_range_moveend(range, characterW, 2, 2);
4872     test_range_text(range, "ab");
4873
4874     IHTMLTxtRange_Release(range);
4875
4876     hres = IHTMLTxtRange_duplicate(body_range, &range);
4877     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4878
4879     test_range_text(range, "test abc 123\r\nit's text");
4880     test_range_move(range, characterW, 3, 3);
4881     test_range_moveend(range, characterW, 1, 1);
4882     test_range_text(range, "t");
4883     test_range_moveend(range, characterW, 3, 3);
4884     test_range_text(range, "t ab");
4885     test_range_moveend(range, characterW, -2, -2);
4886     test_range_text(range, "t ");
4887     test_range_move(range, characterW, 6, 6);
4888     test_range_moveend(range, characterW, 3, 3);
4889     test_range_text(range, "123");
4890     test_range_moveend(range, characterW, 2, 2);
4891     test_range_text(range, "123\r\ni");
4892
4893     IHTMLTxtRange_Release(range);
4894
4895     hres = IHTMLTxtRange_duplicate(body_range, &range);
4896     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4897
4898     test_range_move(range, wordW, 1, 1);
4899     test_range_moveend(range, characterW, 2, 2);
4900     test_range_text(range, "ab");
4901
4902     test_range_move(range, characterW, -2, -2);
4903     test_range_moveend(range, characterW, 2, 2);
4904     test_range_text(range, "t ");
4905
4906     test_range_move(range, wordW, 3, 3);
4907     test_range_move(range, wordW, -2, -2);
4908     test_range_moveend(range, characterW, 2, 2);
4909     test_range_text(range, "ab");
4910
4911     test_range_move(range, characterW, -6, -5);
4912     test_range_moveend(range, characterW, -1, 0);
4913     test_range_moveend(range, characterW, -6, 0);
4914     test_range_move(range, characterW, 2, 2);
4915     test_range_moveend(range, characterW, 2, 2);
4916     test_range_text(range, "st");
4917     test_range_moveend(range, characterW, -6, -4);
4918     test_range_moveend(range, characterW, 2, 2);
4919
4920     IHTMLTxtRange_Release(range);
4921
4922     hres = IHTMLTxtRange_duplicate(body_range, &range);
4923     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4924
4925     test_range_move(range, wordW, 2, 2);
4926     test_range_moveend(range, characterW, 2, 2);
4927     test_range_text(range, "12");
4928
4929     test_range_move(range, characterW, 15, 14);
4930     test_range_move(range, characterW, -2, -2);
4931     test_range_moveend(range, characterW, 3, 2);
4932     test_range_text(range, "t");
4933     test_range_moveend(range, characterW, -1, -1);
4934     test_range_text(range, "t");
4935     test_range_expand(range, wordW, VARIANT_TRUE, "text");
4936     test_range_move(range, characterW, -2, -2);
4937     test_range_moveend(range, characterW, 2, 2);
4938     test_range_text(range, "s ");
4939     test_range_move(range, characterW, 100, 7);
4940     test_range_move(range, wordW, 1, 0);
4941     test_range_move(range, characterW, -2, -2);
4942     test_range_moveend(range, characterW, 3, 2);
4943     test_range_text(range, "t");
4944
4945     IHTMLTxtRange_Release(range);
4946
4947     hres = IHTMLTxtRange_duplicate(body_range, &range);
4948     ok(hres == S_OK, "duplicate failed: %08x\n", hres);
4949
4950     test_range_collapse(range, TRUE);
4951     test_range_expand(range, wordW, VARIANT_TRUE, "test ");
4952     test_range_put_text(range, "word");
4953     test_range_text(body_range, "wordabc 123\r\nit's text");
4954     test_range_text(range, NULL);
4955     test_range_moveend(range, characterW, 3, 3);
4956     test_range_text(range, "abc");
4957     test_range_movestart(range, characterW, -2, -2);
4958     test_range_text(range, "rdabc");
4959     test_range_movestart(range, characterW, 3, 3);
4960     test_range_text(range, "bc");
4961     test_range_movestart(range, characterW, 4, 4);
4962     test_range_text(range, NULL);
4963     test_range_movestart(range, characterW, -3, -3);
4964     test_range_text(range, "c 1");
4965     test_range_movestart(range, characterW, -7, -6);
4966     test_range_text(range, "wordabc 1");
4967     test_range_movestart(range, characterW, 100, 22);
4968     test_range_text(range, NULL);
4969
4970     IHTMLTxtRange_Release(range);
4971     IHTMLTxtRange_Release(body_range);
4972
4973     hres = IHTMLDocument2_get_selection(doc, &selection);
4974     ok(hres == S_OK, "IHTMLDocument2_get_selection failed: %08x\n", hres);
4975
4976     hres = IHTMLSelectionObject_createRange(selection, &disp_range);
4977     ok(hres == S_OK, "IHTMLSelectionObject_createRange failed: %08x\n", hres);
4978     IHTMLSelectionObject_Release(selection);
4979
4980     hres = IDispatch_QueryInterface(disp_range, &IID_IHTMLTxtRange, (void **)&range);
4981     ok(hres == S_OK, "Could not get IID_IHTMLTxtRange interface: 0x%08x\n", hres);
4982     IDispatch_Release(disp_range);
4983
4984     test_range_text(range, NULL);
4985     test_range_moveend(range, characterW, 3, 3);
4986     test_range_text(range, "wor");
4987     test_range_parent(range, ET_BODY);
4988     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
4989     test_range_expand(range, texteditW, VARIANT_TRUE, "wordabc 123\r\nit's text");
4990     test_range_move(range, characterW, 3, 3);
4991     test_range_expand(range, wordW, VARIANT_TRUE, "wordabc ");
4992     test_range_moveend(range, characterW, -4, -4);
4993     test_range_put_text(range, "abc def ");
4994     test_range_expand(range, texteditW, VARIANT_TRUE, "abc def abc 123\r\nit's text");
4995     test_range_move(range, wordW, 1, 1);
4996     test_range_movestart(range, characterW, -1, -1);
4997     test_range_text(range, " ");
4998     test_range_move(range, wordW, 1, 1);
4999     test_range_moveend(range, characterW, 3, 3);
5000     test_range_text(range, "def");
5001     test_range_put_text(range, "xyz");
5002     test_range_moveend(range, characterW, 1, 1);
5003     test_range_move(range, wordW, 1, 1);
5004     test_range_moveend(range, characterW, 2, 2);
5005     test_range_text(range, "ab");
5006
5007     IHTMLTxtRange_Release(range);
5008 }
5009
5010 static void test_txtrange2(IHTMLDocument2 *doc)
5011 {
5012     IHTMLTxtRange *range;
5013
5014     range = test_create_body_range(doc);
5015
5016     test_range_text(range, "abc\r\n\r\n123\r\n\r\n\r\ndef");
5017     test_range_move(range, characterW, 5, 5);
5018     test_range_moveend(range, characterW, 1, 1);
5019     test_range_text(range, "2");
5020     test_range_move(range, characterW, -3, -3);
5021     test_range_moveend(range, characterW, 3, 3);
5022     test_range_text(range, "c\r\n\r\n1");
5023     test_range_collapse(range, VARIANT_FALSE);
5024     test_range_moveend(range, characterW, 4, 4);
5025     test_range_text(range, "23");
5026     test_range_moveend(range, characterW, 1, 1);
5027     test_range_text(range, "23\r\n\r\n\r\nd");
5028     test_range_moveend(range, characterW, -1, -1);
5029     test_range_text(range, "23");
5030     test_range_moveend(range, characterW, -1, -1);
5031     test_range_text(range, "23");
5032     test_range_moveend(range, characterW, -2, -2);
5033     test_range_text(range, "2");
5034
5035     IHTMLTxtRange_Release(range);
5036 }
5037
5038 #define test_compatmode(a,b) _test_compatmode(__LINE__,a,b)
5039 static void _test_compatmode(unsigned  line, IHTMLDocument2 *doc2, const char *excompat)
5040 {
5041     IHTMLDocument5 *doc = get_htmldoc5_iface((IUnknown*)doc2);
5042     BSTR str;
5043     HRESULT hres;
5044
5045     hres = IHTMLDocument5_get_compatMode(doc, &str);
5046     ok_(__FILE__,line)(hres == S_OK, "get_compatMode failed: %08x\n", hres);
5047     ok_(__FILE__,line)(!strcmp_wa(str, excompat), "compatMode = %s, expected %s\n", wine_dbgstr_w(str), excompat);
5048
5049     IHTMLDocument5_Release(doc);
5050 }
5051
5052 static void test_location(IHTMLDocument2 *doc)
5053 {
5054     IHTMLLocation *location, *location2;
5055     IHTMLWindow2 *window;
5056     BSTR str;
5057     ULONG ref;
5058     HRESULT hres;
5059
5060     hres = IHTMLDocument2_get_location(doc, &location);
5061     ok(hres == S_OK, "get_location failed: %08x\n", hres);
5062
5063     hres = IHTMLDocument2_get_location(doc, &location2);
5064     ok(hres == S_OK, "get_location failed: %08x\n", hres);
5065
5066     ok(location == location2, "location != location2\n");
5067     IHTMLLocation_Release(location2);
5068
5069     hres = IHTMLDocument2_get_parentWindow(doc, &window);
5070     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
5071
5072     hres = IHTMLWindow2_get_location(window, &location2);
5073     ok(hres == S_OK, "get_location failed: %08x\n", hres);
5074     ok(location == location2, "location != location2\n");
5075     IHTMLLocation_Release(location2);
5076
5077     test_ifaces((IUnknown*)location, location_iids);
5078     test_disp2((IUnknown*)location, &DIID_DispHTMLLocation, &IID_IHTMLLocation, "about:blank");
5079
5080     hres = IHTMLLocation_get_pathname(location, &str);
5081     ok(hres == S_OK, "get_pathname failed: %08x\n", hres);
5082     ok(!strcmp_wa(str, "blank"), "unexpected pathname %s\n", wine_dbgstr_w(str));
5083     SysFreeString(str);
5084
5085     hres = IHTMLLocation_get_href(location, NULL);
5086     ok(hres == E_POINTER, "get_href passed: %08x\n", hres);
5087
5088     hres = IHTMLLocation_get_href(location, &str);
5089     ok(hres == S_OK, "get_href failed: %08x\n", hres);
5090     ok(!strcmp_wa(str, "about:blank"), "unexpected href %s\n", wine_dbgstr_w(str));
5091     SysFreeString(str);
5092
5093     ref = IHTMLLocation_Release(location);
5094     ok(!ref, "location chould be destroyed here\n");
5095 }
5096
5097 static void test_plugins_col(IHTMLDocument2 *doc)
5098 {
5099     IHTMLPluginsCollection *col, *col2;
5100     IHTMLWindow2 *window;
5101     IOmNavigator *nav;
5102     ULONG ref;
5103     LONG len;
5104     HRESULT hres;
5105
5106     window = get_doc_window(doc);
5107     hres = IHTMLWindow2_get_navigator(window, &nav);
5108     IHTMLWindow2_Release(window);
5109
5110     hres = IOmNavigator_get_plugins(nav, &col);
5111     ok(hres == S_OK, "get_plugins failed: %08x\n", hres);
5112
5113     hres = IOmNavigator_get_plugins(nav, &col2);
5114     ok(hres == S_OK, "get_plugins failed: %08x\n", hres);
5115     ok(iface_cmp((IUnknown*)col, (IUnknown*)col2), "col != col2\n");
5116     IHTMLPluginsCollection_Release(col2);
5117
5118     test_disp2((IUnknown*)col, &DIID_DispCPlugins, &IID_IHTMLPluginsCollection, "[object]");
5119
5120     len = 0xdeadbeef;
5121     hres = IHTMLPluginsCollection_get_length(col, &len);
5122     ok(hres == S_OK, "get_length failed: %08x\n", hres);
5123     ok(!len, "length = %d\n", len);
5124
5125     ref = IHTMLPluginsCollection_Release(col);
5126     ok(!ref, "ref=%d\n", ref);
5127
5128     IOmNavigator_Release(nav);
5129 }
5130
5131 static void test_mime_types_col(IOmNavigator *nav)
5132 {
5133     IHTMLMimeTypesCollection *col, *col2;
5134     LONG length;
5135     ULONG ref;
5136     HRESULT hres;
5137
5138     hres = IOmNavigator_get_mimeTypes(nav, &col);
5139     ok(hres == S_OK, "get_mimeTypes failed: %08x\n", hres);
5140
5141     hres = IOmNavigator_get_mimeTypes(nav, &col2);
5142     ok(hres == S_OK, "get_mimeTypes failed: %08x\n", hres);
5143     ok(iface_cmp((IUnknown*)col, (IUnknown*)col2), "col != col2\n");
5144     IHTMLMimeTypesCollection_Release(col2);
5145
5146     test_disp((IUnknown*)col, &IID_IHTMLMimeTypesCollection, "[object]");
5147
5148     length = 0xdeadbeef;
5149     hres = IHTMLMimeTypesCollection_get_length(col, &length);
5150     ok(hres == S_OK, "get_length failed: %08x\n", hres);
5151     ok(!length, "length = %d\n", length);
5152
5153     ref = IHTMLMimeTypesCollection_Release(col);
5154     ok(!ref, "ref=%d\n", ref);
5155 }
5156
5157 #define test_framebase_name(a,b) _test_framebase_name(__LINE__,a,b)
5158 static void _test_framebase_name(unsigned line, IHTMLElement *elem, const char *name)
5159 {
5160     BSTR str = (void*)0xdeadbeef;
5161     IHTMLFrameBase *fbase;
5162     HRESULT hres;
5163
5164     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase, (void**)&fbase);
5165     ok(hres == S_OK, "Could not get IHTMLFrameBase interface: 0x%08x\n", hres);
5166
5167     hres = IHTMLFrameBase_get_name(fbase, &str);
5168     ok_(__FILE__,line)(hres == S_OK, "IHTMLFrameBase_get_name failed: 0x%08x\n", hres);
5169     if(name)
5170         ok_(__FILE__,line)(!strcmp_wa(str, name), "name = %s, expected %s\n", wine_dbgstr_w(str), name);
5171     else
5172         ok_(__FILE__,line)(!str, "name = %s, expected NULL\n", wine_dbgstr_w(str));
5173     SysFreeString(str);
5174
5175     IHTMLFrameBase_Release(fbase);
5176 }
5177
5178 #define test_framebase_put_name(a,b) _test_framebase_put_name(__LINE__,a,b)
5179 static void _test_framebase_put_name(unsigned line, IHTMLElement *elem, const char *name)
5180 {
5181     IHTMLFrameBase *fbase;
5182     HRESULT hres;
5183     BSTR str;
5184
5185     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFrameBase, (void**)&fbase);
5186     ok(hres == S_OK, "Could not get IHTMLFrameBase interface: 0x%08x\n", hres);
5187
5188     str = name ? a2bstr(name) : NULL;
5189     hres = IHTMLFrameBase_put_name(fbase, str);
5190     ok_(__FILE__,line)(hres == S_OK, "put_name failed: %08x\n", hres);
5191     SysFreeString(str);
5192
5193     _test_framebase_name(line, elem, name);
5194     IHTMLFrameBase_Release(fbase);
5195 }
5196
5197 #define test_framebase_marginheight(a,b) _test_framebase_marginheight(__LINE__,a,b)
5198 static void _test_framebase_marginheight(unsigned line, IHTMLFrameBase *framebase, const char *exval)
5199 {
5200     VARIANT v;
5201     HRESULT hres;
5202
5203     hres = IHTMLFrameBase_get_marginHeight(framebase, &v);
5204     ok_(__FILE__,line)(hres == S_OK, "get_marginHeight failed: %08x\n", hres);
5205     ok_(__FILE__,line)(V_VT(&v) == VT_BSTR, "V_VT(marginHeight) = %d\n", V_VT(&v));
5206     if(exval)
5207         ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&v), exval), "marginHeight = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), exval);
5208     else
5209         ok_(__FILE__,line)(!V_BSTR(&v), "marginHeight = %s, expected NULL\n", wine_dbgstr_w(V_BSTR(&v)));
5210     VariantClear(&v);
5211 }
5212
5213 #define set_framebase_marginheight(a,b) _set_framebase_marginheight(__LINE__,a,b)
5214 static void _set_framebase_marginheight(unsigned line, IHTMLFrameBase *framebase, const char *val)
5215 {
5216     VARIANT v;
5217     HRESULT hres;
5218
5219     V_VT(&v) = VT_BSTR;
5220     V_BSTR(&v) = a2bstr(val);
5221     hres = IHTMLFrameBase_put_marginHeight(framebase, v);
5222     ok_(__FILE__,line)(hres == S_OK, "put_marginHeight failed: %08x\n", hres);
5223     VariantClear(&v);
5224 }
5225
5226 #define test_framebase_marginwidth(a,b) _test_framebase_marginwidth(__LINE__,a,b)
5227 static void _test_framebase_marginwidth(unsigned line, IHTMLFrameBase *framebase, const char *exval)
5228 {
5229     VARIANT v;
5230     HRESULT hres;
5231
5232     hres = IHTMLFrameBase_get_marginWidth(framebase, &v);
5233     ok_(__FILE__,line)(hres == S_OK, "get_marginWidth failed: %08x\n", hres);
5234     ok_(__FILE__,line)(V_VT(&v) == VT_BSTR, "V_VT(marginWidth) = %d\n", V_VT(&v));
5235     if(exval)
5236         ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&v), exval), "marginWidth = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), exval);
5237     else
5238         ok_(__FILE__,line)(!V_BSTR(&v), "marginWidth = %s, expected NULL\n", wine_dbgstr_w(V_BSTR(&v)));
5239     VariantClear(&v);
5240 }
5241
5242 #define set_framebase_marginwidth(a,b) _set_framebase_marginwidth(__LINE__,a,b)
5243 static void _set_framebase_marginwidth(unsigned line, IHTMLFrameBase *framebase, const char *val)
5244 {
5245     VARIANT v;
5246     HRESULT hres;
5247
5248     V_VT(&v) = VT_BSTR;
5249     V_BSTR(&v) = a2bstr(val);
5250     hres = IHTMLFrameBase_put_marginWidth(framebase, v);
5251     ok_(__FILE__,line)(hres == S_OK, "put_marginWidth failed: %08x\n", hres);
5252     VariantClear(&v);
5253 }
5254
5255 static void test_framebase(IUnknown *unk)
5256 {
5257     IHTMLFrameBase *fbase;
5258     BSTR str;
5259     HRESULT hres;
5260
5261     /* get/put scrolling */
5262     hres = IUnknown_QueryInterface(unk, &IID_IHTMLFrameBase, (void**)&fbase);
5263     ok(hres == S_OK, "Could not get IHTMLFrameBase interface: 0x%08x\n", hres);
5264
5265     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5266     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5267     ok(!strcmp_wa(str, "auto"), "get_scrolling should have given 'auto', gave: %s\n", wine_dbgstr_w(str));
5268     SysFreeString(str);
5269
5270     str = a2bstr("no");
5271     hres = IHTMLFrameBase_put_scrolling(fbase, str);
5272     ok(hres == S_OK, "IHTMLFrameBase_put_scrolling failed: 0x%08x\n", hres);
5273     SysFreeString(str);
5274
5275     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5276     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5277     ok(!strcmp_wa(str, "no"), "get_scrolling should have given 'no', gave: %s\n", wine_dbgstr_w(str));
5278     SysFreeString(str);
5279
5280     str = a2bstr("junk");
5281     hres = IHTMLFrameBase_put_scrolling(fbase, str);
5282     ok(hres == E_INVALIDARG, "IHTMLFrameBase_put_scrolling should have failed "
5283             "with E_INVALIDARG, instead: 0x%08x\n", hres);
5284     SysFreeString(str);
5285
5286     hres = IHTMLFrameBase_get_scrolling(fbase, &str);
5287     ok(hres == S_OK, "IHTMLFrameBase_get_scrolling failed: 0x%08x\n", hres);
5288     ok(!strcmp_wa(str, "no"), "get_scrolling should have given 'no', gave: %s\n", wine_dbgstr_w(str));
5289     SysFreeString(str);
5290
5291     hres = IHTMLFrameBase_get_frameBorder(fbase, &str);
5292     ok(hres == S_OK, "get_frameBorder failed: %08x\n", hres);
5293     ok(!str, "frameBorder = %s\n", wine_dbgstr_w(str));
5294
5295     str = a2bstr("1");
5296     hres = IHTMLFrameBase_put_frameBorder(fbase, str);
5297     ok(hres == S_OK, "put_frameBorder failed: %08x\n", hres);
5298     SysFreeString(str);
5299
5300     hres = IHTMLFrameBase_get_frameBorder(fbase, &str);
5301     ok(hres == S_OK, "get_frameBorder failed: %08x\n", hres);
5302     ok(!strcmp_wa(str, "1"), "frameBorder = %s, expected \"1\"\n", wine_dbgstr_w(str));
5303
5304     test_framebase_marginheight(fbase, NULL);
5305     set_framebase_marginheight(fbase, "1px");
5306     test_framebase_marginheight(fbase, "1");
5307
5308     test_framebase_marginwidth(fbase, NULL);
5309     set_framebase_marginwidth(fbase, "2px");
5310     test_framebase_marginwidth(fbase, "2");
5311
5312     IHTMLFrameBase_Release(fbase);
5313 }
5314
5315 #define test_language_string(a,b) _test_language_string(__LINE__,a,b)
5316 static void _test_language_string(unsigned line, const WCHAR *lang, LCID lcid)
5317 {
5318     WCHAR buf[64];
5319     int res;
5320
5321     if(pLCIDToLocaleName) {
5322         res = pLCIDToLocaleName(lcid, buf, sizeof(buf)/sizeof(WCHAR), 0);
5323         ok_(__FILE__,line)(res, "LCIDToLocaleName failed: %u\n", GetLastError());
5324         ok_(__FILE__,line)(!lstrcmpW(lang, buf), "lang = %s, expected %s\n", wine_dbgstr_w(lang), wine_dbgstr_w(buf));
5325     }else {
5326         win_skip("LCIDToLocaleName not available, unable to test language string\n");
5327         ok_(__FILE__,line)(lang != NULL, "lang == NULL\n");
5328     }
5329 }
5330
5331 #define test_table_length(t,l)  _test_table_length(__LINE__,t,l)
5332 static void _test_table_length(unsigned line, IHTMLTable *table, LONG expect)
5333 {
5334     IHTMLElementCollection *col;
5335     HRESULT hres;
5336     LONG len;
5337
5338     hres = IHTMLTable_get_rows(table, &col);
5339     ok_(__FILE__,line)(hres == S_OK, "get_rows failed: %08x\n", hres);
5340     ok_(__FILE__,line)(col != NULL, "col = NULL\n");
5341     if (hres != S_OK || col == NULL)
5342         return;
5343     hres = IHTMLElementCollection_get_length(col, &len);
5344     ok_(__FILE__,line)(hres == S_OK, "get_length failed: %08x\n", hres);
5345     ok_(__FILE__,line)(len == expect, "Expect %d, got %d\n", expect, len);
5346
5347     IHTMLElementCollection_Release(col);
5348 }
5349
5350 static void test_navigator(IHTMLDocument2 *doc)
5351 {
5352     IHTMLWindow2 *window;
5353     IOmNavigator *navigator, *navigator2;
5354     VARIANT_BOOL b;
5355     char buf[512];
5356     DWORD size;
5357     ULONG ref;
5358     BSTR bstr;
5359     HRESULT hres;
5360
5361     static const WCHAR v40[] = {'4','.','0'};
5362
5363     hres = IHTMLDocument2_get_parentWindow(doc, &window);
5364     ok(hres == S_OK, "parentWidnow failed: %08x\n", hres);
5365
5366     hres = IHTMLWindow2_get_navigator(window, &navigator);
5367     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
5368     ok(navigator != NULL, "navigator == NULL\n");
5369     test_disp2((IUnknown*)navigator, &DIID_DispHTMLNavigator, &IID_IOmNavigator, "[object]");
5370
5371     hres = IHTMLWindow2_get_navigator(window, &navigator2);
5372     ok(hres == S_OK, "get_navigator failed: %08x\n", hres);
5373     ok(navigator != navigator2, "navigator2 != navihgator\n");
5374
5375     IHTMLWindow2_Release(window);
5376     IOmNavigator_Release(navigator2);
5377
5378     hres = IOmNavigator_get_appCodeName(navigator, &bstr);
5379     ok(hres == S_OK, "get_appCodeName failed: %08x\n", hres);
5380     ok(!strcmp_wa(bstr, "Mozilla"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
5381     SysFreeString(bstr);
5382
5383     bstr = NULL;
5384     hres = IOmNavigator_get_appName(navigator, &bstr);
5385     ok(hres == S_OK, "get_appName failed: %08x\n", hres);
5386     ok(!strcmp_wa(bstr, "Microsoft Internet Explorer"), "Unexpected appCodeName %s\n", wine_dbgstr_w(bstr));
5387     SysFreeString(bstr);
5388
5389     bstr = NULL;
5390     hres = IOmNavigator_get_platform(navigator, &bstr);
5391     ok(hres == S_OK, "get_platform failed: %08x\n", hres);
5392     ok(!strcmp_wa(bstr, sizeof(void*) == 8 ? "Win64" : "Win32")
5393        || (sizeof(void*) == 8 && broken(!strcmp_wa(bstr, "Win32") /* IE6 */)), "unexpected platform %s\n", wine_dbgstr_w(bstr));
5394     SysFreeString(bstr);
5395
5396     bstr = NULL;
5397     hres = IOmNavigator_get_cpuClass(navigator, &bstr);
5398     ok(hres == S_OK, "get_cpuClass failed: %08x\n", hres);
5399     ok(!strcmp_wa(bstr, sizeof(void*) == 8 ? "x64" : "x86"), "unexpected cpuClass %s\n", wine_dbgstr_w(bstr));
5400     SysFreeString(bstr);
5401
5402     bstr = NULL;
5403     hres = IOmNavigator_get_appVersion(navigator, &bstr);
5404     ok(hres == S_OK, "get_appVersion failed: %08x\n", hres);
5405     ok(!memcmp(bstr, v40, sizeof(v40)), "appVersion is %s\n", wine_dbgstr_w(bstr));
5406     SysFreeString(bstr);
5407
5408     bstr = NULL;
5409     hres = IOmNavigator_get_systemLanguage(navigator, &bstr);
5410     ok(hres == S_OK, "get_systemLanguage failed: %08x\n", hres);
5411     test_language_string(bstr, LOCALE_SYSTEM_DEFAULT);
5412     SysFreeString(bstr);
5413
5414     if (pGetUserDefaultUILanguage)
5415     {
5416         bstr = NULL;
5417         hres = IOmNavigator_get_browserLanguage(navigator, &bstr);
5418         ok(hres == S_OK, "get_browserLanguage failed: %08x\n", hres);
5419         test_language_string(bstr, pGetUserDefaultUILanguage());
5420         SysFreeString(bstr);
5421     }
5422     else
5423         win_skip("GetUserDefaultUILanguage not available\n");
5424
5425     bstr = NULL;
5426     hres = IOmNavigator_get_userLanguage(navigator, &bstr);
5427     ok(hres == S_OK, "get_userLanguage failed: %08x\n", hres);
5428     test_language_string(bstr, LOCALE_USER_DEFAULT);
5429     SysFreeString(bstr);
5430
5431     hres = IOmNavigator_toString(navigator, NULL);
5432     ok(hres == E_INVALIDARG, "toString failed: %08x\n", hres);
5433
5434     bstr = NULL;
5435     hres = IOmNavigator_toString(navigator, &bstr);
5436     ok(hres == S_OK, "toString failed: %08x\n", hres);
5437     ok(!strcmp_wa(bstr, "[object]"), "toString returned %s\n", wine_dbgstr_w(bstr));
5438     SysFreeString(bstr);
5439
5440     b = 100;
5441     hres = IOmNavigator_get_onLine(navigator, &b);
5442     ok(hres == S_OK, "get_onLine failed: %08x\n", hres);
5443     ok(b == VARIANT_TRUE, "onLine = %x\n", b);
5444
5445     size = sizeof(buf);
5446     hres = ObtainUserAgentString(0, buf, &size);
5447     ok(hres == S_OK, "ObtainUserAgentString failed: %08x\n", hres);
5448
5449     bstr = NULL;
5450     hres = IOmNavigator_get_userAgent(navigator, &bstr);
5451     ok(hres == S_OK, "get_userAgent failed: %08x\n", hres);
5452     ok(!strcmp_wa(bstr, buf), "userAgent returned %s, expected \"%s\"\n", wine_dbgstr_w(bstr), buf);
5453     SysFreeString(bstr);
5454
5455     if(!strncmp(buf, "Mozilla/", 8)) {
5456         bstr = NULL;
5457         hres = IOmNavigator_get_appVersion(navigator, &bstr);
5458         ok(hres == S_OK, "get_appVersion failed: %08x\n", hres);
5459         ok(!strcmp_wa(bstr, buf+8), "appVersion returned %s, expected \"%s\"\n", wine_dbgstr_w(bstr), buf+8);
5460         SysFreeString(bstr);
5461     }else {
5462         skip("nonstandard user agent\n");
5463     }
5464
5465     bstr = NULL;
5466     hres = IOmNavigator_get_appMinorVersion(navigator, &bstr);
5467     ok(hres == S_OK, "get_appMonorVersion failed: %08x\n", hres);
5468     ok(bstr != NULL, "appMinorVersion returned NULL\n");
5469     SysFreeString(bstr);
5470
5471     test_mime_types_col(navigator);
5472
5473     ref = IOmNavigator_Release(navigator);
5474     ok(!ref, "navigator should be destroyed here\n");
5475 }
5476
5477 static void test_screen(IHTMLWindow2 *window)
5478 {
5479     IHTMLScreen *screen, *screen2;
5480     IDispatchEx *dispex;
5481     RECT work_area;
5482     LONG l, exl;
5483     HDC hdc;
5484     HRESULT hres;
5485
5486     screen = NULL;
5487     hres = IHTMLWindow2_get_screen(window, &screen);
5488     ok(hres == S_OK, "get_screen failed: %08x\n", hres);
5489     ok(screen != NULL, "screen == NULL\n");
5490
5491     screen2 = NULL;
5492     hres = IHTMLWindow2_get_screen(window, &screen2);
5493     ok(hres == S_OK, "get_screen failed: %08x\n", hres);
5494     ok(screen2 != NULL, "screen == NULL\n");
5495     ok(iface_cmp((IUnknown*)screen2, (IUnknown*)screen), "screen2 != screen\n");
5496     IHTMLScreen_Release(screen2);
5497
5498     hres = IHTMLScreen_QueryInterface(screen, &IID_IDispatchEx, (void**)&dispex);
5499     ok(hres == S_OK || broken(hres == E_NOINTERFACE), "Could not get IDispatchEx interface: %08x\n", hres);
5500     if(SUCCEEDED(hres)) {
5501         test_disp((IUnknown*)screen, &DIID_DispHTMLScreen, "[object]");
5502         IDispatchEx_Release(dispex);
5503     }
5504
5505     hdc = CreateICA("DISPLAY", NULL, NULL, NULL);
5506
5507     exl = GetDeviceCaps(hdc, HORZRES);
5508     l = 0xdeadbeef;
5509     hres = IHTMLScreen_get_width(screen, &l);
5510     ok(hres == S_OK, "get_width failed: %08x\n", hres);
5511     ok(l == exl, "width = %d, expected %d\n", l, exl);
5512
5513     exl = GetDeviceCaps(hdc, VERTRES);
5514     l = 0xdeadbeef;
5515     hres = IHTMLScreen_get_height(screen, &l);
5516     ok(hres == S_OK, "get_height failed: %08x\n", hres);
5517     ok(l == exl, "height = %d, expected %d\n", l, exl);
5518
5519     exl = GetDeviceCaps(hdc, BITSPIXEL);
5520     l = 0xdeadbeef;
5521     hres = IHTMLScreen_get_colorDepth(screen, &l);
5522     ok(hres == S_OK, "get_height failed: %08x\n", hres);
5523     ok(l == exl, "height = %d, expected %d\n", l, exl);
5524
5525     DeleteObject(hdc);
5526
5527     SystemParametersInfoW(SPI_GETWORKAREA, 0, &work_area, 0);
5528
5529     l = 0xdeadbeef;
5530     hres = IHTMLScreen_get_availHeight(screen, &l);
5531     ok(hres == S_OK, "get_availHeight failed: %08x\n", hres);
5532     ok(l == work_area.bottom-work_area.top, "availHeight = %d, expected %d\n", l, work_area.bottom-work_area.top);
5533
5534     l = 0xdeadbeef;
5535     hres = IHTMLScreen_get_availWidth(screen, &l);
5536     ok(hres == S_OK, "get_availWidth failed: %08x\n", hres);
5537     ok(l == work_area.right-work_area.left, "availWidth = %d, expected %d\n", l, work_area.right-work_area.left);
5538
5539     IHTMLScreen_Release(screen);
5540 }
5541
5542 static void test_default_selection(IHTMLDocument2 *doc)
5543 {
5544     IHTMLSelectionObject *selection;
5545     IHTMLTxtRange *range;
5546     IDispatch *disp;
5547     BSTR str;
5548     HRESULT hres;
5549
5550     hres = IHTMLDocument2_get_selection(doc, &selection);
5551     ok(hres == S_OK, "get_selection failed: %08x\n", hres);
5552
5553     hres = IHTMLSelectionObject_get_type(selection, &str);
5554     ok(hres == S_OK, "get_type failed: %08x\n", hres);
5555     ok(!strcmp_wa(str, "None"), "type = %s\n", wine_dbgstr_w(str));
5556     SysFreeString(str);
5557
5558     hres = IHTMLSelectionObject_createRange(selection, &disp);
5559     IHTMLSelectionObject_Release(selection);
5560     ok(hres == S_OK, "createRange failed: %08x\n", hres);
5561
5562     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTxtRange, (void**)&range);
5563     IDispatch_Release(disp);
5564     ok(hres == S_OK, "Could not get IHTMLTxtRange interface: %08x\n", hres);
5565
5566     test_range_text(range, NULL);
5567     IHTMLTxtRange_Release(range);
5568 }
5569
5570 static void test_doc_elem(IHTMLDocument2 *doc)
5571 {
5572     IHTMLDocument2 *doc_node, *owner_doc;
5573     IHTMLElement *elem;
5574     IHTMLDocument3 *doc3;
5575     HRESULT hres;
5576     BSTR bstr;
5577
5578     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
5579     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
5580
5581     hres = IHTMLDocument2_toString(doc, &bstr);
5582     ok(hres == S_OK, "toString failed: %08x\n", hres);
5583     ok(!strcmp_wa(bstr, "[object]"),
5584             "toString returned %s, expected [object]\n", wine_dbgstr_w(bstr));
5585     SysFreeString(bstr);
5586
5587     hres = IHTMLDocument3_get_documentElement(doc3, &elem);
5588     IHTMLDocument3_Release(doc3);
5589     ok(hres == S_OK, "get_documentElement failed: %08x\n", hres);
5590
5591     test_node_name((IUnknown*)elem, "HTML");
5592     test_elem_tag((IUnknown*)elem, "HTML");
5593
5594     doc_node = get_doc_node(doc);
5595     owner_doc = get_owner_doc((IUnknown*)elem);
5596     ok(iface_cmp((IUnknown *)doc_node, (IUnknown *)owner_doc), "doc_node != owner_doc\n");
5597     IHTMLDocument2_Release(owner_doc);
5598
5599     owner_doc = get_owner_doc((IUnknown*)doc_node);
5600     ok(!owner_doc, "owner_doc = %p\n", owner_doc);
5601     IHTMLDocument2_Release(doc_node);
5602
5603     test_elem_client_rect((IUnknown*)elem);
5604
5605     IHTMLElement_Release(elem);
5606 }
5607
5608 static void test_default_body(IHTMLBodyElement *body)
5609 {
5610     LONG l;
5611     BSTR bstr;
5612     HRESULT hres;
5613     VARIANT v;
5614
5615     bstr = (void*)0xdeadbeef;
5616     hres = IHTMLBodyElement_get_background(body, &bstr);
5617     ok(hres == S_OK, "get_background failed: %08x\n", hres);
5618     ok(bstr == NULL, "bstr != NULL\n");
5619
5620     l = elem_get_scroll_height((IUnknown*)body);
5621     ok(l != -1, "scrollHeight == -1\n");
5622     l = elem_get_scroll_width((IUnknown*)body);
5623     ok(l != -1, "scrollWidth == -1\n");
5624     l = elem_get_scroll_top((IUnknown*)body);
5625     ok(!l, "scrollTop = %d\n", l);
5626     elem_get_scroll_left((IUnknown*)body);
5627
5628     /* get_text tests */
5629     hres = IHTMLBodyElement_get_text(body, &v);
5630     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
5631     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
5632     ok(V_BSTR(&v) == NULL, "bstr != NULL\n");
5633
5634     /* get_text - Invalid Text */
5635     V_VT(&v) = VT_BSTR;
5636     V_BSTR(&v) = a2bstr("Invalid");
5637     hres = IHTMLBodyElement_put_text(body, v);
5638     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
5639     VariantClear(&v);
5640
5641     V_VT(&v) = VT_NULL;
5642     hres = IHTMLBodyElement_get_text(body, &v);
5643     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
5644     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
5645     ok(!strcmp_wa(V_BSTR(&v), "#00a0d0"), "v = %s, expected '#00a0d0'\n", wine_dbgstr_w(V_BSTR(&v)));
5646     VariantClear(&v);
5647
5648     /* get_text - Valid Text */
5649     V_VT(&v) = VT_BSTR;
5650     V_BSTR(&v) = a2bstr("#FF0000");
5651     hres = IHTMLBodyElement_put_text(body, v);
5652     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
5653     VariantClear(&v);
5654
5655     V_VT(&v) = VT_NULL;
5656     hres = IHTMLBodyElement_get_text(body, &v);
5657     ok(hres == S_OK, "expect S_OK got 0x%08d\n", hres);
5658     ok(V_VT(&v) == VT_BSTR, "Expected VT_BSTR got %d\n", V_VT(&v));
5659     ok(!strcmp_wa(V_BSTR(&v), "#ff0000"), "v = %s, expected '#ff0000'\n", wine_dbgstr_w(V_BSTR(&v)));
5660     VariantClear(&v);
5661 }
5662
5663 #define test_body_scroll(a,b) _test_body_scroll(__LINE__,a,b)
5664 static void _test_body_scroll(unsigned line, IHTMLBodyElement *body, const char *ex)
5665 {
5666     BSTR str;
5667     HRESULT hres;
5668
5669     hres = IHTMLBodyElement_get_scroll(body, &str);
5670     ok_(__FILE__,line)(hres == S_OK, "get_scroll failed: %08x\n", hres);
5671     ok_(__FILE__,line)(ex ? !strcmp_wa(str, ex) : !str, "scroll = %s\n", wine_dbgstr_w(str));
5672     SysFreeString(str);
5673 }
5674
5675 #define set_body_scroll(a,b) _set_body_scroll(__LINE__,a,b)
5676 static void _set_body_scroll(unsigned line, IHTMLBodyElement *body, const char *val)
5677 {
5678     BSTR str = a2bstr(val);
5679     HRESULT hres;
5680
5681     hres = IHTMLBodyElement_put_scroll(body, str);
5682     ok_(__FILE__,line)(hres == S_OK, "put_scroll failed: %08x\n", hres);
5683     SysFreeString(str);
5684
5685     _test_body_scroll(line, body, val);
5686 }
5687
5688 static void test_body_funs(IHTMLBodyElement *body)
5689 {
5690     VARIANT vbg, vDefaultbg;
5691     HRESULT hres;
5692
5693     hres = IHTMLBodyElement_get_bgColor(body, &vDefaultbg);
5694     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
5695     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
5696     ok(!V_BSTR(&vDefaultbg), "V_BSTR(bgColor) = %s\n", wine_dbgstr_w(V_BSTR(&vDefaultbg)));
5697
5698     V_VT(&vbg) = VT_BSTR;
5699     V_BSTR(&vbg) = a2bstr("red");
5700     hres = IHTMLBodyElement_put_bgColor(body, vbg);
5701     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
5702     VariantClear(&vbg);
5703
5704     hres = IHTMLBodyElement_get_bgColor(body, &vbg);
5705     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
5706     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
5707     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
5708     VariantClear(&vbg);
5709
5710     /* Restore Originial */
5711     hres = IHTMLBodyElement_put_bgColor(body, vDefaultbg);
5712     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
5713     VariantClear(&vDefaultbg);
5714
5715     test_body_scroll(body, NULL);
5716     set_body_scroll(body, "yes");
5717     set_body_scroll(body, "no");
5718     set_body_scroll(body, "auto");
5719 }
5720
5721 static void test_history(IHTMLWindow2 *window)
5722 {
5723     IOmHistory *history, *history2;
5724     HRESULT hres;
5725
5726     history = NULL;
5727     hres = IHTMLWindow2_get_history(window, &history);
5728     ok(hres == S_OK, "get_history failed: %08x\n", hres);
5729     ok(history != NULL, "history = NULL\n");
5730
5731     test_disp2((IUnknown*)history, &DIID_DispHTMLHistory, &IID_IOmHistory, "[object]");
5732
5733     history2 = NULL;
5734     hres = IHTMLWindow2_get_history(window, &history2);
5735     ok(hres == S_OK, "get_history failed: %08x\n", hres);
5736     ok(history2 != NULL, "history2 = NULL\n");
5737     ok(iface_cmp((IUnknown*)history, (IUnknown*)history2), "history != history2\n");
5738
5739     IOmHistory_Release(history2);
5740     IOmHistory_Release(history);
5741 }
5742
5743 static void test_window(IHTMLDocument2 *doc)
5744 {
5745     IHTMLWindow2 *window, *window2, *self, *parent;
5746     IHTMLDocument2 *doc2 = NULL;
5747     IDispatch *disp;
5748     IUnknown *unk;
5749     VARIANT v;
5750     BSTR str;
5751     HRESULT hres;
5752
5753     hres = IHTMLDocument2_get_parentWindow(doc, &window);
5754     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
5755     test_ifaces((IUnknown*)window, window_iids);
5756     hres = IHTMLWindow2_QueryInterface(window, &IID_ITravelLogClient, (void**)&unk);
5757     if(hres == S_OK)
5758         IUnknown_Release(unk);
5759     else
5760         win_skip("IID_ITravelLogClient not supported\n");
5761
5762     test_disp((IUnknown*)window, &DIID_DispHTMLWindow2, "[object]");
5763
5764     hres = IHTMLWindow2_get_document(window, &doc2);
5765     ok(hres == S_OK, "get_document failed: %08x\n", hres);
5766     ok(doc2 != NULL, "doc2 == NULL\n");
5767
5768     test_ifaces((IUnknown*)doc2, doc_node_iids);
5769     test_disp((IUnknown*)doc2, &DIID_DispHTMLDocument, "[object]");
5770     test_class_info((IUnknown*)doc2);
5771
5772     test_ifaces((IUnknown*)doc, doc_obj_iids);
5773     test_disp((IUnknown*)doc, &DIID_DispHTMLDocument, "[object]");
5774     test_class_info((IUnknown*)doc);
5775
5776     unk = (void*)0xdeadbeef;
5777     hres = IHTMLDocument2_QueryInterface(doc2, &IID_ICustomDoc, (void**)&unk);
5778     ok(hres == E_NOINTERFACE, "QueryInterface(IID_ICustomDoc) returned: %08x\n", hres);
5779     ok(!unk, "unk = %p\n", unk);
5780
5781     IHTMLDocument2_Release(doc2);
5782
5783     hres = IHTMLWindow2_get_window(window, &window2);
5784     ok(hres == S_OK, "get_window failed: %08x\n", hres);
5785     ok(window2 != NULL, "window2 == NULL\n");
5786
5787     hres = IHTMLWindow2_get_self(window, &self);
5788     ok(hres == S_OK, "get_self failed: %08x\n", hres);
5789     ok(window2 != NULL, "self == NULL\n");
5790
5791     ok(self == window2, "self != window2\n");
5792
5793     IHTMLWindow2_Release(window2);
5794
5795     disp = NULL;
5796     hres = IHTMLDocument2_get_Script(doc, &disp);
5797     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
5798     ok(disp == (void*)window, "disp != window\n");
5799     IDispatch_Release(disp);
5800
5801     hres = IHTMLWindow2_toString(window, NULL);
5802     ok(hres == E_INVALIDARG, "toString failed: %08x\n", hres);
5803
5804     str = NULL;
5805     hres = IHTMLWindow2_toString(window, &str);
5806     ok(hres == S_OK, "toString failed: %08x\n", hres);
5807     ok(!strcmp_wa(str, "[object]") ||
5808        !strcmp_wa(str, "[object Window]") /* win7 ie9 */, "toString returned %s\n", wine_dbgstr_w(str));
5809     SysFreeString(str);
5810
5811     V_VT(&v) = VT_ERROR;
5812     hres = IHTMLWindow2_get_opener(window, &v);
5813     ok(hres == S_OK, "get_opener failed: %08x\n", hres);
5814     ok(V_VT(&v) == VT_EMPTY, "V_VT(opener) = %d\n", V_VT(&v));
5815
5816     parent = NULL;
5817     hres = IHTMLWindow2_get_parent(window, &parent);
5818     ok(hres == S_OK, "get_parent failed: %08x\n", hres);
5819     ok(parent != NULL, "parent == NULL\n");
5820     ok(parent == self, "parent != window\n");
5821     IHTMLWindow2_Release(parent);
5822     IHTMLWindow2_Release(self);
5823
5824     test_window_name(window, NULL);
5825     set_window_name(window, "test");
5826     test_window_length(window, 0);
5827     test_screen(window);
5828     test_window_status(window);
5829     set_window_status(window, "Test!");
5830     test_history(window);
5831
5832     IHTMLWindow2_Release(window);
5833 }
5834
5835 static void test_dom_implementation(IHTMLDocument2 *doc)
5836 {
5837     IHTMLDocument5 *doc5 = get_htmldoc5_iface((IUnknown*)doc);
5838     IHTMLDOMImplementation *dom_implementation;
5839     VARIANT_BOOL b;
5840     VARIANT v;
5841     BSTR str;
5842     HRESULT hres;
5843
5844     hres = IHTMLDocument5_get_implementation(doc5, &dom_implementation);
5845     IHTMLDocument5_Release(doc5);
5846     ok(hres == S_OK, "get_implementation failed: %08x\n", hres);
5847     ok(dom_implementation != NULL, "dom_implementation == NULL\n");
5848
5849     str = a2bstr("test");
5850     V_VT(&v) = VT_BSTR;
5851     V_BSTR(&v) = a2bstr("1.0");
5852     b = 100;
5853     hres = IHTMLDOMImplementation_hasFeature(dom_implementation, str, v, &b);
5854     SysFreeString(str);
5855     VariantClear(&v);
5856     ok(hres == S_OK, "hasFeature failed: %08x\n", hres);
5857     ok(!b, "hasFeature returned %x\n", b);
5858
5859     IHTMLDOMImplementation_Release(dom_implementation);
5860 }
5861
5862 static void test_defaults(IHTMLDocument2 *doc)
5863 {
5864     IHTMLStyleSheetsCollection *stylesheetcol;
5865     IHTMLCurrentStyle *cstyle;
5866     IHTMLBodyElement *body;
5867     IHTMLElement2 *elem2;
5868     IHTMLElement *elem;
5869     IHTMLStyle *style;
5870     BSTR str;
5871     LONG l;
5872     HRESULT hres;
5873     IHTMLElementCollection *collection;
5874
5875     elem = doc_get_body(doc);
5876
5877     hres = IHTMLDocument2_get_images(doc, NULL);
5878     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
5879
5880     hres = IHTMLDocument2_get_images(doc, &collection);
5881     ok(hres == S_OK, "get_images failed: %08x\n", hres);
5882     if(hres == S_OK)
5883     {
5884         test_elem_collection((IUnknown*)collection, NULL, 0);
5885         IHTMLElementCollection_Release(collection);
5886     }
5887
5888     hres = IHTMLDocument2_get_applets(doc, NULL);
5889     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
5890
5891     hres = IHTMLDocument2_get_applets(doc, &collection);
5892     ok(hres == S_OK, "get_applets failed: %08x\n", hres);
5893     if(hres == S_OK)
5894     {
5895         test_elem_collection((IUnknown*)collection, NULL, 0);
5896         IHTMLElementCollection_Release(collection);
5897     }
5898
5899     hres = IHTMLDocument2_get_links(doc, NULL);
5900     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
5901
5902     hres = IHTMLDocument2_get_links(doc, &collection);
5903     ok(hres == S_OK, "get_links failed: %08x\n", hres);
5904     if(hres == S_OK)
5905     {
5906         test_elem_collection((IUnknown*)collection, NULL, 0);
5907         IHTMLElementCollection_Release(collection);
5908     }
5909
5910     hres = IHTMLDocument2_get_forms(doc, NULL);
5911     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
5912
5913     hres = IHTMLDocument2_get_forms(doc, &collection);
5914     ok(hres == S_OK, "get_forms failed: %08x\n", hres);
5915     if(hres == S_OK)
5916     {
5917         test_elem_collection((IUnknown*)collection, NULL, 0);
5918         IHTMLElementCollection_Release(collection);
5919     }
5920
5921     hres = IHTMLDocument2_get_anchors(doc, NULL);
5922     ok(hres == E_INVALIDARG, "hres %08x\n", hres);
5923
5924     hres = IHTMLDocument2_get_anchors(doc, &collection);
5925     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
5926     if(hres == S_OK)
5927     {
5928         test_elem_collection((IUnknown*)collection, NULL, 0);
5929         IHTMLElementCollection_Release(collection);
5930     }
5931
5932     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLBodyElement, (void**)&body);
5933     ok(hres == S_OK, "Could not get IHTMBodyElement: %08x\n", hres);
5934     test_default_body(body);
5935     test_body_funs(body);
5936     IHTMLBodyElement_Release(body);
5937
5938     hres = IHTMLElement_get_style(elem, &style);
5939     ok(hres == S_OK, "get_style failed: %08x\n", hres);
5940
5941     test_disp((IUnknown*)style, &DIID_DispHTMLStyle, "[object]");
5942     test_ifaces((IUnknown*)style, style_iids);
5943     IHTMLStyle_Release(style);
5944
5945     str = NULL;
5946     hres = IHTMLDocument2_get_charset(doc, &str);
5947     ok(hres == S_OK, "get_charset failed: %08x\n", hres);
5948     ok(str && *str, "charset is empty\n"); /* FIXME: better tests */
5949     SysFreeString(str);
5950
5951     test_window(doc);
5952     test_compatmode(doc, "BackCompat");
5953     test_location(doc);
5954     test_navigator(doc);
5955     test_plugins_col(doc);
5956
5957     elem2 = get_elem2_iface((IUnknown*)elem);
5958     hres = IHTMLElement2_get_currentStyle(elem2, &cstyle);
5959     ok(hres == S_OK, "get_currentStyle failed: %08x\n", hres);
5960     if(SUCCEEDED(hres)) {
5961         IUnknown *unk;
5962
5963         test_disp((IUnknown*)cstyle, &DIID_DispHTMLCurrentStyle, "[object]");
5964         test_ifaces((IUnknown*)cstyle, cstyle_iids);
5965
5966         hres = IHTMLCurrentStyle_QueryInterface(cstyle, &IID_IHTMLCurrentStyle4, (void**)&unk);
5967         if(SUCCEEDED(hres))
5968             IUnknown_Release(unk);
5969         else
5970         {
5971            /*IE6 doesn't have interface */
5972            win_skip("IID_IHTMLCurrentStyle4 not supported\n");
5973         }
5974
5975         IHTMLCurrentStyle_Release(cstyle);
5976     }
5977     IHTMLElement2_Release(elem2);
5978
5979     IHTMLElement_Release(elem);
5980
5981     hres = IHTMLDocument2_get_styleSheets(doc, &stylesheetcol);
5982     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
5983
5984     l = 0xdeadbeef;
5985     hres = IHTMLStyleSheetsCollection_get_length(stylesheetcol, &l);
5986     ok(hres == S_OK, "get_length failed: %08x\n", hres);
5987     ok(l == 0, "length = %d\n", l);
5988
5989     IHTMLStyleSheetsCollection_Release(stylesheetcol);
5990
5991     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFiltersCollection, (void**)&body);
5992     ok(hres == E_NOINTERFACE, "got interface IHTMLFiltersCollection\n");
5993
5994     test_default_selection(doc);
5995     test_doc_title(doc, "");
5996     test_dom_implementation(doc);
5997 }
5998
5999 #define test_button_name(a,b) _test_button_name(__LINE__,a,b)
6000 static void _test_button_name(unsigned line, IHTMLElement *elem, const char *exname)
6001 {
6002     IHTMLButtonElement *button = _get_button_iface(line, (IUnknown*)elem);
6003     BSTR str;
6004     HRESULT hres;
6005
6006     str = (void*)0xdeadbeef;
6007     hres = IHTMLButtonElement_get_name(button, &str);
6008     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
6009     if(exname)
6010         ok_(__FILE__,line)(!strcmp_wa(str, exname), "name = %s, expected %s\n", wine_dbgstr_w(str), exname);
6011     else
6012         ok_(__FILE__,line)(!str, "name = %s, expected NULL\n", wine_dbgstr_w(str));
6013     SysFreeString(str);
6014     IHTMLButtonElement_Release(button);
6015 }
6016
6017 #define set_button_name(a,b) _set_button_name(__LINE__,a,b)
6018 static void _set_button_name(unsigned line, IHTMLElement *elem, const char *name)
6019 {
6020     IHTMLButtonElement *button = _get_button_iface(line, (IUnknown*)elem);
6021     BSTR str = a2bstr(name);
6022     HRESULT hres;
6023
6024     hres = IHTMLButtonElement_put_name(button, str);
6025     ok_(__FILE__,line)(hres == S_OK, "get_name failed: %08x\n", hres);
6026     SysFreeString(str);
6027     IHTMLButtonElement_Release(button);
6028
6029     _test_button_name(line, elem, name);
6030 }
6031
6032 #define test_button_get_disabled(i,b) _test_button_get_disabled(__LINE__,i,b)
6033 static void _test_button_get_disabled(unsigned line, IHTMLElement *elem, VARIANT_BOOL exb)
6034 {
6035     IHTMLButtonElement *button = _get_button_iface(line, (IUnknown*)elem);
6036     VARIANT_BOOL disabled = 100;
6037     HRESULT hres;
6038
6039     hres = IHTMLButtonElement_get_disabled(button, &disabled);
6040     ok_(__FILE__,line) (hres == S_OK, "get_disabled failed: %08x\n", hres);
6041     ok_(__FILE__,line) (disabled == exb, "disabled=%x, expected %x\n", disabled, exb);
6042     IHTMLButtonElement_Release(button);
6043
6044     _test_elem3_get_disabled(line, (IUnknown*)elem, exb);
6045 }
6046
6047 #define test_button_set_disabled(i,b) _test_button_set_disabled(__LINE__,i,b)
6048 static void _test_button_set_disabled(unsigned line, IHTMLElement *elem, VARIANT_BOOL b)
6049 {
6050     IHTMLButtonElement *button = _get_button_iface(line, (IUnknown*)elem);
6051     HRESULT hres;
6052
6053     hres = IHTMLButtonElement_put_disabled(button, b);
6054     ok_(__FILE__,line) (hres == S_OK, "put_disabled failed: %08x\n", hres);
6055     IHTMLButtonElement_Release(button);
6056
6057     _test_button_get_disabled(line, elem, b);
6058 }
6059
6060 static void test_button_elem(IHTMLElement *elem)
6061 {
6062     test_button_name(elem, NULL);
6063     set_button_name(elem, "button name");
6064 }
6065
6066 #define test_tr_possess(e,r,l,i) _test_tr_possess(__LINE__,e,r,l,i)
6067 static void _test_tr_possess(unsigned line, IHTMLElement *elem,
6068                             IHTMLTableRow *row, LONG len, const char *id)
6069 {
6070     IHTMLElementCollection *col;
6071     IDispatch *disp;
6072     HRESULT hres;
6073     LONG lval;
6074     VARIANT var;
6075
6076     hres = IHTMLTableRow_get_cells(row, &col);
6077     ok_(__FILE__, line)(hres == S_OK, "get_cells failed: %08x\n", hres);
6078     ok_(__FILE__, line)(col != NULL, "get_cells returned NULL\n");
6079
6080     hres = IHTMLElementCollection_get_length(col, &lval);
6081     ok_(__FILE__, line)(hres == S_OK, "get length failed: %08x\n", hres);
6082     ok_(__FILE__, line)(lval == len, "expected len = %d, got %d\n", len, lval);
6083
6084     V_VT(&var) = VT_BSTR;
6085     V_BSTR(&var) = a2bstr(id);
6086     hres = IHTMLElementCollection_tags(col, var, &disp);
6087     ok_(__FILE__, line)(hres == S_OK, "search by tags(%s) failed: %08x\n", id, hres);
6088     ok_(__FILE__, line)(disp != NULL, "disp == NULL\n");
6089
6090     VariantClear(&var);
6091     IDispatch_Release(disp);
6092     IHTMLElementCollection_Release(col);
6093 }
6094
6095 static void test_tr_modify(IHTMLElement *elem, IHTMLTableRow *row)
6096 {
6097     HRESULT hres;
6098     IDispatch *disp;
6099     IHTMLTableCell *cell;
6100
6101     hres = IHTMLTableRow_deleteCell(row, 0);
6102     ok(hres == S_OK, "deleteCell failed: %08x\n", hres);
6103     test_tr_possess(elem, row, 1, "td2");
6104
6105     hres = IHTMLTableRow_insertCell(row, 0, &disp);
6106     ok(hres == S_OK, "insertCell failed: %08x\n", hres);
6107     ok(disp != NULL, "disp == NULL\n");
6108     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTableCell, (void **)&cell);
6109     ok(hres == S_OK, "Could not get IID_IHTMLTableCell interface: %08x\n", hres);
6110     ok(cell != NULL, "cell == NULL\n");
6111     if (SUCCEEDED(hres))
6112         IHTMLTableCell_Release(cell);
6113     test_tr_possess(elem, row, 2, "td2");
6114     IDispatch_Release(disp);
6115 }
6116
6117 static void test_tr_elem(IHTMLElement *elem)
6118 {
6119     IHTMLElementCollection *col;
6120     IHTMLTableRow *row;
6121     HRESULT hres;
6122     BSTR bstr;
6123     LONG lval;
6124     VARIANT vbg, vDefaultbg;
6125
6126     static const elem_type_t cell_types[] = {ET_TD,ET_TD};
6127
6128     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTableRow, (void**)&row);
6129     ok(hres == S_OK, "Could not get IHTMLTableRow iface: %08x\n", hres);
6130     if(FAILED(hres))
6131         return;
6132
6133     col = NULL;
6134     hres = IHTMLTableRow_get_cells(row, &col);
6135     ok(hres == S_OK, "get_cells failed: %08x\n", hres);
6136     ok(col != NULL, "get_cells returned NULL\n");
6137
6138     test_elem_collection((IUnknown*)col, cell_types, sizeof(cell_types)/sizeof(*cell_types));
6139     IHTMLElementCollection_Release(col);
6140
6141     bstr = a2bstr("left");
6142     hres = IHTMLTableRow_put_align(row, bstr);
6143     ok(hres == S_OK, "set_align failed: %08x\n", hres);
6144     SysFreeString(bstr);
6145
6146     bstr = NULL;
6147     hres = IHTMLTableRow_get_align(row, &bstr);
6148     ok(hres == S_OK, "get_align failed: %08x\n", hres);
6149     ok(bstr != NULL, "get_align returned NULL\n");
6150     ok(!strcmp_wa(bstr, "left"), "get_align returned %s\n", wine_dbgstr_w(bstr));
6151     SysFreeString(bstr);
6152
6153     bstr = a2bstr("top");
6154     hres = IHTMLTableRow_put_vAlign(row, bstr);
6155     ok(hres == S_OK, "set_valign failed: %08x\n", hres);
6156     SysFreeString(bstr);
6157
6158     bstr = NULL;
6159     hres = IHTMLTableRow_get_vAlign(row, &bstr);
6160     ok(hres == S_OK, "get_valign failed: %08x\n", hres);
6161     ok(bstr != NULL, "get_valign returned NULL\n");
6162     ok(!strcmp_wa(bstr, "top"), "get_valign returned %s\n", wine_dbgstr_w(bstr));
6163     SysFreeString(bstr);
6164
6165     lval = 0xdeadbeef;
6166     hres = IHTMLTableRow_get_rowIndex(row, &lval);
6167     ok(hres == S_OK, "get_rowIndex failed: %08x\n", hres);
6168     ok(lval == 1, "get_rowIndex returned %d\n", lval);
6169
6170     lval = 0xdeadbeef;
6171     hres = IHTMLTableRow_get_sectionRowIndex(row, &lval);
6172     ok(hres == S_OK, "get_sectionRowIndex failed: %08x\n", hres);
6173     ok(lval == 1, "get_sectionRowIndex returned %d\n", lval);
6174
6175     hres = IHTMLTableRow_get_bgColor(row, &vDefaultbg);
6176     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6177     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
6178     ok(!V_BSTR(&vDefaultbg), "V_BSTR(bgColor) = %s\n", wine_dbgstr_w(V_BSTR(&vDefaultbg)));
6179
6180     V_VT(&vbg) = VT_BSTR;
6181     V_BSTR(&vbg) = a2bstr("red");
6182     hres = IHTMLTableRow_put_bgColor(row, vbg);
6183     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6184     VariantClear(&vbg);
6185
6186     hres = IHTMLTableRow_get_bgColor(row, &vbg);
6187     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6188     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6189     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6190     VariantClear(&vbg);
6191
6192     V_VT(&vbg) = VT_I4;
6193     V_I4(&vbg) = 0xff0000;
6194     hres = IHTMLTableRow_put_bgColor(row, vbg);
6195     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6196     VariantClear(&vbg);
6197
6198     hres = IHTMLTableRow_get_bgColor(row, &vbg);
6199     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6200     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6201     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6202     VariantClear(&vbg);
6203
6204     /* Restore Originial */
6205     hres = IHTMLTableRow_put_bgColor(row, vDefaultbg);
6206     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6207     VariantClear(&vDefaultbg);
6208
6209     test_tr_modify(elem, row);
6210
6211     IHTMLTableRow_Release(row);
6212 }
6213
6214 static void test_td_elem(IHTMLElement *elem)
6215 {
6216     IHTMLTableCell *cell;
6217     HRESULT hres;
6218     LONG lval;
6219     BSTR str;
6220     VARIANT vbg, vDefaultbg;
6221
6222     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTableCell, (void**)&cell);
6223     ok(hres == S_OK, "Could not get IHTMLTableRow iface: %08x\n", hres);
6224     if(FAILED(hres))
6225         return;
6226
6227     lval = 0xdeadbeef;
6228     hres = IHTMLTableCell_get_cellIndex(cell, &lval);
6229     ok(hres == S_OK, "get cellIndex failed: %08x\n", hres);
6230     ok(lval == 1, "Expected 1, got %d\n", lval);
6231
6232     str = a2bstr("left");
6233     hres = IHTMLTableCell_put_align(cell, str);
6234     ok(hres == S_OK, "put_align failed: %08x\n", hres);
6235     SysFreeString(str);
6236
6237     str = NULL;
6238     hres = IHTMLTableCell_get_align(cell, &str);
6239     ok(hres == S_OK, "get_align failed: %08x\n", hres);
6240     ok(str != NULL, "str is NULL\n");
6241     if (str != NULL && hres == S_OK) {
6242         ok(!strcmp_wa(str, "left"), "got %s\n", wine_dbgstr_w(str));
6243         SysFreeString(str);
6244     }
6245
6246     hres = IHTMLTableCell_get_bgColor(cell, &vDefaultbg);
6247     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6248     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
6249     ok(!V_BSTR(&vDefaultbg), "V_BSTR(bgColor) = %s\n", wine_dbgstr_w(V_BSTR(&vDefaultbg)));
6250
6251     V_VT(&vbg) = VT_BSTR;
6252     V_BSTR(&vbg) = a2bstr("red");
6253     hres = IHTMLTableCell_put_bgColor(cell, vbg);
6254     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6255     VariantClear(&vbg);
6256
6257     hres = IHTMLTableCell_get_bgColor(cell, &vbg);
6258     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6259     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6260     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6261     VariantClear(&vbg);
6262
6263     V_VT(&vbg) = VT_I4;
6264     V_I4(&vbg) = 0xff0000;
6265     hres = IHTMLTableCell_put_bgColor(cell, vbg);
6266     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6267     VariantClear(&vbg);
6268
6269     hres = IHTMLTableCell_get_bgColor(cell, &vbg);
6270     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6271     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6272     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6273     VariantClear(&vbg);
6274
6275     /* Restore Originial */
6276     hres = IHTMLTableCell_put_bgColor(cell, vDefaultbg);
6277     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6278     VariantClear(&vDefaultbg);
6279
6280     IHTMLTableCell_Release(cell);
6281 }
6282
6283 static void test_label_elem(IHTMLElement *elem)
6284 {
6285     IHTMLLabelElement *label;
6286     BSTR str;
6287     HRESULT hres;
6288
6289     label = get_label_iface((IUnknown*)elem);
6290
6291     str = NULL;
6292     hres = IHTMLLabelElement_get_htmlFor(label, &str);
6293     ok(hres == S_OK, "get_htmlFor failed: %08x\n", hres);
6294     ok(!strcmp_wa(str, "in"), "htmlFor = %s\n", wine_dbgstr_w(str));
6295     SysFreeString(str);
6296
6297     str = a2bstr("");
6298     hres = IHTMLLabelElement_put_htmlFor(label, str);
6299     ok(hres == S_OK, "put_htmlFor failed: %08x\n", hres);
6300     SysFreeString(str);
6301
6302     str = (void*)0xdeadbeef;
6303     hres = IHTMLLabelElement_get_htmlFor(label, &str);
6304     ok(hres == S_OK, "get_htmlFor failed: %08x\n", hres);
6305     ok(!strcmp_wa(str, ""), "htmlFor = %s\n", wine_dbgstr_w(str));
6306
6307     str = a2bstr("abc");
6308     hres = IHTMLLabelElement_put_htmlFor(label, str);
6309     ok(hres == S_OK, "put_htmlFor failed: %08x\n", hres);
6310     SysFreeString(str);
6311
6312     str = NULL;
6313     hres = IHTMLLabelElement_get_htmlFor(label, &str);
6314     ok(hres == S_OK, "get_htmlFor failed: %08x\n", hres);
6315     ok(!strcmp_wa(str, "abc"), "htmlFor = %s\n", wine_dbgstr_w(str));
6316     SysFreeString(str);
6317
6318     IHTMLLabelElement_Release(label);
6319 }
6320
6321 #define test_table_cell_spacing(a,b) _test_table_cell_spacing(__LINE__,a,b)
6322 static void _test_table_cell_spacing(unsigned line, IHTMLTable *table, const char *exstr)
6323 {
6324     VARIANT v;
6325     HRESULT hres;
6326
6327     V_VT(&v) = VT_ERROR;
6328     hres = IHTMLTable_get_cellSpacing(table, &v);
6329     ok_(__FILE__,line)(hres == S_OK, "get_cellSpacing failed: %08x\n", hres);
6330     ok_(__FILE__,line)(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
6331     if(exstr)
6332         ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&v), exstr), "cellSpacing = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), exstr);
6333     else
6334         ok_(__FILE__,line)(!V_BSTR(&v), "cellSpacing = %s, expected NULL\n", wine_dbgstr_w(V_BSTR(&v)));
6335     VariantClear(&v);
6336 }
6337
6338 static void test_table_modify(IHTMLTable *table)
6339 {
6340     IDispatch *disp;
6341     IHTMLTableRow *row;
6342     HRESULT hres;
6343     LONG index;
6344
6345     test_table_length(table, 2);
6346
6347     hres = IHTMLTable_insertRow(table, 0, &disp);
6348     ok(hres == S_OK, "insertRow failed: %08x\n", hres);
6349     ok(disp != NULL, "disp == NULL\n");
6350     test_table_length(table, 3);
6351     if (hres != S_OK || disp == NULL)
6352         return;
6353
6354     hres = IDispatch_QueryInterface(disp, &IID_IHTMLTableRow, (void**)&row);
6355     IDispatch_Release(disp);
6356
6357     ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
6358     ok(row != NULL, "row == NULL\n");
6359
6360     index = 0xdeadbeef;
6361     hres = IHTMLTableRow_get_rowIndex(row, &index);
6362     ok(hres == S_OK, "get_rowIndex failed: %08x\n", hres);
6363     ok(index == 0, "index = %d, expected 0\n", index);
6364
6365     IHTMLTableRow_Release(row);
6366
6367     hres = IHTMLTable_deleteRow(table, 0);
6368     ok(hres == S_OK, "deleteRow failed: %08x\n", hres);
6369     test_table_length(table, 2);
6370 }
6371
6372 static void test_table_elem(IHTMLElement *elem)
6373 {
6374     IHTMLElementCollection *col;
6375     IHTMLTable *table;
6376     IHTMLTable3 *table3;
6377     IHTMLDOMNode *node;
6378     VARIANT v;
6379     HRESULT hres;
6380     BSTR bstr;
6381     VARIANT vbg, vDefaultbg;
6382
6383     static const elem_type_t row_types[] = {ET_TR,ET_TR};
6384     static const elem_type_t all_types[] = {ET_TBODY,ET_TR,ET_TR,ET_TD,ET_TD};
6385     static const elem_type_t tbodies_types[] = {ET_TBODY};
6386
6387     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTable, (void**)&table);
6388     ok(hres == S_OK, "Could not get IHTMLTable iface: %08x\n", hres);
6389     if(FAILED(hres))
6390         return;
6391
6392     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLTable3, (void**)&table3);
6393     ok(hres == S_OK, "Could not get IHTMLTable3 iface: %08x\n", hres);
6394     if(FAILED(hres))
6395         return;
6396
6397     col = NULL;
6398     hres = IHTMLTable_get_rows(table, &col);
6399     ok(hres == S_OK, "get_rows failed: %08x\n", hres);
6400     ok(col != NULL, "get_rows returned NULL\n");
6401
6402     test_elem_collection((IUnknown*)col, row_types, sizeof(row_types)/sizeof(*row_types));
6403     IHTMLElementCollection_Release(col);
6404
6405     test_elem_all((IUnknown*)table, all_types, sizeof(all_types)/sizeof(*all_types));
6406
6407     node = clone_node((IUnknown*)table, VARIANT_TRUE);
6408     test_elem_tag((IUnknown*)node, "TABLE");
6409     test_elem_all((IUnknown*)node, all_types, sizeof(all_types)/sizeof(*all_types));
6410     IHTMLDOMNode_Release(node);
6411
6412     node = clone_node((IUnknown*)table, VARIANT_FALSE);
6413     test_elem_tag((IUnknown*)node, "TABLE");
6414     test_elem_all((IUnknown*)node, NULL, 0);
6415     IHTMLDOMNode_Release(node);
6416
6417     col = NULL;
6418     hres = IHTMLTable_get_tBodies(table, &col);
6419     ok(hres == S_OK, "get_tBodies failed: %08x\n", hres);
6420     ok(col != NULL, "get_tBodies returned NULL\n");
6421
6422     test_elem_collection((IUnknown*)col, tbodies_types, sizeof(tbodies_types)/sizeof(*tbodies_types));
6423     IHTMLElementCollection_Release(col);
6424
6425     test_table_cell_spacing(table, NULL);
6426
6427     V_VT(&v) = VT_I4;
6428     V_I4(&v) = 10;
6429     hres = IHTMLTable_put_cellSpacing(table, v);
6430     ok(hres == S_OK, "put_cellSpacing = %08x\n", hres);
6431     test_table_cell_spacing(table, "10");
6432
6433     V_VT(&v) = VT_BSTR;
6434     V_BSTR(&v) = a2bstr("11");
6435     hres = IHTMLTable_put_cellSpacing(table, v);
6436     ok(hres == S_OK, "put_cellSpacing = %08x\n", hres);
6437     test_table_cell_spacing(table, "11");
6438     VariantClear(&v);
6439
6440     bstr = a2bstr("left");
6441     hres = IHTMLTable_put_align(table, bstr);
6442     ok(hres == S_OK, "set_align failed: %08x\n", hres);
6443     SysFreeString(bstr);
6444
6445     bstr = NULL;
6446     hres = IHTMLTable_get_align(table, &bstr);
6447     ok(hres == S_OK, "get_align failed: %08x\n", hres);
6448     ok(bstr != NULL, "get_align returned NULL\n");
6449     ok(!strcmp_wa(bstr, "left"), "get_align returned %s\n", wine_dbgstr_w(bstr));
6450     SysFreeString(bstr);
6451
6452     hres = IHTMLTable_get_bgColor(table, &vDefaultbg);
6453     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6454     ok(V_VT(&vDefaultbg) == VT_BSTR, "bstr != NULL\n");
6455     ok(!V_BSTR(&vDefaultbg), "V_BSTR(bgColor) = %s\n", wine_dbgstr_w(V_BSTR(&vDefaultbg)));
6456
6457     V_VT(&vbg) = VT_BSTR;
6458     V_BSTR(&vbg) = a2bstr("red");
6459     hres = IHTMLTable_put_bgColor(table, vbg);
6460     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6461     VariantClear(&vbg);
6462
6463     hres = IHTMLTable_get_bgColor(table, &vbg);
6464     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6465     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6466     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6467     VariantClear(&vbg);
6468
6469     V_VT(&vbg) = VT_I4;
6470     V_I4(&vbg) = 0xff0000;
6471     hres = IHTMLTable_put_bgColor(table, vbg);
6472     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6473     VariantClear(&vbg);
6474
6475     hres = IHTMLTable_get_bgColor(table, &vbg);
6476     ok(hres == S_OK, "get_bgColor failed: %08x\n", hres);
6477     ok(V_VT(&vbg) == VT_BSTR, "V_VT(&vbg) != VT_BSTR\n");
6478     ok(!strcmp_wa(V_BSTR(&vbg), "#ff0000"), "Unexpected bgcolor %s\n", wine_dbgstr_w(V_BSTR(&vbg)));
6479     VariantClear(&vbg);
6480
6481     /* Restore Originial */
6482     hres = IHTMLTable_put_bgColor(table, vDefaultbg);
6483     ok(hres == S_OK, "put_bgColor failed: %08x\n", hres);
6484     VariantClear(&vDefaultbg);
6485
6486     V_VT(&v) = VT_BSTR;
6487     V_BSTR(&v) = a2bstr("11");
6488     hres = IHTMLTable_put_width(table, v);
6489     ok(hres == S_OK, "put_width = %08x\n", hres);
6490     VariantClear(&v);
6491     IHTMLTable_get_width(table, &v);
6492     ok(hres == S_OK, "get_width = %08x\n", hres);
6493     ok(!strcmp_wa(V_BSTR(&v), "11"), "Expected 11, got %s\n", wine_dbgstr_w(V_BSTR(&v)));
6494     VariantClear(&v);
6495
6496     V_VT(&v) = VT_BSTR;
6497     V_BSTR(&v) = a2bstr("11.9");
6498     hres = IHTMLTable_put_width(table, v);
6499     ok(hres == S_OK, "put_width = %08x\n", hres);
6500     VariantClear(&v);
6501     IHTMLTable_get_width(table, &v);
6502     ok(hres == S_OK, "get_width = %08x\n", hres);
6503     ok(!strcmp_wa(V_BSTR(&v), "11"), "Expected 11, got %s\n", wine_dbgstr_w(V_BSTR(&v)));
6504     VariantClear(&v);
6505
6506     V_VT(&v) = VT_BSTR;
6507     V_BSTR(&v) = a2bstr("40.2%");
6508     hres = IHTMLTable_put_width(table, v);
6509     ok(hres == S_OK, "put_width = %08x\n", hres);
6510     VariantClear(&v);
6511     IHTMLTable_get_width(table, &v);
6512     ok(hres == S_OK, "get_width = %08x\n", hres);
6513     ok(!strcmp_wa(V_BSTR(&v), "40.2%"), "Expected 40.2%%, got %s\n", wine_dbgstr_w(V_BSTR(&v)));
6514     VariantClear(&v);
6515
6516     V_VT(&v) = VT_I4;
6517     V_I4(&v) = 11;
6518     hres = IHTMLTable_put_width(table, v);
6519     ok(hres == S_OK, "put_width = %08x\n", hres);
6520     IHTMLTable_get_width(table, &v);
6521     ok(hres == S_OK, "get_width = %08x\n", hres);
6522     ok(!strcmp_wa(V_BSTR(&v), "11"), "Expected 11, got %s\n", wine_dbgstr_w(V_BSTR(&v)));
6523     VariantClear(&v);
6524
6525     V_VT(&v) = VT_R8;
6526     V_R8(&v) = 11.9;
6527     hres = IHTMLTable_put_width(table, v);
6528     ok(hres == S_OK, "put_width = %08x\n", hres);
6529     IHTMLTable_get_width(table, &v);
6530     ok(hres == S_OK, "get_width = %08x\n", hres);
6531     ok(!strcmp_wa(V_BSTR(&v), "11"), "Expected 11, got %s\n", wine_dbgstr_w(V_BSTR(&v)));
6532     VariantClear(&v);
6533
6534
6535     bstr = a2bstr("box");
6536     hres = IHTMLTable_put_frame(table, bstr);
6537     ok(hres == S_OK, "put_frame = %08x\n", hres);
6538     SysFreeString(bstr);
6539     hres = IHTMLTable_get_frame(table, &bstr);
6540     ok(hres == S_OK, "get_frame = %08x\n", hres);
6541     ok(!strcmp_wa(bstr, "box"), "Expected box, got %s\n", wine_dbgstr_w(bstr));
6542     SysFreeString(bstr);
6543
6544         test_table_modify(table);
6545     bstr = a2bstr("summary");
6546     hres = IHTMLTable3_put_summary(table3, bstr);
6547     ok(hres == S_OK, "put_summary = %08x\n", hres);
6548     SysFreeString(bstr);
6549
6550     hres = IHTMLTable3_get_summary(table3, &bstr);
6551     ok(hres == S_OK, "get_summary = %08x\n", hres);
6552     ok(!strcmp_wa(bstr, "summary"), "Expected summary, got %s\n", wine_dbgstr_w(bstr));
6553     SysFreeString(bstr);
6554
6555     IHTMLTable3_Release(table3);
6556     IHTMLTable_Release(table);
6557 }
6558
6559 static void doc_write(IHTMLDocument2 *doc, BOOL ln, const char *text)
6560 {
6561     SAFEARRAYBOUND dim;
6562     SAFEARRAY *sa;
6563     VARIANT *var;
6564     HRESULT hres;
6565
6566     dim.lLbound = 0;
6567     dim.cElements = 1;
6568     sa = SafeArrayCreate(VT_VARIANT, 1, &dim);
6569     SafeArrayAccessData(sa, (void**)&var);
6570     V_VT(var) = VT_BSTR;
6571     V_BSTR(var) = a2bstr(text);
6572     SafeArrayUnaccessData(sa);
6573
6574     if(ln)
6575         hres = IHTMLDocument2_writeln(doc, sa);
6576     else
6577         hres = IHTMLDocument2_write(doc, sa);
6578     ok(hres == S_OK, "write failed: %08x\n", hres);
6579
6580     SafeArrayDestroy(sa);
6581 }
6582
6583 static void doc_complex_write(IHTMLDocument2 *doc)
6584 {
6585     SAFEARRAYBOUND dim = {5, 0};
6586     SAFEARRAY *sa;
6587     VARIANT *args;
6588     HRESULT hres;
6589
6590     sa = SafeArrayCreate(VT_VARIANT, 1, &dim);
6591     SafeArrayAccessData(sa, (void**)&args);
6592
6593     V_VT(args) = VT_BSTR;
6594     V_BSTR(args) = a2bstr("<body i4val=\"");
6595     V_VT(args+1) = VT_I4;
6596     V_I4(args+1) = 4;
6597     V_VT(args+2) = VT_BSTR;
6598     V_BSTR(args+2) = a2bstr("\" r8val=\"");
6599     V_VT(args+3) = VT_R8;
6600     V_R8(args+3) = 3.14;
6601     V_VT(args+4) = VT_BSTR;
6602     V_BSTR(args+4) = a2bstr("\">");
6603     SafeArrayUnaccessData(sa);
6604
6605     hres = IHTMLDocument2_write(doc, sa);
6606     ok(hres == S_OK, "write failed: %08x\n", hres);
6607
6608     SafeArrayDestroy(sa);
6609 }
6610
6611 static void test_frame_doc(IUnknown *frame_elem, BOOL iframe)
6612 {
6613     IHTMLDocument2 *window_doc, *elem_doc;
6614     IHTMLFrameElement3 *frame_elem3;
6615     IHTMLWindow2 *content_window;
6616     HRESULT hres;
6617
6618     content_window = get_frame_content_window(frame_elem);
6619     test_ifaces((IUnknown*)content_window, window_iids);
6620     window_doc = get_window_doc(content_window);
6621     IHTMLWindow2_Release(content_window);
6622
6623     elem_doc = get_elem_doc(frame_elem);
6624     ok(iface_cmp((IUnknown*)window_doc, (IUnknown*)elem_doc), "content_doc != elem_doc\n");
6625
6626     if(!iframe) {
6627         hres = IUnknown_QueryInterface(frame_elem, &IID_IHTMLFrameElement3, (void**)&frame_elem3);
6628         if(SUCCEEDED(hres)) {
6629             IDispatch *disp = NULL;
6630
6631             hres = IHTMLFrameElement3_get_contentDocument(frame_elem3, &disp);
6632             ok(hres == S_OK, "get_contentDocument failed: %08x\n", hres);
6633             ok(disp != NULL, "contentDocument == NULL\n");
6634             ok(iface_cmp((IUnknown*)disp, (IUnknown*)window_doc), "contentDocument != contentWindow.document\n");
6635
6636             IDispatch_Release(disp);
6637             IHTMLFrameElement3_Release(frame_elem3);
6638         }else {
6639             win_skip("IHTMLFrameElement3 not supported\n");
6640         }
6641     }
6642
6643     IHTMLDocument2_Release(elem_doc);
6644     IHTMLDocument2_Release(window_doc);
6645 }
6646
6647 #define test_iframe_height(a,b) _test_iframe_height(__LINE__,a,b)
6648 static void _test_iframe_height(unsigned line, IHTMLElement *elem, const char *exval)
6649 {
6650     IHTMLIFrameElement2 *iframe = _get_iframe2_iface(line, (IUnknown*)elem);
6651     VARIANT v;
6652     HRESULT hres;
6653
6654     hres = IHTMLIFrameElement2_get_height(iframe, &v);
6655     ok_(__FILE__,line)(hres == S_OK, "get_height failed: %08x\n", hres);
6656     ok_(__FILE__,line)(V_VT(&v) == VT_BSTR, "V_VT(height) = %d\n", V_VT(&v));
6657     if(exval)
6658         ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&v), exval), "height = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), exval);
6659     else
6660         ok_(__FILE__,line)(!V_BSTR(&v), "height = %s, expected NULL\n", wine_dbgstr_w(V_BSTR(&v)));
6661     VariantClear(&v);
6662     IHTMLIFrameElement2_Release(iframe);
6663 }
6664
6665 #define set_iframe_height(a,b) _set_iframe_height(__LINE__,a,b)
6666 static void _set_iframe_height(unsigned line, IHTMLElement *elem, const char *val)
6667 {
6668     IHTMLIFrameElement2 *iframe = _get_iframe2_iface(line, (IUnknown*)elem);
6669     VARIANT v;
6670     HRESULT hres;
6671
6672     V_VT(&v) = VT_BSTR;
6673     V_BSTR(&v) = a2bstr(val);
6674     hres = IHTMLIFrameElement2_put_height(iframe, v);
6675     ok_(__FILE__,line)(hres == S_OK, "put_height failed: %08x\n", hres);
6676     VariantClear(&v);
6677     IHTMLIFrameElement2_Release(iframe);
6678 }
6679
6680 #define test_iframe_width(a,b) _test_iframe_width(__LINE__,a,b)
6681 static void _test_iframe_width(unsigned line, IHTMLElement *elem, const char *exval)
6682 {
6683     IHTMLIFrameElement2 *iframe = _get_iframe2_iface(line, (IUnknown*)elem);
6684     VARIANT v;
6685     HRESULT hres;
6686
6687     hres = IHTMLIFrameElement2_get_width(iframe, &v);
6688     ok_(__FILE__,line)(hres == S_OK, "get_width failed: %08x\n", hres);
6689     ok_(__FILE__,line)(V_VT(&v) == VT_BSTR, "V_VT(width) = %d\n", V_VT(&v));
6690     if(exval)
6691         ok_(__FILE__,line)(!strcmp_wa(V_BSTR(&v), exval), "width = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), exval);
6692     else
6693         ok_(__FILE__,line)(!V_BSTR(&v), "width = %s, expected NULL\n", wine_dbgstr_w(V_BSTR(&v)));
6694     VariantClear(&v);
6695     IHTMLIFrameElement2_Release(iframe);
6696 }
6697
6698 #define set_iframe_width(a,b) _set_iframe_width(__LINE__,a,b)
6699 static void _set_iframe_width(unsigned line, IHTMLElement *elem, const char *val)
6700 {
6701     IHTMLIFrameElement2 *iframe = _get_iframe2_iface(line, (IUnknown*)elem);
6702     VARIANT v;
6703     HRESULT hres;
6704
6705     V_VT(&v) = VT_BSTR;
6706     V_BSTR(&v) = a2bstr(val);
6707     hres = IHTMLIFrameElement2_put_width(iframe, v);
6708     ok_(__FILE__,line)(hres == S_OK, "put_width failed: %08x\n", hres);
6709     VariantClear(&v);
6710     IHTMLIFrameElement2_Release(iframe);
6711 }
6712
6713 static void test_iframe_elem(IHTMLElement *elem)
6714 {
6715     IHTMLDocument2 *content_doc, *owner_doc;
6716     IHTMLIFrameElement3 *iframe3;
6717     IHTMLElementCollection *col;
6718     IHTMLWindow2 *content_window;
6719     IHTMLElement *body;
6720     IDispatch *disp;
6721     VARIANT errv;
6722     BSTR str;
6723     HRESULT hres;
6724
6725     static const elem_type_t all_types[] = {
6726         ET_HTML,
6727         ET_HEAD,
6728         ET_TITLE,
6729         ET_BODY,
6730         ET_BR
6731     };
6732
6733     test_frame_doc((IUnknown*)elem, TRUE);
6734     test_framebase((IUnknown*)elem);
6735
6736     content_window = get_frame_content_window((IUnknown*)elem);
6737     test_ifaces((IUnknown*)content_window, window_iids);
6738     test_window_length(content_window, 0);
6739
6740     content_doc = get_window_doc(content_window);
6741     IHTMLWindow2_Release(content_window);
6742
6743     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLIFrameElement3, (void**)&iframe3);
6744     if(SUCCEEDED(hres)) {
6745         hres = IHTMLIFrameElement3_get_contentDocument(iframe3, &disp);
6746         ok(hres == S_OK, "get_contentDocument failed: %08x\n", hres);
6747         ok(iface_cmp((IUnknown*)content_doc, (IUnknown*)disp), "content_doc != disp\n");
6748         IDispatch_Release(disp);
6749
6750         IHTMLIFrameElement3_Release(iframe3);
6751     }else {
6752         win_skip("IHTMLIFrameElement3 not supported\n");
6753     }
6754
6755     test_iframe_height(elem, NULL);
6756     set_iframe_height(elem, "100px");
6757     set_iframe_height(elem, "50%");
6758     test_iframe_height(elem, "50%");
6759
6760     test_iframe_width(elem, NULL);
6761     set_iframe_width(elem, "150px");
6762     set_iframe_width(elem, "70%");
6763     test_iframe_width(elem, "70%");
6764
6765     str = a2bstr("text/html");
6766     V_VT(&errv) = VT_ERROR;
6767     disp = NULL;
6768     hres = IHTMLDocument2_open(content_doc, str, errv, errv, errv, &disp);
6769     SysFreeString(str);
6770     ok(hres == S_OK, "open failed: %08x\n", hres);
6771     ok(disp != NULL, "disp == NULL\n");
6772     ok(iface_cmp((IUnknown*)disp, (IUnknown*)content_window), "disp != content_window\n");
6773     IDispatch_Release(disp);
6774
6775     doc_write(content_doc, FALSE, "<html><head><title>test</title></head>");
6776     doc_complex_write(content_doc);
6777     doc_write(content_doc, TRUE, "<br />");
6778     doc_write(content_doc, TRUE, "</html>");
6779
6780     hres = IHTMLDocument2_get_all(content_doc, &col);
6781     ok(hres == S_OK, "get_all failed: %08x\n", hres);
6782     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
6783     IHTMLElementCollection_Release(col);
6784
6785     body = doc_get_body(content_doc);
6786     test_elem_attr(body, "i4val", "4");
6787     test_elem_attr(body, "r8val", "3.14");
6788     IHTMLElement_Release(body);
6789
6790     hres = IHTMLDocument2_close(content_doc);
6791     ok(hres == S_OK, "close failed: %08x\n", hres);
6792
6793     owner_doc = get_owner_doc((IUnknown*)content_doc);
6794     ok(!owner_doc, "owner_doc = %p\n", owner_doc);
6795
6796     IHTMLDocument2_Release(content_doc);
6797 }
6798
6799 static void test_stylesheet(IDispatch *disp)
6800 {
6801     IHTMLStyleSheetRulesCollection *col = NULL;
6802     IHTMLStyleSheet *stylesheet;
6803     HRESULT hres;
6804     BSTR href;
6805
6806     test_disp2((IUnknown*)disp, &DIID_DispHTMLStyleSheet, &IID_IHTMLStyleSheet, "[object]");
6807
6808     hres = IDispatch_QueryInterface(disp, &IID_IHTMLStyleSheet, (void**)&stylesheet);
6809     ok(hres == S_OK, "Could not get IHTMLStyleSheet: %08x\n", hres);
6810
6811     hres = IHTMLStyleSheet_get_rules(stylesheet, &col);
6812     ok(hres == S_OK, "get_rules failed: %08x\n", hres);
6813     ok(col != NULL, "col == NULL\n");
6814
6815     test_disp2((IUnknown*)col, &DIID_DispHTMLStyleSheetRulesCollection, &IID_IHTMLStyleSheetRulesCollection, "[object]");
6816     IHTMLStyleSheetRulesCollection_Release(col);
6817
6818     href = (void*)0xdeadbeef;
6819     hres = IHTMLStyleSheet_get_href(stylesheet, &href);
6820     ok(hres == S_OK, "get_href failed: %08x\n", hres);
6821     ok(href == NULL, "got href != NULL\n");
6822     SysFreeString(href);
6823
6824     IHTMLStyleSheet_Release(stylesheet);
6825 }
6826
6827 static void test_stylesheets(IHTMLDocument2 *doc)
6828 {
6829     IHTMLStyleSheetsCollection *col = NULL;
6830     VARIANT idx, res;
6831     LONG len = 0;
6832     HRESULT hres;
6833
6834     hres = IHTMLDocument2_get_styleSheets(doc, &col);
6835     ok(hres == S_OK, "get_styleSheets failed: %08x\n", hres);
6836     ok(col != NULL, "col == NULL\n");
6837
6838     test_disp2((IUnknown*)col, &DIID_DispHTMLStyleSheetsCollection, &IID_IHTMLStyleSheetsCollection, "[object]");
6839
6840     hres = IHTMLStyleSheetsCollection_get_length(col, &len);
6841     ok(hres == S_OK, "get_length failed: %08x\n", hres);
6842     ok(len == 1, "len=%d\n", len);
6843
6844     VariantInit(&res);
6845     V_VT(&idx) = VT_I4;
6846     V_I4(&idx) = 0;
6847
6848     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
6849     ok(hres == S_OK, "item failed: %08x\n", hres);
6850     ok(V_VT(&res) == VT_DISPATCH, "V_VT(res) = %d\n", V_VT(&res));
6851     ok(V_DISPATCH(&res) != NULL, "V_DISPATCH(&res) == NULL\n");
6852     test_stylesheet(V_DISPATCH(&res));
6853     VariantClear(&res);
6854
6855     V_VT(&res) = VT_I4;
6856     V_VT(&idx) = VT_I4;
6857     V_I4(&idx) = 1;
6858
6859     hres = IHTMLStyleSheetsCollection_item(col, &idx, &res);
6860     ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
6861     ok(V_VT(&res) == VT_EMPTY, "V_VT(res) = %d\n", V_VT(&res));
6862     VariantClear(&res);
6863
6864     IHTMLStyleSheetsCollection_Release(col);
6865 }
6866
6867 static void test_child_col_disp(IHTMLDOMChildrenCollection *col)
6868 {
6869     IDispatchEx *dispex;
6870     IHTMLDOMNode *node;
6871     DISPPARAMS dp = {NULL, NULL, 0, 0};
6872     VARIANT var;
6873     EXCEPINFO ei;
6874     LONG type;
6875     DISPID id;
6876     BSTR bstr;
6877     HRESULT hres;
6878
6879     static const WCHAR w0[] = {'0',0};
6880     static const WCHAR w100[] = {'1','0','0',0};
6881
6882     hres = IHTMLDOMChildrenCollection_QueryInterface(col, &IID_IDispatchEx, (void**)&dispex);
6883     ok(hres == S_OK, "Could not get IDispatchEx: %08x\n", hres);
6884
6885     bstr = SysAllocString(w0);
6886     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
6887     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
6888     SysFreeString(bstr);
6889
6890     VariantInit(&var);
6891     hres = IDispatchEx_InvokeEx(dispex, id, LOCALE_NEUTRAL, INVOKE_PROPERTYGET, &dp, &var, &ei, NULL);
6892     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
6893     ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
6894     ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
6895     node = get_node_iface((IUnknown*)V_DISPATCH(&var));
6896     type = get_node_type((IUnknown*)node);
6897     ok(type == 3, "type=%d\n", type);
6898     IHTMLDOMNode_Release(node);
6899     VariantClear(&var);
6900
6901     bstr = SysAllocString(w100);
6902     hres = IDispatchEx_GetDispID(dispex, bstr, fdexNameCaseSensitive, &id);
6903     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
6904     SysFreeString(bstr);
6905
6906     IDispatchEx_Release(dispex);
6907 }
6908
6909 static void test_enum_children(IUnknown *unk, unsigned len)
6910 {
6911     IEnumVARIANT *enum_var;
6912     ULONG i, fetched;
6913     VARIANT v;
6914     HRESULT hres;
6915
6916     hres = IUnknown_QueryInterface(unk, &IID_IEnumVARIANT, (void**)&enum_var);
6917     ok(hres == S_OK, "Could not get IEnumVARIANT iface: %08x\n", hres);
6918
6919     for(i=0; i<len; i++) {
6920         fetched = 0;
6921         V_VT(&v) = VT_ERROR;
6922         hres = IEnumVARIANT_Next(enum_var, 1, &v, i ? &fetched : NULL);
6923         ok(hres == S_OK, "Next failed: %08x\n", hres);
6924         if(i)
6925             ok(fetched == 1, "fetched = %d\n", fetched);
6926         ok(V_VT(&v) == VT_DISPATCH && V_DISPATCH(&v), "V_VT(v) = %d\n", V_VT(&v));
6927         IDispatch_Release(V_DISPATCH(&v));
6928     }
6929
6930     fetched = 0xdeadbeef;
6931     V_VT(&v) = VT_BOOL;
6932     hres = IEnumVARIANT_Next(enum_var, 1, &v, &fetched);
6933     ok(hres == S_FALSE, "Next returned %08x, expected S_FALSE\n", hres);
6934     ok(fetched == 0, "fetched = %d\n", fetched);
6935     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
6936
6937     hres = IEnumVARIANT_Reset(enum_var);
6938     ok(hres == S_OK, "Reset failed: %08x\n", hres);
6939
6940     fetched = 0xdeadbeef;
6941     V_VT(&v) = VT_BOOL;
6942     hres = IEnumVARIANT_Next(enum_var, 0, &v, &fetched);
6943     ok(hres == S_OK, "Next returned %08x, expected S_FALSE\n", hres);
6944     ok(fetched == 0, "fetched = %d\n", fetched);
6945     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
6946
6947     hres = IEnumVARIANT_Skip(enum_var, len > 2 ? len-2 : 0);
6948     ok(hres == S_OK, "Skip failed: %08x\n", hres);
6949
6950     hres = IEnumVARIANT_Reset(enum_var);
6951     ok(hres == S_OK, "Reset failed: %08x\n", hres);
6952
6953     hres = IEnumVARIANT_Skip(enum_var, len+1);
6954     ok(hres == S_FALSE, "Skip failed: %08x\n", hres);
6955
6956     IEnumVARIANT_Release(enum_var);
6957 }
6958
6959 static void test_elems(IHTMLDocument2 *doc)
6960 {
6961     IHTMLElementCollection *col;
6962     IHTMLDOMChildrenCollection *child_col;
6963     IHTMLElement *elem, *elem2, *elem3;
6964     IHTMLDOMNode *node, *node2;
6965     IHTMLWindow2 *window;
6966     IDispatch *disp;
6967     LONG type;
6968     HRESULT hres;
6969     IHTMLElementCollection *collection;
6970     IHTMLDocument3 *doc3;
6971     BSTR str;
6972
6973     static const elem_type_t all_types[] = {
6974         ET_HTML,
6975         ET_HEAD,
6976         ET_TITLE,
6977         ET_STYLE,
6978         ET_META,
6979         ET_LINK,
6980         ET_BODY,
6981         ET_COMMENT,
6982         ET_A,
6983         ET_LABEL,
6984         ET_INPUT,
6985         ET_BUTTON,
6986         ET_SELECT,
6987         ET_OPTION,
6988         ET_OPTION,
6989         ET_TEXTAREA,
6990         ET_TABLE,
6991         ET_TBODY,
6992         ET_TR,
6993         ET_TR,
6994         ET_TD,
6995         ET_TD,
6996         ET_SCRIPT,
6997         ET_TEST,
6998         ET_OBJECT,
6999         ET_EMBED,
7000         ET_IMG,
7001         ET_IFRAME,
7002         ET_FORM,
7003         ET_DIV
7004     };
7005
7006     static const elem_type_t item_types[] = {
7007         ET_A,
7008         ET_OPTION,
7009         ET_TEXTAREA
7010     };
7011
7012     hres = IHTMLDocument2_get_all(doc, &col);
7013     ok(hres == S_OK, "get_all failed: %08x\n", hres);
7014     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
7015     test_elem_col_item(col, "x", item_types, sizeof(item_types)/sizeof(item_types[0]));
7016
7017     elem = get_elem_col_item_idx(col, 0);
7018     test_elem_source_index(elem, 0);
7019     IHTMLElement_Release(elem);
7020
7021     elem = get_elem_col_item_idx(col, 3);
7022     test_elem_source_index(elem, 3);
7023     IHTMLElement_Release(elem);
7024
7025     IHTMLElementCollection_Release(col);
7026
7027     hres = IHTMLDocument2_get_images(doc, &collection);
7028     ok(hres == S_OK, "get_images failed: %08x\n", hres);
7029     if(hres == S_OK)
7030     {
7031         static const elem_type_t images_types[] = {ET_IMG};
7032         test_elem_collection((IUnknown*)collection, images_types, 1);
7033
7034         IHTMLElementCollection_Release(collection);
7035     }
7036
7037     hres = IHTMLDocument2_get_links(doc, &collection);
7038     ok(hres == S_OK, "get_links failed: %08x\n", hres);
7039     if(hres == S_OK)
7040     {
7041         static const elem_type_t images_types[] = {ET_A};
7042         test_elem_collection((IUnknown*)collection, images_types, 1);
7043
7044         IHTMLElementCollection_Release(collection);
7045     }
7046
7047     hres = IHTMLDocument2_get_anchors(doc, &collection);
7048     ok(hres == S_OK, "get_anchors failed: %08x\n", hres);
7049     if(hres == S_OK)
7050     {
7051         static const elem_type_t anchor_types[] = {ET_A};
7052         test_elem_collection((IUnknown*)collection, anchor_types, 1);
7053
7054         IHTMLElementCollection_Release(collection);
7055     }
7056
7057     hres = IHTMLDocument2_get_scripts(doc, &collection);
7058     ok(hres == S_OK, "get_scripts failed: %08x\n", hres);
7059     if(hres == S_OK) {
7060         static const elem_type_t script_types[] = {ET_SCRIPT};
7061         test_elem_collection((IUnknown*)collection, script_types, 1);
7062         IHTMLElementCollection_Release(collection);
7063     }
7064
7065     test_plugins_col(doc);
7066
7067     elem = get_doc_elem(doc);
7068     test_elem_all((IUnknown*)elem, all_types+1, sizeof(all_types)/sizeof(all_types[0])-1);
7069     IHTMLElement_Release(elem);
7070
7071     get_elem_by_id(doc, "xxx", FALSE);
7072     elem = get_doc_elem_by_id(doc, "xxx");
7073     ok(!elem, "elem != NULL\n");
7074
7075     elem = get_doc_elem_by_id(doc, "s");
7076     ok(elem != NULL, "elem == NULL\n");
7077     if(elem) {
7078         test_elem_type((IUnknown*)elem, ET_SELECT);
7079         test_elem_attr(elem, "xxx", NULL);
7080         test_elem_attr(elem, "id", "s");
7081         test_elem_class((IUnknown*)elem, NULL);
7082         test_elem_set_class((IUnknown*)elem, "cl");
7083         test_elem_set_class((IUnknown*)elem, NULL);
7084         test_elem_tabindex((IUnknown*)elem, 0);
7085         test_elem_set_tabindex((IUnknown*)elem, 1);
7086         test_elem_filters((IUnknown*)elem);
7087
7088         node = test_node_get_parent((IUnknown*)elem);
7089         ok(node != NULL, "node == NULL\n");
7090         test_node_name((IUnknown*)node, "BODY");
7091         node2 = test_node_get_parent((IUnknown*)node);
7092         IHTMLDOMNode_Release(node);
7093         ok(node2 != NULL, "node == NULL\n");
7094         test_node_name((IUnknown*)node2, "HTML");
7095         node = test_node_get_parent((IUnknown*)node2);
7096         IHTMLDOMNode_Release(node2);
7097         ok(node != NULL, "node == NULL\n");
7098         if (node)
7099         {
7100             test_node_name((IUnknown*)node, "#document");
7101             type = get_node_type((IUnknown*)node);
7102             ok(type == 9, "type=%d, expected 9\n", type);
7103             node2 = test_node_get_parent((IUnknown*)node);
7104             IHTMLDOMNode_Release(node);
7105             ok(node2 == NULL, "node != NULL\n");
7106         }
7107
7108         elem2 = test_elem_get_parent((IUnknown*)elem);
7109         ok(elem2 != NULL, "elem2 == NULL\n");
7110         test_node_name((IUnknown*)elem2, "BODY");
7111
7112         elem3 = test_elem_get_parent((IUnknown*)elem2);
7113         ok(elem3 != NULL, "elem3 == NULL\n");
7114         test_node_name((IUnknown*)elem3, "HTML");
7115
7116         test_elem_contains(elem3, elem2, VARIANT_TRUE);
7117         test_elem_contains(elem3, elem, VARIANT_TRUE);
7118         test_elem_contains(elem2, elem, VARIANT_TRUE);
7119         test_elem_contains(elem2, elem3, VARIANT_FALSE);
7120         test_elem_contains(elem, elem3, VARIANT_FALSE);
7121         test_elem_contains(elem, elem2, VARIANT_FALSE);
7122         test_elem_contains(elem, elem, VARIANT_TRUE);
7123         test_elem_contains(elem, NULL, VARIANT_FALSE);
7124         IHTMLElement_Release(elem2);
7125
7126         elem2 = test_elem_get_parent((IUnknown*)elem3);
7127         ok(elem2 == NULL, "elem2 != NULL\n");
7128         test_elem_source_index(elem3, 0);
7129         IHTMLElement_Release(elem3);
7130
7131         test_elem_getelembytag((IUnknown*)elem, ET_OPTION, 2, NULL);
7132         test_elem_getelembytag((IUnknown*)elem, ET_SELECT, 0, NULL);
7133         test_elem_getelembytag((IUnknown*)elem, ET_HTML, 0, NULL);
7134
7135         test_elem_innertext(elem, "opt1opt2");
7136
7137         IHTMLElement_Release(elem);
7138     }
7139
7140     elem = get_elem_by_id(doc, "s", TRUE);
7141     if(elem) {
7142         IHTMLSelectElement *select = get_select_iface((IUnknown*)elem);
7143         IHTMLDocument2 *doc_node, *elem_doc;
7144
7145         test_select_elem(select);
7146
7147         test_elem_title((IUnknown*)select, NULL);
7148         test_elem_set_title((IUnknown*)select, "Title");
7149         test_elem_title((IUnknown*)select, "Title");
7150         test_elem_offset((IUnknown*)select, "BODY");
7151         test_elem_bounding_client_rect((IUnknown*)select);
7152
7153         node = get_first_child((IUnknown*)select);
7154         ok(node != NULL, "node == NULL\n");
7155         if(node) {
7156             test_elem_type((IUnknown*)node, ET_OPTION);
7157             IHTMLDOMNode_Release(node);
7158         }
7159
7160         type = get_node_type((IUnknown*)select);
7161         ok(type == 1, "type=%d\n", type);
7162
7163         IHTMLSelectElement_Release(select);
7164
7165         elem_doc = get_elem_doc((IUnknown*)elem);
7166
7167         doc_node = get_doc_node(doc);
7168         ok(iface_cmp((IUnknown*)elem_doc, (IUnknown*)doc_node), "disp != doc\n");
7169         IHTMLDocument2_Release(doc_node);
7170         IHTMLDocument2_Release(elem_doc);
7171
7172         IHTMLElement_Release(elem);
7173     }
7174
7175     elem = get_elem_by_id(doc, "sc", TRUE);
7176     if(elem) {
7177         IHTMLScriptElement *script;
7178         BSTR type;
7179
7180         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLScriptElement, (void**)&script);
7181         ok(hres == S_OK, "Could not get IHTMLScriptElement interface: %08x\n", hres);
7182
7183         test_elem_language(elem, NULL);
7184
7185         if(hres == S_OK)
7186         {
7187             VARIANT_BOOL vb;
7188
7189             hres = IHTMLScriptElement_put_type (script, NULL);
7190             ok(hres == S_OK, "put_type failed: %08x\n", hres);
7191             hres = IHTMLScriptElement_get_type(script, &type);
7192             ok(hres == S_OK, "get_type failed: %08x\n", hres);
7193             ok(type == NULL, "Unexpected type %s\n", wine_dbgstr_w(type));
7194
7195             type = a2bstr("text/javascript");
7196             hres = IHTMLScriptElement_put_type (script, type);
7197             ok(hres == S_OK, "put_type failed: %08x\n", hres);
7198             SysFreeString(type);
7199             hres = IHTMLScriptElement_get_type(script, &type);
7200             ok(hres == S_OK, "get_type failed: %08x\n", hres);
7201             ok(!strcmp_wa(type, "text/javascript"), "Unexpected type %s\n", wine_dbgstr_w(type));
7202             SysFreeString(type);
7203
7204             test_script_text(script, "<!--\nfunction Testing() {}\n// -->\n");
7205
7206             /* test defer */
7207             hres = IHTMLScriptElement_put_defer(script, VARIANT_TRUE);
7208             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
7209
7210             hres = IHTMLScriptElement_get_defer(script, &vb);
7211             ok(hres == S_OK, "get_defer failed: %08x\n", hres);
7212             ok(vb == VARIANT_TRUE, "get_defer result is %08x\n", hres);
7213
7214             hres = IHTMLScriptElement_put_defer(script, VARIANT_FALSE);
7215             ok(hres == S_OK, "put_defer failed: %08x\n", hres);
7216
7217             str = (BSTR)0xdeadbeef;
7218             hres = IHTMLScriptElement_get_src(script, &str);
7219             ok(hres == S_OK, "get_src failed: %08x\n", hres);
7220             ok(!str, "src = %s\n", wine_dbgstr_w(str));
7221         }
7222
7223         IHTMLScriptElement_Release(script);
7224
7225         set_elem_language(elem, "vbscript");
7226         set_elem_language(elem, "xxx");
7227     }
7228
7229     elem = get_elem_by_id(doc, "in", TRUE);
7230     if(elem) {
7231         IHTMLInputElement *input;
7232
7233         hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLInputElement, (void**)&input);
7234         ok(hres == S_OK, "Could not get IHTMLInputElement: %08x\n", hres);
7235
7236         test_elem_id((IUnknown*)elem, "in");
7237         test_elem_put_id((IUnknown*)elem, "newin");
7238         test_input_get_disabled(input, VARIANT_FALSE);
7239         test_input_set_disabled(input, VARIANT_TRUE);
7240         test_input_set_disabled(input, VARIANT_FALSE);
7241         test_elem3_set_disabled((IUnknown*)input, VARIANT_TRUE);
7242         test_input_get_disabled(input, VARIANT_TRUE);
7243         test_elem3_set_disabled((IUnknown*)input, VARIANT_FALSE);
7244         test_input_get_disabled(input, VARIANT_FALSE);
7245         test_elem_client_size((IUnknown*)elem);
7246         test_input_type(input, "text");
7247
7248         test_node_get_value_str((IUnknown*)elem, NULL);
7249         test_node_put_value_str((IUnknown*)elem, "test");
7250         test_node_get_value_str((IUnknown*)elem, NULL);
7251         test_input_value((IUnknown*)elem, NULL);
7252         test_input_defaultValue((IUnknown*)elem, NULL);
7253         test_input_put_value((IUnknown*)elem, "test");
7254         test_input_defaultValue((IUnknown*)elem, NULL);
7255         test_elem_class((IUnknown*)elem, "testclass");
7256         test_elem_tabindex((IUnknown*)elem, 2);
7257         test_elem_set_tabindex((IUnknown*)elem, 3);
7258         test_elem_title((IUnknown*)elem, "test title");
7259
7260         test_input_get_defaultchecked(input, VARIANT_FALSE);
7261         test_input_set_defaultchecked(input, VARIANT_TRUE);
7262         test_input_set_defaultchecked(input, VARIANT_FALSE);
7263
7264         test_input_get_checked(input, VARIANT_FALSE);
7265         test_input_set_checked(input, VARIANT_TRUE);
7266         test_input_set_checked(input, VARIANT_FALSE);
7267
7268         test_input_maxlength(input, 0x7fffffff);
7269         test_input_set_maxlength(input, 30);
7270
7271         test_input_name(input, NULL);
7272         test_input_set_name(input, "test");
7273
7274         test_input_src(input, NULL);
7275         test_input_set_src(input, "about:blank");
7276
7277         test_input_set_size(input, 15, S_OK);
7278         test_input_get_size(input, 15);
7279         test_input_set_size(input, -100, CTL_E_INVALIDPROPERTYVALUE);
7280         test_input_get_size(input, 15);
7281         test_input_set_size(input, 0, CTL_E_INVALIDPROPERTYVALUE);
7282         test_input_get_size(input, 15);
7283
7284         test_input_readOnly(input, VARIANT_TRUE);
7285         test_input_readOnly(input, VARIANT_FALSE);
7286
7287         IHTMLInputElement_Release(input);
7288         IHTMLElement_Release(elem);
7289     }
7290
7291     elem = get_elem_by_id(doc, "imgid", TRUE);
7292     if(elem) {
7293         test_img_align((IUnknown*)elem, "left");
7294         test_img_name((IUnknown*)elem, "WineImg");
7295         test_img_src((IUnknown*)elem, "", NULL);
7296         test_img_set_src((IUnknown*)elem, "about:blank");
7297         test_img_src((IUnknown*)elem, "about:blank", NULL);
7298         test_img_alt((IUnknown*)elem, NULL);
7299         test_img_set_alt((IUnknown*)elem, "alt test");
7300         test_img_name((IUnknown*)elem, "WineImg");
7301         test_img_complete(elem, VARIANT_FALSE);
7302         test_img_isMap((IUnknown*)elem, VARIANT_TRUE);
7303         test_img_isMap((IUnknown*)elem, VARIANT_FALSE);
7304         IHTMLElement_Release(elem);
7305     }
7306
7307     elem = get_elem_by_id(doc, "attr", TRUE);
7308     if(elem) {
7309         test_dynamic_properties(elem);
7310         test_attr_collection(elem);
7311         test_contenteditable((IUnknown*)elem);
7312         IHTMLElement_Release(elem);
7313     }
7314
7315     elem = get_elem_by_id(doc, "styleid", TRUE);
7316     if(elem) {
7317         test_style_media((IUnknown*)elem, NULL);
7318         test_style_put_media((IUnknown*)elem, "screen");
7319         test_style_type((IUnknown*)elem, NULL);
7320         test_style_put_type((IUnknown*)elem, "text/css");
7321         IHTMLElement_Release(elem);
7322     }
7323
7324     elem = get_doc_elem_by_id(doc, "tbl");
7325     ok(elem != NULL, "elem == NULL\n");
7326     if(elem) {
7327         test_table_elem(elem);
7328         IHTMLElement_Release(elem);
7329     }
7330
7331     elem = get_doc_elem_by_id(doc, "labelid");
7332     ok(elem != NULL, "elem == NULL\n");
7333     if(elem) {
7334         test_label_elem(elem);
7335         IHTMLElement_Release(elem);
7336     }
7337
7338     elem = get_doc_elem_by_id(doc, "td2");
7339     ok(elem != NULL, "elem == NULL\n");
7340     if(elem) {
7341         test_td_elem(elem);
7342         IHTMLElement_Release(elem);
7343     }
7344
7345     elem = get_doc_elem_by_id(doc, "row2");
7346     ok(elem != NULL, "elem == NULL\n");
7347     if(elem) {
7348         test_tr_elem(elem);
7349         IHTMLElement_Release(elem);
7350     }
7351
7352     elem = get_doc_elem_by_id(doc, "ifr");
7353     ok(elem != NULL, "elem == NULL\n");
7354     if(elem) {
7355         test_iframe_elem(elem);
7356         IHTMLElement_Release(elem);
7357     }
7358
7359     elem = get_doc_elem_by_id(doc, "btnid");
7360     ok(elem != NULL, "elem == NULL\n");
7361     if(elem) {
7362         test_button_elem(elem);
7363         test_button_get_disabled(elem, VARIANT_FALSE);
7364         test_button_set_disabled(elem, VARIANT_TRUE);
7365         test_elem3_set_disabled((IUnknown*)elem, VARIANT_FALSE);
7366         test_button_get_disabled(elem, VARIANT_FALSE);
7367         IHTMLElement_Release(elem);
7368     }
7369
7370     elem = get_doc_elem_by_id(doc, "objid");
7371     ok(elem != NULL, "elem == NULL\n");
7372     if(elem) {
7373         test_object_vspace((IUnknown*)elem, 100);
7374         test_object_name(elem, "objname");
7375         set_object_name(elem, "test");
7376         set_object_name(elem, NULL);
7377         IHTMLElement_Release(elem);
7378     }
7379
7380     elem = get_elem_by_id(doc, "a", TRUE);
7381     if(elem) {
7382         test_anchor_href((IUnknown*)elem, "http://test/");
7383
7384         /* Change the href */
7385         test_anchor_put_href((IUnknown*)elem, "http://test1/");
7386         test_anchor_href((IUnknown*)elem, "http://test1/");
7387         test_anchor_hostname((IUnknown*)elem, "test1");
7388
7389         /* Restore the href */
7390         test_anchor_put_href((IUnknown*)elem, "http://test/");
7391         test_anchor_href((IUnknown*)elem, "http://test/");
7392         test_anchor_hostname((IUnknown*)elem, "test");
7393         test_anchor_hash(elem, NULL);
7394
7395         /* target */
7396         test_anchor_get_target((IUnknown*)elem, NULL);
7397
7398         test_anchor_rel((IUnknown*)elem, NULL);
7399         test_anchor_put_rel((IUnknown*)elem, "Next");
7400         test_anchor_rel((IUnknown*)elem, "Next");
7401
7402         /* Change the target */
7403         test_anchor_put_target((IUnknown*)elem, "wine");
7404         test_anchor_get_target((IUnknown*)elem, "wine");
7405
7406         /* Restore the target */
7407         test_anchor_put_target((IUnknown*)elem, NULL);
7408         test_anchor_get_target((IUnknown*)elem, NULL);
7409
7410         test_anchor_name((IUnknown*)elem, "x");
7411         test_anchor_put_name((IUnknown*)elem, "anchor name");
7412         test_anchor_put_name((IUnknown*)elem, NULL);
7413         test_anchor_put_name((IUnknown*)elem, "x");
7414
7415         test_anchor_put_href((IUnknown*)elem, "http://test/?how#hash");
7416         test_anchor_hash(elem, "#hash");
7417         test_anchor_search((IUnknown*)elem, "?how", FALSE);
7418
7419         test_anchor_put_search((IUnknown*)elem, "?word=press");
7420         test_anchor_search((IUnknown*)elem, "?word=press", FALSE);
7421         test_anchor_put_search((IUnknown*)elem, "?????word???press");
7422         test_anchor_search((IUnknown*)elem, "?????word???press", FALSE);
7423
7424         test_anchor_put_search((IUnknown*)elem, "?q=\%E4\%BD\%A0\%E5\%A5\%BD"); /* encoded cjk characters */
7425         test_anchor_search((IUnknown*)elem, "?q=\%E4\%BD\%A0\%E5\%A5\%BD", FALSE);
7426
7427         test_anchor_put_search((IUnknown*)elem, "?how?old=are");
7428         test_anchor_search((IUnknown*)elem, "?how?old=are", FALSE);
7429
7430         /* due to incorrect behavior of ie6, search string without leading "?" is interpreted
7431         as part of the pathname, and cannot be accessed by get_search. */
7432         test_anchor_put_search((IUnknown*)elem, "word=abc");
7433         test_anchor_search((IUnknown*)elem, "?word=abc", TRUE);
7434
7435         IHTMLElement_Release(elem);
7436     }
7437
7438     elem = get_doc_elem_by_id(doc, "metaid");
7439     if(elem) {
7440         test_meta_name((IUnknown*)elem, "meta name");
7441         test_meta_content((IUnknown*)elem, "text/html; charset=utf-8");
7442         test_meta_httpequiv((IUnknown*)elem, "Content-Type");
7443         test_meta_charset((IUnknown*)elem, NULL);
7444         set_meta_charset((IUnknown*)elem, "utf-8");
7445         IHTMLElement_Release(elem);
7446     }
7447
7448     elem = doc_get_body(doc);
7449
7450     node = get_first_child((IUnknown*)elem);
7451     ok(node != NULL, "node == NULL\n");
7452     if(node) {
7453         test_ifaces((IUnknown*)node, text_iids);
7454         test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
7455
7456         node2 = get_first_child((IUnknown*)node);
7457         ok(!node2, "node2 != NULL\n");
7458
7459         type = get_node_type((IUnknown*)node);
7460         ok(type == 3, "type=%d\n", type);
7461
7462         test_node_get_value_str((IUnknown*)node, "text test");
7463         test_node_put_value_str((IUnknown*)elem, "test text");
7464         test_node_get_value_str((IUnknown*)node, "text test");
7465
7466         hres = IHTMLDOMNode_get_attributes(node, &disp);
7467         ok(hres == S_OK, "get_attributes failed: %08x\n", hres);
7468         ok(!disp, "disp != NULL\n");
7469
7470         IHTMLDOMNode_Release(node);
7471     }
7472
7473     child_col = get_child_nodes((IUnknown*)elem);
7474     ok(child_col != NULL, "child_coll == NULL\n");
7475     if(child_col) {
7476         IUnknown *enum_unk;
7477         LONG length = 0;
7478
7479         test_disp((IUnknown*)child_col, &DIID_DispDOMChildrenCollection, "[object]");
7480
7481         hres = IHTMLDOMChildrenCollection_get_length(child_col, &length);
7482         ok(hres == S_OK, "get_length failed: %08x\n", hres);
7483         ok(length, "length=0\n");
7484
7485         node2 = NULL;
7486         node = get_child_item(child_col, 0);
7487         ok(node != NULL, "node == NULL\n");
7488         if(node) {
7489             IHTMLDOMNode *prev;
7490
7491             type = get_node_type((IUnknown*)node);
7492             ok(type == 3, "type=%d\n", type);
7493             node2 = node_get_next((IUnknown*)node);
7494
7495             prev = node_get_prev((IUnknown*)node2);
7496             ok(iface_cmp((IUnknown*)node, (IUnknown*)prev), "node != prev\n");
7497             IHTMLDOMNode_Release(prev);
7498
7499             IHTMLDOMNode_Release(node);
7500         }
7501
7502         node = get_child_item(child_col, 1);
7503         ok(node != NULL, "node == NULL\n");
7504         if(node) {
7505             type = get_node_type((IUnknown*)node);
7506             ok(type == 8, "type=%d\n", type);
7507
7508             test_elem_id((IUnknown*)node, NULL);
7509             ok(iface_cmp((IUnknown*)node2, (IUnknown*)node), "node2 != node\n");
7510             IHTMLDOMNode_Release(node2);
7511             IHTMLDOMNode_Release(node);
7512         }
7513
7514         hres = IHTMLDOMChildrenCollection_item(child_col, length - 1, NULL);
7515         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
7516
7517         hres = IHTMLDOMChildrenCollection_item(child_col, length, NULL);
7518         ok(hres == E_POINTER, "item failed: %08x, expected E_POINTER\n", hres);
7519
7520         hres = IHTMLDOMChildrenCollection_item(child_col, 6000, &disp);
7521         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
7522
7523         hres = IHTMLDOMChildrenCollection_item(child_col, length, &disp);
7524         ok(hres == E_INVALIDARG, "item failed: %08x, expected E_INVALIDARG\n", hres);
7525
7526         test_child_col_disp(child_col);
7527
7528         hres = IHTMLDOMChildrenCollection_get__newEnum(child_col, &enum_unk);
7529         ok(hres == S_OK, "get__newEnum failed: %08x\n", hres);
7530
7531         test_enum_children(enum_unk, length);
7532
7533         IUnknown_Release(enum_unk);
7534
7535         IHTMLDOMChildrenCollection_Release(child_col);
7536     }
7537
7538     test_elem3_get_disabled((IUnknown*)elem, VARIANT_FALSE);
7539     test_elem3_set_disabled((IUnknown*)elem, VARIANT_TRUE);
7540     test_elem3_set_disabled((IUnknown*)elem, VARIANT_FALSE);
7541
7542     IHTMLElement_Release(elem);
7543
7544     elem = get_doc_elem_by_id(doc, "frm");
7545     ok(elem != NULL, "elem == NULL\n");
7546     if(elem) {
7547         test_form_length((IUnknown*)elem, 0);
7548         test_form_elements((IUnknown*)elem);
7549         IHTMLElement_Release(elem);
7550     }
7551
7552     test_stylesheets(doc);
7553     test_create_option_elem(doc);
7554     test_create_img_elem(doc);
7555
7556     elem = get_doc_elem_by_id(doc, "tbl");
7557     ok(elem != NULL, "elem = NULL\n");
7558     test_elem_set_innertext(elem, "inner text");
7559     IHTMLElement_Release(elem);
7560
7561     test_doc_title(doc, "test");
7562     test_doc_set_title(doc, "test title");
7563     test_doc_title(doc, "test title");
7564
7565     disp = NULL;
7566     hres = IHTMLDocument2_get_Script(doc, &disp);
7567     ok(hres == S_OK, "get_Script failed: %08x\n", hres);
7568     if(hres == S_OK)
7569     {
7570         IDispatchEx *dispex;
7571         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
7572         ok(hres == S_OK, "IDispatch_QueryInterface failed: %08x\n", hres);
7573         if(hres == S_OK)
7574         {
7575             DISPID pid = -1;
7576             BSTR str = a2bstr("Testing");
7577             hres = IDispatchEx_GetDispID(dispex, str, 1, &pid);
7578             ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
7579             ok(pid != -1, "pid == -1\n");
7580             SysFreeString(str);
7581             IDispatchEx_Release(dispex);
7582         }
7583     }
7584     IDispatch_Release(disp);
7585
7586     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
7587     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
7588
7589     str = a2bstr("Img");
7590     hres = IHTMLDocument3_getElementsByTagName(doc3, str, &col);
7591     ok(hres == S_OK, "getElementsByTagName(%s) failed: %08x\n", wine_dbgstr_w(str), hres);
7592     SysFreeString(str);
7593     if(hres == S_OK)
7594     {
7595         static const elem_type_t img_types[] = { ET_IMG };
7596
7597         test_elem_collection((IUnknown*)col, img_types, sizeof(img_types)/sizeof(img_types[0]));
7598         IHTMLElementCollection_Release(col);
7599     }
7600
7601     elem = get_doc_elem_by_id(doc, "y");
7602     test_elem_set_innerhtml((IUnknown*)elem, "inner html");
7603     test_elem_innerhtml((IUnknown*)elem, "inner html");
7604     test_elem_set_innerhtml((IUnknown*)elem, "");
7605     test_elem_innerhtml((IUnknown*)elem, NULL);
7606     node = node_get_next((IUnknown*)elem);
7607     ok(!node, "node = %p\n", node);
7608
7609     elem2 = get_doc_elem_by_id(doc, "x");
7610     test_elem_tag((IUnknown*)elem2, "A");
7611     node = node_get_next((IUnknown*)elem2);
7612     IHTMLDOMNode_Release(node);
7613     IHTMLElement_Release(elem2);
7614     IHTMLElement_Release(elem);
7615
7616     IHTMLDocument3_Release(doc3);
7617
7618     elem = get_elem_by_id(doc, "s", TRUE);
7619     if(elem) {
7620         static const elem_type_t select_types[] = { ET_OPTION, ET_OPTION, ET_OPTION };
7621
7622         test_select_put_length((IUnknown*)elem, 3);
7623         test_elem_all((IUnknown*)elem, select_types, sizeof(select_types)/sizeof(*select_types));
7624         test_select_put_length((IUnknown*)elem, 1);
7625         test_elem_all((IUnknown*)elem, select_types, 1);
7626         IHTMLElement_Release(elem);
7627     }
7628
7629     window = get_doc_window(doc);
7630     test_window_name(window, NULL);
7631     set_window_name(window, "test name");
7632     test_window_length(window, 1);
7633     IHTMLWindow2_Release(window);
7634 }
7635
7636 static void test_attr(IHTMLElement *elem)
7637 {
7638     IHTMLDOMAttribute *attr, *attr2;
7639     VARIANT v;
7640
7641     get_elem_attr_node((IUnknown*)elem, "noattr", FALSE);
7642
7643     attr = get_elem_attr_node((IUnknown*)elem, "id", TRUE);
7644
7645     test_disp((IUnknown*)attr, &DIID_DispHTMLDOMAttribute, "[object]");
7646     test_ifaces((IUnknown*)attr, attr_iids);
7647     test_no_iface((IUnknown*)attr, &IID_IHTMLDOMNode);
7648     test_attr_specified(attr, VARIANT_TRUE);
7649
7650     attr2 = get_elem_attr_node((IUnknown*)elem, "id", TRUE);
7651     ok(iface_cmp((IUnknown*)attr, (IUnknown*)attr2), "attr != attr2\n");
7652     IHTMLDOMAttribute_Release(attr2);
7653
7654     get_attr_node_value(attr, &v, VT_BSTR);
7655     ok(!strcmp_wa(V_BSTR(&v), "divid"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
7656     VariantClear(&v);
7657
7658     V_VT(&v) = VT_BSTR;
7659     V_BSTR(&v) = a2bstr("divid2");
7660     put_attr_node_value(attr, v);
7661
7662     get_attr_node_value(attr, &v, VT_BSTR);
7663     ok(!strcmp_wa(V_BSTR(&v), "divid2"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
7664     VariantClear(&v);
7665
7666     IHTMLDOMAttribute_Release(attr);
7667
7668     attr = get_elem_attr_node((IUnknown*)elem, "emptyattr", TRUE);
7669     get_attr_node_value(attr, &v, VT_BSTR);
7670     ok(!V_BSTR(&v), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
7671     VariantClear(&v);
7672
7673     V_VT(&v) = VT_BSTR;
7674     V_BSTR(&v) = a2bstr("newvalue");
7675     put_attr_node_value(attr, v);
7676     VariantClear(&v);
7677
7678     attr = get_elem_attr_node((IUnknown*)elem, "emptyattr", TRUE);
7679     get_attr_node_value(attr, &v, VT_BSTR);
7680     ok(!strcmp_wa(V_BSTR(&v), "newvalue"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
7681     VariantClear(&v);
7682
7683     test_attr_specified(attr, VARIANT_TRUE);
7684     IHTMLDOMAttribute_Release(attr);
7685
7686     V_VT(&v) = VT_I4;
7687     V_I4(&v) = 100;
7688     set_dispex_value((IUnknown*)elem, "dispprop", &v);
7689     attr = get_elem_attr_node((IUnknown*)elem, "dispprop", TRUE);
7690     get_attr_node_value(attr, &v, VT_I4);
7691     ok(V_I4(&v) == 100, "V_I4(v) = %d\n", V_I4(&v));
7692     test_attr_specified(attr, VARIANT_TRUE);
7693
7694     V_VT(&v) = VT_I4;
7695     V_I4(&v) = 150;
7696     put_attr_node_value(attr, v);
7697
7698     get_attr_node_value(attr, &v, VT_I4);
7699     ok(V_I4(&v) == 150, "V_I4(v) = %d\n", V_I4(&v));
7700
7701     IHTMLDOMAttribute_Release(attr);
7702
7703     attr = get_elem_attr_node((IUnknown*)elem, "tabIndex", TRUE);
7704     test_attr_specified(attr, VARIANT_FALSE);
7705     IHTMLDOMAttribute_Release(attr);
7706 }
7707
7708 static void test_blocked(IHTMLDocument2 *doc, IHTMLElement *outer_elem)
7709 {
7710     IHTMLElement *elem;
7711
7712     test_elem_set_innerhtml((IUnknown*)outer_elem,
7713             "<img id=\"imgid\" src=\"BLOCKED::http://www.winehq.org/img.png\" />");
7714     elem = get_elem_by_id(doc, "imgid", TRUE);
7715     if(elem) {
7716         test_img_src((IUnknown*)elem, "BLOCKED::", "blocked::http://www.winehq.org/img.png");
7717         IHTMLElement_Release(elem);
7718     }
7719
7720     test_elem_set_innerhtml((IUnknown*)outer_elem,
7721             "<img id=\"imgid\" src=\"BLOCKE::http://www.winehq.org/img.png\" />");
7722     elem = get_elem_by_id(doc, "imgid", TRUE);
7723     if(elem) {
7724         test_img_src((IUnknown*)elem, "blocke::http://www.winehq.org/img.png", NULL);
7725         test_img_set_src((IUnknown*)elem, "BLOCKED:http://www.winehq.org/img.png");
7726         test_img_src((IUnknown*)elem, "blocked:http://www.winehq.org/img.png", NULL);
7727         test_img_set_src((IUnknown*)elem, "blocked::http://www.winehq.org/img.png");
7728         test_img_src((IUnknown*)elem, "BLOCKED::", "blocked::http://www.winehq.org/img.png");
7729         IHTMLElement_Release(elem);
7730     }
7731 }
7732
7733 #define doc_get_elems_by_name(a,b) _doc_get_elems_by_name(__LINE__,a,b)
7734 static IHTMLElementCollection *_doc_get_elems_by_name(unsigned line, IHTMLDocument2 *doc, const char *name)
7735 {
7736     IHTMLDocument3 *doc3 = _get_doc3_iface(line, doc);
7737     IHTMLElementCollection *col;
7738     BSTR str = a2bstr(name);
7739     HRESULT hres;
7740
7741     hres = IHTMLDocument3_getElementsByName(doc3, str, &col);
7742     ok_(__FILE__,line)(hres == S_OK, "getElementsByName failed: %08x\n", hres);
7743     ok_(__FILE__,line)(col != NULL, "col = NULL\n");
7744
7745     IHTMLDocument3_Release(doc3);
7746     SysFreeString(str);
7747     return col;
7748 }
7749
7750 static void test_elem_names(IHTMLDocument2 *doc)
7751 {
7752     IHTMLElementCollection *col;
7753     IHTMLElement *body;
7754     LONG len;
7755     HRESULT hres;
7756
7757     static const elem_type_t test1_types[] = {ET_INPUT, ET_A, ET_DIV};
7758
7759     body = doc_get_body(doc);
7760
7761     test_elem_set_innerhtml((IUnknown*)body,
7762             "<input name=\"test\"><a name=\"test\"></a><a name=\"xxx\"></a><div id=\"test\"></div>");
7763     col = doc_get_elems_by_name(doc, "test");
7764     test_elem_collection((IUnknown*)col, test1_types, sizeof(test1_types)/sizeof(*test1_types));
7765     IHTMLElementCollection_Release(col);
7766
7767     col = doc_get_elems_by_name(doc, "yyy");
7768     test_elem_collection((IUnknown*)col, NULL, 0);
7769     IHTMLElementCollection_Release(col);
7770
7771     /* case insensivity test */
7772     col = doc_get_elems_by_name(doc, "Xxx");
7773     hres = IHTMLElementCollection_get_length(col, &len);
7774     ok(hres == S_OK, "get_length failed: %08x\n", hres);
7775     todo_wine ok(len == 1, "len = %d\n", len);
7776     IHTMLElementCollection_Release(col);
7777
7778     IHTMLElement_Release(body);
7779 }
7780
7781 static void test_elems2(IHTMLDocument2 *doc)
7782 {
7783     IHTMLElement *elem, *elem2, *div;
7784
7785     static const elem_type_t outer_types[] = {
7786         ET_BR,
7787         ET_A
7788     };
7789
7790     div = get_doc_elem_by_id(doc, "divid");
7791
7792     elem = get_elem_by_id(doc, "linkid", TRUE);
7793     if(elem) {
7794         test_link_disabled(elem, VARIANT_FALSE);
7795         test_link_rel(elem, "stylesheet");
7796         test_link_rev(elem, NULL);
7797         test_link_type(elem, "text/css");
7798         test_link_href(elem, "about:blank");
7799         test_link_media(elem, "all");
7800         link_put_disabled(elem, VARIANT_TRUE);
7801         link_put_rel(elem, "prev");
7802         link_put_rev(elem, "next");
7803         link_put_type(elem, "text/plain");
7804         link_put_href(elem, "about:prev");
7805         IHTMLElement_Release(elem);
7806     }
7807
7808     test_elem_set_innerhtml((IUnknown*)div, "<div id=\"innerid\"></div>");
7809     elem2 = get_doc_elem_by_id(doc, "innerid");
7810     ok(elem2 != NULL, "elem2 == NULL\n");
7811     test_elem_set_outerhtml((IUnknown*)elem2, "<br><a href=\"about:blank\" id=\"aid\">a</a>");
7812     test_elem_all((IUnknown*)div, outer_types, sizeof(outer_types)/sizeof(*outer_types));
7813     IHTMLElement_Release(elem2);
7814
7815     elem2 = get_doc_elem_by_id(doc, "aid");
7816     ok(elem2 != NULL, "elem2 == NULL\n");
7817     test_elem_set_outerhtml((IUnknown*)elem2, "");
7818     test_elem_all((IUnknown*)div, outer_types, 1);
7819     IHTMLElement_Release(elem2);
7820
7821     test_elem_set_innerhtml((IUnknown*)div, "<textarea id=\"ta\"></textarea>");
7822     elem = get_elem_by_id(doc, "ta", TRUE);
7823     if(elem) {
7824         IHTMLFormElement *form;
7825
7826         test_textarea_value((IUnknown*)elem, NULL);
7827         test_textarea_put_value((IUnknown*)elem, "test");
7828         test_textarea_readonly((IUnknown*)elem, VARIANT_FALSE);
7829         test_textarea_put_readonly((IUnknown*)elem, VARIANT_TRUE);
7830         test_textarea_put_readonly((IUnknown*)elem, VARIANT_FALSE);
7831         test_textarea_type((IUnknown*)elem);
7832
7833         form = get_textarea_form((IUnknown*)elem);
7834         ok(!form, "form = %p\n", form);
7835
7836         IHTMLElement_Release(elem);
7837     }
7838
7839     test_elem_set_innerhtml((IUnknown*)div, "<form id=\"fid\"><textarea id=\"ta\"></textarea></form>");
7840     elem = get_elem_by_id(doc, "ta", TRUE);
7841     if(elem) {
7842         IHTMLFormElement *form;
7843
7844         elem2 = get_elem_by_id(doc, "fid", TRUE);
7845         ok(elem2 != NULL, "elem2 == NULL\n");
7846
7847         form = get_textarea_form((IUnknown*)elem);
7848         ok(form != NULL, "form = NULL\n");
7849         ok(iface_cmp((IUnknown*)form, (IUnknown*)elem2), "form != elem2\n");
7850
7851         IHTMLFormElement_Release(form);
7852         IHTMLElement_Release(elem2);
7853         IHTMLElement_Release(elem);
7854     }
7855
7856     test_elem_set_innerhtml((IUnknown*)div,
7857             "<input value=\"val\" id =\"inputid\"  />");
7858     elem = get_elem_by_id(doc, "inputid", TRUE);
7859     if(elem) {
7860         test_input_defaultValue((IUnknown*)elem, "val");
7861         test_input_put_value((IUnknown*)elem, "test");
7862         test_input_put_defaultValue((IUnknown*)elem, "new val");
7863         test_input_value((IUnknown*)elem, "test");
7864         IHTMLElement_Release(elem);
7865     }
7866
7867     test_elem_set_innerhtml((IUnknown*)div, "");
7868     test_insert_adjacent_elems(doc, div);
7869
7870     test_elem_set_innerhtml((IUnknown*)div,
7871             "<form id=\"form\"><input type=\"button\" /><div><input type=\"text\" id=\"inputid\"/></div></textarea>");
7872     elem = get_elem_by_id(doc, "form", TRUE);
7873     if(elem) {
7874         test_form_length((IUnknown*)elem, 2);
7875         test_form_item(elem);
7876         test_form_action((IUnknown*)elem, NULL);
7877         test_form_put_action((IUnknown*)elem, "about:blank");
7878         test_form_method((IUnknown*)elem, "get");
7879         test_form_put_method((IUnknown*)elem, S_OK, "post");
7880         test_form_put_method((IUnknown*)elem, E_INVALIDARG, "put");
7881         test_form_method((IUnknown*)elem, "post");
7882         test_form_name((IUnknown*)elem, NULL);
7883         test_form_put_name((IUnknown*)elem, "Name");
7884         test_form_encoding((IUnknown*)elem, "application/x-www-form-urlencoded");
7885         test_form_put_encoding((IUnknown*)elem, S_OK, "text/plain");
7886         test_form_put_encoding((IUnknown*)elem, S_OK, "multipart/form-data");
7887         test_form_put_encoding((IUnknown*)elem, E_INVALIDARG, "image/png");
7888         test_form_encoding((IUnknown*)elem, "multipart/form-data");
7889         test_form_elements((IUnknown*)elem);
7890         test_form_reset((IUnknown*)elem);
7891         test_form_target((IUnknown*)elem);
7892         IHTMLElement_Release(elem);
7893
7894         elem = get_elem_by_id(doc, "inputid", TRUE);
7895         test_input_get_form((IUnknown*)elem, "form");
7896         IHTMLElement_Release(elem);
7897     }
7898
7899     test_attr(div);
7900     test_blocked(doc, div);
7901     test_elem_names(doc);
7902
7903     IHTMLElement_Release(div);
7904 }
7905
7906 static void test_create_elems(IHTMLDocument2 *doc)
7907 {
7908     IHTMLElement *elem, *body, *elem2;
7909     IHTMLDOMNode *node, *node2, *node3, *comment;
7910     IHTMLDOMAttribute *attr;
7911     IHTMLDocument5 *doc5;
7912     IDispatch *disp;
7913     VARIANT var;
7914     LONG type;
7915     HRESULT hres;
7916     BSTR str;
7917
7918     static const elem_type_t types1[] = { ET_TESTG };
7919
7920     elem = test_create_elem(doc, "TEST");
7921     test_elem_tag((IUnknown*)elem, "TEST");
7922     type = get_node_type((IUnknown*)elem);
7923     ok(type == 1, "type=%d\n", type);
7924     test_ifaces((IUnknown*)elem, elem_iids);
7925     test_disp((IUnknown*)elem, &DIID_DispHTMLGenericElement, "[object]");
7926     test_elem_source_index(elem, -1);
7927
7928     body = doc_get_body(doc);
7929     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
7930
7931     node = test_node_append_child((IUnknown*)body, (IUnknown*)elem);
7932     test_node_has_child((IUnknown*)body, VARIANT_TRUE);
7933     elem2 = get_elem_iface((IUnknown*)node);
7934     IHTMLElement_Release(elem2);
7935
7936     hres = IHTMLElement_get_all(body, &disp);
7937     ok(hres == S_OK, "get_all failed: %08x\n", hres);
7938     test_elem_collection((IUnknown*)disp, types1, sizeof(types1)/sizeof(types1[0]));
7939     IDispatch_Release(disp);
7940
7941     test_node_remove_child((IUnknown*)body, node);
7942
7943     hres = IHTMLElement_get_all(body, &disp);
7944     ok(hres == S_OK, "get_all failed: %08x\n", hres);
7945     test_elem_collection((IUnknown*)disp, NULL, 0);
7946     IDispatch_Release(disp);
7947     test_node_has_child((IUnknown*)body, VARIANT_FALSE);
7948
7949     IHTMLElement_Release(elem);
7950     IHTMLDOMNode_Release(node);
7951
7952     node = test_create_text(doc, "abc");
7953     test_ifaces((IUnknown*)node, text_iids);
7954     test_disp((IUnknown*)node, &DIID_DispHTMLDOMTextNode, "[object]");
7955     test_text_length((IUnknown*)node, 3);
7956     test_text_data((IUnknown*)node, "abc");
7957     set_text_data((IUnknown*)node, "test");
7958     test_text_data((IUnknown*)node, "test");
7959
7960     V_VT(&var) = VT_NULL;
7961     node2 = test_node_insertbefore((IUnknown*)body, node, &var);
7962     IHTMLDOMNode_Release(node);
7963
7964     node = test_create_text(doc, "insert ");
7965
7966     V_VT(&var) = VT_DISPATCH;
7967     V_DISPATCH(&var) = (IDispatch*)node2;
7968     node3 = test_node_insertbefore((IUnknown*)body, node, &var);
7969     IHTMLDOMNode_Release(node);
7970     IHTMLDOMNode_Release(node2);
7971     IHTMLDOMNode_Release(node3);
7972
7973     test_elem_innertext(body, "insert test");
7974     test_elem_innerhtml((IUnknown*)body, "insert test");
7975
7976     node = test_create_text(doc, " Test");
7977     V_VT(&var) = VT_DISPATCH;
7978     V_DISPATCH(&var) = NULL;
7979     test_node_insertbefore((IUnknown*)body, node, &var);
7980     test_elem_innertext(body, "insert test Test");
7981     IHTMLDOMNode_Release(node);
7982
7983     doc5 = get_htmldoc5_iface((IUnknown*)doc);
7984     if(doc5) {
7985         str = a2bstr("testing");
7986         hres = IHTMLDocument5_createComment(doc5, str, &comment);
7987         SysFreeString(str);
7988         ok(hres == S_OK, "createComment failed: %08x\n", hres);
7989         if(hres == S_OK)
7990         {
7991             type = get_node_type((IUnknown*)comment);
7992             ok(type == 8, "type=%d, expected 8\n", type);
7993
7994             test_node_get_value_str((IUnknown*)comment, "testing");
7995             test_elem_title((IUnknown*)comment, NULL);
7996             test_elem_set_title((IUnknown*)comment, "comment title");
7997             test_elem_title((IUnknown*)comment, "comment title");
7998             test_comment_text((IUnknown*)comment, "<!--testing-->");
7999             test_elem_outerhtml((IUnknown*)comment, "<!--testing-->");
8000             test_comment_attrs((IUnknown*)comment);
8001
8002             IHTMLDOMNode_Release(comment);
8003         }
8004
8005         str = a2bstr("Test");
8006         hres = IHTMLDocument5_createAttribute(doc5, str, &attr);
8007         ok(hres == S_OK, "createAttribute dailed: %08x\n", hres);
8008         SysFreeString(str);
8009         if(SUCCEEDED(hres)) {
8010             test_disp((IUnknown*)attr, &DIID_DispHTMLDOMAttribute, "[object]");
8011             test_ifaces((IUnknown*)attr, attr_iids);
8012             test_no_iface((IUnknown*)attr, &IID_IHTMLDOMNode);
8013
8014             test_attr_node_name(attr, "Test");
8015
8016             IHTMLDOMAttribute_Release(attr);
8017         }
8018
8019         IHTMLDocument5_Release(doc5);
8020     }
8021
8022     IHTMLElement_Release(body);
8023 }
8024
8025 static void test_replacechild_elems(IHTMLDocument2 *doc)
8026 {
8027     IHTMLElement *body;
8028     IHTMLDOMNode *node, *node2, *node3;
8029     IHTMLDOMNode *nodeBody, *nodeNew;
8030     HRESULT hres;
8031     VARIANT var;
8032
8033     body = doc_get_body(doc);
8034
8035     node = test_create_text(doc, "insert");
8036
8037     V_VT(&var) = VT_NULL;
8038     V_DISPATCH(&var) = NULL;
8039     node2 = test_node_insertbefore((IUnknown*)body, node, &var);
8040     IHTMLDOMNode_Release(node);
8041
8042     test_elem_innertext(body, "insert");
8043
8044     node3 = test_create_text(doc, "replaced");
8045
8046     nodeBody = _get_node_iface(__LINE__, (IUnknown *)body);
8047
8048     hres = IHTMLDOMNode_replaceChild(nodeBody, node3, node2, &nodeNew);
8049     ok(hres == S_OK, "Expected S_OK, got 0x%08x\n", hres);
8050
8051     test_elem_innertext(body, "replaced");
8052
8053     IHTMLDOMNode_Release(node2);
8054     IHTMLDOMNode_Release(node3);
8055     IHTMLDOMNode_Release(nodeBody);
8056
8057     IHTMLElement_Release(body);
8058 }
8059
8060 static void test_noscript(IHTMLDocument2 *doc)
8061 {
8062     IHTMLElementCollection *col;
8063     IHTMLElement *body;
8064     HRESULT hres;
8065
8066     static const elem_type_t all_types[] = {
8067         ET_HTML,
8068         ET_HEAD,
8069         ET_TITLE,
8070         ET_NOSCRIPT,
8071         ET_BODY,
8072         ET_NOSCRIPT
8073     };
8074
8075     static const elem_type_t body_all_types[] = {
8076         ET_DIV,
8077         ET_NOSCRIPT
8078     };
8079
8080     hres = IHTMLDocument2_get_all(doc, &col);
8081     ok(hres == S_OK, "get_all failed: %08x\n", hres);
8082     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
8083     IHTMLElementCollection_Release(col);
8084
8085     body = doc_get_body(doc);
8086     test_elem_set_innerhtml((IUnknown*)body, "<div>test</div><noscript><a href=\"about:blank\">A</a></noscript>");
8087     test_elem_all((IUnknown*)body, body_all_types, sizeof(body_all_types)/sizeof(*body_all_types));
8088     IHTMLElement_Release(body);
8089 }
8090
8091 static void test_doctype(IHTMLDocument2 *doc)
8092 {
8093     IHTMLDocument2 *doc_node;
8094     IHTMLDOMNode *doctype;
8095     int type;
8096
8097     doc_node = get_doc_node(doc);
8098     doctype = get_first_child((IUnknown*)doc_node);
8099     IHTMLDocument2_Release(doc_node);
8100
8101     type = get_node_type((IUnknown*)doctype);
8102     ok(type == 8, "type = %d\n", type);
8103
8104     test_comment_text((IUnknown*)doctype, "<!DOCTYPE html>");
8105     test_elem_type((IUnknown*)doctype, ET_COMMENT);
8106     IHTMLDOMNode_Release(doctype);
8107 }
8108
8109 static void test_null_write(IHTMLDocument2 *doc)
8110 {
8111     HRESULT hres;
8112
8113     doc_write(doc, FALSE, NULL);
8114     doc_write(doc, TRUE, NULL);
8115
8116     hres = IHTMLDocument2_write(doc, NULL);
8117     ok(hres == S_OK,
8118        "Expected IHTMLDocument2::write to return S_OK, got 0x%08x\n", hres);
8119
8120     hres = IHTMLDocument2_writeln(doc, NULL);
8121     ok(hres == S_OK,
8122        "Expected IHTMLDocument2::writeln to return S_OK, got 0x%08x\n", hres);
8123 }
8124
8125 static void test_create_stylesheet(IHTMLDocument2 *doc)
8126 {
8127     IHTMLStyleSheet *stylesheet, *stylesheet2;
8128     IHTMLStyleElement *style_elem;
8129     IHTMLElement *doc_elem, *elem;
8130     HRESULT hres;
8131
8132     static const elem_type_t all_types[] = {
8133         ET_HTML,
8134         ET_HEAD,
8135         ET_TITLE,
8136         ET_BODY,
8137         ET_DIV
8138     };
8139
8140     static const elem_type_t all_types2[] = {
8141         ET_HTML,
8142         ET_HEAD,
8143         ET_TITLE,
8144         ET_STYLE,
8145         ET_BODY,
8146         ET_DIV
8147     };
8148
8149     test_doc_all(doc, all_types, sizeof(all_types)/sizeof(*all_types));
8150
8151     hres = IHTMLDocument2_createStyleSheet(doc, NULL, -1, &stylesheet);
8152     ok(hres == S_OK, "createStyleSheet failed: %08x\n", hres);
8153
8154     test_doc_all(doc, all_types2, sizeof(all_types2)/sizeof(*all_types2));
8155
8156     doc_elem = get_doc_elem(doc);
8157
8158     test_elem_getelembytag((IUnknown*)doc_elem, ET_STYLE, 1, &elem);
8159     IHTMLElement_Release(doc_elem);
8160
8161     hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLStyleElement, (void**)&style_elem);
8162     IHTMLElement_Release(elem);
8163     ok(hres == S_OK, "Could not get IHTMLStyleElement iface: %08x\n", hres);
8164
8165     stylesheet2 = NULL;
8166     hres = IHTMLStyleElement_get_styleSheet(style_elem, &stylesheet2);
8167     ok(hres == S_OK, "get_styleSheet failed: %08x\n", hres);
8168     ok(stylesheet2 != NULL, "stylesheet2 == NULL\n");
8169     ok(iface_cmp((IUnknown*)stylesheet, (IUnknown*)stylesheet2), "stylesheet != stylesheet2\n");
8170
8171     IHTMLStyleSheet_Release(stylesheet2);
8172     IHTMLStyleSheet_Release(stylesheet);
8173
8174     IHTMLStyleElement_Release(style_elem);
8175 }
8176
8177 static void test_exec(IUnknown *unk, const GUID *grpid, DWORD cmdid, VARIANT *in, VARIANT *out)
8178 {
8179     IOleCommandTarget *cmdtrg;
8180     HRESULT hres;
8181
8182     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
8183     ok(hres == S_OK, "Could not get IOleCommandTarget interface: %08x\n", hres);
8184
8185     hres = IOleCommandTarget_Exec(cmdtrg, grpid, cmdid, 0, in, out);
8186     ok(hres == S_OK, "Exec failed: %08x\n", hres);
8187
8188     IOleCommandTarget_Release(cmdtrg);
8189 }
8190
8191 static void test_indent(IHTMLDocument2 *doc)
8192 {
8193     IHTMLElementCollection *col;
8194     IHTMLTxtRange *range;
8195     HRESULT hres;
8196
8197     static const elem_type_t all_types[] = {
8198         ET_HTML,
8199         ET_HEAD,
8200         ET_TITLE,
8201         ET_BODY,
8202         ET_BR,
8203         ET_A,
8204     };
8205
8206     static const elem_type_t indent_types[] = {
8207         ET_HTML,
8208         ET_HEAD,
8209         ET_TITLE,
8210         ET_BODY,
8211         ET_BLOCKQUOTE,
8212         ET_P,
8213         ET_BR,
8214         ET_A,
8215     };
8216
8217     hres = IHTMLDocument2_get_all(doc, &col);
8218     ok(hres == S_OK, "get_all failed: %08x\n", hres);
8219     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
8220     IHTMLElementCollection_Release(col);
8221
8222     range = test_create_body_range(doc);
8223     test_exec((IUnknown*)range, &CGID_MSHTML, IDM_INDENT, NULL, NULL);
8224     IHTMLTxtRange_Release(range);
8225
8226     hres = IHTMLDocument2_get_all(doc, &col);
8227     ok(hres == S_OK, "get_all failed: %08x\n", hres);
8228     test_elem_collection((IUnknown*)col, indent_types, sizeof(indent_types)/sizeof(indent_types[0]));
8229     IHTMLElementCollection_Release(col);
8230 }
8231
8232 static void test_cond_comment(IHTMLDocument2 *doc)
8233 {
8234     IHTMLElementCollection *col;
8235     HRESULT hres;
8236
8237     static const elem_type_t all_types[] = {
8238         ET_HTML,
8239         ET_HEAD,
8240         ET_TITLE,
8241         ET_BODY,
8242         ET_BR
8243     };
8244
8245     hres = IHTMLDocument2_get_all(doc, &col);
8246     ok(hres == S_OK, "get_all failed: %08x\n", hres);
8247     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
8248     IHTMLElementCollection_Release(col);
8249 }
8250
8251 static HRESULT WINAPI Unknown_QueryInterface(IUnknown *iface, REFIID riid, void **ppv)
8252 {
8253     ok(IsEqualGUID(riid, &IID_IServiceProvider), "riid = %s\n", wine_dbgstr_guid(riid));
8254     return E_NOINTERFACE;
8255 }
8256
8257 static ULONG WINAPI Unknown_AddRef(IUnknown *iface)
8258 {
8259     return 2;
8260 }
8261
8262 static ULONG WINAPI Unknown_Release(IUnknown *iface)
8263 {
8264     return 1;
8265 }
8266
8267 static const IUnknownVtbl UnknownVtbl = {
8268     Unknown_QueryInterface,
8269     Unknown_AddRef,
8270     Unknown_Release,
8271 };
8272 static IUnknown obj_ident_test = { &UnknownVtbl };
8273
8274 static void test_frame(IDispatch *disp, const char *exp_id)
8275 {
8276     IHTMLWindow2 *frame2, *parent, *top;
8277     IHTMLDocument2 *parent_doc, *top_doc;
8278     IHTMLWindow4 *frame;
8279     IHTMLFrameBase *frame_elem;
8280     IObjectIdentity *obj_ident;
8281     ITravelLogClient *tlc;
8282     HRESULT hres;
8283
8284     hres = IDispatch_QueryInterface(disp, &IID_IHTMLWindow4, (void**)&frame);
8285     ok(hres == S_OK, "Could not get IHTMLWindow4 interface: 0x%08x\n", hres);
8286     if(FAILED(hres))
8287         return;
8288
8289     hres = IHTMLWindow4_get_frameElement(frame, &frame_elem);
8290     ok(hres == S_OK, "IHTMLWindow4_get_frameElement failed: 0x%08x\n", hres);
8291     IHTMLWindow4_Release(frame);
8292     if(FAILED(hres))
8293         return;
8294
8295     test_elem_type((IUnknown*)frame_elem, ET_FRAME);
8296     test_frame_doc((IUnknown*)frame_elem, FALSE);
8297     test_elem_id((IUnknown*)frame_elem, exp_id);
8298     IHTMLFrameBase_Release(frame_elem);
8299
8300     hres = IDispatch_QueryInterface(disp, &IID_IHTMLWindow2, (void**)&frame2);
8301     ok(hres == S_OK, "Could not get IHTMLWindow2 interface: 0x%08x\n", hres);
8302     if(FAILED(hres))
8303         return;
8304
8305     hres = IHTMLWindow2_get_parent(frame2, &parent);
8306     ok(hres == S_OK, "IHTMLWindow2_get_parent failed: 0x%08x\n", hres);
8307     if(FAILED(hres)){
8308         IHTMLWindow2_Release(frame2);
8309         return;
8310     }
8311
8312     hres = IHTMLWindow2_QueryInterface(frame2, &IID_IObjectIdentity, (void**)&obj_ident);
8313     ok(hres == S_OK, "Could not get IObjectIdentity interface: %08x\n", hres);
8314     hres = IHTMLWindow2_QueryInterface(frame2, &IID_ITravelLogClient, (void**)&tlc);
8315     if(hres == E_NOINTERFACE) {
8316         win_skip("IID_ITravelLogClient not available\n");
8317         tlc = NULL;
8318     }else {
8319         ok(hres == S_OK, "Could not get ITravelLogClient interface: %08x\n", hres);
8320
8321         hres = IObjectIdentity_IsEqualObject(obj_ident, (IUnknown*)tlc);
8322         ok(hres == S_OK, "IsEqualObject returned: 0x%08x\n", hres);
8323         ITravelLogClient_Release(tlc);
8324     }
8325
8326     hres = IObjectIdentity_IsEqualObject(obj_ident, (IUnknown*)obj_ident);
8327     ok(hres == S_OK, "IsEqualObject returned: 0x%08x\n", hres);
8328     hres = IObjectIdentity_IsEqualObject(obj_ident, (IUnknown*)parent);
8329     ok(hres == S_FALSE, "IsEqualObject returned: 0x%08x\n", hres);
8330     hres = IObjectIdentity_IsEqualObject(obj_ident, &obj_ident_test);
8331     ok(hres == E_NOINTERFACE, "IsEqualObject returned: 0x%08x\n", hres);
8332
8333     IObjectIdentity_Release(obj_ident);
8334
8335     hres = IHTMLWindow2_get_document(parent, &parent_doc);
8336     ok(hres == S_OK, "IHTMLWindow2_get_document failed: 0x%08x\n", hres);
8337     IHTMLWindow2_Release(parent);
8338     if(FAILED(hres)){
8339         IHTMLWindow2_Release(frame2);
8340         return;
8341     }
8342
8343     test_doc_title(parent_doc, "frameset test");
8344     IHTMLDocument2_Release(parent_doc);
8345
8346     /* test get_top */
8347     hres = IHTMLWindow2_get_top(frame2, &top);
8348     ok(hres == S_OK, "IHTMLWindow2_get_top failed: 0x%08x\n", hres);
8349     IHTMLWindow2_Release(frame2);
8350     if(FAILED(hres))
8351         return;
8352
8353     hres = IHTMLWindow2_get_document(top, &top_doc);
8354     ok(hres == S_OK, "IHTMLWindow2_get_document failed: 0x%08x\n", hres);
8355     IHTMLWindow2_Release(top);
8356     if(FAILED(hres))
8357         return;
8358
8359     test_doc_title(top_doc, "frameset test");
8360     IHTMLDocument2_Release(top_doc);
8361 }
8362
8363 static void test_frames_collection(IHTMLFramesCollection2 *frames, const char *frid)
8364 {
8365     VARIANT index_var, result_var;
8366     LONG length;
8367     HRESULT hres;
8368
8369     /* test result length */
8370     hres = IHTMLFramesCollection2_get_length(frames, &length);
8371     ok(hres == S_OK, "IHTMLFramesCollection2_get_length failed: 0x%08x\n", hres);
8372     ok(length == 3, "IHTMLFramesCollection2_get_length should have been 3, was: %d\n", length);
8373
8374     /* test first frame */
8375     V_VT(&index_var) = VT_I4;
8376     V_I4(&index_var) = 0;
8377     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
8378     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
8379     if(SUCCEEDED(hres)) {
8380         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
8381         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr1");
8382     }
8383     VariantClear(&result_var);
8384
8385     /* test second frame */
8386     V_I4(&index_var) = 1;
8387     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
8388     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
8389     if(SUCCEEDED(hres)) {
8390         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
8391         test_frame((IDispatch*)V_DISPATCH(&result_var), "fr2");
8392     }
8393     VariantClear(&result_var);
8394
8395     /* fail on next frame */
8396     V_I4(&index_var) = 3;
8397     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
8398     ok(hres == DISP_E_MEMBERNOTFOUND, "IHTMLFramesCollection2_item should have"
8399            "failed with DISP_E_MEMBERNOTFOUND, instead: 0x%08x\n", hres);
8400     VariantClear(&result_var);
8401
8402     /* string argument (element id lookup) */
8403     V_VT(&index_var) = VT_BSTR;
8404     V_BSTR(&index_var) = a2bstr(frid);
8405     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
8406     ok(hres == S_OK, "IHTMLFramesCollection2_item failed: 0x%08x\n", hres);
8407     if(SUCCEEDED(hres)) {
8408         ok(V_VT(&result_var) == VT_DISPATCH, "result type should have been VT_DISPATCH, was: 0x%x\n", V_VT(&result_var));
8409         test_frame(V_DISPATCH(&result_var), frid);
8410     }
8411     VariantClear(&result_var);
8412     VariantClear(&index_var);
8413
8414     /* invalid argument */
8415     V_VT(&index_var) = VT_BOOL;
8416     V_BOOL(&index_var) = VARIANT_TRUE;
8417     hres = IHTMLFramesCollection2_item(frames, &index_var, &result_var);
8418     ok(hres == E_INVALIDARG, "IHTMLFramesCollection2_item should have"
8419            "failed with E_INVALIDARG, instead: 0x%08x\n", hres);
8420     VariantClear(&result_var);
8421 }
8422
8423 static void test_frameset(IHTMLDocument2 *doc)
8424 {
8425     IHTMLWindow2 *window;
8426     IHTMLFramesCollection2 *frames;
8427     IHTMLElement *elem;
8428     HRESULT hres;
8429
8430     window = get_doc_window(doc);
8431
8432     /* test using IHTMLFramesCollection object */
8433
8434     hres = IHTMLWindow2_get_frames(window, &frames);
8435     ok(hres == S_OK, "IHTMLWindow2_get_frames failed: 0x%08x\n", hres);
8436     if(FAILED(hres))
8437         return;
8438
8439     test_frames_collection(frames, "fr1");
8440     IHTMLFramesCollection2_Release(frames);
8441
8442     hres = IHTMLDocument2_get_frames(doc, &frames);
8443     ok(hres == S_OK, "IHTMLDocument2_get_frames failed: 0x%08x\n", hres);
8444     if(FAILED(hres))
8445         return;
8446
8447     test_frames_collection(frames, "fr1");
8448     IHTMLFramesCollection2_Release(frames);
8449
8450     /* test using IHTMLWindow2 inheritance */
8451     test_frames_collection((IHTMLFramesCollection2*)window, "fr2");
8452
8453     /* getElementById with node name attributes */
8454     elem = get_doc_elem_by_id(doc, "nm1");
8455     test_elem_id((IUnknown*)elem, "fr1");
8456
8457     test_framebase((IUnknown*)elem);
8458     test_framebase_name(elem, "nm1");
8459     test_framebase_put_name(elem, "frame name");
8460     test_framebase_put_name(elem, NULL);
8461     test_framebase_put_name(elem, "nm1");
8462     IHTMLElement_Release(elem);
8463
8464     /* get_name with no name attr */
8465     elem = get_doc_elem_by_id(doc, "fr3");
8466     test_framebase_name(elem, NULL);
8467     test_framebase_put_name(elem, "frame name");
8468     test_framebase_put_name(elem, NULL);
8469     IHTMLElement_Release(elem);
8470
8471     IHTMLWindow2_Release(window);
8472 }
8473
8474 static IHTMLDocument2 *create_docfrag(IHTMLDocument2 *doc)
8475 {
8476     IHTMLDocument2 *frag;
8477     IHTMLDocument3 *doc3;
8478     HRESULT hres;
8479
8480     hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
8481     ok(hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
8482
8483     hres = IHTMLDocument3_createDocumentFragment(doc3, &frag);
8484     IHTMLDocument3_Release(doc3);
8485     ok(hres == S_OK, "createDocumentFragment failed: %08x\n", hres);
8486     ok(frag != NULL, "frag == NULL\n");
8487
8488     return frag;
8489 }
8490
8491 static void test_docfrag(IHTMLDocument2 *doc)
8492 {
8493     IHTMLDocument2 *frag, *owner_doc, *doc_node;
8494     IHTMLElement *div, *body, *br;
8495     IHTMLElementCollection *col;
8496     IHTMLLocation *location;
8497     HRESULT hres;
8498
8499     static const elem_type_t all_types[] = {
8500         ET_HTML,
8501         ET_HEAD,
8502         ET_TITLE,
8503         ET_BODY,
8504         ET_DIV,
8505         ET_BR
8506     };
8507
8508     frag = create_docfrag(doc);
8509
8510     test_disp((IUnknown*)frag, &DIID_DispHTMLDocument, "[object]");
8511
8512     body = (void*)0xdeadbeef;
8513     hres = IHTMLDocument2_get_body(frag, &body);
8514     ok(hres == S_OK, "get_body failed: %08x\n", hres);
8515     ok(!body, "body != NULL\n");
8516
8517     location = (void*)0xdeadbeef;
8518     hres = IHTMLDocument2_get_location(frag, &location);
8519     ok(hres == E_UNEXPECTED, "get_location failed: %08x\n", hres);
8520     ok(location == (void*)0xdeadbeef, "location changed\n");
8521
8522     br = test_create_elem(doc, "BR");
8523     test_elem_source_index(br, -1);
8524     test_node_append_child((IUnknown*)frag, (IUnknown*)br);
8525     test_elem_source_index(br, 0);
8526     IHTMLElement_Release(br);
8527
8528     div = get_elem_by_id(doc, "divid", TRUE);
8529     test_node_append_child((IUnknown*)div, (IUnknown*)frag);
8530     IHTMLElement_Release(div);
8531
8532     hres = IHTMLDocument2_get_all(doc, &col);
8533     ok(hres == S_OK, "get_all failed: %08x\n", hres);
8534     test_elem_collection((IUnknown*)col, all_types, sizeof(all_types)/sizeof(all_types[0]));
8535     IHTMLElementCollection_Release(col);
8536
8537     div = test_create_elem(frag, "div");
8538     owner_doc = get_owner_doc((IUnknown*)div);
8539     doc_node = get_doc_node(doc);
8540     ok(iface_cmp((IUnknown*)owner_doc, (IUnknown*)doc_node), "owner_doc != doc_node\n");
8541     IHTMLDocument2_Release(doc_node);
8542     IHTMLDocument2_Release(owner_doc);
8543     IHTMLElement_Release(div);
8544
8545     IHTMLDocument2_Release(frag);
8546 }
8547
8548 static void check_quirks_mode(IHTMLDocument2 *doc)
8549 {
8550     test_compatmode(doc, "BackCompat");
8551 }
8552
8553 static void check_strict_mode(IHTMLDocument2 *doc)
8554 {
8555     test_compatmode(doc, "CSS1Compat");
8556 }
8557
8558 static IHTMLDocument2 *notif_doc;
8559 static BOOL doc_complete;
8560
8561 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
8562         REFIID riid, void**ppv)
8563 {
8564     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
8565         *ppv = iface;
8566         return S_OK;
8567     }
8568
8569     ok(0, "unexpected call\n");
8570     return E_NOINTERFACE;
8571 }
8572
8573 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
8574 {
8575     return 2;
8576 }
8577
8578 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
8579 {
8580     return 1;
8581 }
8582
8583 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
8584 {
8585     if(dispID == DISPID_READYSTATE){
8586         BSTR state;
8587         HRESULT hres;
8588
8589         hres = IHTMLDocument2_get_readyState(notif_doc, &state);
8590         ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
8591
8592         if(!strcmp_wa(state, "complete"))
8593             doc_complete = TRUE;
8594
8595         SysFreeString(state);
8596     }
8597
8598     return S_OK;
8599 }
8600
8601 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
8602 {
8603     ok(0, "unexpected call\n");
8604     return E_NOTIMPL;
8605 }
8606
8607 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
8608     PropertyNotifySink_QueryInterface,
8609     PropertyNotifySink_AddRef,
8610     PropertyNotifySink_Release,
8611     PropertyNotifySink_OnChanged,
8612     PropertyNotifySink_OnRequestEdit
8613 };
8614
8615 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
8616
8617 static IHTMLDocument2 *create_doc_with_string(const char *str)
8618 {
8619     IPersistStreamInit *init;
8620     IStream *stream;
8621     IHTMLDocument2 *doc;
8622     HGLOBAL mem;
8623     SIZE_T len;
8624
8625     notif_doc = doc = create_document();
8626     if(!doc)
8627         return NULL;
8628
8629     doc_complete = FALSE;
8630     len = strlen(str);
8631     mem = GlobalAlloc(0, len);
8632     memcpy(mem, str, len);
8633     CreateStreamOnHGlobal(mem, TRUE, &stream);
8634
8635     IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
8636
8637     IPersistStreamInit_Load(init, stream);
8638     IPersistStreamInit_Release(init);
8639     IStream_Release(stream);
8640
8641     return doc;
8642 }
8643
8644 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
8645 {
8646     IConnectionPointContainer *container;
8647     IConnectionPoint *cp;
8648     DWORD cookie;
8649     HRESULT hres;
8650
8651     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
8652     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
8653
8654     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
8655     IConnectionPointContainer_Release(container);
8656     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
8657
8658     hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
8659     IConnectionPoint_Release(cp);
8660     ok(hres == S_OK, "Advise failed: %08x\n", hres);
8661 }
8662
8663 typedef void (*domtest_t)(IHTMLDocument2*);
8664
8665 static void run_domtest(const char *str, domtest_t test)
8666 {
8667     IHTMLDocument2 *doc;
8668     ULONG ref;
8669     MSG msg;
8670
8671     doc = create_doc_with_string(str);
8672     if(!doc)
8673         return;
8674
8675     do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
8676
8677     while(!doc_complete && GetMessageW(&msg, NULL, 0, 0)) {
8678         TranslateMessage(&msg);
8679         DispatchMessageW(&msg);
8680     }
8681
8682     test(doc);
8683
8684     ref = IHTMLDocument2_Release(doc);
8685     ok(!ref || broken(ref == 1), /* Vista */
8686        "ref = %d\n", ref);
8687 }
8688
8689 static void test_quirks_mode(void)
8690 {
8691     run_domtest("<html></html>", check_quirks_mode);
8692     run_domtest("<!DOCTYPE html>\n<html></html>", check_strict_mode);
8693     run_domtest("<!-- comment --><!DOCTYPE html>\n<html></html>", check_quirks_mode);
8694 }
8695
8696 START_TEST(dom)
8697 {
8698     HMODULE hkernel32 = GetModuleHandleA("kernel32.dll");
8699     pLCIDToLocaleName = (void*)GetProcAddress(hkernel32, "LCIDToLocaleName");
8700     pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
8701
8702     CoInitialize(NULL);
8703
8704     run_domtest(doc_str1, test_doc_elem);
8705     run_domtest(doc_str1, test_get_set_attr);
8706     run_domtest(range_test_str, test_txtrange);
8707     run_domtest(range_test2_str, test_txtrange2);
8708     if (winetest_interactive || ! is_ie_hardened()) {
8709         run_domtest(elem_test_str, test_elems);
8710         run_domtest(elem_test2_str, test_elems2);
8711         run_domtest(noscript_str, test_noscript);
8712     }else {
8713         skip("IE running in Enhanced Security Configuration\n");
8714     }
8715     run_domtest(doc_blank, test_create_elems);
8716     run_domtest(doc_blank, test_defaults);
8717     run_domtest(doc_blank, test_null_write);
8718     run_domtest(emptydiv_str, test_create_stylesheet);
8719     run_domtest(indent_test_str, test_indent);
8720     run_domtest(cond_comment_str, test_cond_comment);
8721     run_domtest(frameset_str, test_frameset);
8722     run_domtest(emptydiv_str, test_docfrag);
8723     run_domtest(doc_blank, test_replacechild_elems);
8724     run_domtest(doctype_str, test_doctype);
8725
8726     test_quirks_mode();
8727
8728     CoUninitialize();
8729 }