?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
devenum: Implement IMoniker::GetClassID().
[wine.git] / dlls / msxml3 / tests / domdoc.c
blobf6e33d32468415b76b74520197b85e32f386e28a
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 expect_bstr_eq_and_free(str, "fn1.txt\n \nfn2.txt\n \nf1");
3142
3143 IXMLDOMNode_Release(nodeRoot);
3144 }
3145
3146 r = IXMLDOMNodeList_get_length( node_list, NULL );
3147 ok( r == E_INVALIDARG, "ret %08x\n", r );
3148
3149 r = IXMLDOMNodeList_get_length( node_list, &len );
3150 ok( r == S_OK, "ret %08x\n", r );
3151 ok( len == 1, "expect 1 got %d\n", len );
3152
3153 r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
3154 ok( r == E_INVALIDARG, "ret %08x\n", r );
3155
3156 r = IXMLDOMNodeList_nextNode( node_list, NULL );
3157 ok( r == E_INVALIDARG, "ret %08x\n", r );
3158
3159 r = IXMLDOMNodeList_get_item( node_list, 0, &node );
3160 ok( r == S_OK, "ret %08x\n", r );
3161 IXMLDOMNodeList_Release( node_list );
3162
3163 /* Invalid output parameter*/
3164 r = IXMLDOMNode_get_text( node, NULL );
3165 ok( r == E_INVALIDARG, "ret %08x\n", r );
3166
3167 r = IXMLDOMNode_get_text( node, &str );
3168 ok( r == S_OK, "ret %08x\n", r );
3169 ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
3170 SysFreeString(str);
3171
3172 r = IXMLDOMNode_get_attributes( node, &node_map );
3173 ok( r == S_OK, "ret %08x\n", r );
3174
3175 str = SysAllocString( szvr );
3176 r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
3177 ok( r == S_OK, "ret %08x\n", r );
3178 SysFreeString(str);
3179
3180 r = IXMLDOMNode_get_text( node2, &str );
3181 ok( r == S_OK, "ret %08x\n", r );
3182 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3183 SysFreeString(str);
3184
3185 r = IXMLDOMNode_get_firstChild( node2, &node3 );
3186 ok( r == S_OK, "ret %08x\n", r );
3187
3188 r = IXMLDOMNode_get_text( node3, &str );
3189 ok( r == S_OK, "ret %08x\n", r );
3190 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3191 SysFreeString(str);
3192
3193
3194 IXMLDOMNode_Release( node3 );
3195 IXMLDOMNode_Release( node2 );
3196 IXMLDOMNamedNodeMap_Release( node_map );
3197 IXMLDOMNode_Release( node );
3198 IXMLDOMDocument_Release( doc );
3199
3200 free_bstrs();
3201 }
3202
3203 static void test_get_childNodes(void)
3204 {
3205 IXMLDOMNodeList *node_list, *node_list2;
3206 IEnumVARIANT *enum1, *enum2, *enum3;
3207 VARIANT_BOOL b;
3208 IXMLDOMDocument *doc;
3209 IXMLDOMNode *node, *node2;
3210 IXMLDOMElement *element;
3211 IUnknown *unk1, *unk2;
3212 HRESULT hr;
3213 VARIANT v;
3214 BSTR str;
3215 LONG len;
3216
3217 doc = create_document(&IID_IXMLDOMDocument);
3218
3219 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3220 EXPECT_HR(hr, S_OK);
3221 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3222
3223 hr = IXMLDOMDocument_get_documentElement( doc, &element );
3224 EXPECT_HR(hr, S_OK);
3225
3226 hr = IXMLDOMElement_get_childNodes( element, &node_list );
3227 EXPECT_HR(hr, S_OK);
3228
3229 hr = IXMLDOMNodeList_get_length( node_list, &len );
3230 EXPECT_HR(hr, S_OK);
3231 ok( len == 4, "len %d\n", len);
3232
3233 /* refcount tests for IEnumVARIANT support */
3234 EXPECT_REF(node_list, 1);
3235 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum1);
3236 EXPECT_HR(hr, S_OK);
3237 EXPECT_REF(node_list, 1);
3238 EXPECT_REF(enum1, 2);
3239
3240 EXPECT_REF(node_list, 1);
3241 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum2);
3242 EXPECT_HR(hr, S_OK);
3243 EXPECT_REF(node_list, 1);
3244 ok(enum2 == enum1, "got %p, %p\n", enum2, enum1);
3245 IEnumVARIANT_Release(enum2);
3246
3247 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3248 EXPECT_HR(hr, S_OK);
3249 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
3250 EXPECT_HR(hr, S_OK);
3251 EXPECT_REF(node_list, 3);
3252 EXPECT_REF(enum1, 2);
3253 ok(unk1 == unk2, "got %p, %p\n", unk1, unk2);
3254 IUnknown_Release(unk1);
3255 IUnknown_Release(unk2);
3256
3257 EXPECT_REF(node_list, 1);
3258 hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum2);
3259 EXPECT_HR(hr, S_OK);
3260 EXPECT_REF(node_list, 2);
3261 EXPECT_REF(enum2, 1);
3262 ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
3263
3264 /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
3265 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3266 EXPECT_HR(hr, S_OK);
3267 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
3268 EXPECT_HR(hr, S_OK);
3269 EXPECT_REF(node_list, 3);
3270 EXPECT_REF(enum2, 2);
3271 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
3272 IUnknown_Release(unk1);
3273 IUnknown_Release(unk2);
3274
3275 hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum3);
3276 EXPECT_HR(hr, S_OK);
3277 ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
3278 IEnumVARIANT_Release(enum3);
3279 IEnumVARIANT_Release(enum2);
3280
3281 /* iteration tests */
3282 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
3283 EXPECT_HR(hr, S_OK);
3284 hr = IXMLDOMNode_get_nodeName(node, &str);
3285 EXPECT_HR(hr, S_OK);
3286 ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3287 SysFreeString(str);
3288 IXMLDOMNode_Release(node);
3289
3290 hr = IXMLDOMNodeList_nextNode(node_list, &node);
3291 EXPECT_HR(hr, S_OK);
3292 hr = IXMLDOMNode_get_nodeName(node, &str);
3293 EXPECT_HR(hr, S_OK);
3294 ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3295 SysFreeString(str);
3296 IXMLDOMNode_Release(node);
3297
3298 V_VT(&v) = VT_EMPTY;
3299 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
3300 EXPECT_HR(hr, S_OK);
3301 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
3302 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
3303 EXPECT_HR(hr, S_OK);
3304 hr = IXMLDOMNode_get_nodeName(node, &str);
3305 EXPECT_HR(hr, S_OK);
3306 ok(!lstrcmpW(str, _bstr_("bs")), "got node name %s\n", wine_dbgstr_w(str));
3307 SysFreeString(str);
3308 IXMLDOMNode_Release(node);
3309 VariantClear(&v);
3310
3311 hr = IXMLDOMNodeList_nextNode(node_list, &node);
3312 EXPECT_HR(hr, S_OK);
3313 hr = IXMLDOMNode_get_nodeName(node, &str);
3314 EXPECT_HR(hr, S_OK);
3315 ok(!lstrcmpW(str, _bstr_("pr")), "got %s\n", wine_dbgstr_w(str));
3316 SysFreeString(str);
3317 IXMLDOMNode_Release(node);
3318
3319 IEnumVARIANT_Release(enum1);
3320
3321 hr = IXMLDOMNodeList_get_item( node_list, 2, &node );
3322 EXPECT_HR(hr, S_OK);
3323
3324 hr = IXMLDOMNode_get_childNodes( node, &node_list2 );
3325 EXPECT_HR(hr, S_OK);
3326
3327 hr = IXMLDOMNodeList_get_length( node_list2, &len );
3328 EXPECT_HR(hr, S_OK);
3329 ok( len == 0, "len %d\n", len);
3330
3331 hr = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
3332 EXPECT_HR(hr, S_FALSE);
3333
3334 IXMLDOMNodeList_Release( node_list2 );
3335 IXMLDOMNode_Release( node );
3336 IXMLDOMNodeList_Release( node_list );
3337 IXMLDOMElement_Release( element );
3338
3339 /* test for children of <?xml ..?> node */
3340 hr = IXMLDOMDocument_get_firstChild(doc, &node);
3341 EXPECT_HR(hr, S_OK);
3342
3343 str = NULL;
3344 hr = IXMLDOMNode_get_nodeName(node, &str);
3345 EXPECT_HR(hr, S_OK);
3346 ok(!lstrcmpW(str, _bstr_("xml")), "got %s\n", wine_dbgstr_w(str));
3347 SysFreeString(str);
3348
3349 /* it returns empty but valid node list */
3350 node_list = (void*)0xdeadbeef;
3351 hr = IXMLDOMNode_get_childNodes(node, &node_list);
3352 EXPECT_HR(hr, S_OK);
3353
3354 len = -1;
3355 hr = IXMLDOMNodeList_get_length(node_list, &len);
3356 EXPECT_HR(hr, S_OK);
3357 ok(len == 0, "got %d\n", len);
3358
3359 IXMLDOMNodeList_Release( node_list );
3360 IXMLDOMNode_Release(node);
3361
3362 IXMLDOMDocument_Release( doc );
3363 free_bstrs();
3364 }
3365
3366 static void test_get_firstChild(void)
3367 {
3368 static const WCHAR xmlW[] = {'x','m','l',0};
3369 IXMLDOMDocument *doc;
3370 IXMLDOMNode *node;
3371 VARIANT_BOOL b;
3372 HRESULT r;
3373 BSTR str;
3374
3375 doc = create_document(&IID_IXMLDOMDocument);
3376
3377 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3378 ok( r == S_OK, "loadXML failed\n");
3379 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3380
3381 r = IXMLDOMDocument_get_firstChild( doc, &node );
3382 ok( r == S_OK, "ret %08x\n", r);
3383
3384 r = IXMLDOMNode_get_nodeName( node, &str );
3385 ok( r == S_OK, "ret %08x\n", r);
3386
3387 ok(!lstrcmpW(str, xmlW), "expected \"xml\" node name, got %s\n", wine_dbgstr_w(str));
3388
3389 SysFreeString(str);
3390 IXMLDOMNode_Release( node );
3391 IXMLDOMDocument_Release( doc );
3392
3393 free_bstrs();
3394 }
3395
3396 static void test_get_lastChild(void)
3397 {
3398 static const WCHAR lcW[] = {'l','c',0};
3399 static const WCHAR foW[] = {'f','o',0};
3400 IXMLDOMDocument *doc;
3401 IXMLDOMNode *node, *child;
3402 VARIANT_BOOL b;
3403 HRESULT r;
3404 BSTR str;
3405
3406 doc = create_document(&IID_IXMLDOMDocument);
3407
3408 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3409 ok( r == S_OK, "loadXML failed\n");
3410 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3411
3412 r = IXMLDOMDocument_get_lastChild( doc, &node );
3413 ok( r == S_OK, "ret %08x\n", r);
3414
3415 r = IXMLDOMNode_get_nodeName( node, &str );
3416 ok( r == S_OK, "ret %08x\n", r);
3417
3418 ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
3419 SysFreeString(str);
3420
3421 r = IXMLDOMNode_get_lastChild( node, &child );
3422 ok( r == S_OK, "ret %08x\n", r);
3423
3424 r = IXMLDOMNode_get_nodeName( child, &str );
3425 ok( r == S_OK, "ret %08x\n", r);
3426
3427 ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
3428 SysFreeString(str);
3429
3430 IXMLDOMNode_Release( child );
3431 IXMLDOMNode_Release( node );
3432 IXMLDOMDocument_Release( doc );
3433
3434 free_bstrs();
3435 }
3436
3437 static void test_removeChild(void)
3438 {
3439 HRESULT r;
3440 VARIANT_BOOL b;
3441 IXMLDOMDocument *doc;
3442 IXMLDOMElement *element, *lc_element;
3443 IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
3444 IXMLDOMNodeList *root_list, *fo_list;
3445
3446 doc = create_document(&IID_IXMLDOMDocument);
3447
3448 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3449 ok( r == S_OK, "loadXML failed\n");
3450 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3451
3452 r = IXMLDOMDocument_get_documentElement( doc, &element );
3453 ok( r == S_OK, "ret %08x\n", r);
3454 todo_wine EXPECT_REF(element, 2);
3455
3456 r = IXMLDOMElement_get_childNodes( element, &root_list );
3457 ok( r == S_OK, "ret %08x\n", r);
3458 EXPECT_REF(root_list, 1);
3459
3460 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3461 ok( r == S_OK, "ret %08x\n", r);
3462 EXPECT_REF(fo_node, 1);
3463
3464 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3465 ok( r == S_OK, "ret %08x\n", r);
3466 EXPECT_REF(fo_list, 1);
3467
3468 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3469 ok( r == S_OK, "ret %08x\n", r);
3470 EXPECT_REF(ba_node, 1);
3471
3472 /* invalid parameter: NULL ptr */
3473 removed_node = (void*)0xdeadbeef;
3474 r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
3475 ok( r == E_INVALIDARG, "ret %08x\n", r );
3476 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3477
3478 /* ba_node is a descendant of element, but not a direct child. */
3479 removed_node = (void*)0xdeadbeef;
3480 EXPECT_REF(ba_node, 1);
3481 EXPECT_CHILDREN(fo_node);
3482 r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
3483 ok( r == E_INVALIDARG, "ret %08x\n", r );
3484 ok( removed_node == NULL, "%p\n", removed_node );
3485 EXPECT_REF(ba_node, 1);
3486 EXPECT_CHILDREN(fo_node);
3487
3488 EXPECT_REF(ba_node, 1);
3489 EXPECT_REF(fo_node, 1);
3490 r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
3491 ok( r == S_OK, "ret %08x\n", r);
3492 ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
3493 EXPECT_REF(fo_node, 2);
3494 EXPECT_REF(ba_node, 1);
3495
3496 /* try removing already removed child */
3497 temp_node = (void*)0xdeadbeef;
3498 r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
3499 ok( r == E_INVALIDARG, "ret %08x\n", r);
3500 ok( temp_node == NULL, "%p\n", temp_node );
3501 IXMLDOMNode_Release( fo_node );
3502
3503 /* the removed node has no parent anymore */
3504 r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
3505 ok( r == S_FALSE, "ret %08x\n", r);
3506 ok( temp_node == NULL, "%p\n", temp_node );
3507
3508 IXMLDOMNode_Release( removed_node );
3509 IXMLDOMNode_Release( ba_node );
3510 IXMLDOMNodeList_Release( fo_list );
3511
3512 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3513 ok( r == S_OK, "ret %08x\n", r);
3514
3515 r = IXMLDOMNode_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
3516 ok( r == S_OK, "ret %08x\n", r);
3517
3518 /* MS quirk: passing wrong interface pointer works, too */
3519 r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
3520 ok( r == S_OK, "ret %08x\n", r);
3521 IXMLDOMElement_Release( lc_element );
3522
3523 temp_node = (void*)0xdeadbeef;
3524 r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
3525 ok( r == S_FALSE, "ret %08x\n", r);
3526 ok( temp_node == NULL, "%p\n", temp_node );
3527
3528 IXMLDOMNode_Release( lc_node );
3529 IXMLDOMNodeList_Release( root_list );
3530 IXMLDOMElement_Release( element );
3531 IXMLDOMDocument_Release( doc );
3532
3533 free_bstrs();
3534 }
3535
3536 static void test_replaceChild(void)
3537 {
3538 HRESULT r;
3539 VARIANT_BOOL b;
3540 IXMLDOMDocument *doc;
3541 IXMLDOMElement *element, *ba_element;
3542 IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
3543 IXMLDOMNodeList *root_list, *fo_list;
3544 IUnknown * unk1, *unk2;
3545 LONG len;
3546
3547 doc = create_document(&IID_IXMLDOMDocument);
3548
3549 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3550 ok( r == S_OK, "loadXML failed\n");
3551 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3552
3553 r = IXMLDOMDocument_get_documentElement( doc, &element );
3554 ok( r == S_OK, "ret %08x\n", r);
3555
3556 r = IXMLDOMElement_get_childNodes( element, &root_list );
3557 ok( r == S_OK, "ret %08x\n", r);
3558
3559 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3560 ok( r == S_OK, "ret %08x\n", r);
3561
3562 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3563 ok( r == S_OK, "ret %08x\n", r);
3564
3565 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3566 ok( r == S_OK, "ret %08x\n", r);
3567
3568 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3569 ok( r == S_OK, "ret %08x\n", r);
3570
3571 IXMLDOMNodeList_Release( fo_list );
3572
3573 /* invalid parameter: NULL ptr for element to remove */
3574 removed_node = (void*)0xdeadbeef;
3575 r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3576 ok( r == E_INVALIDARG, "ret %08x\n", r );
3577 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3578
3579 /* invalid parameter: NULL for replacement element. (Sic!) */
3580 removed_node = (void*)0xdeadbeef;
3581 r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3582 ok( r == E_INVALIDARG, "ret %08x\n", r );
3583 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3584
3585 /* invalid parameter: OldNode is not a child */
3586 removed_node = (void*)0xdeadbeef;
3587 r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3588 ok( r == E_INVALIDARG, "ret %08x\n", r );
3589 ok( removed_node == NULL, "%p\n", removed_node );
3590 IXMLDOMNode_Release( lc_node );
3591
3592 /* invalid parameter: would create loop */
3593 removed_node = (void*)0xdeadbeef;
3594 r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3595 ok( r == E_FAIL, "ret %08x\n", r );
3596 ok( removed_node == NULL, "%p\n", removed_node );
3597
3598 r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3599 ok( r == S_OK, "ret %08x\n", r );
3600
3601 r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3602 ok( r == S_OK, "ret %08x\n", r );
3603
3604 /* ba_node and temp_node refer to the same node, yet they
3605 are different interface pointers */
3606 ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3607 r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3608 ok( r == S_OK, "ret %08x\n", r );
3609 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3610 ok( r == S_OK, "ret %08x\n", r );
3611 todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3612
3613 IUnknown_Release( unk1 );
3614 IUnknown_Release( unk2 );
3615
3616 /* ba_node should have been removed from below fo_node */
3617 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3618 ok( r == S_OK, "ret %08x\n", r );
3619
3620 /* MS quirk: replaceChild also accepts elements instead of nodes */
3621 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3622 ok( r == S_OK, "ret %08x\n", r );
3623 EXPECT_REF(ba_element, 2);
3624
3625 removed_node = NULL;
3626 r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3627 ok( r == S_OK, "ret %08x\n", r );
3628 ok( removed_node != NULL, "got %p\n", removed_node);
3629 EXPECT_REF(ba_element, 3);
3630 IXMLDOMElement_Release( ba_element );
3631
3632 r = IXMLDOMNodeList_get_length( fo_list, &len);
3633 ok( r == S_OK, "ret %08x\n", r );
3634 ok( len == 0, "len %d\n", len);
3635
3636 IXMLDOMNodeList_Release( fo_list );
3637
3638 IXMLDOMNode_Release(ba_node);
3639 IXMLDOMNode_Release(fo_node);
3640 IXMLDOMNode_Release(temp_node);
3641 IXMLDOMNodeList_Release( root_list );
3642 IXMLDOMElement_Release( element );
3643 IXMLDOMDocument_Release( doc );
3644
3645 free_bstrs();
3646 }
3647
3648 static void test_removeNamedItem(void)
3649 {
3650 IXMLDOMDocument *doc;
3651 IXMLDOMElement *element;
3652 IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3653 IXMLDOMNodeList *root_list;
3654 IXMLDOMNamedNodeMap * pr_attrs;
3655 VARIANT_BOOL b;
3656 BSTR str;
3657 LONG len;
3658 HRESULT r;
3659
3660 doc = create_document(&IID_IXMLDOMDocument);
3661
3662 r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3663 ok( r == S_OK, "loadXML failed\n");
3664 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3665
3666 r = IXMLDOMDocument_get_documentElement( doc, &element );
3667 ok( r == S_OK, "ret %08x\n", r);
3668
3669 r = IXMLDOMElement_get_childNodes( element, &root_list );
3670 ok( r == S_OK, "ret %08x\n", r);
3671
3672 r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3673 ok( r == S_OK, "ret %08x\n", r);
3674
3675 r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3676 ok( r == S_OK, "ret %08x\n", r);
3677
3678 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3679 ok( r == S_OK, "ret %08x\n", r);
3680 ok( len == 3, "length %d\n", len);
3681
3682 removed_node = (void*)0xdeadbeef;
3683 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3684 ok ( r == E_INVALIDARG, "ret %08x\n", r);
3685 ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3686
3687 removed_node = (void*)0xdeadbeef;
3688 str = SysAllocString(szvr);
3689 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3690 ok ( r == S_OK, "ret %08x\n", r);
3691
3692 removed_node2 = (void*)0xdeadbeef;
3693 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3694 ok ( r == S_FALSE, "ret %08x\n", r);
3695 ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3696
3697 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3698 ok( r == S_OK, "ret %08x\n", r);
3699 ok( len == 2, "length %d\n", len);
3700
3701 r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3702 ok ( r == S_OK, "ret %08x\n", r);
3703 IXMLDOMNode_Release(removed_node);
3704
3705 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3706 ok( r == S_OK, "ret %08x\n", r);
3707 ok( len == 3, "length %d\n", len);
3708
3709 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3710 ok ( r == S_OK, "ret %08x\n", r);
3711
3712 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3713 ok( r == S_OK, "ret %08x\n", r);
3714 ok( len == 2, "length %d\n", len);
3715
3716 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3717 ok ( r == S_FALSE, "ret %08x\n", r);
3718
3719 SysFreeString(str);
3720
3721 IXMLDOMNamedNodeMap_Release( pr_attrs );
3722 IXMLDOMNode_Release( pr_node );
3723 IXMLDOMNodeList_Release( root_list );
3724 IXMLDOMElement_Release( element );
3725 IXMLDOMDocument_Release( doc );
3726
3727 free_bstrs();
3728 }
3729
3730 #define test_IObjectSafety_set(p, r, r2, s, m, e, e2) _test_IObjectSafety_set(__LINE__,p, r, r2, s, m, e, e2)
3731 static void _test_IObjectSafety_set(unsigned line, IObjectSafety *safety, HRESULT result,
3732 HRESULT result2, DWORD set, DWORD mask, DWORD expected,
3733 DWORD expected2)
3734 {
3735 DWORD enabled, supported;
3736 HRESULT hr;
3737
3738 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
3739 if (result == result2)
3740 ok_(__FILE__,line)(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
3741 else
3742 ok_(__FILE__,line)(broken(hr == result) || hr == result2,
3743 "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
3744
3745 supported = enabled = 0xCAFECAFE;
3746 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3747 ok(hr == S_OK, "ret %08x\n", hr );
3748 if (expected == expected2)
3749 ok_(__FILE__,line)(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
3750 else
3751 ok_(__FILE__,line)(broken(enabled == expected) || enabled == expected2,
3752 "Expected %08x, got %08x\n", expected2, enabled);
3753
3754 /* reset the safety options */
3755
3756 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3757 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
3758 0);
3759 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3760
3761 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3762 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3763 ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3764 }
3765
3766 #define test_IObjectSafety_common(s) _test_IObjectSafety_common(__LINE__,s)
3767 static void _test_IObjectSafety_common(unsigned line, IObjectSafety *safety)
3768 {
3769 DWORD enabled = 0, supported = 0;
3770 HRESULT hr;
3771
3772 /* get */
3773 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
3774 ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3775 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
3776 ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3777
3778 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3779 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3780 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3781 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3782 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3783 "got %08x\n", supported);
3784 ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3785
3786 /* set -- individual flags */
3787
3788 test_IObjectSafety_set(safety, S_OK, S_OK,
3789 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3790 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3791
3792 test_IObjectSafety_set(safety, S_OK, S_OK,
3793 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
3794 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
3795
3796 test_IObjectSafety_set(safety, S_OK, S_OK,
3797 INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
3798 0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
3799
3800 /* set INTERFACE_USES_DISPEX */
3801
3802 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3803 INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
3804 0, 0);
3805
3806 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3807 INTERFACE_USES_DISPEX, 0,
3808 0, 0);
3809
3810 test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
3811 0, INTERFACE_USES_DISPEX,
3812 0, 0);
3813
3814 /* set option masking */
3815
3816 test_IObjectSafety_set(safety, S_OK, S_OK,
3817 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3818 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3819 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3820 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3821
3822 test_IObjectSafety_set(safety, S_OK, S_OK,
3823 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3824 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3825 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3826 INTERFACESAFE_FOR_UNTRUSTED_DATA);
3827
3828 test_IObjectSafety_set(safety, S_OK, S_OK,
3829 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3830 INTERFACE_USES_SECURITY_MANAGER,
3831 0,
3832 0);
3833
3834 /* set -- inheriting previous settings */
3835
3836 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3837 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3838 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3839 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3840 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3841 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3842 ok_(__FILE__,line)(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER, "Expected INTERFACESAFE_FOR_UNTRUSTED_CALLER got %08x\n", enabled);
3843 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3844 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3845 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3846 "got %08x\n", supported);
3847
3848 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3849 INTERFACESAFE_FOR_UNTRUSTED_DATA,
3850 INTERFACESAFE_FOR_UNTRUSTED_DATA);
3851 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3852 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3853 ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3854 ok_(__FILE__,line)(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
3855 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA),
3856 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) got %08x\n", enabled);
3857 ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3858 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3859 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3860 "got %08x\n", supported);
3861 }
3862
3863 static void test_IXMLDOMDocument2(void)
3864 {
3865 static const WCHAR emptyW[] = {0};
3866 IXMLDOMDocument2 *doc2, *dtddoc2;
3867 IXMLDOMDocument *doc;
3868 IXMLDOMParseError* err;
3869 IDispatchEx *dispex;
3870 VARIANT_BOOL b;
3871 VARIANT var;
3872 HRESULT r;
3873 LONG res;
3874
3875 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
3876
3877 doc = create_document(&IID_IXMLDOMDocument);
3878 dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3879
3880 r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3881 ok( r == S_OK, "ret %08x\n", r );
3882 ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3883
3884 ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3885 ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3886 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3887
3888 err = NULL;
3889 ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3890 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3891 ok(err != NULL, "expected a pointer\n");
3892 if (err)
3893 {
3894 res = 0;
3895 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3896 /* XML_E_NOTWF */
3897 ok(res == E_XML_NOTWF, "got %08x\n", res);
3898 IXMLDOMParseError_Release(err);
3899 }
3900
3901 r = IXMLDOMDocument2_loadXML( doc2, _bstr_(complete4A), &b );
3902 ok( r == S_OK, "loadXML failed\n");
3903 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3904
3905 ole_check(IXMLDOMDocument_get_readyState(doc, &res));
3906 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3907
3908 err = NULL;
3909 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3910 ok(err != NULL, "expected a pointer\n");
3911 if (err)
3912 {
3913 res = 0;
3914 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3915 /* XML_E_NODTD */
3916 ok(res == E_XML_NODTD, "got %08x\n", res);
3917 IXMLDOMParseError_Release(err);
3918 }
3919
3920 r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3921 ok( r == S_OK, "ret %08x\n", r );
3922 if(r == S_OK)
3923 {
3924 IDispatchEx_Release(dispex);
3925 }
3926
3927 /* we will check if the variant got cleared */
3928 IXMLDOMDocument2_AddRef(doc2);
3929 EXPECT_REF(doc2, 3); /* doc, doc2, AddRef*/
3930
3931 V_VT(&var) = VT_UNKNOWN;
3932 V_UNKNOWN(&var) = (IUnknown *)doc2;
3933
3934 /* invalid calls */
3935 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3936 expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3937 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3938
3939 /* valid call */
3940 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3941 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3942 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3943 V_VT(&var) = VT_R4;
3944
3945 /* the variant didn't get cleared*/
3946 expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3947
3948 /* setProperty tests */
3949 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3950 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3951 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3952 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3953 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3954 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3955
3956 V_VT(&var) = VT_BSTR;
3957 V_BSTR(&var) = SysAllocString(emptyW);
3958 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3959 ok(r == S_OK, "got 0x%08x\n", r);
3960 VariantClear(&var);
3961
3962 V_VT(&var) = VT_I2;
3963 V_I2(&var) = 0;
3964 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3965 ok(r == E_FAIL, "got 0x%08x\n", r);
3966
3967 /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3968 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3969 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3970 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3971
3972 IXMLDOMDocument2_Release( doc2 );
3973 IXMLDOMDocument_Release( doc );
3974
3975 /* DTD validation */
3976 ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3977 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3978 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3979 err = NULL;
3980 ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3981 ok(err != NULL, "expected pointer\n");
3982 if (err)
3983 {
3984 res = 0;
3985 ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3986 ok(res == 0, "got %08x\n", res);
3987 IXMLDOMParseError_Release(err);
3988 }
3989
3990 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3991 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3992 err = NULL;
3993 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3994 ok(err != NULL, "expected pointer\n");
3995 if (err)
3996 {
3997 res = 0;
3998 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3999 /* XML_ELEMENT_UNDECLARED */
4000 todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
4001 IXMLDOMParseError_Release(err);
4002 }
4003
4004 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
4005 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4006 err = NULL;
4007 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4008 ok(err != NULL, "expected pointer\n");
4009 if (err)
4010 {
4011 res = 0;
4012 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4013 /* XML_ELEMENT_ID_NOT_FOUND */
4014 todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
4015 IXMLDOMParseError_Release(err);
4016 }
4017
4018 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
4019 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4020 err = NULL;
4021 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4022 ok(err != NULL, "expected pointer\n");
4023 if (err)
4024 {
4025 res = 0;
4026 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4027 /* XML_EMPTY_NOT_ALLOWED */
4028 todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
4029 IXMLDOMParseError_Release(err);
4030 }
4031
4032 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
4033 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4034 err = NULL;
4035 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4036 ok(err != NULL, "expected pointer\n");
4037 if (err)
4038 {
4039 res = 0;
4040 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4041 /* XML_ROOT_NAME_MISMATCH */
4042 todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
4043 IXMLDOMParseError_Release(err);
4044 }
4045
4046 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
4047 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4048 err = NULL;
4049 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4050 ok(err != NULL, "expected pointer\n");
4051 if (err)
4052 {
4053 res = 0;
4054 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4055 /* XML_INVALID_CONTENT */
4056 todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
4057 IXMLDOMParseError_Release(err);
4058 }
4059
4060 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
4061 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4062 err = NULL;
4063 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4064 ok(err != NULL, "expected pointer\n");
4065 if (err)
4066 {
4067 res = 0;
4068 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4069 /* XML_ATTRIBUTE_NOT_DEFINED */
4070 todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
4071 IXMLDOMParseError_Release(err);
4072 }
4073
4074 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
4075 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4076 err = NULL;
4077 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4078 ok(err != NULL, "expected pointer\n");
4079 if (err)
4080 {
4081 res = 0;
4082 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4083 /* XML_ATTRIBUTE_FIXED */
4084 todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
4085 IXMLDOMParseError_Release(err);
4086 }
4087
4088 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
4089 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4090 err = NULL;
4091 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4092 ok(err != NULL, "expected pointer\n");
4093 if (err)
4094 {
4095 res = 0;
4096 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4097 /* XML_ATTRIBUTE_VALUE */
4098 todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
4099 IXMLDOMParseError_Release(err);
4100 }
4101
4102 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
4103 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4104 err = NULL;
4105 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4106 ok(err != NULL, "expected pointer\n");
4107 if (err)
4108 {
4109 res = 0;
4110 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4111 /* XML_ILLEGAL_TEXT */
4112 todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
4113 IXMLDOMParseError_Release(err);
4114 }
4115
4116 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
4117 ok( b == VARIANT_TRUE, "failed to load XML string\n");
4118 err = NULL;
4119 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4120 ok(err != NULL, "expected pointer\n");
4121 if (err)
4122 {
4123 res = 0;
4124 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4125 /* XML_REQUIRED_ATTRIBUTE_MISSING */
4126 todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
4127 IXMLDOMParseError_Release(err);
4128 }
4129
4130 IXMLDOMDocument2_Release( dtddoc2 );
4131 free_bstrs();
4132 }
4133
4134 #define helper_ole_check(expr) { \
4135 HRESULT r = expr; \
4136 ok_(__FILE__, line)(r == S_OK, "=> %i: " #expr " returned %08x\n", __LINE__, r); \
4137 }
4138
4139 #define helper_ole_check_ver(expr) { \
4140 HRESULT r = expr; \
4141 ok_(__FILE__, line)(r == S_OK, "-> %i (%s): " #expr " returned %08x\n", __LINE__, ver, r); \
4142 }
4143
4144 #define helper_expect_list_and_release(list, expstr) { \
4145 char *str = list_to_string(list); \
4146 ok_(__FILE__, line)(strcmp(str, expstr)==0, "=> %i (%s): Invalid node list: %s, expected %s\n", __LINE__, ver, str, expstr); \
4147 if (list) IXMLDOMNodeList_Release(list); \
4148 }
4149
4150 #define helper_expect_bstr_and_release(bstr, str) { \
4151 ok_(__FILE__, line)(lstrcmpW(bstr, _bstr_(str)) == 0, \
4152 "=> %i (%s): got %s\n", __LINE__, ver, wine_dbgstr_w(bstr)); \
4153 SysFreeString(bstr); \
4154 }
4155
4156 #define check_ws_ignored(ver, doc, str) _check_ws_ignored(__LINE__, ver, doc, str)
4157 static inline void _check_ws_ignored(int line, const char *ver, IXMLDOMDocument2* doc, char const* str)
4158 {
4159 IXMLDOMNode *node1, *node2;
4160 IXMLDOMNodeList *list;
4161 BSTR bstr;
4162
4163 helper_ole_check_ver(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4164 helper_ole_check_ver(IXMLDOMNodeList_get_item(list, 0, &node1));
4165 helper_ole_check_ver(IXMLDOMNodeList_get_item(list, 1, &node2));
4166 helper_ole_check_ver(IXMLDOMNodeList_reset(list));
4167 helper_expect_list_and_release(list, "E1.E5.E1.E2.D1 E2.E5.E1.E2.D1");
4168
4169 helper_ole_check_ver(IXMLDOMNode_get_childNodes(node1, &list));
4170 helper_expect_list_and_release(list,
4171 "[4]1.E1.E5.E1.E2.D1 T2.E1.E5.E1.E2.D1 E3.E1.E5.E1.E2.D1 "
4172 "E4.E1.E5.E1.E2.D1 E5.E1.E5.E1.E2.D1 E6.E1.E5.E1.E2.D1");
4173 helper_ole_check_ver(IXMLDOMNode_get_text(node1, &bstr));
4174 if (str)
4175 {
4176 helper_expect_bstr_and_release(bstr, str);
4177 }
4178 else
4179 {
4180 helper_expect_bstr_and_release(bstr, " This is a description.");
4181 }
4182 IXMLDOMNode_Release(node1);
4183
4184 helper_ole_check_ver(IXMLDOMNode_get_childNodes(node2, &list));
4185 helper_expect_list_and_release(list,
4186 "T1.E2.E5.E1.E2.D1 E2.E2.E5.E1.E2.D1 T3.E2.E5.E1.E2.D1 "
4187 "E4.E2.E5.E1.E2.D1 T5.E2.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1 T7.E2.E5.E1.E2.D1");
4188 helper_ole_check_ver(IXMLDOMNode_get_text(node2, &bstr));
4189 helper_expect_bstr_and_release(bstr,
4190 "\n This is a description with preserved whitespace. \n ");
4191 IXMLDOMNode_Release(node2);
4192 }
4193
4194 #define check_ws_preserved(ver, doc, str) _check_ws_preserved(__LINE__, ver, doc, str)
4195 static inline void _check_ws_preserved(int line, const char *ver, IXMLDOMDocument2* doc, char const* str)
4196 {
4197 IXMLDOMNode *node1, *node2;
4198 IXMLDOMNodeList *list;
4199 BSTR bstr;
4200
4201 helper_ole_check_ver(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4202 helper_ole_check_ver(IXMLDOMNodeList_get_item(list, 0, &node1));
4203 helper_ole_check_ver(IXMLDOMNodeList_get_item(list, 1, &node2));
4204 helper_ole_check_ver(IXMLDOMNodeList_reset(list));
4205 helper_expect_list_and_release(list, "E2.E10.E2.E2.D1 E4.E10.E2.E2.D1");
4206
4207 helper_ole_check_ver(IXMLDOMNode_get_childNodes(node1, &list));
4208 helper_expect_list_and_release(list,
4209 "T1.E2.E10.E2.E2.D1 [4]2.E2.E10.E2.E2.D1 T3.E2.E10.E2.E2.D1 "
4210 "E4.E2.E10.E2.E2.D1 T5.E2.E10.E2.E2.D1 E6.E2.E10.E2.E2.D1 "
4211 "E7.E2.E10.E2.E2.D1 E8.E2.E10.E2.E2.D1 T9.E2.E10.E2.E2.D1");
4212 helper_ole_check_ver(IXMLDOMNode_get_text(node1, &bstr));
4213 if (str)
4214 {
4215 helper_expect_bstr_and_release(bstr, str);
4216 }
4217 else
4218 {
4219 helper_expect_bstr_and_release(bstr, "\n This is a description. \n ");
4220 }
4221 IXMLDOMNode_Release(node1);
4222
4223 helper_ole_check_ver(IXMLDOMNode_get_childNodes(node2, &list));
4224 helper_expect_list_and_release(list,
4225 "T1.E4.E10.E2.E2.D1 E2.E4.E10.E2.E2.D1 T3.E4.E10.E2.E2.D1 "
4226 "E4.E4.E10.E2.E2.D1 T5.E4.E10.E2.E2.D1 E6.E4.E10.E2.E2.D1 T7.E4.E10.E2.E2.D1");
4227 helper_ole_check_ver(IXMLDOMNode_get_text(node2, &bstr));
4228 helper_expect_bstr_and_release(bstr,
4229 "\n This is a description with preserved whitespace. \n ");
4230 IXMLDOMNode_Release(node2);
4231 }
4232
4233 static void test_preserve_charref(IXMLDOMDocument2 *doc, VARIANT_BOOL preserve)
4234 {
4235 static const WCHAR b1_p[] = {' ','T','e','x','t',' ','A',' ','e','n','d',' ',0};
4236 static const WCHAR b1_i[] = {'T','e','x','t',' ','A',' ','e','n','d',0};
4237 static const WCHAR b2_p[] = {'A','B',' ','C',' ',0};
4238 static const WCHAR b2_i[] = {'A','B',' ','C',0};
4239 IXMLDOMNodeList *list;
4240 IXMLDOMElement *root;
4241 IXMLDOMNode *node;
4242 const WCHAR *text;
4243 VARIANT_BOOL b;
4244 HRESULT hr;
4245 BSTR s;
4246
4247 hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc, preserve);
4248 ok(hr == S_OK, "got 0x%08x\n", hr);
4249
4250 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(charrefsxml), &b);
4251 ok(hr == S_OK, "got 0x%08x\n", hr);
4252
4253 hr = IXMLDOMDocument2_get_documentElement(doc, &root);
4254 ok(hr == S_OK, "got 0x%08x\n", hr);
4255
4256 hr = IXMLDOMElement_get_childNodes(root, &list);
4257 ok(hr == S_OK, "got 0x%08x\n", hr);
4258 IXMLDOMElement_Release(root);
4259
4260 text = preserve == VARIANT_TRUE ? b1_p : b1_i;
4261 hr = IXMLDOMNodeList_get_item(list, 0, &node);
4262 ok(hr == S_OK, "got 0x%08x\n", hr);
4263 hr = IXMLDOMNode_get_text(node, &s);
4264 ok(hr == S_OK, "got 0x%08x\n", hr);
4265 ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4266 SysFreeString(s);
4267 IXMLDOMNode_Release(node);
4268
4269 text = preserve == VARIANT_TRUE ? b2_p : b2_i;
4270 hr = IXMLDOMNodeList_get_item(list, 1, &node);
4271 ok(hr == S_OK, "got 0x%08x\n", hr);
4272 hr = IXMLDOMNode_get_text(node, &s);
4273 ok(hr == S_OK, "got 0x%08x\n", hr);
4274 ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4275 SysFreeString(s);
4276 IXMLDOMNode_Release(node);
4277
4278 IXMLDOMNodeList_Release(list);
4279 }
4280
4281 struct whitespace_t {
4282 const CLSID *clsid;
4283 const char *name;
4284 };
4285
4286 static const struct whitespace_t whitespace_test_data[] = {
4287 { &CLSID_DOMDocument, "CLSID_DOMDocument" },
4288 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" },
4289 { &CLSID_DOMDocument26, "CLSID_DOMDocument26" },
4290 { &CLSID_DOMDocument30, "CLSID_DOMDocument30" },
4291 { &CLSID_DOMDocument40, "CLSID_DOMDocument40" },
4292 { &CLSID_DOMDocument60, "CLSID_DOMDocument60" },
4293 { 0 }
4294 };
4295
4296 static void test_whitespace(void)
4297 {
4298 const struct whitespace_t *class_ptr = whitespace_test_data;
4299
4300 while (class_ptr->clsid)
4301 {
4302 IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
4303 IXMLDOMNodeList *list;
4304 IXMLDOMElement *root;
4305 VARIANT_BOOL b;
4306 HRESULT hr;
4307 LONG len;
4308
4309 if (!is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument2))
4310 {
4311 class_ptr++;
4312 continue;
4313 }
4314
4315 hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
4316 &IID_IXMLDOMDocument2, (void**)&doc1);
4317 ok(hr == S_OK, "got 0x%08x\n", hr);
4318
4319 hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
4320 &IID_IXMLDOMDocument2, (void**)&doc2);
4321 ok(hr == S_OK, "got 0x%08x\n", hr);
4322
4323 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
4324 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4325 ok(b == VARIANT_FALSE, "expected false\n");
4326 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4327 ok(b == VARIANT_TRUE, "expected true\n");
4328
4329 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4330 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4331 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4332 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4333
4334 /* switch to XPath */
4335 ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4336 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4337
4338 check_ws_ignored(class_ptr->name, doc1, NULL);
4339 check_ws_preserved(class_ptr->name, doc2, NULL);
4340
4341 /* new instances copy the property */
4342 ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
4343 ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
4344
4345 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4346 ok(b == VARIANT_FALSE, "expected false\n");
4347 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4348 ok(b == VARIANT_TRUE, "expected true\n");
4349
4350 check_ws_ignored(class_ptr->name, doc3, NULL);
4351 check_ws_preserved(class_ptr->name, doc4, NULL);
4352
4353 /* setting after loading xml affects trimming of leading/trailing ws only */
4354 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
4355 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
4356
4357 /* the trailing "\n " isn't there, because it was ws-only node */
4358 check_ws_ignored(class_ptr->name, doc1, " This is a description. ");
4359 check_ws_preserved(class_ptr->name, doc2, " This is a description.");
4360
4361 /* it takes effect on reload */
4362 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4363 ok(b == VARIANT_TRUE, "expected true\n");
4364 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4365 ok(b == VARIANT_FALSE, "expected false\n");
4366
4367 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4368 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4369 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4370 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4371
4372 check_ws_preserved(class_ptr->name, doc1, NULL);
4373 check_ws_ignored(class_ptr->name, doc2, NULL);
4374
4375 /* other instances follow suit */
4376 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4377 ok(b == VARIANT_TRUE, "expected true\n");
4378 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4379 ok(b == VARIANT_FALSE, "expected false\n");
4380
4381 check_ws_preserved(class_ptr->name, doc3, NULL);
4382 check_ws_ignored(class_ptr->name, doc4, NULL);
4383
4384 IXMLDOMDocument2_Release(doc2);
4385 IXMLDOMDocument2_Release(doc3);
4386 IXMLDOMDocument2_Release(doc4);
4387
4388 /* text with char references */
4389 test_preserve_charref(doc1, VARIANT_TRUE);
4390 test_preserve_charref(doc1, VARIANT_FALSE);
4391
4392 /* formatting whitespaces */
4393 hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_FALSE);
4394 ok(hr == S_OK, "got 0x%08x\n", hr);
4395
4396 hr = IXMLDOMDocument2_loadXML(doc1, _bstr_(complete7), &b);
4397 ok(hr == S_OK, "got 0x%08x\n", hr);
4398 ok(b == VARIANT_TRUE, "for %x\n", b);
4399
4400 hr = IXMLDOMDocument2_get_documentElement(doc1, &root);
4401 ok(hr == S_OK, "got 0x%08x\n", hr);
4402 hr = IXMLDOMElement_get_childNodes(root, &list);
4403 ok(hr == S_OK, "got 0x%08x\n", hr);
4404 len = 0;
4405 hr = IXMLDOMNodeList_get_length(list, &len);
4406 ok(hr == S_OK, "got 0x%08x\n", hr);
4407 ok(len == 3, "got %d\n", len);
4408 IXMLDOMNodeList_Release(list);
4409 IXMLDOMElement_Release(root);
4410
4411 IXMLDOMDocument2_Release(doc1);
4412
4413 free_bstrs();
4414
4415 class_ptr++;
4416 }
4417 }
4418
4419 typedef struct {
4420 const GUID *clsid;
4421 const char *name;
4422 const char *ns;
4423 HRESULT hr;
4424 } selection_ns_t;
4425
4426 /* supposed to be tested with szExampleXML */
4427 static const selection_ns_t selection_ns_data[] = {
4428 { &CLSID_DOMDocument, "CLSID_DOMDocument", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4429 { &CLSID_DOMDocument, "CLSID_DOMDocument", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4430 { &CLSID_DOMDocument, "CLSID_DOMDocument", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4431 { &CLSID_DOMDocument, "CLSID_DOMDocument", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4432
4433 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4434 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4435 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4436 { &CLSID_DOMDocument2, "CLSID_DOMDocument2", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4437
4438 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4439 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4440 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4441 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4442
4443 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4444 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4445 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4446 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4447
4448 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4449 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4450 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4451 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4452
4453 { NULL }
4454 };
4455
4456 typedef struct {
4457 const char *query;
4458 const char *list;
4459 } xpath_test_t;
4460
4461 static const xpath_test_t xpath_test[] = {
4462 { "*/a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4463 { "*/b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4464 { "*/c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4465 { "*/d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4466 { "//a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4467 { "//b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4468 { "//c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4469 { "//d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4470 { "//c[@type]", "E3.E2.E2.D1" },
4471 { "//c[@type]/ancestor::node()[1]", "E2.E2.D1" },
4472 { "//c[@type]/ancestor-or-self::node()[1]", "E3.E2.E2.D1" },
4473 { "//c[@type]/attribute::node()[1]", "A'type'.E3.E2.E2.D1" },
4474 { "//c[@type]/child::node()[1]", "T1.E3.E2.E2.D1" },
4475 { "//c[@type]/descendant::node()[1]", "T1.E3.E2.E2.D1" },
4476 { "//c[@type]/descendant-or-self::node()[1]", "E3.E2.E2.D1" },
4477 { "//c[@type]/following::node()[1]", "E4.E2.E2.D1" },
4478 { "//c[@type]/following-sibling::node()[1]", "E4.E2.E2.D1" },
4479 { "//c[@type]/parent::node()[1]", "E2.E2.D1" },
4480 { "//c[@type]/preceding::node()[1]", "T1.E2.E2.E2.D1" },
4481 { "//c[@type]/self::node()[1]", "E3.E2.E2.D1" },
4482 { "child::*", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4483 { "child::node()", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4484 { "child::text()", "" },
4485 { "child::*/..", "E2.D1" },
4486 { "child::*//@*/..", "E2.E5.E1.E2.D1 E2.E2.D1 E3.E2.E2.D1" },
4487 { "self::node()", "E2.D1" },
4488 { "ancestor::node()", "D1" },
4489 { "elem[c][last()]/a", "E1.E2.E2.D1"},
4490 { "ancestor-or-self::node()[1]", "E2.D1" },
4491 { "((//a)[1])[last()]", "E1.E1.E2.D1" },
4492 { "//elem[@*]", "E2.E2.D1" },
4493 { NULL }
4494 };
4495
4496 static void test_XPath(void)
4497 {
4498 const selection_ns_t *ptr = selection_ns_data;
4499 const xpath_test_t *xptest = xpath_test;
4500 VARIANT var;
4501 VARIANT_BOOL b;
4502 IXMLDOMDocument2 *doc;
4503 IXMLDOMDocument *doc2;
4504 IXMLDOMNode *rootNode;
4505 IXMLDOMNode *elem1Node;
4506 IXMLDOMNode *node;
4507 IXMLDOMNodeList *list;
4508 IXMLDOMElement *elem;
4509 IXMLDOMAttribute *attr;
4510 DOMNodeType type;
4511 HRESULT hr;
4512 LONG len;
4513 BSTR str;
4514
4515 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
4516 doc = create_document(&IID_IXMLDOMDocument2);
4517
4518 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4519 EXPECT_HR(hr, S_OK);
4520 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4521
4522 /* switch to XPath */
4523 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4524
4525 /* some simple queries*/
4526 EXPECT_REF(doc, 1);
4527 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4528 EXPECT_HR(hr, S_OK);
4529 EXPECT_REF(doc, 1);
4530 EXPECT_LIST_LEN(list, 1);
4531
4532 EXPECT_REF(list, 1);
4533 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4534 EXPECT_HR(hr, S_OK);
4535 EXPECT_REF(list, 1);
4536 EXPECT_REF(rootNode, 1);
4537
4538 hr = IXMLDOMNodeList_reset(list);
4539 EXPECT_HR(hr, S_OK);
4540 expect_list_and_release(list, "E2.D1");
4541
4542 /* peform xpath tests */
4543 for ( ; xptest->query ; xptest++ )
4544 {
4545 char *str;
4546
4547 hr = IXMLDOMNode_selectNodes(rootNode, _bstr_(xptest->query), &list);
4548 ok(hr == S_OK, "query evaluation failed for query=%s\n", xptest->query);
4549
4550 if (hr != S_OK)
4551 continue;
4552
4553 str = list_to_string(list);
4554
4555 ok(!strcmp(str, xptest->list), "query=%s, invalid node list: \"%s\", expected \"%s\"\n",
4556 xptest->query, str, xptest->list);
4557
4558 if (list)
4559 IXMLDOMNodeList_Release(list);
4560 }
4561
4562 if (0)
4563 {
4564 /* namespace:: axis test is disabled until namespace definitions
4565 are supported as attribute nodes, currently it's another node type */
4566 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("/root/namespace::*"), &list);
4567 EXPECT_HR(hr, S_OK);
4568 len = -1;
4569 hr = IXMLDOMNodeList_get_length(list, &len);
4570 EXPECT_HR(hr, S_OK);
4571 ok(len == 2, "got %d\n", len);
4572
4573 hr = IXMLDOMNodeList_nextNode(list, &node);
4574 EXPECT_HR(hr, S_OK);
4575 type = NODE_INVALID;
4576 hr = IXMLDOMNode_get_nodeType(node, &type);
4577 EXPECT_HR(hr, S_OK);
4578 ok(type == NODE_ATTRIBUTE, "got %d\n", type);
4579 IXMLDOMNode_Release(node);
4580
4581 IXMLDOMNodeList_Release(list);
4582 }
4583
4584 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//c"), &list));
4585 expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
4586
4587 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//c[@type]"), &list));
4588 expect_list_and_release(list, "E3.E2.E2.D1");
4589
4590 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
4591 /* using get_item for query results advances the position */
4592 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
4593 expect_node(node, "E2.E2.D1");
4594 IXMLDOMNode_Release(node);
4595 ole_check(IXMLDOMNodeList_nextNode(list, &node));
4596 expect_node(node, "E4.E2.D1");
4597 IXMLDOMNode_Release(node);
4598 ole_check(IXMLDOMNodeList_reset(list));
4599 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
4600
4601 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
4602 expect_list_and_release(list, "E2.D1");
4603
4604 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
4605 ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
4606 ole_check(IXMLDOMNodeList_reset(list));
4607 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
4608
4609 /* select an attribute */
4610 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
4611 expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
4612
4613 /* would evaluate to a number */
4614 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
4615 /* would evaluate to a boolean */
4616 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
4617 /* would evaluate to a string */
4618 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
4619
4620 /* no results */
4621 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
4622 expect_list_and_release(list, "");
4623 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("elem//c"), &list));
4624 expect_list_and_release(list, "");
4625 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem[4]"), &list));
4626 expect_list_and_release(list, "");
4627 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
4628 expect_list_and_release(list, "");
4629
4630 /* foo undeclared in document node */
4631 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4632 /* undeclared in <root> node */
4633 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
4634 /* undeclared in <elem> node */
4635 ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
4636 /* but this trick can be used */
4637 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
4638 expect_list_and_release(list, "E3.E4.E2.D1");
4639
4640 /* it has to be declared in SelectionNamespaces */
4641 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4642 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
4643
4644 /* now the namespace can be used */
4645 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list));
4646 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4647 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
4648 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4649 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
4650 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4651 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
4652 expect_list_and_release(list, "E6.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1");
4653
4654 /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
4655 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4656 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
4657
4658 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4659
4660 VariantInit(&var);
4661 ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
4662 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
4663 if (V_VT(&var) == VT_BSTR)
4664 expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
4665
4666 /* extra attributes - same thing*/
4667 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4668 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
4669 ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4670
4671 IXMLDOMNode_Release(rootNode);
4672 IXMLDOMNode_Release(elem1Node);
4673
4674 /* alter document with already built list */
4675 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4676 EXPECT_HR(hr, S_OK);
4677 EXPECT_LIST_LEN(list, 1);
4678
4679 hr = IXMLDOMDocument2_get_lastChild(doc, &rootNode);
4680 EXPECT_HR(hr, S_OK);
4681 EXPECT_REF(rootNode, 1);
4682 EXPECT_REF(doc, 1);
4683
4684 hr = IXMLDOMDocument2_removeChild(doc, rootNode, NULL);
4685 EXPECT_HR(hr, S_OK);
4686 IXMLDOMNode_Release(rootNode);
4687
4688 EXPECT_LIST_LEN(list, 1);
4689
4690 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4691 EXPECT_HR(hr, S_OK);
4692 EXPECT_REF(rootNode, 1);
4693
4694 IXMLDOMNodeList_Release(list);
4695
4696 hr = IXMLDOMNode_get_nodeName(rootNode, &str);
4697 EXPECT_HR(hr, S_OK);
4698 ok(!lstrcmpW(str, _bstr_("root")), "got %s\n", wine_dbgstr_w(str));
4699 SysFreeString(str);
4700 IXMLDOMNode_Release(rootNode);
4701
4702 /* alter node from list and get it another time */
4703 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4704 EXPECT_HR(hr, S_OK);
4705 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4706
4707 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4708 EXPECT_HR(hr, S_OK);
4709 EXPECT_LIST_LEN(list, 1);
4710
4711 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4712 EXPECT_HR(hr, S_OK);
4713
4714 hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4715 EXPECT_HR(hr, S_OK);
4716
4717 V_VT(&var) = VT_I2;
4718 V_I2(&var) = 1;
4719 hr = IXMLDOMElement_setAttribute(elem, _bstr_("attrtest"), var);
4720 EXPECT_HR(hr, S_OK);
4721 IXMLDOMElement_Release(elem);
4722 IXMLDOMNode_Release(rootNode);
4723
4724 /* now check attribute to be present */
4725 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4726 EXPECT_HR(hr, S_OK);
4727
4728 hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4729 EXPECT_HR(hr, S_OK);
4730
4731 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4732 EXPECT_HR(hr, S_OK);
4733 IXMLDOMAttribute_Release(attr);
4734
4735 IXMLDOMElement_Release(elem);
4736 IXMLDOMNode_Release(rootNode);
4737
4738 /* and now check for attribute in original document */
4739 hr = IXMLDOMDocument2_get_documentElement(doc, &elem);
4740 EXPECT_HR(hr, S_OK);
4741
4742 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4743 EXPECT_HR(hr, S_OK);
4744 IXMLDOMAttribute_Release(attr);
4745
4746 IXMLDOMElement_Release(elem);
4747
4748 /* attach node from list to another document */
4749 doc2 = create_document(&IID_IXMLDOMDocument);
4750
4751 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4752 EXPECT_HR(hr, S_OK);
4753 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4754
4755 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4756 EXPECT_HR(hr, S_OK);
4757 EXPECT_LIST_LEN(list, 1);
4758
4759 hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4760 EXPECT_HR(hr, S_OK);
4761 EXPECT_REF(rootNode, 1);
4762
4763 hr = IXMLDOMDocument_appendChild(doc2, rootNode, NULL);
4764 EXPECT_HR(hr, S_OK);
4765 EXPECT_REF(rootNode, 1);
4766 EXPECT_REF(doc2, 1);
4767 EXPECT_REF(list, 1);
4768
4769 EXPECT_LIST_LEN(list, 1);
4770
4771 IXMLDOMNode_Release(rootNode);
4772 IXMLDOMNodeList_Release(list);
4773 IXMLDOMDocument_Release(doc2);
4774 IXMLDOMDocument2_Release(doc);
4775
4776 while (ptr->clsid)
4777 {
4778 if (is_clsid_supported(ptr->clsid, &IID_IXMLDOMDocument2))
4779 {
4780 hr = CoCreateInstance(ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
4781 ok(hr == S_OK, "got 0x%08x\n", hr);
4782 }
4783 else
4784 {
4785 ptr++;
4786 continue;
4787 }
4788
4789 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4790 EXPECT_HR(hr, S_OK);
4791 ok(b == VARIANT_TRUE, "failed to load, %s\n", ptr->name);
4792
4793 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
4794 EXPECT_HR(hr, S_OK);
4795
4796 V_VT(&var) = VT_BSTR;
4797 V_BSTR(&var) = _bstr_(ptr->ns);
4798
4799 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), var);
4800 ok(hr == ptr->hr, "got 0x%08x, for %s, %s\n", hr, ptr->name, ptr->ns);
4801
4802 V_VT(&var) = VT_EMPTY;
4803 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
4804 EXPECT_HR(hr, S_OK);
4805 ok(V_VT(&var) == VT_BSTR, "got wrong property type %d\n", V_VT(&var));
4806 ok(!lstrcmpW(V_BSTR(&var), _bstr_(ptr->ns)), "got wrong value %s\n", wine_dbgstr_w(V_BSTR(&var)));
4807 VariantClear(&var);
4808
4809 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list);
4810 EXPECT_HR(hr, S_OK);
4811 if (hr == S_OK)
4812 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4813
4814 IXMLDOMDocument2_Release(doc);
4815 ptr++;
4816 free_bstrs();
4817 }
4818
4819 free_bstrs();
4820 }
4821
4822 static void test_cloneNode(void )
4823 {
4824 IXMLDOMDocument2 *doc, *doc_clone;
4825 IXMLDOMDocument *doc2;
4826 VARIANT_BOOL b;
4827 IXMLDOMNodeList *pList;
4828 IXMLDOMNamedNodeMap *mapAttr;
4829 LONG length, length1;
4830 LONG attr_cnt, attr_cnt1;
4831 IXMLDOMNode *node, *attr;
4832 IXMLDOMNode *node_clone;
4833 IXMLDOMNode *node_first;
4834 VARIANT v;
4835 HRESULT hr;
4836
4837 doc = create_document(&IID_IXMLDOMDocument2);
4838
4839 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b);
4840 ok(hr == S_OK, "got 0x%08x\n", hr);
4841 ok(b == VARIANT_TRUE, "failed to load XML string\n");
4842
4843 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &v);
4844 ok(hr == S_OK, "got 0x%08x\n", hr);
4845 ok(!lstrcmpW(V_BSTR(&v), _bstr_("XSLPattern")), "got prop value %s\n", wine_dbgstr_w(V_BSTR(&v)));
4846 VariantClear(&v);
4847
4848 V_BSTR(&v) = _bstr_("XPath");
4849 V_VT(&v) = VT_BSTR;
4850 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), v);
4851 ok(hr == S_OK, "got 0x%08x\n", hr);
4852 VariantClear(&v);
4853
4854 /* clone document node */
4855 hr = IXMLDOMDocument2_cloneNode(doc, VARIANT_TRUE, &node);
4856 ok( hr == S_OK, "ret %08x\n", hr );
4857 ok( node != NULL, "node %p\n", node );
4858
4859 hr = IXMLDOMNode_get_childNodes(node, &pList);
4860 ok( hr == S_OK, "ret %08x\n", hr );
4861 length = 0;
4862 hr = IXMLDOMNodeList_get_length(pList, &length);
4863 ok( hr == S_OK, "ret %08x\n", hr );
4864 ok(length == 2, "got %d\n", length);
4865 IXMLDOMNodeList_Release(pList);
4866
4867 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMDocument2, (void**)&doc_clone);
4868 ok(hr == S_OK, "got 0x%08x\n", hr);
4869
4870 /* cloned document inherits properties */
4871 hr = IXMLDOMDocument2_getProperty(doc_clone, _bstr_("SelectionLanguage"), &v);
4872 ok(hr == S_OK, "got 0x%08x\n", hr);
4873 ok(!lstrcmpW(V_BSTR(&v), _bstr_("XPath")), "got prop value %s\n", wine_dbgstr_w(V_BSTR(&v)));
4874 VariantClear(&v);
4875
4876 IXMLDOMDocument2_Release(doc_clone);
4877 IXMLDOMNode_Release(node);
4878
4879 hr = IXMLDOMDocument2_selectSingleNode(doc, _bstr_("lc/pr"), &node);
4880 ok( hr == S_OK, "ret %08x\n", hr );
4881 ok( node != NULL, "node %p\n", node );
4882
4883 /* Check invalid parameter */
4884 hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
4885 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
4886
4887 /* All Children */
4888 hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
4889 ok( hr == S_OK, "ret %08x\n", hr );
4890 ok( node_clone != NULL, "node %p\n", node );
4891
4892 hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4893 ok( hr == S_OK, "ret %08x\n", hr );
4894 hr = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4895 ok( hr == S_OK, "ret %08x\n", hr );
4896 IXMLDOMDocument_Release(doc2);
4897 IXMLDOMNode_Release(node_first);
4898
4899 hr = IXMLDOMNode_get_childNodes(node, &pList);
4900 ok( hr == S_OK, "ret %08x\n", hr );
4901 length = 0;
4902 hr = IXMLDOMNodeList_get_length(pList, &length);
4903 ok( hr == S_OK, "ret %08x\n", hr );
4904 ok(length == 1, "got %d\n", length);
4905 IXMLDOMNodeList_Release(pList);
4906
4907 hr = IXMLDOMNode_get_attributes(node, &mapAttr);
4908 ok( hr == S_OK, "ret %08x\n", hr );
4909 attr_cnt = 0;
4910 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt);
4911 ok( hr == S_OK, "ret %08x\n", hr );
4912 ok(attr_cnt == 3, "got %d\n", attr_cnt);
4913 IXMLDOMNamedNodeMap_Release(mapAttr);
4914
4915 hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4916 ok( hr == S_OK, "ret %08x\n", hr );
4917 length1 = 0;
4918 hr = IXMLDOMNodeList_get_length(pList, &length1);
4919 ok(length1 == 1, "got %d\n", length1);
4920 ok( hr == S_OK, "ret %08x\n", hr );
4921 IXMLDOMNodeList_Release(pList);
4922
4923 hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4924 ok( hr == S_OK, "ret %08x\n", hr );
4925 attr_cnt1 = 0;
4926 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4927 ok( hr == S_OK, "ret %08x\n", hr );
4928 ok(attr_cnt1 == 3, "got %d\n", attr_cnt1);
4929 /* now really get some attributes from cloned element */
4930 attr = NULL;
4931 hr = IXMLDOMNamedNodeMap_getNamedItem(mapAttr, _bstr_("id"), &attr);
4932 ok(hr == S_OK, "ret %08x\n", hr);
4933 IXMLDOMNode_Release(attr);
4934 IXMLDOMNamedNodeMap_Release(mapAttr);
4935
4936 ok(length == length1, "wrong Child count (%d, %d)\n", length, length1);
4937 ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4938 IXMLDOMNode_Release(node_clone);
4939
4940 /* No Children */
4941 hr = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4942 ok( hr == S_OK, "ret %08x\n", hr );
4943 ok( node_clone != NULL, "node %p\n", node );
4944
4945 hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4946 ok(hr == S_FALSE, "ret %08x\n", hr );
4947
4948 hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4949 ok(hr == S_OK, "ret %08x\n", hr );
4950 hr = IXMLDOMNodeList_get_length(pList, &length1);
4951 ok(hr == S_OK, "ret %08x\n", hr );
4952 ok( length1 == 0, "Length should be 0 (%d)\n", length1);
4953 IXMLDOMNodeList_Release(pList);
4954
4955 hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4956 ok(hr == S_OK, "ret %08x\n", hr );
4957 hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4958 ok(hr == S_OK, "ret %08x\n", hr );
4959 ok(attr_cnt1 == 3, "Attribute count should be 3 (%d)\n", attr_cnt1);
4960 IXMLDOMNamedNodeMap_Release(mapAttr);
4961
4962 ok(length != length1, "wrong Child count (%d, %d)\n", length, length1);
4963 ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4964 IXMLDOMNode_Release(node_clone);
4965
4966 IXMLDOMNode_Release(node);
4967 IXMLDOMDocument2_Release(doc);
4968 free_bstrs();
4969 }
4970
4971 static void test_xmlTypes(void)
4972 {
4973 IXMLDOMDocument *doc;
4974 IXMLDOMElement *pRoot;
4975 HRESULT hr;
4976 IXMLDOMComment *pComment;
4977 IXMLDOMElement *pElement;
4978 IXMLDOMAttribute *pAttribute;
4979 IXMLDOMNamedNodeMap *pAttribs;
4980 IXMLDOMCDATASection *pCDataSec;
4981 IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4982 IXMLDOMDocumentFragment *pDocFrag = NULL;
4983 IXMLDOMEntityReference *pEntityRef = NULL;
4984 BSTR str;
4985 IXMLDOMNode *pNextChild;
4986 VARIANT v;
4987 LONG len = 0;
4988
4989 doc = create_document(&IID_IXMLDOMDocument);
4990
4991 hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4992 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4993
4994 pNextChild = (void*)0xdeadbeef;
4995 hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4996 ok(hr == S_FALSE, "ret %08x\n", hr );
4997 ok(pNextChild == NULL, "pDocChild not NULL\n");
4998
4999 /* test previous Sibling */
5000 hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
5001 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5002
5003 pNextChild = (void*)0xdeadbeef;
5004 hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
5005 ok(hr == S_FALSE, "ret %08x\n", hr );
5006 ok(pNextChild == NULL, "pNextChild not NULL\n");
5007
5008 /* test get_dataType */
5009 V_VT(&v) = VT_EMPTY;
5010 hr = IXMLDOMDocument_get_dataType(doc, &v);
5011 ok(hr == S_FALSE, "ret %08x\n", hr );
5012 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5013 VariantClear(&v);
5014
5015 /* test implementation */
5016 hr = IXMLDOMDocument_get_implementation(doc, NULL);
5017 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5018
5019 hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
5020 ok(hr == S_OK, "ret %08x\n", hr );
5021 if(hr == S_OK)
5022 {
5023 VARIANT_BOOL hasFeature = VARIANT_TRUE;
5024 BSTR sEmpty = SysAllocStringLen(NULL, 0);
5025
5026 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
5027 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5028
5029 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
5030 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5031
5032 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
5033 ok(hr == S_OK, "ret %08x\n", hr );
5034 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
5035
5036 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
5037 ok(hr == S_OK, "ret %08x\n", hr );
5038 ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
5039
5040 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
5041 ok(hr == S_OK, "ret %08x\n", hr );
5042 ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
5043
5044 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
5045 ok(hr == S_OK, "ret %08x\n", hr );
5046 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
5047
5048 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
5049 ok(hr == S_OK, "ret %08x\n", hr );
5050 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
5051
5052 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
5053 ok(hr == S_OK, "ret %08x\n", hr );
5054 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
5055
5056 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
5057 ok(hr == S_OK, "ret %08x\n", hr );
5058 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
5059
5060 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
5061 ok(hr == S_OK, "ret %08x\n", hr );
5062 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
5063
5064 SysFreeString(sEmpty);
5065 IXMLDOMImplementation_Release(pIXMLDOMImplementation);
5066 }
5067
5068 pRoot = (IXMLDOMElement*)0x1;
5069 hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
5070 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5071 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
5072
5073 pRoot = (IXMLDOMElement*)0x1;
5074 hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
5075 ok(hr == E_FAIL, "ret %08x\n", hr );
5076 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
5077
5078 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5079 ok(hr == S_OK, "ret %08x\n", hr );
5080 if(hr == S_OK)
5081 {
5082 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5083 ok(hr == S_OK, "ret %08x\n", hr );
5084 if(hr == S_OK)
5085 {
5086 /* Comment */
5087 str = SysAllocString(szComment);
5088 hr = IXMLDOMDocument_createComment(doc, str, &pComment);
5089 SysFreeString(str);
5090 ok(hr == S_OK, "ret %08x\n", hr );
5091 if(hr == S_OK)
5092 {
5093 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
5094 ok(hr == S_OK, "ret %08x\n", hr );
5095
5096 hr = IXMLDOMComment_get_nodeName(pComment, &str);
5097 ok(hr == S_OK, "ret %08x\n", hr );
5098 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
5099 SysFreeString(str);
5100
5101 hr = IXMLDOMComment_get_xml(pComment, &str);
5102 ok(hr == S_OK, "ret %08x\n", hr );
5103 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
5104 SysFreeString(str);
5105
5106 /* put data Tests */
5107 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
5108 ok(hr == S_OK, "ret %08x\n", hr );
5109
5110 /* get data Tests */
5111 hr = IXMLDOMComment_get_data(pComment, &str);
5112 ok(hr == S_OK, "ret %08x\n", hr );
5113 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
5114 SysFreeString(str);
5115
5116 /* Confirm XML text is good */
5117 hr = IXMLDOMComment_get_xml(pComment, &str);
5118 ok(hr == S_OK, "ret %08x\n", hr );
5119 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
5120 SysFreeString(str);
5121
5122 /* Confirm we get the put_data Text back */
5123 hr = IXMLDOMComment_get_text(pComment, &str);
5124 ok(hr == S_OK, "ret %08x\n", hr );
5125 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
5126 SysFreeString(str);
5127
5128 /* test length property */
5129 hr = IXMLDOMComment_get_length(pComment, &len);
5130 ok(hr == S_OK, "ret %08x\n", hr );
5131 ok(len == 21, "expected 21 got %d\n", len);
5132
5133 /* test substringData */
5134 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
5135 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5136
5137 /* test substringData - Invalid offset */
5138 str = (BSTR)&szElement;
5139 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
5140 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5141 ok( str == NULL, "incorrect string\n");
5142
5143 /* test substringData - Invalid offset */
5144 str = (BSTR)&szElement;
5145 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
5146 ok(hr == S_FALSE, "ret %08x\n", hr );
5147 ok( str == NULL, "incorrect string\n");
5148
5149 /* test substringData - Invalid size */
5150 str = (BSTR)&szElement;
5151 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
5152 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5153 ok( str == NULL, "incorrect string\n");
5154
5155 /* test substringData - Invalid size */
5156 str = (BSTR)&szElement;
5157 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
5158 ok(hr == S_FALSE, "ret %08x\n", hr );
5159 ok( str == NULL, "incorrect string\n");
5160
5161 /* test substringData - Start of string */
5162 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
5163 ok(hr == S_OK, "ret %08x\n", hr );
5164 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5165 SysFreeString(str);
5166
5167 /* test substringData - Middle of string */
5168 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
5169 ok(hr == S_OK, "ret %08x\n", hr );
5170 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5171 SysFreeString(str);
5172
5173 /* test substringData - End of string */
5174 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
5175 ok(hr == S_OK, "ret %08x\n", hr );
5176 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5177 SysFreeString(str);
5178
5179 /* test appendData */
5180 hr = IXMLDOMComment_appendData(pComment, NULL);
5181 ok(hr == S_OK, "ret %08x\n", hr );
5182
5183 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
5184 ok(hr == S_OK, "ret %08x\n", hr );
5185
5186 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
5187 ok(hr == S_OK, "ret %08x\n", hr );
5188
5189 hr = IXMLDOMComment_get_text(pComment, &str);
5190 ok(hr == S_OK, "ret %08x\n", hr );
5191 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5192 SysFreeString(str);
5193
5194 /* test insertData */
5195 str = SysAllocStringLen(NULL, 0);
5196 hr = IXMLDOMComment_insertData(pComment, -1, str);
5197 ok(hr == S_OK, "ret %08x\n", hr );
5198
5199 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
5200 ok(hr == S_OK, "ret %08x\n", hr );
5201
5202 hr = IXMLDOMComment_insertData(pComment, 1000, str);
5203 ok(hr == S_OK, "ret %08x\n", hr );
5204
5205 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
5206 ok(hr == S_OK, "ret %08x\n", hr );
5207
5208 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
5209 ok(hr == S_OK, "ret %08x\n", hr );
5210
5211 hr = IXMLDOMComment_insertData(pComment, 0, str);
5212 ok(hr == S_OK, "ret %08x\n", hr );
5213 SysFreeString(str);
5214
5215 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
5216 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5217
5218 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
5219 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5220
5221 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
5222 ok(hr == S_OK, "ret %08x\n", hr );
5223
5224 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
5225 ok(hr == S_OK, "ret %08x\n", hr );
5226
5227 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
5228 ok(hr == S_OK, "ret %08x\n", hr );
5229
5230 hr = IXMLDOMComment_get_text(pComment, &str);
5231 ok(hr == S_OK, "ret %08x\n", hr );
5232 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5233 SysFreeString(str);
5234
5235 /* delete data */
5236 /* invalid arguments */
5237 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
5238 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5239
5240 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
5241 ok(hr == S_OK, "ret %08x\n", hr );
5242
5243 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
5244 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5245
5246 hr = IXMLDOMComment_get_length(pComment, &len);
5247 ok(hr == S_OK, "ret %08x\n", hr );
5248 ok(len == 43, "expected 43 got %d\n", len);
5249
5250 hr = IXMLDOMComment_deleteData(pComment, len, 1);
5251 ok(hr == S_OK, "ret %08x\n", hr );
5252
5253 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
5254 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5255
5256 /* delete from start */
5257 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
5258 ok(hr == S_OK, "ret %08x\n", hr );
5259
5260 hr = IXMLDOMComment_get_length(pComment, &len);
5261 ok(hr == S_OK, "ret %08x\n", hr );
5262 ok(len == 38, "expected 38 got %d\n", len);
5263
5264 hr = IXMLDOMComment_get_text(pComment, &str);
5265 ok(hr == S_OK, "ret %08x\n", hr );
5266 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5267 SysFreeString(str);
5268
5269 /* delete from end */
5270 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
5271 ok(hr == S_OK, "ret %08x\n", hr );
5272
5273 hr = IXMLDOMComment_get_length(pComment, &len);
5274 ok(hr == S_OK, "ret %08x\n", hr );
5275 ok(len == 35, "expected 35 got %d\n", len);
5276
5277 hr = IXMLDOMComment_get_text(pComment, &str);
5278 ok(hr == S_OK, "ret %08x\n", hr );
5279 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5280 SysFreeString(str);
5281
5282 /* delete from inside */
5283 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
5284 ok(hr == S_OK, "ret %08x\n", hr );
5285
5286 hr = IXMLDOMComment_get_length(pComment, &len);
5287 ok(hr == S_OK, "ret %08x\n", hr );
5288 ok(len == 2, "expected 2 got %d\n", len);
5289
5290 hr = IXMLDOMComment_get_text(pComment, &str);
5291 ok(hr == S_OK, "ret %08x\n", hr );
5292 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5293 SysFreeString(str);
5294
5295 /* delete whole data ... */
5296 hr = IXMLDOMComment_get_length(pComment, &len);
5297 ok(hr == S_OK, "ret %08x\n", hr );
5298
5299 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5300 ok(hr == S_OK, "ret %08x\n", hr );
5301 /* ... and try again with empty string */
5302 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5303 ok(hr == S_OK, "ret %08x\n", hr );
5304
5305 /* ::replaceData() */
5306 V_VT(&v) = VT_BSTR;
5307 V_BSTR(&v) = SysAllocString(szstr1);
5308 hr = IXMLDOMComment_put_nodeValue(pComment, v);
5309 ok(hr == S_OK, "ret %08x\n", hr );
5310 VariantClear(&v);
5311
5312 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
5313 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5314 hr = IXMLDOMComment_get_text(pComment, &str);
5315 ok(hr == S_OK, "ret %08x\n", hr );
5316 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5317 SysFreeString(str);
5318
5319 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
5320 ok(hr == S_OK, "ret %08x\n", hr );
5321 hr = IXMLDOMComment_get_text(pComment, &str);
5322 ok(hr == S_OK, "ret %08x\n", hr );
5323 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5324 SysFreeString(str);
5325
5326 /* NULL pointer means delete */
5327 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
5328 ok(hr == S_OK, "ret %08x\n", hr );
5329 hr = IXMLDOMComment_get_text(pComment, &str);
5330 ok(hr == S_OK, "ret %08x\n", hr );
5331 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5332 SysFreeString(str);
5333
5334 /* empty string means delete */
5335 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
5336 ok(hr == S_OK, "ret %08x\n", hr );
5337 hr = IXMLDOMComment_get_text(pComment, &str);
5338 ok(hr == S_OK, "ret %08x\n", hr );
5339 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5340 SysFreeString(str);
5341
5342 /* zero count means insert */
5343 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
5344 ok(hr == S_OK, "ret %08x\n", hr );
5345 hr = IXMLDOMComment_get_text(pComment, &str);
5346 ok(hr == S_OK, "ret %08x\n", hr );
5347 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5348 SysFreeString(str);
5349
5350 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
5351 ok(hr == S_OK, "ret %08x\n", hr );
5352
5353 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
5354 ok(hr == S_OK, "ret %08x\n", hr );
5355 hr = IXMLDOMComment_get_text(pComment, &str);
5356 ok(hr == S_OK, "ret %08x\n", hr );
5357 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5358 SysFreeString(str);
5359
5360 /* nonempty string, count greater than its length */
5361 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
5362 ok(hr == S_OK, "ret %08x\n", hr );
5363 hr = IXMLDOMComment_get_text(pComment, &str);
5364 ok(hr == S_OK, "ret %08x\n", hr );
5365 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5366 SysFreeString(str);
5367
5368 /* nonempty string, count less than its length */
5369 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
5370 ok(hr == S_OK, "ret %08x\n", hr );
5371 hr = IXMLDOMComment_get_text(pComment, &str);
5372 ok(hr == S_OK, "ret %08x\n", hr );
5373 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5374 SysFreeString(str);
5375
5376 IXMLDOMComment_Release(pComment);
5377 }
5378
5379 /* Element */
5380 str = SysAllocString(szElement);
5381 hr = IXMLDOMDocument_createElement(doc, str, &pElement);
5382 SysFreeString(str);
5383 ok(hr == S_OK, "ret %08x\n", hr );
5384 if(hr == S_OK)
5385 {
5386 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5387 ok(hr == S_OK, "ret %08x\n", hr );
5388
5389 hr = IXMLDOMElement_get_nodeName(pElement, &str);
5390 ok(hr == S_OK, "ret %08x\n", hr );
5391 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
5392 SysFreeString(str);
5393
5394 hr = IXMLDOMElement_get_xml(pElement, &str);
5395 ok(hr == S_OK, "ret %08x\n", hr );
5396 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
5397 SysFreeString(str);
5398
5399 /* Attribute */
5400 pAttribute = (IXMLDOMAttribute*)0x1;
5401 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
5402 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5403 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5404
5405 pAttribute = (IXMLDOMAttribute*)0x1;
5406 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
5407 ok(hr == E_FAIL, "ret %08x\n", hr );
5408 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5409
5410 str = SysAllocString(szAttribute);
5411 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
5412 SysFreeString(str);
5413 ok(hr == S_OK, "ret %08x\n", hr );
5414 if(hr == S_OK)
5415 {
5416 IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
5417
5418 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
5419 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5420
5421 pNextChild = (IXMLDOMNode *)0x1;
5422 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
5423 ok(hr == S_FALSE, "ret %08x\n", hr );
5424 ok(pNextChild == NULL, "pNextChild not NULL\n");
5425
5426 /* test Previous Sibling*/
5427 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
5428 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5429
5430 pNextChild = (IXMLDOMNode *)0x1;
5431 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
5432 ok(hr == S_FALSE, "ret %08x\n", hr );
5433 ok(pNextChild == NULL, "pNextChild not NULL\n");
5434
5435 hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
5436 ok(hr == E_FAIL, "ret %08x\n", hr );
5437 ok(pNewChild == NULL, "pNewChild not NULL\n");
5438
5439 hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
5440 ok(hr == S_OK, "ret %08x\n", hr );
5441 if ( hr == S_OK )
5442 {
5443 hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
5444 ok(hr == S_OK, "ret %08x\n", hr );
5445
5446 IXMLDOMNamedNodeMap_Release(pAttribs);
5447 }
5448
5449 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5450 ok(hr == S_OK, "ret %08x\n", hr );
5451 ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
5452 SysFreeString(str);
5453
5454 /* test nodeName */
5455 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5456 ok(hr == S_OK, "ret %08x\n", hr );
5457 ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
5458 SysFreeString(str);
5459
5460 /* test name property */
5461 hr = IXMLDOMAttribute_get_name(pAttribute, &str);
5462 ok(hr == S_OK, "ret %08x\n", hr );
5463 ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
5464 SysFreeString(str);
5465
5466 hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
5467 ok(hr == S_OK, "ret %08x\n", hr );
5468 ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
5469 SysFreeString(str);
5470
5471 IXMLDOMAttribute_Release(pAttribute);
5472
5473 /* Check Element again with the Add Attribute*/
5474 hr = IXMLDOMElement_get_xml(pElement, &str);
5475 ok(hr == S_OK, "ret %08x\n", hr );
5476 ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
5477 SysFreeString(str);
5478 }
5479
5480 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
5481 ok(hr == S_OK, "ret %08x\n", hr );
5482
5483 hr = IXMLDOMElement_get_xml(pElement, &str);
5484 ok(hr == S_OK, "ret %08x\n", hr );
5485 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
5486 SysFreeString(str);
5487
5488 /* Test for reversible escaping */
5489 str = SysAllocString( szStrangeChars );
5490 hr = IXMLDOMElement_put_text(pElement, str);
5491 ok(hr == S_OK, "ret %08x\n", hr );
5492 SysFreeString( str );
5493
5494 hr = IXMLDOMElement_get_xml(pElement, &str);
5495 ok(hr == S_OK, "ret %08x\n", hr );
5496 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
5497 SysFreeString(str);
5498
5499 hr = IXMLDOMElement_get_text(pElement, &str);
5500 ok(hr == S_OK, "ret %08x\n", hr );
5501 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
5502 SysFreeString(str);
5503
5504 IXMLDOMElement_Release(pElement);
5505 }
5506
5507 /* CData Section */
5508 str = SysAllocString(szCData);
5509 hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
5510 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5511
5512 hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
5513 SysFreeString(str);
5514 ok(hr == S_OK, "ret %08x\n", hr );
5515 if(hr == S_OK)
5516 {
5517 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
5518 VARIANT var;
5519
5520 VariantInit(&var);
5521
5522 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
5523 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
5524
5525 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
5526 ok(hr == S_OK, "ret %08x\n", hr );
5527
5528 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
5529 ok(hr == S_OK, "ret %08x\n", hr );
5530 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
5531 SysFreeString(str);
5532
5533 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5534 ok(hr == S_OK, "ret %08x\n", hr );
5535 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
5536 SysFreeString(str);
5537
5538 /* test lastChild */
5539 pNextChild = (IXMLDOMNode*)0x1;
5540 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
5541 ok(hr == S_FALSE, "ret %08x\n", hr );
5542 ok(pNextChild == NULL, "pNextChild not NULL\n");
5543
5544 /* put data Tests */
5545 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
5546 ok(hr == S_OK, "ret %08x\n", hr );
5547
5548 /* Confirm XML text is good */
5549 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5550 ok(hr == S_OK, "ret %08x\n", hr );
5551 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
5552 SysFreeString(str);
5553
5554 /* Confirm we get the put_data Text back */
5555 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5556 ok(hr == S_OK, "ret %08x\n", hr );
5557 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5558 SysFreeString(str);
5559
5560 /* test length property */
5561 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5562 ok(hr == S_OK, "ret %08x\n", hr );
5563 ok(len == 21, "expected 21 got %d\n", len);
5564
5565 /* test get data */
5566 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
5567 ok(hr == S_OK, "ret %08x\n", hr );
5568 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5569 SysFreeString(str);
5570
5571 /* test substringData */
5572 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
5573 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5574
5575 /* test substringData - Invalid offset */
5576 str = (BSTR)&szElement;
5577 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
5578 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5579 ok( str == NULL, "incorrect string\n");
5580
5581 /* test substringData - Invalid offset */
5582 str = (BSTR)&szElement;
5583 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
5584 ok(hr == S_FALSE, "ret %08x\n", hr );
5585 ok( str == NULL, "incorrect string\n");
5586
5587 /* test substringData - Invalid size */
5588 str = (BSTR)&szElement;
5589 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
5590 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5591 ok( str == NULL, "incorrect string\n");
5592
5593 /* test substringData - Invalid size */
5594 str = (BSTR)&szElement;
5595 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
5596 ok(hr == S_FALSE, "ret %08x\n", hr );
5597 ok( str == NULL, "incorrect string\n");
5598
5599 /* test substringData - Start of string */
5600 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
5601 ok(hr == S_OK, "ret %08x\n", hr );
5602 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5603 SysFreeString(str);
5604
5605 /* test substringData - Middle of string */
5606 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
5607 ok(hr == S_OK, "ret %08x\n", hr );
5608 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5609 SysFreeString(str);
5610
5611 /* test substringData - End of string */
5612 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
5613 ok(hr == S_OK, "ret %08x\n", hr );
5614 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5615 SysFreeString(str);
5616
5617 /* test appendData */
5618 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
5619 ok(hr == S_OK, "ret %08x\n", hr );
5620
5621 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
5622 ok(hr == S_OK, "ret %08x\n", hr );
5623
5624 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
5625 ok(hr == S_OK, "ret %08x\n", hr );
5626
5627 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5628 ok(hr == S_OK, "ret %08x\n", hr );
5629 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5630 SysFreeString(str);
5631
5632 /* test insertData */
5633 str = SysAllocStringLen(NULL, 0);
5634 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
5635 ok(hr == S_OK, "ret %08x\n", hr );
5636
5637 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
5638 ok(hr == S_OK, "ret %08x\n", hr );
5639
5640 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
5641 ok(hr == S_OK, "ret %08x\n", hr );
5642
5643 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
5644 ok(hr == S_OK, "ret %08x\n", hr );
5645
5646 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
5647 ok(hr == S_OK, "ret %08x\n", hr );
5648
5649 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
5650 ok(hr == S_OK, "ret %08x\n", hr );
5651 SysFreeString(str);
5652
5653 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
5654 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5655
5656 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
5657 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5658
5659 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
5660 ok(hr == S_OK, "ret %08x\n", hr );
5661
5662 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
5663 ok(hr == S_OK, "ret %08x\n", hr );
5664
5665 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
5666 ok(hr == S_OK, "ret %08x\n", hr );
5667
5668 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5669 ok(hr == S_OK, "ret %08x\n", hr );
5670 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5671 SysFreeString(str);
5672
5673 /* delete data */
5674 /* invalid arguments */
5675 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
5676 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5677
5678 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
5679 ok(hr == S_OK, "ret %08x\n", hr );
5680
5681 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
5682 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5683
5684 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5685 ok(hr == S_OK, "ret %08x\n", hr );
5686 ok(len == 43, "expected 43 got %d\n", len);
5687
5688 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
5689 ok(hr == S_OK, "ret %08x\n", hr );
5690
5691 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
5692 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5693
5694 /* delete from start */
5695 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
5696 ok(hr == S_OK, "ret %08x\n", hr );
5697
5698 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5699 ok(hr == S_OK, "ret %08x\n", hr );
5700 ok(len == 38, "expected 38 got %d\n", len);
5701
5702 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5703 ok(hr == S_OK, "ret %08x\n", hr );
5704 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5705 SysFreeString(str);
5706
5707 /* delete from end */
5708 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
5709 ok(hr == S_OK, "ret %08x\n", hr );
5710
5711 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5712 ok(hr == S_OK, "ret %08x\n", hr );
5713 ok(len == 35, "expected 35 got %d\n", len);
5714
5715 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5716 ok(hr == S_OK, "ret %08x\n", hr );
5717 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5718 SysFreeString(str);
5719
5720 /* delete from inside */
5721 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
5722 ok(hr == S_OK, "ret %08x\n", hr );
5723
5724 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5725 ok(hr == S_OK, "ret %08x\n", hr );
5726 ok(len == 2, "expected 2 got %d\n", len);
5727
5728 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5729 ok(hr == S_OK, "ret %08x\n", hr );
5730 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5731 SysFreeString(str);
5732
5733 /* delete whole data ... */
5734 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5735 ok(hr == S_OK, "ret %08x\n", hr );
5736
5737 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5738 ok(hr == S_OK, "ret %08x\n", hr );
5739
5740 /* ... and try again with empty string */
5741 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5742 ok(hr == S_OK, "ret %08x\n", hr );
5743
5744 /* ::replaceData() */
5745 V_VT(&v) = VT_BSTR;
5746 V_BSTR(&v) = SysAllocString(szstr1);
5747 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
5748 ok(hr == S_OK, "ret %08x\n", hr );
5749 VariantClear(&v);
5750
5751 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
5752 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5753 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5754 ok(hr == S_OK, "ret %08x\n", hr );
5755 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5756 SysFreeString(str);
5757
5758 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
5759 ok(hr == S_OK, "ret %08x\n", hr );
5760 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5761 ok(hr == S_OK, "ret %08x\n", hr );
5762 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5763 SysFreeString(str);
5764
5765 /* NULL pointer means delete */
5766 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
5767 ok(hr == S_OK, "ret %08x\n", hr );
5768 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5769 ok(hr == S_OK, "ret %08x\n", hr );
5770 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5771 SysFreeString(str);
5772
5773 /* empty string means delete */
5774 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5775 ok(hr == S_OK, "ret %08x\n", hr );
5776 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5777 ok(hr == S_OK, "ret %08x\n", hr );
5778 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5779 SysFreeString(str);
5780
5781 /* zero count means insert */
5782 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5783 ok(hr == S_OK, "ret %08x\n", hr );
5784 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5785 ok(hr == S_OK, "ret %08x\n", hr );
5786 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5787 SysFreeString(str);
5788
5789 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5790 ok(hr == S_OK, "ret %08x\n", hr );
5791
5792 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5793 ok(hr == S_OK, "ret %08x\n", hr );
5794 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5795 ok(hr == S_OK, "ret %08x\n", hr );
5796 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5797 SysFreeString(str);
5798
5799 /* nonempty string, count greater than its length */
5800 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5801 ok(hr == S_OK, "ret %08x\n", hr );
5802 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5803 ok(hr == S_OK, "ret %08x\n", hr );
5804 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5805 SysFreeString(str);
5806
5807 /* nonempty string, count less than its length */
5808 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5809 ok(hr == S_OK, "ret %08x\n", hr );
5810 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5811 ok(hr == S_OK, "ret %08x\n", hr );
5812 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5813 SysFreeString(str);
5814
5815 IXMLDOMCDATASection_Release(pCDataSec);
5816 }
5817
5818 /* Document Fragments */
5819 hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5820 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5821
5822 hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5823 ok(hr == S_OK, "ret %08x\n", hr );
5824 if(hr == S_OK)
5825 {
5826 IXMLDOMNode *node;
5827
5828 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5829 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5830
5831 node = (IXMLDOMNode *)0x1;
5832 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5833 ok(hr == S_FALSE, "ret %08x\n", hr );
5834 ok(node == NULL, "expected NULL, got %p\n", node);
5835
5836 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5837 ok(hr == S_OK, "ret %08x\n", hr );
5838
5839 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5840 ok(hr == S_OK, "ret %08x\n", hr );
5841 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5842 SysFreeString(str);
5843
5844 /* test next Sibling*/
5845 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5846 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5847
5848 node = (IXMLDOMNode *)0x1;
5849 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5850 ok(hr == S_FALSE, "ret %08x\n", hr );
5851 ok(node == NULL, "next sibling not NULL\n");
5852
5853 /* test Previous Sibling*/
5854 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5855 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5856
5857 node = (IXMLDOMNode *)0x1;
5858 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5859 ok(hr == S_FALSE, "ret %08x\n", hr );
5860 ok(node == NULL, "previous sibling not NULL\n");
5861
5862 IXMLDOMDocumentFragment_Release(pDocFrag);
5863 }
5864
5865 /* Entity References */
5866 hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5867 ok(hr == E_FAIL, "ret %08x\n", hr );
5868 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5869 ok(hr == E_FAIL, "ret %08x\n", hr );
5870
5871 str = SysAllocString(szEntityRef);
5872 hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5873 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5874
5875 hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5876 SysFreeString(str);
5877 ok(hr == S_OK, "ret %08x\n", hr );
5878 if(hr == S_OK)
5879 {
5880 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5881 ok(hr == S_OK, "ret %08x\n", hr );
5882
5883 /* test get_xml*/
5884 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5885 ok(hr == S_OK, "ret %08x\n", hr );
5886 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5887 SysFreeString(str);
5888
5889 IXMLDOMEntityReference_Release(pEntityRef);
5890 }
5891
5892 IXMLDOMElement_Release( pRoot );
5893 }
5894 }
5895
5896 IXMLDOMDocument_Release(doc);
5897
5898 free_bstrs();
5899 }
5900
5901 typedef struct {
5902 const char *name;
5903 const char *type;
5904 HRESULT hr;
5905 } put_datatype_t;
5906
5907 /* Type test for elements only. Name passed into put_dataType is case-insensitive.
5908 So many of the names have been changed to reflect this. */
5909 static put_datatype_t put_datatype_data[] = {
5910 { "test_inval", "abcdefg", E_FAIL },
5911 { "test_bool", "Boolean", S_OK },
5912 { "test_string", "String", S_OK },
5913 { "test_number", "number", S_OK },
5914 { "test_int", "InT", S_OK },
5915 { "test_fixed", "fixed.14.4", S_OK },
5916 { "test_datetime", "DateTime", S_OK },
5917 { "test_datetimetz", "DateTime.tz", S_OK },
5918 { "test_date", "Date", S_OK },
5919 { "test_time", "Time", S_OK },
5920 { "test_timetz", "Time.tz", S_OK },
5921 { "test_I1", "I1", S_OK },
5922 { "test_I2", "I2", S_OK },
5923 { "test_I4", "I4", S_OK },
5924 { "test_UI1", "UI1", S_OK },
5925 { "test_UI2", "UI2", S_OK },
5926 { "test_UI4", "UI4", S_OK },
5927 { "test_r4", "r4", S_OK },
5928 { "test_r8", "r8", S_OK },
5929 { "test_float", "float", S_OK },
5930 { "test_uuid", "UuId", S_OK },
5931 { "test_binhex", "bin.hex", S_OK },
5932 { "test_binbase64", "bin.base64", S_OK },
5933 { NULL }
5934 };
5935
5936 typedef struct {
5937 DOMNodeType type;
5938 HRESULT hr;
5939 } put_datatype_notype_t;
5940
5941 static put_datatype_notype_t put_dt_notype[] = {
5942 { NODE_PROCESSING_INSTRUCTION, E_FAIL },
5943 { NODE_DOCUMENT_FRAGMENT, E_FAIL },
5944 { NODE_ENTITY_REFERENCE, E_FAIL },
5945 { NODE_CDATA_SECTION, E_FAIL },
5946 { NODE_COMMENT, E_FAIL },
5947 { NODE_INVALID }
5948 };
5949
5950 static void test_put_dataType( void )
5951 {
5952 const put_datatype_notype_t *ptr2 = put_dt_notype;
5953 const put_datatype_t *ptr = put_datatype_data;
5954 IXMLDOMElement *root, *element;
5955 BSTR nameW, type1W, type2W;
5956 IXMLDOMDocument *doc;
5957 HRESULT hr;
5958
5959 doc = create_document(&IID_IXMLDOMDocument);
5960
5961 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5962 EXPECT_HR(hr, E_INVALIDARG);
5963
5964 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5965 EXPECT_HR(hr, S_OK);
5966
5967 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5968 EXPECT_HR(hr, S_OK);
5969
5970 hr = IXMLDOMElement_put_dataType(root, NULL);
5971 EXPECT_HR(hr, E_INVALIDARG);
5972
5973 while (ptr->name)
5974 {
5975 hr = IXMLDOMDocument_createElement(doc, _bstr_(ptr->name), &element);
5976 EXPECT_HR(hr, S_OK);
5977 if(hr == S_OK)
5978 {
5979 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5980 EXPECT_HR(hr, S_OK);
5981
5982 hr = IXMLDOMElement_put_dataType(element, _bstr_(ptr->type));
5983 ok(hr == ptr->hr, "failed for %s:%s, 0x%08x\n", ptr->name, ptr->type, ptr->hr);
5984
5985 IXMLDOMElement_Release(element);
5986 }
5987 ptr++;
5988 }
5989
5990 /* check changing types */
5991 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &element);
5992 EXPECT_HR(hr, S_OK);
5993
5994 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5995 EXPECT_HR(hr, S_OK);
5996
5997 hr = IXMLDOMElement_put_dataType(element, _bstr_("DateTime.tz"));
5998 EXPECT_HR(hr, S_OK);
5999
6000 hr = IXMLDOMElement_put_dataType(element, _bstr_("string"));
6001 EXPECT_HR(hr, S_OK);
6002
6003 IXMLDOMElement_Release(element);
6004
6005 /* try to set type for node without a type */
6006 nameW = _bstr_("testname");
6007 type1W = _bstr_("string");
6008 type2W = _bstr_("number");
6009 while (ptr2->type != NODE_INVALID)
6010 {
6011 IXMLDOMNode *node;
6012 VARIANT type;
6013
6014 V_VT(&type) = VT_I2;
6015 V_I2(&type) = ptr2->type;
6016
6017 hr = IXMLDOMDocument_createNode(doc, type, nameW, NULL, &node);
6018 EXPECT_HR(hr, S_OK);
6019 if(hr == S_OK)
6020 {
6021 hr = IXMLDOMElement_appendChild(root, node, NULL);
6022 EXPECT_HR(hr, S_OK);
6023
6024 hr = IXMLDOMNode_put_dataType(node, NULL);
6025 EXPECT_HR(hr, E_INVALIDARG);
6026
6027 hr = IXMLDOMNode_put_dataType(node, type1W);
6028 ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
6029 hr = IXMLDOMNode_put_dataType(node, type2W);
6030 ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
6031
6032 IXMLDOMNode_Release(node);
6033 }
6034 ptr2++;
6035 }
6036
6037 IXMLDOMElement_Release(root);
6038 IXMLDOMDocument_Release(doc);
6039 free_bstrs();
6040 }
6041
6042 static void test_save(void)
6043 {
6044 IXMLDOMDocument *doc, *doc2;
6045 IXMLDOMElement *root;
6046 BSTR sOrig, sNew, filename;
6047 char buffer[100];
6048 IStream *stream;
6049 HGLOBAL global;
6050 VARIANT_BOOL b;
6051 DWORD read = 0;
6052 VARIANT dest;
6053 HANDLE hfile;
6054 HRESULT hr;
6055 char *ptr;
6056
6057 doc = create_document(&IID_IXMLDOMDocument);
6058 doc2 = create_document(&IID_IXMLDOMDocument);
6059
6060 /* save to IXMLDOMDocument */
6061 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
6062 EXPECT_HR(hr, S_OK);
6063
6064 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
6065 EXPECT_HR(hr, S_OK);
6066
6067 V_VT(&dest) = VT_UNKNOWN;
6068 V_UNKNOWN(&dest) = (IUnknown*)doc2;
6069
6070 hr = IXMLDOMDocument_save(doc, dest);
6071 EXPECT_HR(hr, S_OK);
6072
6073 hr = IXMLDOMDocument_get_xml(doc, &sOrig);
6074 EXPECT_HR(hr, S_OK);
6075
6076 hr = IXMLDOMDocument_get_xml(doc2, &sNew);
6077 EXPECT_HR(hr, S_OK);
6078
6079 ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as original\n");
6080
6081 SysFreeString(sOrig);
6082 SysFreeString(sNew);
6083
6084 IXMLDOMElement_Release(root);
6085 IXMLDOMDocument_Release(doc2);
6086
6087 /* save to path */
6088 V_VT(&dest) = VT_BSTR;
6089 V_BSTR(&dest) = _bstr_("test.xml");
6090
6091 hr = IXMLDOMDocument_save(doc, dest);
6092 EXPECT_HR(hr, S_OK);
6093
6094 hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6095 ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6096 if(hfile == INVALID_HANDLE_VALUE) return;
6097
6098 ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6099 ok(read != 0, "could not read file\n");
6100 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6101
6102 CloseHandle(hfile);
6103 DeleteFileA("test.xml");
6104
6105 /* save to path VT_BSTR | VT_BYREF */
6106 filename = _bstr_("test.xml");
6107 V_VT(&dest) = VT_BSTR | VT_BYREF;
6108 V_BSTRREF(&dest) = &filename;
6109
6110 hr = IXMLDOMDocument_save(doc, dest);
6111 EXPECT_HR(hr, S_OK);
6112
6113 hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6114 ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6115 if(hfile == INVALID_HANDLE_VALUE) return;
6116
6117 if (hfile != INVALID_HANDLE_VALUE)
6118 {
6119 ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6120 ok(read != 0, "could not read file\n");
6121 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6122
6123 CloseHandle(hfile);
6124 DeleteFileA("test.xml");
6125 }
6126
6127 /* save to stream */
6128 V_VT(&dest) = VT_UNKNOWN;
6129 V_UNKNOWN(&dest) = (IUnknown*)&savestream;
6130
6131 hr = IXMLDOMDocument_save(doc, dest);
6132 EXPECT_HR(hr, S_OK);
6133
6134 /* loaded data contains xml declaration */
6135 hr = IXMLDOMDocument_loadXML(doc, _bstr_(win1252xml), &b);
6136 EXPECT_HR(hr, S_OK);
6137
6138 CreateStreamOnHGlobal(NULL, TRUE, &stream);
6139 V_VT(&dest) = VT_UNKNOWN;
6140 V_UNKNOWN(&dest) = (IUnknown*)stream;
6141 hr = IXMLDOMDocument_save(doc, dest);
6142 EXPECT_HR(hr, S_OK);
6143
6144 hr = GetHGlobalFromStream(stream, &global);
6145 EXPECT_HR(hr, S_OK);
6146 ptr = GlobalLock(global);
6147 ok(!memcmp(ptr, win1252decl, strlen(win1252decl)), "got wrong xml declaration\n");
6148 GlobalUnlock(global);
6149 IStream_Release(stream);
6150
6151 /* loaded data without xml declaration */
6152 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<a/>"), &b);
6153 EXPECT_HR(hr, S_OK);
6154
6155 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
6156 ok(hr == S_OK, "got 0x%08x\n", hr);
6157 V_VT(&dest) = VT_UNKNOWN;
6158 V_UNKNOWN(&dest) = (IUnknown*)stream;
6159 hr = IXMLDOMDocument_save(doc, dest);
6160 EXPECT_HR(hr, S_OK);
6161
6162 hr = GetHGlobalFromStream(stream, &global);
6163 EXPECT_HR(hr, S_OK);
6164 ptr = GlobalLock(global);
6165 ok(ptr[0] == '<' && ptr[1] != '?', "got wrong start tag %c%c\n", ptr[0], ptr[1]);
6166 GlobalUnlock(global);
6167 IStream_Release(stream);
6168
6169 IXMLDOMDocument_Release(doc);
6170 free_bstrs();
6171 }
6172
6173 static void test_testTransforms(void)
6174 {
6175 IXMLDOMDocument *doc, *docSS;
6176 IXMLDOMNode *pNode;
6177 VARIANT_BOOL bSucc;
6178 HRESULT hr;
6179
6180 doc = create_document(&IID_IXMLDOMDocument);
6181 docSS = create_document(&IID_IXMLDOMDocument);
6182
6183 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
6184 ok(hr == S_OK, "ret %08x\n", hr );
6185
6186 hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
6187 ok(hr == S_OK, "ret %08x\n", hr );
6188
6189 hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
6190 ok(hr == S_OK, "ret %08x\n", hr );
6191 if(hr == S_OK)
6192 {
6193 BSTR bOut;
6194
6195 hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
6196 ok(hr == S_OK, "ret %08x\n", hr );
6197 if(hr == S_OK)
6198 {
6199 ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "got output %s\n", wine_dbgstr_w(bOut));
6200 SysFreeString(bOut);
6201 }
6202
6203 IXMLDOMNode_Release(pNode);
6204 }
6205
6206 IXMLDOMDocument_Release(docSS);
6207 IXMLDOMDocument_Release(doc);
6208
6209 free_bstrs();
6210 }
6211
6212 struct namespaces_change_t {
6213 const CLSID *clsid;
6214 const char *name;
6215 };
6216
6217 static const struct namespaces_change_t namespaces_change_test_data[] = {
6218 { &CLSID_DOMDocument, "CLSID_DOMDocument" },
6219 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" },
6220 { &CLSID_DOMDocument26, "CLSID_DOMDocument26" },
6221 { &CLSID_DOMDocument30, "CLSID_DOMDocument30" },
6222 { &CLSID_DOMDocument40, "CLSID_DOMDocument40" },
6223 { &CLSID_DOMDocument60, "CLSID_DOMDocument60" },
6224 { 0 }
6225 };
6226
6227 static void test_namespaces_change(void)
6228 {
6229 const struct namespaces_change_t *class_ptr = namespaces_change_test_data;
6230
6231 while (class_ptr->clsid)
6232 {
6233 IXMLDOMDocument *doc = NULL;
6234 IXMLDOMElement *elem = NULL;
6235 IXMLDOMNode *node = NULL;
6236
6237 VARIANT var;
6238 HRESULT hr;
6239 BSTR str;
6240
6241 if (!is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument))
6242 {
6243 class_ptr++;
6244 continue;
6245 }
6246
6247 hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
6248 &IID_IXMLDOMDocument, (void**)&doc);
6249 ok(hr == S_OK, "got 0x%08x\n", hr);
6250
6251 V_VT(&var) = VT_I2;
6252 V_I2(&var) = NODE_ELEMENT;
6253
6254 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("ns:elem"), _bstr_("ns/uri"), &node);
6255 EXPECT_HR(hr, S_OK);
6256
6257 hr = IXMLDOMDocument_appendChild(doc, node, NULL);
6258 EXPECT_HR(hr, S_OK);
6259
6260 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6261 EXPECT_HR(hr, S_OK);
6262
6263 /* try same prefix, different uri */
6264 V_VT(&var) = VT_BSTR;
6265 V_BSTR(&var) = _bstr_("ns/uri2");
6266
6267 hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6268 EXPECT_HR(hr, E_INVALIDARG);
6269
6270 /* try same prefix and uri */
6271 V_VT(&var) = VT_BSTR;
6272 V_BSTR(&var) = _bstr_("ns/uri");
6273
6274 hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6275 EXPECT_HR(hr, S_OK);
6276
6277 hr = IXMLDOMElement_get_xml(elem, &str);
6278 EXPECT_HR(hr, S_OK);
6279 ok(!lstrcmpW(str, _bstr_("<ns:elem xmlns:ns=\"ns/uri\"/>")), "got element %s for %s\n",
6280 wine_dbgstr_w(str), class_ptr->name);
6281 SysFreeString(str);
6282
6283 IXMLDOMElement_Release(elem);
6284 IXMLDOMDocument_Release(doc);
6285
6286 free_bstrs();
6287
6288 class_ptr++;
6289 }
6290 }
6291
6292 static void test_namespaces_basic(void)
6293 {
6294 static const CHAR namespaces_xmlA[] =
6295 "<?xml version=\"1.0\"?>\n"
6296 "<XMI xmi.version=\"1.1\" xmlns:Model=\"http://omg.org/mof.Model/1.3\">"
6297 " <XMI.content>"
6298 " <Model:Package name=\"WinePackage\" Model:name2=\"name2 attr\" />"
6299 " </XMI.content>"
6300 "</XMI>";
6301
6302 IXMLDOMDocument *doc;
6303 IXMLDOMElement *elem;
6304 IXMLDOMNode *node;
6305
6306 VARIANT_BOOL b;
6307 HRESULT hr;
6308 BSTR str;
6309
6310 doc = create_document(&IID_IXMLDOMDocument);
6311
6312 hr = IXMLDOMDocument_loadXML(doc, _bstr_(namespaces_xmlA), &b);
6313 EXPECT_HR(hr, S_OK);
6314 ok(b == VARIANT_TRUE, "got %d\n", b);
6315
6316 str = (BSTR)0xdeadbeef;
6317 hr = IXMLDOMDocument_get_namespaceURI(doc, &str);
6318 EXPECT_HR(hr, S_FALSE);
6319 ok(str == NULL, "got %p\n", str);
6320
6321 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("//XMI.content"), &node );
6322 EXPECT_HR(hr, S_OK);
6323 if(hr == S_OK)
6324 {
6325 IXMLDOMAttribute *attr;
6326 IXMLDOMNode *node2;
6327
6328 hr = IXMLDOMNode_get_firstChild(node, &node2);
6329 EXPECT_HR(hr, S_OK);
6330 ok(node2 != NULL, "got %p\n", node2);
6331
6332 /* Test get_prefix */
6333 hr = IXMLDOMNode_get_prefix(node2, NULL);
6334 EXPECT_HR(hr, E_INVALIDARG);
6335 /* NOTE: Need to test that arg2 gets cleared on Error. */
6336
6337 hr = IXMLDOMNode_get_prefix(node2, &str);
6338 EXPECT_HR(hr, S_OK);
6339 ok( !lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6340 SysFreeString(str);
6341
6342 hr = IXMLDOMNode_get_nodeName(node2, &str);
6343 EXPECT_HR(hr, S_OK);
6344 ok(!lstrcmpW( str, _bstr_("Model:Package")), "got %s\n", wine_dbgstr_w(str));
6345 SysFreeString(str);
6346
6347 /* Test get_namespaceURI */
6348 hr = IXMLDOMNode_get_namespaceURI(node2, NULL);
6349 EXPECT_HR(hr, E_INVALIDARG);
6350 /* NOTE: Need to test that arg2 gets cleared on Error. */
6351
6352 hr = IXMLDOMNode_get_namespaceURI(node2, &str);
6353 EXPECT_HR(hr, S_OK);
6354 ok(!lstrcmpW( str, _bstr_("http://omg.org/mof.Model/1.3")), "got %s\n", wine_dbgstr_w(str));
6355 SysFreeString(str);
6356
6357 hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&elem);
6358 EXPECT_HR(hr, S_OK);
6359
6360 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("Model:name2"), &attr);
6361 EXPECT_HR(hr, S_OK);
6362
6363 hr = IXMLDOMAttribute_get_nodeName(attr, &str);
6364 EXPECT_HR(hr, S_OK);
6365 ok(!lstrcmpW( str, _bstr_("Model:name2")), "got %s\n", wine_dbgstr_w(str));
6366 SysFreeString(str);
6367
6368 hr = IXMLDOMAttribute_get_prefix(attr, &str);
6369 EXPECT_HR(hr, S_OK);
6370 ok(!lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6371 SysFreeString(str);
6372
6373 IXMLDOMAttribute_Release(attr);
6374 IXMLDOMElement_Release(elem);
6375
6376 IXMLDOMNode_Release(node2);
6377 IXMLDOMNode_Release(node);
6378 }
6379
6380 IXMLDOMDocument_Release(doc);
6381
6382 free_bstrs();
6383 }
6384
6385 static void test_FormattingXML(void)
6386 {
6387 IXMLDOMDocument *doc;
6388 IXMLDOMElement *pElement;
6389 VARIANT_BOOL bSucc;
6390 HRESULT hr;
6391 BSTR str;
6392 static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
6393 static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
6394
6395 doc = create_document(&IID_IXMLDOMDocument);
6396
6397 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
6398 ok(hr == S_OK, "ret %08x\n", hr );
6399 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6400
6401 if(bSucc == VARIANT_TRUE)
6402 {
6403 hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
6404 ok(hr == S_OK, "ret %08x\n", hr );
6405 if(hr == S_OK)
6406 {
6407 hr = IXMLDOMElement_get_xml(pElement, &str);
6408 ok(hr == S_OK, "ret %08x\n", hr );
6409 ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
6410 SysFreeString(str);
6411
6412 IXMLDOMElement_Release(pElement);
6413 }
6414 }
6415
6416 IXMLDOMDocument_Release(doc);
6417
6418 free_bstrs();
6419 }
6420
6421 typedef struct _nodetypedvalue_t {
6422 const char *name;
6423 VARTYPE type;
6424 const char *value; /* value in string format */
6425 } nodetypedvalue_t;
6426
6427 static const nodetypedvalue_t get_nodetypedvalue[] = {
6428 { "root/string", VT_BSTR, "Wine" },
6429 { "root/string2", VT_BSTR, "String" },
6430 { "root/number", VT_BSTR, "12.44" },
6431 { "root/number2", VT_BSTR, "-3.71e3" },
6432 { "root/int", VT_I4, "-13" },
6433 { "root/fixed", VT_CY, "7322.9371" },
6434 { "root/bool", VT_BOOL, "-1" },
6435 { "root/datetime", VT_DATE, "40135.14" },
6436 { "root/datetimetz",VT_DATE, "37813.59" },
6437 { "root/date", VT_DATE, "665413" },
6438 { "root/time", VT_DATE, "0.5813889" },
6439 { "root/timetz", VT_DATE, "1.112512" },
6440 { "root/i1", VT_I1, "-13" },
6441 { "root/i2", VT_I2, "31915" },
6442 { "root/i4", VT_I4, "-312232" },
6443 { "root/ui1", VT_UI1, "123" },
6444 { "root/ui2", VT_UI2, "48282" },
6445 { "root/ui4", VT_UI4, "949281" },
6446 { "root/r4", VT_R4, "213124" },
6447 { "root/r8", VT_R8, "0.412" },
6448 { "root/float", VT_R8, "41221.421" },
6449 { "root/uuid", VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
6450 { "root/binbase64", VT_ARRAY|VT_UI1, "base64 test" },
6451 { "root/binbase64_1", VT_ARRAY|VT_UI1, "base64 test" },
6452 { "root/binbase64_2", VT_ARRAY|VT_UI1, "base64 test" },
6453 { 0 }
6454 };
6455
6456 static void test_nodeTypedValue(void)
6457 {
6458 const nodetypedvalue_t *entry = get_nodetypedvalue;
6459 IXMLDOMDocumentType *doctype, *doctype2;
6460 IXMLDOMProcessingInstruction *pi;
6461 IXMLDOMDocumentFragment *frag;
6462 IXMLDOMDocument *doc, *doc2;
6463 IXMLDOMCDATASection *cdata;
6464 IXMLDOMComment *comment;
6465 IXMLDOMNode *node;
6466 VARIANT_BOOL b;
6467 VARIANT value;
6468 HRESULT hr;
6469
6470 doc = create_document(&IID_IXMLDOMDocument);
6471
6472 b = VARIANT_FALSE;
6473 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
6474 ok(hr == S_OK, "ret %08x\n", hr );
6475 ok(b == VARIANT_TRUE, "got %d\n", b);
6476
6477 hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
6478 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6479
6480 V_VT(&value) = VT_BSTR;
6481 V_BSTR(&value) = NULL;
6482 hr = IXMLDOMDocument_get_nodeValue(doc, &value);
6483 ok(hr == S_FALSE, "ret %08x\n", hr );
6484 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6485
6486 hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
6487 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6488
6489 V_VT(&value) = VT_EMPTY;
6490 hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
6491 ok(hr == S_FALSE, "ret %08x\n", hr );
6492 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6493
6494 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
6495 ok(hr == S_OK, "ret %08x\n", hr );
6496
6497 V_VT(&value) = VT_BSTR;
6498 V_BSTR(&value) = NULL;
6499 hr = IXMLDOMNode_get_nodeValue(node, &value);
6500 ok(hr == S_FALSE, "ret %08x\n", hr );
6501 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6502
6503 hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
6504 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6505
6506 IXMLDOMNode_Release(node);
6507
6508 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
6509 ok(hr == S_OK, "ret %08x\n", hr );
6510 {
6511 BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
6512
6513 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6514 ok(hr == S_OK, "ret %08x\n", hr );
6515 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6516 ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
6517 if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
6518 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6519 VariantClear(&value);
6520 IXMLDOMNode_Release(node);
6521 }
6522
6523 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("foo"), _bstr_("value"), &pi);
6524 ok(hr == S_OK, "ret %08x\n", hr );
6525 {
6526 V_VT(&value) = VT_NULL;
6527 V_BSTR(&value) = (void*)0xdeadbeef;
6528 hr = IXMLDOMProcessingInstruction_get_nodeTypedValue(pi, &value);
6529 ok(hr == S_OK, "ret %08x\n", hr );
6530 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6531 ok(!lstrcmpW(V_BSTR(&value), _bstr_("value")), "got wrong value\n");
6532 IXMLDOMProcessingInstruction_Release(pi);
6533 VariantClear(&value);
6534 }
6535
6536 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("[1]*2=3; &gee that's not right!"), &cdata);
6537 ok(hr == S_OK, "ret %08x\n", hr );
6538 {
6539 V_VT(&value) = VT_NULL;
6540 V_BSTR(&value) = (void*)0xdeadbeef;
6541 hr = IXMLDOMCDATASection_get_nodeTypedValue(cdata, &value);
6542 ok(hr == S_OK, "ret %08x\n", hr );
6543 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6544 ok(!lstrcmpW(V_BSTR(&value), _bstr_("[1]*2=3; &gee that's not right!")), "got wrong value\n");
6545 IXMLDOMCDATASection_Release(cdata);
6546 VariantClear(&value);
6547 }
6548
6549 hr = IXMLDOMDocument_createComment(doc, _bstr_("comment"), &comment);
6550 ok(hr == S_OK, "ret %08x\n", hr );
6551 {
6552 V_VT(&value) = VT_NULL;
6553 V_BSTR(&value) = (void*)0xdeadbeef;
6554 hr = IXMLDOMComment_get_nodeTypedValue(comment, &value);
6555 ok(hr == S_OK, "ret %08x\n", hr );
6556 ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6557 ok(!lstrcmpW(V_BSTR(&value), _bstr_("comment")), "got wrong value\n");
6558 IXMLDOMComment_Release(comment);
6559 VariantClear(&value);
6560 }
6561
6562 hr = IXMLDOMDocument_createDocumentFragment(doc, &frag);
6563 ok(hr == S_OK, "ret %08x\n", hr );
6564 {
6565 V_VT(&value) = VT_EMPTY;
6566 hr = IXMLDOMDocumentFragment_get_nodeTypedValue(frag, &value);
6567 ok(hr == S_FALSE, "ret %08x\n", hr );
6568 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6569 IXMLDOMDocumentFragment_Release(frag);
6570 }
6571
6572 doc2 = create_document(&IID_IXMLDOMDocument);
6573
6574 b = VARIANT_FALSE;
6575 hr = IXMLDOMDocument_loadXML(doc2, _bstr_(szEmailXML), &b);
6576 ok(hr == S_OK, "ret %08x\n", hr );
6577 ok(b == VARIANT_TRUE, "got %d\n", b);
6578
6579 EXPECT_REF(doc2, 1);
6580
6581 hr = IXMLDOMDocument_get_doctype(doc2, &doctype);
6582 ok(hr == S_OK, "ret %08x\n", hr );
6583
6584 EXPECT_REF(doc2, 1);
6585 todo_wine EXPECT_REF(doctype, 2);
6586
6587 {
6588 V_VT(&value) = VT_EMPTY;
6589 hr = IXMLDOMDocumentType_get_nodeTypedValue(doctype, &value);
6590 ok(hr == S_FALSE, "ret %08x\n", hr );
6591 ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6592 }
6593
6594 hr = IXMLDOMDocument_get_doctype(doc2, &doctype2);
6595 ok(hr == S_OK, "ret %08x\n", hr );
6596 ok(doctype != doctype2, "got %p, was %p\n", doctype2, doctype);
6597
6598 IXMLDOMDocumentType_Release(doctype2);
6599 IXMLDOMDocumentType_Release(doctype);
6600
6601 IXMLDOMDocument_Release(doc2);
6602
6603 while (entry->name)
6604 {
6605 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
6606 ok(hr == S_OK, "ret %08x\n", hr );
6607
6608 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6609 ok(hr == S_OK, "ret %08x\n", hr );
6610 ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
6611
6612 if (entry->type == (VT_ARRAY|VT_UI1))
6613 {
6614 ok(V_ARRAY(&value)->rgsabound[0].cElements == strlen(entry->value),
6615 "incorrect array size %d\n", V_ARRAY(&value)->rgsabound[0].cElements);
6616 }
6617
6618 if (entry->type != VT_BSTR)
6619 {
6620 if (entry->type == VT_DATE ||
6621 entry->type == VT_R8 ||
6622 entry->type == VT_CY)
6623 {
6624 if (entry->type == VT_DATE)
6625 {
6626 hr = VariantChangeType(&value, &value, 0, VT_R4);
6627 ok(hr == S_OK, "ret %08x\n", hr );
6628 }
6629 hr = VariantChangeTypeEx(&value, &value,
6630 MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
6631 VARIANT_NOUSEROVERRIDE, VT_BSTR);
6632 ok(hr == S_OK, "ret %08x\n", hr );
6633 }
6634 else
6635 {
6636 hr = VariantChangeType(&value, &value, 0, VT_BSTR);
6637 ok(hr == S_OK, "ret %08x\n", hr );
6638 }
6639
6640 /* for byte array from VT_ARRAY|VT_UI1 it's not a WCHAR buffer */
6641 if (entry->type == (VT_ARRAY|VT_UI1))
6642 {
6643 ok(!memcmp( V_BSTR(&value), entry->value, strlen(entry->value)),
6644 "expected %s\n", entry->value);
6645 }
6646 else
6647 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6648 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6649 }
6650 else
6651 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6652 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6653
6654 VariantClear( &value );
6655 IXMLDOMNode_Release(node);
6656
6657 entry++;
6658 }
6659
6660 IXMLDOMDocument_Release(doc);
6661 free_bstrs();
6662 }
6663
6664 static void test_TransformWithLoadingLocalFile(void)
6665 {
6666 IXMLDOMDocument *doc;
6667 IXMLDOMDocument *xsl;
6668 IXMLDOMNode *pNode;
6669 VARIANT_BOOL bSucc;
6670 HRESULT hr;
6671 HANDLE file;
6672 DWORD dwWritten;
6673 char lpPathBuffer[MAX_PATH];
6674 int i;
6675
6676 /* Create a Temp File. */
6677 GetTempPathA(MAX_PATH, lpPathBuffer);
6678 strcat(lpPathBuffer, "customers.xml" );
6679
6680 file = CreateFileA(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
6681 ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
6682 if(file == INVALID_HANDLE_VALUE)
6683 return;
6684
6685 WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
6686 CloseHandle(file);
6687
6688 /* Correct path to not include an escape character. */
6689 for(i=0; i < strlen(lpPathBuffer); i++)
6690 {
6691 if(lpPathBuffer[i] == '\\')
6692 lpPathBuffer[i] = '/';
6693 }
6694
6695 doc = create_document(&IID_IXMLDOMDocument);
6696 xsl = create_document(&IID_IXMLDOMDocument);
6697
6698 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
6699 ok(hr == S_OK, "ret %08x\n", hr );
6700 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6701 if(bSucc == VARIANT_TRUE)
6702 {
6703 BSTR sXSL;
6704 BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
6705 BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
6706 BSTR sFileName = _bstr_(lpPathBuffer);
6707 int nLength = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
6708
6709 sXSL = SysAllocStringLen(NULL, nLength);
6710 lstrcpyW(sXSL, sPart1);
6711 lstrcatW(sXSL, sFileName);
6712 lstrcatW(sXSL, sPart2);
6713
6714 hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
6715 ok(hr == S_OK, "ret %08x\n", hr );
6716 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6717 if(bSucc == VARIANT_TRUE)
6718 {
6719 BSTR sResult;
6720
6721 hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
6722 ok(hr == S_OK, "ret %08x\n", hr );
6723 if(hr == S_OK)
6724 {
6725 /* This will load the temp file via the XSL */
6726 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
6727 ok(hr == S_OK, "ret %08x\n", hr );
6728 if(hr == S_OK)
6729 {
6730 ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
6731 SysFreeString(sResult);
6732 }
6733
6734 IXMLDOMNode_Release(pNode);
6735 }
6736 }
6737
6738 SysFreeString(sXSL);
6739 }
6740
6741 IXMLDOMDocument_Release(doc);
6742 IXMLDOMDocument_Release(xsl);
6743
6744 DeleteFileA(lpPathBuffer);
6745 free_bstrs();
6746 }
6747
6748 static void test_put_nodeValue(void)
6749 {
6750 static const WCHAR jeevesW[] = {'J','e','e','v','e','s',' ','&',' ','W','o','o','s','t','e','r',0};
6751 IXMLDOMDocument *doc;
6752 IXMLDOMText *text;
6753 IXMLDOMEntityReference *entityref;
6754 IXMLDOMAttribute *attr;
6755 IXMLDOMNode *node;
6756 HRESULT hr;
6757 VARIANT data, type;
6758
6759 doc = create_document(&IID_IXMLDOMDocument);
6760
6761 /* test for unsupported types */
6762 /* NODE_DOCUMENT */
6763 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6764 ok(hr == S_OK, "ret %08x\n", hr );
6765 V_VT(&data) = VT_BSTR;
6766 V_BSTR(&data) = _bstr_("one two three");
6767 hr = IXMLDOMNode_put_nodeValue(node, data);
6768 ok(hr == E_FAIL, "ret %08x\n", hr );
6769 IXMLDOMNode_Release(node);
6770
6771 /* NODE_DOCUMENT_FRAGMENT */
6772 V_VT(&type) = VT_I1;
6773 V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6774 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6775 ok(hr == S_OK, "ret %08x\n", hr );
6776 V_VT(&data) = VT_BSTR;
6777 V_BSTR(&data) = _bstr_("one two three");
6778 hr = IXMLDOMNode_put_nodeValue(node, data);
6779 ok(hr == E_FAIL, "ret %08x\n", hr );
6780 IXMLDOMNode_Release(node);
6781
6782 /* NODE_ELEMENT */
6783 V_VT(&type) = VT_I1;
6784 V_I1(&type) = NODE_ELEMENT;
6785 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6786 ok(hr == S_OK, "ret %08x\n", hr );
6787 V_VT(&data) = VT_BSTR;
6788 V_BSTR(&data) = _bstr_("one two three");
6789 hr = IXMLDOMNode_put_nodeValue(node, data);
6790 ok(hr == E_FAIL, "ret %08x\n", hr );
6791 IXMLDOMNode_Release(node);
6792
6793 /* NODE_ENTITY_REFERENCE */
6794 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6795 ok(hr == S_OK, "ret %08x\n", hr );
6796
6797 V_VT(&data) = VT_BSTR;
6798 V_BSTR(&data) = _bstr_("one two three");
6799 hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6800 ok(hr == E_FAIL, "ret %08x\n", hr );
6801
6802 hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6803 ok(hr == S_OK, "ret %08x\n", hr );
6804 V_VT(&data) = VT_BSTR;
6805 V_BSTR(&data) = _bstr_("one two three");
6806 hr = IXMLDOMNode_put_nodeValue(node, data);
6807 ok(hr == E_FAIL, "ret %08x\n", hr );
6808 IXMLDOMNode_Release(node);
6809 IXMLDOMEntityReference_Release(entityref);
6810
6811 /* supported types */
6812 hr = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &text);
6813 ok(hr == S_OK, "ret %08x\n", hr );
6814 V_VT(&data) = VT_BSTR;
6815 V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6816 hr = IXMLDOMText_put_nodeValue(text, data);
6817 ok(hr == S_OK, "ret %08x\n", hr );
6818 IXMLDOMText_Release(text);
6819
6820 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6821 ok(hr == S_OK, "ret %08x\n", hr );
6822 V_VT(&data) = VT_BSTR;
6823 V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6824 hr = IXMLDOMAttribute_put_nodeValue(attr, data);
6825 ok(hr == S_OK, "ret %08x\n", hr );
6826 hr = IXMLDOMAttribute_get_nodeValue(attr, &data);
6827 ok(hr == S_OK, "ret %08x\n", hr );
6828 ok(memcmp(V_BSTR(&data), jeevesW, sizeof(jeevesW)) == 0, "got %s\n",
6829 wine_dbgstr_w(V_BSTR(&data)));
6830 VariantClear(&data);
6831 IXMLDOMAttribute_Release(attr);
6832
6833 free_bstrs();
6834
6835 IXMLDOMDocument_Release(doc);
6836 }
6837
6838 static void test_IObjectSafety(void)
6839 {
6840 IXMLDOMDocument *doc;
6841 IObjectSafety *safety;
6842 HRESULT hr;
6843
6844 doc = create_document(&IID_IXMLDOMDocument);
6845
6846 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6847 ok(hr == S_OK, "ret %08x\n", hr );
6848
6849 test_IObjectSafety_common(safety);
6850
6851 IObjectSafety_Release(safety);
6852 IXMLDOMDocument_Release(doc);
6853
6854 hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
6855 &IID_IObjectSafety, (void**)&safety);
6856 ok(hr == S_OK, "Could not create XMLHTTPRequest instance: %08x\n", hr);
6857
6858 test_IObjectSafety_common(safety);
6859
6860 IObjectSafety_Release(safety);
6861
6862 }
6863
6864 typedef struct _property_test_t {
6865 const GUID *guid;
6866 const char *clsid;
6867 const char *property;
6868 const char *value;
6869 } property_test_t;
6870
6871 static const property_test_t properties_test_data[] = {
6872 { &CLSID_DOMDocument, "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6873 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6874 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6875 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6876 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6877 { 0 }
6878 };
6879
6880 static void test_default_properties(void)
6881 {
6882 const property_test_t *entry = properties_test_data;
6883
6884 while (entry->guid)
6885 {
6886 IXMLDOMDocument2 *doc;
6887 VARIANT var;
6888 HRESULT hr;
6889
6890 if (!is_clsid_supported(entry->guid, &IID_IXMLDOMDocument2))
6891 {
6892 entry++;
6893 continue;
6894 }
6895
6896 hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6897 ok(hr == S_OK, "got 0x%08x\n", hr);
6898
6899 hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6900 ok(hr == S_OK, "got 0x%08x\n", hr);
6901 ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6902 entry->value, entry->clsid);
6903 VariantClear(&var);
6904
6905 IXMLDOMDocument2_Release(doc);
6906
6907 entry++;
6908 }
6909 }
6910
6911 typedef struct {
6912 const char *query;
6913 const char *list;
6914 BOOL todo;
6915 } xslpattern_test_t;
6916
6917 static const xslpattern_test_t xslpattern_test[] = {
6918 { "root//elem[0]", "E1.E2.D1" },
6919 { "root//elem[index()=1]", "E2.E2.D1" },
6920 { "root//elem[index() $eq$ 1]", "E2.E2.D1" },
6921 { "root//elem[end()]", "E4.E2.D1" },
6922 { "root//elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6923 { "root//elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6924 { "root//elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6925 { "root//elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6926 { "root//elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6927 { "root//elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6928 { "root//elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6929 { "root//elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6930 { "root//elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6931 { "root//elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6932 { "root//elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6933 { "root//elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6934 { "root//elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6935 { "root//elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6936 { "root//elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6937 { "root//elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6938 { "root//elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6939 { "root//elem[$any$ *='B2 field']", "E2.E2.D1" },
6940 { "root//elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6941 { "root//elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6942 { "root//elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6943 { "root//elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6944 { "root//elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6945 { "root//elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6946 { "root//elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6947 { "root/elem[0]", "E1.E2.D1" },
6948 { "root/elem[index()=1]", "E2.E2.D1" },
6949 { "root/elem[index() $eq$ 1]", "E2.E2.D1" },
6950 { "root/elem[end()]", "E4.E2.D1" },
6951 { "root/elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6952 { "root/elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6953 { "root/elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6954 { "root/elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6955 { "root/elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6956 { "root/elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6957 { "root/elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6958 { "root/elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6959 { "root/elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6960 { "root/elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6961 { "root/elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6962 { "root/elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6963 { "root/elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6964 { "root/elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6965 { "root/elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6966 { "root/elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6967 { "root/elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6968 { "root/elem[$any$ *='B2 field']", "E2.E2.D1" },
6969 { "root/elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6970 { "root/elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6971 { "root/elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6972 { "root/elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6973 { "root/elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6974 { "root/elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6975 { "root/elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6976 { "root/elem[d]", "E1.E2.D1 E2.E2.D1 E4.E2.D1" },
6977 { "root/elem[@*]", "E2.E2.D1 E3.E2.D1", TRUE },
6978 { NULL }
6979 };
6980
6981 static const xslpattern_test_t xslpattern_test_no_ns[] = {
6982 /* prefixes don't need to be registered, you may use them as they are in the doc */
6983 { "//bar:x", "E6.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1" },
6984 /* prefixes must be explicitly specified in the name */
6985 { "//foo:elem", "" },
6986 { "//foo:c", "E3.E4.E2.D1" },
6987 { NULL }
6988 };
6989
6990 static const xslpattern_test_t xslpattern_test_func[] = {
6991 { "attribute()", "" },
6992 { "attribute('depth')", "" },
6993 { "root/attribute('depth')", "A'depth'.E3.D1" },
6994 { "//x/attribute()", "A'id'.E3.E3.D1 A'depth'.E3.E3.D1" },
6995 { "//x//attribute(id)", NULL },
6996 { "//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" },
6997 { "comment()", "C2.D1" },
6998 { "//comment()", "C2.D1 C1.E3.D1 C2.E3.E3.D1 C2.E4.E3.D1" },
6999 { "element()", "E3.D1" },
7000 { "root/y/element()", "E4.E4.E3.D1 E5.E4.E3.D1 E6.E4.E3.D1" },
7001 { "//element(a)", NULL },
7002 { "//element('a')", "E4.E3.E3.D1 E4.E4.E3.D1" },
7003 { "node()", "P1.D1 C2.D1 E3.D1" },
7004 { "//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" },
7005 { "//x/node()[nodeType()=1]", "E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
7006 { "//x/node()[nodeType()=3]", "T3.E3.E3.D1" },
7007 { "//x/node()[nodeType()=7]", "P1.E3.E3.D1" },
7008 { "//x/node()[nodeType()=8]", "C2.E3.E3.D1" },
7009 { "pi()", "P1.D1" },
7010 { "//y/pi()", "P1.E4.E3.D1" },
7011 { "root/textnode()", "T2.E3.D1" },
7012 { "root/element()/textnode()", "T3.E3.E3.D1 T3.E4.E3.D1" },
7013 { NULL }
7014 };
7015
7016 static void test_XSLPattern(void)
7017 {
7018 const xslpattern_test_t *ptr = xslpattern_test;
7019 IXMLDOMDocument2 *doc;
7020 IXMLDOMNodeList *list;
7021 VARIANT_BOOL b;
7022 HRESULT hr;
7023 LONG len;
7024
7025 doc = create_document(&IID_IXMLDOMDocument2);
7026
7027 b = VARIANT_FALSE;
7028 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
7029 EXPECT_HR(hr, S_OK);
7030 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7031
7032 /* switch to XSLPattern */
7033 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern"));
7034 EXPECT_HR(hr, S_OK);
7035
7036 /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
7037 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list);
7038 EXPECT_HR(hr, S_OK);
7039
7040 len = 0;
7041 hr = IXMLDOMNodeList_get_length(list, &len);
7042 EXPECT_HR(hr, S_OK);
7043 /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
7044 ok(len == 3, "expected 3 entries in list, got %d\n", len);
7045 IXMLDOMNodeList_Release(list);
7046
7047 while (ptr->query)
7048 {
7049 list = NULL;
7050 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7051 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7052 len = 0;
7053 hr = IXMLDOMNodeList_get_length(list, &len);
7054 ok(len != 0, "query=%s, empty list\n", ptr->query);
7055 if (len) {
7056 if (ptr->todo) {
7057 char *str = list_to_string(list);
7058 todo_wine
7059 ok(!strcmp(str, ptr->list), "Invalid node list: %s, expected %s\n", str, ptr->list);
7060 IXMLDOMNodeList_Release(list);
7061 }
7062 else
7063 expect_list_and_release(list, ptr->list);
7064 }
7065
7066 ptr++;
7067 }
7068
7069 /* namespace handling */
7070 /* no registered namespaces */
7071 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_(""));
7072 EXPECT_HR(hr, S_OK);
7073
7074 ptr = xslpattern_test_no_ns;
7075 while (ptr->query)
7076 {
7077 list = NULL;
7078 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7079 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7080
7081 if (*ptr->list)
7082 {
7083 len = 0;
7084 hr = IXMLDOMNodeList_get_length(list, &len);
7085 EXPECT_HR(hr, S_OK);
7086 ok(len != 0, "query=%s, empty list\n", ptr->query);
7087 }
7088 else
7089 {
7090 len = 1;
7091 hr = IXMLDOMNodeList_get_length(list, &len);
7092 EXPECT_HR(hr, S_OK);
7093 ok(len == 0, "query=%s, empty list\n", ptr->query);
7094 }
7095 if (len)
7096 expect_list_and_release(list, ptr->list);
7097
7098 ptr++;
7099 }
7100
7101 /* explicitly register prefix foo */
7102 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
7103
7104 /* now we get the same behavior as XPath */
7105 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7106 EXPECT_HR(hr, S_OK);
7107 len = 0;
7108 hr = IXMLDOMNodeList_get_length(list, &len);
7109 EXPECT_HR(hr, S_OK);
7110 ok(len != 0, "expected filled list\n");
7111 if (len)
7112 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
7113
7114 /* set prefix foo to some nonexistent namespace */
7115 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:nonexistent-foo'"));
7116 EXPECT_HR(hr, S_OK);
7117
7118 /* the registered prefix takes precedence */
7119 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7120 EXPECT_HR(hr, S_OK);
7121 len = 0;
7122 hr = IXMLDOMNodeList_get_length(list, &len);
7123 EXPECT_HR(hr, S_OK);
7124 ok(len == 0, "expected empty list\n");
7125 IXMLDOMNodeList_Release(list);
7126
7127 IXMLDOMDocument2_Release(doc);
7128
7129 doc = create_document(&IID_IXMLDOMDocument2);
7130
7131 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szNodeTypesXML), &b);
7132 EXPECT_HR(hr, S_OK);
7133 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7134
7135 ptr = xslpattern_test_func;
7136 while (ptr->query)
7137 {
7138 list = NULL;
7139 hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7140 if (ptr->list)
7141 {
7142 ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7143 len = 0;
7144 hr = IXMLDOMNodeList_get_length(list, &len);
7145 if (*ptr->list)
7146 {
7147 ok(len != 0, "query=%s, empty list\n", ptr->query);
7148 if (len)
7149 expect_list_and_release(list, ptr->list);
7150 }
7151 else
7152 ok(len == 0, "query=%s, filled list\n", ptr->query);
7153 }
7154 else
7155 ok(hr == E_FAIL, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7156
7157 ptr++;
7158 }
7159
7160 IXMLDOMDocument2_Release(doc);
7161 free_bstrs();
7162 }
7163
7164 static void test_splitText(void)
7165 {
7166 IXMLDOMCDATASection *cdata;
7167 IXMLDOMElement *root;
7168 IXMLDOMDocument *doc;
7169 IXMLDOMText *text, *text2;
7170 IXMLDOMNode *node;
7171 VARIANT var;
7172 VARIANT_BOOL success;
7173 LONG length;
7174 HRESULT hr;
7175
7176 doc = create_document(&IID_IXMLDOMDocument);
7177
7178 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
7179 ok(hr == S_OK, "got 0x%08x\n", hr);
7180
7181 hr = IXMLDOMDocument_get_documentElement(doc, &root);
7182 ok(hr == S_OK, "got 0x%08x\n", hr);
7183
7184 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
7185 ok(hr == S_OK, "got 0x%08x\n", hr);
7186
7187 V_VT(&var) = VT_EMPTY;
7188 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
7189 ok(hr == S_OK, "got 0x%08x\n", hr);
7190
7191 length = 0;
7192 hr = IXMLDOMCDATASection_get_length(cdata, &length);
7193 ok(hr == S_OK, "got 0x%08x\n", hr);
7194 ok(length > 0, "got %d\n", length);
7195
7196 hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
7197 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7198
7199 text = (void*)0xdeadbeef;
7200 /* negative offset */
7201 hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
7202 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7203 ok(text == (void*)0xdeadbeef, "got %p\n", text);
7204
7205 text = (void*)0xdeadbeef;
7206 /* offset outside data */
7207 hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
7208 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7209 ok(text == 0, "got %p\n", text);
7210
7211 text = (void*)0xdeadbeef;
7212 /* offset outside data */
7213 hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
7214 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7215 ok(text == 0, "got %p\n", text);
7216
7217 /* no empty node created */
7218 node = (void*)0xdeadbeef;
7219 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7220 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7221 ok(node == 0, "got %p\n", text);
7222
7223 hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
7224 ok(hr == S_OK, "got 0x%08x\n", hr);
7225
7226 length = 0;
7227 hr = IXMLDOMText_get_length(text, &length);
7228 ok(hr == S_OK, "got 0x%08x\n", hr);
7229 ok(length == 7, "got %d\n", length);
7230
7231 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7232 ok(hr == S_OK, "got 0x%08x\n", hr);
7233 IXMLDOMNode_Release(node);
7234
7235 /* split new text node */
7236 hr = IXMLDOMText_get_length(text, &length);
7237 ok(hr == S_OK, "got 0x%08x\n", hr);
7238
7239 node = (void*)0xdeadbeef;
7240 hr = IXMLDOMText_get_nextSibling(text, &node);
7241 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7242 ok(node == 0, "got %p\n", text);
7243
7244 hr = IXMLDOMText_splitText(text, 0, NULL);
7245 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7246
7247 text2 = (void*)0xdeadbeef;
7248 /* negative offset */
7249 hr = IXMLDOMText_splitText(text, -1, &text2);
7250 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7251 ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
7252
7253 text2 = (void*)0xdeadbeef;
7254 /* offset outside data */
7255 hr = IXMLDOMText_splitText(text, length + 1, &text2);
7256 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7257 ok(text2 == 0, "got %p\n", text2);
7258
7259 text2 = (void*)0xdeadbeef;
7260 /* offset outside data */
7261 hr = IXMLDOMText_splitText(text, length, &text2);
7262 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7263 ok(text2 == 0, "got %p\n", text);
7264
7265 text2 = 0;
7266 hr = IXMLDOMText_splitText(text, 4, &text2);
7267 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7268 if (text2) IXMLDOMText_Release(text2);
7269
7270 node = 0;
7271 hr = IXMLDOMText_get_nextSibling(text, &node);
7272 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7273 if (node) IXMLDOMNode_Release(node);
7274
7275 IXMLDOMText_Release(text);
7276 IXMLDOMElement_Release(root);
7277 IXMLDOMCDATASection_Release(cdata);
7278 free_bstrs();
7279 }
7280
7281 typedef struct {
7282 const char *name;
7283 const char *uri;
7284 HRESULT hr;
7285 } ns_item_t;
7286
7287 /* default_ns_doc used */
7288 static const ns_item_t qualified_item_tests[] = {
7289 { "xml:lang", NULL, S_FALSE },
7290 { "xml:lang", "http://www.w3.org/XML/1998/namespace", S_FALSE },
7291 { "lang", "http://www.w3.org/XML/1998/namespace", S_OK },
7292 { "ns:b", NULL, S_FALSE },
7293 { "ns:b", "nshref", S_FALSE },
7294 { "b", "nshref", S_OK },
7295 { "d", NULL, S_OK },
7296 { NULL }
7297 };
7298
7299 static const ns_item_t named_item_tests[] = {
7300 { "xml:lang", NULL, S_OK },
7301 { "lang", NULL, S_FALSE },
7302 { "ns:b", NULL, S_OK },
7303 { "b", NULL, S_FALSE },
7304 { "d", NULL, S_OK },
7305 { NULL }
7306 };
7307
7308 static void test_getQualifiedItem(void)
7309 {
7310 IXMLDOMNode *pr_node, *node;
7311 IXMLDOMNodeList *root_list;
7312 IXMLDOMNamedNodeMap *map;
7313 IXMLDOMElement *element;
7314 const ns_item_t* ptr;
7315 IXMLDOMDocument *doc;
7316 VARIANT_BOOL b;
7317 HRESULT hr;
7318 LONG len;
7319
7320 doc = create_document(&IID_IXMLDOMDocument);
7321
7322 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7323 EXPECT_HR(hr, S_OK);
7324 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7325
7326 hr = IXMLDOMDocument_get_documentElement(doc, &element);
7327 EXPECT_HR(hr, S_OK);
7328
7329 hr = IXMLDOMElement_get_childNodes(element, &root_list);
7330 EXPECT_HR(hr, S_OK);
7331
7332 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7333 EXPECT_HR(hr, S_OK);
7334 IXMLDOMNodeList_Release(root_list);
7335
7336 hr = IXMLDOMNode_get_attributes(pr_node, &map);
7337 EXPECT_HR(hr, S_OK);
7338 IXMLDOMNode_Release(pr_node);
7339
7340 len = 0;
7341 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7342 EXPECT_HR(hr, S_OK);
7343 ok( len == 3, "length %d\n", len);
7344
7345 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
7346 EXPECT_HR(hr, E_INVALIDARG);
7347
7348 node = (void*)0xdeadbeef;
7349 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
7350 EXPECT_HR(hr, E_INVALIDARG);
7351 ok( node == (void*)0xdeadbeef, "got %p\n", node);
7352
7353 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
7354 EXPECT_HR(hr, E_INVALIDARG);
7355
7356 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
7357 EXPECT_HR(hr, S_OK);
7358
7359 IXMLDOMNode_Release(node);
7360 IXMLDOMNamedNodeMap_Release(map);
7361 IXMLDOMElement_Release(element);
7362
7363 hr = IXMLDOMDocument_loadXML(doc, _bstr_(default_ns_doc), &b);
7364 EXPECT_HR(hr, S_OK);
7365
7366 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("a"), &node);
7367 EXPECT_HR(hr, S_OK);
7368
7369 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7370 EXPECT_HR(hr, S_OK);
7371 IXMLDOMNode_Release(node);
7372
7373 hr = IXMLDOMElement_get_attributes(element, &map);
7374 EXPECT_HR(hr, S_OK);
7375
7376 ptr = qualified_item_tests;
7377 while (ptr->name)
7378 {
7379 node = (void*)0xdeadbeef;
7380 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
7381 ok(hr == ptr->hr, "%s, %s: got 0x%08x, expected 0x%08x\n", ptr->name, ptr->uri, hr, ptr->hr);
7382 if (hr == S_OK)
7383 IXMLDOMNode_Release(node);
7384 else
7385 ok(node == NULL, "%s, %s: got %p\n", ptr->name, ptr->uri, node);
7386 ptr++;
7387 }
7388
7389 ptr = named_item_tests;
7390 while (ptr->name)
7391 {
7392 node = (void*)0xdeadbeef;
7393 hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_(ptr->name), &node);
7394 ok(hr == ptr->hr, "%s: got 0x%08x, expected 0x%08x\n", ptr->name, hr, ptr->hr);
7395 if (hr == S_OK)
7396 IXMLDOMNode_Release(node);
7397 else
7398 ok(node == NULL, "%s: got %p\n", ptr->name, node);
7399 ptr++;
7400 }
7401
7402 IXMLDOMNamedNodeMap_Release(map);
7403
7404 IXMLDOMElement_Release(element);
7405 IXMLDOMDocument_Release(doc);
7406 free_bstrs();
7407 }
7408
7409 static void test_removeQualifiedItem(void)
7410 {
7411 IXMLDOMDocument *doc;
7412 IXMLDOMElement *element;
7413 IXMLDOMNode *pr_node, *node;
7414 IXMLDOMNodeList *root_list;
7415 IXMLDOMNamedNodeMap *map;
7416 VARIANT_BOOL b;
7417 LONG len;
7418 HRESULT hr;
7419
7420 doc = create_document(&IID_IXMLDOMDocument);
7421
7422 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7423 ok( hr == S_OK, "loadXML failed\n");
7424 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7425
7426 hr = IXMLDOMDocument_get_documentElement(doc, &element);
7427 ok( hr == S_OK, "ret %08x\n", hr);
7428
7429 hr = IXMLDOMElement_get_childNodes(element, &root_list);
7430 ok( hr == S_OK, "ret %08x\n", hr);
7431
7432 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7433 ok( hr == S_OK, "ret %08x\n", hr);
7434 IXMLDOMNodeList_Release(root_list);
7435
7436 hr = IXMLDOMNode_get_attributes(pr_node, &map);
7437 ok( hr == S_OK, "ret %08x\n", hr);
7438 IXMLDOMNode_Release(pr_node);
7439
7440 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7441 ok( hr == S_OK, "ret %08x\n", hr);
7442 ok( len == 3, "length %d\n", len);
7443
7444 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
7445 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7446
7447 node = (void*)0xdeadbeef;
7448 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
7449 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7450 ok( node == (void*)0xdeadbeef, "got %p\n", node);
7451
7452 /* out pointer is optional */
7453 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7454 ok( hr == S_OK, "ret %08x\n", hr);
7455
7456 /* already removed */
7457 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7458 ok( hr == S_FALSE, "ret %08x\n", hr);
7459
7460 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
7461 ok( hr == S_OK, "ret %08x\n", hr);
7462 IXMLDOMNode_Release(node);
7463
7464 IXMLDOMNamedNodeMap_Release( map );
7465 IXMLDOMElement_Release( element );
7466 IXMLDOMDocument_Release( doc );
7467 free_bstrs();
7468 }
7469
7470 #define check_default_props(doc) _check_default_props(__LINE__, doc)
7471 static inline void _check_default_props(int line, IXMLDOMDocument2* doc)
7472 {
7473 VARIANT_BOOL b;
7474 VARIANT var;
7475 HRESULT hr;
7476
7477 VariantInit(&var);
7478 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7479 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
7480 VariantClear(&var);
7481
7482 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7483 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("")) == 0, "expected empty string\n");
7484 VariantClear(&var);
7485
7486 helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7487 ok_(__FILE__, line)(b == VARIANT_FALSE, "expected FALSE\n");
7488
7489 hr = IXMLDOMDocument2_get_schemas(doc, &var);
7490 ok_(__FILE__, line)(hr == S_FALSE, "got %08x\n", hr);
7491 VariantClear(&var);
7492 }
7493
7494 #define check_set_props(doc) _check_set_props(__LINE__, doc)
7495 static inline void _check_set_props(int line, IXMLDOMDocument2* doc)
7496 {
7497 VARIANT_BOOL b;
7498 VARIANT var;
7499
7500 VariantInit(&var);
7501 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7502 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7503 VariantClear(&var);
7504
7505 helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7506 ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
7507 VariantClear(&var);
7508
7509 helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7510 ok_(__FILE__, line)(b == VARIANT_TRUE, "expected TRUE\n");
7511
7512 helper_ole_check(IXMLDOMDocument2_get_schemas(doc, &var));
7513 ok_(__FILE__, line)(V_VT(&var) != VT_NULL, "expected pointer\n");
7514 VariantClear(&var);
7515 }
7516
7517 #define set_props(doc, cache) _set_props(__LINE__, doc, cache)
7518 static inline void _set_props(int line, IXMLDOMDocument2* doc, IXMLDOMSchemaCollection* cache)
7519 {
7520 VARIANT var;
7521
7522 VariantInit(&var);
7523 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
7524 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'")));
7525 helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_TRUE));
7526 V_VT(&var) = VT_DISPATCH;
7527 V_DISPATCH(&var) = NULL;
7528 helper_ole_check(IXMLDOMSchemaCollection_QueryInterface(cache, &IID_IDispatch, (void**)&V_DISPATCH(&var)));
7529 ok_(__FILE__, line)(V_DISPATCH(&var) != NULL, "expected pointer\n");
7530 helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7531 VariantClear(&var);
7532 }
7533
7534 #define unset_props(doc) _unset_props(__LINE__, doc)
7535 static inline void _unset_props(int line, IXMLDOMDocument2* doc)
7536 {
7537 VARIANT var;
7538
7539 VariantInit(&var);
7540 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
7541 helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("")));
7542 helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_FALSE));
7543 V_VT(&var) = VT_NULL;
7544 helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7545 VariantClear(&var);
7546 }
7547
7548 static void test_get_ownerDocument(void)
7549 {
7550 IXMLDOMDocument *doc1, *doc2, *doc3;
7551 IXMLDOMDocument2 *doc, *doc_owner;
7552 IXMLDOMNode *node;
7553 IXMLDOMSchemaCollection *cache;
7554 VARIANT_BOOL b;
7555 VARIANT var;
7556 IXMLDOMElement *element;
7557 IXMLDOMNodeList *node_list;
7558 IXMLDOMAttribute *attr;
7559 LONG i, len;
7560 HRESULT hr;
7561 const CHAR nodeXML[] =
7562 "<root id='0'>"
7563 " <!-- comment node 0 -->"
7564 " text node 0"
7565 " <x attr='val'></x>"
7566 " <?foo value='PI for x'?>"
7567 " <![CDATA[ cdata ]]>"
7568 "</root>";
7569
7570 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
7571 if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
7572
7573 doc = create_document(&IID_IXMLDOMDocument2);
7574 cache = create_cache(&IID_IXMLDOMSchemaCollection);
7575
7576 VariantInit(&var);
7577
7578 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7579 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7580
7581 check_default_props(doc);
7582
7583 /* set properties and check that new instances use them */
7584 set_props(doc, cache);
7585 check_set_props(doc);
7586
7587 ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7588 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc1));
7589
7590 /* new interface keeps props */
7591 ole_check(IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7592 ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
7593 check_set_props(doc_owner);
7594 IXMLDOMDocument2_Release(doc_owner);
7595
7596 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc2));
7597 IXMLDOMNode_Release(node);
7598
7599 ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
7600
7601 /* reload */
7602 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7603 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7604
7605 /* properties retained even after reload */
7606 check_set_props(doc);
7607
7608 ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7609 ole_check(IXMLDOMNode_get_ownerDocument(node, &doc3));
7610 IXMLDOMNode_Release(node);
7611
7612 ole_check(IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7613 ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
7614 check_set_props(doc_owner);
7615
7616 /* changing properties for one instance changes them for all */
7617 unset_props(doc_owner);
7618 check_default_props(doc_owner);
7619 check_default_props(doc);
7620
7621 /* NULL check */
7622 hr = IXMLDOMDocument_loadXML(doc1, _bstr_(nodeXML), &b);
7623 EXPECT_HR(hr, S_OK);
7624 ok(b == VARIANT_TRUE, "failed to load XML string\n");
7625
7626 hr = IXMLDOMDocument_get_documentElement(doc1, &element);
7627 EXPECT_HR(hr, S_OK);
7628
7629 hr = IXMLDOMElement_get_childNodes(element, &node_list);
7630 EXPECT_HR(hr, S_OK);
7631
7632 hr = IXMLDOMNodeList_get_length(node_list, &len);
7633 EXPECT_HR(hr, S_OK);
7634
7635 for(i = 0; i < len; i++) {
7636 hr = IXMLDOMNodeList_get_item(node_list, i, &node);
7637 EXPECT_HR(hr, S_OK);
7638
7639 hr = IXMLDOMNode_get_ownerDocument(node, NULL);
7640 EXPECT_HR(hr, E_INVALIDARG);
7641
7642 IXMLDOMNode_Release(node);
7643 }
7644 IXMLDOMElement_Release(element);
7645
7646 /* Test Attribute Node */
7647 hr = IXMLDOMNodeList_get_item(node_list, 2, &node);
7648 EXPECT_HR(hr, S_OK);
7649 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7650 EXPECT_HR(hr, S_OK);
7651 IXMLDOMNode_Release(node);
7652
7653 hr = IXMLDOMElement_getAttributeNode(element, _bstr_("attr"), &attr);
7654 EXPECT_HR(hr, S_OK);
7655 ok(attr != NULL, "attr == NULL\n");
7656 IXMLDOMElement_Release(element);
7657 hr = IXMLDOMAttribute_get_ownerDocument(attr, NULL);
7658 EXPECT_HR(hr, E_INVALIDARG);
7659 IXMLDOMAttribute_Release(attr);
7660 IXMLDOMNodeList_Release(node_list);
7661
7662 IXMLDOMSchemaCollection_Release(cache);
7663 IXMLDOMDocument_Release(doc1);
7664 IXMLDOMDocument_Release(doc2);
7665 IXMLDOMDocument_Release(doc3);
7666 IXMLDOMDocument2_Release(doc);
7667 IXMLDOMDocument2_Release(doc_owner);
7668 free_bstrs();
7669 }
7670
7671 static void test_setAttributeNode(void)
7672 {
7673 IXMLDOMDocument *doc, *doc2;
7674 IXMLDOMElement *elem, *elem2;
7675 IXMLDOMAttribute *attr, *attr2, *ret_attr;
7676 VARIANT_BOOL b;
7677 HRESULT hr;
7678 VARIANT v;
7679 BSTR str;
7680 ULONG ref1, ref2;
7681
7682 doc = create_document(&IID_IXMLDOMDocument);
7683
7684 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7685 ok( hr == S_OK, "loadXML failed\n");
7686 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7687
7688 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7689 ok( hr == S_OK, "got 0x%08x\n", hr);
7690
7691 hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
7692 ok( hr == S_OK, "got 0x%08x\n", hr);
7693 ok( elem2 != elem, "got same instance\n");
7694
7695 ret_attr = (void*)0xdeadbeef;
7696 hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
7697 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7698 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7699
7700 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7701 ok( hr == S_OK, "got 0x%08x\n", hr);
7702
7703 ref1 = IXMLDOMElement_AddRef(elem);
7704 IXMLDOMElement_Release(elem);
7705
7706 ret_attr = (void*)0xdeadbeef;
7707 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7708 ok( hr == S_OK, "got 0x%08x\n", hr);
7709 ok( ret_attr == NULL, "got %p\n", ret_attr);
7710
7711 /* no reference added */
7712 ref2 = IXMLDOMElement_AddRef(elem);
7713 IXMLDOMElement_Release(elem);
7714 ok(ref2 == ref1, "got %d, expected %d\n", ref2, ref1);
7715
7716 EXPECT_CHILDREN(elem);
7717 EXPECT_CHILDREN(elem2);
7718
7719 IXMLDOMElement_Release(elem2);
7720
7721 attr2 = NULL;
7722 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
7723 ok( hr == S_OK, "got 0x%08x\n", hr);
7724 ok( attr2 != attr, "got same instance %p\n", attr2);
7725 IXMLDOMAttribute_Release(attr2);
7726
7727 /* try to add it another time */
7728 ret_attr = (void*)0xdeadbeef;
7729 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7730 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7731 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7732
7733 IXMLDOMElement_Release(elem);
7734
7735 /* initially used element is released, attribute still 'has' a container */
7736 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7737 ok( hr == S_OK, "got 0x%08x\n", hr);
7738 ret_attr = (void*)0xdeadbeef;
7739 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7740 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7741 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7742 IXMLDOMElement_Release(elem);
7743
7744 /* add attribute already attached to another document */
7745 doc2 = create_document(&IID_IXMLDOMDocument);
7746
7747 hr = IXMLDOMDocument_loadXML( doc2, _bstr_(complete4A), &b );
7748 ok( hr == S_OK, "loadXML failed\n");
7749 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7750
7751 hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
7752 ok( hr == S_OK, "got 0x%08x\n", hr);
7753 hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
7754 ok( hr == E_FAIL, "got 0x%08x\n", hr);
7755 IXMLDOMElement_Release(elem);
7756
7757 IXMLDOMAttribute_Release(attr);
7758
7759 /* create element, add attribute, see if it's copied or linked */
7760 hr = IXMLDOMDocument_createElement(doc, _bstr_("test"), &elem);
7761 ok( hr == S_OK, "got 0x%08x\n", hr);
7762
7763 attr = NULL;
7764 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7765 ok(hr == S_OK, "got 0x%08x\n", hr);
7766 ok(attr != NULL, "got %p\n", attr);
7767
7768 ref1 = IXMLDOMAttribute_AddRef(attr);
7769 IXMLDOMAttribute_Release(attr);
7770
7771 V_VT(&v) = VT_BSTR;
7772 V_BSTR(&v) = _bstr_("attrvalue1");
7773 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7774 ok( hr == S_OK, "got 0x%08x\n", hr);
7775
7776 str = NULL;
7777 hr = IXMLDOMAttribute_get_xml(attr, &str);
7778 ok( hr == S_OK, "got 0x%08x\n", hr);
7779 ok( lstrcmpW(str, _bstr_("attr=\"attrvalue1\"")) == 0,
7780 "got %s\n", wine_dbgstr_w(str));
7781 SysFreeString(str);
7782
7783 ret_attr = (void*)0xdeadbeef;
7784 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7785 ok(hr == S_OK, "got 0x%08x\n", hr);
7786 ok(ret_attr == NULL, "got %p\n", ret_attr);
7787
7788 /* attribute reference increased */
7789 ref2 = IXMLDOMAttribute_AddRef(attr);
7790 IXMLDOMAttribute_Release(attr);
7791 ok(ref1 == ref2, "got %d, expected %d\n", ref2, ref1);
7792
7793 hr = IXMLDOMElement_get_xml(elem, &str);
7794 ok( hr == S_OK, "got 0x%08x\n", hr);
7795 ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue1\"/>")) == 0,
7796 "got %s\n", wine_dbgstr_w(str));
7797 SysFreeString(str);
7798
7799 V_VT(&v) = VT_BSTR;
7800 V_BSTR(&v) = _bstr_("attrvalue2");
7801 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7802 ok( hr == S_OK, "got 0x%08x\n", hr);
7803
7804 hr = IXMLDOMElement_get_xml(elem, &str);
7805 ok( hr == S_OK, "got 0x%08x\n", hr);
7806 todo_wine ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue2\"/>")) == 0,
7807 "got %s\n", wine_dbgstr_w(str));
7808 SysFreeString(str);
7809
7810 IXMLDOMElement_Release(elem);
7811 IXMLDOMAttribute_Release(attr);
7812 IXMLDOMDocument_Release(doc2);
7813 IXMLDOMDocument_Release(doc);
7814 free_bstrs();
7815 }
7816
7817 static void test_createNode(void)
7818 {
7819 IXMLDOMDocument *doc;
7820 IXMLDOMElement *elem;
7821 IXMLDOMNode *node;
7822 VARIANT v, var;
7823 BSTR prefix, str;
7824 HRESULT hr;
7825 ULONG ref;
7826
7827 doc = create_document(&IID_IXMLDOMDocument);
7828
7829 EXPECT_REF(doc, 1);
7830
7831 /* reference count tests */
7832 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7833 ok( hr == S_OK, "got 0x%08x\n", hr);
7834
7835 /* initial reference is 2 */
7836 todo_wine {
7837 EXPECT_REF(elem, 2);
7838 ref = IXMLDOMElement_Release(elem);
7839 ok(ref == 1, "got %d\n", ref);
7840 /* it's released already, attempt to release now will crash it */
7841 }
7842
7843 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7844 ok( hr == S_OK, "got 0x%08x\n", hr);
7845 todo_wine EXPECT_REF(elem, 2);
7846 IXMLDOMDocument_Release(doc);
7847 todo_wine EXPECT_REF(elem, 2);
7848 IXMLDOMElement_Release(elem);
7849
7850 doc = create_document(&IID_IXMLDOMDocument);
7851
7852 /* NODE_ELEMENT nodes */
7853 /* 1. specified namespace */
7854 V_VT(&v) = VT_I4;
7855 V_I4(&v) = NODE_ELEMENT;
7856
7857 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
7858 ok( hr == S_OK, "got 0x%08x\n", hr);
7859 prefix = NULL;
7860 hr = IXMLDOMNode_get_prefix(node, &prefix);
7861 ok( hr == S_OK, "got 0x%08x\n", hr);
7862 ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
7863 SysFreeString(prefix);
7864 IXMLDOMNode_Release(node);
7865
7866 /* 2. default namespace */
7867 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
7868 ok( hr == S_OK, "got 0x%08x\n", hr);
7869 prefix = (void*)0xdeadbeef;
7870 hr = IXMLDOMNode_get_prefix(node, &prefix);
7871 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7872 ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
7873 /* check dump */
7874 hr = IXMLDOMNode_get_xml(node, &str);
7875 ok( hr == S_OK, "got 0x%08x\n", hr);
7876 ok( lstrcmpW(str, _bstr_("<test xmlns=\"http://winehq.org/default\"/>")) == 0,
7877 "got %s\n", wine_dbgstr_w(str));
7878 SysFreeString(str);
7879
7880 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
7881 ok( hr == S_OK, "got 0x%08x\n", hr);
7882
7883 V_VT(&var) = VT_BSTR;
7884 hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
7885 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7886 ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
7887
7888 str = NULL;
7889 hr = IXMLDOMElement_get_namespaceURI(elem, &str);
7890 ok( hr == S_OK, "got 0x%08x\n", hr);
7891 ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
7892 SysFreeString(str);
7893
7894 IXMLDOMElement_Release(elem);
7895 IXMLDOMNode_Release(node);
7896
7897 IXMLDOMDocument_Release(doc);
7898 free_bstrs();
7899 }
7900
7901 static const char get_prefix_doc[] =
7902 "<?xml version=\"1.0\" ?>"
7903 "<a xmlns:ns1=\"ns1 href\" />";
7904
7905 static void test_get_prefix(void)
7906 {
7907 IXMLDOMDocumentFragment *fragment;
7908 IXMLDOMCDATASection *cdata;
7909 IXMLDOMElement *element;
7910 IXMLDOMComment *comment;
7911 IXMLDOMDocument *doc;
7912 VARIANT_BOOL b;
7913 HRESULT hr;
7914 BSTR str;
7915
7916 doc = create_document(&IID_IXMLDOMDocument);
7917
7918 /* nodes that can't support prefix */
7919 /* 1. document */
7920 str = (void*)0xdeadbeef;
7921 hr = IXMLDOMDocument_get_prefix(doc, &str);
7922 EXPECT_HR(hr, S_FALSE);
7923 ok(str == NULL, "got %p\n", str);
7924
7925 hr = IXMLDOMDocument_get_prefix(doc, NULL);
7926 EXPECT_HR(hr, E_INVALIDARG);
7927
7928 /* 2. cdata */
7929 hr = IXMLDOMDocument_createCDATASection(doc, NULL, &cdata);
7930 ok(hr == S_OK, "got %08x\n", hr );
7931
7932 str = (void*)0xdeadbeef;
7933 hr = IXMLDOMCDATASection_get_prefix(cdata, &str);
7934 ok(hr == S_FALSE, "got %08x\n", hr);
7935 ok( str == 0, "got %p\n", str);
7936
7937 hr = IXMLDOMCDATASection_get_prefix(cdata, NULL);
7938 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7939 IXMLDOMCDATASection_Release(cdata);
7940
7941 /* 3. comment */
7942 hr = IXMLDOMDocument_createComment(doc, NULL, &comment);
7943 ok(hr == S_OK, "got %08x\n", hr );
7944
7945 str = (void*)0xdeadbeef;
7946 hr = IXMLDOMComment_get_prefix(comment, &str);
7947 ok(hr == S_FALSE, "got %08x\n", hr);
7948 ok( str == 0, "got %p\n", str);
7949
7950 hr = IXMLDOMComment_get_prefix(comment, NULL);
7951 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7952 IXMLDOMComment_Release(comment);
7953
7954 /* 4. fragment */
7955 hr = IXMLDOMDocument_createDocumentFragment(doc, &fragment);
7956 ok(hr == S_OK, "got %08x\n", hr );
7957
7958 str = (void*)0xdeadbeef;
7959 hr = IXMLDOMDocumentFragment_get_prefix(fragment, &str);
7960 ok(hr == S_FALSE, "got %08x\n", hr);
7961 ok( str == 0, "got %p\n", str);
7962
7963 hr = IXMLDOMDocumentFragment_get_prefix(fragment, NULL);
7964 ok(hr == E_INVALIDARG, "got %08x\n", hr);
7965 IXMLDOMDocumentFragment_Release(fragment);
7966
7967 /* no prefix */
7968 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
7969 ok( hr == S_OK, "got 0x%08x\n", hr);
7970
7971 hr = IXMLDOMElement_get_prefix(element, NULL);
7972 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7973
7974 str = (void*)0xdeadbeef;
7975 hr = IXMLDOMElement_get_prefix(element, &str);
7976 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7977 ok( str == 0, "got %p\n", str);
7978
7979 IXMLDOMElement_Release(element);
7980
7981 /* with prefix */
7982 hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
7983 ok( hr == S_OK, "got 0x%08x\n", hr);
7984
7985 str = (void*)0xdeadbeef;
7986 hr = IXMLDOMElement_get_prefix(element, &str);
7987 ok( hr == S_OK, "got 0x%08x\n", hr);
7988 ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
7989 SysFreeString(str);
7990
7991 str = (void*)0xdeadbeef;
7992 hr = IXMLDOMElement_get_namespaceURI(element, &str);
7993 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7994 ok( str == 0, "got %p\n", str);
7995
7996 IXMLDOMElement_Release(element);
7997
7998 hr = IXMLDOMDocument_loadXML(doc, _bstr_(get_prefix_doc), &b);
7999 EXPECT_HR(hr, S_OK);
8000
8001 hr = IXMLDOMDocument_get_documentElement(doc, &element);
8002 EXPECT_HR(hr, S_OK);
8003
8004 str = (void*)0xdeadbeef;
8005 hr = IXMLDOMElement_get_prefix(element, &str);
8006 EXPECT_HR(hr, S_FALSE);
8007 ok(str == NULL, "got %p\n", str);
8008
8009 str = (void*)0xdeadbeef;
8010 hr = IXMLDOMElement_get_namespaceURI(element, &str);
8011 EXPECT_HR(hr, S_FALSE);
8012 ok(str == NULL, "got %s\n", wine_dbgstr_w(str));
8013
8014 IXMLDOMDocument_Release(doc);
8015 free_bstrs();
8016 }
8017
8018 static void test_selectSingleNode(void)
8019 {
8020 IXMLDOMDocument *doc;
8021 IXMLDOMNodeList *list;
8022 IXMLDOMNode *node;
8023 VARIANT_BOOL b;
8024 HRESULT hr;
8025 LONG len;
8026
8027 doc = create_document(&IID_IXMLDOMDocument);
8028
8029 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
8030 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8031
8032 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
8033 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8034
8035 hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
8036 ok( hr == S_OK, "loadXML failed\n");
8037 ok( b == VARIANT_TRUE, "failed to load XML string\n");
8038
8039 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
8040 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8041
8042 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
8043 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8044
8045 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
8046 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8047
8048 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
8049 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8050
8051 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
8052 ok(hr == S_OK, "got 0x%08x\n", hr);
8053 IXMLDOMNode_Release(node);
8054
8055 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
8056 ok(hr == S_OK, "got 0x%08x\n", hr);
8057 IXMLDOMNodeList_Release(list);
8058
8059 list = (void*)0xdeadbeef;
8060 hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
8061 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8062 ok(list == (void*)0xdeadbeef, "got %p\n", list);
8063
8064 node = (void*)0xdeadbeef;
8065 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
8066 ok(hr == S_FALSE, "got 0x%08x\n", hr);
8067 ok(node == 0, "got %p\n", node);
8068
8069 list = (void*)0xdeadbeef;
8070 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
8071 ok(hr == S_OK, "got 0x%08x\n", hr);
8072 len = 1;
8073 hr = IXMLDOMNodeList_get_length(list, &len);
8074 ok(hr == S_OK, "got 0x%08x\n", hr);
8075 ok(len == 0, "got %d\n", len);
8076 IXMLDOMNodeList_Release(list);
8077
8078 IXMLDOMDocument_Release(doc);
8079 free_bstrs();
8080 }
8081
8082 static void test_events(void)
8083 {
8084 IConnectionPointContainer *conn;
8085 IConnectionPoint *point;
8086 IXMLDOMDocument *doc;
8087 HRESULT hr;
8088 VARIANT v;
8089 IDispatch *event;
8090
8091 doc = create_document(&IID_IXMLDOMDocument);
8092
8093 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&conn);
8094 ok(hr == S_OK, "got 0x%08x\n", hr);
8095
8096 hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IDispatch, &point);
8097 ok(hr == S_OK, "got 0x%08x\n", hr);
8098 IConnectionPoint_Release(point);
8099 hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IPropertyNotifySink, &point);
8100 ok(hr == S_OK, "got 0x%08x\n", hr);
8101 IConnectionPoint_Release(point);
8102 hr = IConnectionPointContainer_FindConnectionPoint(conn, &DIID_XMLDOMDocumentEvents, &point);
8103 ok(hr == S_OK, "got 0x%08x\n", hr);
8104 IConnectionPoint_Release(point);
8105
8106 IConnectionPointContainer_Release(conn);
8107
8108 /* ready state callback */
8109 VariantInit(&v);
8110 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8111 ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
8112
8113 event = create_dispevent();
8114 V_VT(&v) = VT_UNKNOWN;
8115 V_UNKNOWN(&v) = (IUnknown*)event;
8116
8117 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8118 ok(hr == S_OK, "got 0x%08x\n", hr);
8119 EXPECT_REF(event, 2);
8120
8121 V_VT(&v) = VT_DISPATCH;
8122 V_DISPATCH(&v) = event;
8123
8124 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8125 ok(hr == S_OK, "got 0x%08x\n", hr);
8126 EXPECT_REF(event, 2);
8127
8128 /* VT_NULL doesn't reset event handler */
8129 V_VT(&v) = VT_NULL;
8130 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8131 ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
8132 EXPECT_REF(event, 2);
8133
8134 V_VT(&v) = VT_DISPATCH;
8135 V_DISPATCH(&v) = NULL;
8136
8137 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8138 ok(hr == S_OK, "got 0x%08x\n", hr);
8139 EXPECT_REF(event, 1);
8140
8141 V_VT(&v) = VT_UNKNOWN;
8142 V_DISPATCH(&v) = NULL;
8143 hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8144 ok(hr == S_OK, "got 0x%08x\n", hr);
8145
8146 IDispatch_Release(event);
8147
8148 IXMLDOMDocument_Release(doc);
8149 }
8150
8151 static void test_createProcessingInstruction(void)
8152 {
8153 static const WCHAR bodyW[] = {'t','e','s','t',0};
8154 IXMLDOMProcessingInstruction *pi;
8155 IXMLDOMDocument *doc;
8156 WCHAR buff[10];
8157 HRESULT hr;
8158
8159 doc = create_document(&IID_IXMLDOMDocument);
8160
8161 /* test for BSTR handling, pass broken BSTR */
8162 memcpy(&buff[2], bodyW, sizeof(bodyW));
8163 /* just a big length */
8164 *(DWORD*)buff = 0xf0f0;
8165 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("test"), &buff[2], &pi);
8166 ok(hr == S_OK, "got 0x%08x\n", hr);
8167
8168 IXMLDOMProcessingInstruction_Release(pi);
8169 IXMLDOMDocument_Release(doc);
8170 }
8171
8172 static void test_put_nodeTypedValue(void)
8173 {
8174 static const BYTE binhexdata[16] =
8175 {0,1,2,3,4,5,6,7,8,9,0xa,0xb,0xc,0xd,0xe,0xf};
8176 IXMLDOMDocument *doc;
8177 IXMLDOMElement *elem;
8178 VARIANT type, value;
8179 LONG ubound, lbound;
8180 IXMLDOMNode *node;
8181 SAFEARRAY *array;
8182 HRESULT hr;
8183 BYTE *ptr;
8184 BSTR str;
8185
8186 doc = create_document(&IID_IXMLDOMDocument);
8187
8188 hr = IXMLDOMDocument_createElement(doc, _bstr_("Element"), &elem);
8189 EXPECT_HR(hr, S_OK);
8190
8191 V_VT(&type) = VT_EMPTY;
8192 hr = IXMLDOMElement_get_dataType(elem, &type);
8193 EXPECT_HR(hr, S_FALSE);
8194 ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8195
8196 /* set typed value for untyped node */
8197 V_VT(&type) = VT_I1;
8198 V_I1(&type) = 1;
8199 hr = IXMLDOMElement_put_nodeTypedValue(elem, type);
8200 EXPECT_HR(hr, S_OK);
8201
8202 V_VT(&type) = VT_EMPTY;
8203 hr = IXMLDOMElement_get_dataType(elem, &type);
8204 EXPECT_HR(hr, S_FALSE);
8205 ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8206
8207 /* no type info stored */
8208 V_VT(&type) = VT_EMPTY;
8209 hr = IXMLDOMElement_get_nodeTypedValue(elem, &type);
8210 EXPECT_HR(hr, S_OK);
8211 ok(V_VT(&type) == VT_BSTR, "got %d, expected VT_BSTR\n", V_VT(&type));
8212 ok(memcmp(V_BSTR(&type), _bstr_("1"), 2*sizeof(WCHAR)) == 0,
8213 "got %s, expected \"1\"\n", wine_dbgstr_w(V_BSTR(&type)));
8214 VariantClear(&type);
8215
8216 hr = IXMLDOMElement_get_firstChild(elem, &node);
8217 EXPECT_HR(hr, S_OK);
8218 hr = IXMLDOMElement_removeChild(elem, node, NULL);
8219 EXPECT_HR(hr, S_OK);
8220 IXMLDOMNode_Release(node);
8221
8222 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)elem, NULL);
8223 EXPECT_HR(hr, S_OK);
8224
8225 /* bin.base64 */
8226 hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.base64"));
8227 EXPECT_HR(hr, S_OK);
8228
8229 V_VT(&value) = VT_BSTR;
8230 V_BSTR(&value) = _bstr_("ABCD");
8231 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8232 EXPECT_HR(hr, S_OK);
8233
8234 V_VT(&value) = VT_EMPTY;
8235 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8236 EXPECT_HR(hr, S_OK);
8237 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8238 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8239 ubound = 0;
8240 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8241 EXPECT_HR(hr, S_OK);
8242 ok(ubound == 2, "got %d\n", ubound);
8243 lbound = 0;
8244 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8245 EXPECT_HR(hr, S_OK);
8246 ok(lbound == 0, "got %d\n", lbound);
8247 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8248 EXPECT_HR(hr, S_OK);
8249 ok(ptr[0] == 0, "got %x\n", ptr[0]);
8250 ok(ptr[1] == 0x10, "got %x\n", ptr[1]);
8251 ok(ptr[2] == 0x83, "got %x\n", ptr[2]);
8252 SafeArrayUnaccessData(V_ARRAY(&value));
8253 VariantClear(&value);
8254
8255 /* when set as VT_BSTR it's stored as is */
8256 hr = IXMLDOMElement_get_firstChild(elem, &node);
8257 EXPECT_HR(hr, S_OK);
8258 hr = IXMLDOMNode_get_text(node, &str);
8259 EXPECT_HR(hr, S_OK);
8260 ok(!lstrcmpW(str, _bstr_("ABCD")), "%s\n", wine_dbgstr_w(str));
8261 IXMLDOMNode_Release(node);
8262 SysFreeString(str);
8263
8264 array = SafeArrayCreateVector(VT_UI1, 0, 7);
8265 hr = SafeArrayAccessData(array, (void*)&ptr);
8266 EXPECT_HR(hr, S_OK);
8267 memcpy(ptr, "dGVzdA=", strlen("dGVzdA="));
8268 SafeArrayUnaccessData(array);
8269
8270 V_VT(&value) = VT_UI1|VT_ARRAY;
8271 V_ARRAY(&value) = array;
8272 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8273 EXPECT_HR(hr, S_OK);
8274
8275 V_VT(&value) = VT_EMPTY;
8276 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8277 EXPECT_HR(hr, S_OK);
8278 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8279 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8280 ubound = 0;
8281 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8282 EXPECT_HR(hr, S_OK);
8283 ok(ubound == 6, "got %d\n", ubound);
8284 lbound = 0;
8285 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8286 EXPECT_HR(hr, S_OK);
8287 ok(lbound == 0, "got %d\n", lbound);
8288 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8289 EXPECT_HR(hr, S_OK);
8290 ok(!memcmp(ptr, "dGVzdA=", strlen("dGVzdA=")), "got wrong data, %s\n", ptr);
8291 SafeArrayUnaccessData(V_ARRAY(&value));
8292 VariantClear(&value);
8293
8294 /* if set with VT_UI1|VT_ARRAY it's encoded */
8295 hr = IXMLDOMElement_get_firstChild(elem, &node);
8296 EXPECT_HR(hr, S_OK);
8297 hr = IXMLDOMNode_get_text(node, &str);
8298 EXPECT_HR(hr, S_OK);
8299 ok(!lstrcmpW(str, _bstr_("ZEdWemRBPQ==")), "%s\n", wine_dbgstr_w(str));
8300 IXMLDOMNode_Release(node);
8301 SafeArrayDestroyData(array);
8302 SysFreeString(str);
8303
8304 /* bin.hex */
8305 V_VT(&value) = VT_BSTR;
8306 V_BSTR(&value) = _bstr_("");
8307 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8308 EXPECT_HR(hr, S_OK);
8309
8310 hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.hex"));
8311 EXPECT_HR(hr, S_OK);
8312
8313 array = SafeArrayCreateVector(VT_UI1, 0, 16);
8314 hr = SafeArrayAccessData(array, (void*)&ptr);
8315 EXPECT_HR(hr, S_OK);
8316 memcpy(ptr, binhexdata, sizeof(binhexdata));
8317 SafeArrayUnaccessData(array);
8318
8319 V_VT(&value) = VT_UI1|VT_ARRAY;
8320 V_ARRAY(&value) = array;
8321 hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8322 EXPECT_HR(hr, S_OK);
8323
8324 V_VT(&value) = VT_EMPTY;
8325 hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8326 EXPECT_HR(hr, S_OK);
8327 ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8328 ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8329 ubound = 0;
8330 hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8331 EXPECT_HR(hr, S_OK);
8332 ok(ubound == 15, "got %d\n", ubound);
8333 lbound = 0;
8334 hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8335 EXPECT_HR(hr, S_OK);
8336 ok(lbound == 0, "got %d\n", lbound);
8337 hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8338 EXPECT_HR(hr, S_OK);
8339 ok(!memcmp(ptr, binhexdata, sizeof(binhexdata)), "got wrong data\n");
8340 SafeArrayUnaccessData(V_ARRAY(&value));
8341 VariantClear(&value);
8342
8343 /* if set with VT_UI1|VT_ARRAY it's encoded */
8344 hr = IXMLDOMElement_get_firstChild(elem, &node);
8345 EXPECT_HR(hr, S_OK);
8346 hr = IXMLDOMNode_get_text(node, &str);
8347 EXPECT_HR(hr, S_OK);
8348 ok(!lstrcmpW(str, _bstr_("000102030405060708090a0b0c0d0e0f")), "%s\n", wine_dbgstr_w(str));
8349 IXMLDOMNode_Release(node);
8350 SafeArrayDestroyData(array);
8351 SysFreeString(str);
8352
8353 IXMLDOMElement_Release(elem);
8354 IXMLDOMDocument_Release(doc);
8355 free_bstrs();
8356 }
8357
8358 static void test_get_xml(void)
8359 {
8360 static const char xmlA[] = "<?xml version=\"1.0\" encoding=\"UTF-16\"?>\r\n<a>test</a>\r\n";
8361 static const char attrA[] = "attr=\"&quot;a &amp; b&quot;\"";
8362 static const char attr2A[] = "\"a & b\"";
8363 static const char attr3A[] = "attr=\"&amp;quot;a\"";
8364 static const char attr4A[] = "&quot;a";
8365 static const char fooA[] = "<foo/>";
8366 IXMLDOMProcessingInstruction *pi;
8367 IXMLDOMNode *first;
8368 IXMLDOMElement *elem = NULL;
8369 IXMLDOMAttribute *attr;
8370 IXMLDOMDocument *doc;
8371 VARIANT_BOOL b;
8372 VARIANT v;
8373 BSTR xml;
8374 HRESULT hr;
8375
8376 doc = create_document(&IID_IXMLDOMDocument);
8377
8378 b = VARIANT_TRUE;
8379 hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8380 ok(hr == S_OK, "got 0x%08x\n", hr);
8381 ok( b == VARIANT_TRUE, "got %d\n", b);
8382
8383 hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"),
8384 _bstr_("version=\"1.0\" encoding=\"UTF-16\""), &pi);
8385 ok(hr == S_OK, "got 0x%08x\n", hr);
8386
8387 hr = IXMLDOMDocument_get_firstChild(doc, &first);
8388 ok(hr == S_OK, "got 0x%08x\n", hr);
8389
8390 V_UNKNOWN(&v) = (IUnknown*)first;
8391 V_VT(&v) = VT_UNKNOWN;
8392
8393 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)pi, v, NULL);
8394 ok(hr == S_OK, "got 0x%08x\n", hr);
8395
8396 IXMLDOMProcessingInstruction_Release(pi);
8397 IXMLDOMNode_Release(first);
8398
8399 hr = IXMLDOMDocument_get_xml(doc, &xml);
8400 ok(hr == S_OK, "got 0x%08x\n", hr);
8401
8402 ok(memcmp(xml, _bstr_(xmlA), sizeof(xmlA)*sizeof(WCHAR)) == 0,
8403 "got %s, expected %s\n", wine_dbgstr_w(xml), xmlA);
8404 SysFreeString(xml);
8405
8406 IXMLDOMDocument_Release(doc);
8407
8408 doc = create_document(&IID_IXMLDOMDocument);
8409
8410 hr = IXMLDOMDocument_createElement(doc, _bstr_("foo"), &elem);
8411 ok(hr == S_OK, "got 0x%08x\n", hr);
8412
8413 hr = IXMLDOMDocument_putref_documentElement(doc, elem);
8414 ok(hr == S_OK, "got 0x%08x\n", hr);
8415
8416 hr = IXMLDOMDocument_get_xml(doc, &xml);
8417 ok(hr == S_OK, "got 0x%08x\n", hr);
8418
8419 ok(memcmp(xml, _bstr_(fooA), (sizeof(fooA)-1)*sizeof(WCHAR)) == 0,
8420 "got %s, expected %s\n", wine_dbgstr_w(xml), fooA);
8421 SysFreeString(xml);
8422
8423 IXMLDOMElement_Release(elem);
8424
8425 /* attribute node */
8426 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
8427 ok(hr == S_OK, "got 0x%08x\n", hr);
8428
8429 V_VT(&v) = VT_BSTR;
8430 V_BSTR(&v) = _bstr_("\"a & b\"");
8431 hr = IXMLDOMAttribute_put_value(attr, v);
8432 ok(hr == S_OK, "got 0x%08x\n", hr);
8433
8434 xml = NULL;
8435 hr = IXMLDOMAttribute_get_xml(attr, &xml);
8436 ok(hr == S_OK, "got 0x%08x\n", hr);
8437 ok(!memcmp(xml, _bstr_(attrA), (sizeof(attrA)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8438 SysFreeString(xml);
8439
8440 VariantInit(&v);
8441 hr = IXMLDOMAttribute_get_value(attr, &v);
8442 ok(hr == S_OK, "got 0x%08x\n", hr);
8443 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8444 ok(!memcmp(V_BSTR(&v), _bstr_(attr2A), (sizeof(attr2A)-1)*sizeof(WCHAR)),
8445 "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8446 VariantClear(&v);
8447
8448 V_VT(&v) = VT_BSTR;
8449 V_BSTR(&v) = _bstr_("&quot;a");
8450 hr = IXMLDOMAttribute_put_value(attr, v);
8451 ok(hr == S_OK, "got 0x%08x\n", hr);
8452
8453 xml = NULL;
8454 hr = IXMLDOMAttribute_get_xml(attr, &xml);
8455 ok(hr == S_OK, "got 0x%08x\n", hr);
8456 ok(!memcmp(xml, _bstr_(attr3A), (sizeof(attr3A)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8457 SysFreeString(xml);
8458
8459 VariantInit(&v);
8460 hr = IXMLDOMAttribute_get_value(attr, &v);
8461 ok(hr == S_OK, "got 0x%08x\n", hr);
8462 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8463 ok(!memcmp(V_BSTR(&v), _bstr_(attr4A), (sizeof(attr4A)-1)*sizeof(WCHAR)),
8464 "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8465 VariantClear(&v);
8466
8467 IXMLDOMAttribute_Release(attr);
8468
8469 IXMLDOMDocument_Release(doc);
8470
8471 free_bstrs();
8472 }
8473
8474 static void test_xsltemplate(void)
8475 {
8476 IXSLTemplate *template;
8477 IXSLProcessor *processor;
8478 IXMLDOMDocument *doc, *doc2;
8479 IStream *stream;
8480 VARIANT_BOOL b;
8481 HRESULT hr;
8482 ULONG ref1, ref2;
8483 VARIANT v;
8484
8485 if (!is_clsid_supported(&CLSID_XSLTemplate, &IID_IXSLTemplate)) return;
8486 template = create_xsltemplate(&IID_IXSLTemplate);
8487
8488 /* works as reset */
8489 hr = IXSLTemplate_putref_stylesheet(template, NULL);
8490 ok(hr == S_OK, "got 0x%08x\n", hr);
8491
8492 doc = create_document(&IID_IXMLDOMDocument);
8493
8494 b = VARIANT_TRUE;
8495 hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8496 ok(hr == S_OK, "got 0x%08x\n", hr);
8497 ok( b == VARIANT_TRUE, "got %d\n", b);
8498
8499 /* putref with non-xsl document */
8500 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8501 todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8502
8503 b = VARIANT_TRUE;
8504 hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8505 ok(hr == S_OK, "got 0x%08x\n", hr);
8506 ok( b == VARIANT_TRUE, "got %d\n", b);
8507
8508 /* not a freethreaded document */
8509 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8510 todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8511
8512 IXMLDOMDocument_Release(doc);
8513
8514 if (!is_clsid_supported(&CLSID_FreeThreadedDOMDocument, &IID_IXMLDOMDocument))
8515 {
8516 IXSLTemplate_Release(template);
8517 return;
8518 }
8519
8520 hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
8521 ok(hr == S_OK, "got 0x%08x\n", hr);
8522
8523 b = VARIANT_TRUE;
8524 hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8525 ok(hr == S_OK, "got 0x%08x\n", hr);
8526 ok( b == VARIANT_TRUE, "got %d\n", b);
8527
8528 /* freethreaded document */
8529 ref1 = IXMLDOMDocument_AddRef(doc);
8530 IXMLDOMDocument_Release(doc);
8531 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8532 ok(hr == S_OK, "got 0x%08x\n", hr);
8533 ref2 = IXMLDOMDocument_AddRef(doc);
8534 IXMLDOMDocument_Release(doc);
8535 ok(ref2 > ref1, "got %d\n", ref2);
8536
8537 /* processor */
8538 hr = IXSLTemplate_createProcessor(template, NULL);
8539 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8540
8541 EXPECT_REF(template, 1);
8542 hr = IXSLTemplate_createProcessor(template, &processor);
8543 ok(hr == S_OK, "got 0x%08x\n", hr);
8544 EXPECT_REF(template, 2);
8545
8546 /* input no set yet */
8547 V_VT(&v) = VT_BSTR;
8548 V_BSTR(&v) = NULL;
8549 hr = IXSLProcessor_get_input(processor, &v);
8550 todo_wine {
8551 ok(hr == S_OK, "got 0x%08x\n", hr);
8552 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
8553 }
8554
8555 hr = IXSLProcessor_get_output(processor, NULL);
8556 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8557
8558 /* reset before it was set */
8559 V_VT(&v) = VT_EMPTY;
8560 hr = IXSLProcessor_put_output(processor, v);
8561 ok(hr == S_OK, "got 0x%08x\n", hr);
8562
8563 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
8564 ok(hr == S_OK, "got 0x%08x\n", hr);
8565 EXPECT_REF(stream, 1);
8566
8567 V_VT(&v) = VT_UNKNOWN;
8568 V_UNKNOWN(&v) = (IUnknown*)stream;
8569 hr = IXSLProcessor_put_output(processor, v);
8570 ok(hr == S_OK, "got 0x%08x\n", hr);
8571
8572 /* it seems processor grabs 2 references */
8573 todo_wine EXPECT_REF(stream, 3);
8574
8575 V_VT(&v) = VT_EMPTY;
8576 hr = IXSLProcessor_get_output(processor, &v);
8577 ok(hr == S_OK, "got 0x%08x\n", hr);
8578 ok(V_VT(&v) == VT_UNKNOWN, "got type %d\n", V_VT(&v));
8579 ok(V_UNKNOWN(&v) == (IUnknown*)stream, "got %p\n", V_UNKNOWN(&v));
8580
8581 todo_wine EXPECT_REF(stream, 4);
8582 VariantClear(&v);
8583
8584 hr = IXSLProcessor_transform(processor, NULL);
8585 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8586
8587 /* reset and check stream refcount */
8588 V_VT(&v) = VT_EMPTY;
8589 hr = IXSLProcessor_put_output(processor, v);
8590 ok(hr == S_OK, "got 0x%08x\n", hr);
8591
8592 EXPECT_REF(stream, 1);
8593
8594 IStream_Release(stream);
8595
8596 /* no output interface set, check output */
8597 doc2 = create_document(&IID_IXMLDOMDocument);
8598
8599 b = VARIANT_TRUE;
8600 hr = IXMLDOMDocument_loadXML( doc2, _bstr_("<a>test</a>"), &b );
8601 ok(hr == S_OK, "got 0x%08x\n", hr);
8602 ok( b == VARIANT_TRUE, "got %d\n", b);
8603
8604 V_VT(&v) = VT_UNKNOWN;
8605 V_UNKNOWN(&v) = (IUnknown*)doc2;
8606 hr = IXSLProcessor_put_input(processor, v);
8607 ok(hr == S_OK, "got 0x%08x\n", hr);
8608
8609 hr = IXSLProcessor_transform(processor, &b);
8610 ok(hr == S_OK, "got 0x%08x\n", hr);
8611
8612 V_VT(&v) = VT_EMPTY;
8613 hr = IXSLProcessor_get_output(processor, &v);
8614 ok(hr == S_OK, "got 0x%08x\n", hr);
8615 ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8616 ok(*V_BSTR(&v) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8617 IXMLDOMDocument_Release(doc2);
8618 VariantClear(&v);
8619
8620 IXSLProcessor_Release(processor);
8621
8622 /* drop reference */
8623 hr = IXSLTemplate_putref_stylesheet(template, NULL);
8624 ok(hr == S_OK, "got 0x%08x\n", hr);
8625 ref2 = IXMLDOMDocument_AddRef(doc);
8626 IXMLDOMDocument_Release(doc);
8627 ok(ref2 == ref1, "got %d\n", ref2);
8628
8629 IXMLDOMDocument_Release(doc);
8630 IXSLTemplate_Release(template);
8631 free_bstrs();
8632 }
8633
8634 static void test_insertBefore(void)
8635 {
8636 IXMLDOMDocument *doc, *doc2, *doc3;
8637 IXMLDOMAttribute *attr;
8638 IXMLDOMElement *elem1, *elem2, *elem3, *elem4, *elem5;
8639 IXMLDOMNode *node, *newnode, *cdata;
8640 HRESULT hr;
8641 VARIANT v;
8642 BSTR p;
8643
8644 doc = create_document(&IID_IXMLDOMDocument);
8645 doc3 = create_document(&IID_IXMLDOMDocument);
8646
8647 /* document to document */
8648 V_VT(&v) = VT_NULL;
8649 node = (void*)0xdeadbeef;
8650 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc3, v, &node);
8651 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8652 ok(node == NULL, "got %p\n", node);
8653
8654 /* document to itself */
8655 V_VT(&v) = VT_NULL;
8656 node = (void*)0xdeadbeef;
8657 hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc, v, &node);
8658 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8659 ok(node == NULL, "got %p\n", node);
8660
8661 /* insertBefore behaviour for attribute node */
8662 V_VT(&v) = VT_I4;
8663 V_I4(&v) = NODE_ATTRIBUTE;
8664
8665 attr = NULL;
8666 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr"), NULL, (IXMLDOMNode**)&attr);
8667 ok(hr == S_OK, "got 0x%08x\n", hr);
8668 ok(attr != NULL, "got %p\n", attr);
8669
8670 /* attribute to document */
8671 V_VT(&v) = VT_NULL;
8672 node = (void*)0xdeadbeef;
8673 hr = IXMLDOMDocument_insertBefore(doc3, (IXMLDOMNode*)attr, v, &node);
8674 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8675 ok(node == NULL, "got %p\n", node);
8676
8677 /* cdata to document */
8678 V_VT(&v) = VT_I4;
8679 V_I4(&v) = NODE_CDATA_SECTION;
8680
8681 cdata = NULL;
8682 hr = IXMLDOMDocument_createNode(doc3, v, _bstr_("cdata"), NULL, &cdata);
8683 ok(hr == S_OK, "got 0x%08x\n", hr);
8684 ok(cdata != NULL, "got %p\n", cdata);
8685
8686 EXPECT_NO_CHILDREN(cdata);
8687
8688 /* attribute to cdata */
8689 V_VT(&v) = VT_NULL;
8690 node = (void*)0xdeadbeef;
8691 hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)attr, v, &node);
8692 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8693 ok(node == NULL, "got %p\n", node);
8694
8695 /* document to cdata */
8696 V_VT(&v) = VT_NULL;
8697 node = (void*)0xdeadbeef;
8698 hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)doc, v, &node);
8699 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8700 ok(node == NULL, "got %p\n", node);
8701
8702 V_VT(&v) = VT_NULL;
8703 node = (void*)0xdeadbeef;
8704 hr = IXMLDOMDocument_insertBefore(doc3, cdata, v, &node);
8705 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8706 ok(node == NULL, "got %p\n", node);
8707
8708 IXMLDOMNode_Release(cdata);
8709 IXMLDOMDocument_Release(doc3);
8710
8711 /* attribute to attribute */
8712 V_VT(&v) = VT_I4;
8713 V_I4(&v) = NODE_ATTRIBUTE;
8714 newnode = NULL;
8715 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr2"), NULL, &newnode);
8716 ok(hr == S_OK, "got 0x%08x\n", hr);
8717 ok(newnode != NULL, "got %p\n", newnode);
8718
8719 V_VT(&v) = VT_NULL;
8720 node = (void*)0xdeadbeef;
8721 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8722 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8723 ok(node == NULL, "got %p\n", node);
8724
8725 V_VT(&v) = VT_UNKNOWN;
8726 V_UNKNOWN(&v) = (IUnknown*)attr;
8727 node = (void*)0xdeadbeef;
8728 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8729 todo_wine ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8730 ok(node == NULL, "got %p\n", node);
8731 IXMLDOMNode_Release(newnode);
8732
8733 /* cdata to attribute */
8734 V_VT(&v) = VT_I4;
8735 V_I4(&v) = NODE_CDATA_SECTION;
8736 newnode = NULL;
8737 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8738 ok(hr == S_OK, "got 0x%08x\n", hr);
8739 ok(newnode != NULL, "got %p\n", newnode);
8740
8741 V_VT(&v) = VT_NULL;
8742 node = (void*)0xdeadbeef;
8743 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8744 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8745 ok(node == NULL, "got %p\n", node);
8746 IXMLDOMNode_Release(newnode);
8747
8748 /* comment to attribute */
8749 V_VT(&v) = VT_I4;
8750 V_I4(&v) = NODE_COMMENT;
8751 newnode = NULL;
8752 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8753 ok(hr == S_OK, "got 0x%08x\n", hr);
8754 ok(newnode != NULL, "got %p\n", newnode);
8755
8756 V_VT(&v) = VT_NULL;
8757 node = (void*)0xdeadbeef;
8758 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8759 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8760 ok(node == NULL, "got %p\n", node);
8761 IXMLDOMNode_Release(newnode);
8762
8763 /* element to attribute */
8764 V_VT(&v) = VT_I4;
8765 V_I4(&v) = NODE_ELEMENT;
8766 newnode = NULL;
8767 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8768 ok(hr == S_OK, "got 0x%08x\n", hr);
8769 ok(newnode != NULL, "got %p\n", newnode);
8770
8771 V_VT(&v) = VT_NULL;
8772 node = (void*)0xdeadbeef;
8773 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8774 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8775 ok(node == NULL, "got %p\n", node);
8776 IXMLDOMNode_Release(newnode);
8777
8778 /* pi to attribute */
8779 V_VT(&v) = VT_I4;
8780 V_I4(&v) = NODE_PROCESSING_INSTRUCTION;
8781 newnode = NULL;
8782 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8783 ok(hr == S_OK, "got 0x%08x\n", hr);
8784 ok(newnode != NULL, "got %p\n", newnode);
8785
8786 V_VT(&v) = VT_NULL;
8787 node = (void*)0xdeadbeef;
8788 hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8789 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8790 ok(node == NULL, "got %p\n", node);
8791 IXMLDOMNode_Release(newnode);
8792 IXMLDOMAttribute_Release(attr);
8793
8794 /* insertBefore for elements */
8795 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem1);
8796 ok(hr == S_OK, "got 0x%08x\n", hr);
8797
8798 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem2"), &elem2);
8799 ok(hr == S_OK, "got 0x%08x\n", hr);
8800
8801 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8802 ok(hr == S_OK, "got 0x%08x\n", hr);
8803
8804 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8805 ok(hr == S_OK, "got 0x%08x\n", hr);
8806
8807 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem4"), &elem4);
8808 ok(hr == S_OK, "got 0x%08x\n", hr);
8809
8810 EXPECT_NO_CHILDREN(elem1);
8811 EXPECT_NO_CHILDREN(elem2);
8812 EXPECT_NO_CHILDREN(elem3);
8813
8814 todo_wine EXPECT_REF(elem2, 2);
8815
8816 /* document to element */
8817 V_VT(&v) = VT_DISPATCH;
8818 V_DISPATCH(&v) = NULL;
8819 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)doc, v, NULL);
8820 ok(hr == E_FAIL, "got 0x%08x\n", hr);
8821
8822 V_VT(&v) = VT_DISPATCH;
8823 V_DISPATCH(&v) = NULL;
8824 node = NULL;
8825 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem4, v, &node);
8826 ok(hr == S_OK, "got 0x%08x\n", hr);
8827 ok(node == (void*)elem4, "got %p\n", node);
8828
8829 EXPECT_CHILDREN(elem1);
8830 hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem4, NULL);
8831 EXPECT_HR(hr, S_OK);
8832 IXMLDOMElement_Release(elem4);
8833
8834 EXPECT_NO_CHILDREN(elem1);
8835
8836 V_VT(&v) = VT_NULL;
8837 node = NULL;
8838 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8839 ok(hr == S_OK, "got 0x%08x\n", hr);
8840 ok(node == (void*)elem2, "got %p\n", node);
8841
8842 EXPECT_CHILDREN(elem1);
8843 todo_wine EXPECT_REF(elem2, 3);
8844 IXMLDOMNode_Release(node);
8845
8846 /* again for already linked node */
8847 V_VT(&v) = VT_NULL;
8848 node = NULL;
8849 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8850 ok(hr == S_OK, "got 0x%08x\n", hr);
8851 ok(node == (void*)elem2, "got %p\n", node);
8852
8853 EXPECT_CHILDREN(elem1);
8854
8855 /* increments each time */
8856 todo_wine EXPECT_REF(elem2, 3);
8857 IXMLDOMNode_Release(node);
8858
8859 /* try to add to another element */
8860 V_VT(&v) = VT_NULL;
8861 node = (void*)0xdeadbeef;
8862 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem2, v, &node);
8863 ok(hr == S_OK, "got 0x%08x\n", hr);
8864 ok(node == (void*)elem2, "got %p\n", node);
8865
8866 EXPECT_CHILDREN(elem3);
8867 EXPECT_NO_CHILDREN(elem1);
8868
8869 IXMLDOMNode_Release(node);
8870
8871 /* cross document case - try to add as child to a node created with other doc */
8872 doc2 = create_document(&IID_IXMLDOMDocument);
8873
8874 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem4);
8875 ok(hr == S_OK, "got 0x%08x\n", hr);
8876 todo_wine EXPECT_REF(elem4, 2);
8877
8878 /* same name, another instance */
8879 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem5);
8880 ok(hr == S_OK, "got 0x%08x\n", hr);
8881 todo_wine EXPECT_REF(elem5, 2);
8882
8883 todo_wine EXPECT_REF(elem3, 2);
8884 V_VT(&v) = VT_NULL;
8885 node = NULL;
8886 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem4, v, &node);
8887 ok(hr == S_OK, "got 0x%08x\n", hr);
8888 ok(node == (void*)elem4, "got %p\n", node);
8889 todo_wine EXPECT_REF(elem4, 3);
8890 todo_wine EXPECT_REF(elem3, 2);
8891 IXMLDOMNode_Release(node);
8892
8893 V_VT(&v) = VT_NULL;
8894 node = NULL;
8895 hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem5, v, &node);
8896 ok(hr == S_OK, "got 0x%08x\n", hr);
8897 ok(node == (void*)elem5, "got %p\n", node);
8898 todo_wine EXPECT_REF(elem4, 2);
8899 todo_wine EXPECT_REF(elem5, 3);
8900 IXMLDOMNode_Release(node);
8901
8902 IXMLDOMDocument_Release(doc2);
8903
8904 IXMLDOMElement_Release(elem1);
8905 IXMLDOMElement_Release(elem2);
8906 IXMLDOMElement_Release(elem3);
8907 IXMLDOMElement_Release(elem4);
8908 IXMLDOMElement_Release(elem5);
8909
8910 /* elements with same default namespace */
8911 V_VT(&v) = VT_I4;
8912 V_I4(&v) = NODE_ELEMENT;
8913 elem1 = NULL;
8914 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8915 ok(hr == S_OK, "got 0x%08x\n", hr);
8916 ok(elem1 != NULL, "got %p\n", elem1);
8917
8918 V_VT(&v) = VT_I4;
8919 V_I4(&v) = NODE_ELEMENT;
8920 elem2 = NULL;
8921 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem2);
8922 ok(hr == S_OK, "got 0x%08x\n", hr);
8923 ok(elem2 != NULL, "got %p\n", elem2);
8924
8925 /* check contents so far */
8926 p = NULL;
8927 hr = IXMLDOMElement_get_xml(elem1, &p);
8928 ok(hr == S_OK, "got 0x%08x\n", hr);
8929 ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8930 SysFreeString(p);
8931
8932 p = NULL;
8933 hr = IXMLDOMElement_get_xml(elem2, &p);
8934 ok(hr == S_OK, "got 0x%08x\n", hr);
8935 ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8936 SysFreeString(p);
8937
8938 V_VT(&v) = VT_NULL;
8939 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8940 ok(hr == S_OK, "got 0x%08x\n", hr);
8941
8942 /* get_xml depends on context, for top node it omits child namespace attribute,
8943 but at child level it's still returned */
8944 p = NULL;
8945 hr = IXMLDOMElement_get_xml(elem1, &p);
8946 ok(hr == S_OK, "got 0x%08x\n", hr);
8947 todo_wine ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"><elem2/></elem1>")),
8948 "got %s\n", wine_dbgstr_w(p));
8949 SysFreeString(p);
8950
8951 p = NULL;
8952 hr = IXMLDOMElement_get_xml(elem2, &p);
8953 ok(hr == S_OK, "got 0x%08x\n", hr);
8954 ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8955 SysFreeString(p);
8956
8957 IXMLDOMElement_Release(elem1);
8958 IXMLDOMElement_Release(elem2);
8959
8960 /* child without default namespace added to node with default namespace */
8961 V_VT(&v) = VT_I4;
8962 V_I4(&v) = NODE_ELEMENT;
8963 elem1 = NULL;
8964 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8965 ok(hr == S_OK, "got 0x%08x\n", hr);
8966 ok(elem1 != NULL, "got %p\n", elem1);
8967
8968 V_VT(&v) = VT_I4;
8969 V_I4(&v) = NODE_ELEMENT;
8970 elem2 = NULL;
8971 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), NULL, (IXMLDOMNode**)&elem2);
8972 ok(hr == S_OK, "got 0x%08x\n", hr);
8973 ok(elem2 != NULL, "got %p\n", elem2);
8974
8975 EXPECT_REF(elem2, 1);
8976 V_VT(&v) = VT_NULL;
8977 hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8978 ok(hr == S_OK, "got 0x%08x\n", hr);
8979 EXPECT_REF(elem2, 1);
8980
8981 p = NULL;
8982 hr = IXMLDOMElement_get_xml(elem2, &p);
8983 ok(hr == S_OK, "got 0x%08x\n", hr);
8984 ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8985 SysFreeString(p);
8986
8987 hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem2, NULL);
8988 ok(hr == S_OK, "got 0x%08x\n", hr);
8989
8990 p = NULL;
8991 hr = IXMLDOMElement_get_xml(elem2, &p);
8992 ok(hr == S_OK, "got 0x%08x\n", hr);
8993 ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8994 SysFreeString(p);
8995
8996 IXMLDOMElement_Release(elem1);
8997 IXMLDOMElement_Release(elem2);
8998 IXMLDOMDocument_Release(doc);
8999 }
9000
9001 static void test_appendChild(void)
9002 {
9003 IXMLDOMDocument *doc, *doc2;
9004 IXMLDOMElement *elem, *elem2;
9005 HRESULT hr;
9006
9007 doc = create_document(&IID_IXMLDOMDocument);
9008 doc2 = create_document(&IID_IXMLDOMDocument);
9009
9010 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
9011 ok(hr == S_OK, "got 0x%08x\n", hr);
9012
9013 hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem2"), &elem2);
9014 ok(hr == S_OK, "got 0x%08x\n", hr);
9015
9016 EXPECT_REF(doc, 1);
9017 todo_wine EXPECT_REF(elem, 2);
9018 EXPECT_REF(doc2, 1);
9019 todo_wine EXPECT_REF(elem2, 2);
9020 EXPECT_NO_CHILDREN(doc);
9021 EXPECT_NO_CHILDREN(doc2);
9022
9023 hr = IXMLDOMDocument_appendChild(doc2, NULL, NULL);
9024 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9025
9026 hr = IXMLDOMElement_appendChild(elem, NULL, NULL);
9027 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9028
9029 /* append from another document */
9030 hr = IXMLDOMDocument_appendChild(doc2, (IXMLDOMNode*)elem, NULL);
9031 ok(hr == S_OK, "got 0x%08x\n", hr);
9032
9033 EXPECT_REF(doc, 1);
9034 todo_wine EXPECT_REF(elem, 2);
9035 EXPECT_REF(doc2, 1);
9036 todo_wine EXPECT_REF(elem2, 2);
9037 EXPECT_NO_CHILDREN(doc);
9038 EXPECT_CHILDREN(doc2);
9039
9040 IXMLDOMElement_Release(elem);
9041 IXMLDOMElement_Release(elem2);
9042 IXMLDOMDocument_Release(doc);
9043 IXMLDOMDocument_Release(doc2);
9044 }
9045
9046 static void test_get_doctype(void)
9047 {
9048 static const WCHAR emailW[] = {'e','m','a','i','l',0};
9049 IXMLDOMDocumentType *doctype;
9050 IXMLDOMDocument *doc;
9051 VARIANT_BOOL b;
9052 HRESULT hr;
9053 BSTR s;
9054
9055 doc = create_document(&IID_IXMLDOMDocument);
9056
9057 hr = IXMLDOMDocument_get_doctype(doc, NULL);
9058 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9059
9060 doctype = (void*)0xdeadbeef;
9061 hr = IXMLDOMDocument_get_doctype(doc, &doctype);
9062 ok(hr == S_FALSE, "got 0x%08x\n", hr);
9063 ok(doctype == NULL, "got %p\n", doctype);
9064
9065 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szEmailXML), &b);
9066 ok(hr == S_OK, "got 0x%08x\n", hr);
9067 ok(b == VARIANT_TRUE, "failed to load XML string\n");
9068
9069 doctype = NULL;
9070 hr = IXMLDOMDocument_get_doctype(doc, &doctype);
9071 ok(hr == S_OK, "got 0x%08x\n", hr);
9072 ok(doctype != NULL, "got %p\n", doctype);
9073
9074 hr = IXMLDOMDocumentType_get_name(doctype, NULL);
9075 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9076
9077 hr = IXMLDOMDocumentType_get_name(doctype, &s);
9078 ok(hr == S_OK, "got 0x%08x\n", hr);
9079 ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
9080 SysFreeString(s);
9081
9082 hr = IXMLDOMDocumentType_get_nodeName(doctype, &s);
9083 ok(hr == S_OK, "got 0x%08x\n", hr);
9084 ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
9085 SysFreeString(s);
9086
9087 IXMLDOMDocumentType_Release(doctype);
9088 IXMLDOMDocument_Release(doc);
9089 }
9090
9091 static void test_get_tagName(void)
9092 {
9093 IXMLDOMDocument *doc;
9094 IXMLDOMElement *elem, *elem2;
9095 HRESULT hr;
9096 BSTR str;
9097
9098 doc = create_document(&IID_IXMLDOMDocument);
9099
9100 hr = IXMLDOMDocument_createElement(doc, _bstr_("element"), &elem);
9101 ok(hr == S_OK, "got 0x%08x\n", hr);
9102
9103 hr = IXMLDOMElement_get_tagName(elem, NULL);
9104 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9105
9106 str = NULL;
9107 hr = IXMLDOMElement_get_tagName(elem, &str);
9108 ok(hr == S_OK, "got 0x%08x\n", hr);
9109 ok(!lstrcmpW(str, _bstr_("element")), "got %s\n", wine_dbgstr_w(str));
9110 SysFreeString(str);
9111
9112 hr = IXMLDOMDocument_createElement(doc, _bstr_("s:element"), &elem2);
9113 ok(hr == S_OK, "got 0x%08x\n", hr);
9114
9115 str = NULL;
9116 hr = IXMLDOMElement_get_tagName(elem2, &str);
9117 ok(hr == S_OK, "got 0x%08x\n", hr);
9118 ok(!lstrcmpW(str, _bstr_("s:element")), "got %s\n", wine_dbgstr_w(str));
9119 SysFreeString(str);
9120
9121 IXMLDOMElement_Release(elem);
9122 IXMLDOMElement_Release(elem2);
9123 IXMLDOMDocument_Release(doc);
9124 free_bstrs();
9125 }
9126
9127 typedef struct {
9128 DOMNodeType type;
9129 const char *name;
9130 VARTYPE vt;
9131 HRESULT hr;
9132 } node_type_t;
9133
9134 static const node_type_t get_datatype[] = {
9135 { NODE_ELEMENT, "element", VT_NULL, S_FALSE },
9136 { NODE_ATTRIBUTE, "attr", VT_NULL, S_FALSE },
9137 { NODE_TEXT, "text", VT_NULL, S_FALSE },
9138 { NODE_CDATA_SECTION , "cdata", VT_NULL, S_FALSE },
9139 { NODE_ENTITY_REFERENCE, "entityref", VT_NULL, S_FALSE },
9140 { NODE_PROCESSING_INSTRUCTION, "pi", VT_NULL, S_FALSE },
9141 { NODE_COMMENT, "comment", VT_NULL, S_FALSE },
9142 { NODE_DOCUMENT_FRAGMENT, "docfrag", VT_NULL, S_FALSE },
9143 { 0 }
9144 };
9145
9146 static void test_get_dataType(void)
9147 {
9148 const node_type_t *entry = get_datatype;
9149 IXMLDOMDocument *doc;
9150
9151 doc = create_document(&IID_IXMLDOMDocument);
9152
9153 while (entry->type)
9154 {
9155 IXMLDOMNode *node = NULL;
9156 VARIANT var, type;
9157 HRESULT hr;
9158
9159 V_VT(&var) = VT_I4;
9160 V_I4(&var) = entry->type;
9161 hr = IXMLDOMDocument_createNode(doc, var, _bstr_(entry->name), NULL, &node);
9162 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9163
9164 hr = IXMLDOMNode_get_dataType(node, NULL);
9165 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9166
9167 VariantInit(&type);
9168 hr = IXMLDOMNode_get_dataType(node, &type);
9169 ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9170 hr, entry->hr, entry->type);
9171 ok(V_VT(&type) == entry->vt, "got %d, expected %d. node type %d\n",
9172 V_VT(&type), entry->vt, entry->type);
9173 VariantClear(&type);
9174
9175 IXMLDOMNode_Release(node);
9176
9177 entry++;
9178 }
9179
9180 IXMLDOMDocument_Release(doc);
9181 free_bstrs();
9182 }
9183
9184 typedef struct _get_node_typestring_t {
9185 DOMNodeType type;
9186 const char *string;
9187 } get_node_typestring_t;
9188
9189 static const get_node_typestring_t get_node_typestring[] = {
9190 { NODE_ELEMENT, "element" },
9191 { NODE_ATTRIBUTE, "attribute" },
9192 { NODE_TEXT, "text" },
9193 { NODE_CDATA_SECTION , "cdatasection" },
9194 { NODE_ENTITY_REFERENCE, "entityreference" },
9195 { NODE_PROCESSING_INSTRUCTION, "processinginstruction" },
9196 { NODE_COMMENT, "comment" },
9197 { NODE_DOCUMENT_FRAGMENT, "documentfragment" },
9198 { 0 }
9199 };
9200
9201 static void test_get_nodeTypeString(void)
9202 {
9203 const get_node_typestring_t *entry = get_node_typestring;
9204 IXMLDOMDocument *doc;
9205 HRESULT hr;
9206 BSTR str;
9207
9208 doc = create_document(&IID_IXMLDOMDocument);
9209
9210 hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
9211 ok(hr == S_OK, "got 0x%08x\n", hr);
9212 ok(!lstrcmpW(str, _bstr_("document")), "got string %s\n", wine_dbgstr_w(str));
9213 SysFreeString(str);
9214
9215 while (entry->type)
9216 {
9217 IXMLDOMNode *node = NULL;
9218 VARIANT var;
9219
9220 V_VT(&var) = VT_I4;
9221 V_I4(&var) = entry->type;
9222 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9223 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9224
9225 hr = IXMLDOMNode_get_nodeTypeString(node, NULL);
9226 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9227
9228 hr = IXMLDOMNode_get_nodeTypeString(node, &str);
9229 ok(hr == S_OK, "got 0x%08x\n", hr);
9230 ok(!lstrcmpW(str, _bstr_(entry->string)), "got string %s, expected %s. node type %d\n",
9231 wine_dbgstr_w(str), entry->string, entry->type);
9232 SysFreeString(str);
9233 IXMLDOMNode_Release(node);
9234
9235 entry++;
9236 }
9237
9238 IXMLDOMDocument_Release(doc);
9239 free_bstrs();
9240 }
9241
9242 typedef struct _get_attributes_t {
9243 DOMNodeType type;
9244 HRESULT hr;
9245 } get_attributes_t;
9246
9247 static const get_attributes_t get_attributes[] = {
9248 { NODE_ATTRIBUTE, S_FALSE },
9249 { NODE_TEXT, S_FALSE },
9250 { NODE_CDATA_SECTION , S_FALSE },
9251 { NODE_ENTITY_REFERENCE, S_FALSE },
9252 { NODE_PROCESSING_INSTRUCTION, S_FALSE },
9253 { NODE_COMMENT, S_FALSE },
9254 { NODE_DOCUMENT_FRAGMENT, S_FALSE },
9255 { 0 }
9256 };
9257
9258 static void test_get_attributes(void)
9259 {
9260 const get_attributes_t *entry = get_attributes;
9261 IXMLDOMNamedNodeMap *map;
9262 IXMLDOMDocument *doc, *doc2;
9263 IXMLDOMNode *node, *node2;
9264 IXMLDOMElement *elem;
9265 VARIANT_BOOL b;
9266 HRESULT hr;
9267 VARIANT v;
9268 BSTR str;
9269 LONG length;
9270
9271 doc = create_document(&IID_IXMLDOMDocument);
9272
9273 hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
9274 ok(hr == S_OK, "got %08x\n", hr);
9275
9276 hr = IXMLDOMDocument_get_attributes(doc, NULL);
9277 ok(hr == E_INVALIDARG, "got %08x\n", hr);
9278
9279 map = (void*)0xdeadbeef;
9280 hr = IXMLDOMDocument_get_attributes(doc, &map);
9281 ok(hr == S_FALSE, "got %08x\n", hr);
9282 ok(map == NULL, "got %p\n", map);
9283
9284 /* first child is <?xml ?> */
9285 hr = IXMLDOMDocument_get_firstChild(doc, &node);
9286 ok(hr == S_OK, "got %08x\n", hr);
9287
9288 hr = IXMLDOMNode_get_attributes(node, &map);
9289 ok(hr == S_OK, "got %08x\n", hr);
9290
9291 node2 = (void*)0xdeadbeef;
9292 hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_("attr"), &node2);
9293 ok(hr == S_FALSE, "got %08x\n", hr);
9294 ok(node2 == NULL, "got %p\n", node2);
9295
9296 length = -1;
9297 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9298 EXPECT_HR(hr, S_OK);
9299 todo_wine ok(length == 1, "got %d\n", length);
9300
9301 if (hr == S_OK && length == 1)
9302 {
9303 IXMLDOMAttribute *attr;
9304 DOMNodeType type;
9305 VARIANT v;
9306
9307 node2 = NULL;
9308 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9309 EXPECT_HR(hr, S_OK);
9310 ok(node != NULL, "got %p\n", node2);
9311
9312 hr = IXMLDOMNode_get_nodeName(node2, &str);
9313 EXPECT_HR(hr, S_OK);
9314 ok(!lstrcmpW(str, _bstr_("version")), "got %s\n", wine_dbgstr_w(str));
9315 SysFreeString(str);
9316
9317 length = -1;
9318 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9319 EXPECT_HR(hr, S_OK);
9320 ok(length == 1, "got %d\n", length);
9321
9322 type = -1;
9323 hr = IXMLDOMNode_get_nodeType(node2, &type);
9324 EXPECT_HR(hr, S_OK);
9325 ok(type == NODE_ATTRIBUTE, "got %d\n", type);
9326
9327 hr = IXMLDOMNode_get_xml(node, &str);
9328 EXPECT_HR(hr, S_OK);
9329 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9330 SysFreeString(str);
9331
9332 hr = IXMLDOMNode_get_text(node, &str);
9333 EXPECT_HR(hr, S_OK);
9334 ok(!lstrcmpW(str, _bstr_("version=\"1.0\"")), "got %s\n", wine_dbgstr_w(str));
9335 SysFreeString(str);
9336
9337 hr = IXMLDOMNamedNodeMap_removeNamedItem(map, _bstr_("version"), NULL);
9338 EXPECT_HR(hr, S_OK);
9339
9340 length = -1;
9341 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9342 EXPECT_HR(hr, S_OK);
9343 ok(length == 0, "got %d\n", length);
9344
9345 hr = IXMLDOMNode_get_xml(node, &str);
9346 EXPECT_HR(hr, S_OK);
9347 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9348 SysFreeString(str);
9349
9350 hr = IXMLDOMNode_get_text(node, &str);
9351 EXPECT_HR(hr, S_OK);
9352 ok(!lstrcmpW(str, _bstr_("")), "got %s\n", wine_dbgstr_w(str));
9353 SysFreeString(str);
9354
9355 IXMLDOMNamedNodeMap_Release(map);
9356
9357 hr = IXMLDOMNode_get_attributes(node, &map);
9358 ok(hr == S_OK, "got %08x\n", hr);
9359
9360 length = -1;
9361 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9362 EXPECT_HR(hr, S_OK);
9363 ok(length == 0, "got %d\n", length);
9364
9365 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("encoding"), &attr);
9366 EXPECT_HR(hr, S_OK);
9367
9368 V_VT(&v) = VT_BSTR;
9369 V_BSTR(&v) = _bstr_("UTF-8");
9370 hr = IXMLDOMAttribute_put_nodeValue(attr, v);
9371 EXPECT_HR(hr, S_OK);
9372
9373 EXPECT_REF(attr, 2);
9374 hr = IXMLDOMNamedNodeMap_setNamedItem(map, (IXMLDOMNode*)attr, NULL);
9375 EXPECT_HR(hr, S_OK);
9376 EXPECT_REF(attr, 2);
9377
9378 hr = IXMLDOMNode_get_attributes(node, &map);
9379 ok(hr == S_OK, "got %08x\n", hr);
9380
9381 length = -1;
9382 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9383 EXPECT_HR(hr, S_OK);
9384 ok(length == 1, "got %d\n", length);
9385
9386 hr = IXMLDOMNode_get_xml(node, &str);
9387 EXPECT_HR(hr, S_OK);
9388 ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9389 SysFreeString(str);
9390
9391 hr = IXMLDOMNode_get_text(node, &str);
9392 EXPECT_HR(hr, S_OK);
9393 ok(!lstrcmpW(str, _bstr_("encoding=\"UTF-8\"")), "got %s\n", wine_dbgstr_w(str));
9394 SysFreeString(str);
9395
9396 IXMLDOMNamedNodeMap_Release(map);
9397 IXMLDOMNode_Release(node2);
9398 }
9399
9400 IXMLDOMNode_Release(node);
9401
9402 /* last child is element */
9403 EXPECT_REF(doc, 1);
9404 hr = IXMLDOMDocument_get_lastChild(doc, &node);
9405 ok(hr == S_OK, "got %08x\n", hr);
9406 EXPECT_REF(doc, 1);
9407
9408 EXPECT_REF(node, 1);
9409 hr = IXMLDOMNode_get_attributes(node, &map);
9410 ok(hr == S_OK, "got %08x\n", hr);
9411 EXPECT_REF(node, 1);
9412 EXPECT_REF(doc, 1);
9413
9414 EXPECT_REF(map, 1);
9415 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9416 ok(hr == S_OK, "got %08x\n", hr);
9417 EXPECT_REF(node, 1);
9418 EXPECT_REF(node2, 1);
9419 EXPECT_REF(map, 1);
9420 EXPECT_REF(doc, 1);
9421 IXMLDOMNode_Release(node2);
9422
9423 /* release node before map release, map still works */
9424 IXMLDOMNode_Release(node);
9425
9426 length = 0;
9427 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9428 ok(hr == S_OK, "got %08x\n", hr);
9429 ok(length == 1, "got %d\n", length);
9430
9431 node2 = NULL;
9432 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9433 ok(hr == S_OK, "got %08x\n", hr);
9434 EXPECT_REF(node2, 1);
9435 IXMLDOMNode_Release(node2);
9436
9437 IXMLDOMNamedNodeMap_Release(map);
9438
9439 /* append created element a different document, map still works */
9440 hr = IXMLDOMDocument_createElement(doc, _bstr_("test"), &elem);
9441 ok(hr == S_OK, "createElement failed: %08x\n", hr);
9442
9443 V_VT(&v) = VT_I4;
9444 V_I4(&v) = 1;
9445 hr = IXMLDOMElement_setAttribute(elem, _bstr_("testattr"), v);
9446 ok(hr == S_OK, "setAttribute failed: %08x\n", hr);
9447
9448 hr = IXMLDOMElement_get_attributes(elem, &map);
9449 ok(hr == S_OK, "get_attributes failed: %08x\n", hr);
9450
9451 length = 0;
9452 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9453 ok(hr == S_OK, "got %08x\n", hr);
9454 ok(length == 1, "got %d\n", length);
9455
9456 doc2 = create_document(&IID_IXMLDOMDocument);
9457
9458 hr = IXMLDOMDocument_appendChild(doc2, (IXMLDOMNode*)elem, &node);
9459 ok(hr == S_OK, "appendChild failed: %08x\n", hr);
9460 ok(node == (IXMLDOMNode*)elem, "node != elem\n");
9461 IXMLDOMNode_Release(node);
9462 IXMLDOMElement_Release(elem);
9463 IXMLDOMDocument_Release(doc2);
9464
9465 length = 0;
9466 hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9467 ok(hr == S_OK, "got %08x\n", hr);
9468 ok(length == 1, "got %d\n", length);
9469
9470 IXMLDOMNamedNodeMap_Release(map);
9471
9472 while (entry->type)
9473 {
9474 VARIANT var;
9475
9476 node = NULL;
9477
9478 V_VT(&var) = VT_I4;
9479 V_I4(&var) = entry->type;
9480 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9481 ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9482
9483 hr = IXMLDOMNode_get_attributes(node, NULL);
9484 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9485
9486 map = (void*)0xdeadbeef;
9487 hr = IXMLDOMNode_get_attributes(node, &map);
9488 ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9489 hr, entry->hr, entry->type);
9490 ok(map == NULL, "got %p\n", map);
9491
9492 IXMLDOMNode_Release(node);
9493
9494 entry++;
9495 }
9496
9497 IXMLDOMDocument_Release(doc);
9498 free_bstrs();
9499 }
9500
9501 static void test_selection(void)
9502 {
9503 IXMLDOMSelection *selection, *selection2;
9504 IEnumVARIANT *enum1, *enum2, *enum3;
9505 IXMLDOMNodeList *list;
9506 IUnknown *unk1, *unk2;
9507 IXMLDOMDocument *doc;
9508 IDispatchEx *dispex;
9509 IXMLDOMNode *node;
9510 IDispatch *disp;
9511 VARIANT_BOOL b;
9512 HRESULT hr;
9513 DISPID did;
9514 VARIANT v;
9515 BSTR name;
9516 ULONG ret;
9517 LONG len;
9518
9519 doc = create_document(&IID_IXMLDOMDocument);
9520
9521 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9522 EXPECT_HR(hr, S_OK);
9523
9524 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list);
9525 EXPECT_HR(hr, S_OK);
9526
9527 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9528 EXPECT_HR(hr, S_OK);
9529 IXMLDOMSelection_Release(selection);
9530
9531 /* collection disp id */
9532 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IDispatchEx, (void**)&dispex);
9533 EXPECT_HR(hr, S_OK);
9534 did = 0;
9535 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
9536 EXPECT_HR(hr, S_OK);
9537 ok(did == DISPID_DOM_COLLECTION_BASE, "got %d\n", did);
9538 len = 0;
9539 hr = IXMLDOMSelection_get_length(selection, &len);
9540 EXPECT_HR(hr, S_OK);
9541 ok(len == 1, "got %d\n", len);
9542 hr = IDispatchEx_GetDispID(dispex, _bstr_("10"), 0, &did);
9543 EXPECT_HR(hr, S_OK);
9544 ok(did == DISPID_DOM_COLLECTION_BASE+10, "got %d\n", did);
9545 IDispatchEx_Release(dispex);
9546
9547 /* IEnumVARIANT tests */
9548 enum1 = NULL;
9549 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum1);
9550 EXPECT_HR(hr, S_OK);
9551 ok(enum1 != NULL, "got %p\n", enum1);
9552 EXPECT_REF(enum1, 2);
9553
9554 EXPECT_REF(selection, 1);
9555 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IUnknown, (void**)&unk1);
9556 EXPECT_HR(hr, S_OK);
9557 EXPECT_REF(selection, 2);
9558 EXPECT_REF(enum1, 2);
9559
9560 /* enumerator and selection object return same IUnknown* */
9561 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
9562 EXPECT_HR(hr, S_OK);
9563 EXPECT_REF(selection, 3);
9564 EXPECT_REF(enum1, 2);
9565 ok(unk2 == unk1, "got %p, %p\n", unk1, unk2);
9566 IUnknown_Release(unk2);
9567
9568 EXPECT_REF(selection, 2);
9569 IEnumVARIANT_AddRef(enum1);
9570 EXPECT_REF(selection, 2);
9571 IEnumVARIANT_Release(enum1);
9572
9573 enum3 = NULL;
9574 hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum3);
9575 EXPECT_HR(hr, S_OK);
9576 ok(enum3 != NULL, "got %p\n", enum3);
9577 ok(enum1 == enum3, "got %p and %p\n", enum1, enum3);
9578 EXPECT_REF(enum1, 3);
9579 IEnumVARIANT_Release(enum3);
9580
9581 EXPECT_REF(selection, 2);
9582 EXPECT_REF(enum1, 2);
9583
9584 enum2 = NULL;
9585 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9586 EXPECT_HR(hr, S_OK);
9587 ok(enum2 != NULL, "got %p\n", enum2);
9588
9589 EXPECT_REF(selection, 3);
9590 EXPECT_REF(enum1, 2);
9591 EXPECT_REF(enum2, 1);
9592
9593 ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9594
9595 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
9596 EXPECT_HR(hr, S_OK);
9597 EXPECT_REF(selection, 3);
9598 EXPECT_REF(enum2, 2);
9599 ok(unk2 != unk1, "got %p, %p\n", unk1, unk2);
9600 IUnknown_Release(unk2);
9601 IUnknown_Release(unk1);
9602
9603 selection2 = NULL;
9604 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IXMLDOMSelection, (void**)&selection2);
9605 EXPECT_HR(hr, S_OK);
9606 ok(selection2 == selection, "got %p and %p\n", selection, selection2);
9607 EXPECT_REF(selection, 3);
9608 EXPECT_REF(enum1, 2);
9609
9610 IXMLDOMSelection_Release(selection2);
9611
9612 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IDispatch, (void**)&disp);
9613 EXPECT_HR(hr, S_OK);
9614 EXPECT_REF(selection, 3);
9615 IDispatch_Release(disp);
9616
9617 hr = IEnumVARIANT_QueryInterface(enum1, &IID_IEnumVARIANT, (void**)&enum3);
9618 EXPECT_HR(hr, S_OK);
9619 ok(enum3 == enum1, "got %p and %p\n", enum3, enum1);
9620 EXPECT_REF(selection, 2);
9621 EXPECT_REF(enum1, 3);
9622
9623 IEnumVARIANT_Release(enum1);
9624 IEnumVARIANT_Release(enum2);
9625 IEnumVARIANT_Release(enum3);
9626
9627 enum1 = NULL;
9628 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9629 EXPECT_HR(hr, S_OK);
9630 ok(enum1 != NULL, "got %p\n", enum1);
9631 EXPECT_REF(enum1, 1);
9632 EXPECT_REF(selection, 2);
9633
9634 enum2 = NULL;
9635 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9636 EXPECT_HR(hr, S_OK);
9637 ok(enum2 != NULL, "got %p\n", enum2);
9638 EXPECT_REF(enum2, 1);
9639 EXPECT_REF(selection, 3);
9640
9641 ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9642
9643 IEnumVARIANT_AddRef(enum1);
9644 EXPECT_REF(selection, 3);
9645 EXPECT_REF(enum1, 2);
9646 EXPECT_REF(enum2, 1);
9647 IEnumVARIANT_Release(enum1);
9648
9649 IEnumVARIANT_Release(enum1);
9650 IEnumVARIANT_Release(enum2);
9651
9652 EXPECT_REF(selection, 1);
9653
9654 IXMLDOMNodeList_Release(list);
9655
9656 hr = IXMLDOMDocument_get_childNodes(doc, &list);
9657 EXPECT_HR(hr, S_OK);
9658
9659 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9660 EXPECT_HR(hr, E_NOINTERFACE);
9661
9662 IXMLDOMNodeList_Release(list);
9663
9664 /* test if IEnumVARIANT touches selection context */
9665 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
9666 EXPECT_HR(hr, S_OK);
9667
9668 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/*"), &list);
9669 EXPECT_HR(hr, S_OK);
9670
9671 hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9672 EXPECT_HR(hr, S_OK);
9673
9674 len = 0;
9675 hr = IXMLDOMSelection_get_length(selection, &len);
9676 EXPECT_HR(hr, S_OK);
9677 ok(len == 4, "got %d\n", len);
9678
9679 enum1 = NULL;
9680 hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9681 EXPECT_HR(hr, S_OK);
9682
9683 /* no-op if zero count */
9684 V_VT(&v) = VT_I2;
9685 hr = IEnumVARIANT_Next(enum1, 0, &v, NULL);
9686 EXPECT_HR(hr, S_OK);
9687 ok(V_VT(&v) == VT_I2, "got var type %d\n", V_VT(&v));
9688
9689 /* positive count, null array pointer */
9690 hr = IEnumVARIANT_Next(enum1, 1, NULL, NULL);
9691 EXPECT_HR(hr, E_INVALIDARG);
9692
9693 ret = 1;
9694 hr = IEnumVARIANT_Next(enum1, 1, NULL, &ret);
9695 EXPECT_HR(hr, E_INVALIDARG);
9696 ok(ret == 0, "got %d\n", ret);
9697
9698 V_VT(&v) = VT_I2;
9699 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9700 EXPECT_HR(hr, S_OK);
9701 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9702
9703 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9704 EXPECT_HR(hr, S_OK);
9705 hr = IXMLDOMNode_get_nodeName(node, &name);
9706 EXPECT_HR(hr, S_OK);
9707 ok(!lstrcmpW(name, _bstr_("a")), "got node name %s\n", wine_dbgstr_w(name));
9708 SysFreeString(name);
9709 IXMLDOMNode_Release(node);
9710 VariantClear(&v);
9711
9712 /* list cursor is updated */
9713 hr = IXMLDOMSelection_nextNode(selection, &node);
9714 EXPECT_HR(hr, S_OK);
9715 hr = IXMLDOMNode_get_nodeName(node, &name);
9716 EXPECT_HR(hr, S_OK);
9717 ok(!lstrcmpW(name, _bstr_("c")), "got node name %s\n", wine_dbgstr_w(name));
9718 IXMLDOMNode_Release(node);
9719 SysFreeString(name);
9720
9721 V_VT(&v) = VT_I2;
9722 hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9723 EXPECT_HR(hr, S_OK);
9724 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9725 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9726 EXPECT_HR(hr, S_OK);
9727 hr = IXMLDOMNode_get_nodeName(node, &name);
9728 EXPECT_HR(hr, S_OK);
9729 ok(!lstrcmpW(name, _bstr_("b")), "got node name %s\n", wine_dbgstr_w(name));
9730 SysFreeString(name);
9731 IXMLDOMNode_Release(node);
9732 VariantClear(&v);
9733 IEnumVARIANT_Release(enum1);
9734
9735 hr = IXMLDOMSelection_nextNode(selection, &node);
9736 EXPECT_HR(hr, S_OK);
9737 hr = IXMLDOMNode_get_nodeName(node, &name);
9738 EXPECT_HR(hr, S_OK);
9739 ok(!lstrcmpW(name, _bstr_("d")), "got node name %s\n", wine_dbgstr_w(name));
9740 IXMLDOMNode_Release(node);
9741 SysFreeString(name);
9742
9743 IXMLDOMSelection_Release(selection);
9744 IXMLDOMNodeList_Release(list);
9745 IXMLDOMDocument_Release(doc);
9746
9747 free_bstrs();
9748 }
9749
9750 static void write_to_file(const char *name, const char *data)
9751 {
9752 DWORD written;
9753 HANDLE hfile;
9754 BOOL ret;
9755
9756 hfile = CreateFileA(name, GENERIC_WRITE|GENERIC_READ, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
9757 ok(hfile != INVALID_HANDLE_VALUE, "failed to create test file: %s\n", name);
9758
9759 ret = WriteFile(hfile, data, strlen(data), &written, NULL);
9760 ok(ret, "WriteFile failed: %s, %d\n", name, GetLastError());
9761
9762 CloseHandle(hfile);
9763 }
9764
9765 static void test_load(void)
9766 {
9767 IXMLDOMDocument *doc, *doc2;
9768 IXMLDOMNodeList *list;
9769 IXMLDOMElement *elem;
9770 VARIANT_BOOL b;
9771 VARIANT src;
9772 HRESULT hr;
9773 BSTR path, bstr1, bstr2;
9774 void* ptr;
9775
9776 /* prepare a file */
9777 write_to_file("test.xml", win1252xml);
9778
9779 doc = create_document(&IID_IXMLDOMDocument);
9780
9781 /* null pointer as input */
9782 V_VT(&src) = VT_UNKNOWN;
9783 V_UNKNOWN(&src) = NULL;
9784 hr = IXMLDOMDocument_load(doc, src, &b);
9785 EXPECT_HR(hr, E_INVALIDARG);
9786 ok(b == VARIANT_FALSE, "got %d\n", b);
9787
9788 path = _bstr_("test.xml");
9789
9790 /* load from path: VT_BSTR */
9791 V_VT(&src) = VT_BSTR;
9792 V_BSTR(&src) = path;
9793 hr = IXMLDOMDocument_load(doc, src, &b);
9794 EXPECT_HR(hr, S_OK);
9795 ok(b == VARIANT_TRUE, "got %d\n", b);
9796
9797 bstr1 = NULL;
9798 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9799 ok(hr == S_OK, "got 0x%08x\n", hr);
9800 SysFreeString(bstr1);
9801
9802 /* load from a path: VT_BSTR|VT_BYREF */
9803 V_VT(&src) = VT_BSTR | VT_BYREF;
9804 V_BSTRREF(&src) = &path;
9805 hr = IXMLDOMDocument_load(doc, src, &b);
9806 EXPECT_HR(hr, S_OK);
9807 ok(b == VARIANT_TRUE, "got %d\n", b);
9808
9809 bstr1 = NULL;
9810 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9811 ok(hr == S_OK, "got 0x%08x\n", hr);
9812
9813 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
9814 ok(hr == S_OK, "got 0x%08x\n", hr);
9815
9816 /* create another instance for the same document, check url */
9817 hr = IXMLDOMElement_get_ownerDocument(elem, &doc2);
9818 ok(hr == S_OK, "got 0x%08x\n", hr);
9819
9820 hr = IXMLDOMDocument_get_url(doc, &bstr2);
9821 ok(hr == S_OK, "got 0x%08x\n", hr);
9822 ok(!lstrcmpW(bstr1, bstr2), "got %s\n", wine_dbgstr_w(bstr2));
9823
9824 IXMLDOMDocument_Release(doc2);
9825 IXMLDOMElement_Release(elem);
9826
9827 SysFreeString(bstr1);
9828 SysFreeString(bstr2);
9829
9830 /* load from a path: VT_BSTR|VT_BYREF, null ptr */
9831 V_VT(&src) = VT_BSTR | VT_BYREF;
9832 V_BSTRREF(&src) = NULL;
9833 hr = IXMLDOMDocument_load(doc, src, &b);
9834 EXPECT_HR(hr, E_INVALIDARG);
9835 ok(b == VARIANT_FALSE, "got %d\n", b);
9836
9837 bstr1 = NULL;
9838 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9839 ok(hr == S_OK, "got 0x%08x\n", hr);
9840 SysFreeString(bstr1);
9841
9842 DeleteFileA("test.xml");
9843
9844 /* load from existing path, no xml content */
9845 write_to_file("test.xml", nocontent);
9846
9847 V_VT(&src) = VT_BSTR;
9848 V_BSTR(&src) = path;
9849 b = VARIANT_TRUE;
9850 hr = IXMLDOMDocument_load(doc, src, &b);
9851 ok(hr == S_FALSE, "got 0x%08x\n", hr);
9852 ok(b == VARIANT_FALSE, "got %d\n", b);
9853
9854 bstr1 = (BSTR)0x1;
9855 hr = IXMLDOMDocument_get_url(doc, &bstr1);
9856 ok(hr == S_FALSE, "got 0x%08x\n", hr);
9857 ok(bstr1 == NULL, "got %p\n", bstr1);
9858
9859 DeleteFileA("test.xml");
9860 IXMLDOMDocument_Release(doc);
9861
9862 doc = create_document(&IID_IXMLDOMDocument);
9863
9864 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9865 EXPECT_HR(hr, S_OK);
9866 ok(b == VARIANT_TRUE, "got %d\n", b);
9867
9868 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9869 EXPECT_HR(hr, S_OK);
9870 bstr1 = _bstr_(list_to_string(list));
9871
9872 hr = IXMLDOMNodeList_reset(list);
9873 EXPECT_HR(hr, S_OK);
9874
9875 IXMLDOMDocument_Release(doc);
9876
9877 doc = create_document(&IID_IXMLDOMDocument);
9878
9879 VariantInit(&src);
9880 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenA(szExampleXML));
9881 V_VT(&src) = VT_ARRAY|VT_UI1;
9882 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9883 ptr = NULL;
9884 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9885 EXPECT_HR(hr, S_OK);
9886 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9887
9888 memcpy(ptr, szExampleXML, lstrlenA(szExampleXML));
9889 hr = SafeArrayUnlock(V_ARRAY(&src));
9890 EXPECT_HR(hr, S_OK);
9891
9892 hr = IXMLDOMDocument_load(doc, src, &b);
9893 EXPECT_HR(hr, S_OK);
9894 ok(b == VARIANT_TRUE, "got %d\n", b);
9895
9896 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9897 EXPECT_HR(hr, S_OK);
9898 bstr2 = _bstr_(list_to_string(list));
9899
9900 hr = IXMLDOMNodeList_reset(list);
9901 EXPECT_HR(hr, S_OK);
9902
9903 ok(lstrcmpW(bstr1, bstr2) == 0, "strings not equal: %s : %s\n",
9904 wine_dbgstr_w(bstr1), wine_dbgstr_w(bstr2));
9905
9906 IXMLDOMDocument_Release(doc);
9907 IXMLDOMNodeList_Release(list);
9908 VariantClear(&src);
9909
9910 /* UTF-16 isn't accepted */
9911 doc = create_document(&IID_IXMLDOMDocument);
9912
9913 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenW(szComplete1) * sizeof(WCHAR));
9914 V_VT(&src) = VT_ARRAY|VT_UI1;
9915 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9916 ptr = NULL;
9917 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9918 EXPECT_HR(hr, S_OK);
9919 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9920
9921 memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9922 hr = SafeArrayUnlock(V_ARRAY(&src));
9923 EXPECT_HR(hr, S_OK);
9924
9925 hr = IXMLDOMDocument_load(doc, src, &b);
9926 todo_wine EXPECT_HR(hr, S_FALSE);
9927 todo_wine ok(b == VARIANT_FALSE, "got %d\n", b);
9928
9929 VariantClear(&src);
9930
9931 /* it doesn't like it as a VT_ARRAY|VT_UI2 either */
9932 V_ARRAY(&src) = SafeArrayCreateVector(VT_UI2, 0, lstrlenW(szComplete1));
9933 V_VT(&src) = VT_ARRAY|VT_UI2;
9934 ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9935 ptr = NULL;
9936 hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9937 EXPECT_HR(hr, S_OK);
9938 ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9939
9940 memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9941 hr = SafeArrayUnlock(V_ARRAY(&src));
9942 EXPECT_HR(hr, S_OK);
9943
9944 hr = IXMLDOMDocument_load(doc, src, &b);
9945 todo_wine EXPECT_HR(hr, E_INVALIDARG);
9946 ok(b == VARIANT_FALSE, "got %d\n", b);
9947
9948 VariantClear(&src);
9949 IXMLDOMDocument_Release(doc);
9950
9951 free_bstrs();
9952 }
9953
9954 static void test_domobj_dispex(IUnknown *obj)
9955 {
9956 static const WCHAR testW[] = {'t','e','s','t','p','r','o','p',0};
9957 DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
9958 IDispatchEx *dispex;
9959 IUnknown *unk;
9960 DWORD props;
9961 UINT ticnt;
9962 HRESULT hr;
9963 BSTR name;
9964
9965 hr = IUnknown_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
9966 EXPECT_HR(hr, S_OK);
9967 if (FAILED(hr)) return;
9968
9969 ticnt = 0;
9970 hr = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
9971 EXPECT_HR(hr, S_OK);
9972 ok(ticnt == 1, "ticnt=%u\n", ticnt);
9973
9974 name = SysAllocString(szstar);
9975 hr = IDispatchEx_DeleteMemberByName(dispex, name, fdexNameCaseSensitive);
9976 EXPECT_HR(hr, E_NOTIMPL);
9977 SysFreeString(name);
9978
9979 hr = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
9980 EXPECT_HR(hr, E_NOTIMPL);
9981
9982 props = 0;
9983 hr = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &props);
9984 EXPECT_HR(hr, E_NOTIMPL);
9985 ok(props == 0, "expected 0 got %d\n", props);
9986
9987 hr = IDispatchEx_GetMemberName(dispex, dispid, &name);
9988 EXPECT_HR(hr, E_NOTIMPL);
9989 if (SUCCEEDED(hr)) SysFreeString(name);
9990
9991 hr = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
9992 EXPECT_HR(hr, E_NOTIMPL);
9993
9994 unk = (IUnknown*)0xdeadbeef;
9995 hr = IDispatchEx_GetNameSpaceParent(dispex, &unk);
9996 EXPECT_HR(hr, E_NOTIMPL);
9997 ok(unk == (IUnknown*)0xdeadbeef, "got %p\n", unk);
9998
9999 name = SysAllocString(testW);
10000 hr = IDispatchEx_GetDispID(dispex, name, fdexNameEnsure, &dispid);
10001 ok(hr == DISP_E_UNKNOWNNAME, "got 0x%08x\n", hr);
10002 SysFreeString(name);
10003
10004 IDispatchEx_Release(dispex);
10005 }
10006
10007 static void test_mxnamespacemanager(void)
10008 {
10009 static const char xmluriA[] = "http://www.w3.org/XML/1998/namespace";
10010 IMXNamespacePrefixes *prefixes;
10011 IVBMXNamespaceManager *mgr2;
10012 IMXNamespaceManager *nsmgr;
10013 IUnknown *unk1, *unk2;
10014 WCHAR buffW[250];
10015 IDispatch *disp;
10016 IUnknown *unk;
10017 HRESULT hr;
10018 INT len;
10019
10020 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10021 &IID_IMXNamespaceManager, (void**)&nsmgr);
10022 EXPECT_HR(hr, S_OK);
10023
10024 /* IMXNamespaceManager inherits from IUnknown */
10025 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IDispatch, (void**)&disp);
10026 EXPECT_HR(hr, S_OK);
10027 IDispatch_Release(disp);
10028
10029 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IVBMXNamespaceManager, (void**)&mgr2);
10030 EXPECT_HR(hr, S_OK);
10031
10032 EXPECT_REF(nsmgr, 2);
10033 EXPECT_REF(mgr2, 2);
10034 prefixes = NULL;
10035 hr = IVBMXNamespaceManager_getDeclaredPrefixes(mgr2, &prefixes);
10036 todo_wine
10037 ok(hr == S_OK, "got 0x%08x\n", hr);
10038 if (hr == S_OK)
10039 {
10040 IDispatchEx *dispex;
10041 VARIANT arg, ret;
10042 DISPPARAMS dispparams;
10043
10044 ok(prefixes != NULL, "got %p\n", prefixes);
10045 EXPECT_REF(nsmgr, 2);
10046 EXPECT_REF(mgr2, 2);
10047 EXPECT_REF(prefixes, 1);
10048
10049 IVBMXNamespaceManager_QueryInterface(mgr2, &IID_IUnknown, (void**)&unk1);
10050 IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IUnknown, (void**)&unk2);
10051
10052 EXPECT_REF(mgr2, 3);
10053 EXPECT_REF(prefixes, 2);
10054
10055 IUnknown_Release(unk1);
10056 IUnknown_Release(unk2);
10057
10058 hr = IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IDispatchEx, (void**)&dispex);
10059 ok(hr == S_OK, "got 0x%08x\n", hr);
10060
10061 V_VT(&arg) = VT_I4;
10062 V_I4(&arg) = 0;
10063 dispparams.cArgs = 1;
10064 dispparams.cNamedArgs = 0;
10065 dispparams.rgdispidNamedArgs = NULL;
10066 dispparams.rgvarg = &arg;
10067
10068 V_VT(&ret) = VT_EMPTY;
10069 V_DISPATCH(&ret) = (void*)0x1;
10070 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10071 ok(hr == S_OK, "got 0x%08x\n", hr);
10072 ok(V_VT(&ret) == VT_BSTR, "got %d\n", V_VT(&ret));
10073 ok(V_BSTR(&ret) != NULL, "got %p\n", V_BSTR(&ret));
10074 VariantClear(&ret);
10075
10076 IDispatchEx_Release(dispex);
10077 IMXNamespacePrefixes_Release(prefixes);
10078 }
10079 IVBMXNamespaceManager_Release(mgr2);
10080
10081 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
10082 EXPECT_HR(hr, S_OK);
10083
10084 /* prefix already added */
10085 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10086 EXPECT_HR(hr, S_FALSE);
10087
10088 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), NULL);
10089 EXPECT_HR(hr, E_INVALIDARG);
10090
10091 /* "xml" and "xmlns" are not allowed here */
10092 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xml"), _bstr_("uri1"));
10093 EXPECT_HR(hr, E_INVALIDARG);
10094
10095 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xmlns"), _bstr_("uri1"));
10096 EXPECT_HR(hr, E_INVALIDARG);
10097 todo_wine {
10098 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, -1, NULL, NULL);
10099 EXPECT_HR(hr, E_FAIL);
10100 }
10101 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, NULL);
10102 EXPECT_HR(hr, E_POINTER);
10103
10104 len = -1;
10105 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, &len);
10106 EXPECT_HR(hr, S_OK);
10107 ok(len == 3, "got %d\n", len);
10108
10109 len = -1;
10110 buffW[0] = 0x1;
10111 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10112 EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
10113 ok(len == -1, "got %d\n", len);
10114 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10115
10116 len = 10;
10117 buffW[0] = 0x1;
10118 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10119 EXPECT_HR(hr, S_OK);
10120 ok(len == 3, "got %d\n", len);
10121 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10122
10123 /* getURI */
10124 hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, NULL);
10125 EXPECT_HR(hr, E_INVALIDARG);
10126
10127 len = -1;
10128 hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, &len);
10129 EXPECT_HR(hr, E_INVALIDARG);
10130 ok(len == -1, "got %d\n", len);
10131
10132 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, NULL);
10133 EXPECT_HR(hr, E_POINTER);
10134
10135 len = -1;
10136 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, &len);
10137 EXPECT_HR(hr, S_OK);
10138 /* length of "xml" uri is constant */
10139 ok(len == strlen(xmluriA), "got %d\n", len);
10140
10141 len = 100;
10142 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
10143 EXPECT_HR(hr, S_OK);
10144 ok(len == strlen(xmluriA), "got %d\n", len);
10145 ok(!lstrcmpW(buffW, _bstr_(xmluriA)), "got prefix %s\n", wine_dbgstr_w(buffW));
10146
10147 len = strlen(xmluriA)-1;
10148 buffW[0] = 0x1;
10149 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
10150 EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
10151 ok(len == strlen(xmluriA)-1, "got %d\n", len);
10152 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10153
10154 /* prefix xml1 not defined */
10155 len = -1;
10156 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, NULL, &len);
10157 EXPECT_HR(hr, S_FALSE);
10158 ok(len == 0, "got %d\n", len);
10159
10160 len = 100;
10161 buffW[0] = 0x1;
10162 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, buffW, &len);
10163 EXPECT_HR(hr, S_FALSE);
10164 ok(buffW[0] == 0, "got %x\n", buffW[0]);
10165 ok(len == 0, "got %d\n", len);
10166
10167 /* IDispatchEx tests */
10168 hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IUnknown, (void**)&unk);
10169 EXPECT_HR(hr, S_OK);
10170 test_domobj_dispex(unk);
10171 IUnknown_Release(unk);
10172
10173 IMXNamespaceManager_Release(nsmgr);
10174
10175 /* ::getPrefix() */
10176 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10177 &IID_IMXNamespaceManager, (void**)&nsmgr);
10178 EXPECT_HR(hr, S_OK);
10179
10180 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, NULL);
10181 EXPECT_HR(hr, E_INVALIDARG);
10182
10183 len = -1;
10184 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, &len);
10185 EXPECT_HR(hr, E_INVALIDARG);
10186 ok(len == -1, "got %d\n", len);
10187
10188 len = 100;
10189 buffW[0] = 0x1;
10190 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
10191 EXPECT_HR(hr, E_FAIL);
10192 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10193 ok(len == 100, "got %d\n", len);
10194
10195 len = 0;
10196 buffW[0] = 0x1;
10197 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
10198 EXPECT_HR(hr, E_FAIL);
10199 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10200 ok(len == 0, "got %d\n", len);
10201
10202 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10203 EXPECT_HR(hr, S_OK);
10204
10205 len = 100;
10206 buffW[0] = 0x1;
10207 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10208 EXPECT_HR(hr, S_OK);
10209 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10210 ok(len == 3, "got %d\n", len);
10211
10212 len = 100;
10213 buffW[0] = 0x1;
10214 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, buffW, &len);
10215 EXPECT_HR(hr, S_OK);
10216 ok(!lstrcmpW(buffW, _bstr_("xml")), "got %s\n", wine_dbgstr_w(buffW));
10217 ok(len == 3, "got %d\n", len);
10218
10219 /* with null buffer it's possible to get required length */
10220 len = 100;
10221 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
10222 EXPECT_HR(hr, S_OK);
10223 ok(len == 3, "got %d\n", len);
10224
10225 len = 0;
10226 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
10227 EXPECT_HR(hr, S_OK);
10228 ok(len == 3, "got %d\n", len);
10229
10230 len = 100;
10231 buffW[0] = 0x1;
10232 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 1, buffW, &len);
10233 EXPECT_HR(hr, E_FAIL);
10234 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10235 ok(len == 100, "got %d\n", len);
10236
10237 len = 100;
10238 buffW[0] = 0x1;
10239 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 2, buffW, &len);
10240 EXPECT_HR(hr, E_FAIL);
10241 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10242 ok(len == 100, "got %d\n", len);
10243
10244 len = 100;
10245 buffW[0] = 0x1;
10246 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 0, buffW, &len);
10247 EXPECT_HR(hr, E_INVALIDARG);
10248 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10249 ok(len == 100, "got %d\n", len);
10250
10251 len = 100;
10252 buffW[0] = 0x1;
10253 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10254 EXPECT_HR(hr, E_INVALIDARG);
10255 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10256 ok(len == 100, "got %d\n", len);
10257
10258 len = 100;
10259 buffW[0] = 0x1;
10260 hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, buffW, &len);
10261 EXPECT_HR(hr, E_INVALIDARG);
10262 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10263 ok(len == 100, "got %d\n", len);
10264
10265 len = 100;
10266 buffW[0] = 0x1;
10267 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 1, buffW, &len);
10268 EXPECT_HR(hr, E_FAIL);
10269 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10270 ok(len == 100, "got %d\n", len);
10271
10272 len = 100;
10273 buffW[0] = 0x1;
10274 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10275 EXPECT_HR(hr, E_INVALIDARG);
10276 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10277 ok(len == 100, "got %d\n", len);
10278
10279 /* declare another one, indices are shifted */
10280 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10281 EXPECT_HR(hr, S_OK);
10282
10283 len = 100;
10284 buffW[0] = 0x1;
10285 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10286 EXPECT_HR(hr, S_OK);
10287 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10288 ok(len == 3, "got %d\n", len);
10289
10290 len = 100;
10291 buffW[0] = 0x1;
10292 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10293 EXPECT_HR(hr, S_OK);
10294 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10295 ok(len == 3, "got %d\n", len);
10296
10297 len = 100;
10298 buffW[0] = 0x1;
10299 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 1, buffW, &len);
10300 EXPECT_HR(hr, E_FAIL);
10301 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10302 ok(len == 100, "got %d\n", len);
10303
10304 len = 100;
10305 buffW[0] = 0x1;
10306 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10307 EXPECT_HR(hr, E_INVALIDARG);
10308 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10309 ok(len == 100, "got %d\n", len);
10310
10311 IMXNamespaceManager_Release(nsmgr);
10312
10313 /* push/pop tests */
10314 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10315 &IID_IMXNamespaceManager, (void**)&nsmgr);
10316 EXPECT_HR(hr, S_OK);
10317
10318 /* pop with empty stack */
10319 hr = IMXNamespaceManager_popContext(nsmgr);
10320 EXPECT_HR(hr, E_FAIL);
10321
10322 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10323 EXPECT_HR(hr, S_OK);
10324
10325 len = 100;
10326 buffW[0] = 0x1;
10327 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10328 EXPECT_HR(hr, S_OK);
10329 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10330 ok(len == 3, "got %d\n", len);
10331
10332 hr = IMXNamespaceManager_pushContext(nsmgr);
10333 EXPECT_HR(hr, S_OK);
10334
10335 len = 100;
10336 buffW[0] = 0x1;
10337 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10338 EXPECT_HR(hr, S_OK);
10339 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10340 ok(len == 3, "got %d\n", len);
10341
10342 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10343 EXPECT_HR(hr, S_OK);
10344
10345 len = 100;
10346 buffW[0] = 0x1;
10347 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10348 EXPECT_HR(hr, S_OK);
10349 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10350 ok(len == 3, "got %d\n", len);
10351
10352 hr = IMXNamespaceManager_pushContext(nsmgr);
10353 EXPECT_HR(hr, S_OK);
10354 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns3"), _bstr_("ns3 uri"));
10355 EXPECT_HR(hr, S_OK);
10356
10357 len = 100;
10358 buffW[0] = 0x1;
10359 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10360 EXPECT_HR(hr, S_OK);
10361 ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10362 ok(len == 3, "got %d\n", len);
10363
10364 len = 100;
10365 buffW[0] = 0x1;
10366 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10367 EXPECT_HR(hr, S_OK);
10368 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10369 ok(len == 3, "got %d\n", len);
10370
10371 hr = IMXNamespaceManager_popContext(nsmgr);
10372 EXPECT_HR(hr, S_OK);
10373
10374 hr = IMXNamespaceManager_popContext(nsmgr);
10375 EXPECT_HR(hr, S_OK);
10376
10377 len = 100;
10378 buffW[0] = 0x1;
10379 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10380 EXPECT_HR(hr, E_FAIL);
10381 ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10382 ok(len == 100, "got %d\n", len);
10383
10384 len = 100;
10385 buffW[0] = 0x1;
10386 hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10387 EXPECT_HR(hr, S_OK);
10388 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10389 ok(len == 3, "got %d\n", len);
10390
10391 IMXNamespaceManager_Release(nsmgr);
10392
10393 free_bstrs();
10394 }
10395
10396 static void test_mxnamespacemanager_override(void)
10397 {
10398 IMXNamespaceManager *nsmgr;
10399 WCHAR buffW[250];
10400 VARIANT_BOOL b;
10401 HRESULT hr;
10402 INT len;
10403
10404 hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10405 &IID_IMXNamespaceManager, (void**)&nsmgr);
10406 EXPECT_HR(hr, S_OK);
10407
10408 len = sizeof(buffW)/sizeof(WCHAR);
10409 buffW[0] = 0;
10410 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10411 EXPECT_HR(hr, S_OK);
10412 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10413
10414 len = sizeof(buffW)/sizeof(WCHAR);
10415 buffW[0] = 0;
10416 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10417 EXPECT_HR(hr, E_FAIL);
10418
10419 hr = IMXNamespaceManager_getAllowOverride(nsmgr, NULL);
10420 EXPECT_HR(hr, E_POINTER);
10421
10422 b = VARIANT_FALSE;
10423 hr = IMXNamespaceManager_getAllowOverride(nsmgr, &b);
10424 EXPECT_HR(hr, S_OK);
10425 ok(b == VARIANT_TRUE, "got %d\n", b);
10426
10427 hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_FALSE);
10428 EXPECT_HR(hr, S_OK);
10429
10430 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10431 EXPECT_HR(hr, S_OK);
10432
10433 len = sizeof(buffW)/sizeof(WCHAR);
10434 buffW[0] = 0;
10435 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10436 EXPECT_HR(hr, S_OK);
10437 ok(!lstrcmpW(buffW, _bstr_("ns0 uri")), "got uri %s\n", wine_dbgstr_w(buffW));
10438
10439 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), _bstr_("ns0 uri"));
10440 EXPECT_HR(hr, S_OK);
10441
10442 len = sizeof(buffW)/sizeof(WCHAR);
10443 buffW[0] = 0;
10444 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10445 EXPECT_HR(hr, S_OK);
10446 ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10447
10448 len = sizeof(buffW)/sizeof(WCHAR);
10449 buffW[0] = 0;
10450 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10451 EXPECT_HR(hr, S_OK);
10452 ok(!lstrcmpW(buffW, _bstr_("ns0")), "got prefix %s\n", wine_dbgstr_w(buffW));
10453
10454 len = sizeof(buffW)/sizeof(WCHAR);
10455 buffW[0] = 0;
10456 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 2, buffW, &len);
10457 EXPECT_HR(hr, S_OK);
10458 ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10459
10460 /* new prefix placed at index 1 always */
10461 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10462 EXPECT_HR(hr, S_OK);
10463
10464 len = sizeof(buffW)/sizeof(WCHAR);
10465 buffW[0] = 0;
10466 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10467 EXPECT_HR(hr, S_OK);
10468 ok(!lstrcmpW(buffW, _bstr_("ns1")), "got prefix %s\n", wine_dbgstr_w(buffW));
10469
10470 hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_(""), NULL);
10471 todo_wine EXPECT_HR(hr, E_FAIL);
10472
10473 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
10474 EXPECT_HR(hr, E_FAIL);
10475
10476 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10477 EXPECT_HR(hr, E_FAIL);
10478
10479 hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_TRUE);
10480 EXPECT_HR(hr, S_OK);
10481
10482 hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri override"));
10483 EXPECT_HR(hr, S_FALSE);
10484
10485 len = sizeof(buffW)/sizeof(WCHAR);
10486 buffW[0] = 0;
10487 hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10488 EXPECT_HR(hr, S_OK);
10489 ok(!lstrcmpW(buffW, _bstr_("ns0 uri override")), "got uri %s\n", wine_dbgstr_w(buffW));
10490
10491 len = sizeof(buffW)/sizeof(WCHAR);
10492 buffW[0] = 0;
10493 hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 3, buffW, &len);
10494 EXPECT_HR(hr, S_OK);
10495 ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10496
10497 IMXNamespaceManager_Release(nsmgr);
10498
10499 free_bstrs();
10500 }
10501
10502 static const DOMNodeType nodetypes_test[] =
10503 {
10504 NODE_ELEMENT,
10505 NODE_ATTRIBUTE,
10506 NODE_TEXT,
10507 NODE_CDATA_SECTION,
10508 NODE_ENTITY_REFERENCE,
10509 NODE_PROCESSING_INSTRUCTION,
10510 NODE_COMMENT,
10511 NODE_DOCUMENT_FRAGMENT,
10512 NODE_INVALID
10513 };
10514
10515 static void test_dispex(void)
10516 {
10517 const DOMNodeType *type = nodetypes_test;
10518 IXMLDOMImplementation *impl;
10519 IXMLDOMNodeList *node_list;
10520 IXMLDOMParseError *error;
10521 IXMLDOMNamedNodeMap *map;
10522 IXSLProcessor *processor;
10523 IXSLTemplate *template;
10524 IXMLDOMDocument *doc;
10525 IXMLHTTPRequest *req;
10526 IXMLDOMElement *elem;
10527 IDispatchEx *dispex;
10528 DISPPARAMS dispparams;
10529 IXMLDOMNode *node;
10530 VARIANT arg, ret;
10531 VARIANT_BOOL b;
10532 IUnknown *unk;
10533 HRESULT hr;
10534 DISPID did;
10535
10536 doc = create_document(&IID_IXMLDOMDocument);
10537
10538 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
10539 ok(hr == S_OK, "got 0x%08x\n", hr);
10540 test_domobj_dispex(unk);
10541 IUnknown_Release(unk);
10542
10543 for(; *type != NODE_INVALID; type++)
10544 {
10545 IXMLDOMNode *node;
10546 VARIANT v;
10547
10548 V_VT(&v) = VT_I2;
10549 V_I2(&v) = *type;
10550
10551 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
10552 ok(hr == S_OK, "failed to create node type %d\n", *type);
10553
10554 IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
10555
10556 test_domobj_dispex(unk);
10557 IUnknown_Release(unk);
10558 IXMLDOMNode_Release(node);
10559 }
10560
10561 /* IXMLDOMNodeList */
10562 hr = IXMLDOMDocument_getElementsByTagName(doc, _bstr_("*"), &node_list);
10563 EXPECT_HR(hr, S_OK);
10564 IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10565 test_domobj_dispex(unk);
10566 IUnknown_Release(unk);
10567 IXMLDOMNodeList_Release(node_list);
10568
10569 /* IXMLDOMNodeList for children list */
10570 hr = IXMLDOMDocument_get_childNodes(doc, &node_list);
10571 EXPECT_HR(hr, S_OK);
10572 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10573 ok(hr == S_OK, "got 0x%08x\n", hr);
10574 test_domobj_dispex(unk);
10575 IUnknown_Release(unk);
10576
10577 /* collection dispex test, empty collection */
10578 hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatchEx, (void**)&dispex);
10579 EXPECT_HR(hr, S_OK);
10580 did = 0;
10581 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10582 EXPECT_HR(hr, S_OK);
10583 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10584 hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10585 EXPECT_HR(hr, S_OK);
10586 ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10587 IDispatchEx_Release(dispex);
10588
10589 did = -1;
10590 hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10591 ok(hr == S_OK, "got 0x%08x\n", hr);
10592 ok(did == DISPID_VALUE, "got %d\n", did);
10593
10594 V_VT(&arg) = VT_I4;
10595 V_I4(&arg) = 0;
10596 dispparams.cArgs = 0;
10597 dispparams.cNamedArgs = 0;
10598 dispparams.rgdispidNamedArgs = NULL;
10599 dispparams.rgvarg = &arg;
10600
10601 V_VT(&ret) = VT_EMPTY;
10602 V_DISPATCH(&ret) = (void*)0x1;
10603 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10604 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10605 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10606 todo_wine
10607 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10608
10609 V_VT(&arg) = VT_I4;
10610 V_I4(&arg) = 0;
10611 dispparams.cArgs = 2;
10612 dispparams.cNamedArgs = 0;
10613 dispparams.rgdispidNamedArgs = NULL;
10614 dispparams.rgvarg = &arg;
10615
10616 V_VT(&ret) = VT_EMPTY;
10617 V_DISPATCH(&ret) = (void*)0x1;
10618 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10619 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10620 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10621 todo_wine
10622 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10623
10624 V_VT(&arg) = VT_I4;
10625 V_I4(&arg) = 0;
10626 dispparams.cArgs = 1;
10627 dispparams.cNamedArgs = 0;
10628 dispparams.rgdispidNamedArgs = NULL;
10629 dispparams.rgvarg = &arg;
10630
10631 V_VT(&ret) = VT_EMPTY;
10632 V_DISPATCH(&ret) = (void*)0x1;
10633 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10634 ok(hr == S_OK, "got 0x%08x\n", hr);
10635 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10636 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10637
10638 V_VT(&ret) = VT_EMPTY;
10639 V_DISPATCH(&ret) = (void*)0x1;
10640 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10641 ok(hr == S_OK, "got 0x%08x\n", hr);
10642 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10643 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10644
10645 V_VT(&ret) = VT_EMPTY;
10646 V_DISPATCH(&ret) = (void*)0x1;
10647 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10648 ok(hr == S_OK, "got 0x%08x\n", hr);
10649 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10650 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10651
10652 dispparams.cArgs = 0;
10653 dispparams.cNamedArgs = 0;
10654 dispparams.rgdispidNamedArgs = NULL;
10655 dispparams.rgvarg = NULL;
10656
10657 V_VT(&ret) = VT_EMPTY;
10658 V_I4(&ret) = 1;
10659 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10660 ok(hr == S_OK, "got 0x%08x\n", hr);
10661 ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10662 ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10663
10664 dispparams.cArgs = 0;
10665 dispparams.cNamedArgs = 0;
10666 dispparams.rgdispidNamedArgs = NULL;
10667 dispparams.rgvarg = NULL;
10668
10669 V_VT(&ret) = VT_EMPTY;
10670 V_I4(&ret) = 1;
10671 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10672 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10673 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10674 todo_wine
10675 ok(broken(V_I4(&ret) == 1) || (V_I4(&ret) == 0), "got %d\n", V_I4(&ret));
10676
10677 IXMLDOMNodeList_Release(node_list);
10678
10679 /* IXMLDOMParseError */
10680 hr = IXMLDOMDocument_get_parseError(doc, &error);
10681 EXPECT_HR(hr, S_OK);
10682 IXMLDOMParseError_QueryInterface(error, &IID_IUnknown, (void**)&unk);
10683 test_domobj_dispex(unk);
10684
10685 hr = IXMLDOMParseError_QueryInterface(error, &IID_IDispatchEx, (void**)&dispex);
10686 ok(hr == S_OK, "got 0x%08x\n", hr);
10687
10688 V_VT(&arg) = VT_I4;
10689 V_I4(&arg) = 0;
10690 dispparams.cArgs = 1;
10691 dispparams.cNamedArgs = 0;
10692 dispparams.rgdispidNamedArgs = NULL;
10693 dispparams.rgvarg = &arg;
10694
10695 V_VT(&ret) = VT_EMPTY;
10696 V_DISPATCH(&ret) = (void*)0x1;
10697 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10698 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10699 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10700 todo_wine
10701 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10702
10703 IDispatchEx_Release(dispex);
10704
10705 IUnknown_Release(unk);
10706 IXMLDOMParseError_Release(error);
10707
10708 /* IXMLDOMNamedNodeMap */
10709 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
10710 EXPECT_HR(hr, S_OK);
10711
10712 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/a"), &node_list);
10713 EXPECT_HR(hr, S_OK);
10714 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10715 EXPECT_HR(hr, S_OK);
10716 IXMLDOMNodeList_Release(node_list);
10717
10718 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10719 EXPECT_HR(hr, S_OK);
10720 IXMLDOMNode_Release(node);
10721 hr = IXMLDOMElement_get_attributes(elem, &map);
10722 EXPECT_HR(hr, S_OK);
10723 IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk);
10724 test_domobj_dispex(unk);
10725 IUnknown_Release(unk);
10726 /* collection dispex test */
10727 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10728 EXPECT_HR(hr, S_OK);
10729 did = 0;
10730 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10731 EXPECT_HR(hr, S_OK);
10732 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10733 IDispatchEx_Release(dispex);
10734 IXMLDOMNamedNodeMap_Release(map);
10735
10736 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/b"), &node_list);
10737 EXPECT_HR(hr, S_OK);
10738 hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10739 EXPECT_HR(hr, S_OK);
10740 IXMLDOMNodeList_Release(node_list);
10741 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10742 EXPECT_HR(hr, S_OK);
10743 IXMLDOMNode_Release(node);
10744 hr = IXMLDOMElement_get_attributes(elem, &map);
10745 EXPECT_HR(hr, S_OK);
10746 /* collection dispex test, empty collection */
10747 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10748 EXPECT_HR(hr, S_OK);
10749 did = 0;
10750 hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10751 EXPECT_HR(hr, S_OK);
10752 ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10753 hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10754 EXPECT_HR(hr, S_OK);
10755 ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10756 IXMLDOMNamedNodeMap_Release(map);
10757
10758 did = -1;
10759 hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10760 ok(hr == S_OK, "got 0x%08x\n", hr);
10761 ok(did == DISPID_VALUE, "got %d\n", did);
10762
10763 V_VT(&arg) = VT_I4;
10764 V_I4(&arg) = 0;
10765 dispparams.cArgs = 0;
10766 dispparams.cNamedArgs = 0;
10767 dispparams.rgdispidNamedArgs = NULL;
10768 dispparams.rgvarg = &arg;
10769
10770 V_VT(&ret) = VT_EMPTY;
10771 V_DISPATCH(&ret) = (void*)0x1;
10772 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10773 todo_wine {
10774 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10775 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10776 }
10777 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10778
10779 V_VT(&arg) = VT_I4;
10780 V_I4(&arg) = 0;
10781 dispparams.cArgs = 2;
10782 dispparams.cNamedArgs = 0;
10783 dispparams.rgdispidNamedArgs = NULL;
10784 dispparams.rgvarg = &arg;
10785
10786 V_VT(&ret) = VT_EMPTY;
10787 V_DISPATCH(&ret) = (void*)0x1;
10788 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10789 todo_wine {
10790 ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10791 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10792 }
10793 ok(broken(V_DISPATCH(&ret) == (void*)0x1) || (V_DISPATCH(&ret) == NULL), "got %p\n", V_DISPATCH(&ret));
10794
10795 V_VT(&arg) = VT_I4;
10796 V_I4(&arg) = 0;
10797 dispparams.cArgs = 1;
10798 dispparams.cNamedArgs = 0;
10799 dispparams.rgdispidNamedArgs = NULL;
10800 dispparams.rgvarg = &arg;
10801
10802 V_VT(&ret) = VT_EMPTY;
10803 V_DISPATCH(&ret) = (void*)0x1;
10804 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10805 todo_wine
10806 ok(hr == S_OK, "got 0x%08x\n", hr);
10807 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10808 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10809
10810 V_VT(&ret) = VT_EMPTY;
10811 V_DISPATCH(&ret) = (void*)0x1;
10812 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10813 ok(hr == S_OK, "got 0x%08x\n", hr);
10814 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10815 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10816
10817 V_VT(&ret) = VT_EMPTY;
10818 V_DISPATCH(&ret) = (void*)0x1;
10819 hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10820 ok(hr == S_OK, "got 0x%08x\n", hr);
10821 ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10822 ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10823
10824 dispparams.cArgs = 0;
10825 dispparams.cNamedArgs = 0;
10826 dispparams.rgdispidNamedArgs = NULL;
10827 dispparams.rgvarg = NULL;
10828
10829 V_VT(&ret) = VT_EMPTY;
10830 V_I4(&ret) = 1;
10831 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10832 ok(hr == S_OK, "got 0x%08x\n", hr);
10833 ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10834 ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10835
10836 dispparams.cArgs = 0;
10837 dispparams.cNamedArgs = 0;
10838 dispparams.rgdispidNamedArgs = NULL;
10839 dispparams.rgvarg = NULL;
10840
10841 V_VT(&ret) = VT_EMPTY;
10842 V_I4(&ret) = 1;
10843 hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10844 ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10845 todo_wine
10846 ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10847 ok(broken(V_I4(&ret) == 1) || (V_I4(&ret) == 0), "got %d\n", V_I4(&ret));
10848
10849 IDispatchEx_Release(dispex);
10850 IXMLDOMElement_Release(elem);
10851
10852 /* IXMLDOMImplementation */
10853 hr = IXMLDOMDocument_get_implementation(doc, &impl);
10854 EXPECT_HR(hr, S_OK);
10855
10856 hr = IXMLDOMImplementation_QueryInterface(impl, &IID_IDispatchEx, (void**)&dispex);
10857 EXPECT_HR(hr, S_OK);
10858 IDispatchEx_Release(dispex);
10859 IXMLDOMImplementation_Release(impl);
10860
10861 IXMLDOMDocument_Release(doc);
10862
10863 /* IXMLHTTPRequest */
10864 hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
10865 &IID_IXMLHttpRequest, (void**)&req);
10866 if (hr == S_OK)
10867 {
10868 hr = IXMLHTTPRequest_QueryInterface(req, &IID_IDispatchEx, (void**)&dispex);
10869 EXPECT_HR(hr, E_NOINTERFACE);
10870 IXMLHTTPRequest_Release(req);
10871 }
10872
10873 /* IXSLTemplate */
10874 template = create_xsltemplate(&IID_IXSLTemplate);
10875 hr = IXSLTemplate_QueryInterface(template, &IID_IDispatchEx, (void**)&dispex);
10876 EXPECT_HR(hr, S_OK);
10877 hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10878 EXPECT_HR(hr, S_OK);
10879 test_domobj_dispex(unk);
10880 IUnknown_Release(unk);
10881 IDispatchEx_Release(dispex);
10882
10883 /* IXSLProcessor */
10884 hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
10885 EXPECT_HR(hr, S_OK);
10886 b = VARIANT_FALSE;
10887 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformSSXML), &b);
10888 EXPECT_HR(hr, S_OK);
10889 ok(b == VARIANT_TRUE, "got %d\n", b);
10890
10891 hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
10892 EXPECT_HR(hr, S_OK);
10893 IXMLDOMDocument_Release(doc);
10894
10895 hr = IXSLTemplate_createProcessor(template, &processor);
10896 EXPECT_HR(hr, S_OK);
10897 hr = IXSLProcessor_QueryInterface(processor, &IID_IDispatchEx, (void**)&dispex);
10898 EXPECT_HR(hr, S_OK);
10899 hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10900 EXPECT_HR(hr, S_OK);
10901 test_domobj_dispex(unk);
10902 IUnknown_Release(unk);
10903 IDispatchEx_Release(dispex);
10904
10905 IXSLProcessor_Release(processor);
10906 IXSLTemplate_Release(template);
10907
10908 if (is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument))
10909 {
10910 doc = create_document_version(60, &IID_IXMLDOMDocument);
10911 test_domobj_dispex((IUnknown*)doc);
10912 IXMLDOMDocument_Release(doc);
10913 }
10914
10915 free_bstrs();
10916 }
10917
10918 static void test_parseerror(void)
10919 {
10920 IXMLDOMParseError2 *error2;
10921 IXMLDOMParseError *error;
10922 IXMLDOMDocument *doc;
10923 HRESULT hr;
10924
10925 doc = create_document(&IID_IXMLDOMDocument);
10926
10927 hr = IXMLDOMDocument_get_parseError(doc, &error);
10928 EXPECT_HR(hr, S_OK);
10929
10930 hr = IXMLDOMParseError_get_line(error, NULL);
10931 EXPECT_HR(hr, E_INVALIDARG);
10932
10933 hr = IXMLDOMParseError_get_srcText(error, NULL);
10934 EXPECT_HR(hr, E_INVALIDARG);
10935
10936 hr = IXMLDOMParseError_get_linepos(error, NULL);
10937 EXPECT_HR(hr, E_INVALIDARG);
10938
10939 IXMLDOMParseError_Release(error);
10940 IXMLDOMDocument_Release(doc);
10941
10942 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument)) return;
10943 doc = create_document_version(60, &IID_IXMLDOMDocument);
10944
10945 hr = IXMLDOMDocument_get_parseError(doc, &error);
10946 EXPECT_HR(hr, S_OK);
10947 hr = IXMLDOMParseError_QueryInterface(error, &IID_IXMLDOMParseError2, (void**)&error2);
10948 EXPECT_HR(hr, S_OK);
10949 IXMLDOMParseError2_Release(error2);
10950 IXMLDOMParseError_Release(error);
10951 IXMLDOMDocument_Release(doc);
10952 }
10953
10954 static void test_getAttributeNode(void)
10955 {
10956 IXMLDOMAttribute *attr;
10957 IXMLDOMDocument *doc;
10958 IXMLDOMElement *elem;
10959 VARIANT_BOOL v;
10960 HRESULT hr;
10961 BSTR str;
10962
10963 doc = create_document(&IID_IXMLDOMDocument);
10964
10965 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
10966 EXPECT_HR(hr, S_OK);
10967
10968 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10969 EXPECT_HR(hr, S_OK);
10970
10971 str = SysAllocString(nonexistent_fileW);
10972 hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10973 EXPECT_HR(hr, E_FAIL);
10974
10975 attr = (IXMLDOMAttribute*)0xdeadbeef;
10976 hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10977 EXPECT_HR(hr, E_FAIL);
10978 ok(attr == NULL, "got %p\n", attr);
10979 SysFreeString(str);
10980
10981 str = SysAllocString(nonexistent_attrW);
10982 hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10983 EXPECT_HR(hr, S_FALSE);
10984
10985 attr = (IXMLDOMAttribute*)0xdeadbeef;
10986 hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10987 EXPECT_HR(hr, S_FALSE);
10988 ok(attr == NULL, "got %p\n", attr);
10989 SysFreeString(str);
10990
10991 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("foo:b"), &attr);
10992 EXPECT_HR(hr, S_OK);
10993 IXMLDOMAttribute_Release(attr);
10994
10995 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("b"), &attr);
10996 EXPECT_HR(hr, S_FALSE);
10997
10998 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("a"), &attr);
10999 EXPECT_HR(hr, S_OK);
11000 IXMLDOMAttribute_Release(attr);
11001
11002 IXMLDOMElement_Release(elem);
11003 IXMLDOMDocument_Release(doc);
11004 free_bstrs();
11005 }
11006
11007 static void test_getAttribute(void)
11008 {
11009 IXMLDOMDocument *doc;
11010 IXMLDOMElement *elem;
11011 VARIANT_BOOL v;
11012 VARIANT var;
11013 HRESULT hr;
11014
11015 doc = create_document(&IID_IXMLDOMDocument);
11016
11017 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
11018 EXPECT_HR(hr, S_OK);
11019
11020 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11021 EXPECT_HR(hr, S_OK);
11022
11023 VariantInit(&var);
11024 hr = IXMLDOMElement_getAttribute( elem, _bstr_("xmlns:foo"), &var );
11025 EXPECT_HR(hr, S_OK);
11026 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
11027 ok( !lstrcmpW(V_BSTR(&var), _bstr_("urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
11028 VariantClear(&var);
11029
11030 hr = IXMLDOMElement_getAttribute( elem, _bstr_("a"), &var );
11031 EXPECT_HR(hr, S_OK);
11032 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
11033 ok( !lstrcmpW(V_BSTR(&var), _bstr_("attr a")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
11034 VariantClear(&var);
11035
11036 hr = IXMLDOMElement_getAttribute( elem, _bstr_("foo:b"), &var );
11037 EXPECT_HR(hr, S_OK);
11038 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
11039 ok( !lstrcmpW(V_BSTR(&var), _bstr_("attr b")), "wrong attr value: %s\n", wine_dbgstr_w(V_BSTR(&var)));
11040 VariantClear(&var);
11041
11042 hr = IXMLDOMElement_getAttribute( elem, _bstr_("b"), &var );
11043 EXPECT_HR(hr, S_FALSE);
11044 ok( V_VT(&var) == VT_NULL, "vt = %x\n", V_VT(&var));
11045 VariantClear(&var);
11046
11047 hr = IXMLDOMElement_getAttribute( elem, _bstr_("non-existent"), &var );
11048 EXPECT_HR(hr, S_FALSE);
11049 ok( V_VT(&var) == VT_NULL, "vt = %x\n", V_VT(&var));
11050 VariantClear(&var);
11051
11052 IXMLDOMElement_Release(elem);
11053 IXMLDOMDocument_Release(doc);
11054 free_bstrs();
11055 }
11056
11057 typedef struct {
11058 DOMNodeType type;
11059 const char *name;
11060 REFIID iids[3];
11061 } supporterror_t;
11062
11063 static const supporterror_t supporterror_test[] = {
11064 { NODE_ELEMENT, "element", { &IID_IXMLDOMNode, &IID_IXMLDOMElement } },
11065 { NODE_ATTRIBUTE, "attribute", { &IID_IXMLDOMNode, &IID_IXMLDOMAttribute } },
11066 { NODE_CDATA_SECTION, "cdata", { &IID_IXMLDOMNode, &IID_IXMLDOMCDATASection } },
11067 { NODE_ENTITY_REFERENCE, "entityref", { &IID_IXMLDOMNode, &IID_IXMLDOMEntityReference } },
11068 { NODE_PROCESSING_INSTRUCTION, "pi", { &IID_IXMLDOMNode, &IID_IXMLDOMProcessingInstruction } },
11069 { NODE_COMMENT, "comment", { &IID_IXMLDOMNode, &IID_IXMLDOMComment } },
11070 { NODE_DOCUMENT_FRAGMENT, "fragment", { &IID_IXMLDOMNode, &IID_IXMLDOMDocumentFragment } },
11071 { NODE_INVALID }
11072 };
11073
11074 static void test_supporterrorinfo(void)
11075 {
11076 static REFIID iids[5] = { &IID_IXMLDOMNode, &IID_IXMLDOMDocument,
11077 &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3 };
11078 const supporterror_t *ptr = supporterror_test;
11079 ISupportErrorInfo *errorinfo, *info2;
11080 IXMLDOMSchemaCollection *schemacache;
11081 IXMLDOMNamedNodeMap *map, *map2;
11082 IXMLDOMDocument *doc;
11083 IXMLDOMElement *elem;
11084 VARIANT_BOOL b;
11085 IUnknown *unk;
11086 REFIID *iid;
11087 void *dummy;
11088 HRESULT hr;
11089
11090 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument3)) return;
11091 doc = create_document_version(60, &IID_IXMLDOMDocument3);
11092
11093 EXPECT_REF(doc, 1);
11094 hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&errorinfo);
11095 EXPECT_HR(hr, S_OK);
11096 EXPECT_REF(doc, 1);
11097 ISupportErrorInfo_AddRef(errorinfo);
11098 EXPECT_REF(errorinfo, 2);
11099 EXPECT_REF(doc, 1);
11100 ISupportErrorInfo_Release(errorinfo);
11101
11102 hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&info2);
11103 EXPECT_HR(hr, S_OK);
11104 ok(errorinfo != info2, "got %p, %p\n", info2, errorinfo);
11105
11106 /* error interface can't be queried back for DOM interface */
11107 hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMDocument, &dummy);
11108 EXPECT_HR(hr, E_NOINTERFACE);
11109 hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMNode, &dummy);
11110 EXPECT_HR(hr, E_NOINTERFACE);
11111
11112 ISupportErrorInfo_Release(info2);
11113
11114 iid = iids;
11115 while (*iid)
11116 {
11117 hr = IXMLDOMDocument_QueryInterface(doc, *iid, (void**)&unk);
11118 EXPECT_HR(hr, S_OK);
11119 if (hr == S_OK)
11120 {
11121 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
11122 ok(hr == S_OK, "got 0x%08x for %s\n", hr, wine_dbgstr_guid(*iid));
11123 IUnknown_Release(unk);
11124 }
11125
11126 iid++;
11127 }
11128
11129 ISupportErrorInfo_Release(errorinfo);
11130
11131 while (ptr->type != NODE_INVALID)
11132 {
11133 IXMLDOMNode *node;
11134 VARIANT type;
11135
11136 V_VT(&type) = VT_I1;
11137 V_I1(&type) = ptr->type;
11138
11139 hr = IXMLDOMDocument_createNode(doc, type, _bstr_(ptr->name), NULL, &node);
11140 ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
11141
11142 EXPECT_REF(node, 1);
11143 hr = IXMLDOMNode_QueryInterface(node, &IID_ISupportErrorInfo, (void**)&errorinfo);
11144 ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
11145 EXPECT_REF(node, 1);
11146
11147 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNode, &dummy);
11148 ok(hr == E_NOINTERFACE, "%d: got 0x%08x\n", ptr->type, hr);
11149
11150 iid = ptr->iids;
11151
11152 while (*iid)
11153 {
11154 hr = IXMLDOMNode_QueryInterface(node, *iid, (void**)&unk);
11155 if (hr == S_OK)
11156 {
11157 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
11158 ok(hr == S_OK, "%d: got 0x%08x for %s\n", ptr->type, hr, wine_dbgstr_guid(*iid));
11159 IUnknown_Release(unk);
11160 }
11161
11162 iid++;
11163 }
11164
11165 ISupportErrorInfo_Release(errorinfo);
11166 IXMLDOMNode_Release(node);
11167 ptr++;
11168 }
11169
11170 /* IXMLDOMNamedNodeMap */
11171 b = VARIANT_FALSE;
11172 hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
11173 EXPECT_HR(hr, S_OK);
11174 ok(b == VARIANT_TRUE, "got %d\n", b);
11175
11176 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11177 EXPECT_HR(hr, S_OK);
11178
11179 hr = IXMLDOMElement_get_attributes(elem, &map);
11180 EXPECT_HR(hr, S_OK);
11181
11182 EXPECT_REF(map, 1);
11183 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_ISupportErrorInfo, (void**)&errorinfo);
11184 EXPECT_HR(hr, S_OK);
11185 EXPECT_REF(map, 2);
11186
11187 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMNamedNodeMap);
11188 EXPECT_HR(hr, S_OK);
11189
11190 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNamedNodeMap, (void**)&map2);
11191 EXPECT_HR(hr, S_OK);
11192 ok(map == map2, "got %p\n", map2);
11193 IXMLDOMNamedNodeMap_Release(map2);
11194
11195 EXPECT_REF(errorinfo, 2);
11196 hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IUnknown, (void**)&unk);
11197 EXPECT_HR(hr, S_OK);
11198 EXPECT_REF(errorinfo, 3);
11199 EXPECT_REF(map, 3);
11200 IUnknown_Release(unk);
11201
11202 ISupportErrorInfo_Release(errorinfo);
11203 IXMLDOMNamedNodeMap_Release(map);
11204 IXMLDOMElement_Release(elem);
11205
11206 IXMLDOMDocument_Release(doc);
11207
11208 /* IXMLDOMSchemaCollection */
11209 hr = CoCreateInstance(&CLSID_XMLSchemaCache, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMSchemaCollection, (void**)&schemacache);
11210 ok(hr == S_OK, "failed to create schema collection, 0x%08x\n", hr);
11211
11212 hr = IXMLDOMSchemaCollection_QueryInterface(schemacache, &IID_ISupportErrorInfo, (void**)&errorinfo);
11213 ok(hr == S_OK, "got 0x%08x\n", hr);
11214
11215 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMSchemaCollection);
11216 ok(hr == S_OK, "got 0x%08x\n", hr);
11217
11218 ISupportErrorInfo_Release(errorinfo);
11219 IXMLDOMSchemaCollection_Release(schemacache);
11220
11221 free_bstrs();
11222 }
11223
11224 typedef struct {
11225 DOMNodeType type;
11226 const char *name;
11227 const char *put_content;
11228 HRESULT put_hr;
11229 VARTYPE get_vt;
11230 HRESULT get_hr;
11231 } node_value_t;
11232
11233 static const node_value_t nodevalue_test[] = {
11234 { NODE_ELEMENT, "element", "", E_FAIL, VT_NULL, S_FALSE },
11235 { NODE_ATTRIBUTE, "attr", "value", S_OK, VT_BSTR, S_OK },
11236 { NODE_TEXT, "text", "textdata", S_OK, VT_BSTR, S_OK },
11237 { NODE_CDATA_SECTION , "cdata", "cdata data", S_OK, VT_BSTR, S_OK },
11238 { NODE_ENTITY_REFERENCE, "entityref", "ref", E_FAIL, VT_NULL, S_FALSE },
11239 { NODE_PROCESSING_INSTRUCTION, "pi", "instr", S_OK, VT_BSTR, S_OK },
11240 { NODE_COMMENT, "comment", "comment data", S_OK, VT_BSTR, S_OK },
11241 { NODE_DOCUMENT_FRAGMENT, "docfrag", "", E_FAIL, VT_NULL, S_FALSE },
11242 { NODE_INVALID }
11243 };
11244
11245 static void test_nodeValue(void)
11246 {
11247 const node_value_t *ptr = nodevalue_test;
11248 IXMLDOMDocument *doc;
11249 HRESULT hr;
11250
11251 doc = create_document(&IID_IXMLDOMDocument);
11252
11253 while (ptr->type != NODE_INVALID)
11254 {
11255 IXMLDOMNode *node;
11256 VARIANT v;
11257
11258 V_VT(&v) = VT_I2;
11259 V_I2(&v) = ptr->type;
11260
11261 hr = IXMLDOMDocument_createNode(doc, v, _bstr_(ptr->name), NULL, &node);
11262 ok(hr == S_OK, "failed to create node type %d\n", ptr->type);
11263
11264 hr = IXMLDOMNode_get_nodeValue(node, NULL);
11265 ok(hr == E_INVALIDARG, "%d: got 0x%08x\n", ptr->type, hr);
11266
11267 V_VT(&v) = VT_BSTR;
11268 V_BSTR(&v) = _bstr_(ptr->put_content);
11269 hr = IXMLDOMNode_put_nodeValue(node, v);
11270 ok(hr == ptr->put_hr, "%d: got 0x%08x\n", ptr->type, hr);
11271
11272 V_VT(&v) = VT_EMPTY;
11273 hr = IXMLDOMNode_get_nodeValue(node, &v);
11274 ok(hr == ptr->get_hr, "%d: got 0x%08x, expected 0x%08x\n", ptr->type, hr, ptr->get_hr);
11275 ok(V_VT(&v) == ptr->get_vt, "%d: got %d, expected %d\n", ptr->type, V_VT(&v), ptr->get_vt);
11276 if (hr == S_OK)
11277 ok(!lstrcmpW(V_BSTR(&v), _bstr_(ptr->put_content)), "%d: got %s\n", ptr->type,
11278 wine_dbgstr_w(V_BSTR(&v)));
11279 VariantClear(&v);
11280
11281 IXMLDOMNode_Release(node);
11282
11283 ptr++;
11284 }
11285
11286 IXMLDOMDocument_Release(doc);
11287 }
11288
11289 static void test_xmlns_attribute(void)
11290 {
11291 BSTR str;
11292 IXMLDOMDocument *doc;
11293 IXMLDOMElement *root;
11294 IXMLDOMAttribute *pAttribute;
11295 IXMLDOMElement *elem;
11296 HRESULT hr;
11297 VARIANT v;
11298
11299 doc = create_document(&IID_IXMLDOMDocument);
11300
11301 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
11302 EXPECT_HR(hr, S_OK);
11303
11304 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
11305 EXPECT_HR(hr, S_OK);
11306
11307 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("xmlns:dt"), &pAttribute);
11308 ok( hr == S_OK, "returns %08x\n", hr );
11309
11310 V_VT(&v) = VT_BSTR;
11311 V_BSTR(&v) = _bstr_("urn:schemas-microsoft-com:datatypes");
11312 hr = IXMLDOMAttribute_put_nodeValue(pAttribute, v);
11313 ok(hr == S_OK, "ret %08x\n", hr );
11314
11315 hr = IXMLDOMElement_setAttributeNode(root, pAttribute, NULL);
11316 ok(hr == S_OK, "ret %08x\n", hr );
11317
11318 hr = IXMLDOMNode_put_dataType((IXMLDOMNode*)root, _bstr_("bin.base64"));
11319 ok(hr == S_OK, "ret %08x\n", hr );
11320
11321 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11322 EXPECT_HR(hr, S_OK);
11323
11324 str = NULL;
11325 hr = IXMLDOMElement_get_xml(elem, &str);
11326 ok( hr == S_OK, "got 0x%08x\n", hr);
11327 todo_wine ok( lstrcmpW(str, _bstr_("<Testing xmlns:dt=\"urn:schemas-microsoft-com:datatypes\" dt:dt=\"bin.base64\"/>")) == 0,
11328 "got %s\n", wine_dbgstr_w(str));
11329 SysFreeString(str);
11330
11331 IXMLDOMElement_Release(elem);
11332 IXMLDOMAttribute_Release( pAttribute);
11333
11334 IXMLDOMDocument_Release(doc);
11335
11336 free_bstrs();
11337 }
11338
11339 static const char namespacesA[] =
11340 "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>"
11341 " <ns1:elem1 xmlns:ns1=\"http://blah.org\" b='1' >"
11342 " <ns2:elem2 xmlns:ns2=\"http://blah.org\"/>"
11343 " <ns1:elem3/>"
11344 " <ns1:elem4/>"
11345 " <elem5 xmlns=\"http://blahblah.org\"/>"
11346 " <ns1:elem6>true</ns1:elem6>"
11347 " </ns1:elem1>";
11348
11349 static const char xsd_schema1_uri[] = "x-schema:test1.xsd";
11350 static const char xsd_schema1_xml[] =
11351 "<?xml version='1.0'?>"
11352 "<schema xmlns='http://www.w3.org/2001/XMLSchema'"
11353 " targetNamespace='x-schema:test1.xsd'>"
11354 " <element name='root'>"
11355 " <complexType>"
11356 " <sequence maxOccurs='unbounded'>"
11357 " <any/>"
11358 " </sequence>"
11359 " </complexType>"
11360 " </element>"
11361 "</schema>";
11362
11363 static void test_get_namespaces(void)
11364 {
11365 IXMLDOMSchemaCollection *collection, *collection2;
11366 IXMLDOMDocument2 *doc, *doc2;
11367 IEnumVARIANT *enumv, *enum2;
11368 IUnknown *unk1, *unk2;
11369 IXMLDOMNode *node;
11370 VARIANT_BOOL b;
11371 HRESULT hr;
11372 VARIANT v;
11373 LONG len;
11374 BSTR s;
11375
11376 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11377 doc = create_document(&IID_IXMLDOMDocument2);
11378
11379 /* null pointer */
11380 hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11381 EXPECT_HR(hr, E_POINTER);
11382
11383 /* no document loaded */
11384 collection = (void*)0xdeadbeef;
11385 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11386 EXPECT_HR(hr, S_OK);
11387 if (hr != S_OK)
11388 {
11389 IXMLDOMDocument2_Release(doc);
11390 return;
11391 }
11392 EXPECT_REF(collection, 2);
11393
11394 collection2 = (void*)0xdeadbeef;
11395 hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11396 EXPECT_HR(hr, S_OK);
11397 ok(collection == collection2, "got %p\n", collection2);
11398 EXPECT_REF(collection, 3);
11399 IXMLDOMSchemaCollection_Release(collection);
11400
11401 len = -1;
11402 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11403 EXPECT_HR(hr, S_OK);
11404 ok(len == 0, "got %d\n", len);
11405 IXMLDOMSchemaCollection_Release(collection);
11406
11407 /* now with document */
11408 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11409 EXPECT_HR(hr, S_OK);
11410
11411 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11412 EXPECT_HR(hr, S_OK);
11413
11414 len = -1;
11415 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11416 EXPECT_HR(hr, S_OK);
11417 ok(len == 2, "got %d\n", len);
11418
11419 /* try to lookup some uris */
11420 node = (void*)0xdeadbeef;
11421 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11422 EXPECT_HR(hr, S_OK);
11423 ok(node == NULL, "got %p\n", node);
11424
11425 node = (void*)0xdeadbeef;
11426 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah1.org"), &node);
11427 EXPECT_HR(hr, S_OK);
11428 ok(node == NULL, "got %p\n", node);
11429
11430 /* load schema and try to add it */
11431 doc2 = create_document(&IID_IXMLDOMDocument2);
11432 hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11433 EXPECT_HR(hr, S_OK);
11434
11435 V_VT(&v) = VT_DISPATCH;
11436 V_DISPATCH(&v) = (IDispatch*)doc2;
11437 hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11438 EXPECT_HR(hr, E_FAIL);
11439
11440 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11441 EXPECT_HR(hr, S_OK);
11442 ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11443 SysFreeString(s);
11444
11445 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11446 EXPECT_HR(hr, S_OK);
11447 ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11448 SysFreeString(s);
11449
11450 s = (void*)0xdeadbeef;
11451 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11452 EXPECT_HR(hr, E_FAIL);
11453 ok(s == (void*)0xdeadbeef, "got %p\n", s);
11454
11455 /* enumerate */
11456 enumv = (void*)0xdeadbeef;
11457 EXPECT_REF(collection, 2);
11458 hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11459 EXPECT_HR(hr, S_OK);
11460 EXPECT_REF(collection, 3);
11461 ok(enumv != NULL, "got %p\n", enumv);
11462
11463 hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IUnknown, (void**)&unk1);
11464 EXPECT_HR(hr, S_OK);
11465 hr = IEnumVARIANT_QueryInterface(enumv, &IID_IUnknown, (void**)&unk2);
11466 EXPECT_HR(hr, S_OK);
11467 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11468 IUnknown_Release(unk1);
11469 IUnknown_Release(unk2);
11470
11471 hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IEnumVARIANT, (void**)&enum2);
11472 EXPECT_HR(hr, E_NOINTERFACE);
11473
11474 V_VT(&v) = VT_EMPTY;
11475 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11476 EXPECT_HR(hr, S_OK);
11477 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11478 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11479 VariantClear(&v);
11480
11481 V_VT(&v) = VT_EMPTY;
11482 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11483 EXPECT_HR(hr, S_OK);
11484 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11485 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11486 VariantClear(&v);
11487
11488 V_VT(&v) = VT_NULL;
11489 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11490 EXPECT_HR(hr, S_FALSE);
11491 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11492
11493 IEnumVARIANT_Release(enumv);
11494 IXMLDOMSchemaCollection_Release(collection);
11495
11496 IXMLDOMDocument2_Release(doc);
11497
11498 /* now with CLSID_DOMDocument60 */
11499 if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument2)) return;
11500 doc = create_document_version(60, &IID_IXMLDOMDocument2);
11501
11502 /* null pointer */
11503 hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11504 EXPECT_HR(hr, E_POINTER);
11505
11506 /* no document loaded */
11507 collection = (void*)0xdeadbeef;
11508 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11509 EXPECT_HR(hr, S_OK);
11510 if (hr != S_OK)
11511 {
11512 IXMLDOMDocument2_Release(doc);
11513 return;
11514 }
11515 EXPECT_REF(collection, 2);
11516
11517 collection2 = (void*)0xdeadbeef;
11518 hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11519 EXPECT_HR(hr, S_OK);
11520 ok(collection == collection2, "got %p\n", collection2);
11521 EXPECT_REF(collection, 3);
11522 IXMLDOMSchemaCollection_Release(collection);
11523
11524 len = -1;
11525 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11526 EXPECT_HR(hr, S_OK);
11527 ok(len == 0, "got %d\n", len);
11528 IXMLDOMSchemaCollection_Release(collection);
11529
11530 /* now with document */
11531 hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11532 EXPECT_HR(hr, S_OK);
11533
11534 hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11535 EXPECT_HR(hr, S_OK);
11536
11537 len = -1;
11538 hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11539 EXPECT_HR(hr, S_OK);
11540 ok(len == 2, "got %d\n", len);
11541
11542 /* try to lookup some uris */
11543 node = (void*)0xdeadbeef;
11544 hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11545 EXPECT_HR(hr, E_NOTIMPL);
11546 ok(broken(node == (void*)0xdeadbeef) || (node == NULL), "got %p\n", node);
11547
11548 /* load schema and try to add it */
11549 doc2 = create_document(&IID_IXMLDOMDocument2);
11550 hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11551 EXPECT_HR(hr, S_OK);
11552
11553 V_VT(&v) = VT_DISPATCH;
11554 V_DISPATCH(&v) = (IDispatch*)doc2;
11555 hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11556 EXPECT_HR(hr, E_FAIL);
11557 IXMLDOMDocument2_Release(doc2);
11558
11559 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11560 EXPECT_HR(hr, S_OK);
11561 ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11562 SysFreeString(s);
11563
11564 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11565 EXPECT_HR(hr, S_OK);
11566 ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11567 SysFreeString(s);
11568
11569 s = (void*)0xdeadbeef;
11570 hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11571 EXPECT_HR(hr, E_FAIL);
11572 ok(broken(s == (void*)0xdeadbeef) || (s == NULL), "got %p\n", s);
11573
11574 /* enumerate */
11575 enumv = (void*)0xdeadbeef;
11576 hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11577 EXPECT_HR(hr, S_OK);
11578 ok(enumv != NULL, "got %p\n", enumv);
11579
11580 V_VT(&v) = VT_EMPTY;
11581 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11582 EXPECT_HR(hr, S_OK);
11583 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11584 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11585 VariantClear(&v);
11586
11587 V_VT(&v) = VT_EMPTY;
11588 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11589 EXPECT_HR(hr, S_OK);
11590 ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11591 ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11592 VariantClear(&v);
11593
11594 V_VT(&v) = VT_NULL;
11595 hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11596 EXPECT_HR(hr, S_FALSE);
11597 ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11598
11599 IEnumVARIANT_Release(enumv);
11600 IXMLDOMSchemaCollection_Release(collection);
11601 IXMLDOMDocument2_Release(doc);
11602 free_bstrs();
11603 }
11604
11605 static DOMNodeType put_data_types[] = {
11606 NODE_TEXT,
11607 NODE_CDATA_SECTION,
11608 NODE_PROCESSING_INSTRUCTION,
11609 NODE_COMMENT,
11610 NODE_INVALID
11611 };
11612
11613 static void test_put_data(void)
11614 {
11615 static const WCHAR test_data[] = {'t','e','s','t',' ','n','o','d','e',' ','d','a','t','a',0};
11616 WCHAR buff[100], *data;
11617 IXMLDOMDocument *doc;
11618 DOMNodeType *type;
11619 IXMLDOMText *text;
11620 IXMLDOMNode *node;
11621 VARIANT v;
11622 BSTR get_data;
11623 HRESULT hr;
11624
11625 doc = create_document(&IID_IXMLDOMDocument);
11626
11627 memcpy(&buff[2], test_data, sizeof(test_data));
11628 /* just a big length */
11629 *(DWORD*)buff = 0xf0f0;
11630 data = &buff[2];
11631
11632 type = put_data_types;
11633 while (*type != NODE_INVALID)
11634 {
11635 V_VT(&v) = VT_I2;
11636 V_I2(&v) = *type;
11637
11638 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11639 EXPECT_HR(hr, S_OK);
11640
11641 /* put_data() is interface-specific */
11642 switch (*type)
11643 {
11644 case NODE_TEXT:
11645 {
11646 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11647 EXPECT_HR(hr, S_OK);
11648 hr = IXMLDOMText_put_data(text, data);
11649 EXPECT_HR(hr, S_OK);
11650
11651 hr = IXMLDOMText_get_data(text, &get_data);
11652 EXPECT_HR(hr, S_OK);
11653
11654 IXMLDOMText_Release(text);
11655 break;
11656 }
11657 case NODE_CDATA_SECTION:
11658 {
11659 IXMLDOMCDATASection *cdata;
11660
11661 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
11662 EXPECT_HR(hr, S_OK);
11663 hr = IXMLDOMCDATASection_put_data(cdata, data);
11664 EXPECT_HR(hr, S_OK);
11665
11666 hr = IXMLDOMCDATASection_get_data(cdata, &get_data);
11667 EXPECT_HR(hr, S_OK);
11668
11669 IXMLDOMCDATASection_Release(cdata);
11670 break;
11671 }
11672 case NODE_PROCESSING_INSTRUCTION:
11673 {
11674 IXMLDOMProcessingInstruction *pi;
11675
11676 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMProcessingInstruction, (void**)&pi);
11677 EXPECT_HR(hr, S_OK);
11678 hr = IXMLDOMProcessingInstruction_put_data(pi, data);
11679 EXPECT_HR(hr, S_OK);
11680
11681 hr = IXMLDOMProcessingInstruction_get_data(pi, &get_data);
11682 EXPECT_HR(hr, S_OK);
11683
11684 IXMLDOMProcessingInstruction_Release(pi);
11685 break;
11686 }
11687 case NODE_COMMENT:
11688 {
11689 IXMLDOMComment *comment;
11690
11691 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
11692 EXPECT_HR(hr, S_OK);
11693 hr = IXMLDOMComment_put_data(comment, data);
11694 EXPECT_HR(hr, S_OK);
11695
11696 hr = IXMLDOMComment_get_data(comment, &get_data);
11697 EXPECT_HR(hr, S_OK);
11698
11699 IXMLDOMComment_Release(comment);
11700 break;
11701 }
11702 default:
11703 break;
11704 }
11705
11706 /* compare */
11707 ok(!lstrcmpW(data, get_data), "%d: got wrong data %s, expected %s\n", *type, wine_dbgstr_w(get_data),
11708 wine_dbgstr_w(data));
11709 SysFreeString(get_data);
11710
11711 IXMLDOMNode_Release(node);
11712 type++;
11713 }
11714
11715 /* \r\n sequence is never escaped */
11716 V_VT(&v) = VT_I2;
11717 V_I2(&v) = NODE_TEXT;
11718
11719 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11720 ok(hr == S_OK, "got 0x%08x\n", hr);
11721
11722 IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11723
11724 hr = IXMLDOMText_put_data(text, _bstr_("\r\n"));
11725 ok(hr == S_OK, "got 0x%08x\n", hr);
11726
11727 hr = IXMLDOMText_get_data(text, &get_data);
11728 ok(hr == S_OK, "got 0x%08x\n", hr);
11729 todo_wine
11730 ok(!lstrcmpW(get_data, _bstr_("\n")), "got %s\n", wine_dbgstr_w(get_data));
11731 SysFreeString(get_data);
11732
11733 hr = IXMLDOMText_get_xml(text, &get_data);
11734 ok(hr == S_OK, "got 0x%08x\n", hr);
11735 ok(!lstrcmpW(get_data, _bstr_("\r\n")), "got %s\n", wine_dbgstr_w(get_data));
11736 SysFreeString(get_data);
11737
11738 IXMLDOMText_Release(text);
11739 IXMLDOMNode_Release(node);
11740
11741 IXMLDOMDocument_Release(doc);
11742 free_bstrs();
11743 }
11744
11745 static void test_putref_schemas(void)
11746 {
11747 IXMLDOMSchemaCollection *cache;
11748 IXMLDOMDocument2 *doc;
11749 VARIANT schema;
11750 HRESULT hr;
11751
11752 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11753 if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
11754
11755 doc = create_document(&IID_IXMLDOMDocument2);
11756 cache = create_cache(&IID_IXMLDOMSchemaCollection);
11757
11758 /* set to NULL iface when no schema is set */
11759 V_VT(&schema) = VT_DISPATCH;
11760 V_DISPATCH(&schema) = NULL;
11761 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11762 EXPECT_HR(hr, S_OK);
11763
11764 V_VT(&schema) = VT_UNKNOWN;
11765 V_UNKNOWN(&schema) = NULL;
11766 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11767 EXPECT_HR(hr, S_OK);
11768
11769 /* set as VT_DISPATCH, reset with it */
11770 V_VT(&schema) = VT_DISPATCH;
11771 V_DISPATCH(&schema) = (IDispatch*)cache;
11772 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11773 EXPECT_HR(hr, S_OK);
11774
11775 V_DISPATCH(&schema) = NULL;
11776 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11777 EXPECT_HR(hr, S_OK);
11778 ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11779
11780 V_VT(&schema) = VT_DISPATCH;
11781 V_DISPATCH(&schema) = NULL;
11782 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11783 EXPECT_HR(hr, S_OK);
11784
11785 V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11786 V_VT(&schema) = VT_I2;
11787 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11788 EXPECT_HR(hr, S_FALSE);
11789 ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11790 ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11791
11792 /* set as VT_UNKNOWN, reset with it */
11793 V_VT(&schema) = VT_UNKNOWN;
11794 V_UNKNOWN(&schema) = (IUnknown*)cache;
11795 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11796 EXPECT_HR(hr, S_OK);
11797
11798 V_DISPATCH(&schema) = NULL;
11799 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11800 EXPECT_HR(hr, S_OK);
11801 ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11802
11803 V_VT(&schema) = VT_UNKNOWN;
11804 V_UNKNOWN(&schema) = NULL;
11805 hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11806 EXPECT_HR(hr, S_OK);
11807
11808 V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11809 V_VT(&schema) = VT_I2;
11810 hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11811 EXPECT_HR(hr, S_FALSE);
11812 ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11813 ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11814
11815 IXMLDOMSchemaCollection_Release(cache);
11816 IXMLDOMDocument2_Release(doc);
11817 }
11818
11819 static void test_namedmap_newenum(void)
11820 {
11821 IEnumVARIANT *enum1, *enum2, *enum3;
11822 IXMLDOMNamedNodeMap *map;
11823 IUnknown *unk1, *unk2;
11824 IXMLDOMDocument *doc;
11825 IXMLDOMElement *elem;
11826 IXMLDOMNode *node;
11827 VARIANT_BOOL b;
11828 HRESULT hr;
11829 VARIANT v;
11830 BSTR str;
11831
11832 doc = create_document(&IID_IXMLDOMDocument);
11833
11834 hr = IXMLDOMDocument_loadXML(doc, _bstr_(attributes_map), &b);
11835 EXPECT_HR(hr, S_OK);
11836
11837 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11838 EXPECT_HR(hr, S_OK);
11839
11840 hr = IXMLDOMElement_get_attributes(elem, &map);
11841 EXPECT_HR(hr, S_OK);
11842 IXMLDOMElement_Release(elem);
11843
11844 enum1 = NULL;
11845 EXPECT_REF(map, 1);
11846 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum1);
11847 EXPECT_HR(hr, S_OK);
11848 ok(enum1 != NULL, "got %p\n", enum1);
11849 EXPECT_REF(map, 1);
11850 EXPECT_REF(enum1, 2);
11851
11852 enum2 = NULL;
11853 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum2);
11854 EXPECT_HR(hr, S_OK);
11855 ok(enum2 == enum1, "got %p\n", enum2);
11856
11857 IEnumVARIANT_Release(enum2);
11858
11859 EXPECT_REF(map, 1);
11860 hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum2);
11861 EXPECT_HR(hr, S_OK);
11862 EXPECT_REF(map, 2);
11863 EXPECT_REF(enum2, 1);
11864 ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
11865
11866 IEnumVARIANT_Release(enum1);
11867
11868 /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
11869 hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk1);
11870 EXPECT_HR(hr, S_OK);
11871 hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
11872 EXPECT_HR(hr, S_OK);
11873 EXPECT_REF(map, 3);
11874 EXPECT_REF(enum2, 2);
11875 ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11876 IUnknown_Release(unk1);
11877 IUnknown_Release(unk2);
11878
11879 hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum3);
11880 EXPECT_HR(hr, S_OK);
11881 ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
11882 IEnumVARIANT_Release(enum3);
11883
11884 /* iteration tests */
11885 hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node);
11886 EXPECT_HR(hr, S_OK);
11887 hr = IXMLDOMNode_get_nodeName(node, &str);
11888 EXPECT_HR(hr, S_OK);
11889 ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11890 SysFreeString(str);
11891 IXMLDOMNode_Release(node);
11892
11893 hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11894 EXPECT_HR(hr, S_OK);
11895 hr = IXMLDOMNode_get_nodeName(node, &str);
11896 EXPECT_HR(hr, S_OK);
11897 ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11898 SysFreeString(str);
11899 IXMLDOMNode_Release(node);
11900
11901 V_VT(&v) = VT_EMPTY;
11902 hr = IEnumVARIANT_Next(enum2, 1, &v, NULL);
11903 EXPECT_HR(hr, S_OK);
11904 ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
11905 hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
11906 EXPECT_HR(hr, S_OK);
11907 hr = IXMLDOMNode_get_nodeName(node, &str);
11908 EXPECT_HR(hr, S_OK);
11909 ok(!lstrcmpW(str, _bstr_("attr1")), "got node name %s\n", wine_dbgstr_w(str));
11910 SysFreeString(str);
11911 IXMLDOMNode_Release(node);
11912 VariantClear(&v);
11913
11914 hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11915 EXPECT_HR(hr, S_OK);
11916 hr = IXMLDOMNode_get_nodeName(node, &str);
11917 EXPECT_HR(hr, S_OK);
11918 ok(!lstrcmpW(str, _bstr_("attr2")), "got %s\n", wine_dbgstr_w(str));
11919 SysFreeString(str);
11920 IXMLDOMNode_Release(node);
11921
11922 IEnumVARIANT_Release(enum2);
11923 IXMLDOMNamedNodeMap_Release(map);
11924 IXMLDOMDocument_Release(doc);
11925 }
11926
11927 static const char xsltext_xsl[] =
11928 "<?xml version=\"1.0\"?>"
11929 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11930 "<xsl:output method=\"html\" encoding=\"us-ascii\"/>"
11931 "<xsl:template match=\"/\">"
11932 " <xsl:choose>"
11933 " <xsl:when test=\"testkey\">"
11934 " <xsl:text>testdata</xsl:text>"
11935 " </xsl:when>"
11936 " </xsl:choose>"
11937 "</xsl:template>"
11938 "</xsl:stylesheet>";
11939
11940 static const char omitxmldecl_xsl[] =
11941 "<?xml version=\"1.0\"?>"
11942 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11943 "<xsl:output method=\"xml\" omit-xml-declaration=\"yes\"/>"
11944 "<xsl:template match=\"/\">"
11945 " <xsl:for-each select=\"/a/item\">"
11946 " <xsl:element name=\"node\">"
11947 " <xsl:value-of select=\"@name\"/>"
11948 " </xsl:element>"
11949 " </xsl:for-each>"
11950 "</xsl:template>"
11951 "</xsl:stylesheet>";
11952
11953 static const char omitxmldecl_doc[] =
11954 "<?xml version=\"1.0\"?>"
11955 "<a>"
11956 " <item name=\"item1\"/>"
11957 " <item name=\"item2\"/>"
11958 "</a>";
11959
11960 static void test_xsltext(void)
11961 {
11962 IXMLDOMDocument *doc, *doc2;
11963 VARIANT_BOOL b;
11964 HRESULT hr;
11965 BSTR ret;
11966
11967 doc = create_document(&IID_IXMLDOMDocument);
11968 doc2 = create_document(&IID_IXMLDOMDocument);
11969
11970 hr = IXMLDOMDocument_loadXML(doc, _bstr_(xsltext_xsl), &b);
11971 EXPECT_HR(hr, S_OK);
11972
11973 hr = IXMLDOMDocument_loadXML(doc2, _bstr_("<testkey/>"), &b);
11974 EXPECT_HR(hr, S_OK);
11975
11976 hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11977 EXPECT_HR(hr, S_OK);
11978 ok(!lstrcmpW(ret, _bstr_("testdata")), "transform result %s\n", wine_dbgstr_w(ret));
11979 SysFreeString(ret);
11980
11981 /* omit-xml-declaration */
11982 hr = IXMLDOMDocument_loadXML(doc, _bstr_(omitxmldecl_xsl), &b);
11983 ok(hr == S_OK, "got 0x%08x\n", hr);
11984 hr = IXMLDOMDocument_loadXML(doc2, _bstr_(omitxmldecl_doc), &b);
11985 ok(hr == S_OK, "got 0x%08x\n", hr);
11986
11987 hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11988 ok(hr == S_OK, "got 0x%08x\n", hr);
11989 ok(!lstrcmpW(ret, _bstr_("<node>item1</node><node>item2</node>")), "transform result %s\n", wine_dbgstr_w(ret));
11990 SysFreeString(ret);
11991
11992 IXMLDOMDocument_Release(doc2);
11993 IXMLDOMDocument_Release(doc);
11994 free_bstrs();
11995 }
11996
11997 struct attrtest_t {
11998 const char *name;
11999 const char *uri;
12000 const char *prefix;
12001 const char *href;
12002 };
12003
12004 static struct attrtest_t attrtests[] = {
12005 { "xmlns", "http://www.w3.org/2000/xmlns/", "xmlns", "xmlns" },
12006 { "xmlns", "nondefaulturi", "xmlns", "xmlns" },
12007 { "c", "http://www.w3.org/2000/xmlns/", NULL, "http://www.w3.org/2000/xmlns/" },
12008 { "c", "nsref1", NULL, "nsref1" },
12009 { "ns:c", "nsref1", "ns", "nsref1" },
12010 { "xmlns:c", "http://www.w3.org/2000/xmlns/", "xmlns", "" },
12011 { "xmlns:c", "nondefaulturi", "xmlns", "" },
12012 { 0 }
12013 };
12014
12015 static void test_create_attribute(void)
12016 {
12017 struct attrtest_t *ptr = attrtests;
12018 IXMLDOMElement *el;
12019 IXMLDOMDocument *doc;
12020 IXMLDOMNode *node, *node2;
12021 VARIANT var;
12022 HRESULT hr;
12023 int i = 0;
12024 BSTR str;
12025
12026 doc = create_document(&IID_IXMLDOMDocument);
12027
12028 while (ptr->name)
12029 {
12030 V_VT(&var) = VT_I1;
12031 V_I1(&var) = NODE_ATTRIBUTE;
12032 hr = IXMLDOMDocument_createNode(doc, var, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
12033 ok(hr == S_OK, "got 0x%08x\n", hr);
12034
12035 str = NULL;
12036 hr = IXMLDOMNode_get_prefix(node, &str);
12037 if (ptr->prefix)
12038 {
12039 ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
12040 ok(!lstrcmpW(str, _bstr_(ptr->prefix)), "%d: got prefix %s, expected %s\n", i, wine_dbgstr_w(str), ptr->prefix);
12041 }
12042 else
12043 {
12044 ok(hr == S_FALSE, "%d: got 0x%08x\n", i, hr);
12045 ok(str == NULL, "%d: got prefix %s\n", i, wine_dbgstr_w(str));
12046 }
12047 SysFreeString(str);
12048
12049 str = NULL;
12050 hr = IXMLDOMNode_get_namespaceURI(node, &str);
12051 ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
12052 ok(!lstrcmpW(str, _bstr_(ptr->href)), "%d: got uri %s, expected %s\n", i, wine_dbgstr_w(str), ptr->href);
12053 SysFreeString(str);
12054
12055 IXMLDOMNode_Release(node);
12056 free_bstrs();
12057
12058 i++;
12059 ptr++;
12060 }
12061
12062 V_VT(&var) = VT_I1;
12063 V_I1(&var) = NODE_ELEMENT;
12064 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("e"), NULL, &node2);
12065 ok(hr == S_OK, "got 0x%08x\n", hr);
12066
12067 hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&el);
12068 ok(hr == S_OK, "got 0x%08x\n", hr);
12069 IXMLDOMNode_Release(node2);
12070
12071 V_VT(&var) = VT_I1;
12072 V_I1(&var) = NODE_ATTRIBUTE;
12073 hr = IXMLDOMDocument_createNode(doc, var, _bstr_("xmlns:a"), _bstr_("http://www.w3.org/2000/xmlns/"), &node);
12074 ok(hr == S_OK, "got 0x%08x\n", hr);
12075
12076 hr = IXMLDOMElement_setAttributeNode(el, (IXMLDOMAttribute*)node, NULL);
12077 ok(hr == S_OK, "got 0x%08x\n", hr);
12078
12079 /* for some reason default namespace uri is not reported */
12080 hr = IXMLDOMNode_get_namespaceURI(node, &str);
12081 ok(hr == S_OK, "got 0x%08x\n", hr);
12082 ok(!lstrcmpW(str, _bstr_("")), "got uri %s\n", wine_dbgstr_w(str));
12083 SysFreeString(str);
12084
12085 IXMLDOMNode_Release(node);
12086 IXMLDOMElement_Release(el);
12087 IXMLDOMDocument_Release(doc);
12088 free_bstrs();
12089 }
12090
12091 static void test_url(void)
12092 {
12093 IXMLDOMDocument *doc;
12094 HRESULT hr;
12095 BSTR s;
12096
12097 doc = create_document(&IID_IXMLDOMDocument);
12098
12099 hr = IXMLDOMDocument_get_url(doc, NULL);
12100 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
12101
12102 s = (BSTR)0x1;
12103 hr = IXMLDOMDocument_get_url(doc, &s);
12104 ok(hr == S_FALSE, "got 0x%08x\n", hr);
12105 ok(s == NULL, "got %s\n", wine_dbgstr_w(s));
12106
12107 IXMLDOMDocument_Release(doc);
12108 }
12109
12110 static void test_merging_text(void)
12111 {
12112 IXMLDOMText *nodetext;
12113 IXMLDOMText *newtext;
12114 IXMLDOMElement *root;
12115 IXMLDOMDocument *doc;
12116 IXMLDOMNode *first;
12117 HRESULT hr;
12118 VARIANT v;
12119 BSTR str;
12120 int i;
12121
12122 doc = create_document(&IID_IXMLDOMDocument);
12123
12124 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
12125 EXPECT_HR(hr, S_OK);
12126
12127 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
12128 EXPECT_HR(hr, S_OK);
12129
12130 /* test xmlAddChild */
12131 for (i = 0; i < 10; i++)
12132 {
12133 str = SysAllocString(szstr1);
12134 hr = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
12135 SysFreeString(str);
12136 EXPECT_HR(hr, S_OK);
12137
12138 newtext = NULL;
12139 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)nodetext, (IXMLDOMNode**)&newtext);
12140 EXPECT_HR(hr, S_OK);
12141 ok(nodetext == newtext, "expected %p, got %p\n", nodetext, newtext);
12142
12143 IXMLDOMText_Release(newtext);
12144 IXMLDOMText_Release(nodetext);
12145 }
12146
12147 /* test xmlAddPrevSibling */
12148 hr = IXMLDOMElement_get_firstChild(root, &first);
12149 EXPECT_HR(hr, S_OK);
12150 V_VT(&v) = VT_UNKNOWN;
12151 V_UNKNOWN(&v) = (IUnknown*)first;
12152 for (i = 0; i < 10; i++)
12153 {
12154 str = SysAllocString(szstr2);
12155 hr = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
12156 SysFreeString(str);
12157 EXPECT_HR(hr, S_OK);
12158
12159 newtext = NULL;
12160 hr = IXMLDOMElement_insertBefore(root, (IXMLDOMNode*)nodetext, v, (IXMLDOMNode**)&newtext);
12161 EXPECT_HR(hr, S_OK);
12162 ok(nodetext == newtext, "expected %p, got %p\n", nodetext, newtext);
12163
12164 IXMLDOMText_Release(newtext);
12165 IXMLDOMText_Release(nodetext);
12166 }
12167
12168 IXMLDOMNode_Release(first);
12169 IXMLDOMElement_Release(root);
12170 IXMLDOMDocument_Release(doc);
12171
12172 free_bstrs();
12173 }
12174
12175 START_TEST(domdoc)
12176 {
12177 HRESULT hr;
12178
12179 hr = CoInitialize( NULL );
12180 ok( hr == S_OK, "failed to init com\n");
12181 if (hr != S_OK) return;
12182
12183 get_class_support_data(domdoc_support_data);
12184 if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument))
12185 {
12186 win_skip("DOMDocument2 is not supported. Skipping all tests.\n");
12187 CoUninitialize();
12188 return;
12189 }
12190
12191 test_domdoc();
12192 test_persiststreaminit();
12193 test_domnode();
12194 test_refs();
12195 test_create();
12196 test_getElementsByTagName();
12197 test_get_text();
12198 test_get_childNodes();
12199 test_get_firstChild();
12200 test_get_lastChild();
12201 test_removeChild();
12202 test_replaceChild();
12203 test_removeNamedItem();
12204 test_IXMLDOMDocument2();
12205 test_whitespace();
12206 test_XPath();
12207 test_XSLPattern();
12208 test_cloneNode();
12209 test_xmlTypes();
12210 test_save();
12211 test_testTransforms();
12212 test_namespaces_basic();
12213 test_namespaces_change();
12214 test_FormattingXML();
12215 test_nodeTypedValue();
12216 test_TransformWithLoadingLocalFile();
12217 test_put_nodeValue();
12218 test_IObjectSafety();
12219 test_splitText();
12220 test_getQualifiedItem();
12221 test_removeQualifiedItem();
12222 test_get_ownerDocument();
12223 test_setAttributeNode();
12224 test_put_dataType();
12225 test_createNode();
12226 test_create_attribute();
12227 test_get_prefix();
12228 test_default_properties();
12229 test_selectSingleNode();
12230 test_events();
12231 test_createProcessingInstruction();
12232 test_put_nodeTypedValue();
12233 test_get_xml();
12234 test_insertBefore();
12235 test_appendChild();
12236 test_get_doctype();
12237 test_get_tagName();
12238 test_get_dataType();
12239 test_get_nodeTypeString();
12240 test_get_attributes();
12241 test_selection();
12242 test_load();
12243 test_dispex();
12244 test_parseerror();
12245 test_getAttributeNode();
12246 test_getAttribute();
12247 test_supporterrorinfo();
12248 test_nodeValue();
12249 test_get_namespaces();
12250 test_put_data();
12251 test_putref_schemas();
12252 test_namedmap_newenum();
12253 test_xmlns_attribute();
12254 test_url();
12255 test_merging_text();
12256
12257 test_xsltemplate();
12258 test_xsltext();
12259
12260 if (is_clsid_supported(&CLSID_MXNamespaceManager40, &IID_IMXNamespaceManager))
12261 {
12262 test_mxnamespacemanager();
12263 test_mxnamespacemanager_override();
12264 }
12265
12266 CoUninitialize();
12267 }
Windows API implementation