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