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

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