?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
msxml3/tests: Add CDATA block to whitespace trimming tests.
[wine.git] / dlls / msxml3 / tests / domdoc.c
blobc89436179e27652d20955b70ca00d43e936889e7
1 /*
2 * XML test
3 *
4 * Copyright 2005 Mike McCormack for CodeWeavers
5 * Copyright 2007-2008 Alistair Leslie-Hughes
6 * Copyright 2010-2011 Adam Martinson for CodeWeavers
7 * Copyright 2010-2013 Nikolay Sivov for CodeWeavers
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 */
23
24
25 #define COBJMACROS
26 #define CONST_VTABLE
27
28 #include <stdio.h>
29 #include <assert.h>
30
31 #include "windows.h"
32
33 #include "msxml.h"
34 #include "msxml2.h"
35 #include "msxml2did.h"
36 #include "ole2.h"
37 #include "dispex.h"
38 #include "objsafe.h"
39 #include "initguid.h"
40
41 #include "wine/test.h"
42
43 /* undef the #define in msxml2 so that we can access all versions */
44 #undef CLSID_DOMDocument
45
46 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
47
48 static int g_unexpectedcall, g_expectedcall;
49
50 struct msxmlsupported_data_t
51 {
52 const GUID *clsid;
53 const char *name;
54 const IID *ifaces[3];
55 BOOL supported[3];
56 };
57
58 static struct msxmlsupported_data_t domdoc_support_data[] =
59 {
60 { &CLSID_DOMDocument, "DOMDocument", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
61 { &CLSID_DOMDocument2, "DOMDocument2", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
62 { &CLSID_DOMDocument30, "DOMDocument30", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
63 { &CLSID_DOMDocument40, "DOMDocument40", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
64 { &CLSID_DOMDocument60, "DOMDocument60", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3} },
65 { &CLSID_FreeThreadedDOMDocument, "FreeThreadedDOMDocument", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
66 { &CLSID_XMLSchemaCache, "XMLSchemaCache", {&IID_IXMLDOMSchemaCollection} },
67 { &CLSID_XSLTemplate, "XSLTemplate", {&IID_IXSLTemplate} },
68 { &CLSID_MXNamespaceManager40, "MXNamespaceManager40", {&IID_IMXNamespaceManager} },
69 { NULL }
70 };
71
72 static const char *debugstr_msxml_guid(REFIID riid)
73 {
74 if(!riid)
75 return "(null)";
76
77 if (IsEqualIID(&IID_IXMLDOMDocument, riid))
78 return "IXMLDOMDocument";
79 else if (IsEqualIID(&IID_IXMLDOMDocument2, riid))
80 return "IXMLDOMDocument2";
81 else if (IsEqualIID(&IID_IXMLDOMDocument3, riid))
82 return "IXMLDOMDocument3";
83 else if (IsEqualIID(&IID_IXMLDOMSchemaCollection, riid))
84 return "IXMLDOMSchemaCollection";
85 else if (IsEqualIID(&IID_IXSLTemplate, riid))
86 return "IXSLTemplate";
87 else if (IsEqualIID(&IID_IMXNamespaceManager, riid))
88 return "IMXNamespaceManager";
89 else
90 return wine_dbgstr_guid(riid);
91 }
92
93 static void get_class_support_data(struct msxmlsupported_data_t *table)
94 {
95 while (table->clsid)
96 {
97 IUnknown *unk;
98 HRESULT hr;
99 int i;
100
101 for (i = 0; i < sizeof(table->ifaces)/sizeof(table->ifaces[0]) && table->ifaces[i] != NULL; i++)
102 {
103 hr = CoCreateInstance(table->clsid, NULL, CLSCTX_INPROC_SERVER, table->ifaces[i], (void**)&unk);
104 if (hr == S_OK) IUnknown_Release(unk);
105
106 table->supported[i] = hr == S_OK;
107 if (hr != S_OK) win_skip("class %s, iface %s not supported\n", table->name, debugstr_msxml_guid(table->ifaces[i]));
108 }
109
110 table++;
111 }
112 }
113
114 static BOOL is_clsid_supported(const GUID *clsid, REFIID riid)
115 {
116 const struct msxmlsupported_data_t *table = domdoc_support_data;
117 while (table->clsid)
118 {
119 if (table->clsid == clsid)
120 {
121 int i;
122
123 for (i = 0; i < sizeof(table->ifaces)/sizeof(table->ifaces[0]) && table->ifaces[i] != NULL; i++)
124 if (table->ifaces[i] == riid) return table->supported[i];
125 }
126
127 table++;
128 }
129 return FALSE;
130 }
131
132 typedef struct
133 {
134 IDispatch IDispatch_iface;
135 LONG ref;
136 } dispevent;
137
138 static inline dispevent *impl_from_IDispatch( IDispatch *iface )
139 {
140 return CONTAINING_RECORD(iface, dispevent, IDispatch_iface);
141 }
142
143 static HRESULT WINAPI dispevent_QueryInterface(IDispatch *iface, REFIID riid, void **ppvObject)
144 {
145 *ppvObject = NULL;
146
147 if ( IsEqualGUID( riid, &IID_IDispatch) ||
148 IsEqualGUID( riid, &IID_IUnknown) )
149 {
150 *ppvObject = iface;
151 }
152 else
153 return E_NOINTERFACE;
154
155 IDispatch_AddRef( iface );
156
157 return S_OK;
158 }
159
160 static ULONG WINAPI dispevent_AddRef(IDispatch *iface)
161 {
162 dispevent *This = impl_from_IDispatch( iface );
163 return InterlockedIncrement( &This->ref );
164 }
165
166 static ULONG WINAPI dispevent_Release(IDispatch *iface)
167 {
168 dispevent *This = impl_from_IDispatch( iface );
169 ULONG ref = InterlockedDecrement( &This->ref );
170
171 if (ref == 0)
172 HeapFree(GetProcessHeap(), 0, This);
173
174 return ref;
175 }
176
177 static HRESULT WINAPI dispevent_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
178 {
179 g_unexpectedcall++;
180 *pctinfo = 0;
181 return S_OK;
182 }
183
184 static HRESULT WINAPI dispevent_GetTypeInfo(IDispatch *iface, UINT iTInfo,
185 LCID lcid, ITypeInfo **ppTInfo)
186 {
187 g_unexpectedcall++;
188 return S_OK;
189 }
190
191 static HRESULT WINAPI dispevent_GetIDsOfNames(IDispatch *iface, REFIID riid,
192 LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
193 {
194 g_unexpectedcall++;
195 return S_OK;
196 }
197
198 static HRESULT WINAPI dispevent_Invoke(IDispatch *iface, DISPID member, REFIID riid,
199 LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result,
200 EXCEPINFO *excepInfo, UINT *argErr)
201 {
202 ok(member == 0, "expected 0 member, got %d\n", member);
203 ok(lcid == LOCALE_SYSTEM_DEFAULT, "expected LOCALE_SYSTEM_DEFAULT, got lcid %x\n", lcid);
204 ok(flags == DISPATCH_METHOD, "expected DISPATCH_METHOD, got %d\n", flags);
205
206 ok(params->cArgs == 0, "got %d\n", params->cArgs);
207 ok(params->cNamedArgs == 0, "got %d\n", params->cNamedArgs);
208 ok(params->rgvarg == NULL, "got %p\n", params->rgvarg);
209 ok(params->rgdispidNamedArgs == NULL, "got %p\n", params->rgdispidNamedArgs);
210
211 ok(result == NULL, "got %p\n", result);
212 ok(excepInfo == NULL, "got %p\n", excepInfo);
213 ok(argErr == NULL, "got %p\n", argErr);
214
215 g_expectedcall++;
216 return E_FAIL;
217 }
218
219 static const IDispatchVtbl dispeventVtbl =
220 {
221 dispevent_QueryInterface,
222 dispevent_AddRef,
223 dispevent_Release,
224 dispevent_GetTypeInfoCount,
225 dispevent_GetTypeInfo,
226 dispevent_GetIDsOfNames,
227 dispevent_Invoke
228 };
229
230 static IDispatch* create_dispevent(void)
231 {
232 dispevent *event = HeapAlloc(GetProcessHeap(), 0, sizeof(*event));
233
234 event->IDispatch_iface.lpVtbl = &dispeventVtbl;
235 event->ref = 1;
236
237 return (IDispatch*)&event->IDispatch_iface;
238 }
239
240 /* IStream */
241 static HRESULT WINAPI istream_QueryInterface(IStream *iface, REFIID riid, void **ppvObject)
242 {
243 *ppvObject = NULL;
244
245 if (IsEqualGUID(riid, &IID_IStream) ||
246 IsEqualGUID(riid, &IID_IUnknown))
247 *ppvObject = iface;
248 else
249 return E_NOINTERFACE;
250
251 return S_OK;
252 }
253
254 static ULONG WINAPI istream_AddRef(IStream *iface)
255 {
256 return 2;
257 }
258
259 static ULONG WINAPI istream_Release(IStream *iface)
260 {
261 return 1;
262 }
263
264 static HRESULT WINAPI istream_Read(IStream *iface, void *ptr, ULONG len, ULONG *pread)
265 {
266 ok(0, "unexpected call\n");
267 return E_NOTIMPL;
268 }
269
270 static HRESULT WINAPI istream_Write(IStream *iface, const void *ptr, ULONG len, ULONG *written)
271 {
272 *written = len/2;
273 return S_OK;
274 }
275
276 static HRESULT WINAPI istream_Seek(IStream *iface, LARGE_INTEGER move, DWORD origin, ULARGE_INTEGER *new_pos)
277 {
278 ok(0, "unexpected call\n");
279 return E_NOTIMPL;
280 }
281
282 static HRESULT WINAPI istream_SetSize(IStream *iface, ULARGE_INTEGER size)
283 {
284 ok(0, "unexpected call\n");
285 return E_NOTIMPL;
286 }
287
288 static HRESULT WINAPI istream_CopyTo(IStream *iface, IStream *stream, ULARGE_INTEGER len,
289 ULARGE_INTEGER *pread, ULARGE_INTEGER *written)
290 {
291 ok(0, "unexpected call\n");
292 return E_NOTIMPL;
293 }
294
295 static HRESULT WINAPI istream_Commit(IStream *iface, DWORD flags)
296 {
297 ok(0, "unexpected call\n");
298 return E_NOTIMPL;
299 }
300
301 static HRESULT WINAPI istream_Revert(IStream *iface)
302 {
303 ok(0, "unexpected call\n");
304 return E_NOTIMPL;
305 }
306
307 static HRESULT WINAPI istream_LockRegion(IStream *iface, ULARGE_INTEGER offset,
308 ULARGE_INTEGER len, DWORD locktype)
309 {
310 ok(0, "unexpected call\n");
311 return E_NOTIMPL;
312 }
313
314 static HRESULT WINAPI istream_UnlockRegion(IStream *iface, ULARGE_INTEGER offset,
315 ULARGE_INTEGER len, DWORD locktype)
316 {
317 ok(0, "unexpected call\n");
318 return E_NOTIMPL;
319 }
320
321 static HRESULT WINAPI istream_Stat(IStream *iface, STATSTG *pstatstg, DWORD flag)
322 {
323 ok(0, "unexpected call\n");
324 return E_NOTIMPL;
325 }
326
327 static HRESULT WINAPI istream_Clone(IStream *iface, IStream **stream)
328 {
329 ok(0, "unexpected call\n");
330 return E_NOTIMPL;
331 }
332
333 static const IStreamVtbl StreamVtbl = {
334 istream_QueryInterface,
335 istream_AddRef,
336 istream_Release,
337 istream_Read,
338 istream_Write,
339 istream_Seek,
340 istream_SetSize,
341 istream_CopyTo,
342 istream_Commit,
343 istream_Revert,
344 istream_LockRegion,
345 istream_UnlockRegion,
346 istream_Stat,
347 istream_Clone
348 };
349
350 static IStream savestream = { &StreamVtbl };
351
352 #define EXPECT_CHILDREN(node) _expect_children((IXMLDOMNode*)node, __LINE__)
353 static void _expect_children(IXMLDOMNode *node, int line)
354 {
355 VARIANT_BOOL b;
356 HRESULT hr;
357
358 b = VARIANT_FALSE;
359 hr = IXMLDOMNode_hasChildNodes(node, &b);
360 ok_(__FILE__,line)(hr == S_OK, "hasChildNodes() failed, 0x%08x\n", hr);
361 ok_(__FILE__,line)(b == VARIANT_TRUE, "no children, %d\n", b);
362 }
363
364 #define EXPECT_NO_CHILDREN(node) _expect_no_children((IXMLDOMNode*)node, __LINE__)
365 static void _expect_no_children(IXMLDOMNode *node, int line)
366 {
367 VARIANT_BOOL b;
368 HRESULT hr;
369
370 b = VARIANT_TRUE;
371 hr = IXMLDOMNode_hasChildNodes(node, &b);
372 ok_(__FILE__,line)(hr == S_FALSE, "hasChildNodes() failed, 0x%08x\n", hr);
373 ok_(__FILE__,line)(b == VARIANT_FALSE, "no children, %d\n", b);
374 }
375
376 #define EXPECT_REF(node,ref) _expect_ref((IUnknown*)node, ref, __LINE__)
377 static void _expect_ref(IUnknown* obj, ULONG ref, int line)
378 {
379 ULONG rc;
380 IUnknown_AddRef(obj);
381 rc = IUnknown_Release(obj);
382 ok_(__FILE__,line)(rc == ref, "expected refcount %d, got %d\n", ref, rc);
383 }
384
385 #define EXPECT_LIST_LEN(list,len) _expect_list_len(list, len, __LINE__)
386 static void _expect_list_len(IXMLDOMNodeList *list, LONG len, int line)
387 {
388 LONG length;
389 HRESULT hr;
390
391 length = 0;
392 hr = IXMLDOMNodeList_get_length(list, &length);
393 ok_(__FILE__,line)(hr == S_OK, "got 0x%08x\n", hr);
394 ok_(__FILE__,line)(length == len, "got %d, expected %d\n", length, len);
395 }
396
397 #define EXPECT_HR(hr,hr_exp) \
398 ok(hr == hr_exp, "got 0x%08x, expected 0x%08x\n", hr, hr_exp)
399
400 static const WCHAR szEmpty[] = { 0 };
401 static const WCHAR szIncomplete[] = {
402 '<','?','x','m','l',' ',
403 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
404 };
405 static const WCHAR szComplete1[] = {
406 '<','?','x','m','l',' ',
407 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
408 '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
409 };
410 static const WCHAR szComplete2[] = {
411 '<','?','x','m','l',' ',
412 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
413 '<','a','>','<','/','a','>','\n',0
414 };
415 static const char complete4A[] =
416 "<?xml version=\'1.0\'?>\n"
417 "<lc dl=\'str1\'>\n"
418 "<bs vr=\'str2\' sz=\'1234\'>"
419 "fn1.txt\n"
420 "</bs>\n"
421 "<pr id=\'str3\' vr=\'1.2.3\' pn=\'wine 20050804\'>\n"
422 "fn2.txt\n"
423 "</pr>\n"
424 "<empty></empty>\n"
425 "<fo>\n"
426 "<ba>\n"
427 "f1\n"
428 "</ba>\n"
429 "</fo>\n"
430 "</lc>\n";
431
432 static const WCHAR szComplete5[] = {
433 '<','S',':','s','e','a','r','c','h',' ','x','m','l','n','s',':','D','=','"','D','A','V',':','"',' ',
434 'x','m','l','n','s',':','C','=','"','u','r','n',':','s','c','h','e','m','a','s','-','m','i','c','r','o','s','o','f','t','-','c','o','m',':','o','f','f','i','c','e',':','c','l','i','p','g','a','l','l','e','r','y','"',
435 ' ','x','m','l','n','s',':','S','=','"','u','r','n',':','s','c','h','e','m','a','s','-','m','i','c','r','o','s','o','f','t','-','c','o','m',':','o','f','f','i','c','e',':','c','l','i','p','g','a','l','l','e','r','y',':','s','e','a','r','c','h','"','>',
436 '<','S',':','s','c','o','p','e','>',
437 '<','S',':','d','e','e','p','>','/','<','/','S',':','d','e','e','p','>',
438 '<','/','S',':','s','c','o','p','e','>',
439 '<','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
440 '<','C',':','t','e','x','t','o','r','p','r','o','p','e','r','t','y','/','>',
441 'c','o','m','p','u','t','e','r',
442 '<','/','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
443 '<','/','S',':','s','e','a','r','c','h','>',0
444 };
445
446 static const WCHAR szComplete6[] = {
447 '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'',' ',
448 'e','n','c','o','d','i','n','g','=','\'','W','i','n','d','o','w','s','-','1','2','5','2','\'','?','>','\n',
449 '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
450 };
451
452 static const char complete7[] = {
453 "<?xml version=\"1.0\"?>\n\t"
454 "<root>\n"
455 "\t<a/>\n"
456 "\t<b/>\n"
457 "\t<c/>\n"
458 "</root>"
459 };
460
461 #define DECL_WIN_1252 \
462 "<?xml version=\"1.0\" encoding=\"Windows-1252\"?>"
463
464 static const char win1252xml[] =
465 DECL_WIN_1252
466 "<open></open>";
467
468 static const char win1252decl[] =
469 DECL_WIN_1252
470 ;
471
472 static const char nocontent[] = "no xml content here";
473
474 static const char szExampleXML[] =
475 "<?xml version='1.0' encoding='utf-8'?>\n"
476 "<root xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' a=\"attr a\" foo:b=\"attr b\" >\n"
477 " <elem>\n"
478 " <a>A1 field</a>\n"
479 " <b>B1 field</b>\n"
480 " <c>C1 field</c>\n"
481 " <d>D1 field</d>\n"
482 " <description xmlns:foo='http://www.winehq.org' xmlns:bar='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
483 " <html xmlns='http://www.w3.org/1999/xhtml'>\n"
484 " <![CDATA[]]> This is<strong> a</strong> <i>description</i><dot>. </dot><bar:x/>\n"
485 " </html>\n"
486 " <html xml:space='preserve' xmlns='http://www.w3.org/1999/xhtml'>\n"
487 " This is <strong>a</strong> <i>description</i> with preserved whitespace. <bar:x/>\n"
488 " </html>\n"
489 " </description>\n"
490 " </elem>\n"
491 "\n"
492 " <elem a='a'>\n"
493 " <a>A2 field</a>\n"
494 " <b>B2 field</b>\n"
495 " <c type=\"old\">C2 field</c>\n"
496 " <d>D2 field</d>\n"
497 " </elem>\n"
498 "\n"
499 " <elem xmlns='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
500 " <a>A3 field</a>\n"
501 " <b>B3 field</b>\n"
502 " <c>C3 field</c>\n"
503 " </elem>\n"
504 "\n"
505 " <elem>\n"
506 " <a>A4 field</a>\n"
507 " <b>B4 field</b>\n"
508 " <foo:c>C4 field</foo:c>\n"
509 " <d>D4 field</d>\n"
510 " </elem>\n"
511 "</root>\n";
512
513 static const char charrefsxml[] =
514 "<?xml version='1.0'?>"
515 "<a>"
516 "<b1> Text &#65; end </b1>"
517 "<b2>&#65;&#66; &#67; </b2>"
518 "</a>";
519
520 static const CHAR szNodeTypesXML[] =
521 "<?xml version='1.0'?>"
522 "<!-- comment node 0 -->"
523 "<root id='0' depth='0'>"
524 " <!-- comment node 1 -->"
525 " text node 0"
526 " <x id='1' depth='1'>"
527 " <?foo value='PI for x'?>"
528 " <!-- comment node 2 -->"
529 " text node 1"
530 " <a id='3' depth='2'/>"
531 " <b id='4' depth='2'/>"
532 " <c id='5' depth='2'/>"
533 " </x>"
534 " <y id='2' depth='1'>"
535 " <?bar value='PI for y'?>"
536 " <!-- comment node 3 -->"
537 " text node 2"
538 " <a id='6' depth='2'/>"
539 " <b id='7' depth='2'/>"
540 " <c id='8' depth='2'/>"
541 " </y>"
542 "</root>";
543
544 static const CHAR szTransformXML[] =
545 "<?xml version=\"1.0\"?>\n"
546 "<greeting>\n"
547 "Hello World\n"
548 "</greeting>";
549
550 static const CHAR szTransformSSXML[] =
551 "<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">\n"
552 " <xsl:output method=\"html\"/>\n"
553 " <xsl:template match=\"/\">\n"
554 " <xsl:apply-templates select=\"greeting\"/>\n"
555 " </xsl:template>\n"
556 " <xsl:template match=\"greeting\">\n"
557 " <html>\n"
558 " <body>\n"
559 " <h1>\n"
560 " <xsl:value-of select=\".\"/>\n"
561 " </h1>\n"
562 " </body>\n"
563 " </html>\n"
564 " </xsl:template>\n"
565 "</xsl:stylesheet>";
566
567 static const CHAR szTransformOutput[] =
568 "<html><body><h1>"
569 "Hello World"
570 "</h1></body></html>";
571
572 static const CHAR szTypeValueXML[] =
573 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
574 "<root xmlns:dt=\"urn:schemas-microsoft-com:datatypes\">\n"
575 " <string>Wine</string>\n"
576 " <string2 dt:dt=\"string\">String</string2>\n"
577 " <number dt:dt=\"number\">12.44</number>\n"
578 " <number2 dt:dt=\"NUMbEr\">-3.71e3</number2>\n"
579 " <int dt:dt=\"int\">-13</int>\n"
580 " <fixed dt:dt=\"fixed.14.4\">7322.9371</fixed>\n"
581 " <bool dt:dt=\"boolean\">1</bool>\n"
582 " <datetime dt:dt=\"datetime\">2009-11-18T03:21:33.12</datetime>\n"
583 " <datetimetz dt:dt=\"datetime.tz\">2003-07-11T11:13:57+03:00</datetimetz>\n"
584 " <date dt:dt=\"date\">3721-11-01</date>\n"
585 " <time dt:dt=\"time\">13:57:12.31321</time>\n"
586 " <timetz dt:dt=\"time.tz\">23:21:01.13+03:21</timetz>\n"
587 " <i1 dt:dt=\"i1\">-13</i1>\n"
588 " <i2 dt:dt=\"i2\">31915</i2>\n"
589 " <i4 dt:dt=\"i4\">-312232</i4>\n"
590 " <ui1 dt:dt=\"ui1\">123</ui1>\n"
591 " <ui2 dt:dt=\"ui2\">48282</ui2>\n"
592 " <ui4 dt:dt=\"ui4\">949281</ui4>\n"
593 " <r4 dt:dt=\"r4\">213124.0</r4>\n"
594 " <r8 dt:dt=\"r8\">0.412</r8>\n"
595 " <float dt:dt=\"float\">41221.421</float>\n"
596 " <uuid dt:dt=\"uuid\">333C7BC4-460F-11D0-BC04-0080C7055a83</uuid>\n"
597 " <binhex dt:dt=\"bin.hex\">fffca012003c</binhex>\n"
598 " <binbase64 dt:dt=\"bin.base64\">YmFzZTY0IHRlc3Q=</binbase64>\n"
599 " <binbase64_1 dt:dt=\"bin.base64\">\nYmFzZTY0\nIHRlc3Q=\n</binbase64_1>\n"
600 " <binbase64_2 dt:dt=\"bin.base64\">\nYmF\r\t z ZTY0\nIHRlc3Q=\n</binbase64_2>\n"
601 "</root>";
602
603 static const CHAR szBasicTransformSSXMLPart1[] =
604 "<?xml version=\"1.0\"?>"
605 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
606 "<xsl:output method=\"html\"/>\n"
607 "<xsl:template match=\"/\">"
608 "<HTML><BODY><TABLE>"
609 " <xsl:apply-templates select='document(\"";
610
611 static const CHAR szBasicTransformSSXMLPart2[] =
612 "\")/bottle/wine'>"
613 " <xsl:sort select=\"cost\"/><xsl:sort select=\"name\"/>"
614 " </xsl:apply-templates>"
615 "</TABLE></BODY></HTML>"
616 "</xsl:template>"
617 "<xsl:template match=\"bottle\">"
618 " <TR><xsl:apply-templates select=\"name\" /><xsl:apply-templates select=\"cost\" /></TR>"
619 "</xsl:template>"
620 "<xsl:template match=\"name\">"
621 " <TD><xsl:apply-templates /></TD>"
622 "</xsl:template>"
623 "<xsl:template match=\"cost\">"
624 " <TD><xsl:apply-templates /></TD>"
625 "</xsl:template>"
626 "</xsl:stylesheet>";
627
628 static const CHAR szBasicTransformXML[] =
629 "<?xml version=\"1.0\"?><bottle><wine><name>Wine</name><cost>$25.00</cost></wine></bottle>";
630
631 static const CHAR szBasicTransformOutput[] =
632 "<HTML><BODY><TABLE><TD>Wine</TD><TD>$25.00</TD></TABLE></BODY></HTML>";
633
634 #define SZ_EMAIL_DTD \
635 "<!DOCTYPE email ["\
636 " <!ELEMENT email (recipients,from,reply-to?,subject,body,attachment*)>"\
637 " <!ATTLIST email attachments IDREFS #REQUIRED>"\
638 " <!ATTLIST email sent (yes|no) \"no\">"\
639 " <!ELEMENT recipients (to+,cc*)>"\
640 " <!ELEMENT to (#PCDATA)>"\
641 " <!ATTLIST to name CDATA #IMPLIED>"\
642 " <!ELEMENT cc (#PCDATA)>"\
643 " <!ATTLIST cc name CDATA #IMPLIED>"\
644 " <!ELEMENT from (#PCDATA)>"\
645 " <!ATTLIST from name CDATA #IMPLIED>"\
646 " <!ELEMENT reply-to (#PCDATA)>"\
647 " <!ATTLIST reply-to name CDATA #IMPLIED>"\
648 " <!ELEMENT subject ANY>"\
649 " <!ELEMENT body ANY>"\
650 " <!ATTLIST body enc CDATA #FIXED \"UTF-8\">"\
651 " <!ELEMENT attachment (#PCDATA)>"\
652 " <!ATTLIST attachment id ID #REQUIRED>"\
653 "]>"
654
655 static const CHAR szEmailXML[] =
656 "<?xml version=\"1.0\"?>"
657 SZ_EMAIL_DTD
658 "<email attachments=\"patch1\">"
659 " <recipients>"
660 " <to>wine-patches@winehq.org</to>"
661 " </recipients>"
662 " <from name=\"Anonymous\">user@localhost</from>"
663 " <subject>msxml3/tests: DTD validation (try 87)</subject>"
664 " <body>"
665 " It no longer causes spontaneous combustion..."
666 " </body>"
667 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
668 "</email>";
669
670 static const CHAR szEmailXML_0D[] =
671 "<?xml version=\"1.0\"?>"
672 SZ_EMAIL_DTD
673 "<email attachments=\"patch1\">"
674 " <recipients>"
675 " <to>wine-patches@winehq.org</to>"
676 " </recipients>"
677 " <from name=\"Anonymous\">user@localhost</from>"
678 " <subject>msxml3/tests: DTD validation (try 88)</subject>"
679 " <body>"
680 " <undecl />"
681 " XML_ELEMENT_UNDECLARED 0xC00CE00D"
682 " </body>"
683 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
684 "</email>";
685
686 static const CHAR szEmailXML_0E[] =
687 "<?xml version=\"1.0\"?>"
688 SZ_EMAIL_DTD
689 "<email attachments=\"patch1\">"
690 " <recipients>"
691 " <to>wine-patches@winehq.org</to>"
692 " </recipients>"
693 " <from name=\"Anonymous\">user@localhost</from>"
694 " <subject>msxml3/tests: DTD validation (try 89)</subject>"
695 " <body>"
696 " XML_ELEMENT_ID_NOT_FOUND 0xC00CE00E"
697 " </body>"
698 " <attachment id=\"patch\">0001-msxml3-tests-DTD-validation.patch</attachment>"
699 "</email>";
700
701 static const CHAR szEmailXML_11[] =
702 "<?xml version=\"1.0\"?>"
703 SZ_EMAIL_DTD
704 "<email attachments=\"patch1\">"
705 " <recipients>"
706 " </recipients>"
707 " <from name=\"Anonymous\">user@localhost</from>"
708 " <subject>msxml3/tests: DTD validation (try 90)</subject>"
709 " <body>"
710 " XML_EMPTY_NOT_ALLOWED 0xC00CE011"
711 " </body>"
712 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
713 "</email>";
714
715 static const CHAR szEmailXML_13[] =
716 "<?xml version=\"1.0\"?>"
717 SZ_EMAIL_DTD
718 "<msg attachments=\"patch1\">"
719 " <recipients>"
720 " <to>wine-patches@winehq.org</to>"
721 " </recipients>"
722 " <from name=\"Anonymous\">user@localhost</from>"
723 " <subject>msxml3/tests: DTD validation (try 91)</subject>"
724 " <body>"
725 " XML_ROOT_NAME_MISMATCH 0xC00CE013"
726 " </body>"
727 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
728 "</msg>";
729
730 static const CHAR szEmailXML_14[] =
731 "<?xml version=\"1.0\"?>"
732 SZ_EMAIL_DTD
733 "<email attachments=\"patch1\">"
734 " <to>wine-patches@winehq.org</to>"
735 " <from name=\"Anonymous\">user@localhost</from>"
736 " <subject>msxml3/tests: DTD validation (try 92)</subject>"
737 " <body>"
738 " XML_INVALID_CONTENT 0xC00CE014"
739 " </body>"
740 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
741 "</email>";
742
743 static const CHAR szEmailXML_15[] =
744 "<?xml version=\"1.0\"?>"
745 SZ_EMAIL_DTD
746 "<email attachments=\"patch1\" ip=\"127.0.0.1\">"
747 " <recipients>"
748 " <to>wine-patches@winehq.org</to>"
749 " </recipients>"
750 " <from name=\"Anonymous\">user@localhost</from>"
751 " <subject>msxml3/tests: DTD validation (try 93)</subject>"
752 " <body>"
753 " XML_ATTRIBUTE_NOT_DEFINED 0xC00CE015"
754 " </body>"
755 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
756 "</email>";
757
758 static const CHAR szEmailXML_16[] =
759 "<?xml version=\"1.0\"?>"
760 SZ_EMAIL_DTD
761 "<email attachments=\"patch1\">"
762 " <recipients>"
763 " <to>wine-patches@winehq.org</to>"
764 " </recipients>"
765 " <from name=\"Anonymous\">user@localhost</from>"
766 " <subject>msxml3/tests: DTD validation (try 94)</subject>"
767 " <body enc=\"ASCII\">"
768 " XML_ATTRIBUTE_FIXED 0xC00CE016"
769 " </body>"
770 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
771 "</email>";
772
773 static const CHAR szEmailXML_17[] =
774 "<?xml version=\"1.0\"?>"
775 SZ_EMAIL_DTD
776 "<email attachments=\"patch1\" sent=\"true\">"
777 " <recipients>"
778 " <to>wine-patches@winehq.org</to>"
779 " </recipients>"
780 " <from name=\"Anonymous\">user@localhost</from>"
781 " <subject>msxml3/tests: DTD validation (try 95)</subject>"
782 " <body>"
783 " XML_ATTRIBUTE_VALUE 0xC00CE017"
784 " </body>"
785 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
786 "</email>";
787
788 static const CHAR szEmailXML_18[] =
789 "<?xml version=\"1.0\"?>"
790 SZ_EMAIL_DTD
791 "<email attachments=\"patch1\">"
792 " oops"
793 " <recipients>"
794 " <to>wine-patches@winehq.org</to>"
795 " </recipients>"
796 " <from name=\"Anonymous\">user@localhost</from>"
797 " <subject>msxml3/tests: DTD validation (try 96)</subject>"
798 " <body>"
799 " XML_ILLEGAL_TEXT 0xC00CE018"
800 " </body>"
801 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
802 "</email>";
803
804 static const CHAR szEmailXML_20[] =
805 "<?xml version=\"1.0\"?>"
806 SZ_EMAIL_DTD
807 "<email>"
808 " <recipients>"
809 " <to>wine-patches@winehq.org</to>"
810 " </recipients>"
811 " <from name=\"Anonymous\">user@localhost</from>"
812 " <subject>msxml3/tests: DTD validation (try 97)</subject>"
813 " <body>"
814 " XML_REQUIRED_ATTRIBUTE_MISSING 0xC00CE020"
815 " </body>"
816 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
817 "</email>";
818
819 static const char xpath_simple_list[] =
820 "<?xml version=\"1.0\"?>"
821 "<root>"
822 " <a attr1=\"1\" attr2=\"2\" />"
823 " <b/>"
824 " <c/>"
825 " <d/>"
826 "</root>";
827
828 static const char default_ns_doc[] = {
829 "<?xml version=\"1.0\"?>"
830 "<a xmlns:ns=\"nshref\" xml:lang=\"ru\" ns:b=\"b attr\" xml:c=\"c attr\" "
831 " d=\"d attr\" />"
832 };
833
834 static const char attributes_map[] = {
835 "<?xml version=\"1.0\"?>"
836 "<a attr1=\"value1\" attr2=\"value2\" attr3=\"value3\" attr4=\"value4\" />"
837 };
838
839 static const WCHAR nonexistent_fileW[] = {
840 'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
841 };
842 static const WCHAR nonexistent_attrW[] = {
843 'n','o','n','E','x','i','s','i','t','i','n','g','A','t','t','r','i','b','u','t','e',0
844 };
845 static const WCHAR szDocument[] = {
846 '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
847 };
848
849 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
850 static const WCHAR szdl[] = { 'd','l',0 };
851 static const WCHAR szvr[] = { 'v','r',0 };
852 static const WCHAR szlc[] = { 'l','c',0 };
853 static const WCHAR szbs[] = { 'b','s',0 };
854 static const WCHAR szstr1[] = { 's','t','r','1',0 };
855 static const WCHAR szstr2[] = { 's','t','r','2',0 };
856 static const WCHAR szstar[] = { '*',0 };
857 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
858
859 static const WCHAR szComment[] = {'A',' ','C','o','m','m','e','n','t',0 };
860 static const WCHAR szCommentXML[] = {'<','!','-','-','A',' ','C','o','m','m','e','n','t','-','-','>',0 };
861 static const WCHAR szCommentNodeText[] = {'#','c','o','m','m','e','n','t',0 };
862
863 static WCHAR szElement[] = {'E','l','e','T','e','s','t', 0 };
864 static const WCHAR szElementXML[] = {'<','E','l','e','T','e','s','t','/','>',0 };
865 static const WCHAR szElementXML2[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','/','>',0 };
866 static const WCHAR szElementXML3[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
867 'T','e','s','t','i','n','g','N','o','d','e','<','/','E','l','e','T','e','s','t','>',0 };
868 static const WCHAR szElementXML4[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
869 '&','a','m','p',';','x',' ',0x2103,'<','/','E','l','e','T','e','s','t','>',0 };
870
871 static const WCHAR szAttribute[] = {'A','t','t','r',0 };
872 static const WCHAR szAttributeXML[] = {'A','t','t','r','=','"','"',0 };
873
874 static const WCHAR szCData[] = {'[','1',']','*','2','=','3',';',' ','&','g','e','e',' ','t','h','a','t','s',
875 ' ','n','o','t',' ','r','i','g','h','t','!', 0};
876 static const WCHAR szCDataXML[] = {'<','!','[','C','D','A','T','A','[','[','1',']','*','2','=','3',';',' ','&',
877 'g','e','e',' ','t','h','a','t','s',' ','n','o','t',' ','r','i','g','h','t',
878 '!',']',']','>',0};
879 static const WCHAR szCDataNodeText[] = {'#','c','d','a','t','a','-','s','e','c','t','i','o','n',0 };
880 static const WCHAR szDocFragmentText[] = {'#','d','o','c','u','m','e','n','t','-','f','r','a','g','m','e','n','t',0 };
881
882 static const WCHAR szEntityRef[] = {'e','n','t','i','t','y','r','e','f',0 };
883 static const WCHAR szEntityRefXML[] = {'&','e','n','t','i','t','y','r','e','f',';',0 };
884 static const WCHAR szStrangeChars[] = {'&','x',' ',0x2103, 0};
885
886 #define expect_bstr_eq_and_free(bstr, expect) { \
887 BSTR bstrExp = alloc_str_from_narrow(expect); \
888 ok(lstrcmpW(bstr, bstrExp) == 0, "String differs\n"); \
889 SysFreeString(bstr); \
890 SysFreeString(bstrExp); \
891 }
892
893 #define expect_eq(expr, value, type, format) { type ret = (expr); ok((value) == ret, #expr " expected " format " got " format "\n", value, ret); }
894
895 #define ole_check(expr) { \
896 HRESULT r = expr; \
897 ok(r == S_OK, #expr " returned %x\n", r); \
898 }
899
900 #define ole_expect(expr, expect) { \
901 HRESULT r = expr; \
902 ok(r == (expect), #expr " returned %x, expected %x\n", r, expect); \
903 }
904
905 #define double_eq(x, y) ok((x)-(y)<=1e-14*(x) && (x)-(y)>=-1e-14*(x), "expected %.16g, got %.16g\n", x, y)
906
907 static void* _create_object(const GUID *clsid, const char *name, const IID *iid, int line)
908 {
909 void *obj = NULL;
910 HRESULT hr;
911
912 hr = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER, iid, &obj);
913 ok(hr == S_OK, "failed to create %s instance: 0x%08x\n", name, hr);
914
915 return obj;
916 }
917
918 #define _create(cls) cls, #cls
919
920 #define create_document(iid) _create_object(&_create(CLSID_DOMDocument2), iid, __LINE__)
921 #define create_document_version(v, iid) _create_object(&_create(CLSID_DOMDocument ## v), iid, __LINE__)
922 #define create_cache(iid) _create_object(&_create(CLSID_XMLSchemaCache), iid, __LINE__)
923 #define create_xsltemplate(iid) _create_object(&_create(CLSID_XSLTemplate), iid, __LINE__)
924
925 static BSTR alloc_str_from_narrow(const char *str)
926 {
927 int len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
928 BSTR ret = SysAllocStringLen(NULL, len - 1); /* NUL character added automatically */
929 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
930 return ret;
931 }
932
933 static BSTR alloced_bstrs[256];
934 static int alloced_bstrs_count;
935
936 static BSTR _bstr_(const char *str)
937 {
938 assert(alloced_bstrs_count < sizeof(alloced_bstrs)/sizeof(alloced_bstrs[0]));
939 alloced_bstrs[alloced_bstrs_count] = alloc_str_from_narrow(str);
940 return alloced_bstrs[alloced_bstrs_count++];
941 }
942
943 static void free_bstrs(void)
944 {
945 int i;
946 for (i = 0; i < alloced_bstrs_count; i++)
947 SysFreeString(alloced_bstrs[i]);
948 alloced_bstrs_count = 0;
949 }
950
951 static VARIANT _variantbstr_(const char *str)
952 {
953 VARIANT v;
954 V_VT(&v) = VT_BSTR;
955 V_BSTR(&v) = _bstr_(str);
956 return v;
957 }
958
959 static BOOL compareIgnoreReturns(BSTR sLeft, BSTR sRight)
960 {
961 for (;;)
962 {
963 while (*sLeft == '\r' || *sLeft == '\n') sLeft++;
964 while (*sRight == '\r' || *sRight == '\n') sRight++;
965 if (*sLeft != *sRight) return FALSE;
966 if (!*sLeft) return TRUE;
967 sLeft++;
968 sRight++;
969 }
970 }
971
972 static void get_str_for_type(DOMNodeType type, char *buf)
973 {
974 switch (type)
975 {
976 case NODE_ATTRIBUTE:
977 strcpy(buf, "A");
978 break;
979 case NODE_ELEMENT:
980 strcpy(buf, "E");
981 break;
982 case NODE_DOCUMENT:
983 strcpy(buf, "D");
984 break;
985 case NODE_TEXT:
986 strcpy(buf, "T");
987 break;
988 case NODE_COMMENT:
989 strcpy(buf, "C");
990 break;
991 case NODE_PROCESSING_INSTRUCTION:
992 strcpy(buf, "P");
993 break;
994 default:
995 wsprintfA(buf, "[%d]", type);
996 }
997 }
998
999 static int get_node_position(IXMLDOMNode *node)
1000 {
1001 HRESULT r;
1002 int pos = 0;
1003
1004 IXMLDOMNode_AddRef(node);
1005 do
1006 {
1007 IXMLDOMNode *new_node;
1008
1009 pos++;
1010 r = IXMLDOMNode_get_previousSibling(node, &new_node);
1011 ok(SUCCEEDED(r), "get_previousSibling failed\n");
1012 IXMLDOMNode_Release(node);
1013 node = new_node;
1014 } while (r == S_OK);
1015 return pos;
1016 }
1017
1018 static void node_to_string(IXMLDOMNode *node, char *buf)
1019 {
1020 HRESULT r = S_OK;
1021 DOMNodeType type;
1022
1023 if (node == NULL)
1024 {
1025 lstrcpyA(buf, "(null)");
1026 return;
1027 }
1028
1029 IXMLDOMNode_AddRef(node);
1030 while (r == S_OK)
1031 {
1032 IXMLDOMNode *new_node;
1033
1034 ole_check(IXMLDOMNode_get_nodeType(node, &type));
1035 get_str_for_type(type, buf);
1036 buf+=strlen(buf);
1037
1038 if (type == NODE_ATTRIBUTE)
1039 {
1040 BSTR bstr;
1041 ole_check(IXMLDOMNode_get_nodeName(node, &bstr));
1042 *(buf++) = '\'';
1043 wsprintfA(buf, "%ws", bstr);
1044 buf += strlen(buf);
1045 *(buf++) = '\'';
1046 SysFreeString(bstr);
1047
1048 r = IXMLDOMNode_selectSingleNode(node, _bstr_(".."), &new_node);
1049 }
1050 else
1051 {
1052 r = IXMLDOMNode_get_parentNode(node, &new_node);
1053 sprintf(buf, "%d", get_node_position(node));
1054 buf += strlen(buf);
1055 }
1056
1057 ok(SUCCEEDED(r), "get_parentNode failed (%08x)\n", r);
1058 IXMLDOMNode_Release(node);
1059 node = new_node;
1060 if (r == S_OK)
1061 *(buf++) = '.';
1062 }
1063
1064 *buf = 0;
1065 }
1066
1067 static char *list_to_string(IXMLDOMNodeList *list)
1068 {
1069 static char buf[4096];
1070 char *pos = buf;
1071 LONG len = 0;
1072 HRESULT hr;
1073 int i;
1074
1075 if (list == NULL)
1076 {
1077 strcpy(buf, "(null)");
1078 return buf;
1079 }
1080 hr = IXMLDOMNodeList_get_length(list, &len);
1081 ok(hr == S_OK, "got 0x%08x\n", hr);
1082 for (i = 0; i < len; i++)
1083 {
1084 IXMLDOMNode *node;
1085 if (i > 0)
1086 *(pos++) = ' ';
1087 ole_check(IXMLDOMNodeList_nextNode(list, &node));
1088 node_to_string(node, pos);
1089 pos += strlen(pos);
1090 IXMLDOMNode_Release(node);
1091 }
1092 *pos = 0;
1093 return buf;
1094 }
1095
1096 #define expect_node(node, expstr) { char str[4096]; node_to_string(node, str); ok(strcmp(str, expstr)==0, "Invalid node: %s, expected %s\n", str, expstr); }
1097 #define expect_list_and_release(list, expstr) { char *str = list_to_string(list); ok(strcmp(str, expstr)==0, "Invalid node list: %s, expected %s\n", str, expstr); if (list) IXMLDOMNodeList_Release(list); }
1098
1099 struct docload_ret_t {
1100 VARIANT_BOOL b;
1101 HRESULT hr;
1102 };
1103
1104 struct leading_spaces_t {
1105 const CLSID *clsid;
1106 const char *name;
1107 struct docload_ret_t ret[2]; /* 0 - ::load(), 1 - ::loadXML() */
1108 };
1109
1110 static const struct leading_spaces_t leading_spaces_classdata[] = {
1111 { &CLSID_DOMDocument, "CLSID_DOMDocument", {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE, S_OK } }},
1112 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1113 { &CLSID_DOMDocument26, "CLSID_DOMDocument26", {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE, S_OK } }},
1114 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1115 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1116 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1117 { NULL }
1118 };
1119
1120 static const char* leading_spaces_xmldata[] = {
1121 "\n<?xml version=\"1.0\" encoding=\"UTF-16\" ?><root/>",
1122 " <?xml version=\"1.0\"?><root/>",
1123 "\n<?xml version=\"1.0\"?><root/>",
1124 "\t<?xml version=\"1.0\"?><root/>",
1125 "\r\n<?xml version=\"1.0\"?><root/>",
1126 "\r<?xml version=\"1.0\"?><root/>",
1127 "\r\r\r\r\t\t \n\n <?xml version=\"1.0\"?><root/>",
1128 0
1129 };
1130
1131 static void test_domdoc( void )
1132 {
1133 HRESULT r, hr;
1134 IXMLDOMDocument *doc;
1135 IXMLDOMParseError *error;
1136 IXMLDOMElement *element = NULL;
1137 IXMLDOMNode *node;
1138 IXMLDOMText *nodetext = NULL;
1139 IXMLDOMComment *node_comment = NULL;
1140 IXMLDOMAttribute *node_attr = NULL;
1141 IXMLDOMNode *nodeChild = NULL;
1142 IXMLDOMProcessingInstruction *nodePI = NULL;
1143 const struct leading_spaces_t *class_ptr;
1144 const char **data_ptr;
1145 VARIANT_BOOL b;
1146 VARIANT var;
1147 BSTR str;
1148 LONG code, ref;
1149 LONG nLength = 0;
1150 WCHAR buff[100];
1151 char path[MAX_PATH];
1152 int index;
1153
1154 GetTempPathA(MAX_PATH, path);
1155 strcat(path, "leading_spaces.xml");
1156
1157 /* Load document with leading spaces
1158 *
1159 * Test all CLSIDs with all test data XML strings
1160 */
1161 class_ptr = leading_spaces_classdata;
1162 index = 0;
1163 while (class_ptr->clsid)
1164 {
1165 HRESULT hr;
1166 int i;
1167
1168 if (is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument))
1169 {
1170 hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
1171 }
1172 else
1173 {
1174 class_ptr++;
1175 index++;
1176 continue;
1177 }
1178
1179 data_ptr = leading_spaces_xmldata;
1180 i = 0;
1181 while (*data_ptr) {
1182 BSTR data = _bstr_(*data_ptr);
1183 DWORD written;
1184 HANDLE file;
1185
1186 file = CreateFileA(path, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
1187 ok(file != INVALID_HANDLE_VALUE, "can't create file %s: %u\n", path, GetLastError());
1188
1189 WriteFile(file, data, lstrlenW(data)*sizeof(WCHAR), &written, NULL);
1190 CloseHandle(file);
1191
1192 b = 0xc;
1193 V_VT(&var) = VT_BSTR;
1194 V_BSTR(&var) = _bstr_(path);
1195 hr = IXMLDOMDocument_load(doc, var, &b);
1196 EXPECT_HR(hr, class_ptr->ret[0].hr);
1197 ok(b == class_ptr->ret[0].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[0].b);
1198
1199 DeleteFileA(path);
1200
1201 b = 0xc;
1202 hr = IXMLDOMDocument_loadXML(doc, data, &b);
1203 EXPECT_HR(hr, class_ptr->ret[1].hr);
1204 ok(b == class_ptr->ret[1].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[1].b);
1205
1206 data_ptr++;
1207 i++;
1208 }
1209
1210 class_ptr++;
1211 index++;
1212 free_bstrs();
1213 }
1214
1215 doc = create_document(&IID_IXMLDOMDocument);
1216 if (!doc) return;
1217
1218 if (0)
1219 {
1220 /* crashes on native */
1221 IXMLDOMDocument_loadXML( doc, (BSTR)0x1, NULL );
1222 }
1223
1224 /* try some stupid things */
1225 hr = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1226 EXPECT_HR(hr, S_FALSE);
1227
1228 b = VARIANT_TRUE;
1229 hr = IXMLDOMDocument_loadXML( doc, NULL, &b );
1230 EXPECT_HR(hr, S_FALSE);
1231 ok( b == VARIANT_FALSE, "failed to load XML string\n");
1232
1233 /* try to load a document from a nonexistent file */
1234 b = VARIANT_TRUE;
1235 str = SysAllocString( nonexistent_fileW );
1236 VariantInit(&var);
1237 V_VT(&var) = VT_BSTR;
1238 V_BSTR(&var) = str;
1239
1240 r = IXMLDOMDocument_load( doc, var, &b);
1241 ok( r == S_FALSE, "loadXML succeeded\n");
1242 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1243 SysFreeString( str );
1244
1245 str = (BSTR)0x1;
1246 hr = IXMLDOMDocument_get_url(doc, &str);
1247 ok(hr == S_FALSE, "got 0x%08x\n", hr);
1248 ok(str == NULL, "got %p\n", str);
1249
1250 /* try load an empty document */
1251 b = VARIANT_TRUE;
1252 str = SysAllocString( szEmpty );
1253 r = IXMLDOMDocument_loadXML( doc, str, &b );
1254 ok( r == S_FALSE, "loadXML succeeded\n");
1255 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1256 SysFreeString( str );
1257
1258 r = IXMLDOMDocument_get_async( doc, &b );
1259 ok( r == S_OK, "get_async failed (%08x)\n", r);
1260 ok( b == VARIANT_TRUE, "Wrong default value\n");
1261
1262 /* check that there's no document element */
1263 element = NULL;
1264 r = IXMLDOMDocument_get_documentElement( doc, &element );
1265 ok( r == S_FALSE, "should be no document element\n");
1266
1267 /* try finding a node */
1268 node = NULL;
1269 str = SysAllocString( szstr1 );
1270 r = IXMLDOMDocument_selectSingleNode( doc, str, &node );
1271 ok( r == S_FALSE, "ret %08x\n", r );
1272 SysFreeString( str );
1273
1274 b = VARIANT_TRUE;
1275 str = SysAllocString( szIncomplete );
1276 r = IXMLDOMDocument_loadXML( doc, str, &b );
1277 ok( r == S_FALSE, "loadXML succeeded\n");
1278 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1279 SysFreeString( str );
1280
1281 /* check that there's no document element */
1282 element = (IXMLDOMElement*)1;
1283 r = IXMLDOMDocument_get_documentElement( doc, &element );
1284 ok( r == S_FALSE, "should be no document element\n");
1285 ok( element == NULL, "Element should be NULL\n");
1286
1287 /* test for BSTR handling, pass broken BSTR */
1288 memcpy(&buff[2], szComplete1, sizeof(szComplete1));
1289 /* just a big length */
1290 *(DWORD*)buff = 0xf0f0;
1291 b = VARIANT_FALSE;
1292 r = IXMLDOMDocument_loadXML( doc, &buff[2], &b );
1293 ok( r == S_OK, "loadXML failed\n");
1294 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1295
1296 /* loadXML ignores the encoding attribute and always expects Unicode */
1297 b = VARIANT_FALSE;
1298 str = SysAllocString( szComplete6 );
1299 r = IXMLDOMDocument_loadXML( doc, str, &b );
1300 ok( r == S_OK, "loadXML failed\n");
1301 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1302 SysFreeString( str );
1303
1304 /* try a BSTR containing a Windows-1252 document */
1305 b = VARIANT_TRUE;
1306 str = SysAllocStringByteLen( win1252xml, strlen(win1252xml) );
1307 r = IXMLDOMDocument_loadXML( doc, str, &b );
1308 ok( r == S_FALSE, "loadXML succeeded\n");
1309 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1310 SysFreeString( str );
1311
1312 /* try to load something valid */
1313 b = VARIANT_FALSE;
1314 str = SysAllocString( szComplete1 );
1315 r = IXMLDOMDocument_loadXML( doc, str, &b );
1316 ok( r == S_OK, "loadXML failed\n");
1317 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1318 SysFreeString( str );
1319
1320 /* check if nodename is correct */
1321 r = IXMLDOMDocument_get_nodeName( doc, NULL );
1322 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1323
1324 str = (BSTR)0xdeadbeef;
1325 r = IXMLDOMDocument_get_baseName( doc, &str );
1326 ok ( r == S_FALSE, "got 0x%08x\n", r);
1327 ok (str == NULL, "got %p\n", str);
1328
1329 /* content doesn't matter here */
1330 str = NULL;
1331 r = IXMLDOMDocument_get_nodeName( doc, &str );
1332 ok ( r == S_OK, "get_nodeName wrong code\n");
1333 ok ( str != NULL, "str is null\n");
1334 ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
1335 SysFreeString( str );
1336
1337 /* test put_text */
1338 r = IXMLDOMDocument_put_text( doc, _bstr_("Should fail") );
1339 ok( r == E_FAIL, "ret %08x\n", r );
1340
1341 /* check that there's a document element */
1342 element = NULL;
1343 r = IXMLDOMDocument_get_documentElement( doc, &element );
1344 ok( r == S_OK, "should be a document element\n");
1345 if( element )
1346 {
1347 IObjectIdentity *ident;
1348
1349 r = IXMLDOMElement_QueryInterface( element, &IID_IObjectIdentity, (void**)&ident );
1350 ok( r == E_NOINTERFACE, "ret %08x\n", r);
1351
1352 IXMLDOMElement_Release( element );
1353 element = NULL;
1354 }
1355
1356 /* as soon as we call loadXML again, the document element will disappear */
1357 b = 2;
1358 r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1359 ok( r == S_FALSE, "loadXML failed\n");
1360 ok( b == 2, "variant modified\n");
1361 r = IXMLDOMDocument_get_documentElement( doc, &element );
1362 ok( r == S_FALSE, "should be no document element\n");
1363
1364 /* try to load something else simple and valid */
1365 b = VARIANT_FALSE;
1366 str = SysAllocString( szComplete2 );
1367 r = IXMLDOMDocument_loadXML( doc, str, &b );
1368 ok( r == S_OK, "loadXML failed\n");
1369 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1370 SysFreeString( str );
1371
1372 /* try something a little more complicated */
1373 b = FALSE;
1374 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1375 ok( r == S_OK, "loadXML failed\n");
1376 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1377
1378 r = IXMLDOMDocument_get_parseError( doc, &error );
1379 ok( r == S_OK, "returns %08x\n", r );
1380
1381 r = IXMLDOMParseError_get_errorCode( error, &code );
1382 ok( r == S_FALSE, "returns %08x\n", r );
1383 ok( code == 0, "code %d\n", code );
1384 IXMLDOMParseError_Release( error );
1385
1386 /* test createTextNode */
1387 r = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &nodetext);
1388 ok( r == S_OK, "returns %08x\n", r );
1389 IXMLDOMText_Release(nodetext);
1390
1391 str = SysAllocString( szOpen );
1392 r = IXMLDOMDocument_createTextNode(doc, str, NULL);
1393 ok( r == E_INVALIDARG, "returns %08x\n", r );
1394 r = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
1395 ok( r == S_OK, "returns %08x\n", r );
1396 SysFreeString( str );
1397 if(nodetext)
1398 {
1399 r = IXMLDOMText_QueryInterface(nodetext, &IID_IXMLDOMElement, (void**)&element);
1400 ok(r == E_NOINTERFACE, "ret %08x\n", r );
1401
1402 /* Text Last Child Checks */
1403 r = IXMLDOMText_get_lastChild(nodetext, NULL);
1404 ok(r == E_INVALIDARG, "ret %08x\n", r );
1405
1406 nodeChild = (IXMLDOMNode*)0x1;
1407 r = IXMLDOMText_get_lastChild(nodetext, &nodeChild);
1408 ok(r == S_FALSE, "ret %08x\n", r );
1409 ok(nodeChild == NULL, "nodeChild not NULL\n");
1410
1411 /* test length property */
1412 r = IXMLDOMText_get_length(nodetext, NULL);
1413 ok(r == E_INVALIDARG, "ret %08x\n", r );
1414
1415 r = IXMLDOMText_get_length(nodetext, &nLength);
1416 ok(r == S_OK, "ret %08x\n", r );
1417 ok(nLength == 4, "expected 4 got %d\n", nLength);
1418
1419 /* put data Tests */
1420 r = IXMLDOMText_put_data(nodetext, _bstr_("This &is a ; test <>\\"));
1421 ok(r == S_OK, "ret %08x\n", r );
1422
1423 /* get data Tests */
1424 r = IXMLDOMText_get_data(nodetext, &str);
1425 ok(r == S_OK, "ret %08x\n", r );
1426 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect put_data string\n");
1427 SysFreeString(str);
1428
1429 /* Confirm XML text is good */
1430 r = IXMLDOMText_get_xml(nodetext, &str);
1431 ok(r == S_OK, "ret %08x\n", r );
1432 ok( !lstrcmpW( str, _bstr_("This &amp;is a ; test &lt;&gt;\\") ), "incorrect xml string\n");
1433 SysFreeString(str);
1434
1435 /* Confirm we get the put_data Text back */
1436 r = IXMLDOMText_get_text(nodetext, &str);
1437 ok(r == S_OK, "ret %08x\n", r );
1438 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1439 SysFreeString(str);
1440
1441 /* test substringData */
1442 r = IXMLDOMText_substringData(nodetext, 0, 4, NULL);
1443 ok(r == E_INVALIDARG, "ret %08x\n", r );
1444
1445 /* test substringData - Invalid offset */
1446 str = (BSTR)&szElement;
1447 r = IXMLDOMText_substringData(nodetext, -1, 4, &str);
1448 ok(r == E_INVALIDARG, "ret %08x\n", r );
1449 ok( str == NULL, "incorrect string\n");
1450
1451 /* test substringData - Invalid offset */
1452 str = (BSTR)&szElement;
1453 r = IXMLDOMText_substringData(nodetext, 30, 0, &str);
1454 ok(r == S_FALSE, "ret %08x\n", r );
1455 ok( str == NULL, "incorrect string\n");
1456
1457 /* test substringData - Invalid size */
1458 str = (BSTR)&szElement;
1459 r = IXMLDOMText_substringData(nodetext, 0, -1, &str);
1460 ok(r == E_INVALIDARG, "ret %08x\n", r );
1461 ok( str == NULL, "incorrect string\n");
1462
1463 /* test substringData - Invalid size */
1464 str = (BSTR)&szElement;
1465 r = IXMLDOMText_substringData(nodetext, 2, 0, &str);
1466 ok(r == S_FALSE, "ret %08x\n", r );
1467 ok( str == NULL, "incorrect string\n");
1468
1469 /* test substringData - Start of string */
1470 r = IXMLDOMText_substringData(nodetext, 0, 4, &str);
1471 ok(r == S_OK, "ret %08x\n", r );
1472 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
1473 SysFreeString(str);
1474
1475 /* test substringData - Middle of string */
1476 r = IXMLDOMText_substringData(nodetext, 13, 4, &str);
1477 ok(r == S_OK, "ret %08x\n", r );
1478 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
1479 SysFreeString(str);
1480
1481 /* test substringData - End of string */
1482 r = IXMLDOMText_substringData(nodetext, 20, 4, &str);
1483 ok(r == S_OK, "ret %08x\n", r );
1484 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
1485 SysFreeString(str);
1486
1487 /* test appendData */
1488 r = IXMLDOMText_appendData(nodetext, NULL);
1489 ok(r == S_OK, "ret %08x\n", r );
1490
1491 r = IXMLDOMText_appendData(nodetext, _bstr_(""));
1492 ok(r == S_OK, "ret %08x\n", r );
1493
1494 r = IXMLDOMText_appendData(nodetext, _bstr_("Append"));
1495 ok(r == S_OK, "ret %08x\n", r );
1496
1497 r = IXMLDOMText_get_text(nodetext, &str);
1498 ok(r == S_OK, "ret %08x\n", r );
1499 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1500 SysFreeString(str);
1501
1502 /* test insertData */
1503 str = SysAllocStringLen(NULL, 0);
1504 r = IXMLDOMText_insertData(nodetext, -1, str);
1505 ok(r == S_OK, "ret %08x\n", r );
1506
1507 r = IXMLDOMText_insertData(nodetext, -1, NULL);
1508 ok(r == S_OK, "ret %08x\n", r );
1509
1510 r = IXMLDOMText_insertData(nodetext, 1000, str);
1511 ok(r == S_OK, "ret %08x\n", r );
1512
1513 r = IXMLDOMText_insertData(nodetext, 1000, NULL);
1514 ok(r == S_OK, "ret %08x\n", r );
1515
1516 r = IXMLDOMText_insertData(nodetext, 0, NULL);
1517 ok(r == S_OK, "ret %08x\n", r );
1518
1519 r = IXMLDOMText_insertData(nodetext, 0, str);
1520 ok(r == S_OK, "ret %08x\n", r );
1521 SysFreeString(str);
1522
1523 r = IXMLDOMText_insertData(nodetext, -1, _bstr_("Inserting"));
1524 ok(r == E_INVALIDARG, "ret %08x\n", r );
1525
1526 r = IXMLDOMText_insertData(nodetext, 1000, _bstr_("Inserting"));
1527 ok(r == E_INVALIDARG, "ret %08x\n", r );
1528
1529 r = IXMLDOMText_insertData(nodetext, 0, _bstr_("Begin "));
1530 ok(r == S_OK, "ret %08x\n", r );
1531
1532 r = IXMLDOMText_insertData(nodetext, 17, _bstr_("Middle"));
1533 ok(r == S_OK, "ret %08x\n", r );
1534
1535 r = IXMLDOMText_insertData(nodetext, 39, _bstr_(" End"));
1536 ok(r == S_OK, "ret %08x\n", r );
1537
1538 r = IXMLDOMText_get_text(nodetext, &str);
1539 ok(r == S_OK, "ret %08x\n", r );
1540 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1541 SysFreeString(str);
1542
1543 /* delete data */
1544 /* invalid arguments */
1545 r = IXMLDOMText_deleteData(nodetext, -1, 1);
1546 ok(r == E_INVALIDARG, "ret %08x\n", r );
1547
1548 r = IXMLDOMText_deleteData(nodetext, 0, 0);
1549 ok(r == S_OK, "ret %08x\n", r );
1550
1551 r = IXMLDOMText_deleteData(nodetext, 0, -1);
1552 ok(r == E_INVALIDARG, "ret %08x\n", r );
1553
1554 r = IXMLDOMText_get_length(nodetext, &nLength);
1555 ok(r == S_OK, "ret %08x\n", r );
1556 ok(nLength == 43, "expected 43 got %d\n", nLength);
1557
1558 r = IXMLDOMText_deleteData(nodetext, nLength, 1);
1559 ok(r == S_OK, "ret %08x\n", r );
1560
1561 r = IXMLDOMText_deleteData(nodetext, nLength+1, 1);
1562 ok(r == E_INVALIDARG, "ret %08x\n", r );
1563
1564 /* delete from start */
1565 r = IXMLDOMText_deleteData(nodetext, 0, 5);
1566 ok(r == S_OK, "ret %08x\n", r );
1567
1568 r = IXMLDOMText_get_length(nodetext, &nLength);
1569 ok(r == S_OK, "ret %08x\n", r );
1570 ok(nLength == 38, "expected 38 got %d\n", nLength);
1571
1572 r = IXMLDOMText_get_text(nodetext, &str);
1573 ok(r == S_OK, "ret %08x\n", r );
1574 ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1575 SysFreeString(str);
1576
1577 /* delete from end */
1578 r = IXMLDOMText_deleteData(nodetext, 35, 3);
1579 ok(r == S_OK, "ret %08x\n", r );
1580
1581 r = IXMLDOMText_get_length(nodetext, &nLength);
1582 ok(r == S_OK, "ret %08x\n", r );
1583 ok(nLength == 35, "expected 35 got %d\n", nLength);
1584
1585 r = IXMLDOMText_get_text(nodetext, &str);
1586 ok(r == S_OK, "ret %08x\n", r );
1587 ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1588 SysFreeString(str);
1589
1590 /* delete from inside */
1591 r = IXMLDOMText_deleteData(nodetext, 1, 33);
1592 ok(r == S_OK, "ret %08x\n", r );
1593
1594 r = IXMLDOMText_get_length(nodetext, &nLength);
1595 ok(r == S_OK, "ret %08x\n", r );
1596 ok(nLength == 2, "expected 2 got %d\n", nLength);
1597
1598 r = IXMLDOMText_get_text(nodetext, &str);
1599 ok(r == S_OK, "ret %08x\n", r );
1600 ok( !lstrcmpW( str, _bstr_("") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1601 SysFreeString(str);
1602
1603 /* delete whole data ... */
1604 r = IXMLDOMText_get_length(nodetext, &nLength);
1605 ok(r == S_OK, "ret %08x\n", r );
1606
1607 r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1608 ok(r == S_OK, "ret %08x\n", r );
1609 /* ... and try again with empty string */
1610 r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1611 ok(r == S_OK, "ret %08x\n", r );
1612
1613 /* test put_data */
1614 V_VT(&var) = VT_BSTR;
1615 V_BSTR(&var) = SysAllocString(szstr1);
1616 r = IXMLDOMText_put_nodeValue(nodetext, var);
1617 ok(r == S_OK, "ret %08x\n", r );
1618 VariantClear(&var);
1619
1620 r = IXMLDOMText_get_text(nodetext, &str);
1621 ok(r == S_OK, "ret %08x\n", r );
1622 ok( !lstrcmpW( str, szstr1 ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1623 SysFreeString(str);
1624
1625 /* test put_data */
1626 V_VT(&var) = VT_I4;
1627 V_I4(&var) = 99;
1628 r = IXMLDOMText_put_nodeValue(nodetext, var);
1629 ok(r == S_OK, "ret %08x\n", r );
1630 VariantClear(&var);
1631
1632 r = IXMLDOMText_get_text(nodetext, &str);
1633 ok(r == S_OK, "ret %08x\n", r );
1634 ok( !lstrcmpW( str, _bstr_("99") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1635 SysFreeString(str);
1636
1637 /* ::replaceData() */
1638 V_VT(&var) = VT_BSTR;
1639 V_BSTR(&var) = SysAllocString(szstr1);
1640 r = IXMLDOMText_put_nodeValue(nodetext, var);
1641 ok(r == S_OK, "ret %08x\n", r );
1642 VariantClear(&var);
1643
1644 r = IXMLDOMText_replaceData(nodetext, 6, 0, NULL);
1645 ok(r == E_INVALIDARG, "ret %08x\n", r );
1646 r = IXMLDOMText_get_text(nodetext, &str);
1647 ok(r == S_OK, "ret %08x\n", r );
1648 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1649 SysFreeString(str);
1650
1651 r = IXMLDOMText_replaceData(nodetext, 0, 0, NULL);
1652 ok(r == S_OK, "ret %08x\n", r );
1653 r = IXMLDOMText_get_text(nodetext, &str);
1654 ok(r == S_OK, "ret %08x\n", r );
1655 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1656 SysFreeString(str);
1657
1658 /* NULL pointer means delete */
1659 r = IXMLDOMText_replaceData(nodetext, 0, 1, NULL);
1660 ok(r == S_OK, "ret %08x\n", r );
1661 r = IXMLDOMText_get_text(nodetext, &str);
1662 ok(r == S_OK, "ret %08x\n", r );
1663 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1664 SysFreeString(str);
1665
1666 /* empty string means delete */
1667 r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_(""));
1668 ok(r == S_OK, "ret %08x\n", r );
1669 r = IXMLDOMText_get_text(nodetext, &str);
1670 ok(r == S_OK, "ret %08x\n", r );
1671 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1672 SysFreeString(str);
1673
1674 /* zero count means insert */
1675 r = IXMLDOMText_replaceData(nodetext, 0, 0, _bstr_("a"));
1676 ok(r == S_OK, "ret %08x\n", r );
1677 r = IXMLDOMText_get_text(nodetext, &str);
1678 ok(r == S_OK, "ret %08x\n", r );
1679 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1680 SysFreeString(str);
1681
1682 r = IXMLDOMText_replaceData(nodetext, 0, 2, NULL);
1683 ok(r == S_OK, "ret %08x\n", r );
1684
1685 r = IXMLDOMText_insertData(nodetext, 0, _bstr_("m"));
1686 ok(r == S_OK, "ret %08x\n", r );
1687 r = IXMLDOMText_get_text(nodetext, &str);
1688 ok(r == S_OK, "ret %08x\n", r );
1689 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1690 SysFreeString(str);
1691
1692 /* nonempty string, count greater than its length */
1693 r = IXMLDOMText_replaceData(nodetext, 0, 2, _bstr_("a1.2"));
1694 ok(r == S_OK, "ret %08x\n", r );
1695 r = IXMLDOMText_get_text(nodetext, &str);
1696 ok(r == S_OK, "ret %08x\n", r );
1697 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1698 SysFreeString(str);
1699
1700 /* nonempty string, count less than its length */
1701 r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_("wine"));
1702 ok(r == S_OK, "ret %08x\n", r );
1703 r = IXMLDOMText_get_text(nodetext, &str);
1704 ok(r == S_OK, "ret %08x\n", r );
1705 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1706 SysFreeString(str);
1707
1708 IXMLDOMText_Release( nodetext );
1709 }
1710
1711 /* test Create Comment */
1712 r = IXMLDOMDocument_createComment(doc, NULL, NULL);
1713 ok( r == E_INVALIDARG, "returns %08x\n", r );
1714 node_comment = (IXMLDOMComment*)0x1;
1715
1716 /* empty comment */
1717 r = IXMLDOMDocument_createComment(doc, _bstr_(""), &node_comment);
1718 ok( r == S_OK, "returns %08x\n", r );
1719 str = (BSTR)0x1;
1720 r = IXMLDOMComment_get_data(node_comment, &str);
1721 ok( r == S_OK, "returns %08x\n", r );
1722 ok( str && SysStringLen(str) == 0, "expected empty string data\n");
1723 IXMLDOMComment_Release(node_comment);
1724 SysFreeString(str);
1725
1726 r = IXMLDOMDocument_createComment(doc, NULL, &node_comment);
1727 ok( r == S_OK, "returns %08x\n", r );
1728 str = (BSTR)0x1;
1729 r = IXMLDOMComment_get_data(node_comment, &str);
1730 ok( r == S_OK, "returns %08x\n", r );
1731 ok( str && (SysStringLen(str) == 0), "expected empty string data\n");
1732 IXMLDOMComment_Release(node_comment);
1733 SysFreeString(str);
1734
1735 str = SysAllocString(szComment);
1736 r = IXMLDOMDocument_createComment(doc, str, &node_comment);
1737 SysFreeString(str);
1738 ok( r == S_OK, "returns %08x\n", r );
1739 if(node_comment)
1740 {
1741 /* Last Child Checks */
1742 r = IXMLDOMComment_get_lastChild(node_comment, NULL);
1743 ok(r == E_INVALIDARG, "ret %08x\n", r );
1744
1745 nodeChild = (IXMLDOMNode*)0x1;
1746 r = IXMLDOMComment_get_lastChild(node_comment, &nodeChild);
1747 ok(r == S_FALSE, "ret %08x\n", r );
1748 ok(nodeChild == NULL, "pLastChild not NULL\n");
1749
1750 /* baseName */
1751 str = (BSTR)0xdeadbeef;
1752 r = IXMLDOMComment_get_baseName(node_comment, &str);
1753 ok(r == S_FALSE, "ret %08x\n", r );
1754 ok(str == NULL, "Expected NULL\n");
1755
1756 IXMLDOMComment_Release( node_comment );
1757 }
1758
1759 /* test Create Attribute */
1760 str = SysAllocString(szAttribute);
1761 r = IXMLDOMDocument_createAttribute(doc, NULL, NULL);
1762 ok( r == E_INVALIDARG, "returns %08x\n", r );
1763 r = IXMLDOMDocument_createAttribute(doc, str, &node_attr);
1764 ok( r == S_OK, "returns %08x\n", r );
1765 IXMLDOMAttribute_Release( node_attr);
1766 SysFreeString(str);
1767
1768 /* test Processing Instruction */
1769 str = SysAllocStringLen(NULL, 0);
1770 r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, NULL);
1771 ok( r == E_INVALIDARG, "returns %08x\n", r );
1772 r = IXMLDOMDocument_createProcessingInstruction(doc, NULL, str, &nodePI);
1773 ok( r == E_FAIL, "returns %08x\n", r );
1774 r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, &nodePI);
1775 ok( r == E_FAIL, "returns %08x\n", r );
1776 SysFreeString(str);
1777
1778 r = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"), _bstr_("version=\"1.0\""), &nodePI);
1779 ok( r == S_OK, "returns %08x\n", r );
1780 if(nodePI)
1781 {
1782 /* Last Child Checks */
1783 r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, NULL);
1784 ok(r == E_INVALIDARG, "ret %08x\n", r );
1785
1786 nodeChild = (IXMLDOMNode*)0x1;
1787 r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, &nodeChild);
1788 ok(r == S_FALSE, "ret %08x\n", r );
1789 ok(nodeChild == NULL, "nodeChild not NULL\n");
1790
1791 /* test nodeName */
1792 r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1793 ok(r == S_OK, "ret %08x\n", r );
1794 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1795 SysFreeString(str);
1796
1797 /* test baseName */
1798 str = (BSTR)0x1;
1799 r = IXMLDOMProcessingInstruction_get_baseName(nodePI, &str);
1800 ok(r == S_OK, "ret %08x\n", r );
1801 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1802 SysFreeString(str);
1803
1804 /* test Target */
1805 r = IXMLDOMProcessingInstruction_get_target(nodePI, &str);
1806 ok(r == S_OK, "ret %08x\n", r );
1807 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect target string\n");
1808 SysFreeString(str);
1809
1810 /* test get_data */
1811 r = IXMLDOMProcessingInstruction_get_data(nodePI, &str);
1812 ok(r == S_OK, "ret %08x\n", r );
1813 ok( !lstrcmpW( str, _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1814 SysFreeString(str);
1815
1816 /* test put_data */
1817 r = IXMLDOMProcessingInstruction_put_data(nodePI, _bstr_("version=\"1.0\" encoding=\"UTF-8\""));
1818 ok(r == E_FAIL, "ret %08x\n", r );
1819
1820 /* test put_data */
1821 V_VT(&var) = VT_BSTR;
1822 V_BSTR(&var) = SysAllocString(szOpen); /* Doesn't matter what the string is, cannot set an xml node. */
1823 r = IXMLDOMProcessingInstruction_put_nodeValue(nodePI, var);
1824 ok(r == E_FAIL, "ret %08x\n", r );
1825 VariantClear(&var);
1826
1827 /* test get nodeName */
1828 r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1829 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1830 ok(r == S_OK, "ret %08x\n", r );
1831 SysFreeString(str);
1832
1833 IXMLDOMProcessingInstruction_Release(nodePI);
1834 }
1835
1836 ref = IXMLDOMDocument_Release( doc );
1837 ok( ref == 0, "got %d\n", ref);
1838
1839 free_bstrs();
1840 }
1841
1842 static void test_persiststreaminit(void)
1843 {
1844 IXMLDOMDocument *doc;
1845 IPersistStreamInit *streaminit;
1846 ULARGE_INTEGER size;
1847 HRESULT hr;
1848
1849 doc = create_document(&IID_IXMLDOMDocument);
1850
1851 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&streaminit);
1852 ok(hr == S_OK, "got 0x%08x\n", hr);
1853
1854 hr = IPersistStreamInit_InitNew(streaminit);
1855 ok(hr == S_OK, "got 0x%08x\n", hr);
1856
1857 hr = IPersistStreamInit_GetSizeMax(streaminit, &size);
1858 ok(hr == E_NOTIMPL, "got 0x%08x\n", hr);
1859
1860 IXMLDOMDocument_Release(doc);
1861 }
1862
1863 static void test_domnode( void )
1864 {
1865 HRESULT r;
1866 IXMLDOMDocument *doc, *owner = NULL;
1867 IXMLDOMElement *element = NULL;
1868 IXMLDOMNamedNodeMap *map = NULL;
1869 IXMLDOMNode *node = NULL, *next = NULL;
1870 IXMLDOMNodeList *list = NULL;
1871 IXMLDOMAttribute *attr = NULL;
1872 DOMNodeType type = NODE_INVALID;
1873 VARIANT_BOOL b;
1874 BSTR str;
1875 VARIANT var;
1876 LONG count;
1877
1878 doc = create_document(&IID_IXMLDOMDocument);
1879
1880 b = FALSE;
1881 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1882 ok( r == S_OK, "loadXML failed\n");
1883 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1884
1885 EXPECT_CHILDREN(doc);
1886
1887 r = IXMLDOMDocument_get_documentElement( doc, &element );
1888 ok( r == S_OK, "should be a document element\n");
1889 ok( element != NULL, "should be an element\n");
1890
1891 VariantInit(&var);
1892 ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1893
1894 r = IXMLDOMDocument_get_nodeValue( doc, NULL );
1895 ok(r == E_INVALIDARG, "get_nodeValue ret %08x\n", r );
1896
1897 r = IXMLDOMDocument_get_nodeValue( doc, &var );
1898 ok( r == S_FALSE, "nextNode returned wrong code\n");
1899 ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1900 ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1901
1902 if (element)
1903 {
1904 owner = NULL;
1905 r = IXMLDOMElement_get_ownerDocument( element, &owner );
1906 ok( r == S_OK, "get_ownerDocument return code\n");
1907 ok( owner != doc, "get_ownerDocument return\n");
1908 IXMLDOMDocument_Release(owner);
1909
1910 type = NODE_INVALID;
1911 r = IXMLDOMElement_get_nodeType( element, &type);
1912 ok( r == S_OK, "got %08x\n", r);
1913 ok( type == NODE_ELEMENT, "node not an element\n");
1914
1915 str = NULL;
1916 r = IXMLDOMElement_get_baseName( element, &str );
1917 ok( r == S_OK, "get_baseName returned wrong code\n");
1918 ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
1919 SysFreeString(str);
1920
1921 /* check if nodename is correct */
1922 r = IXMLDOMElement_get_nodeName( element, NULL );
1923 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1924
1925 /* content doesn't matter here */
1926 str = NULL;
1927 r = IXMLDOMElement_get_nodeName( element, &str );
1928 ok ( r == S_OK, "get_nodeName wrong code\n");
1929 ok ( str != NULL, "str is null\n");
1930 ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
1931 SysFreeString( str );
1932
1933 str = SysAllocString( nonexistent_fileW );
1934 V_VT(&var) = VT_I4;
1935 V_I4(&var) = 0x1234;
1936 r = IXMLDOMElement_getAttribute( element, str, &var );
1937 ok( r == E_FAIL, "getAttribute ret %08x\n", r );
1938 ok( V_VT(&var) == VT_NULL || V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
1939 VariantClear(&var);
1940 SysFreeString(str);
1941
1942 str = SysAllocString( szdl );
1943 V_VT(&var) = VT_I4;
1944 V_I4(&var) = 0x1234;
1945 r = IXMLDOMElement_getAttribute( element, str, &var );
1946 ok( r == S_OK, "getAttribute ret %08x\n", r );
1947 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
1948 ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
1949 VariantClear( &var );
1950
1951 r = IXMLDOMElement_getAttribute( element, NULL, &var );
1952 ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1953
1954 r = IXMLDOMElement_getAttribute( element, str, NULL );
1955 ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1956
1957 attr = NULL;
1958 r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1959 ok( r == S_OK, "GetAttributeNode ret %08x\n", r );
1960 ok( attr != NULL, "getAttributeNode returned NULL\n" );
1961 if (attr)
1962 {
1963 r = IXMLDOMAttribute_get_parentNode( attr, NULL );
1964 ok( r == E_INVALIDARG, "Expected E_INVALIDARG, ret %08x\n", r );
1965
1966 /* attribute doesn't have a parent in msxml interpretation */
1967 node = (IXMLDOMNode*)0xdeadbeef;
1968 r = IXMLDOMAttribute_get_parentNode( attr, &node );
1969 ok( r == S_FALSE, "Expected S_FALSE, ret %08x\n", r );
1970 ok( node == NULL, "Expected NULL, got %p\n", node );
1971
1972 IXMLDOMAttribute_Release(attr);
1973 }
1974
1975 SysFreeString( str );
1976
1977 r = IXMLDOMElement_get_attributes( element, &map );
1978 ok( r == S_OK, "get_attributes returned wrong code\n");
1979 ok( map != NULL, "should be attributes\n");
1980
1981 EXPECT_CHILDREN(element);
1982 }
1983 else
1984 ok( FALSE, "no element\n");
1985
1986 if (map)
1987 {
1988 str = SysAllocString( szdl );
1989 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
1990 ok( r == S_OK, "getNamedItem returned wrong code\n");
1991 ok( node != NULL, "should be attributes\n");
1992 IXMLDOMNode_Release(node);
1993 SysFreeString( str );
1994
1995 str = SysAllocString( szdl );
1996 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, NULL );
1997 ok( r == E_INVALIDARG, "getNamedItem should return E_INVALIDARG\n");
1998 SysFreeString( str );
1999
2000 /* something that isn't in complete4A */
2001 str = SysAllocString( szOpen );
2002 node = (IXMLDOMNode *) 1;
2003 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
2004 ok( r == S_FALSE, "getNamedItem found a node that wasn't there\n");
2005 ok( node == NULL, "getNamedItem should have returned NULL\n");
2006 SysFreeString( str );
2007
2008 /* test indexed access of attributes */
2009 r = IXMLDOMNamedNodeMap_get_length( map, NULL );
2010 ok ( r == E_INVALIDARG, "get_length should return E_INVALIDARG\n");
2011
2012 r = IXMLDOMNamedNodeMap_get_length( map, &count );
2013 ok ( r == S_OK, "get_length wrong code\n");
2014 ok ( count == 1, "get_length != 1\n");
2015
2016 node = NULL;
2017 r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
2018 ok ( r == S_FALSE, "get_item (-1) wrong code\n");
2019 ok ( node == NULL, "there is no node\n");
2020
2021 node = NULL;
2022 r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
2023 ok ( r == S_FALSE, "get_item (1) wrong code\n");
2024 ok ( node == NULL, "there is no attribute\n");
2025
2026 node = NULL;
2027 r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
2028 ok ( r == S_OK, "get_item (0) wrong code\n");
2029 ok ( node != NULL, "should be attribute\n");
2030
2031 r = IXMLDOMNode_get_nodeName( node, NULL );
2032 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
2033
2034 /* content doesn't matter here */
2035 str = NULL;
2036 r = IXMLDOMNode_get_nodeName( node, &str );
2037 ok ( r == S_OK, "get_nodeName wrong code\n");
2038 ok ( str != NULL, "str is null\n");
2039 ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
2040 SysFreeString( str );
2041 IXMLDOMNode_Release( node );
2042
2043 /* test sequential access of attributes */
2044 node = NULL;
2045 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2046 ok ( r == S_OK, "nextNode (first time) wrong code\n");
2047 ok ( node != NULL, "nextNode, should be attribute\n");
2048 IXMLDOMNode_Release( node );
2049
2050 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2051 ok ( r != S_OK, "nextNode (second time) wrong code\n");
2052 ok ( node == NULL, "nextNode, there is no attribute\n");
2053
2054 r = IXMLDOMNamedNodeMap_reset( map );
2055 ok ( r == S_OK, "reset should return S_OK\n");
2056
2057 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2058 ok ( r == S_OK, "nextNode (third time) wrong code\n");
2059 ok ( node != NULL, "nextNode, should be attribute\n");
2060 }
2061 else
2062 ok( FALSE, "no map\n");
2063
2064 if (node)
2065 {
2066 type = NODE_INVALID;
2067 r = IXMLDOMNode_get_nodeType( node, &type);
2068 ok( r == S_OK, "getNamedItem returned wrong code\n");
2069 ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
2070
2071 str = NULL;
2072 r = IXMLDOMNode_get_baseName( node, NULL );
2073 ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
2074
2075 str = NULL;
2076 r = IXMLDOMNode_get_baseName( node, &str );
2077 ok( r == S_OK, "get_baseName returned wrong code\n");
2078 ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
2079 SysFreeString( str );
2080
2081 r = IXMLDOMNode_get_childNodes( node, NULL );
2082 ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
2083
2084 r = IXMLDOMNode_get_childNodes( node, &list );
2085 ok( r == S_OK, "get_childNodes returned wrong code\n");
2086
2087 if (list)
2088 {
2089 r = IXMLDOMNodeList_nextNode( list, &next );
2090 ok( r == S_OK, "nextNode returned wrong code\n");
2091 }
2092 else
2093 ok( FALSE, "no childlist\n");
2094
2095 if (next)
2096 {
2097 EXPECT_NO_CHILDREN(next);
2098
2099 type = NODE_INVALID;
2100 r = IXMLDOMNode_get_nodeType( next, &type);
2101 ok( r == S_OK, "getNamedItem returned wrong code\n");
2102 ok( type == NODE_TEXT, "node not text\n");
2103
2104 str = (BSTR) 1;
2105 r = IXMLDOMNode_get_baseName( next, &str );
2106 ok( r == S_FALSE, "get_baseName returned wrong code\n");
2107 ok( str == NULL, "basename was wrong\n");
2108 SysFreeString(str);
2109 }
2110 else
2111 ok( FALSE, "no next\n");
2112
2113 if (next)
2114 IXMLDOMNode_Release( next );
2115 next = NULL;
2116 if (list)
2117 IXMLDOMNodeList_Release( list );
2118 list = NULL;
2119 if (node)
2120 IXMLDOMNode_Release( node );
2121 }
2122 else
2123 ok( FALSE, "no node\n");
2124 node = NULL;
2125
2126 if (map)
2127 IXMLDOMNamedNodeMap_Release( map );
2128
2129 /* now traverse the tree from the root element */
2130 if (element)
2131 {
2132 r = IXMLDOMElement_get_childNodes( element, &list );
2133 ok( r == S_OK, "get_childNodes returned wrong code\n");
2134
2135 /* using get_item for child list doesn't advance the position */
2136 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
2137 expect_node(node, "E2.E2.D1");
2138 IXMLDOMNode_Release(node);
2139 ole_check(IXMLDOMNodeList_nextNode(list, &node));
2140 expect_node(node, "E1.E2.D1");
2141 IXMLDOMNode_Release(node);
2142 ole_check(IXMLDOMNodeList_reset(list));
2143
2144 IXMLDOMNodeList_AddRef(list);
2145 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1");
2146 ole_check(IXMLDOMNodeList_reset(list));
2147
2148 node = (void*)0xdeadbeef;
2149 str = SysAllocString(szdl);
2150 r = IXMLDOMElement_selectSingleNode( element, str, &node );
2151 SysFreeString(str);
2152 ok( r == S_FALSE, "ret %08x\n", r );
2153 ok( node == NULL, "node %p\n", node );
2154
2155 str = SysAllocString(szbs);
2156 r = IXMLDOMElement_selectSingleNode( element, str, &node );
2157 SysFreeString(str);
2158 ok( r == S_OK, "ret %08x\n", r );
2159 r = IXMLDOMNode_Release( node );
2160 ok( r == 0, "ret %08x\n", r );
2161 }
2162 else
2163 ok( FALSE, "no element\n");
2164
2165 if (list)
2166 {
2167 r = IXMLDOMNodeList_get_item(list, 0, NULL);
2168 ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2169
2170 r = IXMLDOMNodeList_get_length(list, NULL);
2171 ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2172
2173 r = IXMLDOMNodeList_get_length( list, &count );
2174 ok( r == S_OK, "get_length returns %08x\n", r );
2175 ok( count == 4, "get_length got %d\n", count );
2176
2177 r = IXMLDOMNodeList_nextNode(list, NULL);
2178 ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2179
2180 r = IXMLDOMNodeList_nextNode( list, &node );
2181 ok( r == S_OK, "nextNode returned wrong code\n");
2182 }
2183 else
2184 ok( FALSE, "no list\n");
2185
2186 if (node)
2187 {
2188 type = NODE_INVALID;
2189 r = IXMLDOMNode_get_nodeType( node, &type);
2190 ok( r == S_OK, "getNamedItem returned wrong code\n");
2191 ok( type == NODE_ELEMENT, "node not text\n");
2192
2193 r = IXMLDOMNode_hasChildNodes( node, NULL );
2194 ok( r == E_INVALIDARG, "hasChildNodes bad return\n");
2195
2196 EXPECT_CHILDREN(node);
2197
2198 str = NULL;
2199 r = IXMLDOMNode_get_baseName( node, &str );
2200 ok( r == S_OK, "get_baseName returned wrong code\n");
2201 ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
2202 SysFreeString(str);
2203 }
2204 else
2205 ok( FALSE, "no node\n");
2206
2207 if (node)
2208 IXMLDOMNode_Release( node );
2209 if (list)
2210 IXMLDOMNodeList_Release( list );
2211 if (element)
2212 IXMLDOMElement_Release( element );
2213
2214 b = FALSE;
2215 str = SysAllocString( szComplete5 );
2216 r = IXMLDOMDocument_loadXML( doc, str, &b );
2217 ok( r == S_OK, "loadXML failed\n");
2218 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2219 SysFreeString( str );
2220
2221 EXPECT_CHILDREN(doc);
2222
2223 r = IXMLDOMDocument_get_documentElement( doc, &element );
2224 ok( r == S_OK, "should be a document element\n");
2225 ok( element != NULL, "should be an element\n");
2226
2227 if (element)
2228 {
2229 static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
2230 BSTR tag = NULL;
2231
2232 /* check if the tag is correct */
2233 r = IXMLDOMElement_get_tagName( element, &tag );
2234 ok( r == S_OK, "couldn't get tag name\n");
2235 ok( tag != NULL, "tag was null\n");
2236 ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
2237 SysFreeString( tag );
2238
2239 IXMLDOMElement_Release( element );
2240 }
2241 ok(IXMLDOMDocument_Release( doc ) == 0, "document is not destroyed\n");
2242
2243 free_bstrs();
2244 }
2245
2246 typedef struct {
2247 DOMNodeType type;
2248 REFIID iid;
2249 } refcount_test_t;
2250
2251 static const refcount_test_t refcount_test[] = {
2252 { NODE_ELEMENT, &IID_IXMLDOMElement },
2253 { NODE_ATTRIBUTE, &IID_IXMLDOMAttribute },
2254 { NODE_TEXT, &IID_IXMLDOMText },
2255 { NODE_CDATA_SECTION, &IID_IXMLDOMCDATASection },
2256 { NODE_ENTITY_REFERENCE, &IID_IXMLDOMEntityReference },
2257 { NODE_PROCESSING_INSTRUCTION, &IID_IXMLDOMProcessingInstruction },
2258 { NODE_COMMENT, &IID_IXMLDOMComment },
2259 { NODE_DOCUMENT_FRAGMENT, &IID_IXMLDOMDocumentFragment },
2260 { NODE_INVALID, &IID_NULL }
2261 };
2262
2263 static void test_refs(void)
2264 {
2265 IXMLDOMImplementation *impl, *impl2;
2266 IXMLDOMElement *element, *elem2;
2267 IXMLDOMNodeList *node_list = NULL;
2268 IXMLDOMNode *node, *node2, *node3;
2269 const refcount_test_t *ptr;
2270 IXMLDOMDocument *doc;
2271 IUnknown *unk, *unk2;
2272 VARIANT_BOOL b;
2273 HRESULT hr;
2274 LONG ref;
2275
2276 doc = create_document(&IID_IXMLDOMDocument);
2277
2278 ptr = refcount_test;
2279 while (ptr->type != NODE_INVALID)
2280 {
2281 IUnknown *node_typed, *node_typed2;
2282 IDispatchEx *dispex, *dispex2;
2283 IDispatch *disp, *disp2;
2284 VARIANT type;
2285
2286 V_VT(&type) = VT_I1;
2287 V_I1(&type) = ptr->type;
2288
2289 EXPECT_REF(doc, 1);
2290 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("name"), NULL, &node);
2291 EXPECT_HR(hr, S_OK);
2292 EXPECT_REF(doc, 1);
2293 EXPECT_REF(node, 1);
2294
2295 /* try IDispatch and IUnknown from IXMLDOMNode */
2296 hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
2297 EXPECT_HR(hr, S_OK);
2298 EXPECT_REF(unk, 2);
2299 todo_wine {
2300 EXPECT_REF(node, 1);
2301 ok(unk != (IUnknown*)node, "%d: got %p and %p\n", ptr->type, unk, node);
2302 }
2303 EXPECT_REF(unk, 2);
2304 hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
2305 EXPECT_HR(hr, S_OK);
2306 todo_wine ok(unk != (IUnknown*)disp, "%d: got %p and %p\n", ptr->type, unk, disp);
2307 EXPECT_REF(unk, 3);
2308 todo_wine EXPECT_REF(disp, 1);
2309
2310 EXPECT_REF(unk, 3);
2311 hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp2);
2312 EXPECT_HR(hr, S_OK);
2313 todo_wine ok(disp != disp2, "%d: got %p and %p\n", ptr->type, disp, disp2);
2314 EXPECT_REF(unk, 4);
2315 todo_wine EXPECT_REF(disp2, 1);
2316
2317 IDispatch_Release(disp);
2318 IDispatch_Release(disp2);
2319
2320 /* get IXMLDOMNode from this IUnknown */
2321 EXPECT_REF(unk, 2);
2322 hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node2);
2323 EXPECT_HR(hr, S_OK);
2324 todo_wine ok(unk != (IUnknown*)node2, "%d: got %p and %p\n", ptr->type, unk, node2);
2325 EXPECT_REF(unk, 3);
2326 todo_wine EXPECT_REF(node2, 1);
2327
2328 EXPECT_REF(unk, 3);
2329 hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node3);
2330 EXPECT_HR(hr, S_OK);
2331 todo_wine ok(node2 != node3, "%d: got %p and %p\n", ptr->type, node2, node3);
2332 EXPECT_REF(unk, 4);
2333 todo_wine EXPECT_REF(node3, 1);
2334
2335 IXMLDOMNode_Release(node2);
2336 IXMLDOMNode_Release(node3);
2337
2338 /* try IDispatchEx from IUnknown */
2339 EXPECT_REF(unk, 2);
2340 hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
2341 EXPECT_HR(hr, S_OK);
2342 ok(unk != (IUnknown*)dispex, "%d: got %p and %p\n", ptr->type, unk, dispex);
2343 EXPECT_REF(unk, 3);
2344 todo_wine EXPECT_REF(dispex, 1);
2345
2346 EXPECT_REF(unk, 3);
2347 hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex2);
2348 EXPECT_HR(hr, S_OK);
2349 todo_wine ok(dispex != dispex2, "%d: got %p and %p\n", ptr->type, dispex, dispex2);
2350 EXPECT_REF(unk, 4);
2351 todo_wine EXPECT_REF(dispex2, 1);
2352
2353 IDispatchEx_Release(dispex);
2354 IDispatchEx_Release(dispex2);
2355
2356 /* try corresponding IXMLDOM* */
2357 EXPECT_REF(unk, 2);
2358 hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed);
2359 EXPECT_HR(hr, S_OK);
2360 EXPECT_REF(unk, 3);
2361 hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed2);
2362 EXPECT_HR(hr, S_OK);
2363 EXPECT_REF(unk, 4);
2364 todo_wine ok(node_typed != node_typed2, "%d: got %p and %p\n", ptr->type, node_typed, node_typed2);
2365 IUnknown_Release(node_typed);
2366 IUnknown_Release(node_typed2);
2367
2368 /* try invalid IXMLDOM* */
2369 hr = IUnknown_QueryInterface(unk, (ptr+1)->iid, (void**)&node_typed);
2370 EXPECT_HR(hr, E_NOINTERFACE);
2371
2372 IUnknown_Release(unk);
2373
2374 EXPECT_REF(node, 1);
2375 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMNode, (void**)&node2);
2376 EXPECT_HR(hr, S_OK);
2377 EXPECT_REF(node, 2);
2378 ok(node == node2, "%d: got %p and %p\n", ptr->type, node, node2);
2379
2380 EXPECT_REF(node, 2);
2381 hr = IXMLDOMNode_QueryInterface(node, ptr->iid, (void**)&node_typed);
2382 EXPECT_HR(hr, S_OK);
2383 EXPECT_REF(node, 3);
2384 todo_wine {
2385 EXPECT_REF(node_typed, 2);
2386 ok((IUnknown*)node != node_typed, "%d: got %p and %p\n", ptr->type, node, node_typed);
2387 }
2388 IUnknown_Release(node_typed);
2389
2390 IXMLDOMNode_Release(node2);
2391 IXMLDOMNode_Release(node);
2392
2393 ptr++;
2394 }
2395
2396 EXPECT_REF(doc, 1);
2397 ref = IXMLDOMDocument_Release(doc);
2398 ok( ref == 0, "ref %d\n", ref);
2399
2400 /* check IUnknown after releasing DOM iface */
2401 doc = create_document(&IID_IXMLDOMDocument);
2402 EXPECT_REF(doc, 1);
2403 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2404 EXPECT_HR(hr, S_OK);
2405 todo_wine {
2406 EXPECT_REF(unk, 3);
2407 EXPECT_REF(doc, 1);
2408 }
2409 IXMLDOMDocument_Release(doc);
2410 EXPECT_REF(unk, 1);
2411 IUnknown_Release(unk);
2412
2413 doc = create_document(&IID_IXMLDOMDocument);
2414
2415 EXPECT_REF(doc, 1);
2416 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2417 EXPECT_HR(hr, S_OK);
2418 todo_wine {
2419 EXPECT_REF(unk, 3);
2420 EXPECT_REF(doc, 1);
2421 }
2422 IUnknown_Release(unk);
2423
2424 /* IXMLDOMImplementation */
2425 EXPECT_REF(doc, 1);
2426 hr = IXMLDOMDocument_get_implementation(doc, &impl);
2427 EXPECT_HR(hr, S_OK);
2428 EXPECT_REF(doc, 1);
2429 EXPECT_REF(impl, 1);
2430 hr = IXMLDOMDocument_get_implementation(doc, &impl2);
2431 EXPECT_HR(hr, S_OK);
2432 EXPECT_REF(doc, 1);
2433 EXPECT_REF(impl2, 1);
2434 ok(impl != impl2, "got %p, %p\n", impl, impl2);
2435 IXMLDOMImplementation_Release(impl);
2436 IXMLDOMImplementation_Release(impl2);
2437
2438 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
2439 EXPECT_HR(hr, S_OK);
2440 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2441
2442 EXPECT_REF(doc, 1);
2443 IXMLDOMDocument_AddRef( doc );
2444 EXPECT_REF(doc, 2);
2445 IXMLDOMDocument_AddRef( doc );
2446 EXPECT_REF(doc, 3);
2447
2448 IXMLDOMDocument_Release( doc );
2449 IXMLDOMDocument_Release( doc );
2450
2451 EXPECT_REF(doc, 1);
2452 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2453 EXPECT_HR(hr, S_OK);
2454 todo_wine {
2455 EXPECT_REF(unk, 3);
2456 EXPECT_REF(doc, 1);
2457 }
2458 hr = IXMLDOMDocument_get_documentElement(doc, &element);
2459 EXPECT_HR(hr, S_OK);
2460 todo_wine {
2461 EXPECT_REF(doc, 1);
2462 EXPECT_REF(element, 2);
2463 }
2464 hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
2465 EXPECT_HR(hr, S_OK);
2466
2467 todo_wine {
2468 EXPECT_REF(doc, 1);
2469 EXPECT_REF(element, 2);
2470 EXPECT_REF(elem2, 2);
2471 }
2472 IXMLDOMElement_AddRef(element);
2473 todo_wine EXPECT_REF(element, 3);
2474 IXMLDOMElement_Release(element);
2475
2476 /* get IUnknown from a node doesn't touch node instance refcount */
2477 hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2478 EXPECT_HR(hr, S_OK);
2479 EXPECT_REF(element, 2);
2480 todo_wine {
2481 EXPECT_REF(unk, 4);
2482 EXPECT_REF(elem2, 2);
2483 }
2484 hr = IXMLDOMElement_QueryInterface(elem2, &IID_IUnknown, (void**)&unk2);
2485 EXPECT_HR(hr, S_OK);
2486 todo_wine {
2487 EXPECT_REF(unk, 5);
2488 EXPECT_REF(unk2, 5);
2489 }
2490 EXPECT_REF(element, 2);
2491 EXPECT_REF(elem2, 2);
2492
2493 todo_wine ok(unk == unk2, "got %p and %p\n", unk, unk2);
2494 IUnknown_Release(unk);
2495
2496 /* IUnknown refcount is not affected by node refcount */
2497 todo_wine EXPECT_REF(unk2, 4);
2498 IXMLDOMElement_AddRef(elem2);
2499 todo_wine EXPECT_REF(unk2, 4);
2500 IXMLDOMElement_Release(elem2);
2501
2502 IXMLDOMElement_Release(elem2);
2503 todo_wine EXPECT_REF(unk2, 3);
2504
2505 IUnknown_Release(unk2);
2506
2507 hr = IXMLDOMElement_get_childNodes( element, &node_list );
2508 EXPECT_HR(hr, S_OK);
2509
2510 todo_wine EXPECT_REF(element, 2);
2511 EXPECT_REF(node_list, 1);
2512
2513 hr = IXMLDOMNodeList_get_item( node_list, 0, &node );
2514 EXPECT_HR(hr, S_OK);
2515 EXPECT_REF(node_list, 1);
2516 EXPECT_REF(node, 1);
2517
2518 hr = IXMLDOMNodeList_get_item( node_list, 0, &node2 );
2519 EXPECT_HR(hr, S_OK);
2520 EXPECT_REF(node_list, 1);
2521 EXPECT_REF(node2, 1);
2522
2523 ref = IXMLDOMNode_Release( node );
2524 ok( ref == 0, "ref %d\n", ref );
2525 ref = IXMLDOMNode_Release( node2 );
2526 ok( ref == 0, "ref %d\n", ref );
2527
2528 ref = IXMLDOMNodeList_Release( node_list );
2529 ok( ref == 0, "ref %d\n", ref );
2530
2531 ok( node != node2, "node %p node2 %p\n", node, node2 );
2532
2533 ref = IXMLDOMDocument_Release( doc );
2534 todo_wine ok( ref == 0, "ref %d\n", ref );
2535
2536 todo_wine EXPECT_REF(element, 2);
2537
2538 /* IUnknown must be unique however we obtain it */
2539 hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2540 EXPECT_HR(hr, S_OK);
2541 EXPECT_REF(element, 2);
2542 hr = IXMLDOMElement_QueryInterface(element, &IID_IXMLDOMNode, (void**)&node);
2543 EXPECT_HR(hr, S_OK);
2544 todo_wine EXPECT_REF(element, 2);
2545 hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk2);
2546 EXPECT_HR(hr, S_OK);
2547 todo_wine EXPECT_REF(element, 2);
2548 ok(unk == unk2, "unk %p unk2 %p\n", unk, unk2);
2549 todo_wine ok(element != (void*)node, "node %p element %p\n", node, element);
2550
2551 IUnknown_Release( unk2 );
2552 IUnknown_Release( unk );
2553 IXMLDOMNode_Release( node );
2554 todo_wine EXPECT_REF(element, 2);
2555
2556 IXMLDOMElement_Release( element );
2557
2558 free_bstrs();
2559 }
2560
2561 static void test_create(void)
2562 {
2563 static const WCHAR szOne[] = {'1',0};
2564 static const WCHAR szOneGarbage[] = {'1','G','a','r','b','a','g','e',0};
2565 HRESULT r;
2566 VARIANT var;
2567 BSTR str, name;
2568 IXMLDOMDocument *doc;
2569 IXMLDOMElement *element;
2570 IXMLDOMComment *comment;
2571 IXMLDOMText *text;
2572 IXMLDOMCDATASection *cdata;
2573 IXMLDOMNode *root, *node, *child;
2574 IXMLDOMNamedNodeMap *attr_map;
2575 IUnknown *unk;
2576 LONG ref;
2577 LONG num;
2578
2579 doc = create_document(&IID_IXMLDOMDocument);
2580
2581 EXPECT_REF(doc, 1);
2582
2583 /* types not supported for creation */
2584 V_VT(&var) = VT_I1;
2585 V_I1(&var) = NODE_DOCUMENT;
2586 node = (IXMLDOMNode*)0x1;
2587 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2588 ok( r == E_INVALIDARG, "returns %08x\n", r );
2589 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2590
2591 V_VT(&var) = VT_I1;
2592 V_I1(&var) = NODE_DOCUMENT_TYPE;
2593 node = (IXMLDOMNode*)0x1;
2594 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2595 ok( r == E_INVALIDARG, "returns %08x\n", r );
2596 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2597
2598 V_VT(&var) = VT_I1;
2599 V_I1(&var) = NODE_ENTITY;
2600 node = (IXMLDOMNode*)0x1;
2601 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2602 ok( r == E_INVALIDARG, "returns %08x\n", r );
2603 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2604
2605 V_VT(&var) = VT_I1;
2606 V_I1(&var) = NODE_NOTATION;
2607 node = (IXMLDOMNode*)0x1;
2608 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2609 ok( r == E_INVALIDARG, "returns %08x\n", r );
2610 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2611
2612 /* NODE_COMMENT */
2613 V_VT(&var) = VT_I1;
2614 V_I1(&var) = NODE_COMMENT;
2615 node = NULL;
2616 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2617 ok( r == S_OK, "returns %08x\n", r );
2618 ok( node != NULL, "\n");
2619
2620 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2621 ok( r == S_OK, "returns %08x\n", r );
2622 IXMLDOMNode_Release(node);
2623
2624 str = NULL;
2625 r = IXMLDOMComment_get_data(comment, &str);
2626 ok( r == S_OK, "returns %08x\n", r );
2627 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2628 IXMLDOMComment_Release(comment);
2629 SysFreeString(str);
2630
2631 node = (IXMLDOMNode*)0x1;
2632 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2633 ok( r == S_OK, "returns %08x\n", r );
2634
2635 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2636 ok( r == S_OK, "returns %08x\n", r );
2637 IXMLDOMNode_Release(node);
2638
2639 str = NULL;
2640 r = IXMLDOMComment_get_data(comment, &str);
2641 ok( r == S_OK, "returns %08x\n", r );
2642 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2643 IXMLDOMComment_Release(comment);
2644 SysFreeString(str);
2645
2646 node = (IXMLDOMNode*)0x1;
2647 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2648 ok( r == S_OK, "returns %08x\n", r );
2649
2650 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2651 ok( r == S_OK, "returns %08x\n", r );
2652 IXMLDOMNode_Release(node);
2653
2654 str = NULL;
2655 r = IXMLDOMComment_get_data(comment, &str);
2656 ok( r == S_OK, "returns %08x\n", r );
2657 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2658 IXMLDOMComment_Release(comment);
2659 SysFreeString(str);
2660
2661 /* NODE_TEXT */
2662 V_VT(&var) = VT_I1;
2663 V_I1(&var) = NODE_TEXT;
2664 node = NULL;
2665 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2666 ok( r == S_OK, "returns %08x\n", r );
2667 ok( node != NULL, "\n");
2668
2669 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2670 ok( r == S_OK, "returns %08x\n", r );
2671 IXMLDOMNode_Release(node);
2672
2673 str = NULL;
2674 r = IXMLDOMText_get_data(text, &str);
2675 ok( r == S_OK, "returns %08x\n", r );
2676 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2677 IXMLDOMText_Release(text);
2678 SysFreeString(str);
2679
2680 node = (IXMLDOMNode*)0x1;
2681 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2682 ok( r == S_OK, "returns %08x\n", r );
2683
2684 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2685 ok( r == S_OK, "returns %08x\n", r );
2686 IXMLDOMNode_Release(node);
2687
2688 str = NULL;
2689 r = IXMLDOMText_get_data(text, &str);
2690 ok( r == S_OK, "returns %08x\n", r );
2691 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2692 IXMLDOMText_Release(text);
2693 SysFreeString(str);
2694
2695 node = (IXMLDOMNode*)0x1;
2696 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2697 ok( r == S_OK, "returns %08x\n", r );
2698
2699 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2700 ok( r == S_OK, "returns %08x\n", r );
2701 IXMLDOMNode_Release(node);
2702
2703 str = NULL;
2704 r = IXMLDOMText_get_data(text, &str);
2705 ok( r == S_OK, "returns %08x\n", r );
2706 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2707 IXMLDOMText_Release(text);
2708 SysFreeString(str);
2709
2710 /* NODE_CDATA_SECTION */
2711 V_VT(&var) = VT_I1;
2712 V_I1(&var) = NODE_CDATA_SECTION;
2713 node = NULL;
2714 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2715 ok( r == S_OK, "returns %08x\n", r );
2716 ok( node != NULL, "\n");
2717
2718 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2719 ok( r == S_OK, "returns %08x\n", r );
2720 IXMLDOMNode_Release(node);
2721
2722 str = NULL;
2723 r = IXMLDOMCDATASection_get_data(cdata, &str);
2724 ok( r == S_OK, "returns %08x\n", r );
2725 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2726 IXMLDOMCDATASection_Release(cdata);
2727 SysFreeString(str);
2728
2729 node = (IXMLDOMNode*)0x1;
2730 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2731 ok( r == S_OK, "returns %08x\n", r );
2732
2733 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2734 ok( r == S_OK, "returns %08x\n", r );
2735 IXMLDOMNode_Release(node);
2736
2737 str = NULL;
2738 r = IXMLDOMCDATASection_get_data(cdata, &str);
2739 ok( r == S_OK, "returns %08x\n", r );
2740 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2741 IXMLDOMCDATASection_Release(cdata);
2742 SysFreeString(str);
2743
2744 node = (IXMLDOMNode*)0x1;
2745 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2746 ok( r == S_OK, "returns %08x\n", r );
2747
2748 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2749 ok( r == S_OK, "returns %08x\n", r );
2750 IXMLDOMNode_Release(node);
2751
2752 str = NULL;
2753 r = IXMLDOMCDATASection_get_data(cdata, &str);
2754 ok( r == S_OK, "returns %08x\n", r );
2755 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2756 IXMLDOMCDATASection_Release(cdata);
2757 SysFreeString(str);
2758
2759 /* NODE_ATTRIBUTE */
2760 V_VT(&var) = VT_I1;
2761 V_I1(&var) = NODE_ATTRIBUTE;
2762 node = (IXMLDOMNode*)0x1;
2763 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2764 ok( r == E_FAIL, "returns %08x\n", r );
2765 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2766
2767 V_VT(&var) = VT_I1;
2768 V_I1(&var) = NODE_ATTRIBUTE;
2769 node = (IXMLDOMNode*)0x1;
2770 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2771 ok( r == E_FAIL, "returns %08x\n", r );
2772 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2773
2774 V_VT(&var) = VT_I1;
2775 V_I1(&var) = NODE_ATTRIBUTE;
2776 str = SysAllocString( szlc );
2777 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2778 ok( r == S_OK, "returns %08x\n", r );
2779 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2780 SysFreeString(str);
2781
2782 /* a name is required for attribute, try a BSTR with first null wchar */
2783 V_VT(&var) = VT_I1;
2784 V_I1(&var) = NODE_ATTRIBUTE;
2785 str = SysAllocString( szstr1 );
2786 str[0] = 0;
2787 node = (IXMLDOMNode*)0x1;
2788 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2789 ok( r == E_FAIL, "returns %08x\n", r );
2790 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2791 SysFreeString(str);
2792
2793 /* NODE_PROCESSING_INSTRUCTION */
2794 V_VT(&var) = VT_I1;
2795 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2796 node = (IXMLDOMNode*)0x1;
2797 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2798 ok( r == E_FAIL, "returns %08x\n", r );
2799 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2800
2801 V_VT(&var) = VT_I1;
2802 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2803 node = (IXMLDOMNode*)0x1;
2804 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2805 ok( r == E_FAIL, "returns %08x\n", r );
2806 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2807
2808 V_VT(&var) = VT_I1;
2809 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2810 r = IXMLDOMDocument_createNode( doc, var, _bstr_("pi"), NULL, NULL );
2811 ok( r == E_INVALIDARG, "returns %08x\n", r );
2812
2813 /* NODE_ENTITY_REFERENCE */
2814 V_VT(&var) = VT_I1;
2815 V_I1(&var) = NODE_ENTITY_REFERENCE;
2816 node = (IXMLDOMNode*)0x1;
2817 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2818 ok( r == E_FAIL, "returns %08x\n", r );
2819 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2820
2821 V_VT(&var) = VT_I1;
2822 V_I1(&var) = NODE_ENTITY_REFERENCE;
2823 node = (IXMLDOMNode*)0x1;
2824 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2825 ok( r == E_FAIL, "returns %08x\n", r );
2826 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2827
2828 /* NODE_ELEMENT */
2829 V_VT(&var) = VT_I1;
2830 V_I1(&var) = NODE_ELEMENT;
2831 node = (IXMLDOMNode*)0x1;
2832 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2833 ok( r == E_FAIL, "returns %08x\n", r );
2834 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2835
2836 V_VT(&var) = VT_I1;
2837 V_I1(&var) = NODE_ELEMENT;
2838 node = (IXMLDOMNode*)0x1;
2839 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2840 ok( r == E_FAIL, "returns %08x\n", r );
2841 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2842
2843 V_VT(&var) = VT_I1;
2844 V_I1(&var) = NODE_ELEMENT;
2845 str = SysAllocString( szlc );
2846 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2847 ok( r == S_OK, "returns %08x\n", r );
2848 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2849
2850 V_VT(&var) = VT_I1;
2851 V_I1(&var) = NODE_ELEMENT;
2852 r = IXMLDOMDocument_createNode( doc, var, str, NULL, NULL );
2853 ok( r == E_INVALIDARG, "returns %08x\n", r );
2854
2855 V_VT(&var) = VT_R4;
2856 V_R4(&var) = NODE_ELEMENT;
2857 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2858 ok( r == S_OK, "returns %08x\n", r );
2859 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2860
2861 V_VT(&var) = VT_BSTR;
2862 V_BSTR(&var) = SysAllocString( szOne );
2863 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2864 ok( r == S_OK, "returns %08x\n", r );
2865 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2866 VariantClear(&var);
2867
2868 V_VT(&var) = VT_BSTR;
2869 V_BSTR(&var) = SysAllocString( szOneGarbage );
2870 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2871 ok( r == E_INVALIDARG, "returns %08x\n", r );
2872 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2873 VariantClear(&var);
2874
2875 V_VT(&var) = VT_I4;
2876 V_I4(&var) = NODE_ELEMENT;
2877 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2878 ok( r == S_OK, "returns %08x\n", r );
2879
2880 EXPECT_REF(doc, 1);
2881 r = IXMLDOMDocument_appendChild( doc, node, &root );
2882 ok( r == S_OK, "returns %08x\n", r );
2883 ok( node == root, "%p %p\n", node, root );
2884 EXPECT_REF(doc, 1);
2885
2886 EXPECT_REF(node, 2);
2887
2888 ref = IXMLDOMNode_Release( node );
2889 ok(ref == 1, "ref %d\n", ref);
2890 SysFreeString( str );
2891
2892 V_VT(&var) = VT_I4;
2893 V_I4(&var) = NODE_ELEMENT;
2894 str = SysAllocString( szbs );
2895 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2896 ok( r == S_OK, "returns %08x\n", r );
2897 SysFreeString( str );
2898
2899 EXPECT_REF(node, 1);
2900
2901 r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk );
2902 ok( r == S_OK, "returns %08x\n", r );
2903
2904 EXPECT_REF(unk, 2);
2905
2906 V_VT(&var) = VT_EMPTY;
2907 child = NULL;
2908 r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
2909 ok( r == S_OK, "returns %08x\n", r );
2910 ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
2911
2912 todo_wine EXPECT_REF(unk, 4);
2913
2914 IXMLDOMNode_Release( child );
2915 IUnknown_Release( unk );
2916
2917 V_VT(&var) = VT_NULL;
2918 V_DISPATCH(&var) = (IDispatch*)node;
2919 r = IXMLDOMNode_insertBefore( root, node, var, &child );
2920 ok( r == S_OK, "returns %08x\n", r );
2921 ok( node == child, "%p %p\n", node, child );
2922 IXMLDOMNode_Release( child );
2923
2924 V_VT(&var) = VT_NULL;
2925 V_DISPATCH(&var) = (IDispatch*)node;
2926 r = IXMLDOMNode_insertBefore( root, node, var, NULL );
2927 ok( r == S_OK, "returns %08x\n", r );
2928 IXMLDOMNode_Release( node );
2929
2930 r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (void**)&element );
2931 ok( r == S_OK, "returns %08x\n", r );
2932
2933 r = IXMLDOMElement_get_attributes( element, &attr_map );
2934 ok( r == S_OK, "returns %08x\n", r );
2935 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2936 ok( r == S_OK, "returns %08x\n", r );
2937 ok( num == 0, "num %d\n", num );
2938 IXMLDOMNamedNodeMap_Release( attr_map );
2939
2940 V_VT(&var) = VT_BSTR;
2941 V_BSTR(&var) = SysAllocString( szstr1 );
2942 name = SysAllocString( szdl );
2943 r = IXMLDOMElement_setAttribute( element, name, var );
2944 ok( r == S_OK, "returns %08x\n", r );
2945 r = IXMLDOMElement_get_attributes( element, &attr_map );
2946 ok( r == S_OK, "returns %08x\n", r );
2947 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2948 ok( r == S_OK, "returns %08x\n", r );
2949 ok( num == 1, "num %d\n", num );
2950 IXMLDOMNamedNodeMap_Release( attr_map );
2951 VariantClear(&var);
2952
2953 V_VT(&var) = VT_BSTR;
2954 V_BSTR(&var) = SysAllocString( szstr2 );
2955 r = IXMLDOMElement_setAttribute( element, name, var );
2956 ok( r == S_OK, "returns %08x\n", r );
2957 r = IXMLDOMElement_get_attributes( element, &attr_map );
2958 ok( r == S_OK, "returns %08x\n", r );
2959 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2960 ok( r == S_OK, "returns %08x\n", r );
2961 ok( num == 1, "num %d\n", num );
2962 IXMLDOMNamedNodeMap_Release( attr_map );
2963 VariantClear(&var);
2964 r = IXMLDOMElement_getAttribute( element, name, &var );
2965 ok( r == S_OK, "returns %08x\n", r );
2966 ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
2967 VariantClear(&var);
2968 SysFreeString(name);
2969
2970 V_VT(&var) = VT_BSTR;
2971 V_BSTR(&var) = SysAllocString( szstr1 );
2972 name = SysAllocString( szlc );
2973 r = IXMLDOMElement_setAttribute( element, name, var );
2974 ok( r == S_OK, "returns %08x\n", r );
2975 r = IXMLDOMElement_get_attributes( element, &attr_map );
2976 ok( r == S_OK, "returns %08x\n", r );
2977 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2978 ok( r == S_OK, "returns %08x\n", r );
2979 ok( num == 2, "num %d\n", num );
2980 IXMLDOMNamedNodeMap_Release( attr_map );
2981 VariantClear(&var);
2982 SysFreeString(name);
2983
2984 V_VT(&var) = VT_I4;
2985 V_I4(&var) = 10;
2986 name = SysAllocString( szbs );
2987 r = IXMLDOMElement_setAttribute( element, name, var );
2988 ok( r == S_OK, "returns %08x\n", r );
2989 VariantClear(&var);
2990 r = IXMLDOMElement_getAttribute( element, name, &var );
2991 ok( r == S_OK, "returns %08x\n", r );
2992 ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
2993 VariantClear(&var);
2994 SysFreeString(name);
2995
2996 /* Create an Attribute */
2997 V_VT(&var) = VT_I4;
2998 V_I4(&var) = NODE_ATTRIBUTE;
2999 str = SysAllocString( szAttribute );
3000 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
3001 ok( r == S_OK, "returns %08x\n", r );
3002 ok( node != NULL, "node was null\n");
3003 SysFreeString(str);
3004
3005 IXMLDOMElement_Release( element );
3006 IXMLDOMNode_Release( root );
3007 IXMLDOMDocument_Release( doc );
3008 }
3009
3010 struct queryresult_t {
3011 const char *query;
3012 const char *result;
3013 int len;
3014 };
3015
3016 static const struct queryresult_t elementsbytagname[] = {
3017 { "", "P1.D1 E2.D1 E1.E2.D1 T1.E1.E2.D1 E2.E2.D1 T1.E2.E2.D1 E3.E2.D1 E4.E2.D1 E1.E4.E2.D1 T1.E1.E4.E2.D1", 10 },
3018 { "*", "E2.D1 E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1 E1.E4.E2.D1", 6 },
3019 { "bs", "E1.E2.D1", 1 },
3020 { "dl", "", 0 },
3021 { "str1","", 0 },
3022 { NULL }
3023 };
3024
3025 static void test_getElementsByTagName(void)
3026 {
3027 const struct queryresult_t *ptr = elementsbytagname;
3028 IXMLDOMNodeList *node_list;
3029 IXMLDOMDocument *doc;
3030 IXMLDOMElement *elem;
3031 WCHAR buff[100];
3032 VARIANT_BOOL b;
3033 HRESULT r;
3034 LONG len;
3035 BSTR str;
3036
3037 doc = create_document(&IID_IXMLDOMDocument);
3038
3039 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3040 ok( r == S_OK, "loadXML failed\n");
3041 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3042
3043 /* null arguments cases */
3044 r = IXMLDOMDocument_getElementsByTagName(doc, NULL, &node_list);
3045 ok( r == E_INVALIDARG, "ret %08x\n", r );
3046 r = IXMLDOMDocument_getElementsByTagName(doc, _bstr_("*"), NULL);
3047 ok( r == E_INVALIDARG, "ret %08x\n", r );
3048
3049 while (ptr->query)
3050 {
3051 r = IXMLDOMDocument_getElementsByTagName(doc, _bstr_(ptr->query), &node_list);
3052 ok(r == S_OK, "ret %08x\n", r);
3053 r = IXMLDOMNodeList_get_length(node_list, &len);
3054 ok(r == S_OK, "ret %08x\n", r);
3055 ok(len == ptr->len, "%s: got len %d, expected %d\n", ptr->query, len, ptr->len);
3056 expect_list_and_release(node_list, ptr->result);
3057
3058 free_bstrs();
3059 ptr++;
3060 }
3061
3062 /* broken query BSTR */
3063 memcpy(&buff[2], szstar, sizeof(szstar));
3064 /* just a big length */
3065 *(DWORD*)buff = 0xf0f0;
3066 r = IXMLDOMDocument_getElementsByTagName(doc, &buff[2], &node_list);
3067 ok( r == S_OK, "ret %08x\n", r );
3068 r = IXMLDOMNodeList_get_length( node_list, &len );
3069 ok( r == S_OK, "ret %08x\n", r );
3070 ok( len == 6, "len %d\n", len );
3071 IXMLDOMNodeList_Release( node_list );
3072
3073 /* test for element */
3074 r = IXMLDOMDocument_get_documentElement(doc, &elem);
3075 ok( r == S_OK, "ret %08x\n", r );
3076
3077 str = SysAllocString( szstar );
3078
3079 /* null arguments cases */
3080 r = IXMLDOMElement_getElementsByTagName(elem, NULL, &node_list);
3081 ok( r == E_INVALIDARG, "ret %08x\n", r );
3082 r = IXMLDOMElement_getElementsByTagName(elem, str, NULL);
3083 ok( r == E_INVALIDARG, "ret %08x\n", r );
3084
3085 r = IXMLDOMElement_getElementsByTagName(elem, str, &node_list);
3086 ok( r == S_OK, "ret %08x\n", r );
3087 r = IXMLDOMNodeList_get_length( node_list, &len );
3088 ok( r == S_OK, "ret %08x\n", r );
3089 ok( len == 5, "len %d\n", len );
3090 expect_list_and_release(node_list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1 E1.E4.E2.D1");
3091 SysFreeString( str );
3092
3093 /* broken query BSTR */
3094 memcpy(&buff[2], szstar, sizeof(szstar));
3095 /* just a big length */
3096 *(DWORD*)buff = 0xf0f0;
3097 r = IXMLDOMElement_getElementsByTagName(elem, &buff[2], &node_list);
3098 ok( r == S_OK, "ret %08x\n", r );
3099 r = IXMLDOMNodeList_get_length( node_list, &len );
3100 ok( r == S_OK, "ret %08x\n", r );
3101 ok( len == 5, "len %d\n", len );
3102 IXMLDOMNodeList_Release( node_list );
3103
3104 IXMLDOMElement_Release(elem);
3105
3106 IXMLDOMDocument_Release( doc );
3107
3108 free_bstrs();
3109 }
3110
3111 static void test_get_text(void)
3112 {
3113 HRESULT r;
3114 BSTR str;
3115 VARIANT_BOOL b;
3116 IXMLDOMDocument *doc;
3117 IXMLDOMNode *node, *node2, *node3;
3118 IXMLDOMNode *nodeRoot;
3119 IXMLDOMNodeList *node_list;
3120 IXMLDOMNamedNodeMap *node_map;
3121 LONG len;
3122
3123 doc = create_document(&IID_IXMLDOMDocument);
3124
3125 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3126 ok( r == S_OK, "loadXML failed\n");
3127 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3128
3129 str = SysAllocString( szbs );
3130 r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
3131 ok( r == S_OK, "ret %08x\n", r );
3132 SysFreeString(str);
3133
3134 /* Test to get all child node text. */
3135 r = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&nodeRoot);
3136 ok( r == S_OK, "ret %08x\n", r );
3137 if(r == S_OK)
3138 {
3139 r = IXMLDOMNode_get_text( nodeRoot, &str );
3140 ok( r == S_OK, "ret %08x\n", r );
3141 ok( compareIgnoreReturns(str, _bstr_("fn1.txt\n\n fn2.txt \n\nf1\n")), "wrong get_text: %s\n", wine_dbgstr_w(str));
3142 SysFreeString(str);
3143
3144 IXMLDOMNode_Release(nodeRoot);
3145 }
3146
3147 r = IXMLDOMNodeList_get_length( node_list, NULL );
3148 ok( r == E_INVALIDARG, "ret %08x\n", r );
3149
3150 r = IXMLDOMNodeList_get_length( node_list, &len );
3151 ok( r == S_OK, "ret %08x\n", r );
3152 ok( len == 1, "expect 1 got %d\n", len );
3153
3154 r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
3155 ok( r == E_INVALIDARG, "ret %08x\n", r );
3156
3157 r = IXMLDOMNodeList_nextNode( node_list, NULL );
3158 ok( r == E_INVALIDARG, "ret %08x\n", r );
3159
3160 r = IXMLDOMNodeList_get_item( node_list, 0, &node );
3161 ok( r == S_OK, "ret %08x\n", r );
3162 IXMLDOMNodeList_Release( node_list );
3163
3164 /* Invalid output parameter*/
3165 r = IXMLDOMNode_get_text( node, NULL );
3166 ok( r == E_INVALIDARG, "ret %08x\n", r );
3167
3168 r = IXMLDOMNode_get_text( node, &str );
3169 ok( r == S_OK, "ret %08x\n", r );
3170 ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
3171 SysFreeString(str);
3172
3173 r = IXMLDOMNode_get_attributes( node, &node_map );
3174 ok( r == S_OK, "ret %08x\n", r );
3175
3176 str = SysAllocString( szvr );
3177 r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
3178 ok( r == S_OK, "ret %08x\n", r );
3179 SysFreeString(str);
3180
3181 r = IXMLDOMNode_get_text( node2, &str );
3182 ok( r == S_OK, "ret %08x\n", r );
3183 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3184 SysFreeString(str);
3185
3186 r = IXMLDOMNode_get_firstChild( node2, &node3 );
3187 ok( r == S_OK, "ret %08x\n", r );
3188
3189 r = IXMLDOMNode_get_text( node3, &str );
3190 ok( r == S_OK, "ret %08x\n", r );
3191 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3192 SysFreeString(str);
3193
3194
3195 IXMLDOMNode_Release( node3 );
3196 IXMLDOMNode_Release( node2 );
3197 IXMLDOMNamedNodeMap_Release( node_map );
3198 IXMLDOMNode_Release( node );
3199 IXMLDOMDocument_Release( doc );
3200
3201 free_bstrs();
3202 }
3203
3204 static void test_get_childNodes(void)
3205 {
3206 IXMLDOMNodeList *node_list, *node_list2;
3207 IEnumVARIANT *enum1, *enum2, *enum3;
3208 VARIANT_BOOL b;
3209 IXMLDOMDocument *doc;
3210 IXMLDOMNode *node, *node2;
3211 IXMLDOMElement *element;
3212 IUnknown *unk1, *unk2;
3213 HRESULT hr;
3214 VARIANT v;
3215 BSTR str;
3216 LONG len;
3217
3218 doc = create_document(&IID_IXMLDOMDocument);
3219
3220 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3221 EXPECT_HR(hr, S_OK);
3222 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3223
3224 hr = IXMLDOMDocument_get_documentElement( doc, &element );
3225 EXPECT_HR(hr, S_OK);
3226
3227 hr = IXMLDOMElement_get_childNodes( element, &node_list );
3228 EXPECT_HR(hr, S_OK);
3229
3230 hr = IXMLDOMNodeList_get_length( node_list, &len );
3231 EXPECT_HR(hr, S_OK);
3232 ok( len == 4, "len %d\n", len);
3233
3234 /* refcount tests for IEnumVARIANT support */
3235 EXPECT_REF(node_list, 1);
3236 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum1);
3237 EXPECT_HR(hr, S_OK);
3238 EXPECT_REF(node_list, 1);
3239 EXPECT_REF(enum1, 2);
3240
3241 EXPECT_REF(node_list, 1);
3242 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum2);
3243 EXPECT_HR(hr, S_OK);
3244 EXPECT_REF(node_list, 1);
3245 ok(enum2 == enum1, "got %p, %p\n", enum2, enum1);
3246 IEnumVARIANT_Release(enum2);
3247
3248 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3249 EXPECT_HR(hr, S_OK);
3250 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
3251 EXPECT_HR(hr, S_OK);
3252 EXPECT_REF(node_list, 3);
3253 EXPECT_REF(enum1, 2);
3254 ok(unk1 == unk2, "got %p, %p\n", unk1, unk2);
3255 IUnknown_Release(unk1);
3256 IUnknown_Release(unk2);
3257
3258 EXPECT_REF(node_list, 1);
3259 hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum2);
3260 EXPECT_HR(hr, S_OK);
3261 EXPECT_REF(node_list, 2);
3262 EXPECT_REF(enum2, 1);
3263 ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
3264
3265 /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
3266 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3267 EXPECT_HR(hr, S_OK);
3268 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
3269 EXPECT_HR(hr, S_OK);
3270 EXPECT_REF(node_list, 3);
3271 EXPECT_REF(enum2, 2);
3272 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
3273 IUnknown_Release(unk1);
3274 IUnknown_Release(unk2);
3275
3276 hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum3);
3277 EXPECT_HR(hr, S_OK);
3278 ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
3279 IEnumVARIANT_Release(enum3);
3280 IEnumVARIANT_Release(enum2);
3281
3282 /* iteration tests */
3283 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
3284 EXPECT_HR(hr, S_OK);
3285 hr = IXMLDOMNode_get_nodeName(node, &str);
3286 EXPECT_HR(hr, S_OK);
3287 ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3288 SysFreeString(str);
3289 IXMLDOMNode_Release(node);
3290
3291 hr = IXMLDOMNodeList_nextNode(node_list, &node);
3292 EXPECT_HR(hr, S_OK);
3293 hr = IXMLDOMNode_get_nodeName(node, &str);
3294 EXPECT_HR(hr, S_OK);
3295 ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3296 SysFreeString(str);
3297 IXMLDOMNode_Release(node);
3298
3299 V_VT(&v) = VT_EMPTY;
3300 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
3301 EXPECT_HR(hr, S_OK);
3302 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
3303 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
3304 EXPECT_HR(hr, S_OK);
3305 hr = IXMLDOMNode_get_nodeName(node, &str);
3306 EXPECT_HR(hr, S_OK);
3307 ok(!lstrcmpW(str, _bstr_("bs")), "got node name %s\n", wine_dbgstr_w(str));
3308 SysFreeString(str);
3309 IXMLDOMNode_Release(node);
3310 VariantClear(&v);
3311
3312 hr = IXMLDOMNodeList_nextNode(node_list, &node);
3313 EXPECT_HR(hr, S_OK);
3314 hr = IXMLDOMNode_get_nodeName(node, &str);
3315 EXPECT_HR(hr, S_OK);
3316 ok(!lstrcmpW(str, _bstr_("pr")), "got %s\n", wine_dbgstr_w(str));
3317 SysFreeString(str);
3318 IXMLDOMNode_Release(node);
3319
3320 IEnumVARIANT_Release(enum1);
3321
3322 hr = IXMLDOMNodeList_get_item( node_list, 2, &node );
3323 EXPECT_HR(hr, S_OK);
3324
3325 hr = IXMLDOMNode_get_childNodes( node, &node_list2 );
3326 EXPECT_HR(hr, S_OK);
3327
3328 hr = IXMLDOMNodeList_get_length( node_list2, &len );
3329 EXPECT_HR(hr, S_OK);
3330 ok( len == 0, "len %d\n", len);
3331
3332 hr = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
3333 EXPECT_HR(hr, S_FALSE);
3334
3335 IXMLDOMNodeList_Release( node_list2 );
3336 IXMLDOMNode_Release( node );
3337 IXMLDOMNodeList_Release( node_list );
3338 IXMLDOMElement_Release( element );
3339
3340 /* test for children of <?xml ..?> node */
3341 hr = IXMLDOMDocument_get_firstChild(doc, &node);
3342 EXPECT_HR(hr, S_OK);
3343
3344 str = NULL;
3345 hr = IXMLDOMNode_get_nodeName(node, &str);
3346 EXPECT_HR(hr, S_OK);
3347 ok(!lstrcmpW(str, _bstr_("xml")), "got %s\n", wine_dbgstr_w(str));
3348 SysFreeString(str);
3349
3350 /* it returns empty but valid node list */
3351 node_list = (void*)0xdeadbeef;
3352 hr = IXMLDOMNode_get_childNodes(node, &node_list);
3353 EXPECT_HR(hr, S_OK);
3354
3355 len = -1;
3356 hr = IXMLDOMNodeList_get_length(node_list, &len);
3357 EXPECT_HR(hr, S_OK);
3358 ok(len == 0, "got %d\n", len);
3359
3360 IXMLDOMNodeList_Release( node_list );
3361 IXMLDOMNode_Release(node);
3362
3363 IXMLDOMDocument_Release( doc );
3364 free_bstrs();
3365 }
3366
3367 static void test_get_firstChild(void)
3368 {
3369 static const WCHAR xmlW[] = {'x','m','l',0};
3370 IXMLDOMDocument *doc;
3371 IXMLDOMNode *node;
3372 VARIANT_BOOL b;
3373 HRESULT r;
3374 BSTR str;
3375
3376 doc = create_document(&IID_IXMLDOMDocument);
3377
3378 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3379 ok( r == S_OK, "loadXML failed\n");
3380 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3381
3382 r = IXMLDOMDocument_get_firstChild( doc, &node );
3383 ok( r == S_OK, "ret %08x\n", r);
3384
3385 r = IXMLDOMNode_get_nodeName( node, &str );
3386 ok( r == S_OK, "ret %08x\n", r);
3387
3388 ok(!lstrcmpW(str, xmlW), "expected \"xml\" node name, got %s\n", wine_dbgstr_w(str));
3389
3390 SysFreeString(str);
3391 IXMLDOMNode_Release( node );
3392 IXMLDOMDocument_Release( doc );
3393
3394 free_bstrs();
3395 }
3396
3397 static void test_get_lastChild(void)
3398 {
3399 static const WCHAR lcW[] = {'l','c',0};
3400 static const WCHAR foW[] = {'f','o',0};
3401 IXMLDOMDocument *doc;
3402 IXMLDOMNode *node, *child;
3403 VARIANT_BOOL b;
3404 HRESULT r;
3405 BSTR str;
3406
3407 doc = create_document(&IID_IXMLDOMDocument);
3408
3409 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3410 ok( r == S_OK, "loadXML failed\n");
3411 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3412
3413 r = IXMLDOMDocument_get_lastChild( doc, &node );
3414 ok( r == S_OK, "ret %08x\n", r);
3415
3416 r = IXMLDOMNode_get_nodeName( node, &str );
3417 ok( r == S_OK, "ret %08x\n", r);
3418
3419 ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
3420 SysFreeString(str);
3421
3422 r = IXMLDOMNode_get_lastChild( node, &child );
3423 ok( r == S_OK, "ret %08x\n", r);
3424
3425 r = IXMLDOMNode_get_nodeName( child, &str );
3426 ok( r == S_OK, "ret %08x\n", r);
3427
3428 ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
3429 SysFreeString(str);
3430
3431 IXMLDOMNode_Release( child );
3432 IXMLDOMNode_Release( node );
3433 IXMLDOMDocument_Release( doc );
3434
3435 free_bstrs();
3436 }
3437
3438 static void test_removeChild(void)
3439 {
3440 HRESULT r;
3441 VARIANT_BOOL b;
3442 IXMLDOMDocument *doc;
3443 IXMLDOMElement *element, *lc_element;
3444 IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
3445 IXMLDOMNodeList *root_list, *fo_list;
3446
3447 doc = create_document(&IID_IXMLDOMDocument);
3448
3449 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3450 ok( r == S_OK, "loadXML failed\n");
3451 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3452
3453 r = IXMLDOMDocument_get_documentElement( doc, &element );
3454 ok( r == S_OK, "ret %08x\n", r);
3455 todo_wine EXPECT_REF(element, 2);
3456
3457 r = IXMLDOMElement_get_childNodes( element, &root_list );
3458 ok( r == S_OK, "ret %08x\n", r);
3459 EXPECT_REF(root_list, 1);
3460
3461 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3462 ok( r == S_OK, "ret %08x\n", r);
3463 EXPECT_REF(fo_node, 1);
3464
3465 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3466 ok( r == S_OK, "ret %08x\n", r);
3467 EXPECT_REF(fo_list, 1);
3468
3469 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3470 ok( r == S_OK, "ret %08x\n", r);
3471 EXPECT_REF(ba_node, 1);
3472
3473 /* invalid parameter: NULL ptr */
3474 removed_node = (void*)0xdeadbeef;
3475 r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
3476 ok( r == E_INVALIDARG, "ret %08x\n", r );
3477 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3478
3479 /* ba_node is a descendant of element, but not a direct child. */
3480 removed_node = (void*)0xdeadbeef;
3481 EXPECT_REF(ba_node, 1);
3482 EXPECT_CHILDREN(fo_node);
3483 r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
3484 ok( r == E_INVALIDARG, "ret %08x\n", r );
3485 ok( removed_node == NULL, "%p\n", removed_node );
3486 EXPECT_REF(ba_node, 1);
3487 EXPECT_CHILDREN(fo_node);
3488
3489 EXPECT_REF(ba_node, 1);
3490 EXPECT_REF(fo_node, 1);
3491 r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
3492 ok( r == S_OK, "ret %08x\n", r);
3493 ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
3494 EXPECT_REF(fo_node, 2);
3495 EXPECT_REF(ba_node, 1);
3496
3497 /* try removing already removed child */
3498 temp_node = (void*)0xdeadbeef;
3499 r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
3500 ok( r == E_INVALIDARG, "ret %08x\n", r);
3501 ok( temp_node == NULL, "%p\n", temp_node );
3502 IXMLDOMNode_Release( fo_node );
3503
3504 /* the removed node has no parent anymore */
3505 r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
3506 ok( r == S_FALSE, "ret %08x\n", r);
3507 ok( temp_node == NULL, "%p\n", temp_node );
3508
3509 IXMLDOMNode_Release( removed_node );
3510 IXMLDOMNode_Release( ba_node );
3511 IXMLDOMNodeList_Release( fo_list );
3512
3513 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3514 ok( r == S_OK, "ret %08x\n", r);
3515
3516 r = IXMLDOMNode_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
3517 ok( r == S_OK, "ret %08x\n", r);
3518
3519 /* MS quirk: passing wrong interface pointer works, too */
3520 r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
3521 ok( r == S_OK, "ret %08x\n", r);
3522 IXMLDOMElement_Release( lc_element );
3523
3524 temp_node = (void*)0xdeadbeef;
3525 r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
3526 ok( r == S_FALSE, "ret %08x\n", r);
3527 ok( temp_node == NULL, "%p\n", temp_node );
3528
3529 IXMLDOMNode_Release( lc_node );
3530 IXMLDOMNodeList_Release( root_list );
3531 IXMLDOMElement_Release( element );
3532 IXMLDOMDocument_Release( doc );
3533
3534 free_bstrs();
3535 }
3536
3537 static void test_replaceChild(void)
3538 {
3539 HRESULT r;
3540 VARIANT_BOOL b;
3541 IXMLDOMDocument *doc;
3542 IXMLDOMElement *element, *ba_element;
3543 IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
3544 IXMLDOMNodeList *root_list, *fo_list;
3545 IUnknown * unk1, *unk2;
3546 LONG len;
3547
3548 doc = create_document(&IID_IXMLDOMDocument);
3549
3550 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3551 ok( r == S_OK, "loadXML failed\n");
3552 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3553
3554 r = IXMLDOMDocument_get_documentElement( doc, &element );
3555 ok( r == S_OK, "ret %08x\n", r);
3556
3557 r = IXMLDOMElement_get_childNodes( element, &root_list );
3558 ok( r == S_OK, "ret %08x\n", r);
3559
3560 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3561 ok( r == S_OK, "ret %08x\n", r);
3562
3563 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3564 ok( r == S_OK, "ret %08x\n", r);
3565
3566 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3567 ok( r == S_OK, "ret %08x\n", r);
3568
3569 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3570 ok( r == S_OK, "ret %08x\n", r);
3571
3572 IXMLDOMNodeList_Release( fo_list );
3573
3574 /* invalid parameter: NULL ptr for element to remove */
3575 removed_node = (void*)0xdeadbeef;
3576 r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3577 ok( r == E_INVALIDARG, "ret %08x\n", r );
3578 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3579
3580 /* invalid parameter: NULL for replacement element. (Sic!) */
3581 removed_node = (void*)0xdeadbeef;
3582 r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3583 ok( r == E_INVALIDARG, "ret %08x\n", r );
3584 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3585
3586 /* invalid parameter: OldNode is not a child */
3587 removed_node = (void*)0xdeadbeef;
3588 r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3589 ok( r == E_INVALIDARG, "ret %08x\n", r );
3590 ok( removed_node == NULL, "%p\n", removed_node );
3591 IXMLDOMNode_Release( lc_node );
3592
3593 /* invalid parameter: would create loop */
3594 removed_node = (void*)0xdeadbeef;
3595 r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3596 ok( r == E_FAIL, "ret %08x\n", r );
3597 ok( removed_node == NULL, "%p\n", removed_node );
3598
3599 r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3600 ok( r == S_OK, "ret %08x\n", r );
3601
3602 r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3603 ok( r == S_OK, "ret %08x\n", r );
3604
3605 /* ba_node and temp_node refer to the same node, yet they
3606 are different interface pointers */
3607 ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3608 r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3609 ok( r == S_OK, "ret %08x\n", r );
3610 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3611 ok( r == S_OK, "ret %08x\n", r );
3612 todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3613
3614 IUnknown_Release( unk1 );
3615 IUnknown_Release( unk2 );
3616
3617 /* ba_node should have been removed from below fo_node */
3618 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3619 ok( r == S_OK, "ret %08x\n", r );
3620
3621 /* MS quirk: replaceChild also accepts elements instead of nodes */
3622 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3623 ok( r == S_OK, "ret %08x\n", r );
3624 EXPECT_REF(ba_element, 2);
3625
3626 removed_node = NULL;
3627 r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3628 ok( r == S_OK, "ret %08x\n", r );
3629 ok( removed_node != NULL, "got %p\n", removed_node);
3630 EXPECT_REF(ba_element, 3);
3631 IXMLDOMElement_Release( ba_element );
3632
3633 r = IXMLDOMNodeList_get_length( fo_list, &len);
3634 ok( r == S_OK, "ret %08x\n", r );
3635 ok( len == 0, "len %d\n", len);
3636
3637 IXMLDOMNodeList_Release( fo_list );
3638
3639 IXMLDOMNode_Release(ba_node);
3640 IXMLDOMNode_Release(fo_node);
3641 IXMLDOMNode_Release(temp_node);
3642 IXMLDOMNodeList_Release( root_list );
3643 IXMLDOMElement_Release( element );
3644 IXMLDOMDocument_Release( doc );
3645
3646 free_bstrs();
3647 }
3648
3649 static void test_removeNamedItem(void)
3650 {
3651 IXMLDOMDocument *doc;
3652 IXMLDOMElement *element;
3653 IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3654 IXMLDOMNodeList *root_list;
3655 IXMLDOMNamedNodeMap * pr_attrs;
3656 VARIANT_BOOL b;
3657 BSTR str;
3658 LONG len;
3659 HRESULT r;
3660
3661 doc = create_document(&IID_IXMLDOMDocument);
3662
3663 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3664 ok( r == S_OK, "loadXML failed\n");
3665 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3666
3667 r = IXMLDOMDocument_get_documentElement( doc, &element );
3668 ok( r == S_OK, "ret %08x\n", r);
3669
3670 r = IXMLDOMElement_get_childNodes( element, &root_list );
3671 ok( r == S_OK, "ret %08x\n", r);
3672
3673 r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3674 ok( r == S_OK, "ret %08x\n", r);
3675
3676 r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3677 ok( r == S_OK, "ret %08x\n", r);
3678
3679 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3680 ok( r == S_OK, "ret %08x\n", r);
3681 ok( len == 3, "length %d\n", len);
3682
3683 removed_node = (void*)0xdeadbeef;
3684 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3685 ok ( r == E_INVALIDARG, "ret %08x\n", r);
3686 ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3687
3688 removed_node = (void*)0xdeadbeef;
3689 str = SysAllocString(szvr);
3690 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3691 ok ( r == S_OK, "ret %08x\n", r);
3692
3693 removed_node2 = (void*)0xdeadbeef;
3694 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3695 ok ( r == S_FALSE, "ret %08x\n", r);
3696 ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3697
3698 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3699 ok( r == S_OK, "ret %08x\n", r);
3700 ok( len == 2, "length %d\n", len);
3701
3702 r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3703 ok ( r == S_OK, "ret %08x\n", r);
3704 IXMLDOMNode_Release(removed_node);
3705
3706 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3707 ok( r == S_OK, "ret %08x\n", r);
3708 ok( len == 3, "length %d\n", len);
3709
3710 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3711 ok ( r == S_OK, "ret %08x\n", r);
3712
3713 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3714 ok( r == S_OK, "ret %08x\n", r);
3715 ok( len == 2, "length %d\n", len);
3716
3717 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3718 ok ( r == S_FALSE, "ret %08x\n", r);
3719
3720 SysFreeString(str);
3721
3722 IXMLDOMNamedNodeMap_Release( pr_attrs );
3723 IXMLDOMNode_Release( pr_node );
3724 IXMLDOMNodeList_Release( root_list );
3725 IXMLDOMElement_Release( element );
3726 IXMLDOMDocument_Release( doc );
3727
3728 free_bstrs();
3729 }
3730
3731 #define test_IObjectSafety_set(p, r, r2, s, m, e, e2) _test_IObjectSafety_set(__LINE__,p, r, r2, s, m, e, e2)
3732 static void _test_IObjectSafety_set(unsigned line, IObjectSafety *safety, HRESULT result,
3733 HRESULT result2, DWORD set, DWORD mask, DWORD expected,
3734 DWORD expected2)
3735 {
3736 DWORD enabled, supported;
3737 HRESULT hr;
3738
3739 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
3740 if (result == result2)
3741 ok_(__FILE__,line)(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
3742 else
3743 ok_(__FILE__,line)(broken(hr == result) || hr == result2,
3744 "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
3745
3746 supported = enabled = 0xCAFECAFE;
3747 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3748 ok(hr == S_OK, "ret %08x\n", hr );
3749 if (expected == expected2)
3750 ok_(__FILE__,line)(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
3751 else
3752 ok_(__FILE__,line)(broken(enabled == expected) || enabled == expected2,
3753 "Expected %08x, got %08x\n", expected2, enabled);
3754
3755 /* reset the safety options */
3756
3757 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3758 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
3759 0);
3760 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3761
3762 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3763 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3764 ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3765 }
3766
3767 #define test_IObjectSafety_common(s) _test_IObjectSafety_common(__LINE__,s)
3768 static void _test_IObjectSafety_common(unsigned line, IObjectSafety *safety)
3769 {
3770 DWORD enabled = 0, supported = 0;
3771 HRESULT hr;
3772
3773 /* get */
3774 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
3775 ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3776 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
3777 ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3778
3779 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3780 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3781 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3782 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3783 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3784 "got %08x\n", supported);
3785 ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3786
3787 /* set -- individual flags */
3788
3789 test_IObjectSafety_set(safety, S_OK, S_OK,
3790 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3791 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3792
3793 test_IObjectSafety_set(safety, S_OK, S_OK,
3794 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
3795 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
3796
3797 test_IObjectSafety_set(safety, S_OK, S_OK,
3798 INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
3799 0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
3800
3801 /* set INTERFACE_USES_DISPEX */
3802
3803 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3804 INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
3805 0, 0);
3806
3807 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3808 INTERFACE_USES_DISPEX, 0,
3809 0, 0);
3810
3811 test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
3812 0, INTERFACE_USES_DISPEX,
3813 0, 0);
3814
3815 /* set option masking */
3816
3817 test_IObjectSafety_set(safety, S_OK, S_OK,
3818 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3819 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3820 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3821 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3822
3823 test_IObjectSafety_set(safety, S_OK, S_OK,
3824 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3825 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3826 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3827 INTERFACESAFE_FOR_UNTRUSTED_DATA);
3828
3829 test_IObjectSafety_set(safety, S_OK, S_OK,
3830 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3831 INTERFACE_USES_SECURITY_MANAGER,
3832 0,
3833 0);
3834
3835 /* set -- inheriting previous settings */
3836
3837 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3838 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3839 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3840 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3841 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3842 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3843 ok_(__FILE__,line)(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER, "Expected INTERFACESAFE_FOR_UNTRUSTED_CALLER got %08x\n", enabled);
3844 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3845 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3846 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3847 "got %08x\n", supported);
3848
3849 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3850 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3851 INTERFACESAFE_FOR_UNTRUSTED_DATA);
3852 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3853 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3854 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3855 ok_(__FILE__,line)(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
3856 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA),
3857 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) got %08x\n", enabled);
3858 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3859 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3860 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3861 "got %08x\n", supported);
3862 }
3863
3864 static void test_IXMLDOMDocument2(void)
3865 {
3866 static const WCHAR emptyW[] = {0};
3867 IXMLDOMDocument2 *doc2, *dtddoc2;
3868 IXMLDOMDocument *doc;
3869 IXMLDOMParseError* err;
3870 IDispatchEx *dispex;
3871 VARIANT_BOOL b;
3872 VARIANT var;
3873 HRESULT r;
3874 LONG res;
3875
3876 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
3877
3878 doc = create_document(&IID_IXMLDOMDocument);
3879 dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3880
3881 r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3882 ok( r == S_OK, "ret %08x\n", r );
3883 ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3884
3885 ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3886 ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3887 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3888
3889 err = NULL;
3890 ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3891 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3892 ok(err != NULL, "expected a pointer\n");
3893 if (err)
3894 {
3895 res = 0;
3896 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3897 /* XML_E_NOTWF */
3898 ok(res == E_XML_NOTWF, "got %08x\n", res);
3899 IXMLDOMParseError_Release(err);
3900 }
3901
3902 r = IXMLDOMDocument2_loadXML( doc2, _bstr_(complete4A), &b );
3903 ok( r == S_OK, "loadXML failed\n");
3904 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3905
3906 ole_check(IXMLDOMDocument_get_readyState(doc, &res));
3907 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3908
3909 err = NULL;
3910 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3911 ok(err != NULL, "expected a pointer\n");
3912 if (err)
3913 {
3914 res = 0;
3915 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3916 /* XML_E_NODTD */
3917 ok(res == E_XML_NODTD, "got %08x\n", res);
3918 IXMLDOMParseError_Release(err);
3919 }
3920
3921 r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3922 ok( r == S_OK, "ret %08x\n", r );
3923 if(r == S_OK)
3924 {
3925 IDispatchEx_Release(dispex);
3926 }
3927
3928 /* we will check if the variant got cleared */
3929 IXMLDOMDocument2_AddRef(doc2);
3930 EXPECT_REF(doc2, 3); /* doc, doc2, AddRef*/
3931
3932 V_VT(&var) = VT_UNKNOWN;
3933 V_UNKNOWN(&var) = (IUnknown *)doc2;
3934
3935 /* invalid calls */
3936 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3937 expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3938 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3939
3940 /* valid call */
3941 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3942 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3943 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3944 V_VT(&var) = VT_R4;
3945
3946 /* the variant didn't get cleared*/
3947 expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3948
3949 /* setProperty tests */
3950 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3951 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3952 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3953 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3954 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3955 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3956
3957 V_VT(&var) = VT_BSTR;
3958 V_BSTR(&var) = SysAllocString(emptyW);
3959 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3960 ok(r == S_OK, "got 0x%08x\n", r);
3961 VariantClear(&var);
3962
3963 V_VT(&var) = VT_I2;
3964 V_I2(&var) = 0;
3965 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3966 ok(r == E_FAIL, "got 0x%08x\n", r);
3967
3968 /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3969 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3970 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3971 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3972
3973 IXMLDOMDocument2_Release( doc2 );
3974 IXMLDOMDocument_Release( doc );
3975
3976 /* DTD validation */
3977 ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3978 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3979 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3980 err = NULL;
3981 ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3982 ok(err != NULL, "expected pointer\n");
3983 if (err)
3984 {
3985 res = 0;
3986 ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3987 ok(res == 0, "got %08x\n", res);
3988 IXMLDOMParseError_Release(err);
3989 }
3990
3991 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3992 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3993 err = NULL;
3994 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3995 ok(err != NULL, "expected pointer\n");
3996 if (err)
3997 {
3998 res = 0;
3999 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4000 /* XML_ELEMENT_UNDECLARED */
4001 todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
4002 IXMLDOMParseError_Release(err);
4003 }
4004
4005 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
4006 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4007 err = NULL;
4008 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4009 ok(err != NULL, "expected pointer\n");
4010 if (err)
4011 {
4012 res = 0;
4013 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4014 /* XML_ELEMENT_ID_NOT_FOUND */
4015 todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
4016 IXMLDOMParseError_Release(err);
4017 }
4018
4019 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
4020 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4021 err = NULL;
4022 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4023 ok(err != NULL, "expected pointer\n");
4024 if (err)
4025 {
4026 res = 0;
4027 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4028 /* XML_EMPTY_NOT_ALLOWED */
4029 todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
4030 IXMLDOMParseError_Release(err);
4031 }
4032
4033 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
4034 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4035 err = NULL;
4036 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4037 ok(err != NULL, "expected pointer\n");
4038 if (err)
4039 {
4040 res = 0;
4041 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4042 /* XML_ROOT_NAME_MISMATCH */
4043 todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
4044 IXMLDOMParseError_Release(err);
4045 }
4046
4047 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
4048 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4049 err = NULL;
4050 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4051 ok(err != NULL, "expected pointer\n");
4052 if (err)
4053 {
4054 res = 0;
4055 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4056 /* XML_INVALID_CONTENT */
4057 todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
4058 IXMLDOMParseError_Release(err);
4059 }
4060
4061 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
4062 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4063 err = NULL;
4064 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4065 ok(err != NULL, "expected pointer\n");
4066 if (err)
4067 {
4068 res = 0;
4069 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4070 /* XML_ATTRIBUTE_NOT_DEFINED */
4071 todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
4072 IXMLDOMParseError_Release(err);
4073 }
4074
4075 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
4076 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4077 err = NULL;
4078 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4079 ok(err != NULL, "expected pointer\n");
4080 if (err)
4081 {
4082 res = 0;
4083 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4084 /* XML_ATTRIBUTE_FIXED */
4085 todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
4086 IXMLDOMParseError_Release(err);
4087 }
4088
4089 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
4090 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4091 err = NULL;
4092 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4093 ok(err != NULL, "expected pointer\n");
4094 if (err)
4095 {
4096 res = 0;
4097 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4098 /* XML_ATTRIBUTE_VALUE */
4099 todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
4100 IXMLDOMParseError_Release(err);
4101 }
4102
4103 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
4104 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4105 err = NULL;
4106 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4107 ok(err != NULL, "expected pointer\n");
4108 if (err)
4109 {
4110 res = 0;
4111 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4112 /* XML_ILLEGAL_TEXT */
4113 todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
4114 IXMLDOMParseError_Release(err);
4115 }
4116
4117 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
4118 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4119 err = NULL;
4120 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4121 ok(err != NULL, "expected pointer\n");
4122 if (err)
4123 {
4124 res = 0;
4125 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4126 /* XML_REQUIRED_ATTRIBUTE_MISSING */
4127 todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
4128 IXMLDOMParseError_Release(err);
4129 }
4130
4131 IXMLDOMDocument2_Release( dtddoc2 );
4132 free_bstrs();
4133 }
4134
4135 #define helper_ole_check(expr) { \
4136 HRESULT r = expr; \
4137 ok_(__FILE__, line)(r == S_OK, "=> %i: " #expr " returned %08x\n", __LINE__, r); \
4138 }
4139
4140 #define helper_expect_list_and_release(list, expstr) { \
4141 char *str = list_to_string(list); \
4142 ok_(__FILE__, line)(strcmp(str, expstr)==0, "=> %i: Invalid node list: %s, expected %s\n", __LINE__, str, expstr); \
4143 if (list) IXMLDOMNodeList_Release(list); \
4144 }
4145
4146 #define helper_expect_bstr_and_release(bstr, str) { \
4147 ok_(__FILE__, line)(lstrcmpW(bstr, _bstr_(str)) == 0, \
4148 "=> %i: got %s\n", __LINE__, wine_dbgstr_w(bstr)); \
4149 SysFreeString(bstr); \
4150 }
4151
4152 #define check_ws_ignored(doc, str) _check_ws_ignored(__LINE__, doc, str)
4153 static inline void _check_ws_ignored(int line, IXMLDOMDocument2* doc, char const* str)
4154 {
4155 IXMLDOMNode *node1, *node2;
4156 IXMLDOMNodeList *list;
4157 BSTR bstr;
4158
4159 helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4160 helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4161 helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4162 helper_ole_check(IXMLDOMNodeList_reset(list));
4163 helper_expect_list_and_release(list, "E1.E5.E1.E2.D1 E2.E5.E1.E2.D1");
4164
4165 helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4166 helper_expect_list_and_release(list,
4167 "[4]1.E1.E5.E1.E2.D1 T2.E1.E5.E1.E2.D1 E3.E1.E5.E1.E2.D1 "
4168 "E4.E1.E5.E1.E2.D1 E5.E1.E5.E1.E2.D1 E6.E1.E5.E1.E2.D1");
4169 helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4170 if (str)
4171 {
4172 todo_wine helper_expect_bstr_and_release(bstr, str);
4173 }
4174 else
4175 {
4176 todo_wine helper_expect_bstr_and_release(bstr, " This is a description.");
4177 }
4178 IXMLDOMNode_Release(node1);
4179
4180 helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4181 helper_expect_list_and_release(list, "T1.E2.E5.E1.E2.D1 E2.E2.E5.E1.E2.D1 T3.E2.E5.E1.E2.D1 E4.E2.E5.E1.E2.D1 T5.E2.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1 T7.E2.E5.E1.E2.D1");
4182 helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4183 helper_expect_bstr_and_release(bstr, "\n This is a description with preserved whitespace. \n ");
4184 IXMLDOMNode_Release(node2);
4185 }
4186
4187 #define check_ws_preserved(doc, str) _check_ws_preserved(__LINE__, doc, str)
4188 static inline void _check_ws_preserved(int line, IXMLDOMDocument2* doc, char const* str)
4189 {
4190 IXMLDOMNode *node1, *node2;
4191 IXMLDOMNodeList *list;
4192 BSTR bstr;
4193
4194 helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4195 helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4196 helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4197 helper_ole_check(IXMLDOMNodeList_reset(list));
4198 helper_expect_list_and_release(list, "E2.E10.E2.E2.D1 E4.E10.E2.E2.D1");
4199
4200 helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4201 helper_expect_list_and_release(list,
4202 "T1.E2.E10.E2.E2.D1 [4]2.E2.E10.E2.E2.D1 T3.E2.E10.E2.E2.D1 "
4203 "E4.E2.E10.E2.E2.D1 T5.E2.E10.E2.E2.D1 E6.E2.E10.E2.E2.D1 "
4204 "E7.E2.E10.E2.E2.D1 E8.E2.E10.E2.E2.D1 T9.E2.E10.E2.E2.D1");
4205 helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4206 if (str)
4207 {
4208 todo_wine helper_expect_bstr_and_release(bstr, str);
4209 }
4210 else
4211 {
4212 todo_wine helper_expect_bstr_and_release(bstr, "\n This is a description. \n ");
4213 }
4214 IXMLDOMNode_Release(node1);
4215
4216 helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4217 helper_expect_list_and_release(list, "T1.E4.E10.E2.E2.D1 E2.E4.E10.E2.E2.D1 T3.E4.E10.E2.E2.D1 E4.E4.E10.E2.E2.D1 T5.E4.E10.E2.E2.D1 E6.E4.E10.E2.E2.D1 T7.E4.E10.E2.E2.D1");
4218 helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4219 helper_expect_bstr_and_release(bstr, "\n This is a description with preserved whitespace. \n ");
4220 IXMLDOMNode_Release(node2);
4221 }
4222
4223 static void test_preserve_charref(IXMLDOMDocument2 *doc, VARIANT_BOOL preserve)
4224 {
4225 static const WCHAR b1_p[] = {' ','T','e','x','t',' ','A',' ','e','n','d',' ',0};
4226 static const WCHAR b1_i[] = {'T','e','x','t',' ','A',' ','e','n','d',0};
4227 static const WCHAR b2_p[] = {'A','B',' ','C',' ',0};
4228 static const WCHAR b2_i[] = {'A','B',' ','C',0};
4229 IXMLDOMNodeList *list;
4230 IXMLDOMElement *root;
4231 IXMLDOMNode *node;
4232 const WCHAR *text;
4233 VARIANT_BOOL b;
4234 HRESULT hr;
4235 BSTR s;
4236
4237 hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc, preserve);
4238 ok(hr == S_OK, "got 0x%08x\n", hr);
4239
4240 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(charrefsxml), &b);
4241 ok(hr == S_OK, "got 0x%08x\n", hr);
4242
4243 hr = IXMLDOMDocument2_get_documentElement(doc, &root);
4244 ok(hr == S_OK, "got 0x%08x\n", hr);
4245
4246 hr = IXMLDOMElement_get_childNodes(root, &list);
4247 ok(hr == S_OK, "got 0x%08x\n", hr);
4248 IXMLDOMElement_Release(root);
4249
4250 text = preserve == VARIANT_TRUE ? b1_p : b1_i;
4251 hr = IXMLDOMNodeList_get_item(list, 0, &node);
4252 ok(hr == S_OK, "got 0x%08x\n", hr);
4253 hr = IXMLDOMNode_get_text(node, &s);
4254 ok(hr == S_OK, "got 0x%08x\n", hr);
4255 ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4256 SysFreeString(s);
4257 IXMLDOMNode_Release(node);
4258
4259 text = preserve == VARIANT_TRUE ? b2_p : b2_i;
4260 hr = IXMLDOMNodeList_get_item(list, 1, &node);
4261 ok(hr == S_OK, "got 0x%08x\n", hr);
4262 hr = IXMLDOMNode_get_text(node, &s);
4263 ok(hr == S_OK, "got 0x%08x\n", hr);
4264 ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4265 SysFreeString(s);
4266 IXMLDOMNode_Release(node);
4267
4268 IXMLDOMNodeList_Release(list);
4269 }
4270
4271 static void test_whitespace(void)
4272 {
4273 IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
4274 IXMLDOMNodeList *list;
4275 IXMLDOMElement *root;
4276 VARIANT_BOOL b;
4277 HRESULT hr;
4278 LONG len;
4279
4280 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
4281 doc1 = create_document(&IID_IXMLDOMDocument2);
4282 doc2 = create_document(&IID_IXMLDOMDocument2);
4283
4284 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
4285 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4286 ok(b == VARIANT_FALSE, "expected false\n");
4287 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4288 ok(b == VARIANT_TRUE, "expected true\n");
4289
4290 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4291 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4292 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4293 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4294
4295 /* switch to XPath */
4296 ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4297 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4298
4299 check_ws_ignored(doc1, NULL);
4300 check_ws_preserved(doc2, NULL);
4301
4302 /* new instances copy the property */
4303 ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
4304 ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
4305
4306 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4307 ok(b == VARIANT_FALSE, "expected false\n");
4308 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4309 ok(b == VARIANT_TRUE, "expected true\n");
4310
4311 check_ws_ignored(doc3, NULL);
4312 check_ws_preserved(doc4, NULL);
4313
4314 /* setting after loading xml affects trimming of leading/trailing ws only */
4315 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
4316 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
4317
4318 /* the trailing "\n " isn't there, because it was ws-only node */
4319 check_ws_ignored(doc1, " This is a description. ");
4320 check_ws_preserved(doc2, " This is a description.");
4321
4322 /* it takes effect on reload */
4323 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4324 ok(b == VARIANT_TRUE, "expected true\n");
4325 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4326 ok(b == VARIANT_FALSE, "expected false\n");
4327
4328 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4329 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4330 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4331 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4332
4333 check_ws_preserved(doc1, NULL);
4334 check_ws_ignored(doc2, NULL);
4335
4336 /* other instances follow suit */
4337 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4338 ok(b == VARIANT_TRUE, "expected true\n");
4339 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4340 ok(b == VARIANT_FALSE, "expected false\n");
4341
4342 check_ws_preserved(doc3, NULL);
4343 check_ws_ignored(doc4, NULL);
4344
4345 IXMLDOMDocument2_Release(doc2);
4346 IXMLDOMDocument2_Release(doc3);
4347 IXMLDOMDocument2_Release(doc4);
4348
4349 /* text with char references */
4350 test_preserve_charref(doc1, VARIANT_TRUE);
4351 test_preserve_charref(doc1, VARIANT_FALSE);
4352
4353 /* formatting whitespaces */
4354 hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_FALSE);
4355 ok(hr == S_OK, "got 0x%08x\n", hr);
4356
4357 hr = IXMLDOMDocument2_loadXML(doc1, _bstr_(complete7), &b);
4358 ok(hr == S_OK, "got 0x%08x\n", hr);
4359 ok(b == VARIANT_TRUE, "for %x\n", b);
4360
4361 hr = IXMLDOMDocument2_get_documentElement(doc1, &root);
4362 ok(hr == S_OK, "got 0x%08x\n", hr);
4363 hr = IXMLDOMElement_get_childNodes(root, &list);
4364 ok(hr == S_OK, "got 0x%08x\n", hr);
4365 len = 0;
4366 hr = IXMLDOMNodeList_get_length(list, &len);
4367 ok(hr == S_OK, "got 0x%08x\n", hr);
4368 ok(len == 3, "got %d\n", len);
4369 IXMLDOMNodeList_Release(list);
4370 IXMLDOMElement_Release(root);
4371
4372 IXMLDOMDocument2_Release(doc1);
4373
4374 free_bstrs();
4375 }
4376
4377 typedef struct {
4378 const GUID *clsid;
4379 const char *name;
4380 const char *ns;
4381 HRESULT hr;
4382 } selection_ns_t;
4383
4384 /* supposed to be tested with szExampleXML */
4385 static const selection_ns_t selection_ns_data[] = {
4386 { &CLSID_DOMDocument, "CLSID_DOMDocument", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4387 { &CLSID_DOMDocument, "CLSID_DOMDocument", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4388 { &CLSID_DOMDocument, "CLSID_DOMDocument", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4389 { &CLSID_DOMDocument, "CLSID_DOMDocument", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4390
4391 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4392 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4393 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4394 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4395
4396 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4397 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4398 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4399 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4400
4401 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4402 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4403 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4404 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4405
4406 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4407 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4408 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4409 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4410
4411 { NULL }
4412 };
4413
4414 typedef struct {
4415 const char *query;
4416 const char *list;
4417 } xpath_test_t;
4418
4419 static const xpath_test_t xpath_test[] = {
4420 { "*/a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4421 { "*/b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4422 { "*/c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4423 { "*/d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4424 { "//a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4425 { "//b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4426 { "//c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4427 { "//d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4428 { "//c[@type]", "E3.E2.E2.D1" },
4429 { "//c[@type]/ancestor::node()[1]", "E2.E2.D1" },
4430 { "//c[@type]/ancestor-or-self::node()[1]", "E3.E2.E2.D1" },
4431 { "//c[@type]/attribute::node()[1]", "A'type'.E3.E2.E2.D1" },
4432 { "//c[@type]/child::node()[1]", "T1.E3.E2.E2.D1" },
4433 { "//c[@type]/descendant::node()[1]", "T1.E3.E2.E2.D1" },
4434 { "//c[@type]/descendant-or-self::node()[1]", "E3.E2.E2.D1" },
4435 { "//c[@type]/following::node()[1]", "E4.E2.E2.D1" },
4436 { "//c[@type]/following-sibling::node()[1]", "E4.E2.E2.D1" },
4437 { "//c[@type]/parent::node()[1]", "E2.E2.D1" },
4438 { "//c[@type]/preceding::node()[1]", "T1.E2.E2.E2.D1" },
4439 { "//c[@type]/self::node()[1]", "E3.E2.E2.D1" },
4440 { "child::*", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4441 { "child::node()", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4442 { "child::text()", "" },
4443 { "child::*/..", "E2.D1" },
4444 { "child::*//@*/..", "E2.E5.E1.E2.D1 E2.E2.D1 E3.E2.E2.D1" },
4445 { "self::node()", "E2.D1" },
4446 { "ancestor::node()", "D1" },
4447 { "elem[c][last()]/a", "E1.E2.E2.D1"},
4448 { "ancestor-or-self::node()[1]", "E2.D1" },
4449 { "((//a)[1])[last()]", "E1.E1.E2.D1" },
4450 { "//elem[@*]", "E2.E2.D1" },
4451 { NULL }
4452 };
4453
4454 static void test_XPath(void)
4455 {
4456 const selection_ns_t *ptr = selection_ns_data;
4457 const xpath_test_t *xptest = xpath_test;
4458 VARIANT var;
4459 VARIANT_BOOL b;
4460 IXMLDOMDocument2 *doc;
4461 IXMLDOMDocument *doc2;
4462 IXMLDOMNode *rootNode;
4463 IXMLDOMNode *elem1Node;
4464 IXMLDOMNode *node;
4465 IXMLDOMNodeList *list;
4466 IXMLDOMElement *elem;
4467 IXMLDOMAttribute *attr;
4468 DOMNodeType type;
4469 HRESULT hr;
4470 LONG len;
4471 BSTR str;
4472
4473 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
4474 doc = create_document(&IID_IXMLDOMDocument2);
4475
4476 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4477 EXPECT_HR(hr, S_OK);
4478 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4479
4480 /* switch to XPath */
4481 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4482
4483 /* some simple queries*/
4484 EXPECT_REF(doc, 1);
4485 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4486 EXPECT_HR(hr, S_OK);
4487 EXPECT_REF(doc, 1);
4488 EXPECT_LIST_LEN(list, 1);
4489
4490 EXPECT_REF(list, 1);
4491 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4492 EXPECT_HR(hr, S_OK);
4493 EXPECT_REF(list, 1);
4494 EXPECT_REF(rootNode, 1);
4495
4496 hr = IXMLDOMNodeList_reset(list);
4497 EXPECT_HR(hr, S_OK);
4498 expect_list_and_release(list, "E2.D1");
4499
4500 /* peform xpath tests */
4501 for ( ; xptest->query ; xptest++ )
4502 {
4503 char *str;
4504
4505 hr = IXMLDOMNode_selectNodes(rootNode, _bstr_(xptest->query), &list);
4506 ok(hr == S_OK, "query evaluation failed for query=%s\n", xptest->query);
4507
4508 if (hr != S_OK)
4509 continue;
4510
4511 str = list_to_string(list);
4512
4513 ok(!strcmp(str, xptest->list), "query=%s, invalid node list: \"%s\", expected \"%s\"\n",
4514 xptest->query, str, xptest->list);
4515
4516 if (list)
4517 IXMLDOMNodeList_Release(list);
4518 }
4519
4520 if (0)
4521 {
4522 /* namespace:: axis test is disabled until namespace definitions
4523 are supported as attribute nodes, currently it's another node type */
4524 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("/root/namespace::*"), &list);
4525 EXPECT_HR(hr, S_OK);
4526 len = -1;
4527 hr = IXMLDOMNodeList_get_length(list, &len);
4528 EXPECT_HR(hr, S_OK);
4529 ok(len == 2, "got %d\n", len);
4530
4531 hr = IXMLDOMNodeList_nextNode(list, &node);
4532 EXPECT_HR(hr, S_OK);
4533 type = NODE_INVALID;
4534 hr = IXMLDOMNode_get_nodeType(node, &type);
4535 EXPECT_HR(hr, S_OK);
4536 ok(type == NODE_ATTRIBUTE, "got %d\n", type);
4537 IXMLDOMNode_Release(node);
4538
4539 IXMLDOMNodeList_Release(list);
4540 }
4541
4542 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//c"), &list));
4543 expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
4544
4545 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//c[@type]"), &list));
4546 expect_list_and_release(list, "E3.E2.E2.D1");
4547
4548 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
4549 /* using get_item for query results advances the position */
4550 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
4551 expect_node(node, "E2.E2.D1");
4552 IXMLDOMNode_Release(node);
4553 ole_check(IXMLDOMNodeList_nextNode(list, &node));
4554 expect_node(node, "E4.E2.D1");
4555 IXMLDOMNode_Release(node);
4556 ole_check(IXMLDOMNodeList_reset(list));
4557 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
4558
4559 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
4560 expect_list_and_release(list, "E2.D1");
4561
4562 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
4563 ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
4564 ole_check(IXMLDOMNodeList_reset(list));
4565 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
4566
4567 /* select an attribute */
4568 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
4569 expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
4570
4571 /* would evaluate to a number */
4572 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
4573 /* would evaluate to a boolean */
4574 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
4575 /* would evaluate to a string */
4576 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
4577
4578 /* no results */
4579 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
4580 expect_list_and_release(list, "");
4581 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("elem//c"), &list));
4582 expect_list_and_release(list, "");
4583 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem[4]"), &list));
4584 expect_list_and_release(list, "");
4585 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
4586 expect_list_and_release(list, "");
4587
4588 /* foo undeclared in document node */
4589 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4590 /* undeclared in <root> node */
4591 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
4592 /* undeclared in <elem> node */
4593 ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
4594 /* but this trick can be used */
4595 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
4596 expect_list_and_release(list, "E3.E4.E2.D1");
4597
4598 /* it has to be declared in SelectionNamespaces */
4599 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4600 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
4601
4602 /* now the namespace can be used */
4603 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list));
4604 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4605 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
4606 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4607 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
4608 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4609 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
4610 expect_list_and_release(list, "E6.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1");
4611
4612 /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
4613 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4614 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
4615
4616 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4617
4618 VariantInit(&var);
4619 ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
4620 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
4621 if (V_VT(&var) == VT_BSTR)
4622 expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
4623
4624 /* extra attributes - same thing*/
4625 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4626 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
4627 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4628
4629 IXMLDOMNode_Release(rootNode);
4630 IXMLDOMNode_Release(elem1Node);
4631
4632 /* alter document with already built list */
4633 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4634 EXPECT_HR(hr, S_OK);
4635 EXPECT_LIST_LEN(list, 1);
4636
4637 hr = IXMLDOMDocument2_get_lastChild(doc, &rootNode);
4638 EXPECT_HR(hr, S_OK);
4639 EXPECT_REF(rootNode, 1);
4640 EXPECT_REF(doc, 1);
4641
4642 hr = IXMLDOMDocument2_removeChild(doc, rootNode, NULL);
4643 EXPECT_HR(hr, S_OK);
4644 IXMLDOMNode_Release(rootNode);
4645
4646 EXPECT_LIST_LEN(list, 1);
4647
4648 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4649 EXPECT_HR(hr, S_OK);
4650 EXPECT_REF(rootNode, 1);
4651
4652 IXMLDOMNodeList_Release(list);
4653
4654 hr = IXMLDOMNode_get_nodeName(rootNode, &str);
4655 EXPECT_HR(hr, S_OK);
4656 ok(!lstrcmpW(str, _bstr_("root")), "got %s\n", wine_dbgstr_w(str));
4657 SysFreeString(str);
4658 IXMLDOMNode_Release(rootNode);
4659
4660 /* alter node from list and get it another time */
4661 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4662 EXPECT_HR(hr, S_OK);
4663 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4664
4665 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4666 EXPECT_HR(hr, S_OK);
4667 EXPECT_LIST_LEN(list, 1);
4668
4669 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4670 EXPECT_HR(hr, S_OK);
4671
4672 hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4673 EXPECT_HR(hr, S_OK);
4674
4675 V_VT(&var) = VT_I2;
4676 V_I2(&var) = 1;
4677 hr = IXMLDOMElement_setAttribute(elem, _bstr_("attrtest"), var);
4678 EXPECT_HR(hr, S_OK);
4679 IXMLDOMElement_Release(elem);
4680 IXMLDOMNode_Release(rootNode);
4681
4682 /* now check attribute to be present */
4683 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4684 EXPECT_HR(hr, S_OK);
4685
4686 hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4687 EXPECT_HR(hr, S_OK);
4688
4689 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4690 EXPECT_HR(hr, S_OK);
4691 IXMLDOMAttribute_Release(attr);
4692
4693 IXMLDOMElement_Release(elem);
4694 IXMLDOMNode_Release(rootNode);
4695
4696 /* and now check for attribute in original document */
4697 hr = IXMLDOMDocument2_get_documentElement(doc, &elem);
4698 EXPECT_HR(hr, S_OK);
4699
4700 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4701 EXPECT_HR(hr, S_OK);
4702 IXMLDOMAttribute_Release(attr);
4703
4704 IXMLDOMElement_Release(elem);
4705
4706 /* attach node from list to another document */
4707 doc2 = create_document(&IID_IXMLDOMDocument);
4708
4709 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4710 EXPECT_HR(hr, S_OK);
4711 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4712
4713 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4714 EXPECT_HR(hr, S_OK);
4715 EXPECT_LIST_LEN(list, 1);
4716
4717 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4718 EXPECT_HR(hr, S_OK);
4719 EXPECT_REF(rootNode, 1);
4720
4721 hr = IXMLDOMDocument_appendChild(doc2, rootNode, NULL);
4722 EXPECT_HR(hr, S_OK);
4723 EXPECT_REF(rootNode, 1);
4724 EXPECT_REF(doc2, 1);
4725 EXPECT_REF(list, 1);
4726
4727 EXPECT_LIST_LEN(list, 1);
4728
4729 IXMLDOMNode_Release(rootNode);
4730 IXMLDOMNodeList_Release(list);
4731 IXMLDOMDocument_Release(doc2);
4732 IXMLDOMDocument2_Release(doc);
4733
4734 while (ptr->clsid)
4735 {
4736 if (is_clsid_supported(ptr->clsid, &IID_IXMLDOMDocument2))
4737 {
4738 hr = CoCreateInstance(ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
4739 ok(hr == S_OK, "got 0x%08x\n", hr);
4740 }
4741 else
4742 {
4743 ptr++;
4744 continue;
4745 }
4746
4747 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4748 EXPECT_HR(hr, S_OK);
4749 ok(b == VARIANT_TRUE, "failed to load, %s\n", ptr->name);
4750
4751 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
4752 EXPECT_HR(hr, S_OK);
4753
4754 V_VT(&var) = VT_BSTR;
4755 V_BSTR(&var) = _bstr_(ptr->ns);
4756
4757 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), var);
4758 ok(hr == ptr->hr, "got 0x%08x, for %s, %s\n", hr, ptr->name, ptr->ns);
4759
4760 V_VT(&var) = VT_EMPTY;
4761 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
4762 EXPECT_HR(hr, S_OK);
4763 ok(V_VT(&var) == VT_BSTR, "got wrong property type %d\n", V_VT(&var));
4764 ok(!lstrcmpW(V_BSTR(&var), _bstr_(ptr->ns)), "got wrong value %s\n", wine_dbgstr_w(V_BSTR(&var)));
4765 VariantClear(&var);
4766
4767 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list);
4768 EXPECT_HR(hr, S_OK);
4769 if (hr == S_OK)
4770 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4771
4772 IXMLDOMDocument2_Release(doc);
4773 ptr++;
4774 free_bstrs();
4775 }
4776
4777 free_bstrs();
4778 }
4779
4780 static void test_cloneNode(void )
4781 {
4782 IXMLDOMDocument *doc, *doc2;
4783 VARIANT_BOOL b;
4784 IXMLDOMNodeList *pList;
4785 IXMLDOMNamedNodeMap *mapAttr;
4786 LONG length, length1;
4787 LONG attr_cnt, attr_cnt1;
4788 IXMLDOMNode *node, *attr;
4789 IXMLDOMNode *node_clone;
4790 IXMLDOMNode *node_first;
4791 HRESULT hr;
4792
4793 doc = create_document(&IID_IXMLDOMDocument);
4794
4795 ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b));
4796 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4797
4798 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc/pr"), &node);
4799 ok( hr == S_OK, "ret %08x\n", hr );
4800 ok( node != NULL, "node %p\n", node );
4801
4802 /* Check invalid parameter */
4803 hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
4804 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
4805
4806 /* All Children */
4807 hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
4808 ok( hr == S_OK, "ret %08x\n", hr );
4809 ok( node_clone != NULL, "node %p\n", node );
4810
4811 hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4812 ok( hr == S_OK, "ret %08x\n", hr );
4813 hr = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4814 ok( hr == S_OK, "ret %08x\n", hr );
4815 IXMLDOMDocument_Release(doc2);
4816 IXMLDOMNode_Release(node_first);
4817
4818 hr = IXMLDOMNode_get_childNodes(node, &pList);
4819 ok( hr == S_OK, "ret %08x\n", hr );
4820 length = 0;
4821 hr = IXMLDOMNodeList_get_length(pList, &length);
4822 ok( hr == S_OK, "ret %08x\n", hr );
4823 ok(length == 1, "got %d\n", length);
4824 IXMLDOMNodeList_Release(pList);
4825
4826 hr = IXMLDOMNode_get_attributes(node, &mapAttr);
4827 ok( hr == S_OK, "ret %08x\n", hr );
4828 attr_cnt = 0;
4829 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt);
4830 ok( hr == S_OK, "ret %08x\n", hr );
4831 ok(attr_cnt == 3, "got %d\n", attr_cnt);
4832 IXMLDOMNamedNodeMap_Release(mapAttr);
4833
4834 hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4835 ok( hr == S_OK, "ret %08x\n", hr );
4836 length1 = 0;
4837 hr = IXMLDOMNodeList_get_length(pList, &length1);
4838 ok(length1 == 1, "got %d\n", length1);
4839 ok( hr == S_OK, "ret %08x\n", hr );
4840 IXMLDOMNodeList_Release(pList);
4841
4842 hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4843 ok( hr == S_OK, "ret %08x\n", hr );
4844 attr_cnt1 = 0;
4845 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4846 ok( hr == S_OK, "ret %08x\n", hr );
4847 ok(attr_cnt1 == 3, "got %d\n", attr_cnt1);
4848 /* now really get some attributes from cloned element */
4849 attr = NULL;
4850 hr = IXMLDOMNamedNodeMap_getNamedItem(mapAttr, _bstr_("id"), &attr);
4851 ok(hr == S_OK, "ret %08x\n", hr);
4852 IXMLDOMNode_Release(attr);
4853 IXMLDOMNamedNodeMap_Release(mapAttr);
4854
4855 ok(length == length1, "wrong Child count (%d, %d)\n", length, length1);
4856 ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4857 IXMLDOMNode_Release(node_clone);
4858
4859 /* No Children */
4860 hr = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4861 ok( hr == S_OK, "ret %08x\n", hr );
4862 ok( node_clone != NULL, "node %p\n", node );
4863
4864 hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4865 ok(hr == S_FALSE, "ret %08x\n", hr );
4866
4867 hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4868 ok(hr == S_OK, "ret %08x\n", hr );
4869 hr = IXMLDOMNodeList_get_length(pList, &length1);
4870 ok(hr == S_OK, "ret %08x\n", hr );
4871 ok( length1 == 0, "Length should be 0 (%d)\n", length1);
4872 IXMLDOMNodeList_Release(pList);
4873
4874 hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4875 ok(hr == S_OK, "ret %08x\n", hr );
4876 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4877 ok(hr == S_OK, "ret %08x\n", hr );
4878 ok(attr_cnt1 == 3, "Attribute count should be 3 (%d)\n", attr_cnt1);
4879 IXMLDOMNamedNodeMap_Release(mapAttr);
4880
4881 ok(length != length1, "wrong Child count (%d, %d)\n", length, length1);
4882 ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4883 IXMLDOMNode_Release(node_clone);
4884
4885 IXMLDOMNode_Release(node);
4886 IXMLDOMDocument_Release(doc);
4887 free_bstrs();
4888 }
4889
4890 static void test_xmlTypes(void)
4891 {
4892 IXMLDOMDocument *doc;
4893 IXMLDOMElement *pRoot;
4894 HRESULT hr;
4895 IXMLDOMComment *pComment;
4896 IXMLDOMElement *pElement;
4897 IXMLDOMAttribute *pAttribute;
4898 IXMLDOMNamedNodeMap *pAttribs;
4899 IXMLDOMCDATASection *pCDataSec;
4900 IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4901 IXMLDOMDocumentFragment *pDocFrag = NULL;
4902 IXMLDOMEntityReference *pEntityRef = NULL;
4903 BSTR str;
4904 IXMLDOMNode *pNextChild;
4905 VARIANT v;
4906 LONG len = 0;
4907
4908 doc = create_document(&IID_IXMLDOMDocument);
4909
4910 hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4911 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4912
4913 pNextChild = (void*)0xdeadbeef;
4914 hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4915 ok(hr == S_FALSE, "ret %08x\n", hr );
4916 ok(pNextChild == NULL, "pDocChild not NULL\n");
4917
4918 /* test previous Sibling */
4919 hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4920 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4921
4922 pNextChild = (void*)0xdeadbeef;
4923 hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4924 ok(hr == S_FALSE, "ret %08x\n", hr );
4925 ok(pNextChild == NULL, "pNextChild not NULL\n");
4926
4927 /* test get_dataType */
4928 V_VT(&v) = VT_EMPTY;
4929 hr = IXMLDOMDocument_get_dataType(doc, &v);
4930 ok(hr == S_FALSE, "ret %08x\n", hr );
4931 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4932 VariantClear(&v);
4933
4934 /* test implementation */
4935 hr = IXMLDOMDocument_get_implementation(doc, NULL);
4936 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4937
4938 hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4939 ok(hr == S_OK, "ret %08x\n", hr );
4940 if(hr == S_OK)
4941 {
4942 VARIANT_BOOL hasFeature = VARIANT_TRUE;
4943 BSTR sEmpty = SysAllocStringLen(NULL, 0);
4944
4945 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4946 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4947
4948 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4949 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4950
4951 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4952 ok(hr == S_OK, "ret %08x\n", hr );
4953 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4954
4955 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4956 ok(hr == S_OK, "ret %08x\n", hr );
4957 ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4958
4959 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4960 ok(hr == S_OK, "ret %08x\n", hr );
4961 ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4962
4963 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4964 ok(hr == S_OK, "ret %08x\n", hr );
4965 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4966
4967 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4968 ok(hr == S_OK, "ret %08x\n", hr );
4969 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4970
4971 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4972 ok(hr == S_OK, "ret %08x\n", hr );
4973 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4974
4975 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4976 ok(hr == S_OK, "ret %08x\n", hr );
4977 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4978
4979 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4980 ok(hr == S_OK, "ret %08x\n", hr );
4981 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4982
4983 SysFreeString(sEmpty);
4984 IXMLDOMImplementation_Release(pIXMLDOMImplementation);
4985 }
4986
4987 pRoot = (IXMLDOMElement*)0x1;
4988 hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
4989 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4990 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4991
4992 pRoot = (IXMLDOMElement*)0x1;
4993 hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
4994 ok(hr == E_FAIL, "ret %08x\n", hr );
4995 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4996
4997 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
4998 ok(hr == S_OK, "ret %08x\n", hr );
4999 if(hr == S_OK)
5000 {
5001 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5002 ok(hr == S_OK, "ret %08x\n", hr );
5003 if(hr == S_OK)
5004 {
5005 /* Comment */
5006 str = SysAllocString(szComment);
5007 hr = IXMLDOMDocument_createComment(doc, str, &pComment);
5008 SysFreeString(str);
5009 ok(hr == S_OK, "ret %08x\n", hr );
5010 if(hr == S_OK)
5011 {
5012 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
5013 ok(hr == S_OK, "ret %08x\n", hr );
5014
5015 hr = IXMLDOMComment_get_nodeName(pComment, &str);
5016 ok(hr == S_OK, "ret %08x\n", hr );
5017 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
5018 SysFreeString(str);
5019
5020 hr = IXMLDOMComment_get_xml(pComment, &str);
5021 ok(hr == S_OK, "ret %08x\n", hr );
5022 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
5023 SysFreeString(str);
5024
5025 /* put data Tests */
5026 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
5027 ok(hr == S_OK, "ret %08x\n", hr );
5028
5029 /* get data Tests */
5030 hr = IXMLDOMComment_get_data(pComment, &str);
5031 ok(hr == S_OK, "ret %08x\n", hr );
5032 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
5033 SysFreeString(str);
5034
5035 /* Confirm XML text is good */
5036 hr = IXMLDOMComment_get_xml(pComment, &str);
5037 ok(hr == S_OK, "ret %08x\n", hr );
5038 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
5039 SysFreeString(str);
5040
5041 /* Confirm we get the put_data Text back */
5042 hr = IXMLDOMComment_get_text(pComment, &str);
5043 ok(hr == S_OK, "ret %08x\n", hr );
5044 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
5045 SysFreeString(str);
5046
5047 /* test length property */
5048 hr = IXMLDOMComment_get_length(pComment, &len);
5049 ok(hr == S_OK, "ret %08x\n", hr );
5050 ok(len == 21, "expected 21 got %d\n", len);
5051
5052 /* test substringData */
5053 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
5054 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5055
5056 /* test substringData - Invalid offset */
5057 str = (BSTR)&szElement;
5058 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
5059 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5060 ok( str == NULL, "incorrect string\n");
5061
5062 /* test substringData - Invalid offset */
5063 str = (BSTR)&szElement;
5064 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
5065 ok(hr == S_FALSE, "ret %08x\n", hr );
5066 ok( str == NULL, "incorrect string\n");
5067
5068 /* test substringData - Invalid size */
5069 str = (BSTR)&szElement;
5070 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
5071 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5072 ok( str == NULL, "incorrect string\n");
5073
5074 /* test substringData - Invalid size */
5075 str = (BSTR)&szElement;
5076 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
5077 ok(hr == S_FALSE, "ret %08x\n", hr );
5078 ok( str == NULL, "incorrect string\n");
5079
5080 /* test substringData - Start of string */
5081 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
5082 ok(hr == S_OK, "ret %08x\n", hr );
5083 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5084 SysFreeString(str);
5085
5086 /* test substringData - Middle of string */
5087 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
5088 ok(hr == S_OK, "ret %08x\n", hr );
5089 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5090 SysFreeString(str);
5091
5092 /* test substringData - End of string */
5093 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
5094 ok(hr == S_OK, "ret %08x\n", hr );
5095 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5096 SysFreeString(str);
5097
5098 /* test appendData */
5099 hr = IXMLDOMComment_appendData(pComment, NULL);
5100 ok(hr == S_OK, "ret %08x\n", hr );
5101
5102 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
5103 ok(hr == S_OK, "ret %08x\n", hr );
5104
5105 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
5106 ok(hr == S_OK, "ret %08x\n", hr );
5107
5108 hr = IXMLDOMComment_get_text(pComment, &str);
5109 ok(hr == S_OK, "ret %08x\n", hr );
5110 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5111 SysFreeString(str);
5112
5113 /* test insertData */
5114 str = SysAllocStringLen(NULL, 0);
5115 hr = IXMLDOMComment_insertData(pComment, -1, str);
5116 ok(hr == S_OK, "ret %08x\n", hr );
5117
5118 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
5119 ok(hr == S_OK, "ret %08x\n", hr );
5120
5121 hr = IXMLDOMComment_insertData(pComment, 1000, str);
5122 ok(hr == S_OK, "ret %08x\n", hr );
5123
5124 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
5125 ok(hr == S_OK, "ret %08x\n", hr );
5126
5127 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
5128 ok(hr == S_OK, "ret %08x\n", hr );
5129
5130 hr = IXMLDOMComment_insertData(pComment, 0, str);
5131 ok(hr == S_OK, "ret %08x\n", hr );
5132 SysFreeString(str);
5133
5134 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
5135 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5136
5137 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
5138 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5139
5140 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
5141 ok(hr == S_OK, "ret %08x\n", hr );
5142
5143 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
5144 ok(hr == S_OK, "ret %08x\n", hr );
5145
5146 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
5147 ok(hr == S_OK, "ret %08x\n", hr );
5148
5149 hr = IXMLDOMComment_get_text(pComment, &str);
5150 ok(hr == S_OK, "ret %08x\n", hr );
5151 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5152 SysFreeString(str);
5153
5154 /* delete data */
5155 /* invalid arguments */
5156 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
5157 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5158
5159 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
5160 ok(hr == S_OK, "ret %08x\n", hr );
5161
5162 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
5163 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5164
5165 hr = IXMLDOMComment_get_length(pComment, &len);
5166 ok(hr == S_OK, "ret %08x\n", hr );
5167 ok(len == 43, "expected 43 got %d\n", len);
5168
5169 hr = IXMLDOMComment_deleteData(pComment, len, 1);
5170 ok(hr == S_OK, "ret %08x\n", hr );
5171
5172 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
5173 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5174
5175 /* delete from start */
5176 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
5177 ok(hr == S_OK, "ret %08x\n", hr );
5178
5179 hr = IXMLDOMComment_get_length(pComment, &len);
5180 ok(hr == S_OK, "ret %08x\n", hr );
5181 ok(len == 38, "expected 38 got %d\n", len);
5182
5183 hr = IXMLDOMComment_get_text(pComment, &str);
5184 ok(hr == S_OK, "ret %08x\n", hr );
5185 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5186 SysFreeString(str);
5187
5188 /* delete from end */
5189 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
5190 ok(hr == S_OK, "ret %08x\n", hr );
5191
5192 hr = IXMLDOMComment_get_length(pComment, &len);
5193 ok(hr == S_OK, "ret %08x\n", hr );
5194 ok(len == 35, "expected 35 got %d\n", len);
5195
5196 hr = IXMLDOMComment_get_text(pComment, &str);
5197 ok(hr == S_OK, "ret %08x\n", hr );
5198 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5199 SysFreeString(str);
5200
5201 /* delete from inside */
5202 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
5203 ok(hr == S_OK, "ret %08x\n", hr );
5204
5205 hr = IXMLDOMComment_get_length(pComment, &len);
5206 ok(hr == S_OK, "ret %08x\n", hr );
5207 ok(len == 2, "expected 2 got %d\n", len);
5208
5209 hr = IXMLDOMComment_get_text(pComment, &str);
5210 ok(hr == S_OK, "ret %08x\n", hr );
5211 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5212 SysFreeString(str);
5213
5214 /* delete whole data ... */
5215 hr = IXMLDOMComment_get_length(pComment, &len);
5216 ok(hr == S_OK, "ret %08x\n", hr );
5217
5218 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5219 ok(hr == S_OK, "ret %08x\n", hr );
5220 /* ... and try again with empty string */
5221 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5222 ok(hr == S_OK, "ret %08x\n", hr );
5223
5224 /* ::replaceData() */
5225 V_VT(&v) = VT_BSTR;
5226 V_BSTR(&v) = SysAllocString(szstr1);
5227 hr = IXMLDOMComment_put_nodeValue(pComment, v);
5228 ok(hr == S_OK, "ret %08x\n", hr );
5229 VariantClear(&v);
5230
5231 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
5232 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5233 hr = IXMLDOMComment_get_text(pComment, &str);
5234 ok(hr == S_OK, "ret %08x\n", hr );
5235 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5236 SysFreeString(str);
5237
5238 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
5239 ok(hr == S_OK, "ret %08x\n", hr );
5240 hr = IXMLDOMComment_get_text(pComment, &str);
5241 ok(hr == S_OK, "ret %08x\n", hr );
5242 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5243 SysFreeString(str);
5244
5245 /* NULL pointer means delete */
5246 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
5247 ok(hr == S_OK, "ret %08x\n", hr );
5248 hr = IXMLDOMComment_get_text(pComment, &str);
5249 ok(hr == S_OK, "ret %08x\n", hr );
5250 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5251 SysFreeString(str);
5252
5253 /* empty string means delete */
5254 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
5255 ok(hr == S_OK, "ret %08x\n", hr );
5256 hr = IXMLDOMComment_get_text(pComment, &str);
5257 ok(hr == S_OK, "ret %08x\n", hr );
5258 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5259 SysFreeString(str);
5260
5261 /* zero count means insert */
5262 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
5263 ok(hr == S_OK, "ret %08x\n", hr );
5264 hr = IXMLDOMComment_get_text(pComment, &str);
5265 ok(hr == S_OK, "ret %08x\n", hr );
5266 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5267 SysFreeString(str);
5268
5269 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
5270 ok(hr == S_OK, "ret %08x\n", hr );
5271
5272 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
5273 ok(hr == S_OK, "ret %08x\n", hr );
5274 hr = IXMLDOMComment_get_text(pComment, &str);
5275 ok(hr == S_OK, "ret %08x\n", hr );
5276 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5277 SysFreeString(str);
5278
5279 /* nonempty string, count greater than its length */
5280 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
5281 ok(hr == S_OK, "ret %08x\n", hr );
5282 hr = IXMLDOMComment_get_text(pComment, &str);
5283 ok(hr == S_OK, "ret %08x\n", hr );
5284 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5285 SysFreeString(str);
5286
5287 /* nonempty string, count less than its length */
5288 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
5289 ok(hr == S_OK, "ret %08x\n", hr );
5290 hr = IXMLDOMComment_get_text(pComment, &str);
5291 ok(hr == S_OK, "ret %08x\n", hr );
5292 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5293 SysFreeString(str);
5294
5295 IXMLDOMComment_Release(pComment);
5296 }
5297
5298 /* Element */
5299 str = SysAllocString(szElement);
5300 hr = IXMLDOMDocument_createElement(doc, str, &pElement);
5301 SysFreeString(str);
5302 ok(hr == S_OK, "ret %08x\n", hr );
5303 if(hr == S_OK)
5304 {
5305 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5306 ok(hr == S_OK, "ret %08x\n", hr );
5307
5308 hr = IXMLDOMElement_get_nodeName(pElement, &str);
5309 ok(hr == S_OK, "ret %08x\n", hr );
5310 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
5311 SysFreeString(str);
5312
5313 hr = IXMLDOMElement_get_xml(pElement, &str);
5314 ok(hr == S_OK, "ret %08x\n", hr );
5315 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
5316 SysFreeString(str);
5317
5318 /* Attribute */
5319 pAttribute = (IXMLDOMAttribute*)0x1;
5320 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
5321 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5322 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5323
5324 pAttribute = (IXMLDOMAttribute*)0x1;
5325 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
5326 ok(hr == E_FAIL, "ret %08x\n", hr );
5327 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5328
5329 str = SysAllocString(szAttribute);
5330 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
5331 SysFreeString(str);
5332 ok(hr == S_OK, "ret %08x\n", hr );
5333 if(hr == S_OK)
5334 {
5335 IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
5336
5337 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
5338 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5339
5340 pNextChild = (IXMLDOMNode *)0x1;
5341 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
5342 ok(hr == S_FALSE, "ret %08x\n", hr );
5343 ok(pNextChild == NULL, "pNextChild not NULL\n");
5344
5345 /* test Previous Sibling*/
5346 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
5347 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5348
5349 pNextChild = (IXMLDOMNode *)0x1;
5350 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
5351 ok(hr == S_FALSE, "ret %08x\n", hr );
5352 ok(pNextChild == NULL, "pNextChild not NULL\n");
5353
5354 hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
5355 ok(hr == E_FAIL, "ret %08x\n", hr );
5356 ok(pNewChild == NULL, "pNewChild not NULL\n");
5357
5358 hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
5359 ok(hr == S_OK, "ret %08x\n", hr );
5360 if ( hr == S_OK )
5361 {
5362 hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
5363 ok(hr == S_OK, "ret %08x\n", hr );
5364
5365 IXMLDOMNamedNodeMap_Release(pAttribs);
5366 }
5367
5368 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5369 ok(hr == S_OK, "ret %08x\n", hr );
5370 ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
5371 SysFreeString(str);
5372
5373 /* test nodeName */
5374 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5375 ok(hr == S_OK, "ret %08x\n", hr );
5376 ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
5377 SysFreeString(str);
5378
5379 /* test name property */
5380 hr = IXMLDOMAttribute_get_name(pAttribute, &str);
5381 ok(hr == S_OK, "ret %08x\n", hr );
5382 ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
5383 SysFreeString(str);
5384
5385 hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
5386 ok(hr == S_OK, "ret %08x\n", hr );
5387 ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
5388 SysFreeString(str);
5389
5390 IXMLDOMAttribute_Release(pAttribute);
5391
5392 /* Check Element again with the Add Attribute*/
5393 hr = IXMLDOMElement_get_xml(pElement, &str);
5394 ok(hr == S_OK, "ret %08x\n", hr );
5395 ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
5396 SysFreeString(str);
5397 }
5398
5399 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
5400 ok(hr == S_OK, "ret %08x\n", hr );
5401
5402 hr = IXMLDOMElement_get_xml(pElement, &str);
5403 ok(hr == S_OK, "ret %08x\n", hr );
5404 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
5405 SysFreeString(str);
5406
5407 /* Test for reversible escaping */
5408 str = SysAllocString( szStrangeChars );
5409 hr = IXMLDOMElement_put_text(pElement, str);
5410 ok(hr == S_OK, "ret %08x\n", hr );
5411 SysFreeString( str );
5412
5413 hr = IXMLDOMElement_get_xml(pElement, &str);
5414 ok(hr == S_OK, "ret %08x\n", hr );
5415 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
5416 SysFreeString(str);
5417
5418 hr = IXMLDOMElement_get_text(pElement, &str);
5419 ok(hr == S_OK, "ret %08x\n", hr );
5420 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
5421 SysFreeString(str);
5422
5423 IXMLDOMElement_Release(pElement);
5424 }
5425
5426 /* CData Section */
5427 str = SysAllocString(szCData);
5428 hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
5429 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5430
5431 hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
5432 SysFreeString(str);
5433 ok(hr == S_OK, "ret %08x\n", hr );
5434 if(hr == S_OK)
5435 {
5436 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
5437 VARIANT var;
5438
5439 VariantInit(&var);
5440
5441 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
5442 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
5443
5444 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
5445 ok(hr == S_OK, "ret %08x\n", hr );
5446
5447 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
5448 ok(hr == S_OK, "ret %08x\n", hr );
5449 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
5450 SysFreeString(str);
5451
5452 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5453 ok(hr == S_OK, "ret %08x\n", hr );
5454 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
5455 SysFreeString(str);
5456
5457 /* test lastChild */
5458 pNextChild = (IXMLDOMNode*)0x1;
5459 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
5460 ok(hr == S_FALSE, "ret %08x\n", hr );
5461 ok(pNextChild == NULL, "pNextChild not NULL\n");
5462
5463 /* put data Tests */
5464 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
5465 ok(hr == S_OK, "ret %08x\n", hr );
5466
5467 /* Confirm XML text is good */
5468 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5469 ok(hr == S_OK, "ret %08x\n", hr );
5470 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
5471 SysFreeString(str);
5472
5473 /* Confirm we get the put_data Text back */
5474 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5475 ok(hr == S_OK, "ret %08x\n", hr );
5476 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5477 SysFreeString(str);
5478
5479 /* test length property */
5480 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5481 ok(hr == S_OK, "ret %08x\n", hr );
5482 ok(len == 21, "expected 21 got %d\n", len);
5483
5484 /* test get data */
5485 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
5486 ok(hr == S_OK, "ret %08x\n", hr );
5487 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5488 SysFreeString(str);
5489
5490 /* test substringData */
5491 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
5492 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5493
5494 /* test substringData - Invalid offset */
5495 str = (BSTR)&szElement;
5496 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
5497 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5498 ok( str == NULL, "incorrect string\n");
5499
5500 /* test substringData - Invalid offset */
5501 str = (BSTR)&szElement;
5502 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
5503 ok(hr == S_FALSE, "ret %08x\n", hr );
5504 ok( str == NULL, "incorrect string\n");
5505
5506 /* test substringData - Invalid size */
5507 str = (BSTR)&szElement;
5508 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
5509 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5510 ok( str == NULL, "incorrect string\n");
5511
5512 /* test substringData - Invalid size */
5513 str = (BSTR)&szElement;
5514 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
5515 ok(hr == S_FALSE, "ret %08x\n", hr );
5516 ok( str == NULL, "incorrect string\n");
5517
5518 /* test substringData - Start of string */
5519 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
5520 ok(hr == S_OK, "ret %08x\n", hr );
5521 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5522 SysFreeString(str);
5523
5524 /* test substringData - Middle of string */
5525 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
5526 ok(hr == S_OK, "ret %08x\n", hr );
5527 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5528 SysFreeString(str);
5529
5530 /* test substringData - End of string */
5531 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
5532 ok(hr == S_OK, "ret %08x\n", hr );
5533 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5534 SysFreeString(str);
5535
5536 /* test appendData */
5537 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
5538 ok(hr == S_OK, "ret %08x\n", hr );
5539
5540 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
5541 ok(hr == S_OK, "ret %08x\n", hr );
5542
5543 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
5544 ok(hr == S_OK, "ret %08x\n", hr );
5545
5546 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5547 ok(hr == S_OK, "ret %08x\n", hr );
5548 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5549 SysFreeString(str);
5550
5551 /* test insertData */
5552 str = SysAllocStringLen(NULL, 0);
5553 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
5554 ok(hr == S_OK, "ret %08x\n", hr );
5555
5556 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
5557 ok(hr == S_OK, "ret %08x\n", hr );
5558
5559 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
5560 ok(hr == S_OK, "ret %08x\n", hr );
5561
5562 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
5563 ok(hr == S_OK, "ret %08x\n", hr );
5564
5565 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
5566 ok(hr == S_OK, "ret %08x\n", hr );
5567
5568 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
5569 ok(hr == S_OK, "ret %08x\n", hr );
5570 SysFreeString(str);
5571
5572 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
5573 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5574
5575 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
5576 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5577
5578 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
5579 ok(hr == S_OK, "ret %08x\n", hr );
5580
5581 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
5582 ok(hr == S_OK, "ret %08x\n", hr );
5583
5584 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
5585 ok(hr == S_OK, "ret %08x\n", hr );
5586
5587 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5588 ok(hr == S_OK, "ret %08x\n", hr );
5589 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5590 SysFreeString(str);
5591
5592 /* delete data */
5593 /* invalid arguments */
5594 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
5595 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5596
5597 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
5598 ok(hr == S_OK, "ret %08x\n", hr );
5599
5600 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
5601 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5602
5603 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5604 ok(hr == S_OK, "ret %08x\n", hr );
5605 ok(len == 43, "expected 43 got %d\n", len);
5606
5607 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
5608 ok(hr == S_OK, "ret %08x\n", hr );
5609
5610 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
5611 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5612
5613 /* delete from start */
5614 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
5615 ok(hr == S_OK, "ret %08x\n", hr );
5616
5617 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5618 ok(hr == S_OK, "ret %08x\n", hr );
5619 ok(len == 38, "expected 38 got %d\n", len);
5620
5621 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5622 ok(hr == S_OK, "ret %08x\n", hr );
5623 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5624 SysFreeString(str);
5625
5626 /* delete from end */
5627 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
5628 ok(hr == S_OK, "ret %08x\n", hr );
5629
5630 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5631 ok(hr == S_OK, "ret %08x\n", hr );
5632 ok(len == 35, "expected 35 got %d\n", len);
5633
5634 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5635 ok(hr == S_OK, "ret %08x\n", hr );
5636 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5637 SysFreeString(str);
5638
5639 /* delete from inside */
5640 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
5641 ok(hr == S_OK, "ret %08x\n", hr );
5642
5643 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5644 ok(hr == S_OK, "ret %08x\n", hr );
5645 ok(len == 2, "expected 2 got %d\n", len);
5646
5647 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5648 ok(hr == S_OK, "ret %08x\n", hr );
5649 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5650 SysFreeString(str);
5651
5652 /* delete whole data ... */
5653 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5654 ok(hr == S_OK, "ret %08x\n", hr );
5655
5656 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5657 ok(hr == S_OK, "ret %08x\n", hr );
5658
5659 /* ... and try again with empty string */
5660 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5661 ok(hr == S_OK, "ret %08x\n", hr );
5662
5663 /* ::replaceData() */
5664 V_VT(&v) = VT_BSTR;
5665 V_BSTR(&v) = SysAllocString(szstr1);
5666 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
5667 ok(hr == S_OK, "ret %08x\n", hr );
5668 VariantClear(&v);
5669
5670 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
5671 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5672 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5673 ok(hr == S_OK, "ret %08x\n", hr );
5674 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5675 SysFreeString(str);
5676
5677 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
5678 ok(hr == S_OK, "ret %08x\n", hr );
5679 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5680 ok(hr == S_OK, "ret %08x\n", hr );
5681 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5682 SysFreeString(str);
5683
5684 /* NULL pointer means delete */
5685 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
5686 ok(hr == S_OK, "ret %08x\n", hr );
5687 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5688 ok(hr == S_OK, "ret %08x\n", hr );
5689 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5690 SysFreeString(str);
5691
5692 /* empty string means delete */
5693 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5694 ok(hr == S_OK, "ret %08x\n", hr );
5695 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5696 ok(hr == S_OK, "ret %08x\n", hr );
5697 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5698 SysFreeString(str);
5699
5700 /* zero count means insert */
5701 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5702 ok(hr == S_OK, "ret %08x\n", hr );
5703 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5704 ok(hr == S_OK, "ret %08x\n", hr );
5705 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5706 SysFreeString(str);
5707
5708 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5709 ok(hr == S_OK, "ret %08x\n", hr );
5710
5711 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5712 ok(hr == S_OK, "ret %08x\n", hr );
5713 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5714 ok(hr == S_OK, "ret %08x\n", hr );
5715 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5716 SysFreeString(str);
5717
5718 /* nonempty string, count greater than its length */
5719 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5720 ok(hr == S_OK, "ret %08x\n", hr );
5721 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5722 ok(hr == S_OK, "ret %08x\n", hr );
5723 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5724 SysFreeString(str);
5725
5726 /* nonempty string, count less than its length */
5727 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5728 ok(hr == S_OK, "ret %08x\n", hr );
5729 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5730 ok(hr == S_OK, "ret %08x\n", hr );
5731 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5732 SysFreeString(str);
5733
5734 IXMLDOMCDATASection_Release(pCDataSec);
5735 }
5736
5737 /* Document Fragments */
5738 hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5739 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5740
5741 hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5742 ok(hr == S_OK, "ret %08x\n", hr );
5743 if(hr == S_OK)
5744 {
5745 IXMLDOMNode *node;
5746
5747 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5748 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5749
5750 node = (IXMLDOMNode *)0x1;
5751 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5752 ok(hr == S_FALSE, "ret %08x\n", hr );
5753 ok(node == NULL, "expected NULL, got %p\n", node);
5754
5755 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5756 ok(hr == S_OK, "ret %08x\n", hr );
5757
5758 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5759 ok(hr == S_OK, "ret %08x\n", hr );
5760 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5761 SysFreeString(str);
5762
5763 /* test next Sibling*/
5764 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5765 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5766
5767 node = (IXMLDOMNode *)0x1;
5768 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5769 ok(hr == S_FALSE, "ret %08x\n", hr );
5770 ok(node == NULL, "next sibling not NULL\n");
5771
5772 /* test Previous Sibling*/
5773 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5774 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5775
5776 node = (IXMLDOMNode *)0x1;
5777 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5778 ok(hr == S_FALSE, "ret %08x\n", hr );
5779 ok(node == NULL, "previous sibling not NULL\n");
5780
5781 IXMLDOMDocumentFragment_Release(pDocFrag);
5782 }
5783
5784 /* Entity References */
5785 hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5786 ok(hr == E_FAIL, "ret %08x\n", hr );
5787 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5788 ok(hr == E_FAIL, "ret %08x\n", hr );
5789
5790 str = SysAllocString(szEntityRef);
5791 hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5792 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5793
5794 hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5795 SysFreeString(str);
5796 ok(hr == S_OK, "ret %08x\n", hr );
5797 if(hr == S_OK)
5798 {
5799 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5800 ok(hr == S_OK, "ret %08x\n", hr );
5801
5802 /* test get_xml*/
5803 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5804 ok(hr == S_OK, "ret %08x\n", hr );
5805 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5806 SysFreeString(str);
5807
5808 IXMLDOMEntityReference_Release(pEntityRef);
5809 }
5810
5811 IXMLDOMElement_Release( pRoot );
5812 }
5813 }
5814
5815 IXMLDOMDocument_Release(doc);
5816
5817 free_bstrs();
5818 }
5819
5820 typedef struct {
5821 const char *name;
5822 const char *type;
5823 HRESULT hr;
5824 } put_datatype_t;
5825
5826 /* Type test for elements only. Name passed into put_dataType is case-insensitive.
5827 So many of the names have been changed to reflect this. */
5828 static put_datatype_t put_datatype_data[] = {
5829 { "test_inval", "abcdefg", E_FAIL },
5830 { "test_bool", "Boolean", S_OK },
5831 { "test_string", "String", S_OK },
5832 { "test_number", "number", S_OK },
5833 { "test_int", "InT", S_OK },
5834 { "test_fixed", "fixed.14.4", S_OK },
5835 { "test_datetime", "DateTime", S_OK },
5836 { "test_datetimetz", "DateTime.tz", S_OK },
5837 { "test_date", "Date", S_OK },
5838 { "test_time", "Time", S_OK },
5839 { "test_timetz", "Time.tz", S_OK },
5840 { "test_I1", "I1", S_OK },
5841 { "test_I2", "I2", S_OK },
5842 { "test_I4", "I4", S_OK },
5843 { "test_UI1", "UI1", S_OK },
5844 { "test_UI2", "UI2", S_OK },
5845 { "test_UI4", "UI4", S_OK },
5846 { "test_r4", "r4", S_OK },
5847 { "test_r8", "r8", S_OK },
5848 { "test_float", "float", S_OK },
5849 { "test_uuid", "UuId", S_OK },
5850 { "test_binhex", "bin.hex", S_OK },
5851 { "test_binbase64", "bin.base64", S_OK },
5852 { NULL }
5853 };
5854
5855 typedef struct {
5856 DOMNodeType type;
5857 HRESULT hr;
5858 } put_datatype_notype_t;
5859
5860 static put_datatype_notype_t put_dt_notype[] = {
5861 { NODE_PROCESSING_INSTRUCTION, E_FAIL },
5862 { NODE_DOCUMENT_FRAGMENT, E_FAIL },
5863 { NODE_ENTITY_REFERENCE, E_FAIL },
5864 { NODE_CDATA_SECTION, E_FAIL },
5865 { NODE_COMMENT, E_FAIL },
5866 { NODE_INVALID }
5867 };
5868
5869 static void test_put_dataType( void )
5870 {
5871 const put_datatype_notype_t *ptr2 = put_dt_notype;
5872 const put_datatype_t *ptr = put_datatype_data;
5873 IXMLDOMElement *root, *element;
5874 BSTR nameW, type1W, type2W;
5875 IXMLDOMDocument *doc;
5876 HRESULT hr;
5877
5878 doc = create_document(&IID_IXMLDOMDocument);
5879
5880 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5881 EXPECT_HR(hr, E_INVALIDARG);
5882
5883 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5884 EXPECT_HR(hr, S_OK);
5885
5886 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5887 EXPECT_HR(hr, S_OK);
5888
5889 hr = IXMLDOMElement_put_dataType(root, NULL);
5890 EXPECT_HR(hr, E_INVALIDARG);
5891
5892 while (ptr->name)
5893 {
5894 hr = IXMLDOMDocument_createElement(doc, _bstr_(ptr->name), &element);
5895 EXPECT_HR(hr, S_OK);
5896 if(hr == S_OK)
5897 {
5898 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5899 EXPECT_HR(hr, S_OK);
5900
5901 hr = IXMLDOMElement_put_dataType(element, _bstr_(ptr->type));
5902 ok(hr == ptr->hr, "failed for %s:%s, 0x%08x\n", ptr->name, ptr->type, ptr->hr);
5903
5904 IXMLDOMElement_Release(element);
5905 }
5906 ptr++;
5907 }
5908
5909 /* check changing types */
5910 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &element);
5911 EXPECT_HR(hr, S_OK);
5912
5913 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5914 EXPECT_HR(hr, S_OK);
5915
5916 hr = IXMLDOMElement_put_dataType(element, _bstr_("DateTime.tz"));
5917 EXPECT_HR(hr, S_OK);
5918
5919 hr = IXMLDOMElement_put_dataType(element, _bstr_("string"));
5920 EXPECT_HR(hr, S_OK);
5921
5922 IXMLDOMElement_Release(element);
5923
5924 /* try to set type for node without a type */
5925 nameW = _bstr_("testname");
5926 type1W = _bstr_("string");
5927 type2W = _bstr_("number");
5928 while (ptr2->type != NODE_INVALID)
5929 {
5930 IXMLDOMNode *node;
5931 VARIANT type;
5932
5933 V_VT(&type) = VT_I2;
5934 V_I2(&type) = ptr2->type;
5935
5936 hr = IXMLDOMDocument_createNode(doc, type, nameW, NULL, &node);
5937 EXPECT_HR(hr, S_OK);
5938 if(hr == S_OK)
5939 {
5940 hr = IXMLDOMElement_appendChild(root, node, NULL);
5941 EXPECT_HR(hr, S_OK);
5942
5943 hr = IXMLDOMNode_put_dataType(node, NULL);
5944 EXPECT_HR(hr, E_INVALIDARG);
5945
5946 hr = IXMLDOMNode_put_dataType(node, type1W);
5947 ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5948 hr = IXMLDOMNode_put_dataType(node, type2W);
5949 ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5950
5951 IXMLDOMNode_Release(node);
5952 }
5953 ptr2++;
5954 }
5955
5956 IXMLDOMElement_Release(root);
5957 IXMLDOMDocument_Release(doc);
5958 free_bstrs();
5959 }
5960
5961 static void test_save(void)
5962 {
5963 IXMLDOMDocument *doc, *doc2;
5964 IXMLDOMElement *root;
5965 BSTR sOrig, sNew, filename;
5966 char buffer[100];
5967 IStream *stream;
5968 HGLOBAL global;
5969 VARIANT_BOOL b;
5970 DWORD read = 0;
5971 VARIANT dest;
5972 HANDLE hfile;
5973 HRESULT hr;
5974 char *ptr;
5975
5976 doc = create_document(&IID_IXMLDOMDocument);
5977 doc2 = create_document(&IID_IXMLDOMDocument);
5978
5979 /* save to IXMLDOMDocument */
5980 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5981 EXPECT_HR(hr, S_OK);
5982
5983 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5984 EXPECT_HR(hr, S_OK);
5985
5986 V_VT(&dest) = VT_UNKNOWN;
5987 V_UNKNOWN(&dest) = (IUnknown*)doc2;
5988
5989 hr = IXMLDOMDocument_save(doc, dest);
5990 EXPECT_HR(hr, S_OK);
5991
5992 hr = IXMLDOMDocument_get_xml(doc, &sOrig);
5993 EXPECT_HR(hr, S_OK);
5994
5995 hr = IXMLDOMDocument_get_xml(doc2, &sNew);
5996 EXPECT_HR(hr, S_OK);
5997
5998 ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as original\n");
5999
6000 SysFreeString(sOrig);
6001 SysFreeString(sNew);
6002
6003 IXMLDOMElement_Release(root);
6004 IXMLDOMDocument_Release(doc2);
6005
6006 /* save to path */
6007 V_VT(&dest) = VT_BSTR;
6008 V_BSTR(&dest) = _bstr_("test.xml");
6009
6010 hr = IXMLDOMDocument_save(doc, dest);
6011 EXPECT_HR(hr, S_OK);
6012
6013 hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6014 ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6015 if(hfile == INVALID_HANDLE_VALUE) return;
6016
6017 ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6018 ok(read != 0, "could not read file\n");
6019 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6020
6021 CloseHandle(hfile);
6022 DeleteFileA("test.xml");
6023
6024 /* save to path VT_BSTR | VT_BYREF */
6025 filename = _bstr_("test.xml");
6026 V_VT(&dest) = VT_BSTR | VT_BYREF;
6027 V_BSTRREF(&dest) = &filename;
6028
6029 hr = IXMLDOMDocument_save(doc, dest);
6030 EXPECT_HR(hr, S_OK);
6031
6032 hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6033 ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6034 if(hfile == INVALID_HANDLE_VALUE) return;
6035
6036 if (hfile != INVALID_HANDLE_VALUE)
6037 {
6038 ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6039 ok(read != 0, "could not read file\n");
6040 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6041
6042 CloseHandle(hfile);
6043 DeleteFileA("test.xml");
6044 }
6045
6046 /* save to stream */
6047 V_VT(&dest) = VT_UNKNOWN;
6048 V_UNKNOWN(&dest) = (IUnknown*)&savestream;
6049
6050 hr = IXMLDOMDocument_save(doc, dest);
6051 EXPECT_HR(hr, S_OK);
6052
6053 /* loaded data contains xml declaration */
6054 hr = IXMLDOMDocument_loadXML(doc, _bstr_(win1252xml), &b);
6055 EXPECT_HR(hr, S_OK);
6056
6057 CreateStreamOnHGlobal(NULL, TRUE, &stream);
6058 V_VT(&dest) = VT_UNKNOWN;
6059 V_UNKNOWN(&dest) = (IUnknown*)stream;
6060 hr = IXMLDOMDocument_save(doc, dest);
6061 EXPECT_HR(hr, S_OK);
6062
6063 hr = GetHGlobalFromStream(stream, &global);
6064 EXPECT_HR(hr, S_OK);
6065 ptr = GlobalLock(global);
6066 ok(!memcmp(ptr, win1252decl, strlen(win1252decl)), "got wrong xml declaration\n");
6067 GlobalUnlock(global);
6068 IStream_Release(stream);
6069
6070 /* loaded data without xml declaration */
6071 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<a/>"), &b);
6072 EXPECT_HR(hr, S_OK);
6073
6074 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
6075 ok(hr == S_OK, "got 0x%08x\n", hr);
6076 V_VT(&dest) = VT_UNKNOWN;
6077 V_UNKNOWN(&dest) = (IUnknown*)stream;
6078 hr = IXMLDOMDocument_save(doc, dest);
6079 EXPECT_HR(hr, S_OK);
6080
6081 hr = GetHGlobalFromStream(stream, &global);
6082 EXPECT_HR(hr, S_OK);
6083 ptr = GlobalLock(global);
6084 ok(ptr[0] == '<' && ptr[1] != '?', "got wrong start tag %c%c\n", ptr[0], ptr[1]);
6085 GlobalUnlock(global);
6086 IStream_Release(stream);
6087
6088 IXMLDOMDocument_Release(doc);
6089 free_bstrs();
6090 }
6091
6092 static void test_testTransforms(void)
6093 {
6094 IXMLDOMDocument *doc, *docSS;
6095 IXMLDOMNode *pNode;
6096 VARIANT_BOOL bSucc;
6097 HRESULT hr;
6098
6099 doc = create_document(&IID_IXMLDOMDocument);
6100 docSS = create_document(&IID_IXMLDOMDocument);
6101
6102 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
6103 ok(hr == S_OK, "ret %08x\n", hr );
6104
6105 hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
6106 ok(hr == S_OK, "ret %08x\n", hr );
6107
6108 hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
6109 ok(hr == S_OK, "ret %08x\n", hr );
6110 if(hr == S_OK)
6111 {
6112 BSTR bOut;
6113
6114 hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
6115 ok(hr == S_OK, "ret %08x\n", hr );
6116 if(hr == S_OK)
6117 {
6118 ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "got output %s\n", wine_dbgstr_w(bOut));
6119 SysFreeString(bOut);
6120 }
6121
6122 IXMLDOMNode_Release(pNode);
6123 }
6124
6125 IXMLDOMDocument_Release(docSS);
6126 IXMLDOMDocument_Release(doc);
6127
6128 free_bstrs();
6129 }
6130
6131 struct namespaces_change_t {
6132 const CLSID *clsid;
6133 const char *name;
6134 };
6135
6136 static const struct namespaces_change_t namespaces_change_test_data[] = {
6137 { &CLSID_DOMDocument, "CLSID_DOMDocument" },
6138 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" },
6139 { &CLSID_DOMDocument26, "CLSID_DOMDocument26" },
6140 { &CLSID_DOMDocument30, "CLSID_DOMDocument30" },
6141 { &CLSID_DOMDocument40, "CLSID_DOMDocument40" },
6142 { &CLSID_DOMDocument60, "CLSID_DOMDocument60" },
6143 { 0 }
6144 };
6145
6146 static void test_namespaces_change(void)
6147 {
6148 const struct namespaces_change_t *class_ptr = namespaces_change_test_data;
6149
6150 while (class_ptr->clsid)
6151 {
6152 IXMLDOMDocument *doc = NULL;
6153 IXMLDOMElement *elem = NULL;
6154 IXMLDOMNode *node = NULL;
6155
6156 VARIANT var;
6157 HRESULT hr;
6158 BSTR str;
6159
6160 if (!is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument))
6161 {
6162 class_ptr++;
6163 continue;
6164 }
6165
6166 hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
6167 &IID_IXMLDOMDocument, (void**)&doc);
6168 ok(hr == S_OK, "got 0x%08x\n", hr);
6169
6170 V_VT(&var) = VT_I2;
6171 V_I2(&var) = NODE_ELEMENT;
6172
6173 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("ns:elem"), _bstr_("ns/uri"), &node);
6174 EXPECT_HR(hr, S_OK);
6175
6176 hr = IXMLDOMDocument_appendChild(doc, node, NULL);
6177 EXPECT_HR(hr, S_OK);
6178
6179 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6180 EXPECT_HR(hr, S_OK);
6181
6182 /* try same prefix, different uri */
6183 V_VT(&var) = VT_BSTR;
6184 V_BSTR(&var) = _bstr_("ns/uri2");
6185
6186 hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6187 EXPECT_HR(hr, E_INVALIDARG);
6188
6189 /* try same prefix and uri */
6190 V_VT(&var) = VT_BSTR;
6191 V_BSTR(&var) = _bstr_("ns/uri");
6192
6193 hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6194 EXPECT_HR(hr, S_OK);
6195
6196 hr = IXMLDOMElement_get_xml(elem, &str);
6197 EXPECT_HR(hr, S_OK);
6198 ok(!lstrcmpW(str, _bstr_("<ns:elem xmlns:ns=\"ns/uri\"/>")), "got element %s for %s\n",
6199 wine_dbgstr_w(str), class_ptr->name);
6200 SysFreeString(str);
6201
6202 IXMLDOMElement_Release(elem);
6203 IXMLDOMDocument_Release(doc);
6204
6205 free_bstrs();
6206
6207 class_ptr++;
6208 }
6209 }
6210
6211 static void test_namespaces_basic(void)
6212 {
6213 static const CHAR namespaces_xmlA[] =
6214 "<?xml version=\"1.0\"?>\n"
6215 "<XMI xmi.version=\"1.1\" xmlns:Model=\"http://omg.org/mof.Model/1.3\">"
6216 " <XMI.content>"
6217 " <Model:Package name=\"WinePackage\" Model:name2=\"name2 attr\" />"
6218 " </XMI.content>"
6219 "</XMI>";
6220
6221 IXMLDOMDocument *doc;
6222 IXMLDOMElement *elem;
6223 IXMLDOMNode *node;
6224
6225 VARIANT_BOOL b;
6226 HRESULT hr;
6227 BSTR str;
6228
6229 doc = create_document(&IID_IXMLDOMDocument);
6230
6231 hr = IXMLDOMDocument_loadXML(doc, _bstr_(namespaces_xmlA), &b);
6232 EXPECT_HR(hr, S_OK);
6233 ok(b == VARIANT_TRUE, "got %d\n", b);
6234
6235 str = (BSTR)0xdeadbeef;
6236 hr = IXMLDOMDocument_get_namespaceURI(doc, &str);
6237 EXPECT_HR(hr, S_FALSE);
6238 ok(str == NULL, "got %p\n", str);
6239
6240 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("//XMI.content"), &node );
6241 EXPECT_HR(hr, S_OK);
6242 if(hr == S_OK)
6243 {
6244 IXMLDOMAttribute *attr;
6245 IXMLDOMNode *node2;
6246
6247 hr = IXMLDOMNode_get_firstChild(node, &node2);
6248 EXPECT_HR(hr, S_OK);
6249 ok(node2 != NULL, "got %p\n", node2);
6250
6251 /* Test get_prefix */
6252 hr = IXMLDOMNode_get_prefix(node2, NULL);
6253 EXPECT_HR(hr, E_INVALIDARG);
6254 /* NOTE: Need to test that arg2 gets cleared on Error. */
6255
6256 hr = IXMLDOMNode_get_prefix(node2, &str);
6257 EXPECT_HR(hr, S_OK);
6258 ok( !lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6259 SysFreeString(str);
6260
6261 hr = IXMLDOMNode_get_nodeName(node2, &str);
6262 EXPECT_HR(hr, S_OK);
6263 ok(!lstrcmpW( str, _bstr_("Model:Package")), "got %s\n", wine_dbgstr_w(str));
6264 SysFreeString(str);
6265
6266 /* Test get_namespaceURI */
6267 hr = IXMLDOMNode_get_namespaceURI(node2, NULL);
6268 EXPECT_HR(hr, E_INVALIDARG);
6269 /* NOTE: Need to test that arg2 gets cleared on Error. */
6270
6271 hr = IXMLDOMNode_get_namespaceURI(node2, &str);
6272 EXPECT_HR(hr, S_OK);
6273 ok(!lstrcmpW( str, _bstr_("http://omg.org/mof.Model/1.3")), "got %s\n", wine_dbgstr_w(str));
6274 SysFreeString(str);
6275
6276 hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&elem);
6277 EXPECT_HR(hr, S_OK);
6278
6279 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("Model:name2"), &attr);
6280 EXPECT_HR(hr, S_OK);
6281
6282 hr = IXMLDOMAttribute_get_nodeName(attr, &str);
6283 EXPECT_HR(hr, S_OK);
6284 ok(!lstrcmpW( str, _bstr_("Model:name2")), "got %s\n", wine_dbgstr_w(str));
6285 SysFreeString(str);
6286
6287 hr = IXMLDOMAttribute_get_prefix(attr, &str);
6288 EXPECT_HR(hr, S_OK);
6289 ok(!lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6290 SysFreeString(str);
6291
6292 IXMLDOMAttribute_Release(attr);
6293 IXMLDOMElement_Release(elem);
6294
6295 IXMLDOMNode_Release(node2);
6296 IXMLDOMNode_Release(node);
6297 }
6298
6299 IXMLDOMDocument_Release(doc);
6300
6301 free_bstrs();
6302 }
6303
6304 static void test_FormattingXML(void)
6305 {
6306 IXMLDOMDocument *doc;
6307 IXMLDOMElement *pElement;
6308 VARIANT_BOOL bSucc;
6309 HRESULT hr;
6310 BSTR str;
6311 static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
6312 static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
6313
6314 doc = create_document(&IID_IXMLDOMDocument);
6315
6316 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
6317 ok(hr == S_OK, "ret %08x\n", hr );
6318 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6319
6320 if(bSucc == VARIANT_TRUE)
6321 {
6322 hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
6323 ok(hr == S_OK, "ret %08x\n", hr );
6324 if(hr == S_OK)
6325 {
6326 hr = IXMLDOMElement_get_xml(pElement, &str);
6327 ok(hr == S_OK, "ret %08x\n", hr );
6328 ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
6329 SysFreeString(str);
6330
6331 IXMLDOMElement_Release(pElement);
6332 }
6333 }
6334
6335 IXMLDOMDocument_Release(doc);
6336
6337 free_bstrs();
6338 }
6339
6340 typedef struct _nodetypedvalue_t {
6341 const char *name;
6342 VARTYPE type;
6343 const char *value; /* value in string format */
6344 } nodetypedvalue_t;
6345
6346 static const nodetypedvalue_t get_nodetypedvalue[] = {
6347 { "root/string", VT_BSTR, "Wine" },
6348 { "root/string2", VT_BSTR, "String" },
6349 { "root/number", VT_BSTR, "12.44" },
6350 { "root/number2", VT_BSTR, "-3.71e3" },
6351 { "root/int", VT_I4, "-13" },
6352 { "root/fixed", VT_CY, "7322.9371" },
6353 { "root/bool", VT_BOOL, "-1" },
6354 { "root/datetime", VT_DATE, "40135.14" },
6355 { "root/datetimetz",VT_DATE, "37813.59" },
6356 { "root/date", VT_DATE, "665413" },
6357 { "root/time", VT_DATE, "0.5813889" },
6358 { "root/timetz", VT_DATE, "1.112512" },
6359 { "root/i1", VT_I1, "-13" },
6360 { "root/i2", VT_I2, "31915" },
6361 { "root/i4", VT_I4, "-312232" },
6362 { "root/ui1", VT_UI1, "123" },
6363 { "root/ui2", VT_UI2, "48282" },
6364 { "root/ui4", VT_UI4, "949281" },
6365 { "root/r4", VT_R4, "213124" },
6366 { "root/r8", VT_R8, "0.412" },
6367 { "root/float", VT_R8, "41221.421" },
6368 { "root/uuid", VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
6369 { "root/binbase64", VT_ARRAY|VT_UI1, "base64 test" },
6370 { "root/binbase64_1", VT_ARRAY|VT_UI1, "base64 test" },
6371 { "root/binbase64_2", VT_ARRAY|VT_UI1, "base64 test" },
6372 { 0 }
6373 };
6374
6375 static void test_nodeTypedValue(void)
6376 {
6377 const nodetypedvalue_t *entry = get_nodetypedvalue;
6378 IXMLDOMDocumentType *doctype, *doctype2;
6379 IXMLDOMProcessingInstruction *pi;
6380 IXMLDOMDocumentFragment *frag;
6381 IXMLDOMDocument *doc, *doc2;
6382 IXMLDOMCDATASection *cdata;
6383 IXMLDOMComment *comment;
6384 IXMLDOMNode *node;
6385 VARIANT_BOOL b;
6386 VARIANT value;
6387 HRESULT hr;
6388
6389 doc = create_document(&IID_IXMLDOMDocument);
6390
6391 b = VARIANT_FALSE;
6392 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
6393 ok(hr == S_OK, "ret %08x\n", hr );
6394 ok(b == VARIANT_TRUE, "got %d\n", b);
6395
6396 hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
6397 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6398
6399 V_VT(&value) = VT_BSTR;
6400 V_BSTR(&value) = NULL;
6401 hr = IXMLDOMDocument_get_nodeValue(doc, &value);
6402 ok(hr == S_FALSE, "ret %08x\n", hr );
6403 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6404
6405 hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
6406 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6407
6408 V_VT(&value) = VT_EMPTY;
6409 hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
6410 ok(hr == S_FALSE, "ret %08x\n", hr );
6411 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6412
6413 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
6414 ok(hr == S_OK, "ret %08x\n", hr );
6415
6416 V_VT(&value) = VT_BSTR;
6417 V_BSTR(&value) = NULL;
6418 hr = IXMLDOMNode_get_nodeValue(node, &value);
6419 ok(hr == S_FALSE, "ret %08x\n", hr );
6420 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6421
6422 hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
6423 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6424
6425 IXMLDOMNode_Release(node);
6426
6427 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
6428 ok(hr == S_OK, "ret %08x\n", hr );
6429 {
6430 BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
6431
6432 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6433 ok(hr == S_OK, "ret %08x\n", hr );
6434 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6435 ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
6436 if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
6437 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6438 VariantClear(&value);
6439 IXMLDOMNode_Release(node);
6440 }
6441
6442 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("foo"), _bstr_("value"), &pi);
6443 ok(hr == S_OK, "ret %08x\n", hr );
6444 {
6445 V_VT(&value) = VT_NULL;
6446 V_BSTR(&value) = (void*)0xdeadbeef;
6447 hr = IXMLDOMProcessingInstruction_get_nodeTypedValue(pi, &value);
6448 ok(hr == S_OK, "ret %08x\n", hr );
6449 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6450 ok(!lstrcmpW(V_BSTR(&value), _bstr_("value")), "got wrong value\n");
6451 IXMLDOMProcessingInstruction_Release(pi);
6452 VariantClear(&value);
6453 }
6454
6455 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("[1]*2=3; &gee that's not right!"), &cdata);
6456 ok(hr == S_OK, "ret %08x\n", hr );
6457 {
6458 V_VT(&value) = VT_NULL;
6459 V_BSTR(&value) = (void*)0xdeadbeef;
6460 hr = IXMLDOMCDATASection_get_nodeTypedValue(cdata, &value);
6461 ok(hr == S_OK, "ret %08x\n", hr );
6462 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6463 ok(!lstrcmpW(V_BSTR(&value), _bstr_("[1]*2=3; &gee that's not right!")), "got wrong value\n");
6464 IXMLDOMCDATASection_Release(cdata);
6465 VariantClear(&value);
6466 }
6467
6468 hr = IXMLDOMDocument_createComment(doc, _bstr_("comment"), &comment);
6469 ok(hr == S_OK, "ret %08x\n", hr );
6470 {
6471 V_VT(&value) = VT_NULL;
6472 V_BSTR(&value) = (void*)0xdeadbeef;
6473 hr = IXMLDOMComment_get_nodeTypedValue(comment, &value);
6474 ok(hr == S_OK, "ret %08x\n", hr );
6475 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6476 ok(!lstrcmpW(V_BSTR(&value), _bstr_("comment")), "got wrong value\n");
6477 IXMLDOMComment_Release(comment);
6478 VariantClear(&value);
6479 }
6480
6481 hr = IXMLDOMDocument_createDocumentFragment(doc, &frag);
6482 ok(hr == S_OK, "ret %08x\n", hr );
6483 {
6484 V_VT(&value) = VT_EMPTY;
6485 hr = IXMLDOMDocumentFragment_get_nodeTypedValue(frag, &value);
6486 ok(hr == S_FALSE, "ret %08x\n", hr );
6487 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6488 IXMLDOMDocumentFragment_Release(frag);
6489 }
6490
6491 doc2 = create_document(&IID_IXMLDOMDocument);
6492
6493 b = VARIANT_FALSE;
6494 hr = IXMLDOMDocument_loadXML(doc2, _bstr_(szEmailXML), &b);
6495 ok(hr == S_OK, "ret %08x\n", hr );
6496 ok(b == VARIANT_TRUE, "got %d\n", b);
6497
6498 EXPECT_REF(doc2, 1);
6499
6500 hr = IXMLDOMDocument_get_doctype(doc2, &doctype);
6501 ok(hr == S_OK, "ret %08x\n", hr );
6502
6503 EXPECT_REF(doc2, 1);
6504 todo_wine EXPECT_REF(doctype, 2);
6505
6506 {
6507 V_VT(&value) = VT_EMPTY;
6508 hr = IXMLDOMDocumentType_get_nodeTypedValue(doctype, &value);
6509 ok(hr == S_FALSE, "ret %08x\n", hr );
6510 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6511 }
6512
6513 hr = IXMLDOMDocument_get_doctype(doc2, &doctype2);
6514 ok(hr == S_OK, "ret %08x\n", hr );
6515 ok(doctype != doctype2, "got %p, was %p\n", doctype2, doctype);
6516
6517 IXMLDOMDocumentType_Release(doctype2);
6518 IXMLDOMDocumentType_Release(doctype);
6519
6520 IXMLDOMDocument_Release(doc2);
6521
6522 while (entry->name)
6523 {
6524 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
6525 ok(hr == S_OK, "ret %08x\n", hr );
6526
6527 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6528 ok(hr == S_OK, "ret %08x\n", hr );
6529 ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
6530
6531 if (entry->type == (VT_ARRAY|VT_UI1))
6532 {
6533 ok(V_ARRAY(&value)->rgsabound[0].cElements == strlen(entry->value),
6534 "incorrect array size %d\n", V_ARRAY(&value)->rgsabound[0].cElements);
6535 }
6536
6537 if (entry->type != VT_BSTR)
6538 {
6539 if (entry->type == VT_DATE ||
6540 entry->type == VT_R8 ||
6541 entry->type == VT_CY)
6542 {
6543 if (entry->type == VT_DATE)
6544 {
6545 hr = VariantChangeType(&value, &value, 0, VT_R4);
6546 ok(hr == S_OK, "ret %08x\n", hr );
6547 }
6548 hr = VariantChangeTypeEx(&value, &value,
6549 MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
6550 VARIANT_NOUSEROVERRIDE, VT_BSTR);
6551 ok(hr == S_OK, "ret %08x\n", hr );
6552 }
6553 else
6554 {
6555 hr = VariantChangeType(&value, &value, 0, VT_BSTR);
6556 ok(hr == S_OK, "ret %08x\n", hr );
6557 }
6558
6559 /* for byte array from VT_ARRAY|VT_UI1 it's not a WCHAR buffer */
6560 if (entry->type == (VT_ARRAY|VT_UI1))
6561 {
6562 ok(!memcmp( V_BSTR(&value), entry->value, strlen(entry->value)),
6563 "expected %s\n", entry->value);
6564 }
6565 else
6566 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6567 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6568 }
6569 else
6570 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6571 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6572
6573 VariantClear( &value );
6574 IXMLDOMNode_Release(node);
6575
6576 entry++;
6577 }
6578
6579 IXMLDOMDocument_Release(doc);
6580 free_bstrs();
6581 }
6582
6583 static void test_TransformWithLoadingLocalFile(void)
6584 {
6585 IXMLDOMDocument *doc;
6586 IXMLDOMDocument *xsl;
6587 IXMLDOMNode *pNode;
6588 VARIANT_BOOL bSucc;
6589 HRESULT hr;
6590 HANDLE file;
6591 DWORD dwWritten;
6592 char lpPathBuffer[MAX_PATH];
6593 int i;
6594
6595 /* Create a Temp File. */
6596 GetTempPathA(MAX_PATH, lpPathBuffer);
6597 strcat(lpPathBuffer, "customers.xml" );
6598
6599 file = CreateFileA(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
6600 ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
6601 if(file == INVALID_HANDLE_VALUE)
6602 return;
6603
6604 WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
6605 CloseHandle(file);
6606
6607 /* Correct path to not include an escape character. */
6608 for(i=0; i < strlen(lpPathBuffer); i++)
6609 {
6610 if(lpPathBuffer[i] == '\\')
6611 lpPathBuffer[i] = '/';
6612 }
6613
6614 doc = create_document(&IID_IXMLDOMDocument);
6615 xsl = create_document(&IID_IXMLDOMDocument);
6616
6617 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
6618 ok(hr == S_OK, "ret %08x\n", hr );
6619 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6620 if(bSucc == VARIANT_TRUE)
6621 {
6622 BSTR sXSL;
6623 BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
6624 BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
6625 BSTR sFileName = _bstr_(lpPathBuffer);
6626 int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
6627
6628 sXSL = SysAllocStringLen(NULL, nLegnth);
6629 lstrcpyW(sXSL, sPart1);
6630 lstrcatW(sXSL, sFileName);
6631 lstrcatW(sXSL, sPart2);
6632
6633 hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
6634 ok(hr == S_OK, "ret %08x\n", hr );
6635 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6636 if(bSucc == VARIANT_TRUE)
6637 {
6638 BSTR sResult;
6639
6640 hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
6641 ok(hr == S_OK, "ret %08x\n", hr );
6642 if(hr == S_OK)
6643 {
6644 /* This will load the temp file via the XSL */
6645 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
6646 ok(hr == S_OK, "ret %08x\n", hr );
6647 if(hr == S_OK)
6648 {
6649 ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
6650 SysFreeString(sResult);
6651 }
6652
6653 IXMLDOMNode_Release(pNode);
6654 }
6655 }
6656
6657 SysFreeString(sXSL);
6658 }
6659
6660 IXMLDOMDocument_Release(doc);
6661 IXMLDOMDocument_Release(xsl);
6662
6663 DeleteFileA(lpPathBuffer);
6664 free_bstrs();
6665 }
6666
6667 static void test_put_nodeValue(void)
6668 {
6669 static const WCHAR jeevesW[] = {'J','e','e','v','e','s',' ','&',' ','W','o','o','s','t','e','r',0};
6670 IXMLDOMDocument *doc;
6671 IXMLDOMText *text;
6672 IXMLDOMEntityReference *entityref;
6673 IXMLDOMAttribute *attr;
6674 IXMLDOMNode *node;
6675 HRESULT hr;
6676 VARIANT data, type;
6677
6678 doc = create_document(&IID_IXMLDOMDocument);
6679
6680 /* test for unsupported types */
6681 /* NODE_DOCUMENT */
6682 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6683 ok(hr == S_OK, "ret %08x\n", hr );
6684 V_VT(&data) = VT_BSTR;
6685 V_BSTR(&data) = _bstr_("one two three");
6686 hr = IXMLDOMNode_put_nodeValue(node, data);
6687 ok(hr == E_FAIL, "ret %08x\n", hr );
6688 IXMLDOMNode_Release(node);
6689
6690 /* NODE_DOCUMENT_FRAGMENT */
6691 V_VT(&type) = VT_I1;
6692 V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6693 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6694 ok(hr == S_OK, "ret %08x\n", hr );
6695 V_VT(&data) = VT_BSTR;
6696 V_BSTR(&data) = _bstr_("one two three");
6697 hr = IXMLDOMNode_put_nodeValue(node, data);
6698 ok(hr == E_FAIL, "ret %08x\n", hr );
6699 IXMLDOMNode_Release(node);
6700
6701 /* NODE_ELEMENT */
6702 V_VT(&type) = VT_I1;
6703 V_I1(&type) = NODE_ELEMENT;
6704 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6705 ok(hr == S_OK, "ret %08x\n", hr );
6706 V_VT(&data) = VT_BSTR;
6707 V_BSTR(&data) = _bstr_("one two three");
6708 hr = IXMLDOMNode_put_nodeValue(node, data);
6709 ok(hr == E_FAIL, "ret %08x\n", hr );
6710 IXMLDOMNode_Release(node);
6711
6712 /* NODE_ENTITY_REFERENCE */
6713 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6714 ok(hr == S_OK, "ret %08x\n", hr );
6715
6716 V_VT(&data) = VT_BSTR;
6717 V_BSTR(&data) = _bstr_("one two three");
6718 hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6719 ok(hr == E_FAIL, "ret %08x\n", hr );
6720
6721 hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6722 ok(hr == S_OK, "ret %08x\n", hr );
6723 V_VT(&data) = VT_BSTR;
6724 V_BSTR(&data) = _bstr_("one two three");
6725 hr = IXMLDOMNode_put_nodeValue(node, data);
6726 ok(hr == E_FAIL, "ret %08x\n", hr );
6727 IXMLDOMNode_Release(node);
6728 IXMLDOMEntityReference_Release(entityref);
6729
6730 /* supported types */
6731 hr = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &text);
6732 ok(hr == S_OK, "ret %08x\n", hr );
6733 V_VT(&data) = VT_BSTR;
6734 V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6735 hr = IXMLDOMText_put_nodeValue(text, data);
6736 ok(hr == S_OK, "ret %08x\n", hr );
6737 IXMLDOMText_Release(text);
6738
6739 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6740 ok(hr == S_OK, "ret %08x\n", hr );
6741 V_VT(&data) = VT_BSTR;
6742 V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6743 hr = IXMLDOMAttribute_put_nodeValue(attr, data);
6744 ok(hr == S_OK, "ret %08x\n", hr );
6745 hr = IXMLDOMAttribute_get_nodeValue(attr, &data);
6746 ok(hr == S_OK, "ret %08x\n", hr );
6747 ok(memcmp(V_BSTR(&data), jeevesW, sizeof(jeevesW)) == 0, "got %s\n",
6748 wine_dbgstr_w(V_BSTR(&data)));
6749 VariantClear(&data);
6750 IXMLDOMAttribute_Release(attr);
6751
6752 free_bstrs();
6753
6754 IXMLDOMDocument_Release(doc);
6755 }
6756
6757 static void test_IObjectSafety(void)
6758 {
6759 IXMLDOMDocument *doc;
6760 IObjectSafety *safety;
6761 HRESULT hr;
6762
6763 doc = create_document(&IID_IXMLDOMDocument);
6764
6765 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6766 ok(hr == S_OK, "ret %08x\n", hr );
6767
6768 test_IObjectSafety_common(safety);
6769
6770 IObjectSafety_Release(safety);
6771 IXMLDOMDocument_Release(doc);
6772
6773 hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
6774 &IID_IObjectSafety, (void**)&safety);
6775 ok(hr == S_OK, "Could not create XMLHTTPRequest instance: %08x\n", hr);
6776
6777 test_IObjectSafety_common(safety);
6778
6779 IObjectSafety_Release(safety);
6780
6781 }
6782
6783 typedef struct _property_test_t {
6784 const GUID *guid;
6785 const char *clsid;
6786 const char *property;
6787 const char *value;
6788 } property_test_t;
6789
6790 static const property_test_t properties_test_data[] = {
6791 { &CLSID_DOMDocument, "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6792 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6793 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6794 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6795 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6796 { 0 }
6797 };
6798
6799 static void test_default_properties(void)
6800 {
6801 const property_test_t *entry = properties_test_data;
6802
6803 while (entry->guid)
6804 {
6805 IXMLDOMDocument2 *doc;
6806 VARIANT var;
6807 HRESULT hr;
6808
6809 if (!is_clsid_supported(entry->guid, &IID_IXMLDOMDocument2))
6810 {
6811 entry++;
6812 continue;
6813 }
6814
6815 hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6816 ok(hr == S_OK, "got 0x%08x\n", hr);
6817
6818 hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6819 ok(hr == S_OK, "got 0x%08x\n", hr);
6820 ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6821 entry->value, entry->clsid);
6822 VariantClear(&var);
6823
6824 IXMLDOMDocument2_Release(doc);
6825
6826 entry++;
6827 }
6828 }
6829
6830 typedef struct {
6831 const char *query;
6832 const char *list;
6833 BOOL todo;
6834 } xslpattern_test_t;
6835
6836 static const xslpattern_test_t xslpattern_test[] = {
6837 { "root//elem[0]", "E1.E2.D1" },
6838 { "root//elem[index()=1]", "E2.E2.D1" },
6839 { "root//elem[index() $eq$ 1]", "E2.E2.D1" },
6840 { "root//elem[end()]", "E4.E2.D1" },
6841 { "root//elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6842 { "root//elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6843 { "root//elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6844 { "root//elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6845 { "root//elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6846 { "root//elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6847 { "root//elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6848 { "root//elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6849 { "root//elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6850 { "root//elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6851 { "root//elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6852 { "root//elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6853 { "root//elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6854 { "root//elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6855 { "root//elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6856 { "root//elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6857 { "root//elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6858 { "root//elem[$any$ *='B2 field']", "E2.E2.D1" },
6859 { "root//elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6860 { "root//elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6861 { "root//elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6862 { "root//elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6863 { "root//elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6864 { "root//elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6865 { "root//elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6866 { "root/elem[0]", "E1.E2.D1" },
6867 { "root/elem[index()=1]", "E2.E2.D1" },
6868 { "root/elem[index() $eq$ 1]", "E2.E2.D1" },
6869 { "root/elem[end()]", "E4.E2.D1" },
6870 { "root/elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6871 { "root/elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6872 { "root/elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6873 { "root/elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6874 { "root/elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6875 { "root/elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6876 { "root/elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6877 { "root/elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6878 { "root/elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6879 { "root/elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6880 { "root/elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6881 { "root/elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6882 { "root/elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6883 { "root/elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6884 { "root/elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6885 { "root/elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6886 { "root/elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6887 { "root/elem[$any$ *='B2 field']", "E2.E2.D1" },
6888 { "root/elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6889 { "root/elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6890 { "root/elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6891 { "root/elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6892 { "root/elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6893 { "root/elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6894 { "root/elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6895 { "root/elem[d]", "E1.E2.D1 E2.E2.D1 E4.E2.D1" },
6896 { "root/elem[@*]", "E2.E2.D1 E3.E2.D1", TRUE },
6897 { NULL }
6898 };
6899
6900 static const xslpattern_test_t xslpattern_test_no_ns[] = {
6901 /* prefixes don't need to be registered, you may use them as they are in the doc */
6902 { "//bar:x", "E6.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1" },
6903 /* prefixes must be explicitly specified in the name */
6904 { "//foo:elem", "" },
6905 { "//foo:c", "E3.E4.E2.D1" },
6906 { NULL }
6907 };
6908
6909 static const xslpattern_test_t xslpattern_test_func[] = {
6910 { "attribute()", "" },
6911 { "attribute('depth')", "" },
6912 { "root/attribute('depth')", "A'depth'.E3.D1" },
6913 { "//x/attribute()", "A'id'.E3.E3.D1 A'depth'.E3.E3.D1" },
6914 { "//x//attribute(id)", NULL },
6915 { "//x//attribute('id')", "A'id'.E3.E3.D1 A'id'.E4.E3.E3.D1 A'id'.E5.E3.E3.D1 A'id'.E6.E3.E3.D1" },
6916 { "comment()", "C2.D1" },
6917 { "//comment()", "C2.D1 C1.E3.D1 C2.E3.E3.D1 C2.E4.E3.D1" },
6918 { "element()", "E3.D1" },
6919 { "root/y/element()", "E4.E4.E3.D1 E5.E4.E3.D1 E6.E4.E3.D1" },
6920 { "//element(a)", NULL },
6921 { "//element('a')", "E4.E3.E3.D1 E4.E4.E3.D1" },
6922 { "node()", "P1.D1 C2.D1 E3.D1" },
6923 { "//x/node()", "P1.E3.E3.D1 C2.E3.E3.D1 T3.E3.E3.D1 E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
6924 { "//x/node()[nodeType()=1]", "E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
6925 { "//x/node()[nodeType()=3]", "T3.E3.E3.D1" },
6926 { "//x/node()[nodeType()=7]", "P1.E3.E3.D1" },
6927 { "//x/node()[nodeType()=8]", "C2.E3.E3.D1" },
6928 { "pi()", "P1.D1" },
6929 { "//y/pi()", "P1.E4.E3.D1" },
6930 { "root/textnode()", "T2.E3.D1" },
6931 { "root/element()/textnode()", "T3.E3.E3.D1 T3.E4.E3.D1" },
6932 { NULL }
6933 };
6934
6935 static void test_XSLPattern(void)
6936 {
6937 const xslpattern_test_t *ptr = xslpattern_test;
6938 IXMLDOMDocument2 *doc;
6939 IXMLDOMNodeList *list;
6940 VARIANT_BOOL b;
6941 HRESULT hr;
6942 LONG len;
6943
6944 doc = create_document(&IID_IXMLDOMDocument2);
6945
6946 b = VARIANT_FALSE;
6947 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
6948 EXPECT_HR(hr, S_OK);
6949 ok(b == VARIANT_TRUE, "failed to load XML string\n");
6950
6951 /* switch to XSLPattern */
6952 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern"));
6953 EXPECT_HR(hr, S_OK);
6954
6955 /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6956 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list);
6957 EXPECT_HR(hr, S_OK);
6958
6959 len = 0;
6960 hr = IXMLDOMNodeList_get_length(list, &len);
6961 EXPECT_HR(hr, S_OK);
6962 /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6963 ok(len == 3, "expected 3 entries in list, got %d\n", len);
6964 IXMLDOMNodeList_Release(list);
6965
6966 while (ptr->query)
6967 {
6968 list = NULL;
6969 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6970 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6971 len = 0;
6972 hr = IXMLDOMNodeList_get_length(list, &len);
6973 ok(len != 0, "query=%s, empty list\n", ptr->query);
6974 if (len) {
6975 if (ptr->todo) {
6976 char *str = list_to_string(list);
6977 todo_wine
6978 ok(!strcmp(str, ptr->list), "Invalid node list: %s, expected %s\n", str, ptr->list);
6979 IXMLDOMNodeList_Release(list);
6980 }
6981 else
6982 expect_list_and_release(list, ptr->list);
6983 }
6984
6985 ptr++;
6986 }
6987
6988 /* namespace handling */
6989 /* no registered namespaces */
6990 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_(""));
6991 EXPECT_HR(hr, S_OK);
6992
6993 ptr = xslpattern_test_no_ns;
6994 while (ptr->query)
6995 {
6996 list = NULL;
6997 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6998 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6999
7000 if (*ptr->list)
7001 {
7002 len = 0;
7003 hr = IXMLDOMNodeList_get_length(list, &len);
7004 EXPECT_HR(hr, S_OK);
7005 ok(len != 0, "query=%s, empty list\n", ptr->query);
7006 }
7007 else
7008 {
7009 len = 1;
7010 hr = IXMLDOMNodeList_get_length(list, &len);
7011 EXPECT_HR(hr, S_OK);
7012 ok(len == 0, "query=%s, empty list\n", ptr->query);
7013 }
7014 if (len)
7015 expect_list_and_release(list, ptr->list);
7016
7017 ptr++;
7018 }
7019
7020 /* explicitly register prefix foo */
7021 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
7022
7023 /* now we get the same behavior as XPath */
7024 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7025 EXPECT_HR(hr, S_OK);
7026 len = 0;
7027 hr = IXMLDOMNodeList_get_length(list, &len);
7028 EXPECT_HR(hr, S_OK);
7029 ok(len != 0, "expected filled list\n");
7030 if (len)
7031 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
7032
7033 /* set prefix foo to some nonexistent namespace */
7034 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:nonexistent-foo'"));
7035 EXPECT_HR(hr, S_OK);
7036
7037 /* the registered prefix takes precedence */
7038 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7039 EXPECT_HR(hr, S_OK);
7040 len = 0;
7041 hr = IXMLDOMNodeList_get_length(list, &len);
7042 EXPECT_HR(hr, S_OK);
7043 ok(len == 0, "expected empty list\n");
7044 IXMLDOMNodeList_Release(list);
7045
7046 IXMLDOMDocument2_Release(doc);
7047
7048 doc = create_document(&IID_IXMLDOMDocument2);
7049
7050 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szNodeTypesXML), &b);
7051 EXPECT_HR(hr, S_OK);
7052 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7053
7054 ptr = xslpattern_test_func;
7055 while (ptr->query)
7056 {
7057 list = NULL;
7058 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7059 if (ptr->list)
7060 {
7061 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7062 len = 0;
7063 hr = IXMLDOMNodeList_get_length(list, &len);
7064 if (*ptr->list)
7065 {
7066 ok(len != 0, "query=%s, empty list\n", ptr->query);
7067 if (len)
7068 expect_list_and_release(list, ptr->list);
7069 }
7070 else
7071 ok(len == 0, "query=%s, filled list\n", ptr->query);
7072 }
7073 else
7074 ok(hr == E_FAIL, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7075
7076 ptr++;
7077 }
7078
7079 IXMLDOMDocument2_Release(doc);
7080 free_bstrs();
7081 }
7082
7083 static void test_splitText(void)
7084 {
7085 IXMLDOMCDATASection *cdata;
7086 IXMLDOMElement *root;
7087 IXMLDOMDocument *doc;
7088 IXMLDOMText *text, *text2;
7089 IXMLDOMNode *node;
7090 VARIANT var;
7091 VARIANT_BOOL success;
7092 LONG length;
7093 HRESULT hr;
7094
7095 doc = create_document(&IID_IXMLDOMDocument);
7096
7097 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
7098 ok(hr == S_OK, "got 0x%08x\n", hr);
7099
7100 hr = IXMLDOMDocument_get_documentElement(doc, &root);
7101 ok(hr == S_OK, "got 0x%08x\n", hr);
7102
7103 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
7104 ok(hr == S_OK, "got 0x%08x\n", hr);
7105
7106 V_VT(&var) = VT_EMPTY;
7107 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
7108 ok(hr == S_OK, "got 0x%08x\n", hr);
7109
7110 length = 0;
7111 hr = IXMLDOMCDATASection_get_length(cdata, &length);
7112 ok(hr == S_OK, "got 0x%08x\n", hr);
7113 ok(length > 0, "got %d\n", length);
7114
7115 hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
7116 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7117
7118 text = (void*)0xdeadbeef;
7119 /* negative offset */
7120 hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
7121 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7122 ok(text == (void*)0xdeadbeef, "got %p\n", text);
7123
7124 text = (void*)0xdeadbeef;
7125 /* offset outside data */
7126 hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
7127 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7128 ok(text == 0, "got %p\n", text);
7129
7130 text = (void*)0xdeadbeef;
7131 /* offset outside data */
7132 hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
7133 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7134 ok(text == 0, "got %p\n", text);
7135
7136 /* no empty node created */
7137 node = (void*)0xdeadbeef;
7138 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7139 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7140 ok(node == 0, "got %p\n", text);
7141
7142 hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
7143 ok(hr == S_OK, "got 0x%08x\n", hr);
7144
7145 length = 0;
7146 hr = IXMLDOMText_get_length(text, &length);
7147 ok(hr == S_OK, "got 0x%08x\n", hr);
7148 ok(length == 7, "got %d\n", length);
7149
7150 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7151 ok(hr == S_OK, "got 0x%08x\n", hr);
7152 IXMLDOMNode_Release(node);
7153
7154 /* split new text node */
7155 hr = IXMLDOMText_get_length(text, &length);
7156 ok(hr == S_OK, "got 0x%08x\n", hr);
7157
7158 node = (void*)0xdeadbeef;
7159 hr = IXMLDOMText_get_nextSibling(text, &node);
7160 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7161 ok(node == 0, "got %p\n", text);
7162
7163 hr = IXMLDOMText_splitText(text, 0, NULL);
7164 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7165
7166 text2 = (void*)0xdeadbeef;
7167 /* negative offset */
7168 hr = IXMLDOMText_splitText(text, -1, &text2);
7169 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7170 ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
7171
7172 text2 = (void*)0xdeadbeef;
7173 /* offset outside data */
7174 hr = IXMLDOMText_splitText(text, length + 1, &text2);
7175 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7176 ok(text2 == 0, "got %p\n", text2);
7177
7178 text2 = (void*)0xdeadbeef;
7179 /* offset outside data */
7180 hr = IXMLDOMText_splitText(text, length, &text2);
7181 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7182 ok(text2 == 0, "got %p\n", text);
7183
7184 text2 = 0;
7185 hr = IXMLDOMText_splitText(text, 4, &text2);
7186 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7187 if (text2) IXMLDOMText_Release(text2);
7188
7189 node = 0;
7190 hr = IXMLDOMText_get_nextSibling(text, &node);
7191 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7192 if (node) IXMLDOMNode_Release(node);
7193
7194 IXMLDOMText_Release(text);
7195 IXMLDOMElement_Release(root);
7196 IXMLDOMCDATASection_Release(cdata);
7197 free_bstrs();
7198 }
7199
7200 typedef struct {
7201 const char *name;
7202 const char *uri;
7203 HRESULT hr;
7204 } ns_item_t;
7205
7206 /* default_ns_doc used */
7207 static const ns_item_t qualified_item_tests[] = {
7208 { "xml:lang", NULL, S_FALSE },
7209 { "xml:lang", "http://www.w3.org/XML/1998/namespace", S_FALSE },
7210 { "lang", "http://www.w3.org/XML/1998/namespace", S_OK },
7211 { "ns:b", NULL, S_FALSE },
7212 { "ns:b", "nshref", S_FALSE },
7213 { "b", "nshref", S_OK },
7214 { "d", NULL, S_OK },
7215 { NULL }
7216 };
7217
7218 static const ns_item_t named_item_tests[] = {
7219 { "xml:lang", NULL, S_OK },
7220 { "lang", NULL, S_FALSE },
7221 { "ns:b", NULL, S_OK },
7222 { "b", NULL, S_FALSE },
7223 { "d", NULL, S_OK },
7224 { NULL }
7225 };
7226
7227 static void test_getQualifiedItem(void)
7228 {
7229 IXMLDOMNode *pr_node, *node;
7230 IXMLDOMNodeList *root_list;
7231 IXMLDOMNamedNodeMap *map;
7232 IXMLDOMElement *element;
7233 const ns_item_t* ptr;
7234 IXMLDOMDocument *doc;
7235 VARIANT_BOOL b;
7236 HRESULT hr;
7237 LONG len;
7238
7239 doc = create_document(&IID_IXMLDOMDocument);
7240
7241 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7242 EXPECT_HR(hr, S_OK);
7243 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7244
7245 hr = IXMLDOMDocument_get_documentElement(doc, &element);
7246 EXPECT_HR(hr, S_OK);
7247
7248 hr = IXMLDOMElement_get_childNodes(element, &root_list);
7249 EXPECT_HR(hr, S_OK);
7250
7251 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7252 EXPECT_HR(hr, S_OK);
7253 IXMLDOMNodeList_Release(root_list);
7254
7255 hr = IXMLDOMNode_get_attributes(pr_node, &map);
7256 EXPECT_HR(hr, S_OK);
7257 IXMLDOMNode_Release(pr_node);
7258
7259 len = 0;
7260 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7261 EXPECT_HR(hr, S_OK);
7262 ok( len == 3, "length %d\n", len);
7263
7264 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
7265 EXPECT_HR(hr, E_INVALIDARG);
7266
7267 node = (void*)0xdeadbeef;
7268 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
7269 EXPECT_HR(hr, E_INVALIDARG);
7270 ok( node == (void*)0xdeadbeef, "got %p\n", node);
7271
7272 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
7273 EXPECT_HR(hr, E_INVALIDARG);
7274
7275 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
7276 EXPECT_HR(hr, S_OK);
7277
7278 IXMLDOMNode_Release(node);
7279 IXMLDOMNamedNodeMap_Release(map);
7280 IXMLDOMElement_Release(element);
7281
7282 hr = IXMLDOMDocument_loadXML(doc, _bstr_(default_ns_doc), &b);
7283 EXPECT_HR(hr, S_OK);
7284
7285 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("a"), &node);
7286 EXPECT_HR(hr, S_OK);
7287
7288 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7289 EXPECT_HR(hr, S_OK);
7290 IXMLDOMNode_Release(node);
7291
7292 hr = IXMLDOMElement_get_attributes(element, &map);
7293 EXPECT_HR(hr, S_OK);
7294
7295 ptr = qualified_item_tests;
7296 while (ptr->name)
7297 {
7298 node = (void*)0xdeadbeef;
7299 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
7300 ok(hr == ptr->hr, "%s, %s: got 0x%08x, expected 0x%08x\n", ptr->name, ptr->uri, hr, ptr->hr);
7301 if (hr == S_OK)
7302 IXMLDOMNode_Release(node);
7303 else
7304 ok(node == NULL, "%s, %s: got %p\n", ptr->name, ptr->uri, node);
7305 ptr++;
7306 }
7307
7308 ptr = named_item_tests;
7309 while (ptr->name)
7310 {
7311 node = (void*)0xdeadbeef;
7312 hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_(ptr->name), &node);
7313 ok(hr == ptr->hr, "%s: got 0x%08x, expected 0x%08x\n", ptr->name, hr, ptr->hr);
7314 if (hr == S_OK)
7315 IXMLDOMNode_Release(node);
7316 else
7317 ok(node == NULL, "%s: got %p\n", ptr->name, node);
7318 ptr++;
7319 }
7320
7321 IXMLDOMNamedNodeMap_Release(map);
7322
7323 IXMLDOMElement_Release(element);
7324 IXMLDOMDocument_Release(doc);
7325 free_bstrs();
7326 }
7327
7328 static void test_removeQualifiedItem(void)
7329 {
7330 IXMLDOMDocument *doc;
7331 IXMLDOMElement *element;
7332 IXMLDOMNode *pr_node, *node;
7333 IXMLDOMNodeList *root_list;
7334 IXMLDOMNamedNodeMap *map;
7335 VARIANT_BOOL b;
7336 LONG len;
7337 HRESULT hr;
7338
7339 doc = create_document(&IID_IXMLDOMDocument);
7340
7341 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7342 ok( hr == S_OK, "loadXML failed\n");
7343 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7344
7345 hr = IXMLDOMDocument_get_documentElement(doc, &element);
7346 ok( hr == S_OK, "ret %08x\n", hr);
7347
7348 hr = IXMLDOMElement_get_childNodes(element, &root_list);
7349 ok( hr == S_OK, "ret %08x\n", hr);
7350
7351 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7352 ok( hr == S_OK, "ret %08x\n", hr);
7353 IXMLDOMNodeList_Release(root_list);
7354
7355 hr = IXMLDOMNode_get_attributes(pr_node, &map);
7356 ok( hr == S_OK, "ret %08x\n", hr);
7357 IXMLDOMNode_Release(pr_node);
7358
7359 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7360 ok( hr == S_OK, "ret %08x\n", hr);
7361 ok( len == 3, "length %d\n", len);
7362
7363 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
7364 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7365
7366 node = (void*)0xdeadbeef;
7367 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
7368 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7369 ok( node == (void*)0xdeadbeef, "got %p\n", node);
7370
7371 /* out pointer is optional */
7372 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7373 ok( hr == S_OK, "ret %08x\n", hr);
7374
7375 /* already removed */
7376 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7377 ok( hr == S_FALSE, "ret %08x\n", hr);
7378
7379 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
7380 ok( hr == S_OK, "ret %08x\n", hr);
7381 IXMLDOMNode_Release(node);
7382
7383 IXMLDOMNamedNodeMap_Release( map );
7384 IXMLDOMElement_Release( element );
7385 IXMLDOMDocument_Release( doc );
7386 free_bstrs();
7387 }
7388
7389 #define check_default_props(doc) _check_default_props(__LINE__, doc)
7390 static inline void _check_default_props(int line, IXMLDOMDocument2* doc)
7391 {
7392 VARIANT_BOOL b;
7393 VARIANT var;
7394 HRESULT hr;
7395
7396 VariantInit(&var);
7397 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7398 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
7399 VariantClear(&var);
7400
7401 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7402 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("")) == 0, "expected empty string\n");
7403 VariantClear(&var);
7404
7405 helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7406 ok_(__FILE__, line)(b == VARIANT_FALSE, "expected FALSE\n");
7407
7408 hr = IXMLDOMDocument2_get_schemas(doc, &var);
7409 ok_(__FILE__, line)(hr == S_FALSE, "got %08x\n", hr);
7410 VariantClear(&var);
7411 }
7412
7413 #define check_set_props(doc) _check_set_props(__LINE__, doc)
7414 static inline void _check_set_props(int line, IXMLDOMDocument2* doc)
7415 {
7416 VARIANT_BOOL b;
7417 VARIANT var;
7418
7419 VariantInit(&var);
7420 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7421 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7422 VariantClear(&var);
7423
7424 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7425 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
7426 VariantClear(&var);
7427
7428 helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7429 ok_(__FILE__, line)(b == VARIANT_TRUE, "expected TRUE\n");
7430
7431 helper_ole_check(IXMLDOMDocument2_get_schemas(doc, &var));
7432 ok_(__FILE__, line)(V_VT(&var) != VT_NULL, "expected pointer\n");
7433 VariantClear(&var);
7434 }
7435
7436 #define set_props(doc, cache) _set_props(__LINE__, doc, cache)
7437 static inline void _set_props(int line, IXMLDOMDocument2* doc, IXMLDOMSchemaCollection* cache)
7438 {
7439 VARIANT var;
7440
7441 VariantInit(&var);
7442 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
7443 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'")));
7444 helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_TRUE));
7445 V_VT(&var) = VT_DISPATCH;
7446 V_DISPATCH(&var) = NULL;
7447 helper_ole_check(IXMLDOMSchemaCollection_QueryInterface(cache, &IID_IDispatch, (void**)&V_DISPATCH(&var)));
7448 ok_(__FILE__, line)(V_DISPATCH(&var) != NULL, "expected pointer\n");
7449 helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7450 VariantClear(&var);
7451 }
7452
7453 #define unset_props(doc) _unset_props(__LINE__, doc)
7454 static inline void _unset_props(int line, IXMLDOMDocument2* doc)
7455 {
7456 VARIANT var;
7457
7458 VariantInit(&var);
7459 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
7460 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("")));
7461 helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_FALSE));
7462 V_VT(&var) = VT_NULL;
7463 helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7464 VariantClear(&var);
7465 }
7466
7467 static void test_get_ownerDocument(void)
7468 {
7469 IXMLDOMDocument *doc1, *doc2, *doc3;
7470 IXMLDOMDocument2 *doc, *doc_owner;
7471 IXMLDOMNode *node;
7472 IXMLDOMSchemaCollection *cache;
7473 VARIANT_BOOL b;
7474 VARIANT var;
7475 IXMLDOMElement *element;
7476 IXMLDOMNodeList *node_list;
7477 IXMLDOMAttribute *attr;
7478 LONG i, len;
7479 HRESULT hr;
7480 const CHAR nodeXML[] =
7481 "<root id='0'>"
7482 " <!-- comment node 0 -->"
7483 " text node 0"
7484 " <x attr='val'></x>"
7485 " <?foo value='PI for x'?>"
7486 " <![CDATA[ cdata ]]>"
7487 "</root>";
7488
7489 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
7490 if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
7491
7492 doc = create_document(&IID_IXMLDOMDocument2);
7493 cache = create_cache(&IID_IXMLDOMSchemaCollection);
7494
7495 VariantInit(&var);
7496
7497 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7498 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7499
7500 check_default_props(doc);
7501
7502 /* set properties and check that new instances use them */
7503 set_props(doc, cache);
7504 check_set_props(doc);
7505
7506 ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7507 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc1));
7508
7509 /* new interface keeps props */
7510 ole_check(IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7511 ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
7512 check_set_props(doc_owner);
7513 IXMLDOMDocument2_Release(doc_owner);
7514
7515 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc2));
7516 IXMLDOMNode_Release(node);
7517
7518 ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
7519
7520 /* reload */
7521 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7522 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7523
7524 /* properties retained even after reload */
7525 check_set_props(doc);
7526
7527 ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7528 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc3));
7529 IXMLDOMNode_Release(node);
7530
7531 ole_check(IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7532 ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
7533 check_set_props(doc_owner);
7534
7535 /* changing properties for one instance changes them for all */
7536 unset_props(doc_owner);
7537 check_default_props(doc_owner);
7538 check_default_props(doc);
7539
7540 /* NULL check */
7541 hr = IXMLDOMDocument_loadXML(doc1, _bstr_(nodeXML), &b);
7542 EXPECT_HR(hr, S_OK);
7543 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7544
7545 hr = IXMLDOMDocument_get_documentElement(doc1, &element);
7546 EXPECT_HR(hr, S_OK);
7547
7548 hr = IXMLDOMElement_get_childNodes(element, &node_list);
7549 EXPECT_HR(hr, S_OK);
7550
7551 hr = IXMLDOMNodeList_get_length(node_list, &len);
7552 EXPECT_HR(hr, S_OK);
7553
7554 for(i = 0; i < len; i++) {
7555 hr = IXMLDOMNodeList_get_item(node_list, i, &node);
7556 EXPECT_HR(hr, S_OK);
7557
7558 hr = IXMLDOMNode_get_ownerDocument(node, NULL);
7559 EXPECT_HR(hr, E_INVALIDARG);
7560
7561 IXMLDOMNode_Release(node);
7562 }
7563 IXMLDOMElement_Release(element);
7564
7565 /* Test Attribute Node */
7566 hr = IXMLDOMNodeList_get_item(node_list, 2, &node);
7567 EXPECT_HR(hr, S_OK);
7568 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7569 EXPECT_HR(hr, S_OK);
7570 IXMLDOMNode_Release(node);
7571
7572 hr = IXMLDOMElement_getAttributeNode(element, _bstr_("attr"), &attr);
7573 EXPECT_HR(hr, S_OK);
7574 ok(attr != NULL, "attr == NULL\n");
7575 IXMLDOMElement_Release(element);
7576 hr = IXMLDOMAttribute_get_ownerDocument(attr, NULL);
7577 EXPECT_HR(hr, E_INVALIDARG);
7578 IXMLDOMAttribute_Release(attr);
7579 IXMLDOMNodeList_Release(node_list);
7580
7581 IXMLDOMSchemaCollection_Release(cache);
7582 IXMLDOMDocument_Release(doc1);
7583 IXMLDOMDocument_Release(doc2);
7584 IXMLDOMDocument_Release(doc3);
7585 IXMLDOMDocument2_Release(doc);
7586 IXMLDOMDocument2_Release(doc_owner);
7587 free_bstrs();
7588 }
7589
7590 static void test_setAttributeNode(void)
7591 {
7592 IXMLDOMDocument *doc, *doc2;
7593 IXMLDOMElement *elem, *elem2;
7594 IXMLDOMAttribute *attr, *attr2, *ret_attr;
7595 VARIANT_BOOL b;
7596 HRESULT hr;
7597 VARIANT v;
7598 BSTR str;
7599 ULONG ref1, ref2;
7600
7601 doc = create_document(&IID_IXMLDOMDocument);
7602
7603 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7604 ok( hr == S_OK, "loadXML failed\n");
7605 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7606
7607 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7608 ok( hr == S_OK, "got 0x%08x\n", hr);
7609
7610 hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
7611 ok( hr == S_OK, "got 0x%08x\n", hr);
7612 ok( elem2 != elem, "got same instance\n");
7613
7614 ret_attr = (void*)0xdeadbeef;
7615 hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
7616 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7617 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7618
7619 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7620 ok( hr == S_OK, "got 0x%08x\n", hr);
7621
7622 ref1 = IXMLDOMElement_AddRef(elem);
7623 IXMLDOMElement_Release(elem);
7624
7625 ret_attr = (void*)0xdeadbeef;
7626 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7627 ok( hr == S_OK, "got 0x%08x\n", hr);
7628 ok( ret_attr == NULL, "got %p\n", ret_attr);
7629
7630 /* no reference added */
7631 ref2 = IXMLDOMElement_AddRef(elem);
7632 IXMLDOMElement_Release(elem);
7633 ok(ref2 == ref1, "got %d, expected %d\n", ref2, ref1);
7634
7635 EXPECT_CHILDREN(elem);
7636 EXPECT_CHILDREN(elem2);
7637
7638 IXMLDOMElement_Release(elem2);
7639
7640 attr2 = NULL;
7641 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
7642 ok( hr == S_OK, "got 0x%08x\n", hr);
7643 ok( attr2 != attr, "got same instance %p\n", attr2);
7644 IXMLDOMAttribute_Release(attr2);
7645
7646 /* try to add it another time */
7647 ret_attr = (void*)0xdeadbeef;
7648 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7649 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7650 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7651
7652 IXMLDOMElement_Release(elem);
7653
7654 /* initially used element is released, attribute still 'has' a container */
7655 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7656 ok( hr == S_OK, "got 0x%08x\n", hr);
7657 ret_attr = (void*)0xdeadbeef;
7658 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7659 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7660 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7661 IXMLDOMElement_Release(elem);
7662
7663 /* add attribute already attached to another document */
7664 doc2 = create_document(&IID_IXMLDOMDocument);
7665
7666 hr = IXMLDOMDocument_loadXML( doc2, _bstr_(complete4A), &b );
7667 ok( hr == S_OK, "loadXML failed\n");
7668 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7669
7670 hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
7671 ok( hr == S_OK, "got 0x%08x\n", hr);
7672 hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
7673 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7674 IXMLDOMElement_Release(elem);
7675
7676 IXMLDOMAttribute_Release(attr);
7677
7678 /* create element, add attribute, see if it's copied or linked */
7679 hr = IXMLDOMDocument_createElement(doc, _bstr_("test"), &elem);
7680 ok( hr == S_OK, "got 0x%08x\n", hr);
7681
7682 attr = NULL;
7683 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7684 ok(hr == S_OK, "got 0x%08x\n", hr);
7685 ok(attr != NULL, "got %p\n", attr);
7686
7687 ref1 = IXMLDOMAttribute_AddRef(attr);
7688 IXMLDOMAttribute_Release(attr);
7689
7690 V_VT(&v) = VT_BSTR;
7691 V_BSTR(&v) = _bstr_("attrvalue1");
7692 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7693 ok( hr == S_OK, "got 0x%08x\n", hr);
7694
7695 str = NULL;
7696 hr = IXMLDOMAttribute_get_xml(attr, &str);
7697 ok( hr == S_OK, "got 0x%08x\n", hr);
7698 ok( lstrcmpW(str, _bstr_("attr=\"attrvalue1\"")) == 0,
7699 "got %s\n", wine_dbgstr_w(str));
7700 SysFreeString(str);
7701
7702 ret_attr = (void*)0xdeadbeef;
7703 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7704 ok(hr == S_OK, "got 0x%08x\n", hr);
7705 ok(ret_attr == NULL, "got %p\n", ret_attr);
7706
7707 /* attribute reference increased */
7708 ref2 = IXMLDOMAttribute_AddRef(attr);
7709 IXMLDOMAttribute_Release(attr);
7710 ok(ref1 == ref2, "got %d, expected %d\n", ref2, ref1);
7711
7712 hr = IXMLDOMElement_get_xml(elem, &str);
7713 ok( hr == S_OK, "got 0x%08x\n", hr);
7714 ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue1\"/>")) == 0,
7715 "got %s\n", wine_dbgstr_w(str));
7716 SysFreeString(str);
7717
7718 V_VT(&v) = VT_BSTR;
7719 V_BSTR(&v) = _bstr_("attrvalue2");
7720 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7721 ok( hr == S_OK, "got 0x%08x\n", hr);
7722
7723 hr = IXMLDOMElement_get_xml(elem, &str);
7724 ok( hr == S_OK, "got 0x%08x\n", hr);
7725 todo_wine ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue2\"/>")) == 0,
7726 "got %s\n", wine_dbgstr_w(str));
7727 SysFreeString(str);
7728
7729 IXMLDOMElement_Release(elem);
7730 IXMLDOMAttribute_Release(attr);
7731 IXMLDOMDocument_Release(doc2);
7732 IXMLDOMDocument_Release(doc);
7733 free_bstrs();
7734 }
7735
7736 static void test_createNode(void)
7737 {
7738 IXMLDOMDocument *doc;
7739 IXMLDOMElement *elem;
7740 IXMLDOMNode *node;
7741 VARIANT v, var;
7742 BSTR prefix, str;
7743 HRESULT hr;
7744 ULONG ref;
7745
7746 doc = create_document(&IID_IXMLDOMDocument);
7747
7748 EXPECT_REF(doc, 1);
7749
7750 /* reference count tests */
7751 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7752 ok( hr == S_OK, "got 0x%08x\n", hr);
7753
7754 /* initial reference is 2 */
7755 todo_wine {
7756 EXPECT_REF(elem, 2);
7757 ref = IXMLDOMElement_Release(elem);
7758 ok(ref == 1, "got %d\n", ref);
7759 /* it's released already, attempt to release now will crash it */
7760 }
7761
7762 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7763 ok( hr == S_OK, "got 0x%08x\n", hr);
7764 todo_wine EXPECT_REF(elem, 2);
7765 IXMLDOMDocument_Release(doc);
7766 todo_wine EXPECT_REF(elem, 2);
7767 IXMLDOMElement_Release(elem);
7768
7769 doc = create_document(&IID_IXMLDOMDocument);
7770
7771 /* NODE_ELEMENT nodes */
7772 /* 1. specified namespace */
7773 V_VT(&v) = VT_I4;
7774 V_I4(&v) = NODE_ELEMENT;
7775
7776 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
7777 ok( hr == S_OK, "got 0x%08x\n", hr);
7778 prefix = NULL;
7779 hr = IXMLDOMNode_get_prefix(node, &prefix);
7780 ok( hr == S_OK, "got 0x%08x\n", hr);
7781 ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
7782 SysFreeString(prefix);
7783 IXMLDOMNode_Release(node);
7784
7785 /* 2. default namespace */
7786 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
7787 ok( hr == S_OK, "got 0x%08x\n", hr);
7788 prefix = (void*)0xdeadbeef;
7789 hr = IXMLDOMNode_get_prefix(node, &prefix);
7790 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7791 ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
7792 /* check dump */
7793 hr = IXMLDOMNode_get_xml(node, &str);
7794 ok( hr == S_OK, "got 0x%08x\n", hr);
7795 ok( lstrcmpW(str, _bstr_("<test xmlns=\"http://winehq.org/default\"/>")) == 0,
7796 "got %s\n", wine_dbgstr_w(str));
7797 SysFreeString(str);
7798
7799 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
7800 ok( hr == S_OK, "got 0x%08x\n", hr);
7801
7802 V_VT(&var) = VT_BSTR;
7803 hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
7804 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7805 ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
7806
7807 str = NULL;
7808 hr = IXMLDOMElement_get_namespaceURI(elem, &str);
7809 ok( hr == S_OK, "got 0x%08x\n", hr);
7810 ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
7811 SysFreeString(str);
7812
7813 IXMLDOMElement_Release(elem);
7814 IXMLDOMNode_Release(node);
7815
7816 IXMLDOMDocument_Release(doc);
7817 free_bstrs();
7818 }
7819
7820 static const char get_prefix_doc[] =
7821 "<?xml version=\"1.0\" ?>"
7822 "<a xmlns:ns1=\"ns1 href\" />";
7823
7824 static void test_get_prefix(void)
7825 {
7826 IXMLDOMDocumentFragment *fragment;
7827 IXMLDOMCDATASection *cdata;
7828 IXMLDOMElement *element;
7829 IXMLDOMComment *comment;
7830 IXMLDOMDocument *doc;
7831 VARIANT_BOOL b;
7832 HRESULT hr;
7833 BSTR str;
7834
7835 doc = create_document(&IID_IXMLDOMDocument);
7836
7837 /* nodes that can't support prefix */
7838 /* 1. document */
7839 str = (void*)0xdeadbeef;
7840 hr = IXMLDOMDocument_get_prefix(doc, &str);
7841 EXPECT_HR(hr, S_FALSE);
7842 ok(str == NULL, "got %p\n", str);
7843
7844 hr = IXMLDOMDocument_get_prefix(doc, NULL);
7845 EXPECT_HR(hr, E_INVALIDARG);
7846
7847 /* 2. cdata */
7848 hr = IXMLDOMDocument_createCDATASection(doc, NULL, &cdata);
7849 ok(hr == S_OK, "got %08x\n", hr );
7850
7851 str = (void*)0xdeadbeef;
7852 hr = IXMLDOMCDATASection_get_prefix(cdata, &str);
7853 ok(hr == S_FALSE, "got %08x\n", hr);
7854 ok( str == 0, "got %p\n", str);
7855
7856 hr = IXMLDOMCDATASection_get_prefix(cdata, NULL);
7857 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7858 IXMLDOMCDATASection_Release(cdata);
7859
7860 /* 3. comment */
7861 hr = IXMLDOMDocument_createComment(doc, NULL, &comment);
7862 ok(hr == S_OK, "got %08x\n", hr );
7863
7864 str = (void*)0xdeadbeef;
7865 hr = IXMLDOMComment_get_prefix(comment, &str);
7866 ok(hr == S_FALSE, "got %08x\n", hr);
7867 ok( str == 0, "got %p\n", str);
7868
7869 hr = IXMLDOMComment_get_prefix(comment, NULL);
7870 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7871 IXMLDOMComment_Release(comment);
7872
7873 /* 4. fragment */
7874 hr = IXMLDOMDocument_createDocumentFragment(doc, &fragment);
7875 ok(hr == S_OK, "got %08x\n", hr );
7876
7877 str = (void*)0xdeadbeef;
7878 hr = IXMLDOMDocumentFragment_get_prefix(fragment, &str);
7879 ok(hr == S_FALSE, "got %08x\n", hr);
7880 ok( str == 0, "got %p\n", str);
7881
7882 hr = IXMLDOMDocumentFragment_get_prefix(fragment, NULL);
7883 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7884 IXMLDOMDocumentFragment_Release(fragment);
7885
7886 /* no prefix */
7887 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
7888 ok( hr == S_OK, "got 0x%08x\n", hr);
7889
7890 hr = IXMLDOMElement_get_prefix(element, NULL);
7891 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7892
7893 str = (void*)0xdeadbeef;
7894 hr = IXMLDOMElement_get_prefix(element, &str);
7895 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7896 ok( str == 0, "got %p\n", str);
7897
7898 IXMLDOMElement_Release(element);
7899
7900 /* with prefix */
7901 hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
7902 ok( hr == S_OK, "got 0x%08x\n", hr);
7903
7904 str = (void*)0xdeadbeef;
7905 hr = IXMLDOMElement_get_prefix(element, &str);
7906 ok( hr == S_OK, "got 0x%08x\n", hr);
7907 ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
7908 SysFreeString(str);
7909
7910 str = (void*)0xdeadbeef;
7911 hr = IXMLDOMElement_get_namespaceURI(element, &str);
7912 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7913 ok( str == 0, "got %p\n", str);
7914
7915 IXMLDOMElement_Release(element);
7916
7917 hr = IXMLDOMDocument_loadXML(doc, _bstr_(get_prefix_doc), &b);
7918 EXPECT_HR(hr, S_OK);
7919
7920 hr = IXMLDOMDocument_get_documentElement(doc, &element);
7921 EXPECT_HR(hr, S_OK);
7922
7923 str = (void*)0xdeadbeef;
7924 hr = IXMLDOMElement_get_prefix(element, &str);
7925 EXPECT_HR(hr, S_FALSE);
7926 ok(str == NULL, "got %p\n", str);
7927
7928 str = (void*)0xdeadbeef;
7929 hr = IXMLDOMElement_get_namespaceURI(element, &str);
7930 EXPECT_HR(hr, S_FALSE);
7931 ok(str == NULL, "got %s\n", wine_dbgstr_w(str));
7932
7933 IXMLDOMDocument_Release(doc);
7934 free_bstrs();
7935 }
7936
7937 static void test_selectSingleNode(void)
7938 {
7939 IXMLDOMDocument *doc;
7940 IXMLDOMNodeList *list;
7941 IXMLDOMNode *node;
7942 VARIANT_BOOL b;
7943 HRESULT hr;
7944 LONG len;
7945
7946 doc = create_document(&IID_IXMLDOMDocument);
7947
7948 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7949 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7950
7951 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7952 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7953
7954 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7955 ok( hr == S_OK, "loadXML failed\n");
7956 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7957
7958 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7959 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7960
7961 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7962 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7963
7964 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
7965 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7966
7967 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
7968 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7969
7970 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
7971 ok(hr == S_OK, "got 0x%08x\n", hr);
7972 IXMLDOMNode_Release(node);
7973
7974 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
7975 ok(hr == S_OK, "got 0x%08x\n", hr);
7976 IXMLDOMNodeList_Release(list);
7977
7978 list = (void*)0xdeadbeef;
7979 hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
7980 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7981 ok(list == (void*)0xdeadbeef, "got %p\n", list);
7982
7983 node = (void*)0xdeadbeef;
7984 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
7985 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7986 ok(node == 0, "got %p\n", node);
7987
7988 list = (void*)0xdeadbeef;
7989 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
7990 ok(hr == S_OK, "got 0x%08x\n", hr);
7991 len = 1;
7992 hr = IXMLDOMNodeList_get_length(list, &len);
7993 ok(hr == S_OK, "got 0x%08x\n", hr);
7994 ok(len == 0, "got %d\n", len);
7995 IXMLDOMNodeList_Release(list);
7996
7997 IXMLDOMDocument_Release(doc);
7998 free_bstrs();
7999 }
8000
8001 static void test_events(void)
8002 {
8003 IConnectionPointContainer *conn;
8004 IConnectionPoint *point;
8005 IXMLDOMDocument *doc;
8006 HRESULT hr;
8007 VARIANT v;
8008 IDispatch *event;
8009
8010 doc = create_document(&IID_IXMLDOMDocument);
8011
8012 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&conn);
8013 ok(hr == S_OK, "got 0x%08x\n", hr);
8014
8015 hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IDispatch, &point);
8016 ok(hr == S_OK, "got 0x%08x\n", hr);
8017 IConnectionPoint_Release(point);
8018 hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IPropertyNotifySink, &point);
8019 ok(hr == S_OK, "got 0x%08x\n", hr);
8020 IConnectionPoint_Release(point);
8021 hr = IConnectionPointContainer_FindConnectionPoint(conn, &DIID_XMLDOMDocumentEvents, &point);
8022 ok(hr == S_OK, "got 0x%08x\n", hr);
8023 IConnectionPoint_Release(point);
8024
8025 IConnectionPointContainer_Release(conn);
8026
8027 /* ready state callback */
8028 VariantInit(&v);
8029 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8030 ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
8031
8032 event = create_dispevent();
8033 V_VT(&v) = VT_UNKNOWN;
8034 V_UNKNOWN(&v) = (IUnknown*)event;
8035
8036 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8037 ok(hr == S_OK, "got 0x%08x\n", hr);
8038 EXPECT_REF(event, 2);
8039
8040 V_VT(&v) = VT_DISPATCH;
8041 V_DISPATCH(&v) = event;
8042
8043 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8044 ok(hr == S_OK, "got 0x%08x\n", hr);
8045 EXPECT_REF(event, 2);
8046
8047 /* VT_NULL doesn't reset event handler */
8048 V_VT(&v) = VT_NULL;
8049 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8050 ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
8051 EXPECT_REF(event, 2);
8052
8053 V_VT(&v) = VT_DISPATCH;
8054 V_DISPATCH(&v) = NULL;
8055
8056 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8057 ok(hr == S_OK, "got 0x%08x\n", hr);
8058 EXPECT_REF(event, 1);
8059
8060 V_VT(&v) = VT_UNKNOWN;
8061 V_DISPATCH(&v) = NULL;
8062 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8063 ok(hr == S_OK, "got 0x%08x\n", hr);
8064
8065 IDispatch_Release(event);
8066
8067 IXMLDOMDocument_Release(doc);
8068 }
8069
8070 static void test_createProcessingInstruction(void)
8071 {
8072 static const WCHAR bodyW[] = {'t','e','s','t',0};
8073 IXMLDOMProcessingInstruction *pi;
8074 IXMLDOMDocument *doc;
8075 WCHAR buff[10];
8076 HRESULT hr;
8077
8078 doc = create_document(&IID_IXMLDOMDocument);
8079
8080 /* test for BSTR handling, pass broken BSTR */
8081 memcpy(&buff[2], bodyW, sizeof(bodyW));
8082 /* just a big length */
8083 *(DWORD*)buff = 0xf0f0;
8084 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("test"), &buff[2], &pi);
8085 ok(hr == S_OK, "got 0x%08x\n", hr);
8086
8087 IXMLDOMProcessingInstruction_Release(pi);
8088 IXMLDOMDocument_Release(doc);
8089 }
8090
8091 static void test_put_nodeTypedValue(void)
8092 {
8093 static const BYTE binhexdata[16] =
8094 {0,1,2,3,4,5,6,7,8,9,0xa,0xb,0xc,0xd,0xe,0xf};
8095 IXMLDOMDocument *doc;
8096 IXMLDOMElement *elem;
8097 VARIANT type, value;
8098 LONG ubound, lbound;
8099 IXMLDOMNode *node;
8100 SAFEARRAY *array;
8101 HRESULT hr;
8102 BYTE *ptr;
8103 BSTR str;
8104
8105 doc = create_document(&IID_IXMLDOMDocument);
8106
8107 hr = IXMLDOMDocument_createElement(doc, _bstr_("Element"), &elem);
8108 EXPECT_HR(hr, S_OK);
8109
8110 V_VT(&type) = VT_EMPTY;
8111 hr = IXMLDOMElement_get_dataType(elem, &type);
8112 EXPECT_HR(hr, S_FALSE);
8113 ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8114
8115 /* set typed value for untyped node */
8116 V_VT(&type) = VT_I1;
8117 V_I1(&type) = 1;
8118 hr = IXMLDOMElement_put_nodeTypedValue(elem, type);
8119 EXPECT_HR(hr, S_OK);
8120
8121 V_VT(&type) = VT_EMPTY;
8122 hr = IXMLDOMElement_get_dataType(elem, &type);
8123 EXPECT_HR(hr, S_FALSE);
8124 ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8125
8126 /* no type info stored */
8127 V_VT(&type) = VT_EMPTY;
8128 hr = IXMLDOMElement_get_nodeTypedValue(elem, &type);
8129 EXPECT_HR(hr, S_OK);
8130 ok(V_VT(&type) == VT_BSTR, "got %d, expected VT_BSTR\n", V_VT(&type));
8131 ok(memcmp(V_BSTR(&type), _bstr_("1"), 2*sizeof(WCHAR)) == 0,
8132 "got %s, expected \"1\"\n", wine_dbgstr_w(V_BSTR(&type)));
8133 VariantClear(&type);
8134
8135 hr = IXMLDOMElement_get_firstChild(elem, &node);
8136 EXPECT_HR(hr, S_OK);
8137 hr = IXMLDOMElement_removeChild(elem, node, NULL);
8138 EXPECT_HR(hr, S_OK);
8139 IXMLDOMNode_Release(node);
8140
8141 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)elem, NULL);
8142 EXPECT_HR(hr, S_OK);
8143
8144 /* bin.base64 */
8145 hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.base64"));
8146 EXPECT_HR(hr, S_OK);
8147
8148 V_VT(&value) = VT_BSTR;
8149 V_BSTR(&value) = _bstr_("ABCD");
8150 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8151 EXPECT_HR(hr, S_OK);
8152
8153 V_VT(&value) = VT_EMPTY;
8154 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8155 EXPECT_HR(hr, S_OK);
8156 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8157 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8158 ubound = 0;
8159 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8160 EXPECT_HR(hr, S_OK);
8161 ok(ubound == 2, "got %d\n", ubound);
8162 lbound = 0;
8163 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8164 EXPECT_HR(hr, S_OK);
8165 ok(lbound == 0, "got %d\n", lbound);
8166 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8167 EXPECT_HR(hr, S_OK);
8168 ok(ptr[0] == 0, "got %x\n", ptr[0]);
8169 ok(ptr[1] == 0x10, "got %x\n", ptr[1]);
8170 ok(ptr[2] == 0x83, "got %x\n", ptr[2]);
8171 SafeArrayUnaccessData(V_ARRAY(&value));
8172 VariantClear(&value);
8173
8174 /* when set as VT_BSTR it's stored as is */
8175 hr = IXMLDOMElement_get_firstChild(elem, &node);
8176 EXPECT_HR(hr, S_OK);
8177 hr = IXMLDOMNode_get_text(node, &str);
8178 EXPECT_HR(hr, S_OK);
8179 ok(!lstrcmpW(str, _bstr_("ABCD")), "%s\n", wine_dbgstr_w(str));
8180 IXMLDOMNode_Release(node);
8181 SysFreeString(str);
8182
8183 array = SafeArrayCreateVector(VT_UI1, 0, 7);
8184 hr = SafeArrayAccessData(array, (void*)&ptr);
8185 EXPECT_HR(hr, S_OK);
8186 memcpy(ptr, "dGVzdA=", strlen("dGVzdA="));
8187 SafeArrayUnaccessData(array);
8188
8189 V_VT(&value) = VT_UI1|VT_ARRAY;
8190 V_ARRAY(&value) = array;
8191 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8192 EXPECT_HR(hr, S_OK);
8193
8194 V_VT(&value) = VT_EMPTY;
8195 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8196 EXPECT_HR(hr, S_OK);
8197 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8198 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8199 ubound = 0;
8200 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8201 EXPECT_HR(hr, S_OK);
8202 ok(ubound == 6, "got %d\n", ubound);
8203 lbound = 0;
8204 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8205 EXPECT_HR(hr, S_OK);
8206 ok(lbound == 0, "got %d\n", lbound);
8207 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8208 EXPECT_HR(hr, S_OK);
8209 ok(!memcmp(ptr, "dGVzdA=", strlen("dGVzdA=")), "got wrong data, %s\n", ptr);
8210 SafeArrayUnaccessData(V_ARRAY(&value));
8211 VariantClear(&value);
8212
8213 /* if set with VT_UI1|VT_ARRAY it's encoded */
8214 hr = IXMLDOMElement_get_firstChild(elem, &node);
8215 EXPECT_HR(hr, S_OK);
8216 hr = IXMLDOMNode_get_text(node, &str);
8217 EXPECT_HR(hr, S_OK);
8218 ok(!lstrcmpW(str, _bstr_("ZEdWemRBPQ==")), "%s\n", wine_dbgstr_w(str));
8219 IXMLDOMNode_Release(node);
8220 SafeArrayDestroyData(array);
8221 SysFreeString(str);
8222
8223 /* bin.hex */
8224 V_VT(&value) = VT_BSTR;
8225 V_BSTR(&value) = _bstr_("");
8226 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8227 EXPECT_HR(hr, S_OK);
8228
8229 hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.hex"));
8230 EXPECT_HR(hr, S_OK);
8231
8232 array = SafeArrayCreateVector(VT_UI1, 0, 16);
8233 hr = SafeArrayAccessData(array, (void*)&ptr);
8234 EXPECT_HR(hr, S_OK);
8235 memcpy(ptr, binhexdata, sizeof(binhexdata));
8236 SafeArrayUnaccessData(array);
8237
8238 V_VT(&value) = VT_UI1|VT_ARRAY;
8239 V_ARRAY(&value) = array;
8240 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8241 EXPECT_HR(hr, S_OK);
8242
8243 V_VT(&value) = VT_EMPTY;
8244 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8245 EXPECT_HR(hr, S_OK);
8246 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8247 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8248 ubound = 0;
8249 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8250 EXPECT_HR(hr, S_OK);
8251 ok(ubound == 15, "got %d\n", ubound);
8252 lbound = 0;
8253 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8254 EXPECT_HR(hr, S_OK);
8255 ok(lbound == 0, "got %d\n", lbound);
8256 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8257 EXPECT_HR(hr, S_OK);
8258 ok(!memcmp(ptr, binhexdata, sizeof(binhexdata)), "got wrong data\n");
8259 SafeArrayUnaccessData(V_ARRAY(&value));
8260 VariantClear(&value);
8261
8262 /* if set with VT_UI1|VT_ARRAY it's encoded */
8263 hr = IXMLDOMElement_get_firstChild(elem, &node);
8264 EXPECT_HR(hr, S_OK);
8265 hr = IXMLDOMNode_get_text(node, &str);
8266 EXPECT_HR(hr, S_OK);
8267 ok(!lstrcmpW(str, _bstr_("000102030405060708090a0b0c0d0e0f")), "%s\n", wine_dbgstr_w(str));
8268 IXMLDOMNode_Release(node);
8269 SafeArrayDestroyData(array);
8270 SysFreeString(str);
8271
8272 IXMLDOMElement_Release(elem);
8273 IXMLDOMDocument_Release(doc);
8274 free_bstrs();
8275 }
8276
8277 static void test_get_xml(void)
8278 {
8279 static const char xmlA[] = "<?xml version=\"1.0\" encoding=\"UTF-16\"?>\r\n<a>test</a>\r\n";
8280 static const char attrA[] = "attr=\"&quot;a &amp; b&quot;\"";
8281 static const char attr2A[] = "\"a & b\"";
8282 static const char attr3A[] = "attr=\"&amp;quot;a\"";
8283 static const char attr4A[] = "&quot;a";
8284 static const char fooA[] = "<foo/>";
8285 IXMLDOMProcessingInstruction *pi;
8286 IXMLDOMNode *first;
8287 IXMLDOMElement *elem = NULL;
8288 IXMLDOMAttribute *attr;
8289 IXMLDOMDocument *doc;
8290 VARIANT_BOOL b;
8291 VARIANT v;
8292 BSTR xml;
8293 HRESULT hr;
8294
8295 doc = create_document(&IID_IXMLDOMDocument);
8296
8297 b = VARIANT_TRUE;
8298 hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8299 ok(hr == S_OK, "got 0x%08x\n", hr);
8300 ok( b == VARIANT_TRUE, "got %d\n", b);
8301
8302 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"),
8303 _bstr_("version=\"1.0\" encoding=\"UTF-16\""), &pi);
8304 ok(hr == S_OK, "got 0x%08x\n", hr);
8305
8306 hr = IXMLDOMDocument_get_firstChild(doc, &first);
8307 ok(hr == S_OK, "got 0x%08x\n", hr);
8308
8309 V_UNKNOWN(&v) = (IUnknown*)first;
8310 V_VT(&v) = VT_UNKNOWN;
8311
8312 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)pi, v, NULL);
8313 ok(hr == S_OK, "got 0x%08x\n", hr);
8314
8315 IXMLDOMProcessingInstruction_Release(pi);
8316 IXMLDOMNode_Release(first);
8317
8318 hr = IXMLDOMDocument_get_xml(doc, &xml);
8319 ok(hr == S_OK, "got 0x%08x\n", hr);
8320
8321 ok(memcmp(xml, _bstr_(xmlA), sizeof(xmlA)*sizeof(WCHAR)) == 0,
8322 "got %s, expected %s\n", wine_dbgstr_w(xml), xmlA);
8323 SysFreeString(xml);
8324
8325 IXMLDOMDocument_Release(doc);
8326
8327 doc = create_document(&IID_IXMLDOMDocument);
8328
8329 hr = IXMLDOMDocument_createElement(doc, _bstr_("foo"), &elem);
8330 ok(hr == S_OK, "got 0x%08x\n", hr);
8331
8332 hr = IXMLDOMDocument_putref_documentElement(doc, elem);
8333 ok(hr == S_OK, "got 0x%08x\n", hr);
8334
8335 hr = IXMLDOMDocument_get_xml(doc, &xml);
8336 ok(hr == S_OK, "got 0x%08x\n", hr);
8337
8338 ok(memcmp(xml, _bstr_(fooA), (sizeof(fooA)-1)*sizeof(WCHAR)) == 0,
8339 "got %s, expected %s\n", wine_dbgstr_w(xml), fooA);
8340 SysFreeString(xml);
8341
8342 IXMLDOMElement_Release(elem);
8343
8344 /* attribute node */
8345 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
8346 ok(hr == S_OK, "got 0x%08x\n", hr);
8347
8348 V_VT(&v) = VT_BSTR;
8349 V_BSTR(&v) = _bstr_("\"a & b\"");
8350 hr = IXMLDOMAttribute_put_value(attr, v);
8351 ok(hr == S_OK, "got 0x%08x\n", hr);
8352
8353 xml = NULL;
8354 hr = IXMLDOMAttribute_get_xml(attr, &xml);
8355 ok(hr == S_OK, "got 0x%08x\n", hr);
8356 ok(!memcmp(xml, _bstr_(attrA), (sizeof(attrA)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8357 SysFreeString(xml);
8358
8359 VariantInit(&v);
8360 hr = IXMLDOMAttribute_get_value(attr, &v);
8361 ok(hr == S_OK, "got 0x%08x\n", hr);
8362 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8363 ok(!memcmp(V_BSTR(&v), _bstr_(attr2A), (sizeof(attr2A)-1)*sizeof(WCHAR)),
8364 "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8365 VariantClear(&v);
8366
8367 V_VT(&v) = VT_BSTR;
8368 V_BSTR(&v) = _bstr_("&quot;a");
8369 hr = IXMLDOMAttribute_put_value(attr, v);
8370 ok(hr == S_OK, "got 0x%08x\n", hr);
8371
8372 xml = NULL;
8373 hr = IXMLDOMAttribute_get_xml(attr, &xml);
8374 ok(hr == S_OK, "got 0x%08x\n", hr);
8375 ok(!memcmp(xml, _bstr_(attr3A), (sizeof(attr3A)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8376 SysFreeString(xml);
8377
8378 VariantInit(&v);
8379 hr = IXMLDOMAttribute_get_value(attr, &v);
8380 ok(hr == S_OK, "got 0x%08x\n", hr);
8381 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8382 ok(!memcmp(V_BSTR(&v), _bstr_(attr4A), (sizeof(attr4A)-1)*sizeof(WCHAR)),
8383 "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8384 VariantClear(&v);
8385
8386 IXMLDOMAttribute_Release(attr);
8387
8388 IXMLDOMDocument_Release(doc);
8389
8390 free_bstrs();
8391 }
8392
8393 static void test_xsltemplate(void)
8394 {
8395 IXSLTemplate *template;
8396 IXSLProcessor *processor;
8397 IXMLDOMDocument *doc, *doc2;
8398 IStream *stream;
8399 VARIANT_BOOL b;
8400 HRESULT hr;
8401 ULONG ref1, ref2;
8402 VARIANT v;
8403
8404 if (!is_clsid_supported(&CLSID_XSLTemplate, &IID_IXSLTemplate)) return;
8405 template = create_xsltemplate(&IID_IXSLTemplate);
8406
8407 /* works as reset */
8408 hr = IXSLTemplate_putref_stylesheet(template, NULL);
8409 ok(hr == S_OK, "got 0x%08x\n", hr);
8410
8411 doc = create_document(&IID_IXMLDOMDocument);
8412
8413 b = VARIANT_TRUE;
8414 hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8415 ok(hr == S_OK, "got 0x%08x\n", hr);
8416 ok( b == VARIANT_TRUE, "got %d\n", b);
8417
8418 /* putref with non-xsl document */
8419 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8420 todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8421
8422 b = VARIANT_TRUE;
8423 hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8424 ok(hr == S_OK, "got 0x%08x\n", hr);
8425 ok( b == VARIANT_TRUE, "got %d\n", b);
8426
8427 /* not a freethreaded document */
8428 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8429 todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8430
8431 IXMLDOMDocument_Release(doc);
8432
8433 if (!is_clsid_supported(&CLSID_FreeThreadedDOMDocument, &IID_IXMLDOMDocument))
8434 {
8435 IXSLTemplate_Release(template);
8436 return;
8437 }
8438
8439 hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
8440 ok(hr == S_OK, "got 0x%08x\n", hr);
8441
8442 b = VARIANT_TRUE;
8443 hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8444 ok(hr == S_OK, "got 0x%08x\n", hr);
8445 ok( b == VARIANT_TRUE, "got %d\n", b);
8446
8447 /* freethreaded document */
8448 ref1 = IXMLDOMDocument_AddRef(doc);
8449 IXMLDOMDocument_Release(doc);
8450 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8451 ok(hr == S_OK, "got 0x%08x\n", hr);
8452 ref2 = IXMLDOMDocument_AddRef(doc);
8453 IXMLDOMDocument_Release(doc);
8454 ok(ref2 > ref1, "got %d\n", ref2);
8455
8456 /* processor */
8457 hr = IXSLTemplate_createProcessor(template, NULL);
8458 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8459
8460 EXPECT_REF(template, 1);
8461 hr = IXSLTemplate_createProcessor(template, &processor);
8462 ok(hr == S_OK, "got 0x%08x\n", hr);
8463 EXPECT_REF(template, 2);
8464
8465 /* input no set yet */
8466 V_VT(&v) = VT_BSTR;
8467 V_BSTR(&v) = NULL;
8468 hr = IXSLProcessor_get_input(processor, &v);
8469 todo_wine {
8470 ok(hr == S_OK, "got 0x%08x\n", hr);
8471 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
8472 }
8473
8474 hr = IXSLProcessor_get_output(processor, NULL);
8475 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8476
8477 /* reset before it was set */
8478 V_VT(&v) = VT_EMPTY;
8479 hr = IXSLProcessor_put_output(processor, v);
8480 ok(hr == S_OK, "got 0x%08x\n", hr);
8481
8482 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
8483 ok(hr == S_OK, "got 0x%08x\n", hr);
8484 EXPECT_REF(stream, 1);
8485
8486 V_VT(&v) = VT_UNKNOWN;
8487 V_UNKNOWN(&v) = (IUnknown*)stream;
8488 hr = IXSLProcessor_put_output(processor, v);
8489 ok(hr == S_OK, "got 0x%08x\n", hr);
8490
8491 /* it seems processor grabs 2 references */
8492 todo_wine EXPECT_REF(stream, 3);
8493
8494 V_VT(&v) = VT_EMPTY;
8495 hr = IXSLProcessor_get_output(processor, &v);
8496 ok(hr == S_OK, "got 0x%08x\n", hr);
8497 ok(V_VT(&v) == VT_UNKNOWN, "got type %d\n", V_VT(&v));
8498 ok(V_UNKNOWN(&v) == (IUnknown*)stream, "got %p\n", V_UNKNOWN(&v));
8499
8500 todo_wine EXPECT_REF(stream, 4);
8501 VariantClear(&v);
8502
8503 hr = IXSLProcessor_transform(processor, NULL);
8504 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8505
8506 /* reset and check stream refcount */
8507 V_VT(&v) = VT_EMPTY;
8508 hr = IXSLProcessor_put_output(processor, v);
8509 ok(hr == S_OK, "got 0x%08x\n", hr);
8510
8511 EXPECT_REF(stream, 1);
8512
8513 IStream_Release(stream);
8514
8515 /* no output interface set, check output */
8516 doc2 = create_document(&IID_IXMLDOMDocument);
8517
8518 b = VARIANT_TRUE;
8519 hr = IXMLDOMDocument_loadXML( doc2, _bstr_("<a>test</a>"), &b );
8520 ok(hr == S_OK, "got 0x%08x\n", hr);
8521 ok( b == VARIANT_TRUE, "got %d\n", b);
8522
8523 V_VT(&v) = VT_UNKNOWN;
8524 V_UNKNOWN(&v) = (IUnknown*)doc2;
8525 hr = IXSLProcessor_put_input(processor, v);
8526 ok(hr == S_OK, "got 0x%08x\n", hr);
8527
8528 hr = IXSLProcessor_transform(processor, &b);
8529 ok(hr == S_OK, "got 0x%08x\n", hr);
8530
8531 V_VT(&v) = VT_EMPTY;
8532 hr = IXSLProcessor_get_output(processor, &v);
8533 ok(hr == S_OK, "got 0x%08x\n", hr);
8534 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8535 ok(*V_BSTR(&v) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8536 IXMLDOMDocument_Release(doc2);
8537 VariantClear(&v);
8538
8539 IXSLProcessor_Release(processor);
8540
8541 /* drop reference */
8542 hr = IXSLTemplate_putref_stylesheet(template, NULL);
8543 ok(hr == S_OK, "got 0x%08x\n", hr);
8544 ref2 = IXMLDOMDocument_AddRef(doc);
8545 IXMLDOMDocument_Release(doc);
8546 ok(ref2 == ref1, "got %d\n", ref2);
8547
8548 IXMLDOMDocument_Release(doc);
8549 IXSLTemplate_Release(template);
8550 free_bstrs();
8551 }
8552
8553 static void test_insertBefore(void)
8554 {
8555 IXMLDOMDocument *doc, *doc2, *doc3;
8556 IXMLDOMAttribute *attr;
8557 IXMLDOMElement *elem1, *elem2, *elem3, *elem4, *elem5;
8558 IXMLDOMNode *node, *newnode, *cdata;
8559 HRESULT hr;
8560 VARIANT v;
8561 BSTR p;
8562
8563 doc = create_document(&IID_IXMLDOMDocument);
8564 doc3 = create_document(&IID_IXMLDOMDocument);
8565
8566 /* document to document */
8567 V_VT(&v) = VT_NULL;
8568 node = (void*)0xdeadbeef;
8569 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc3, v, &node);
8570 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8571 ok(node == NULL, "got %p\n", node);
8572
8573 /* document to itself */
8574 V_VT(&v) = VT_NULL;
8575 node = (void*)0xdeadbeef;
8576 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc, v, &node);
8577 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8578 ok(node == NULL, "got %p\n", node);
8579
8580 /* insertBefore behaviour for attribute node */
8581 V_VT(&v) = VT_I4;
8582 V_I4(&v) = NODE_ATTRIBUTE;
8583
8584 attr = NULL;
8585 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr"), NULL, (IXMLDOMNode**)&attr);
8586 ok(hr == S_OK, "got 0x%08x\n", hr);
8587 ok(attr != NULL, "got %p\n", attr);
8588
8589 /* attribute to document */
8590 V_VT(&v) = VT_NULL;
8591 node = (void*)0xdeadbeef;
8592 hr = IXMLDOMDocument_insertBefore(doc3, (IXMLDOMNode*)attr, v, &node);
8593 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8594 ok(node == NULL, "got %p\n", node);
8595
8596 /* cdata to document */
8597 V_VT(&v) = VT_I4;
8598 V_I4(&v) = NODE_CDATA_SECTION;
8599
8600 cdata = NULL;
8601 hr = IXMLDOMDocument_createNode(doc3, v, _bstr_("cdata"), NULL, &cdata);
8602 ok(hr == S_OK, "got 0x%08x\n", hr);
8603 ok(cdata != NULL, "got %p\n", cdata);
8604
8605 EXPECT_NO_CHILDREN(cdata);
8606
8607 /* attribute to cdata */
8608 V_VT(&v) = VT_NULL;
8609 node = (void*)0xdeadbeef;
8610 hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)attr, v, &node);
8611 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8612 ok(node == NULL, "got %p\n", node);
8613
8614 /* document to cdata */
8615 V_VT(&v) = VT_NULL;
8616 node = (void*)0xdeadbeef;
8617 hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)doc, v, &node);
8618 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8619 ok(node == NULL, "got %p\n", node);
8620
8621 V_VT(&v) = VT_NULL;
8622 node = (void*)0xdeadbeef;
8623 hr = IXMLDOMDocument_insertBefore(doc3, cdata, v, &node);
8624 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8625 ok(node == NULL, "got %p\n", node);
8626
8627 IXMLDOMNode_Release(cdata);
8628 IXMLDOMDocument_Release(doc3);
8629
8630 /* attribute to attribute */
8631 V_VT(&v) = VT_I4;
8632 V_I4(&v) = NODE_ATTRIBUTE;
8633 newnode = NULL;
8634 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr2"), NULL, &newnode);
8635 ok(hr == S_OK, "got 0x%08x\n", hr);
8636 ok(newnode != NULL, "got %p\n", newnode);
8637
8638 V_VT(&v) = VT_NULL;
8639 node = (void*)0xdeadbeef;
8640 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8641 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8642 ok(node == NULL, "got %p\n", node);
8643
8644 V_VT(&v) = VT_UNKNOWN;
8645 V_UNKNOWN(&v) = (IUnknown*)attr;
8646 node = (void*)0xdeadbeef;
8647 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8648 todo_wine ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8649 ok(node == NULL, "got %p\n", node);
8650 IXMLDOMNode_Release(newnode);
8651
8652 /* cdata to attribute */
8653 V_VT(&v) = VT_I4;
8654 V_I4(&v) = NODE_CDATA_SECTION;
8655 newnode = NULL;
8656 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8657 ok(hr == S_OK, "got 0x%08x\n", hr);
8658 ok(newnode != NULL, "got %p\n", newnode);
8659
8660 V_VT(&v) = VT_NULL;
8661 node = (void*)0xdeadbeef;
8662 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8663 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8664 ok(node == NULL, "got %p\n", node);
8665 IXMLDOMNode_Release(newnode);
8666
8667 /* comment to attribute */
8668 V_VT(&v) = VT_I4;
8669 V_I4(&v) = NODE_COMMENT;
8670 newnode = NULL;
8671 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8672 ok(hr == S_OK, "got 0x%08x\n", hr);
8673 ok(newnode != NULL, "got %p\n", newnode);
8674
8675 V_VT(&v) = VT_NULL;
8676 node = (void*)0xdeadbeef;
8677 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8678 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8679 ok(node == NULL, "got %p\n", node);
8680 IXMLDOMNode_Release(newnode);
8681
8682 /* element to attribute */
8683 V_VT(&v) = VT_I4;
8684 V_I4(&v) = NODE_ELEMENT;
8685 newnode = NULL;
8686 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8687 ok(hr == S_OK, "got 0x%08x\n", hr);
8688 ok(newnode != NULL, "got %p\n", newnode);
8689
8690 V_VT(&v) = VT_NULL;
8691 node = (void*)0xdeadbeef;
8692 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8693 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8694 ok(node == NULL, "got %p\n", node);
8695 IXMLDOMNode_Release(newnode);
8696
8697 /* pi to attribute */
8698 V_VT(&v) = VT_I4;
8699 V_I4(&v) = NODE_PROCESSING_INSTRUCTION;
8700 newnode = NULL;
8701 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8702 ok(hr == S_OK, "got 0x%08x\n", hr);
8703 ok(newnode != NULL, "got %p\n", newnode);
8704
8705 V_VT(&v) = VT_NULL;
8706 node = (void*)0xdeadbeef;
8707 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8708 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8709 ok(node == NULL, "got %p\n", node);
8710 IXMLDOMNode_Release(newnode);
8711 IXMLDOMAttribute_Release(attr);
8712
8713 /* insertBefore for elements */
8714 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem1);
8715 ok(hr == S_OK, "got 0x%08x\n", hr);
8716
8717 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem2"), &elem2);
8718 ok(hr == S_OK, "got 0x%08x\n", hr);
8719
8720 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8721 ok(hr == S_OK, "got 0x%08x\n", hr);
8722
8723 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8724 ok(hr == S_OK, "got 0x%08x\n", hr);
8725
8726 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem4"), &elem4);
8727 ok(hr == S_OK, "got 0x%08x\n", hr);
8728
8729 EXPECT_NO_CHILDREN(elem1);
8730 EXPECT_NO_CHILDREN(elem2);
8731 EXPECT_NO_CHILDREN(elem3);
8732
8733 todo_wine EXPECT_REF(elem2, 2);
8734
8735 /* document to element */
8736 V_VT(&v) = VT_DISPATCH;
8737 V_DISPATCH(&v) = NULL;
8738 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)doc, v, NULL);
8739 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8740
8741 V_VT(&v) = VT_DISPATCH;
8742 V_DISPATCH(&v) = NULL;
8743 node = NULL;
8744 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem4, v, &node);
8745 ok(hr == S_OK, "got 0x%08x\n", hr);
8746 ok(node == (void*)elem4, "got %p\n", node);
8747
8748 EXPECT_CHILDREN(elem1);
8749 hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem4, NULL);
8750 EXPECT_HR(hr, S_OK);
8751 IXMLDOMElement_Release(elem4);
8752
8753 EXPECT_NO_CHILDREN(elem1);
8754
8755 V_VT(&v) = VT_NULL;
8756 node = NULL;
8757 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8758 ok(hr == S_OK, "got 0x%08x\n", hr);
8759 ok(node == (void*)elem2, "got %p\n", node);
8760
8761 EXPECT_CHILDREN(elem1);
8762 todo_wine EXPECT_REF(elem2, 3);
8763 IXMLDOMNode_Release(node);
8764
8765 /* again for already linked node */
8766 V_VT(&v) = VT_NULL;
8767 node = NULL;
8768 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8769 ok(hr == S_OK, "got 0x%08x\n", hr);
8770 ok(node == (void*)elem2, "got %p\n", node);
8771
8772 EXPECT_CHILDREN(elem1);
8773
8774 /* increments each time */
8775 todo_wine EXPECT_REF(elem2, 3);
8776 IXMLDOMNode_Release(node);
8777
8778 /* try to add to another element */
8779 V_VT(&v) = VT_NULL;
8780 node = (void*)0xdeadbeef;
8781 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem2, v, &node);
8782 ok(hr == S_OK, "got 0x%08x\n", hr);
8783 ok(node == (void*)elem2, "got %p\n", node);
8784
8785 EXPECT_CHILDREN(elem3);
8786 EXPECT_NO_CHILDREN(elem1);
8787
8788 IXMLDOMNode_Release(node);
8789
8790 /* cross document case - try to add as child to a node created with other doc */
8791 doc2 = create_document(&IID_IXMLDOMDocument);
8792
8793 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem4);
8794 ok(hr == S_OK, "got 0x%08x\n", hr);
8795 todo_wine EXPECT_REF(elem4, 2);
8796
8797 /* same name, another instance */
8798 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem5);
8799 ok(hr == S_OK, "got 0x%08x\n", hr);
8800 todo_wine EXPECT_REF(elem5, 2);
8801
8802 todo_wine EXPECT_REF(elem3, 2);
8803 V_VT(&v) = VT_NULL;
8804 node = NULL;
8805 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem4, v, &node);
8806 ok(hr == S_OK, "got 0x%08x\n", hr);
8807 ok(node == (void*)elem4, "got %p\n", node);
8808 todo_wine EXPECT_REF(elem4, 3);
8809 todo_wine EXPECT_REF(elem3, 2);
8810 IXMLDOMNode_Release(node);
8811
8812 V_VT(&v) = VT_NULL;
8813 node = NULL;
8814 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem5, v, &node);
8815 ok(hr == S_OK, "got 0x%08x\n", hr);
8816 ok(node == (void*)elem5, "got %p\n", node);
8817 todo_wine EXPECT_REF(elem4, 2);
8818 todo_wine EXPECT_REF(elem5, 3);
8819 IXMLDOMNode_Release(node);
8820
8821 IXMLDOMDocument_Release(doc2);
8822
8823 IXMLDOMElement_Release(elem1);
8824 IXMLDOMElement_Release(elem2);
8825 IXMLDOMElement_Release(elem3);
8826 IXMLDOMElement_Release(elem4);
8827 IXMLDOMElement_Release(elem5);
8828
8829 /* elements with same default namespace */
8830 V_VT(&v) = VT_I4;
8831 V_I4(&v) = NODE_ELEMENT;
8832 elem1 = NULL;
8833 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8834 ok(hr == S_OK, "got 0x%08x\n", hr);
8835 ok(elem1 != NULL, "got %p\n", elem1);
8836
8837 V_VT(&v) = VT_I4;
8838 V_I4(&v) = NODE_ELEMENT;
8839 elem2 = NULL;
8840 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem2);
8841 ok(hr == S_OK, "got 0x%08x\n", hr);
8842 ok(elem2 != NULL, "got %p\n", elem2);
8843
8844 /* check contents so far */
8845 p = NULL;
8846 hr = IXMLDOMElement_get_xml(elem1, &p);
8847 ok(hr == S_OK, "got 0x%08x\n", hr);
8848 ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8849 SysFreeString(p);
8850
8851 p = NULL;
8852 hr = IXMLDOMElement_get_xml(elem2, &p);
8853 ok(hr == S_OK, "got 0x%08x\n", hr);
8854 ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8855 SysFreeString(p);
8856
8857 V_VT(&v) = VT_NULL;
8858 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8859 ok(hr == S_OK, "got 0x%08x\n", hr);
8860
8861 /* get_xml depends on context, for top node it omits child namespace attribute,
8862 but at child level it's still returned */
8863 p = NULL;
8864 hr = IXMLDOMElement_get_xml(elem1, &p);
8865 ok(hr == S_OK, "got 0x%08x\n", hr);
8866 todo_wine ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"><elem2/></elem1>")),
8867 "got %s\n", wine_dbgstr_w(p));
8868 SysFreeString(p);
8869
8870 p = NULL;
8871 hr = IXMLDOMElement_get_xml(elem2, &p);
8872 ok(hr == S_OK, "got 0x%08x\n", hr);
8873 ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8874 SysFreeString(p);
8875
8876 IXMLDOMElement_Release(elem1);
8877 IXMLDOMElement_Release(elem2);
8878
8879 /* child without default namespace added to node with default namespace */
8880 V_VT(&v) = VT_I4;
8881 V_I4(&v) = NODE_ELEMENT;
8882 elem1 = NULL;
8883 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8884 ok(hr == S_OK, "got 0x%08x\n", hr);
8885 ok(elem1 != NULL, "got %p\n", elem1);
8886
8887 V_VT(&v) = VT_I4;
8888 V_I4(&v) = NODE_ELEMENT;
8889 elem2 = NULL;
8890 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), NULL, (IXMLDOMNode**)&elem2);
8891 ok(hr == S_OK, "got 0x%08x\n", hr);
8892 ok(elem2 != NULL, "got %p\n", elem2);
8893
8894 EXPECT_REF(elem2, 1);
8895 V_VT(&v) = VT_NULL;
8896 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8897 ok(hr == S_OK, "got 0x%08x\n", hr);
8898 EXPECT_REF(elem2, 1);
8899
8900 p = NULL;
8901 hr = IXMLDOMElement_get_xml(elem2, &p);
8902 ok(hr == S_OK, "got 0x%08x\n", hr);
8903 ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8904 SysFreeString(p);
8905
8906 hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem2, NULL);
8907 ok(hr == S_OK, "got 0x%08x\n", hr);
8908
8909 p = NULL;
8910 hr = IXMLDOMElement_get_xml(elem2, &p);
8911 ok(hr == S_OK, "got 0x%08x\n", hr);
8912 ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8913 SysFreeString(p);
8914
8915 IXMLDOMElement_Release(elem1);
8916 IXMLDOMElement_Release(elem2);
8917 IXMLDOMDocument_Release(doc);
8918 }
8919
8920 static void test_appendChild(void)
8921 {
8922 IXMLDOMDocument *doc, *doc2;
8923 IXMLDOMElement *elem, *elem2;
8924 HRESULT hr;
8925
8926 doc = create_document(&IID_IXMLDOMDocument);
8927 doc2 = create_document(&IID_IXMLDOMDocument);
8928
8929 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
8930 ok(hr == S_OK, "got 0x%08x\n", hr);
8931
8932 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem2"), &elem2);
8933 ok(hr == S_OK, "got 0x%08x\n", hr);
8934
8935 EXPECT_REF(doc, 1);
8936 todo_wine EXPECT_REF(elem, 2);
8937 EXPECT_REF(doc2, 1);
8938 todo_wine EXPECT_REF(elem2, 2);
8939 EXPECT_NO_CHILDREN(doc);
8940 EXPECT_NO_CHILDREN(doc2);
8941
8942 hr = IXMLDOMDocument_appendChild(doc2, NULL, NULL);
8943 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8944
8945 hr = IXMLDOMElement_appendChild(elem, NULL, NULL);
8946 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8947
8948 /* append from another document */
8949 hr = IXMLDOMDocument_appendChild(doc2, (IXMLDOMNode*)elem, NULL);
8950 ok(hr == S_OK, "got 0x%08x\n", hr);
8951
8952 EXPECT_REF(doc, 1);
8953 todo_wine EXPECT_REF(elem, 2);
8954 EXPECT_REF(doc2, 1);
8955 todo_wine EXPECT_REF(elem2, 2);
8956 EXPECT_NO_CHILDREN(doc);
8957 EXPECT_CHILDREN(doc2);
8958
8959 IXMLDOMElement_Release(elem);
8960 IXMLDOMElement_Release(elem2);
8961 IXMLDOMDocument_Release(doc);
8962 IXMLDOMDocument_Release(doc2);
8963 }
8964
8965 static void test_get_doctype(void)
8966 {
8967 static const WCHAR emailW[] = {'e','m','a','i','l',0};
8968 IXMLDOMDocumentType *doctype;
8969 IXMLDOMDocument *doc;
8970 VARIANT_BOOL b;
8971 HRESULT hr;
8972 BSTR s;
8973
8974 doc = create_document(&IID_IXMLDOMDocument);
8975
8976 hr = IXMLDOMDocument_get_doctype(doc, NULL);
8977 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8978
8979 doctype = (void*)0xdeadbeef;
8980 hr = IXMLDOMDocument_get_doctype(doc, &doctype);
8981 ok(hr == S_FALSE, "got 0x%08x\n", hr);
8982 ok(doctype == NULL, "got %p\n", doctype);
8983
8984 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szEmailXML), &b);
8985 ok(hr == S_OK, "got 0x%08x\n", hr);
8986 ok(b == VARIANT_TRUE, "failed to load XML string\n");
8987
8988 doctype = NULL;
8989 hr = IXMLDOMDocument_get_doctype(doc, &doctype);
8990 ok(hr == S_OK, "got 0x%08x\n", hr);
8991 ok(doctype != NULL, "got %p\n", doctype);
8992
8993 hr = IXMLDOMDocumentType_get_name(doctype, NULL);
8994 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8995
8996 hr = IXMLDOMDocumentType_get_name(doctype, &s);
8997 ok(hr == S_OK, "got 0x%08x\n", hr);
8998 ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
8999 SysFreeString(s);
9000
9001 hr = IXMLDOMDocumentType_get_nodeName(doctype, &s);
9002 ok(hr == S_OK, "got 0x%08x\n", hr);
9003 ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
9004 SysFreeString(s);
9005
9006 IXMLDOMDocumentType_Release(doctype);
9007 IXMLDOMDocument_Release(doc);
9008 }
9009
9010 static void test_get_tagName(void)
9011 {
9012 IXMLDOMDocument *doc;
9013 IXMLDOMElement *elem, *elem2;
9014 HRESULT hr;
9015 BSTR str;
9016
9017 doc = create_document(&IID_IXMLDOMDocument);
9018
9019 hr = IXMLDOMDocument_createElement(doc, _bstr_("element"), &elem);
9020 ok(hr == S_OK, "got 0x%08x\n", hr);
9021
9022 hr = IXMLDOMElement_get_tagName(elem, NULL);
9023 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9024
9025 str = NULL;
9026 hr = IXMLDOMElement_get_tagName(elem, &str);
9027 ok(hr == S_OK, "got 0x%08x\n", hr);
9028 ok(!lstrcmpW(str, _bstr_("element")), "got %s\n", wine_dbgstr_w(str));
9029 SysFreeString(str);
9030
9031 hr = IXMLDOMDocument_createElement(doc, _bstr_("s:element"), &elem2);
9032 ok(hr == S_OK, "got 0x%08x\n", hr);
9033
9034 str = NULL;
9035 hr = IXMLDOMElement_get_tagName(elem2, &str);
9036 ok(hr == S_OK, "got 0x%08x\n", hr);
9037 ok(!lstrcmpW(str, _bstr_("s:element")), "got %s\n", wine_dbgstr_w(str));
9038 SysFreeString(str);
9039
9040 IXMLDOMElement_Release(elem);
9041 IXMLDOMElement_Release(elem2);
9042 IXMLDOMDocument_Release(doc);
9043 free_bstrs();
9044 }
9045
9046 typedef struct {
9047 DOMNodeType type;
9048 const char *name;
9049 VARTYPE vt;
9050 HRESULT hr;
9051 } node_type_t;
9052
9053 static const node_type_t get_datatype[] = {
9054 { NODE_ELEMENT, "element", VT_NULL, S_FALSE },
9055 { NODE_ATTRIBUTE, "attr", VT_NULL, S_FALSE },
9056 { NODE_TEXT, "text", VT_NULL, S_FALSE },
9057 { NODE_CDATA_SECTION , "cdata", VT_NULL, S_FALSE },
9058 { NODE_ENTITY_REFERENCE, "entityref", VT_NULL, S_FALSE },
9059 { NODE_PROCESSING_INSTRUCTION, "pi", VT_NULL, S_FALSE },
9060 { NODE_COMMENT, "comment", VT_NULL, S_FALSE },
9061 { NODE_DOCUMENT_FRAGMENT, "docfrag", VT_NULL, S_FALSE },
9062 { 0 }
9063 };
9064
9065 static void test_get_dataType(void)
9066 {
9067 const node_type_t *entry = get_datatype;
9068 IXMLDOMDocument *doc;
9069
9070 doc = create_document(&IID_IXMLDOMDocument);
9071
9072 while (entry->type)
9073 {
9074 IXMLDOMNode *node = NULL;
9075 VARIANT var, type;
9076 HRESULT hr;
9077
9078 V_VT(&var) = VT_I4;
9079 V_I4(&var) = entry->type;
9080 hr = IXMLDOMDocument_createNode(doc, var, _bstr_(entry->name), NULL, &node);
9081 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9082
9083 hr = IXMLDOMNode_get_dataType(node, NULL);
9084 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9085
9086 VariantInit(&type);
9087 hr = IXMLDOMNode_get_dataType(node, &type);
9088 ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9089 hr, entry->hr, entry->type);
9090 ok(V_VT(&type) == entry->vt, "got %d, expected %d. node type %d\n",
9091 V_VT(&type), entry->vt, entry->type);
9092 VariantClear(&type);
9093
9094 IXMLDOMNode_Release(node);
9095
9096 entry++;
9097 }
9098
9099 IXMLDOMDocument_Release(doc);
9100 free_bstrs();
9101 }
9102
9103 typedef struct _get_node_typestring_t {
9104 DOMNodeType type;
9105 const char *string;
9106 } get_node_typestring_t;
9107
9108 static const get_node_typestring_t get_node_typestring[] = {
9109 { NODE_ELEMENT, "element" },
9110 { NODE_ATTRIBUTE, "attribute" },
9111 { NODE_TEXT, "text" },
9112 { NODE_CDATA_SECTION , "cdatasection" },
9113 { NODE_ENTITY_REFERENCE, "entityreference" },
9114 { NODE_PROCESSING_INSTRUCTION, "processinginstruction" },
9115 { NODE_COMMENT, "comment" },
9116 { NODE_DOCUMENT_FRAGMENT, "documentfragment" },
9117 { 0 }
9118 };
9119
9120 static void test_get_nodeTypeString(void)
9121 {
9122 const get_node_typestring_t *entry = get_node_typestring;
9123 IXMLDOMDocument *doc;
9124 HRESULT hr;
9125 BSTR str;
9126
9127 doc = create_document(&IID_IXMLDOMDocument);
9128
9129 hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
9130 ok(hr == S_OK, "got 0x%08x\n", hr);
9131 ok(!lstrcmpW(str, _bstr_("document")), "got string %s\n", wine_dbgstr_w(str));
9132 SysFreeString(str);
9133
9134 while (entry->type)
9135 {
9136 IXMLDOMNode *node = NULL;
9137 VARIANT var;
9138
9139 V_VT(&var) = VT_I4;
9140 V_I4(&var) = entry->type;
9141 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9142 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9143
9144 hr = IXMLDOMNode_get_nodeTypeString(node, NULL);
9145 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9146
9147 hr = IXMLDOMNode_get_nodeTypeString(node, &str);
9148 ok(hr == S_OK, "got 0x%08x\n", hr);
9149 ok(!lstrcmpW(str, _bstr_(entry->string)), "got string %s, expected %s. node type %d\n",
9150 wine_dbgstr_w(str), entry->string, entry->type);
9151 SysFreeString(str);
9152 IXMLDOMNode_Release(node);
9153
9154 entry++;
9155 }
9156
9157 IXMLDOMDocument_Release(doc);
9158 free_bstrs();
9159 }
9160
9161 typedef struct _get_attributes_t {
9162 DOMNodeType type;
9163 HRESULT hr;
9164 } get_attributes_t;
9165
9166 static const get_attributes_t get_attributes[] = {
9167 { NODE_ATTRIBUTE, S_FALSE },
9168 { NODE_TEXT, S_FALSE },
9169 { NODE_CDATA_SECTION , S_FALSE },
9170 { NODE_ENTITY_REFERENCE, S_FALSE },
9171 { NODE_PROCESSING_INSTRUCTION, S_FALSE },
9172 { NODE_COMMENT, S_FALSE },
9173 { NODE_DOCUMENT_FRAGMENT, S_FALSE },
9174 { 0 }
9175 };
9176
9177 static void test_get_attributes(void)
9178 {
9179 const get_attributes_t *entry = get_attributes;
9180 IXMLDOMNamedNodeMap *map;
9181 IXMLDOMDocument *doc;
9182 IXMLDOMNode *node, *node2;
9183 VARIANT_BOOL b;
9184 HRESULT hr;
9185 BSTR str;
9186 LONG length;
9187
9188 doc = create_document(&IID_IXMLDOMDocument);
9189
9190 hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
9191 ok(hr == S_OK, "got %08x\n", hr);
9192
9193 hr = IXMLDOMDocument_get_attributes(doc, NULL);
9194 ok(hr == E_INVALIDARG, "got %08x\n", hr);
9195
9196 map = (void*)0xdeadbeef;
9197 hr = IXMLDOMDocument_get_attributes(doc, &map);
9198 ok(hr == S_FALSE, "got %08x\n", hr);
9199 ok(map == NULL, "got %p\n", map);
9200
9201 /* first child is <?xml ?> */
9202 hr = IXMLDOMDocument_get_firstChild(doc, &node);
9203 ok(hr == S_OK, "got %08x\n", hr);
9204
9205 hr = IXMLDOMNode_get_attributes(node, &map);
9206 ok(hr == S_OK, "got %08x\n", hr);
9207
9208 node2 = (void*)0xdeadbeef;
9209 hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_("attr"), &node2);
9210 ok(hr == S_FALSE, "got %08x\n", hr);
9211 ok(node2 == NULL, "got %p\n", node2);
9212
9213 length = -1;
9214 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9215 EXPECT_HR(hr, S_OK);
9216 todo_wine ok(length == 1, "got %d\n", length);
9217
9218 if (hr == S_OK && length == 1)
9219 {
9220 IXMLDOMAttribute *attr;
9221 DOMNodeType type;
9222 VARIANT v;
9223
9224 node2 = NULL;
9225 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9226 EXPECT_HR(hr, S_OK);
9227 ok(node != NULL, "got %p\n", node2);
9228
9229 hr = IXMLDOMNode_get_nodeName(node2, &str);
9230 EXPECT_HR(hr, S_OK);
9231 ok(!lstrcmpW(str, _bstr_("version")), "got %s\n", wine_dbgstr_w(str));
9232 SysFreeString(str);
9233
9234 length = -1;
9235 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9236 EXPECT_HR(hr, S_OK);
9237 ok(length == 1, "got %d\n", length);
9238
9239 type = -1;
9240 hr = IXMLDOMNode_get_nodeType(node2, &type);
9241 EXPECT_HR(hr, S_OK);
9242 ok(type == NODE_ATTRIBUTE, "got %d\n", type);
9243
9244 hr = IXMLDOMNode_get_xml(node, &str);
9245 EXPECT_HR(hr, S_OK);
9246 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9247 SysFreeString(str);
9248
9249 hr = IXMLDOMNode_get_text(node, &str);
9250 EXPECT_HR(hr, S_OK);
9251 ok(!lstrcmpW(str, _bstr_("version=\"1.0\"")), "got %s\n", wine_dbgstr_w(str));
9252 SysFreeString(str);
9253
9254 hr = IXMLDOMNamedNodeMap_removeNamedItem(map, _bstr_("version"), NULL);
9255 EXPECT_HR(hr, S_OK);
9256
9257 length = -1;
9258 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9259 EXPECT_HR(hr, S_OK);
9260 ok(length == 0, "got %d\n", length);
9261
9262 hr = IXMLDOMNode_get_xml(node, &str);
9263 EXPECT_HR(hr, S_OK);
9264 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9265 SysFreeString(str);
9266
9267 hr = IXMLDOMNode_get_text(node, &str);
9268 EXPECT_HR(hr, S_OK);
9269 ok(!lstrcmpW(str, _bstr_("")), "got %s\n", wine_dbgstr_w(str));
9270 SysFreeString(str);
9271
9272 IXMLDOMNamedNodeMap_Release(map);
9273
9274 hr = IXMLDOMNode_get_attributes(node, &map);
9275 ok(hr == S_OK, "got %08x\n", hr);
9276
9277 length = -1;
9278 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9279 EXPECT_HR(hr, S_OK);
9280 ok(length == 0, "got %d\n", length);
9281
9282 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("encoding"), &attr);
9283 EXPECT_HR(hr, S_OK);
9284
9285 V_VT(&v) = VT_BSTR;
9286 V_BSTR(&v) = _bstr_("UTF-8");
9287 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
9288 EXPECT_HR(hr, S_OK);
9289
9290 EXPECT_REF(attr, 2);
9291 hr = IXMLDOMNamedNodeMap_setNamedItem(map, (IXMLDOMNode*)attr, NULL);
9292 EXPECT_HR(hr, S_OK);
9293 EXPECT_REF(attr, 2);
9294
9295 hr = IXMLDOMNode_get_attributes(node, &map);
9296 ok(hr == S_OK, "got %08x\n", hr);
9297
9298 length = -1;
9299 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9300 EXPECT_HR(hr, S_OK);
9301 ok(length == 1, "got %d\n", length);
9302
9303 hr = IXMLDOMNode_get_xml(node, &str);
9304 EXPECT_HR(hr, S_OK);
9305 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9306 SysFreeString(str);
9307
9308 hr = IXMLDOMNode_get_text(node, &str);
9309 EXPECT_HR(hr, S_OK);
9310 ok(!lstrcmpW(str, _bstr_("encoding=\"UTF-8\"")), "got %s\n", wine_dbgstr_w(str));
9311 SysFreeString(str);
9312
9313 IXMLDOMNamedNodeMap_Release(map);
9314 IXMLDOMNode_Release(node2);
9315 }
9316
9317 IXMLDOMNode_Release(node);
9318
9319 /* last child is element */
9320 EXPECT_REF(doc, 1);
9321 hr = IXMLDOMDocument_get_lastChild(doc, &node);
9322 ok(hr == S_OK, "got %08x\n", hr);
9323 EXPECT_REF(doc, 1);
9324
9325 EXPECT_REF(node, 1);
9326 hr = IXMLDOMNode_get_attributes(node, &map);
9327 ok(hr == S_OK, "got %08x\n", hr);
9328 EXPECT_REF(node, 1);
9329 EXPECT_REF(doc, 1);
9330
9331 EXPECT_REF(map, 1);
9332 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9333 ok(hr == S_OK, "got %08x\n", hr);
9334 EXPECT_REF(node, 1);
9335 EXPECT_REF(node2, 1);
9336 EXPECT_REF(map, 1);
9337 EXPECT_REF(doc, 1);
9338 IXMLDOMNode_Release(node2);
9339
9340 /* release node before map release, map still works */
9341 IXMLDOMNode_Release(node);
9342
9343 length = 0;
9344 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9345 ok(hr == S_OK, "got %08x\n", hr);
9346 ok(length == 1, "got %d\n", length);
9347
9348 node2 = NULL;
9349 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9350 ok(hr == S_OK, "got %08x\n", hr);
9351 EXPECT_REF(node2, 1);
9352 IXMLDOMNode_Release(node2);
9353
9354 IXMLDOMNamedNodeMap_Release(map);
9355
9356 while (entry->type)
9357 {
9358 VARIANT var;
9359
9360 node = NULL;
9361
9362 V_VT(&var) = VT_I4;
9363 V_I4(&var) = entry->type;
9364 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9365 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9366
9367 hr = IXMLDOMNode_get_attributes(node, NULL);
9368 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9369
9370 map = (void*)0xdeadbeef;
9371 hr = IXMLDOMNode_get_attributes(node, &map);
9372 ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9373 hr, entry->hr, entry->type);
9374 ok(map == NULL, "got %p\n", map);
9375
9376 IXMLDOMNode_Release(node);
9377
9378 entry++;
9379 }
9380
9381 IXMLDOMDocument_Release(doc);
9382 free_bstrs();
9383 }
9384
9385 static void test_selection(void)
9386 {
9387 IXMLDOMSelection *selection, *selection2;
9388 IEnumVARIANT *enum1, *enum2, *enum3;
9389 IXMLDOMNodeList *list;
9390 IUnknown *unk1, *unk2;
9391 IXMLDOMDocument *doc;
9392 IDispatchEx *dispex;
9393 IXMLDOMNode *node;
9394 IDispatch *disp;
9395 VARIANT_BOOL b;
9396 HRESULT hr;
9397 DISPID did;
9398 VARIANT v;
9399 BSTR name;
9400 ULONG ret;
9401 LONG len;
9402
9403 doc = create_document(&IID_IXMLDOMDocument);
9404
9405 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9406 EXPECT_HR(hr, S_OK);
9407
9408 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list);
9409 EXPECT_HR(hr, S_OK);
9410
9411 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9412 EXPECT_HR(hr, S_OK);
9413 IXMLDOMSelection_Release(selection);
9414
9415 /* collection disp id */
9416 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IDispatchEx, (void**)&dispex);
9417 EXPECT_HR(hr, S_OK);
9418 did = 0;
9419 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
9420 EXPECT_HR(hr, S_OK);
9421 ok(did == DISPID_DOM_COLLECTION_BASE, "got %d\n", did);
9422 len = 0;
9423 hr = IXMLDOMSelection_get_length(selection, &len);
9424 EXPECT_HR(hr, S_OK);
9425 ok(len == 1, "got %d\n", len);
9426 hr = IDispatchEx_GetDispID(dispex, _bstr_("10"), 0, &did);
9427 EXPECT_HR(hr, S_OK);
9428 ok(did == DISPID_DOM_COLLECTION_BASE+10, "got %d\n", did);
9429 IDispatchEx_Release(dispex);
9430
9431 /* IEnumVARIANT tests */
9432 enum1 = NULL;
9433 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum1);
9434 EXPECT_HR(hr, S_OK);
9435 ok(enum1 != NULL, "got %p\n", enum1);
9436 EXPECT_REF(enum1, 2);
9437
9438 EXPECT_REF(selection, 1);
9439 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IUnknown, (void**)&unk1);
9440 EXPECT_HR(hr, S_OK);
9441 EXPECT_REF(selection, 2);
9442 EXPECT_REF(enum1, 2);
9443
9444 /* enumerator and selection object return same IUnknown* */
9445 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
9446 EXPECT_HR(hr, S_OK);
9447 EXPECT_REF(selection, 3);
9448 EXPECT_REF(enum1, 2);
9449 ok(unk2 == unk1, "got %p, %p\n", unk1, unk2);
9450 IUnknown_Release(unk2);
9451
9452 EXPECT_REF(selection, 2);
9453 IEnumVARIANT_AddRef(enum1);
9454 EXPECT_REF(selection, 2);
9455 IEnumVARIANT_Release(enum1);
9456
9457 enum3 = NULL;
9458 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum3);
9459 EXPECT_HR(hr, S_OK);
9460 ok(enum3 != NULL, "got %p\n", enum3);
9461 ok(enum1 == enum3, "got %p and %p\n", enum1, enum3);
9462 EXPECT_REF(enum1, 3);
9463 IEnumVARIANT_Release(enum3);
9464
9465 EXPECT_REF(selection, 2);
9466 EXPECT_REF(enum1, 2);
9467
9468 enum2 = NULL;
9469 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9470 EXPECT_HR(hr, S_OK);
9471 ok(enum2 != NULL, "got %p\n", enum2);
9472
9473 EXPECT_REF(selection, 3);
9474 EXPECT_REF(enum1, 2);
9475 EXPECT_REF(enum2, 1);
9476
9477 ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9478
9479 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
9480 EXPECT_HR(hr, S_OK);
9481 EXPECT_REF(selection, 3);
9482 EXPECT_REF(enum2, 2);
9483 ok(unk2 != unk1, "got %p, %p\n", unk1, unk2);
9484 IUnknown_Release(unk2);
9485 IUnknown_Release(unk1);
9486
9487 selection2 = NULL;
9488 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IXMLDOMSelection, (void**)&selection2);
9489 EXPECT_HR(hr, S_OK);
9490 ok(selection2 == selection, "got %p and %p\n", selection, selection2);
9491 EXPECT_REF(selection, 3);
9492 EXPECT_REF(enum1, 2);
9493
9494 IXMLDOMSelection_Release(selection2);
9495
9496 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IDispatch, (void**)&disp);
9497 EXPECT_HR(hr, S_OK);
9498 EXPECT_REF(selection, 3);
9499 IDispatch_Release(disp);
9500
9501 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IEnumVARIANT, (void**)&enum3);
9502 EXPECT_HR(hr, S_OK);
9503 ok(enum3 == enum1, "got %p and %p\n", enum3, enum1);
9504 EXPECT_REF(selection, 2);
9505 EXPECT_REF(enum1, 3);
9506
9507 IEnumVARIANT_Release(enum1);
9508 IEnumVARIANT_Release(enum2);
9509 IEnumVARIANT_Release(enum3);
9510
9511 enum1 = NULL;
9512 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9513 EXPECT_HR(hr, S_OK);
9514 ok(enum1 != NULL, "got %p\n", enum1);
9515 EXPECT_REF(enum1, 1);
9516 EXPECT_REF(selection, 2);
9517
9518 enum2 = NULL;
9519 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9520 EXPECT_HR(hr, S_OK);
9521 ok(enum2 != NULL, "got %p\n", enum2);
9522 EXPECT_REF(enum2, 1);
9523 EXPECT_REF(selection, 3);
9524
9525 ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9526
9527 IEnumVARIANT_AddRef(enum1);
9528 EXPECT_REF(selection, 3);
9529 EXPECT_REF(enum1, 2);
9530 EXPECT_REF(enum2, 1);
9531 IEnumVARIANT_Release(enum1);
9532
9533 IEnumVARIANT_Release(enum1);
9534 IEnumVARIANT_Release(enum2);
9535
9536 EXPECT_REF(selection, 1);
9537
9538 IXMLDOMNodeList_Release(list);
9539
9540 hr = IXMLDOMDocument_get_childNodes(doc, &list);
9541 EXPECT_HR(hr, S_OK);
9542
9543 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9544 EXPECT_HR(hr, E_NOINTERFACE);
9545
9546 IXMLDOMNodeList_Release(list);
9547
9548 /* test if IEnumVARIANT touches selection context */
9549 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
9550 EXPECT_HR(hr, S_OK);
9551
9552 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/*"), &list);
9553 EXPECT_HR(hr, S_OK);
9554
9555 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9556 EXPECT_HR(hr, S_OK);
9557
9558 len = 0;
9559 hr = IXMLDOMSelection_get_length(selection, &len);
9560 EXPECT_HR(hr, S_OK);
9561 ok(len == 4, "got %d\n", len);
9562
9563 enum1 = NULL;
9564 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9565 EXPECT_HR(hr, S_OK);
9566
9567 /* no-op if zero count */
9568 V_VT(&v) = VT_I2;
9569 hr = IEnumVARIANT_Next(enum1, 0, &v, NULL);
9570 EXPECT_HR(hr, S_OK);
9571 ok(V_VT(&v) == VT_I2, "got var type %d\n", V_VT(&v));
9572
9573 /* positive count, null array pointer */
9574 hr = IEnumVARIANT_Next(enum1, 1, NULL, NULL);
9575 EXPECT_HR(hr, E_INVALIDARG);
9576
9577 ret = 1;
9578 hr = IEnumVARIANT_Next(enum1, 1, NULL, &ret);
9579 EXPECT_HR(hr, E_INVALIDARG);
9580 ok(ret == 0, "got %d\n", ret);
9581
9582 V_VT(&v) = VT_I2;
9583 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9584 EXPECT_HR(hr, S_OK);
9585 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9586
9587 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9588 EXPECT_HR(hr, S_OK);
9589 hr = IXMLDOMNode_get_nodeName(node, &name);
9590 EXPECT_HR(hr, S_OK);
9591 ok(!lstrcmpW(name, _bstr_("a")), "got node name %s\n", wine_dbgstr_w(name));
9592 SysFreeString(name);
9593 IXMLDOMNode_Release(node);
9594 VariantClear(&v);
9595
9596 /* list cursor is updated */
9597 hr = IXMLDOMSelection_nextNode(selection, &node);
9598 EXPECT_HR(hr, S_OK);
9599 hr = IXMLDOMNode_get_nodeName(node, &name);
9600 EXPECT_HR(hr, S_OK);
9601 ok(!lstrcmpW(name, _bstr_("c")), "got node name %s\n", wine_dbgstr_w(name));
9602 IXMLDOMNode_Release(node);
9603 SysFreeString(name);
9604
9605 V_VT(&v) = VT_I2;
9606 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9607 EXPECT_HR(hr, S_OK);
9608 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9609 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9610 EXPECT_HR(hr, S_OK);
9611 hr = IXMLDOMNode_get_nodeName(node, &name);
9612 EXPECT_HR(hr, S_OK);
9613 ok(!lstrcmpW(name, _bstr_("b")), "got node name %s\n", wine_dbgstr_w(name));
9614 SysFreeString(name);
9615 IXMLDOMNode_Release(node);
9616 VariantClear(&v);
9617 IEnumVARIANT_Release(enum1);
9618
9619 hr = IXMLDOMSelection_nextNode(selection, &node);
9620 EXPECT_HR(hr, S_OK);
9621 hr = IXMLDOMNode_get_nodeName(node, &name);
9622 EXPECT_HR(hr, S_OK);
9623 ok(!lstrcmpW(name, _bstr_("d")), "got node name %s\n", wine_dbgstr_w(name));
9624 IXMLDOMNode_Release(node);
9625 SysFreeString(name);
9626
9627 IXMLDOMSelection_Release(selection);
9628 IXMLDOMNodeList_Release(list);
9629 IXMLDOMDocument_Release(doc);
9630
9631 free_bstrs();
9632 }
9633
9634 static void write_to_file(const char *name, const char *data)
9635 {
9636 DWORD written;
9637 HANDLE hfile;
9638 BOOL ret;
9639
9640 hfile = CreateFileA(name, GENERIC_WRITE|GENERIC_READ, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
9641 ok(hfile != INVALID_HANDLE_VALUE, "failed to create test file: %s\n", name);
9642
9643 ret = WriteFile(hfile, data, strlen(data), &written, NULL);
9644 ok(ret, "WriteFile failed: %s, %d\n", name, GetLastError());
9645
9646 CloseHandle(hfile);
9647 }
9648
9649 static void test_load(void)
9650 {
9651 IXMLDOMDocument *doc, *doc2;
9652 IXMLDOMNodeList *list;
9653 IXMLDOMElement *elem;
9654 VARIANT_BOOL b;
9655 VARIANT src;
9656 HRESULT hr;
9657 BSTR path, bstr1, bstr2;
9658 void* ptr;
9659
9660 /* prepare a file */
9661 write_to_file("test.xml", win1252xml);
9662
9663 doc = create_document(&IID_IXMLDOMDocument);
9664
9665 /* null pointer as input */
9666 V_VT(&src) = VT_UNKNOWN;
9667 V_UNKNOWN(&src) = NULL;
9668 hr = IXMLDOMDocument_load(doc, src, &b);
9669 EXPECT_HR(hr, E_INVALIDARG);
9670 ok(b == VARIANT_FALSE, "got %d\n", b);
9671
9672 path = _bstr_("test.xml");
9673
9674 /* load from path: VT_BSTR */
9675 V_VT(&src) = VT_BSTR;
9676 V_BSTR(&src) = path;
9677 hr = IXMLDOMDocument_load(doc, src, &b);
9678 EXPECT_HR(hr, S_OK);
9679 ok(b == VARIANT_TRUE, "got %d\n", b);
9680
9681 bstr1 = NULL;
9682 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9683 ok(hr == S_OK, "got 0x%08x\n", hr);
9684 SysFreeString(bstr1);
9685
9686 /* load from a path: VT_BSTR|VT_BYREF */
9687 V_VT(&src) = VT_BSTR | VT_BYREF;
9688 V_BSTRREF(&src) = &path;
9689 hr = IXMLDOMDocument_load(doc, src, &b);
9690 EXPECT_HR(hr, S_OK);
9691 ok(b == VARIANT_TRUE, "got %d\n", b);
9692
9693 bstr1 = NULL;
9694 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9695 ok(hr == S_OK, "got 0x%08x\n", hr);
9696
9697 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
9698 ok(hr == S_OK, "got 0x%08x\n", hr);
9699
9700 /* create another instance for the same document, check url */
9701 hr = IXMLDOMElement_get_ownerDocument(elem, &doc2);
9702 ok(hr == S_OK, "got 0x%08x\n", hr);
9703
9704 hr = IXMLDOMDocument_get_url(doc, &bstr2);
9705 ok(hr == S_OK, "got 0x%08x\n", hr);
9706 ok(!lstrcmpW(bstr1, bstr2), "got %s\n", wine_dbgstr_w(bstr2));
9707
9708 IXMLDOMDocument_Release(doc2);
9709 IXMLDOMElement_Release(elem);
9710
9711 SysFreeString(bstr1);
9712 SysFreeString(bstr2);
9713
9714 /* load from a path: VT_BSTR|VT_BYREF, null ptr */
9715 V_VT(&src) = VT_BSTR | VT_BYREF;
9716 V_BSTRREF(&src) = NULL;
9717 hr = IXMLDOMDocument_load(doc, src, &b);
9718 EXPECT_HR(hr, E_INVALIDARG);
9719 ok(b == VARIANT_FALSE, "got %d\n", b);
9720
9721 bstr1 = NULL;
9722 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9723 ok(hr == S_OK, "got 0x%08x\n", hr);
9724 SysFreeString(bstr1);
9725
9726 DeleteFileA("test.xml");
9727
9728 /* load from existing path, no xml content */
9729 write_to_file("test.xml", nocontent);
9730
9731 V_VT(&src) = VT_BSTR;
9732 V_BSTR(&src) = path;
9733 b = VARIANT_TRUE;
9734 hr = IXMLDOMDocument_load(doc, src, &b);
9735 ok(hr == S_FALSE, "got 0x%08x\n", hr);
9736 ok(b == VARIANT_FALSE, "got %d\n", b);
9737
9738 bstr1 = (BSTR)0x1;
9739 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9740 ok(hr == S_FALSE, "got 0x%08x\n", hr);
9741 ok(bstr1 == NULL, "got %p\n", bstr1);
9742
9743 DeleteFileA("test.xml");
9744 IXMLDOMDocument_Release(doc);
9745
9746 doc = create_document(&IID_IXMLDOMDocument);
9747
9748 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9749 EXPECT_HR(hr, S_OK);
9750 ok(b == VARIANT_TRUE, "got %d\n", b);
9751
9752 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9753 EXPECT_HR(hr, S_OK);
9754 bstr1 = _bstr_(list_to_string(list));
9755
9756 hr = IXMLDOMNodeList_reset(list);
9757 EXPECT_HR(hr, S_OK);
9758
9759 IXMLDOMDocument_Release(doc);
9760
9761 doc = create_document(&IID_IXMLDOMDocument);
9762
9763 VariantInit(&src);
9764 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenA(szExampleXML));
9765 V_VT(&src) = VT_ARRAY|VT_UI1;
9766 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9767 ptr = NULL;
9768 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9769 EXPECT_HR(hr, S_OK);
9770 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9771
9772 memcpy(ptr, szExampleXML, lstrlenA(szExampleXML));
9773 hr = SafeArrayUnlock(V_ARRAY(&src));
9774 EXPECT_HR(hr, S_OK);
9775
9776 hr = IXMLDOMDocument_load(doc, src, &b);
9777 EXPECT_HR(hr, S_OK);
9778 ok(b == VARIANT_TRUE, "got %d\n", b);
9779
9780 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9781 EXPECT_HR(hr, S_OK);
9782 bstr2 = _bstr_(list_to_string(list));
9783
9784 hr = IXMLDOMNodeList_reset(list);
9785 EXPECT_HR(hr, S_OK);
9786
9787 ok(lstrcmpW(bstr1, bstr2) == 0, "strings not equal: %s : %s\n",
9788 wine_dbgstr_w(bstr1), wine_dbgstr_w(bstr2));
9789
9790 IXMLDOMDocument_Release(doc);
9791 IXMLDOMNodeList_Release(list);
9792 VariantClear(&src);
9793
9794 /* UTF-16 isn't accepted */
9795 doc = create_document(&IID_IXMLDOMDocument);
9796
9797 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenW(szComplete1) * sizeof(WCHAR));
9798 V_VT(&src) = VT_ARRAY|VT_UI1;
9799 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9800 ptr = NULL;
9801 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9802 EXPECT_HR(hr, S_OK);
9803 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9804
9805 memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9806 hr = SafeArrayUnlock(V_ARRAY(&src));
9807 EXPECT_HR(hr, S_OK);
9808
9809 hr = IXMLDOMDocument_load(doc, src, &b);
9810 todo_wine EXPECT_HR(hr, S_FALSE);
9811 todo_wine ok(b == VARIANT_FALSE, "got %d\n", b);
9812
9813 VariantClear(&src);
9814
9815 /* it doesn't like it as a VT_ARRAY|VT_UI2 either */
9816 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI2, 0, lstrlenW(szComplete1));
9817 V_VT(&src) = VT_ARRAY|VT_UI2;
9818 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9819 ptr = NULL;
9820 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9821 EXPECT_HR(hr, S_OK);
9822 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9823
9824 memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9825 hr = SafeArrayUnlock(V_ARRAY(&src));
9826 EXPECT_HR(hr, S_OK);
9827
9828 hr = IXMLDOMDocument_load(doc, src, &b);
9829 todo_wine EXPECT_HR(hr, E_INVALIDARG);
9830 ok(b == VARIANT_FALSE, "got %d\n", b);
9831
9832 VariantClear(&src);
9833 IXMLDOMDocument_Release(doc);
9834
9835 free_bstrs();
9836 }
9837
9838 static void test_domobj_dispex(IUnknown *obj)
9839 {
9840 static const WCHAR testW[] = {'t','e','s','t','p','r','o','p',0};
9841 DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
9842 IDispatchEx *dispex;
9843 IUnknown *unk;
9844 DWORD props;
9845 UINT ticnt;
9846 HRESULT hr;
9847 BSTR name;
9848
9849 hr = IUnknown_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
9850 EXPECT_HR(hr, S_OK);
9851 if (FAILED(hr)) return;
9852
9853 ticnt = 0;
9854 hr = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
9855 EXPECT_HR(hr, S_OK);
9856 ok(ticnt == 1, "ticnt=%u\n", ticnt);
9857
9858 name = SysAllocString(szstar);
9859 hr = IDispatchEx_DeleteMemberByName(dispex, name, fdexNameCaseSensitive);
9860 EXPECT_HR(hr, E_NOTIMPL);
9861 SysFreeString(name);
9862
9863 hr = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
9864 EXPECT_HR(hr, E_NOTIMPL);
9865
9866 props = 0;
9867 hr = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &props);
9868 EXPECT_HR(hr, E_NOTIMPL);
9869 ok(props == 0, "expected 0 got %d\n", props);
9870
9871 hr = IDispatchEx_GetMemberName(dispex, dispid, &name);
9872 EXPECT_HR(hr, E_NOTIMPL);
9873 if (SUCCEEDED(hr)) SysFreeString(name);
9874
9875 hr = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
9876 EXPECT_HR(hr, E_NOTIMPL);
9877
9878 unk = (IUnknown*)0xdeadbeef;
9879 hr = IDispatchEx_GetNameSpaceParent(dispex, &unk);
9880 EXPECT_HR(hr, E_NOTIMPL);
9881 ok(unk == (IUnknown*)0xdeadbeef, "got %p\n", unk);
9882
9883 name = SysAllocString(testW);
9884 hr = IDispatchEx_GetDispID(dispex, name, fdexNameEnsure, &dispid);
9885 ok(hr == DISP_E_UNKNOWNNAME, "got 0x%08x\n", hr);
9886 SysFreeString(name);
9887
9888 IDispatchEx_Release(dispex);
9889 }
9890
9891 static void test_mxnamespacemanager(void)
9892 {
9893 static const char xmluriA[] = "http://www.w3.org/XML/1998/namespace";
9894 IMXNamespacePrefixes *prefixes;
9895 IVBMXNamespaceManager *mgr2;
9896 IMXNamespaceManager *nsmgr;
9897 IUnknown *unk1, *unk2;
9898 WCHAR buffW[250];
9899 IDispatch *disp;
9900 IUnknown *unk;
9901 HRESULT hr;
9902 INT len;
9903
9904 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9905 &IID_IMXNamespaceManager, (void**)&nsmgr);
9906 EXPECT_HR(hr, S_OK);
9907
9908 /* IMXNamespaceManager inherits from IUnknown */
9909 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IDispatch, (void**)&disp);
9910 EXPECT_HR(hr, S_OK);
9911 IDispatch_Release(disp);
9912
9913 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IVBMXNamespaceManager, (void**)&mgr2);
9914 EXPECT_HR(hr, S_OK);
9915
9916 EXPECT_REF(nsmgr, 2);
9917 EXPECT_REF(mgr2, 2);
9918 prefixes = NULL;
9919 hr = IVBMXNamespaceManager_getDeclaredPrefixes(mgr2, &prefixes);
9920 todo_wine
9921 ok(hr == S_OK, "got 0x%08x\n", hr);
9922 if (hr == S_OK)
9923 {
9924 IDispatchEx *dispex;
9925 VARIANT arg, ret;
9926 DISPPARAMS dispparams;
9927
9928 ok(prefixes != NULL, "got %p\n", prefixes);
9929 EXPECT_REF(nsmgr, 2);
9930 EXPECT_REF(mgr2, 2);
9931 EXPECT_REF(prefixes, 1);
9932
9933 IVBMXNamespaceManager_QueryInterface(mgr2, &IID_IUnknown, (void**)&unk1);
9934 IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IUnknown, (void**)&unk2);
9935
9936 EXPECT_REF(mgr2, 3);
9937 EXPECT_REF(prefixes, 2);
9938
9939 IUnknown_Release(unk1);
9940 IUnknown_Release(unk2);
9941
9942 hr = IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IDispatchEx, (void**)&dispex);
9943 ok(hr == S_OK, "got 0x%08x\n", hr);
9944
9945 V_VT(&arg) = VT_I4;
9946 V_I4(&arg) = 0;
9947 dispparams.cArgs = 1;
9948 dispparams.cNamedArgs = 0;
9949 dispparams.rgdispidNamedArgs = NULL;
9950 dispparams.rgvarg = &arg;
9951
9952 V_VT(&ret) = VT_EMPTY;
9953 V_DISPATCH(&ret) = (void*)0x1;
9954 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
9955 ok(hr == S_OK, "got 0x%08x\n", hr);
9956 ok(V_VT(&ret) == VT_BSTR, "got %d\n", V_VT(&ret));
9957 ok(V_BSTR(&ret) != NULL, "got %p\n", V_BSTR(&ret));
9958 VariantClear(&ret);
9959
9960 IDispatchEx_Release(dispex);
9961 IMXNamespacePrefixes_Release(prefixes);
9962 }
9963 IVBMXNamespaceManager_Release(mgr2);
9964
9965 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
9966 EXPECT_HR(hr, S_OK);
9967
9968 /* prefix already added */
9969 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
9970 EXPECT_HR(hr, S_FALSE);
9971
9972 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), NULL);
9973 EXPECT_HR(hr, E_INVALIDARG);
9974
9975 /* "xml" and "xmlns" are not allowed here */
9976 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xml"), _bstr_("uri1"));
9977 EXPECT_HR(hr, E_INVALIDARG);
9978
9979 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xmlns"), _bstr_("uri1"));
9980 EXPECT_HR(hr, E_INVALIDARG);
9981 todo_wine {
9982 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, -1, NULL, NULL);
9983 EXPECT_HR(hr, E_FAIL);
9984 }
9985 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, NULL);
9986 EXPECT_HR(hr, E_POINTER);
9987
9988 len = -1;
9989 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, &len);
9990 EXPECT_HR(hr, S_OK);
9991 ok(len == 3, "got %d\n", len);
9992
9993 len = -1;
9994 buffW[0] = 0x1;
9995 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
9996 EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
9997 ok(len == -1, "got %d\n", len);
9998 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9999
10000 len = 10;
10001 buffW[0] = 0x1;
10002 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10003 EXPECT_HR(hr, S_OK);
10004 ok(len == 3, "got %d\n", len);
10005 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10006
10007 /* getURI */
10008 hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, NULL);
10009 EXPECT_HR(hr, E_INVALIDARG);
10010
10011 len = -1;
10012 hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, &len);
10013 EXPECT_HR(hr, E_INVALIDARG);
10014 ok(len == -1, "got %d\n", len);
10015
10016 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, NULL);
10017 EXPECT_HR(hr, E_POINTER);
10018
10019 len = -1;
10020 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, &len);
10021 EXPECT_HR(hr, S_OK);
10022 /* length of "xml" uri is constant */
10023 ok(len == strlen(xmluriA), "got %d\n", len);
10024
10025 len = 100;
10026 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
10027 EXPECT_HR(hr, S_OK);
10028 ok(len == strlen(xmluriA), "got %d\n", len);
10029 ok(!lstrcmpW(buffW, _bstr_(xmluriA)), "got prefix %s\n", wine_dbgstr_w(buffW));
10030
10031 len = strlen(xmluriA)-1;
10032 buffW[0] = 0x1;
10033 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
10034 EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
10035 ok(len == strlen(xmluriA)-1, "got %d\n", len);
10036 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10037
10038 /* prefix xml1 not defined */
10039 len = -1;
10040 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, NULL, &len);
10041 EXPECT_HR(hr, S_FALSE);
10042 ok(len == 0, "got %d\n", len);
10043
10044 len = 100;
10045 buffW[0] = 0x1;
10046 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, buffW, &len);
10047 EXPECT_HR(hr, S_FALSE);
10048 ok(buffW[0] == 0, "got %x\n", buffW[0]);
10049 ok(len == 0, "got %d\n", len);
10050
10051 /* IDispatchEx tests */
10052 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IUnknown, (void**)&unk);
10053 EXPECT_HR(hr, S_OK);
10054 test_domobj_dispex(unk);
10055 IUnknown_Release(unk);
10056
10057 IMXNamespaceManager_Release(nsmgr);
10058
10059 /* ::getPrefix() */
10060 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10061 &IID_IMXNamespaceManager, (void**)&nsmgr);
10062 EXPECT_HR(hr, S_OK);
10063
10064 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, NULL);
10065 EXPECT_HR(hr, E_INVALIDARG);
10066
10067 len = -1;
10068 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, &len);
10069 EXPECT_HR(hr, E_INVALIDARG);
10070 ok(len == -1, "got %d\n", len);
10071
10072 len = 100;
10073 buffW[0] = 0x1;
10074 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
10075 EXPECT_HR(hr, E_FAIL);
10076 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10077 ok(len == 100, "got %d\n", len);
10078
10079 len = 0;
10080 buffW[0] = 0x1;
10081 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
10082 EXPECT_HR(hr, E_FAIL);
10083 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10084 ok(len == 0, "got %d\n", len);
10085
10086 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10087 EXPECT_HR(hr, S_OK);
10088
10089 len = 100;
10090 buffW[0] = 0x1;
10091 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10092 EXPECT_HR(hr, S_OK);
10093 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10094 ok(len == 3, "got %d\n", len);
10095
10096 len = 100;
10097 buffW[0] = 0x1;
10098 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, buffW, &len);
10099 EXPECT_HR(hr, S_OK);
10100 ok(!lstrcmpW(buffW, _bstr_("xml")), "got %s\n", wine_dbgstr_w(buffW));
10101 ok(len == 3, "got %d\n", len);
10102
10103 /* with null buffer it's possible to get required length */
10104 len = 100;
10105 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
10106 EXPECT_HR(hr, S_OK);
10107 ok(len == 3, "got %d\n", len);
10108
10109 len = 0;
10110 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
10111 EXPECT_HR(hr, S_OK);
10112 ok(len == 3, "got %d\n", len);
10113
10114 len = 100;
10115 buffW[0] = 0x1;
10116 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 1, buffW, &len);
10117 EXPECT_HR(hr, E_FAIL);
10118 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10119 ok(len == 100, "got %d\n", len);
10120
10121 len = 100;
10122 buffW[0] = 0x1;
10123 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 2, buffW, &len);
10124 EXPECT_HR(hr, E_FAIL);
10125 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10126 ok(len == 100, "got %d\n", len);
10127
10128 len = 100;
10129 buffW[0] = 0x1;
10130 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 0, buffW, &len);
10131 EXPECT_HR(hr, E_INVALIDARG);
10132 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10133 ok(len == 100, "got %d\n", len);
10134
10135 len = 100;
10136 buffW[0] = 0x1;
10137 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10138 EXPECT_HR(hr, E_INVALIDARG);
10139 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10140 ok(len == 100, "got %d\n", len);
10141
10142 len = 100;
10143 buffW[0] = 0x1;
10144 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, buffW, &len);
10145 EXPECT_HR(hr, E_INVALIDARG);
10146 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10147 ok(len == 100, "got %d\n", len);
10148
10149 len = 100;
10150 buffW[0] = 0x1;
10151 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 1, buffW, &len);
10152 EXPECT_HR(hr, E_FAIL);
10153 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10154 ok(len == 100, "got %d\n", len);
10155
10156 len = 100;
10157 buffW[0] = 0x1;
10158 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10159 EXPECT_HR(hr, E_INVALIDARG);
10160 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10161 ok(len == 100, "got %d\n", len);
10162
10163 /* declare another one, indices are shifted */
10164 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10165 EXPECT_HR(hr, S_OK);
10166
10167 len = 100;
10168 buffW[0] = 0x1;
10169 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10170 EXPECT_HR(hr, S_OK);
10171 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10172 ok(len == 3, "got %d\n", len);
10173
10174 len = 100;
10175 buffW[0] = 0x1;
10176 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10177 EXPECT_HR(hr, S_OK);
10178 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10179 ok(len == 3, "got %d\n", len);
10180
10181 len = 100;
10182 buffW[0] = 0x1;
10183 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 1, buffW, &len);
10184 EXPECT_HR(hr, E_FAIL);
10185 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10186 ok(len == 100, "got %d\n", len);
10187
10188 len = 100;
10189 buffW[0] = 0x1;
10190 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10191 EXPECT_HR(hr, E_INVALIDARG);
10192 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10193 ok(len == 100, "got %d\n", len);
10194
10195 IMXNamespaceManager_Release(nsmgr);
10196
10197 /* push/pop tests */
10198 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10199 &IID_IMXNamespaceManager, (void**)&nsmgr);
10200 EXPECT_HR(hr, S_OK);
10201
10202 /* pop with empty stack */
10203 hr = IMXNamespaceManager_popContext(nsmgr);
10204 EXPECT_HR(hr, E_FAIL);
10205
10206 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10207 EXPECT_HR(hr, S_OK);
10208
10209 len = 100;
10210 buffW[0] = 0x1;
10211 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10212 EXPECT_HR(hr, S_OK);
10213 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10214 ok(len == 3, "got %d\n", len);
10215
10216 hr = IMXNamespaceManager_pushContext(nsmgr);
10217 EXPECT_HR(hr, S_OK);
10218
10219 len = 100;
10220 buffW[0] = 0x1;
10221 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10222 EXPECT_HR(hr, S_OK);
10223 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10224 ok(len == 3, "got %d\n", len);
10225
10226 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10227 EXPECT_HR(hr, S_OK);
10228
10229 len = 100;
10230 buffW[0] = 0x1;
10231 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10232 EXPECT_HR(hr, S_OK);
10233 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10234 ok(len == 3, "got %d\n", len);
10235
10236 hr = IMXNamespaceManager_pushContext(nsmgr);
10237 EXPECT_HR(hr, S_OK);
10238 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns3"), _bstr_("ns3 uri"));
10239 EXPECT_HR(hr, S_OK);
10240
10241 len = 100;
10242 buffW[0] = 0x1;
10243 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10244 EXPECT_HR(hr, S_OK);
10245 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10246 ok(len == 3, "got %d\n", len);
10247
10248 len = 100;
10249 buffW[0] = 0x1;
10250 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10251 EXPECT_HR(hr, S_OK);
10252 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10253 ok(len == 3, "got %d\n", len);
10254
10255 hr = IMXNamespaceManager_popContext(nsmgr);
10256 EXPECT_HR(hr, S_OK);
10257
10258 hr = IMXNamespaceManager_popContext(nsmgr);
10259 EXPECT_HR(hr, S_OK);
10260
10261 len = 100;
10262 buffW[0] = 0x1;
10263 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10264 EXPECT_HR(hr, E_FAIL);
10265 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10266 ok(len == 100, "got %d\n", len);
10267
10268 len = 100;
10269 buffW[0] = 0x1;
10270 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10271 EXPECT_HR(hr, S_OK);
10272 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10273 ok(len == 3, "got %d\n", len);
10274
10275 IMXNamespaceManager_Release(nsmgr);
10276
10277 free_bstrs();
10278 }
10279
10280 static void test_mxnamespacemanager_override(void)
10281 {
10282 IMXNamespaceManager *nsmgr;
10283 WCHAR buffW[250];
10284 VARIANT_BOOL b;
10285 HRESULT hr;
10286 INT len;
10287
10288 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10289 &IID_IMXNamespaceManager, (void**)&nsmgr);
10290 EXPECT_HR(hr, S_OK);
10291
10292 len = sizeof(buffW)/sizeof(WCHAR);
10293 buffW[0] = 0;
10294 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10295 EXPECT_HR(hr, S_OK);
10296 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10297
10298 len = sizeof(buffW)/sizeof(WCHAR);
10299 buffW[0] = 0;
10300 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10301 EXPECT_HR(hr, E_FAIL);
10302
10303 hr = IMXNamespaceManager_getAllowOverride(nsmgr, NULL);
10304 EXPECT_HR(hr, E_POINTER);
10305
10306 b = VARIANT_FALSE;
10307 hr = IMXNamespaceManager_getAllowOverride(nsmgr, &b);
10308 EXPECT_HR(hr, S_OK);
10309 ok(b == VARIANT_TRUE, "got %d\n", b);
10310
10311 hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_FALSE);
10312 EXPECT_HR(hr, S_OK);
10313
10314 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10315 EXPECT_HR(hr, S_OK);
10316
10317 len = sizeof(buffW)/sizeof(WCHAR);
10318 buffW[0] = 0;
10319 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10320 EXPECT_HR(hr, S_OK);
10321 ok(!lstrcmpW(buffW, _bstr_("ns0 uri")), "got uri %s\n", wine_dbgstr_w(buffW));
10322
10323 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), _bstr_("ns0 uri"));
10324 EXPECT_HR(hr, S_OK);
10325
10326 len = sizeof(buffW)/sizeof(WCHAR);
10327 buffW[0] = 0;
10328 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10329 EXPECT_HR(hr, S_OK);
10330 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10331
10332 len = sizeof(buffW)/sizeof(WCHAR);
10333 buffW[0] = 0;
10334 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10335 EXPECT_HR(hr, S_OK);
10336 ok(!lstrcmpW(buffW, _bstr_("ns0")), "got prefix %s\n", wine_dbgstr_w(buffW));
10337
10338 len = sizeof(buffW)/sizeof(WCHAR);
10339 buffW[0] = 0;
10340 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 2, buffW, &len);
10341 EXPECT_HR(hr, S_OK);
10342 ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10343
10344 /* new prefix placed at index 1 always */
10345 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10346 EXPECT_HR(hr, S_OK);
10347
10348 len = sizeof(buffW)/sizeof(WCHAR);
10349 buffW[0] = 0;
10350 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10351 EXPECT_HR(hr, S_OK);
10352 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got prefix %s\n", wine_dbgstr_w(buffW));
10353
10354 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_(""), NULL);
10355 todo_wine EXPECT_HR(hr, E_FAIL);
10356
10357 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
10358 EXPECT_HR(hr, E_FAIL);
10359
10360 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10361 EXPECT_HR(hr, E_FAIL);
10362
10363 hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_TRUE);
10364 EXPECT_HR(hr, S_OK);
10365
10366 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri override"));
10367 EXPECT_HR(hr, S_FALSE);
10368
10369 len = sizeof(buffW)/sizeof(WCHAR);
10370 buffW[0] = 0;
10371 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10372 EXPECT_HR(hr, S_OK);
10373 ok(!lstrcmpW(buffW, _bstr_("ns0 uri override")), "got uri %s\n", wine_dbgstr_w(buffW));
10374
10375 len = sizeof(buffW)/sizeof(WCHAR);
10376 buffW[0] = 0;
10377 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 3, buffW, &len);
10378 EXPECT_HR(hr, S_OK);
10379 ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10380
10381 IMXNamespaceManager_Release(nsmgr);
10382
10383 free_bstrs();
10384 }
10385
10386 static const DOMNodeType nodetypes_test[] =
10387 {
10388 NODE_ELEMENT,
10389 NODE_ATTRIBUTE,
10390 NODE_TEXT,
10391 NODE_CDATA_SECTION,
10392 NODE_ENTITY_REFERENCE,
10393 NODE_PROCESSING_INSTRUCTION,
10394 NODE_COMMENT,
10395 NODE_DOCUMENT_FRAGMENT,
10396 NODE_INVALID
10397 };
10398
10399 static void test_dispex(void)
10400 {
10401 const DOMNodeType *type = nodetypes_test;
10402 IXMLDOMImplementation *impl;
10403 IXMLDOMNodeList *node_list;
10404 IXMLDOMParseError *error;
10405 IXMLDOMNamedNodeMap *map;
10406 IXSLProcessor *processor;
10407 IXSLTemplate *template;
10408 IXMLDOMDocument *doc;
10409 IXMLHTTPRequest *req;
10410 IXMLDOMElement *elem;
10411 IDispatchEx *dispex;
10412 DISPPARAMS dispparams;
10413 IXMLDOMNode *node;
10414 VARIANT arg, ret;
10415 VARIANT_BOOL b;
10416 IUnknown *unk;
10417 HRESULT hr;
10418 DISPID did;
10419
10420 doc = create_document(&IID_IXMLDOMDocument);
10421
10422 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
10423 ok(hr == S_OK, "got 0x%08x\n", hr);
10424 test_domobj_dispex(unk);
10425 IUnknown_Release(unk);
10426
10427 for(; *type != NODE_INVALID; type++)
10428 {
10429 IXMLDOMNode *node;
10430 VARIANT v;
10431
10432 V_VT(&v) = VT_I2;
10433 V_I2(&v) = *type;
10434
10435 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
10436 ok(hr == S_OK, "failed to create node type %d\n", *type);
10437
10438 IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
10439
10440 test_domobj_dispex(unk);
10441 IUnknown_Release(unk);
10442 IXMLDOMNode_Release(node);
10443 }
10444
10445 /* IXMLDOMNodeList */
10446 hr = IXMLDOMDocument_getElementsByTagName(doc, _bstr_("*"), &node_list);
10447 EXPECT_HR(hr, S_OK);
10448 IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10449 test_domobj_dispex(unk);
10450 IUnknown_Release(unk);
10451 IXMLDOMNodeList_Release(node_list);
10452
10453 /* IXMLDOMNodeList for children list */
10454 hr = IXMLDOMDocument_get_childNodes(doc, &node_list);
10455 EXPECT_HR(hr, S_OK);
10456 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10457 ok(hr == S_OK, "got 0x%08x\n", hr);
10458 test_domobj_dispex(unk);
10459 IUnknown_Release(unk);
10460
10461 /* collection dispex test, empty collection */
10462 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatchEx, (void**)&dispex);
10463 EXPECT_HR(hr, S_OK);
10464 did = 0;
10465 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10466 EXPECT_HR(hr, S_OK);
10467 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10468 hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10469 EXPECT_HR(hr, S_OK);
10470 ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10471 IDispatchEx_Release(dispex);
10472
10473 did = -1;
10474 hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10475 ok(hr == S_OK, "got 0x%08x\n", hr);
10476 ok(did == DISPID_VALUE, "got %d\n", did);
10477
10478 V_VT(&arg) = VT_I4;
10479 V_I4(&arg) = 0;
10480 dispparams.cArgs = 0;
10481 dispparams.cNamedArgs = 0;
10482 dispparams.rgdispidNamedArgs = NULL;
10483 dispparams.rgvarg = &arg;
10484
10485 V_VT(&ret) = VT_EMPTY;
10486 V_DISPATCH(&ret) = (void*)0x1;
10487 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10488 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10489 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10490 todo_wine
10491 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10492
10493 V_VT(&arg) = VT_I4;
10494 V_I4(&arg) = 0;
10495 dispparams.cArgs = 2;
10496 dispparams.cNamedArgs = 0;
10497 dispparams.rgdispidNamedArgs = NULL;
10498 dispparams.rgvarg = &arg;
10499
10500 V_VT(&ret) = VT_EMPTY;
10501 V_DISPATCH(&ret) = (void*)0x1;
10502 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10503 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10504 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10505 todo_wine
10506 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10507
10508 V_VT(&arg) = VT_I4;
10509 V_I4(&arg) = 0;
10510 dispparams.cArgs = 1;
10511 dispparams.cNamedArgs = 0;
10512 dispparams.rgdispidNamedArgs = NULL;
10513 dispparams.rgvarg = &arg;
10514
10515 V_VT(&ret) = VT_EMPTY;
10516 V_DISPATCH(&ret) = (void*)0x1;
10517 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10518 ok(hr == S_OK, "got 0x%08x\n", hr);
10519 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10520 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10521
10522 V_VT(&ret) = VT_EMPTY;
10523 V_DISPATCH(&ret) = (void*)0x1;
10524 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10525 ok(hr == S_OK, "got 0x%08x\n", hr);
10526 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10527 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10528
10529 V_VT(&ret) = VT_EMPTY;
10530 V_DISPATCH(&ret) = (void*)0x1;
10531 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10532 ok(hr == S_OK, "got 0x%08x\n", hr);
10533 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10534 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10535
10536 dispparams.cArgs = 0;
10537 dispparams.cNamedArgs = 0;
10538 dispparams.rgdispidNamedArgs = NULL;
10539 dispparams.rgvarg = NULL;
10540
10541 V_VT(&ret) = VT_EMPTY;
10542 V_I4(&ret) = 1;
10543 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10544 ok(hr == S_OK, "got 0x%08x\n", hr);
10545 ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10546 ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10547
10548 dispparams.cArgs = 0;
10549 dispparams.cNamedArgs = 0;
10550 dispparams.rgdispidNamedArgs = NULL;
10551 dispparams.rgvarg = NULL;
10552
10553 V_VT(&ret) = VT_EMPTY;
10554 V_I4(&ret) = 1;
10555 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10556 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10557 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10558 todo_wine
10559 ok(broken(V_I4(&ret) == 1) || (V_I4(&ret) == 0), "got %d\n", V_I4(&ret));
10560
10561 IXMLDOMNodeList_Release(node_list);
10562
10563 /* IXMLDOMParseError */
10564 hr = IXMLDOMDocument_get_parseError(doc, &error);
10565 EXPECT_HR(hr, S_OK);
10566 IXMLDOMParseError_QueryInterface(error, &IID_IUnknown, (void**)&unk);
10567 test_domobj_dispex(unk);
10568
10569 hr = IXMLDOMParseError_QueryInterface(error, &IID_IDispatchEx, (void**)&dispex);
10570 ok(hr == S_OK, "got 0x%08x\n", hr);
10571
10572 V_VT(&arg) = VT_I4;
10573 V_I4(&arg) = 0;
10574 dispparams.cArgs = 1;
10575 dispparams.cNamedArgs = 0;
10576 dispparams.rgdispidNamedArgs = NULL;
10577 dispparams.rgvarg = &arg;
10578
10579 V_VT(&ret) = VT_EMPTY;
10580 V_DISPATCH(&ret) = (void*)0x1;
10581 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10582 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10583 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10584 todo_wine
10585 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10586
10587 IDispatchEx_Release(dispex);
10588
10589 IUnknown_Release(unk);
10590 IXMLDOMParseError_Release(error);
10591
10592 /* IXMLDOMNamedNodeMap */
10593 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
10594 EXPECT_HR(hr, S_OK);
10595
10596 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/a"), &node_list);
10597 EXPECT_HR(hr, S_OK);
10598 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10599 EXPECT_HR(hr, S_OK);
10600 IXMLDOMNodeList_Release(node_list);
10601
10602 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10603 EXPECT_HR(hr, S_OK);
10604 IXMLDOMNode_Release(node);
10605 hr = IXMLDOMElement_get_attributes(elem, &map);
10606 EXPECT_HR(hr, S_OK);
10607 IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk);
10608 test_domobj_dispex(unk);
10609 IUnknown_Release(unk);
10610 /* collection dispex test */
10611 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10612 EXPECT_HR(hr, S_OK);
10613 did = 0;
10614 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10615 EXPECT_HR(hr, S_OK);
10616 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10617 IDispatchEx_Release(dispex);
10618 IXMLDOMNamedNodeMap_Release(map);
10619
10620 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/b"), &node_list);
10621 EXPECT_HR(hr, S_OK);
10622 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10623 EXPECT_HR(hr, S_OK);
10624 IXMLDOMNodeList_Release(node_list);
10625 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10626 EXPECT_HR(hr, S_OK);
10627 IXMLDOMNode_Release(node);
10628 hr = IXMLDOMElement_get_attributes(elem, &map);
10629 EXPECT_HR(hr, S_OK);
10630 /* collection dispex test, empty collection */
10631 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10632 EXPECT_HR(hr, S_OK);
10633 did = 0;
10634 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10635 EXPECT_HR(hr, S_OK);
10636 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10637 hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10638 EXPECT_HR(hr, S_OK);
10639 ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10640 IXMLDOMNamedNodeMap_Release(map);
10641
10642 did = -1;
10643 hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10644 ok(hr == S_OK, "got 0x%08x\n", hr);
10645 ok(did == DISPID_VALUE, "got %d\n", did);
10646
10647 V_VT(&arg) = VT_I4;
10648 V_I4(&arg) = 0;
10649 dispparams.cArgs = 0;
10650 dispparams.cNamedArgs = 0;
10651 dispparams.rgdispidNamedArgs = NULL;
10652 dispparams.rgvarg = &arg;
10653
10654 V_VT(&ret) = VT_EMPTY;
10655 V_DISPATCH(&ret) = (void*)0x1;
10656 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10657 todo_wine {
10658 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10659 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10660 }
10661 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10662
10663 V_VT(&arg) = VT_I4;
10664 V_I4(&arg) = 0;
10665 dispparams.cArgs = 2;
10666 dispparams.cNamedArgs = 0;
10667 dispparams.rgdispidNamedArgs = NULL;
10668 dispparams.rgvarg = &arg;
10669
10670 V_VT(&ret) = VT_EMPTY;
10671 V_DISPATCH(&ret) = (void*)0x1;
10672 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10673 todo_wine {
10674 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10675 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10676 }
10677 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10678
10679 V_VT(&arg) = VT_I4;
10680 V_I4(&arg) = 0;
10681 dispparams.cArgs = 1;
10682 dispparams.cNamedArgs = 0;
10683 dispparams.rgdispidNamedArgs = NULL;
10684 dispparams.rgvarg = &arg;
10685
10686 V_VT(&ret) = VT_EMPTY;
10687 V_DISPATCH(&ret) = (void*)0x1;
10688 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10689 todo_wine
10690 ok(hr == S_OK, "got 0x%08x\n", hr);
10691 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10692 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10693
10694 V_VT(&ret) = VT_EMPTY;
10695 V_DISPATCH(&ret) = (void*)0x1;
10696 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10697 ok(hr == S_OK, "got 0x%08x\n", hr);
10698 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10699 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10700
10701 V_VT(&ret) = VT_EMPTY;
10702 V_DISPATCH(&ret) = (void*)0x1;
10703 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10704 ok(hr == S_OK, "got 0x%08x\n", hr);
10705 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10706 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10707
10708 dispparams.cArgs = 0;
10709 dispparams.cNamedArgs = 0;
10710 dispparams.rgdispidNamedArgs = NULL;
10711 dispparams.rgvarg = NULL;
10712
10713 V_VT(&ret) = VT_EMPTY;
10714 V_I4(&ret) = 1;
10715 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10716 ok(hr == S_OK, "got 0x%08x\n", hr);
10717 ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10718 ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10719
10720 dispparams.cArgs = 0;
10721 dispparams.cNamedArgs = 0;
10722 dispparams.rgdispidNamedArgs = NULL;
10723 dispparams.rgvarg = NULL;
10724
10725 V_VT(&ret) = VT_EMPTY;
10726 V_I4(&ret) = 1;
10727 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10728 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10729 todo_wine
10730 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10731 ok(broken(V_I4(&ret) == 1) || (V_I4(&ret) == 0), "got %d\n", V_I4(&ret));
10732
10733 IDispatchEx_Release(dispex);
10734 IXMLDOMElement_Release(elem);
10735
10736 /* IXMLDOMImplementation */
10737 hr = IXMLDOMDocument_get_implementation(doc, &impl);
10738 EXPECT_HR(hr, S_OK);
10739
10740 hr = IXMLDOMImplementation_QueryInterface(impl, &IID_IDispatchEx, (void**)&dispex);
10741 EXPECT_HR(hr, S_OK);
10742 IDispatchEx_Release(dispex);
10743 IXMLDOMImplementation_Release(impl);
10744
10745 IXMLDOMDocument_Release(doc);
10746
10747 /* IXMLHTTPRequest */
10748 hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
10749 &IID_IXMLHttpRequest, (void**)&req);
10750 if (hr == S_OK)
10751 {
10752 hr = IXMLHTTPRequest_QueryInterface(req, &IID_IDispatchEx, (void**)&dispex);
10753 EXPECT_HR(hr, E_NOINTERFACE);
10754 IXMLHTTPRequest_Release(req);
10755 }
10756
10757 /* IXSLTemplate */
10758 template = create_xsltemplate(&IID_IXSLTemplate);
10759 hr = IXSLTemplate_QueryInterface(template, &IID_IDispatchEx, (void**)&dispex);
10760 EXPECT_HR(hr, S_OK);
10761 hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10762 EXPECT_HR(hr, S_OK);
10763 test_domobj_dispex(unk);
10764 IUnknown_Release(unk);
10765 IDispatchEx_Release(dispex);
10766
10767 /* IXSLProcessor */
10768 hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
10769 EXPECT_HR(hr, S_OK);
10770 b = VARIANT_FALSE;
10771 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformSSXML), &b);
10772 EXPECT_HR(hr, S_OK);
10773 ok(b == VARIANT_TRUE, "got %d\n", b);
10774
10775 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
10776 EXPECT_HR(hr, S_OK);
10777 IXMLDOMDocument_Release(doc);
10778
10779 hr = IXSLTemplate_createProcessor(template, &processor);
10780 EXPECT_HR(hr, S_OK);
10781 hr = IXSLProcessor_QueryInterface(processor, &IID_IDispatchEx, (void**)&dispex);
10782 EXPECT_HR(hr, S_OK);
10783 hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10784 EXPECT_HR(hr, S_OK);
10785 test_domobj_dispex(unk);
10786 IUnknown_Release(unk);
10787 IDispatchEx_Release(dispex);
10788
10789 IXSLProcessor_Release(processor);
10790 IXSLTemplate_Release(template);
10791
10792 if (is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument))
10793 {
10794 doc = create_document_version(60, &IID_IXMLDOMDocument);
10795 test_domobj_dispex((IUnknown*)doc);
10796 IXMLDOMDocument_Release(doc);
10797 }
10798
10799 free_bstrs();
10800 }
10801
10802 static void test_parseerror(void)
10803 {
10804 IXMLDOMParseError2 *error2;
10805 IXMLDOMParseError *error;
10806 IXMLDOMDocument *doc;
10807 HRESULT hr;
10808
10809 doc = create_document(&IID_IXMLDOMDocument);
10810
10811 hr = IXMLDOMDocument_get_parseError(doc, &error);
10812 EXPECT_HR(hr, S_OK);
10813
10814 hr = IXMLDOMParseError_get_line(error, NULL);
10815 EXPECT_HR(hr, E_INVALIDARG);
10816
10817 hr = IXMLDOMParseError_get_srcText(error, NULL);
10818 EXPECT_HR(hr, E_INVALIDARG);
10819
10820 hr = IXMLDOMParseError_get_linepos(error, NULL);
10821 EXPECT_HR(hr, E_INVALIDARG);
10822
10823 IXMLDOMParseError_Release(error);
10824 IXMLDOMDocument_Release(doc);
10825
10826 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument)) return;
10827 doc = create_document_version(60, &IID_IXMLDOMDocument);
10828
10829 hr = IXMLDOMDocument_get_parseError(doc, &error);
10830 EXPECT_HR(hr, S_OK);
10831 hr = IXMLDOMParseError_QueryInterface(error, &IID_IXMLDOMParseError2, (void**)&error2);
10832 EXPECT_HR(hr, S_OK);
10833 IXMLDOMParseError2_Release(error2);
10834 IXMLDOMParseError_Release(error);
10835 IXMLDOMDocument_Release(doc);
10836 }
10837
10838 static void test_getAttributeNode(void)
10839 {
10840 IXMLDOMAttribute *attr;
10841 IXMLDOMDocument *doc;
10842 IXMLDOMElement *elem;
10843 VARIANT_BOOL v;
10844 HRESULT hr;
10845 BSTR str;
10846
10847 doc = create_document(&IID_IXMLDOMDocument);
10848
10849 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
10850 EXPECT_HR(hr, S_OK);
10851
10852 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10853 EXPECT_HR(hr, S_OK);
10854
10855 str = SysAllocString(nonexistent_fileW);
10856 hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10857 EXPECT_HR(hr, E_FAIL);
10858
10859 attr = (IXMLDOMAttribute*)0xdeadbeef;
10860 hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10861 EXPECT_HR(hr, E_FAIL);
10862 ok(attr == NULL, "got %p\n", attr);
10863 SysFreeString(str);
10864
10865 str = SysAllocString(nonexistent_attrW);
10866 hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10867 EXPECT_HR(hr, S_FALSE);
10868
10869 attr = (IXMLDOMAttribute*)0xdeadbeef;
10870 hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10871 EXPECT_HR(hr, S_FALSE);
10872 ok(attr == NULL, "got %p\n", attr);
10873 SysFreeString(str);
10874
10875 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("foo:b"), &attr);
10876 EXPECT_HR(hr, S_OK);
10877 IXMLDOMAttribute_Release(attr);
10878
10879 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("b"), &attr);
10880 EXPECT_HR(hr, S_FALSE);
10881
10882 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("a"), &attr);
10883 EXPECT_HR(hr, S_OK);
10884 IXMLDOMAttribute_Release(attr);
10885
10886 IXMLDOMElement_Release(elem);
10887 IXMLDOMDocument_Release(doc);
10888 free_bstrs();
10889 }
10890
10891 static void test_getAttribute(void)
10892 {
10893 IXMLDOMDocument *doc;
10894 IXMLDOMElement *elem;
10895 VARIANT_BOOL v;
10896 VARIANT var;
10897 HRESULT hr;
10898
10899 doc = create_document(&IID_IXMLDOMDocument);
10900
10901 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
10902 EXPECT_HR(hr, S_OK);
10903
10904 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10905 EXPECT_HR(hr, S_OK);
10906
10907 VariantInit(&var);
10908 hr = IXMLDOMElement_getAttribute( elem, _bstr_("xmlns:foo"), &var );
10909 EXPECT_HR(hr, S_OK);
10910 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
10911 ok( !lstrcmpW(V_BSTR(&var), _bstr_("urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
10912 VariantClear(&var);
10913
10914 hr = IXMLDOMElement_getAttribute( elem, _bstr_("a"), &var );
10915 EXPECT_HR(hr, S_OK);
10916 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
10917 ok( !lstrcmpW(V_BSTR(&var), _bstr_("attr a")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
10918 VariantClear(&var);
10919
10920 hr = IXMLDOMElement_getAttribute( elem, _bstr_("foo:b"), &var );
10921 EXPECT_HR(hr, S_OK);
10922 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
10923 ok( !lstrcmpW(V_BSTR(&var), _bstr_("attr b")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
10924 VariantClear(&var);
10925
10926 hr = IXMLDOMElement_getAttribute( elem, _bstr_("b"), &var );
10927 EXPECT_HR(hr, S_FALSE);
10928 ok( V_VT(&var) == VT_NULL, "vt = %x\n", V_VT(&var));
10929 VariantClear(&var);
10930
10931 hr = IXMLDOMElement_getAttribute( elem, _bstr_("non-existent"), &var );
10932 EXPECT_HR(hr, S_FALSE);
10933 ok( V_VT(&var) == VT_NULL, "vt = %x\n", V_VT(&var));
10934 VariantClear(&var);
10935
10936 IXMLDOMElement_Release(elem);
10937 IXMLDOMDocument_Release(doc);
10938 free_bstrs();
10939 }
10940
10941 typedef struct {
10942 DOMNodeType type;
10943 const char *name;
10944 REFIID iids[3];
10945 } supporterror_t;
10946
10947 static const supporterror_t supporterror_test[] = {
10948 { NODE_ELEMENT, "element", { &IID_IXMLDOMNode, &IID_IXMLDOMElement } },
10949 { NODE_ATTRIBUTE, "attribute", { &IID_IXMLDOMNode, &IID_IXMLDOMAttribute } },
10950 { NODE_CDATA_SECTION, "cdata", { &IID_IXMLDOMNode, &IID_IXMLDOMCDATASection } },
10951 { NODE_ENTITY_REFERENCE, "entityref", { &IID_IXMLDOMNode, &IID_IXMLDOMEntityReference } },
10952 { NODE_PROCESSING_INSTRUCTION, "pi", { &IID_IXMLDOMNode, &IID_IXMLDOMProcessingInstruction } },
10953 { NODE_COMMENT, "comment", { &IID_IXMLDOMNode, &IID_IXMLDOMComment } },
10954 { NODE_DOCUMENT_FRAGMENT, "fragment", { &IID_IXMLDOMNode, &IID_IXMLDOMDocumentFragment } },
10955 { NODE_INVALID }
10956 };
10957
10958 static void test_supporterrorinfo(void)
10959 {
10960 static REFIID iids[5] = { &IID_IXMLDOMNode, &IID_IXMLDOMDocument,
10961 &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3 };
10962 const supporterror_t *ptr = supporterror_test;
10963 ISupportErrorInfo *errorinfo, *info2;
10964 IXMLDOMSchemaCollection *schemacache;
10965 IXMLDOMNamedNodeMap *map, *map2;
10966 IXMLDOMDocument *doc;
10967 IXMLDOMElement *elem;
10968 VARIANT_BOOL b;
10969 IUnknown *unk;
10970 REFIID *iid;
10971 void *dummy;
10972 HRESULT hr;
10973
10974 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument3)) return;
10975 doc = create_document_version(60, &IID_IXMLDOMDocument3);
10976
10977 EXPECT_REF(doc, 1);
10978 hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&errorinfo);
10979 EXPECT_HR(hr, S_OK);
10980 EXPECT_REF(doc, 1);
10981 ISupportErrorInfo_AddRef(errorinfo);
10982 EXPECT_REF(errorinfo, 2);
10983 EXPECT_REF(doc, 1);
10984 ISupportErrorInfo_Release(errorinfo);
10985
10986 hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&info2);
10987 EXPECT_HR(hr, S_OK);
10988 ok(errorinfo != info2, "got %p, %p\n", info2, errorinfo);
10989
10990 /* error interface can't be queried back for DOM interface */
10991 hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMDocument, &dummy);
10992 EXPECT_HR(hr, E_NOINTERFACE);
10993 hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMNode, &dummy);
10994 EXPECT_HR(hr, E_NOINTERFACE);
10995
10996 ISupportErrorInfo_Release(info2);
10997
10998 iid = iids;
10999 while (*iid)
11000 {
11001 hr = IXMLDOMDocument_QueryInterface(doc, *iid, (void**)&unk);
11002 EXPECT_HR(hr, S_OK);
11003 if (hr == S_OK)
11004 {
11005 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
11006 ok(hr == S_OK, "got 0x%08x for %s\n", hr, wine_dbgstr_guid(*iid));
11007 IUnknown_Release(unk);
11008 }
11009
11010 iid++;
11011 }
11012
11013 ISupportErrorInfo_Release(errorinfo);
11014
11015 while (ptr->type != NODE_INVALID)
11016 {
11017 IXMLDOMNode *node;
11018 VARIANT type;
11019
11020 V_VT(&type) = VT_I1;
11021 V_I1(&type) = ptr->type;
11022
11023 hr = IXMLDOMDocument_createNode(doc, type, _bstr_(ptr->name), NULL, &node);
11024 ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
11025
11026 EXPECT_REF(node, 1);
11027 hr = IXMLDOMNode_QueryInterface(node, &IID_ISupportErrorInfo, (void**)&errorinfo);
11028 ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
11029 EXPECT_REF(node, 1);
11030
11031 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNode, &dummy);
11032 ok(hr == E_NOINTERFACE, "%d: got 0x%08x\n", ptr->type, hr);
11033
11034 iid = ptr->iids;
11035
11036 while (*iid)
11037 {
11038 hr = IXMLDOMNode_QueryInterface(node, *iid, (void**)&unk);
11039 if (hr == S_OK)
11040 {
11041 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
11042 ok(hr == S_OK, "%d: got 0x%08x for %s\n", ptr->type, hr, wine_dbgstr_guid(*iid));
11043 IUnknown_Release(unk);
11044 }
11045
11046 iid++;
11047 }
11048
11049 ISupportErrorInfo_Release(errorinfo);
11050 IXMLDOMNode_Release(node);
11051 ptr++;
11052 }
11053
11054 /* IXMLDOMNamedNodeMap */
11055 b = VARIANT_FALSE;
11056 hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
11057 EXPECT_HR(hr, S_OK);
11058 ok(b == VARIANT_TRUE, "got %d\n", b);
11059
11060 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11061 EXPECT_HR(hr, S_OK);
11062
11063 hr = IXMLDOMElement_get_attributes(elem, &map);
11064 EXPECT_HR(hr, S_OK);
11065
11066 EXPECT_REF(map, 1);
11067 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_ISupportErrorInfo, (void**)&errorinfo);
11068 EXPECT_HR(hr, S_OK);
11069 EXPECT_REF(map, 2);
11070
11071 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMNamedNodeMap);
11072 EXPECT_HR(hr, S_OK);
11073
11074 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNamedNodeMap, (void**)&map2);
11075 EXPECT_HR(hr, S_OK);
11076 ok(map == map2, "got %p\n", map2);
11077 IXMLDOMNamedNodeMap_Release(map2);
11078
11079 EXPECT_REF(errorinfo, 2);
11080 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IUnknown, (void**)&unk);
11081 EXPECT_HR(hr, S_OK);
11082 EXPECT_REF(errorinfo, 3);
11083 EXPECT_REF(map, 3);
11084 IUnknown_Release(unk);
11085
11086 ISupportErrorInfo_Release(errorinfo);
11087 IXMLDOMNamedNodeMap_Release(map);
11088 IXMLDOMElement_Release(elem);
11089
11090 IXMLDOMDocument_Release(doc);
11091
11092 /* IXMLDOMSchemaCollection */
11093 hr = CoCreateInstance(&CLSID_XMLSchemaCache, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMSchemaCollection, (void**)&schemacache);
11094 ok(hr == S_OK, "failed to create schema collection, 0x%08x\n", hr);
11095
11096 hr = IXMLDOMSchemaCollection_QueryInterface(schemacache, &IID_ISupportErrorInfo, (void**)&errorinfo);
11097 ok(hr == S_OK, "got 0x%08x\n", hr);
11098
11099 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMSchemaCollection);
11100 ok(hr == S_OK, "got 0x%08x\n", hr);
11101
11102 ISupportErrorInfo_Release(errorinfo);
11103 IXMLDOMSchemaCollection_Release(schemacache);
11104
11105 free_bstrs();
11106 }
11107
11108 typedef struct {
11109 DOMNodeType type;
11110 const char *name;
11111 const char *put_content;
11112 HRESULT put_hr;
11113 VARTYPE get_vt;
11114 HRESULT get_hr;
11115 } node_value_t;
11116
11117 static const node_value_t nodevalue_test[] = {
11118 { NODE_ELEMENT, "element", "", E_FAIL, VT_NULL, S_FALSE },
11119 { NODE_ATTRIBUTE, "attr", "value", S_OK, VT_BSTR, S_OK },
11120 { NODE_TEXT, "text", "textdata", S_OK, VT_BSTR, S_OK },
11121 { NODE_CDATA_SECTION , "cdata", "cdata data", S_OK, VT_BSTR, S_OK },
11122 { NODE_ENTITY_REFERENCE, "entityref", "ref", E_FAIL, VT_NULL, S_FALSE },
11123 { NODE_PROCESSING_INSTRUCTION, "pi", "instr", S_OK, VT_BSTR, S_OK },
11124 { NODE_COMMENT, "comment", "comment data", S_OK, VT_BSTR, S_OK },
11125 { NODE_DOCUMENT_FRAGMENT, "docfrag", "", E_FAIL, VT_NULL, S_FALSE },
11126 { NODE_INVALID }
11127 };
11128
11129 static void test_nodeValue(void)
11130 {
11131 const node_value_t *ptr = nodevalue_test;
11132 IXMLDOMDocument *doc;
11133 HRESULT hr;
11134
11135 doc = create_document(&IID_IXMLDOMDocument);
11136
11137 while (ptr->type != NODE_INVALID)
11138 {
11139 IXMLDOMNode *node;
11140 VARIANT v;
11141
11142 V_VT(&v) = VT_I2;
11143 V_I2(&v) = ptr->type;
11144
11145 hr = IXMLDOMDocument_createNode(doc, v, _bstr_(ptr->name), NULL, &node);
11146 ok(hr == S_OK, "failed to create node type %d\n", ptr->type);
11147
11148 hr = IXMLDOMNode_get_nodeValue(node, NULL);
11149 ok(hr == E_INVALIDARG, "%d: got 0x%08x\n", ptr->type, hr);
11150
11151 V_VT(&v) = VT_BSTR;
11152 V_BSTR(&v) = _bstr_(ptr->put_content);
11153 hr = IXMLDOMNode_put_nodeValue(node, v);
11154 ok(hr == ptr->put_hr, "%d: got 0x%08x\n", ptr->type, hr);
11155
11156 V_VT(&v) = VT_EMPTY;
11157 hr = IXMLDOMNode_get_nodeValue(node, &v);
11158 ok(hr == ptr->get_hr, "%d: got 0x%08x, expected 0x%08x\n", ptr->type, hr, ptr->get_hr);
11159 ok(V_VT(&v) == ptr->get_vt, "%d: got %d, expected %d\n", ptr->type, V_VT(&v), ptr->get_vt);
11160 if (hr == S_OK)
11161 ok(!lstrcmpW(V_BSTR(&v), _bstr_(ptr->put_content)), "%d: got %s\n", ptr->type,
11162 wine_dbgstr_w(V_BSTR(&v)));
11163 VariantClear(&v);
11164
11165 IXMLDOMNode_Release(node);
11166
11167 ptr++;
11168 }
11169
11170 IXMLDOMDocument_Release(doc);
11171 }
11172
11173 static void test_xmlns_attribute(void)
11174 {
11175 BSTR str;
11176 IXMLDOMDocument *doc;
11177 IXMLDOMElement *root;
11178 IXMLDOMAttribute *pAttribute;
11179 IXMLDOMElement *elem;
11180 HRESULT hr;
11181 VARIANT v;
11182
11183 doc = create_document(&IID_IXMLDOMDocument);
11184
11185 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
11186 EXPECT_HR(hr, S_OK);
11187
11188 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
11189 EXPECT_HR(hr, S_OK);
11190
11191 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("xmlns:dt"), &pAttribute);
11192 ok( hr == S_OK, "returns %08x\n", hr );
11193
11194 V_VT(&v) = VT_BSTR;
11195 V_BSTR(&v) = _bstr_("urn:schemas-microsoft-com:datatypes");
11196 hr = IXMLDOMAttribute_put_nodeValue(pAttribute, v);
11197 ok(hr == S_OK, "ret %08x\n", hr );
11198
11199 hr = IXMLDOMElement_setAttributeNode(root, pAttribute, NULL);
11200 ok(hr == S_OK, "ret %08x\n", hr );
11201
11202 hr = IXMLDOMNode_put_dataType((IXMLDOMNode*)root, _bstr_("bin.base64"));
11203 ok(hr == S_OK, "ret %08x\n", hr );
11204
11205 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11206 EXPECT_HR(hr, S_OK);
11207
11208 str = NULL;
11209 hr = IXMLDOMElement_get_xml(elem, &str);
11210 ok( hr == S_OK, "got 0x%08x\n", hr);
11211 todo_wine ok( lstrcmpW(str, _bstr_("<Testing xmlns:dt=\"urn:schemas-microsoft-com:datatypes\" dt:dt=\"bin.base64\"/>")) == 0,
11212 "got %s\n", wine_dbgstr_w(str));
11213 SysFreeString(str);
11214
11215 IXMLDOMElement_Release(elem);
11216 IXMLDOMAttribute_Release( pAttribute);
11217
11218 IXMLDOMDocument_Release(doc);
11219
11220 free_bstrs();
11221 }
11222
11223 static const char namespacesA[] =
11224 "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>"
11225 " <ns1:elem1 xmlns:ns1=\"http://blah.org\" b='1' >"
11226 " <ns2:elem2 xmlns:ns2=\"http://blah.org\"/>"
11227 " <ns1:elem3/>"
11228 " <ns1:elem4/>"
11229 " <elem5 xmlns=\"http://blahblah.org\"/>"
11230 " <ns1:elem6>true</ns1:elem6>"
11231 " </ns1:elem1>";
11232
11233 static const char xsd_schema1_uri[] = "x-schema:test1.xsd";
11234 static const char xsd_schema1_xml[] =
11235 "<?xml version='1.0'?>"
11236 "<schema xmlns='http://www.w3.org/2001/XMLSchema'"
11237 " targetNamespace='x-schema:test1.xsd'>"
11238 " <element name='root'>"
11239 " <complexType>"
11240 " <sequence maxOccurs='unbounded'>"
11241 " <any/>"
11242 " </sequence>"
11243 " </complexType>"
11244 " </element>"
11245 "</schema>";
11246
11247 static void test_get_namespaces(void)
11248 {
11249 IXMLDOMSchemaCollection *collection, *collection2;
11250 IXMLDOMDocument2 *doc, *doc2;
11251 IEnumVARIANT *enumv, *enum2;
11252 IUnknown *unk1, *unk2;
11253 IXMLDOMNode *node;
11254 VARIANT_BOOL b;
11255 HRESULT hr;
11256 VARIANT v;
11257 LONG len;
11258 BSTR s;
11259
11260 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11261 doc = create_document(&IID_IXMLDOMDocument2);
11262
11263 /* null pointer */
11264 hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11265 EXPECT_HR(hr, E_POINTER);
11266
11267 /* no document loaded */
11268 collection = (void*)0xdeadbeef;
11269 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11270 EXPECT_HR(hr, S_OK);
11271 if (hr != S_OK)
11272 {
11273 IXMLDOMDocument2_Release(doc);
11274 return;
11275 }
11276 EXPECT_REF(collection, 2);
11277
11278 collection2 = (void*)0xdeadbeef;
11279 hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11280 EXPECT_HR(hr, S_OK);
11281 ok(collection == collection2, "got %p\n", collection2);
11282 EXPECT_REF(collection, 3);
11283 IXMLDOMSchemaCollection_Release(collection);
11284
11285 len = -1;
11286 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11287 EXPECT_HR(hr, S_OK);
11288 ok(len == 0, "got %d\n", len);
11289 IXMLDOMSchemaCollection_Release(collection);
11290
11291 /* now with document */
11292 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11293 EXPECT_HR(hr, S_OK);
11294
11295 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11296 EXPECT_HR(hr, S_OK);
11297
11298 len = -1;
11299 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11300 EXPECT_HR(hr, S_OK);
11301 ok(len == 2, "got %d\n", len);
11302
11303 /* try to lookup some uris */
11304 node = (void*)0xdeadbeef;
11305 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11306 EXPECT_HR(hr, S_OK);
11307 ok(node == NULL, "got %p\n", node);
11308
11309 node = (void*)0xdeadbeef;
11310 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah1.org"), &node);
11311 EXPECT_HR(hr, S_OK);
11312 ok(node == NULL, "got %p\n", node);
11313
11314 /* load schema and try to add it */
11315 doc2 = create_document(&IID_IXMLDOMDocument2);
11316 hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11317 EXPECT_HR(hr, S_OK);
11318
11319 V_VT(&v) = VT_DISPATCH;
11320 V_DISPATCH(&v) = (IDispatch*)doc2;
11321 hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11322 EXPECT_HR(hr, E_FAIL);
11323
11324 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11325 EXPECT_HR(hr, S_OK);
11326 ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11327 SysFreeString(s);
11328
11329 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11330 EXPECT_HR(hr, S_OK);
11331 ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11332 SysFreeString(s);
11333
11334 s = (void*)0xdeadbeef;
11335 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11336 EXPECT_HR(hr, E_FAIL);
11337 ok(s == (void*)0xdeadbeef, "got %p\n", s);
11338
11339 /* enumerate */
11340 enumv = (void*)0xdeadbeef;
11341 EXPECT_REF(collection, 2);
11342 hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11343 EXPECT_HR(hr, S_OK);
11344 EXPECT_REF(collection, 3);
11345 ok(enumv != NULL, "got %p\n", enumv);
11346
11347 hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IUnknown, (void**)&unk1);
11348 EXPECT_HR(hr, S_OK);
11349 hr = IEnumVARIANT_QueryInterface(enumv, &IID_IUnknown, (void**)&unk2);
11350 EXPECT_HR(hr, S_OK);
11351 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11352 IUnknown_Release(unk1);
11353 IUnknown_Release(unk2);
11354
11355 hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IEnumVARIANT, (void**)&enum2);
11356 EXPECT_HR(hr, E_NOINTERFACE);
11357
11358 V_VT(&v) = VT_EMPTY;
11359 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11360 EXPECT_HR(hr, S_OK);
11361 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11362 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11363 VariantClear(&v);
11364
11365 V_VT(&v) = VT_EMPTY;
11366 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11367 EXPECT_HR(hr, S_OK);
11368 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11369 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11370 VariantClear(&v);
11371
11372 V_VT(&v) = VT_NULL;
11373 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11374 EXPECT_HR(hr, S_FALSE);
11375 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11376
11377 IEnumVARIANT_Release(enumv);
11378 IXMLDOMSchemaCollection_Release(collection);
11379
11380 IXMLDOMDocument2_Release(doc);
11381
11382 /* now with CLSID_DOMDocument60 */
11383 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument2)) return;
11384 doc = create_document_version(60, &IID_IXMLDOMDocument2);
11385
11386 /* null pointer */
11387 hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11388 EXPECT_HR(hr, E_POINTER);
11389
11390 /* no document loaded */
11391 collection = (void*)0xdeadbeef;
11392 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11393 EXPECT_HR(hr, S_OK);
11394 if (hr != S_OK)
11395 {
11396 IXMLDOMDocument2_Release(doc);
11397 return;
11398 }
11399 EXPECT_REF(collection, 2);
11400
11401 collection2 = (void*)0xdeadbeef;
11402 hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11403 EXPECT_HR(hr, S_OK);
11404 ok(collection == collection2, "got %p\n", collection2);
11405 EXPECT_REF(collection, 3);
11406 IXMLDOMSchemaCollection_Release(collection);
11407
11408 len = -1;
11409 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11410 EXPECT_HR(hr, S_OK);
11411 ok(len == 0, "got %d\n", len);
11412 IXMLDOMSchemaCollection_Release(collection);
11413
11414 /* now with document */
11415 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11416 EXPECT_HR(hr, S_OK);
11417
11418 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11419 EXPECT_HR(hr, S_OK);
11420
11421 len = -1;
11422 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11423 EXPECT_HR(hr, S_OK);
11424 ok(len == 2, "got %d\n", len);
11425
11426 /* try to lookup some uris */
11427 node = (void*)0xdeadbeef;
11428 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11429 EXPECT_HR(hr, E_NOTIMPL);
11430 ok(broken(node == (void*)0xdeadbeef) || (node == NULL), "got %p\n", node);
11431
11432 /* load schema and try to add it */
11433 doc2 = create_document(&IID_IXMLDOMDocument2);
11434 hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11435 EXPECT_HR(hr, S_OK);
11436
11437 V_VT(&v) = VT_DISPATCH;
11438 V_DISPATCH(&v) = (IDispatch*)doc2;
11439 hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11440 EXPECT_HR(hr, E_FAIL);
11441 IXMLDOMDocument2_Release(doc2);
11442
11443 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11444 EXPECT_HR(hr, S_OK);
11445 ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11446 SysFreeString(s);
11447
11448 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11449 EXPECT_HR(hr, S_OK);
11450 ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11451 SysFreeString(s);
11452
11453 s = (void*)0xdeadbeef;
11454 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11455 EXPECT_HR(hr, E_FAIL);
11456 ok(broken(s == (void*)0xdeadbeef) || (s == NULL), "got %p\n", s);
11457
11458 /* enumerate */
11459 enumv = (void*)0xdeadbeef;
11460 hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11461 EXPECT_HR(hr, S_OK);
11462 ok(enumv != NULL, "got %p\n", enumv);
11463
11464 V_VT(&v) = VT_EMPTY;
11465 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11466 EXPECT_HR(hr, S_OK);
11467 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11468 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11469 VariantClear(&v);
11470
11471 V_VT(&v) = VT_EMPTY;
11472 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11473 EXPECT_HR(hr, S_OK);
11474 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11475 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11476 VariantClear(&v);
11477
11478 V_VT(&v) = VT_NULL;
11479 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11480 EXPECT_HR(hr, S_FALSE);
11481 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11482
11483 IEnumVARIANT_Release(enumv);
11484 IXMLDOMSchemaCollection_Release(collection);
11485 IXMLDOMDocument2_Release(doc);
11486 free_bstrs();
11487 }
11488
11489 static DOMNodeType put_data_types[] = {
11490 NODE_TEXT,
11491 NODE_CDATA_SECTION,
11492 NODE_PROCESSING_INSTRUCTION,
11493 NODE_COMMENT,
11494 NODE_INVALID
11495 };
11496
11497 static void test_put_data(void)
11498 {
11499 static const WCHAR test_data[] = {'t','e','s','t',' ','n','o','d','e',' ','d','a','t','a',0};
11500 WCHAR buff[100], *data;
11501 IXMLDOMDocument *doc;
11502 DOMNodeType *type;
11503 IXMLDOMText *text;
11504 IXMLDOMNode *node;
11505 VARIANT v;
11506 BSTR get_data;
11507 HRESULT hr;
11508
11509 doc = create_document(&IID_IXMLDOMDocument);
11510
11511 memcpy(&buff[2], test_data, sizeof(test_data));
11512 /* just a big length */
11513 *(DWORD*)buff = 0xf0f0;
11514 data = &buff[2];
11515
11516 type = put_data_types;
11517 while (*type != NODE_INVALID)
11518 {
11519 V_VT(&v) = VT_I2;
11520 V_I2(&v) = *type;
11521
11522 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11523 EXPECT_HR(hr, S_OK);
11524
11525 /* put_data() is interface-specific */
11526 switch (*type)
11527 {
11528 case NODE_TEXT:
11529 {
11530 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11531 EXPECT_HR(hr, S_OK);
11532 hr = IXMLDOMText_put_data(text, data);
11533 EXPECT_HR(hr, S_OK);
11534
11535 hr = IXMLDOMText_get_data(text, &get_data);
11536 EXPECT_HR(hr, S_OK);
11537
11538 IXMLDOMText_Release(text);
11539 break;
11540 }
11541 case NODE_CDATA_SECTION:
11542 {
11543 IXMLDOMCDATASection *cdata;
11544
11545 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
11546 EXPECT_HR(hr, S_OK);
11547 hr = IXMLDOMCDATASection_put_data(cdata, data);
11548 EXPECT_HR(hr, S_OK);
11549
11550 hr = IXMLDOMCDATASection_get_data(cdata, &get_data);
11551 EXPECT_HR(hr, S_OK);
11552
11553 IXMLDOMCDATASection_Release(cdata);
11554 break;
11555 }
11556 case NODE_PROCESSING_INSTRUCTION:
11557 {
11558 IXMLDOMProcessingInstruction *pi;
11559
11560 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMProcessingInstruction, (void**)&pi);
11561 EXPECT_HR(hr, S_OK);
11562 hr = IXMLDOMProcessingInstruction_put_data(pi, data);
11563 EXPECT_HR(hr, S_OK);
11564
11565 hr = IXMLDOMProcessingInstruction_get_data(pi, &get_data);
11566 EXPECT_HR(hr, S_OK);
11567
11568 IXMLDOMProcessingInstruction_Release(pi);
11569 break;
11570 }
11571 case NODE_COMMENT:
11572 {
11573 IXMLDOMComment *comment;
11574
11575 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
11576 EXPECT_HR(hr, S_OK);
11577 hr = IXMLDOMComment_put_data(comment, data);
11578 EXPECT_HR(hr, S_OK);
11579
11580 hr = IXMLDOMComment_get_data(comment, &get_data);
11581 EXPECT_HR(hr, S_OK);
11582
11583 IXMLDOMComment_Release(comment);
11584 break;
11585 }
11586 default:
11587 break;
11588 }
11589
11590 /* compare */
11591 ok(!lstrcmpW(data, get_data), "%d: got wrong data %s, expected %s\n", *type, wine_dbgstr_w(get_data),
11592 wine_dbgstr_w(data));
11593 SysFreeString(get_data);
11594
11595 IXMLDOMNode_Release(node);
11596 type++;
11597 }
11598
11599 /* \r\n sequence is never escaped */
11600 V_VT(&v) = VT_I2;
11601 V_I2(&v) = NODE_TEXT;
11602
11603 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11604 ok(hr == S_OK, "got 0x%08x\n", hr);
11605
11606 IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11607
11608 hr = IXMLDOMText_put_data(text, _bstr_("\r\n"));
11609 ok(hr == S_OK, "got 0x%08x\n", hr);
11610
11611 hr = IXMLDOMText_get_data(text, &get_data);
11612 ok(hr == S_OK, "got 0x%08x\n", hr);
11613 todo_wine
11614 ok(!lstrcmpW(get_data, _bstr_("\n")), "got %s\n", wine_dbgstr_w(get_data));
11615 SysFreeString(get_data);
11616
11617 hr = IXMLDOMText_get_xml(text, &get_data);
11618 ok(hr == S_OK, "got 0x%08x\n", hr);
11619 ok(!lstrcmpW(get_data, _bstr_("\r\n")), "got %s\n", wine_dbgstr_w(get_data));
11620 SysFreeString(get_data);
11621
11622 IXMLDOMText_Release(text);
11623 IXMLDOMNode_Release(node);
11624
11625 IXMLDOMDocument_Release(doc);
11626 free_bstrs();
11627 }
11628
11629 static void test_putref_schemas(void)
11630 {
11631 IXMLDOMSchemaCollection *cache;
11632 IXMLDOMDocument2 *doc;
11633 VARIANT schema;
11634 HRESULT hr;
11635
11636 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11637 if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
11638
11639 doc = create_document(&IID_IXMLDOMDocument2);
11640 cache = create_cache(&IID_IXMLDOMSchemaCollection);
11641
11642 /* set to NULL iface when no schema is set */
11643 V_VT(&schema) = VT_DISPATCH;
11644 V_DISPATCH(&schema) = NULL;
11645 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11646 EXPECT_HR(hr, S_OK);
11647
11648 V_VT(&schema) = VT_UNKNOWN;
11649 V_UNKNOWN(&schema) = NULL;
11650 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11651 EXPECT_HR(hr, S_OK);
11652
11653 /* set as VT_DISPATCH, reset with it */
11654 V_VT(&schema) = VT_DISPATCH;
11655 V_DISPATCH(&schema) = (IDispatch*)cache;
11656 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11657 EXPECT_HR(hr, S_OK);
11658
11659 V_DISPATCH(&schema) = NULL;
11660 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11661 EXPECT_HR(hr, S_OK);
11662 ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11663
11664 V_VT(&schema) = VT_DISPATCH;
11665 V_DISPATCH(&schema) = NULL;
11666 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11667 EXPECT_HR(hr, S_OK);
11668
11669 V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11670 V_VT(&schema) = VT_I2;
11671 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11672 EXPECT_HR(hr, S_FALSE);
11673 ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11674 ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11675
11676 /* set as VT_UNKNOWN, reset with it */
11677 V_VT(&schema) = VT_UNKNOWN;
11678 V_UNKNOWN(&schema) = (IUnknown*)cache;
11679 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11680 EXPECT_HR(hr, S_OK);
11681
11682 V_DISPATCH(&schema) = NULL;
11683 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11684 EXPECT_HR(hr, S_OK);
11685 ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11686
11687 V_VT(&schema) = VT_UNKNOWN;
11688 V_UNKNOWN(&schema) = NULL;
11689 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11690 EXPECT_HR(hr, S_OK);
11691
11692 V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11693 V_VT(&schema) = VT_I2;
11694 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11695 EXPECT_HR(hr, S_FALSE);
11696 ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11697 ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11698
11699 IXMLDOMSchemaCollection_Release(cache);
11700 IXMLDOMDocument2_Release(doc);
11701 }
11702
11703 static void test_namedmap_newenum(void)
11704 {
11705 IEnumVARIANT *enum1, *enum2, *enum3;
11706 IXMLDOMNamedNodeMap *map;
11707 IUnknown *unk1, *unk2;
11708 IXMLDOMDocument *doc;
11709 IXMLDOMElement *elem;
11710 IXMLDOMNode *node;
11711 VARIANT_BOOL b;
11712 HRESULT hr;
11713 VARIANT v;
11714 BSTR str;
11715
11716 doc = create_document(&IID_IXMLDOMDocument);
11717
11718 hr = IXMLDOMDocument_loadXML(doc, _bstr_(attributes_map), &b);
11719 EXPECT_HR(hr, S_OK);
11720
11721 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11722 EXPECT_HR(hr, S_OK);
11723
11724 hr = IXMLDOMElement_get_attributes(elem, &map);
11725 EXPECT_HR(hr, S_OK);
11726 IXMLDOMElement_Release(elem);
11727
11728 enum1 = NULL;
11729 EXPECT_REF(map, 1);
11730 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum1);
11731 EXPECT_HR(hr, S_OK);
11732 ok(enum1 != NULL, "got %p\n", enum1);
11733 EXPECT_REF(map, 1);
11734 EXPECT_REF(enum1, 2);
11735
11736 enum2 = NULL;
11737 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum2);
11738 EXPECT_HR(hr, S_OK);
11739 ok(enum2 == enum1, "got %p\n", enum2);
11740
11741 IEnumVARIANT_Release(enum2);
11742
11743 EXPECT_REF(map, 1);
11744 hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum2);
11745 EXPECT_HR(hr, S_OK);
11746 EXPECT_REF(map, 2);
11747 EXPECT_REF(enum2, 1);
11748 ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
11749
11750 IEnumVARIANT_Release(enum1);
11751
11752 /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
11753 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk1);
11754 EXPECT_HR(hr, S_OK);
11755 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
11756 EXPECT_HR(hr, S_OK);
11757 EXPECT_REF(map, 3);
11758 EXPECT_REF(enum2, 2);
11759 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11760 IUnknown_Release(unk1);
11761 IUnknown_Release(unk2);
11762
11763 hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum3);
11764 EXPECT_HR(hr, S_OK);
11765 ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
11766 IEnumVARIANT_Release(enum3);
11767
11768 /* iteration tests */
11769 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node);
11770 EXPECT_HR(hr, S_OK);
11771 hr = IXMLDOMNode_get_nodeName(node, &str);
11772 EXPECT_HR(hr, S_OK);
11773 ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11774 SysFreeString(str);
11775 IXMLDOMNode_Release(node);
11776
11777 hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11778 EXPECT_HR(hr, S_OK);
11779 hr = IXMLDOMNode_get_nodeName(node, &str);
11780 EXPECT_HR(hr, S_OK);
11781 ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11782 SysFreeString(str);
11783 IXMLDOMNode_Release(node);
11784
11785 V_VT(&v) = VT_EMPTY;
11786 hr = IEnumVARIANT_Next(enum2, 1, &v, NULL);
11787 EXPECT_HR(hr, S_OK);
11788 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
11789 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
11790 EXPECT_HR(hr, S_OK);
11791 hr = IXMLDOMNode_get_nodeName(node, &str);
11792 EXPECT_HR(hr, S_OK);
11793 ok(!lstrcmpW(str, _bstr_("attr1")), "got node name %s\n", wine_dbgstr_w(str));
11794 SysFreeString(str);
11795 IXMLDOMNode_Release(node);
11796 VariantClear(&v);
11797
11798 hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11799 EXPECT_HR(hr, S_OK);
11800 hr = IXMLDOMNode_get_nodeName(node, &str);
11801 EXPECT_HR(hr, S_OK);
11802 ok(!lstrcmpW(str, _bstr_("attr2")), "got %s\n", wine_dbgstr_w(str));
11803 SysFreeString(str);
11804 IXMLDOMNode_Release(node);
11805
11806 IEnumVARIANT_Release(enum2);
11807 IXMLDOMNamedNodeMap_Release(map);
11808 IXMLDOMDocument_Release(doc);
11809 }
11810
11811 static const char xsltext_xsl[] =
11812 "<?xml version=\"1.0\"?>"
11813 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11814 "<xsl:output method=\"html\" encoding=\"us-ascii\"/>"
11815 "<xsl:template match=\"/\">"
11816 " <xsl:choose>"
11817 " <xsl:when test=\"testkey\">"
11818 " <xsl:text>testdata</xsl:text>"
11819 " </xsl:when>"
11820 " </xsl:choose>"
11821 "</xsl:template>"
11822 "</xsl:stylesheet>";
11823
11824 static const char omitxmldecl_xsl[] =
11825 "<?xml version=\"1.0\"?>"
11826 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11827 "<xsl:output method=\"xml\" omit-xml-declaration=\"yes\"/>"
11828 "<xsl:template match=\"/\">"
11829 " <xsl:for-each select=\"/a/item\">"
11830 " <xsl:element name=\"node\">"
11831 " <xsl:value-of select=\"@name\"/>"
11832 " </xsl:element>"
11833 " </xsl:for-each>"
11834 "</xsl:template>"
11835 "</xsl:stylesheet>";
11836
11837 static const char omitxmldecl_doc[] =
11838 "<?xml version=\"1.0\"?>"
11839 "<a>"
11840 " <item name=\"item1\"/>"
11841 " <item name=\"item2\"/>"
11842 "</a>";
11843
11844 static void test_xsltext(void)
11845 {
11846 IXMLDOMDocument *doc, *doc2;
11847 VARIANT_BOOL b;
11848 HRESULT hr;
11849 BSTR ret;
11850
11851 doc = create_document(&IID_IXMLDOMDocument);
11852 doc2 = create_document(&IID_IXMLDOMDocument);
11853
11854 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xsltext_xsl), &b);
11855 EXPECT_HR(hr, S_OK);
11856
11857 hr = IXMLDOMDocument_loadXML(doc2, _bstr_("<testkey/>"), &b);
11858 EXPECT_HR(hr, S_OK);
11859
11860 hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11861 EXPECT_HR(hr, S_OK);
11862 ok(!lstrcmpW(ret, _bstr_("testdata")), "transform result %s\n", wine_dbgstr_w(ret));
11863 SysFreeString(ret);
11864
11865 /* omit-xml-declaration */
11866 hr = IXMLDOMDocument_loadXML(doc, _bstr_(omitxmldecl_xsl), &b);
11867 ok(hr == S_OK, "got 0x%08x\n", hr);
11868 hr = IXMLDOMDocument_loadXML(doc2, _bstr_(omitxmldecl_doc), &b);
11869 ok(hr == S_OK, "got 0x%08x\n", hr);
11870
11871 hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11872 ok(hr == S_OK, "got 0x%08x\n", hr);
11873 ok(!lstrcmpW(ret, _bstr_("<node>item1</node><node>item2</node>")), "transform result %s\n", wine_dbgstr_w(ret));
11874 SysFreeString(ret);
11875
11876 IXMLDOMDocument_Release(doc2);
11877 IXMLDOMDocument_Release(doc);
11878 free_bstrs();
11879 }
11880
11881 struct attrtest_t {
11882 const char *name;
11883 const char *uri;
11884 const char *prefix;
11885 const char *href;
11886 };
11887
11888 static struct attrtest_t attrtests[] = {
11889 { "xmlns", "http://www.w3.org/2000/xmlns/", "xmlns", "xmlns" },
11890 { "xmlns", "nondefaulturi", "xmlns", "xmlns" },
11891 { "c", "http://www.w3.org/2000/xmlns/", NULL, "http://www.w3.org/2000/xmlns/" },
11892 { "c", "nsref1", NULL, "nsref1" },
11893 { "ns:c", "nsref1", "ns", "nsref1" },
11894 { "xmlns:c", "http://www.w3.org/2000/xmlns/", "xmlns", "" },
11895 { "xmlns:c", "nondefaulturi", "xmlns", "" },
11896 { 0 }
11897 };
11898
11899 static void test_create_attribute(void)
11900 {
11901 struct attrtest_t *ptr = attrtests;
11902 IXMLDOMElement *el;
11903 IXMLDOMDocument *doc;
11904 IXMLDOMNode *node, *node2;
11905 VARIANT var;
11906 HRESULT hr;
11907 int i = 0;
11908 BSTR str;
11909
11910 doc = create_document(&IID_IXMLDOMDocument);
11911
11912 while (ptr->name)
11913 {
11914 V_VT(&var) = VT_I1;
11915 V_I1(&var) = NODE_ATTRIBUTE;
11916 hr = IXMLDOMDocument_createNode(doc, var, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
11917 ok(hr == S_OK, "got 0x%08x\n", hr);
11918
11919 str = NULL;
11920 hr = IXMLDOMNode_get_prefix(node, &str);
11921 if (ptr->prefix)
11922 {
11923 ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
11924 ok(!lstrcmpW(str, _bstr_(ptr->prefix)), "%d: got prefix %s, expected %s\n", i, wine_dbgstr_w(str), ptr->prefix);
11925 }
11926 else
11927 {
11928 ok(hr == S_FALSE, "%d: got 0x%08x\n", i, hr);
11929 ok(str == NULL, "%d: got prefix %s\n", i, wine_dbgstr_w(str));
11930 }
11931 SysFreeString(str);
11932
11933 str = NULL;
11934 hr = IXMLDOMNode_get_namespaceURI(node, &str);
11935 ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
11936 ok(!lstrcmpW(str, _bstr_(ptr->href)), "%d: got uri %s, expected %s\n", i, wine_dbgstr_w(str), ptr->href);
11937 SysFreeString(str);
11938
11939 IXMLDOMNode_Release(node);
11940 free_bstrs();
11941
11942 i++;
11943 ptr++;
11944 }
11945
11946 V_VT(&var) = VT_I1;
11947 V_I1(&var) = NODE_ELEMENT;
11948 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("e"), NULL, &node2);
11949 ok(hr == S_OK, "got 0x%08x\n", hr);
11950
11951 hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&el);
11952 ok(hr == S_OK, "got 0x%08x\n", hr);
11953 IXMLDOMNode_Release(node2);
11954
11955 V_VT(&var) = VT_I1;
11956 V_I1(&var) = NODE_ATTRIBUTE;
11957 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("xmlns:a"), _bstr_("http://www.w3.org/2000/xmlns/"), &node);
11958 ok(hr == S_OK, "got 0x%08x\n", hr);
11959
11960 hr = IXMLDOMElement_setAttributeNode(el, (IXMLDOMAttribute*)node, NULL);
11961 ok(hr == S_OK, "got 0x%08x\n", hr);
11962
11963 /* for some reason default namespace uri is not reported */
11964 hr = IXMLDOMNode_get_namespaceURI(node, &str);
11965 ok(hr == S_OK, "got 0x%08x\n", hr);
11966 ok(!lstrcmpW(str, _bstr_("")), "got uri %s\n", wine_dbgstr_w(str));
11967 SysFreeString(str);
11968
11969 IXMLDOMNode_Release(node);
11970 IXMLDOMElement_Release(el);
11971 IXMLDOMDocument_Release(doc);
11972 free_bstrs();
11973 }
11974
11975 static void test_url(void)
11976 {
11977 IXMLDOMDocument *doc;
11978 HRESULT hr;
11979 BSTR s;
11980
11981 doc = create_document(&IID_IXMLDOMDocument);
11982
11983 hr = IXMLDOMDocument_get_url(doc, NULL);
11984 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
11985
11986 s = (BSTR)0x1;
11987 hr = IXMLDOMDocument_get_url(doc, &s);
11988 ok(hr == S_FALSE, "got 0x%08x\n", hr);
11989 ok(s == NULL, "got %s\n", wine_dbgstr_w(s));
11990
11991 IXMLDOMDocument_Release(doc);
11992 }
11993
11994 static void test_merging_text(void)
11995 {
11996 IXMLDOMText *nodetext;
11997 IXMLDOMText *newtext;
11998 IXMLDOMElement *root;
11999 IXMLDOMDocument *doc;
12000 IXMLDOMNode *first;
12001 HRESULT hr;
12002 VARIANT v;
12003 BSTR str;
12004 int i;
12005
12006 doc = create_document(&IID_IXMLDOMDocument);
12007
12008 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
12009 EXPECT_HR(hr, S_OK);
12010
12011 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
12012 EXPECT_HR(hr, S_OK);
12013
12014 /* test xmlAddChild */
12015 for (i = 0; i < 10; i++)
12016 {
12017 str = SysAllocString(szstr1);
12018 hr = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
12019 SysFreeString(str);
12020 EXPECT_HR(hr, S_OK);
12021
12022 newtext = NULL;
12023 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)nodetext, (IXMLDOMNode**)&newtext);
12024 EXPECT_HR(hr, S_OK);
12025 ok(nodetext == newtext, "expected %p, got %p\n", nodetext, newtext);
12026
12027 IXMLDOMText_Release(newtext);
12028 IXMLDOMText_Release(nodetext);
12029 }
12030
12031 /* test xmlAddPrevSibling */
12032 hr = IXMLDOMElement_get_firstChild(root, &first);
12033 EXPECT_HR(hr, S_OK);
12034 V_VT(&v) = VT_UNKNOWN;
12035 V_UNKNOWN(&v) = (IUnknown*)first;
12036 for (i = 0; i < 10; i++)
12037 {
12038 str = SysAllocString(szstr2);
12039 hr = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
12040 SysFreeString(str);
12041 EXPECT_HR(hr, S_OK);
12042
12043 newtext = NULL;
12044 hr = IXMLDOMElement_insertBefore(root, (IXMLDOMNode*)nodetext, v, (IXMLDOMNode**)&newtext);
12045 EXPECT_HR(hr, S_OK);
12046 ok(nodetext == newtext, "expected %p, got %p\n", nodetext, newtext);
12047
12048 IXMLDOMText_Release(newtext);
12049 IXMLDOMText_Release(nodetext);
12050 }
12051
12052 IXMLDOMNode_Release(first);
12053 IXMLDOMElement_Release(root);
12054 IXMLDOMDocument_Release(doc);
12055
12056 free_bstrs();
12057 }
12058
12059 START_TEST(domdoc)
12060 {
12061 HRESULT hr;
12062
12063 hr = CoInitialize( NULL );
12064 ok( hr == S_OK, "failed to init com\n");
12065 if (hr != S_OK) return;
12066
12067 get_class_support_data(domdoc_support_data);
12068 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument))
12069 {
12070 win_skip("DOMDocument2 is not supported. Skipping all tests.\n");
12071 CoUninitialize();
12072 return;
12073 }
12074
12075 test_domdoc();
12076 test_persiststreaminit();
12077 test_domnode();
12078 test_refs();
12079 test_create();
12080 test_getElementsByTagName();
12081 test_get_text();
12082 test_get_childNodes();
12083 test_get_firstChild();
12084 test_get_lastChild();
12085 test_removeChild();
12086 test_replaceChild();
12087 test_removeNamedItem();
12088 test_IXMLDOMDocument2();
12089 test_whitespace();
12090 test_XPath();
12091 test_XSLPattern();
12092 test_cloneNode();
12093 test_xmlTypes();
12094 test_save();
12095 test_testTransforms();
12096 test_namespaces_basic();
12097 test_namespaces_change();
12098 test_FormattingXML();
12099 test_nodeTypedValue();
12100 test_TransformWithLoadingLocalFile();
12101 test_put_nodeValue();
12102 test_IObjectSafety();
12103 test_splitText();
12104 test_getQualifiedItem();
12105 test_removeQualifiedItem();
12106 test_get_ownerDocument();
12107 test_setAttributeNode();
12108 test_put_dataType();
12109 test_createNode();
12110 test_create_attribute();
12111 test_get_prefix();
12112 test_default_properties();
12113 test_selectSingleNode();
12114 test_events();
12115 test_createProcessingInstruction();
12116 test_put_nodeTypedValue();
12117 test_get_xml();
12118 test_insertBefore();
12119 test_appendChild();
12120 test_get_doctype();
12121 test_get_tagName();
12122 test_get_dataType();
12123 test_get_nodeTypeString();
12124 test_get_attributes();
12125 test_selection();
12126 test_load();
12127 test_dispex();
12128 test_parseerror();
12129 test_getAttributeNode();
12130 test_getAttribute();
12131 test_supporterrorinfo();
12132 test_nodeValue();
12133 test_get_namespaces();
12134 test_put_data();
12135 test_putref_schemas();
12136 test_namedmap_newenum();
12137 test_xmlns_attribute();
12138 test_url();
12139 test_merging_text();
12140
12141 test_xsltemplate();
12142 test_xsltext();
12143
12144 if (is_clsid_supported(&CLSID_MXNamespaceManager40, &IID_IMXNamespaceManager))
12145 {
12146 test_mxnamespacemanager();
12147 test_mxnamespacemanager_override();
12148 }
12149
12150 CoUninitialize();
12151 }
Windows API implementation