4 * Copyright 2005 Mike McCormack for CodeWeavers
5 * Copyright 2007-2008 Alistair Leslie-Hughes
6 * Copyright 2010 Adam Martinson for CodeWeavers
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
31 #include "msxml2did.h"
36 #include "wine/test.h"
40 DEFINE_GUID(IID_IObjectSafety, 0xcb5bdc81, 0x93c1, 0x11cf, 0x8f,0x20, 0x00,0x80,0x5f,0x2c,0xd0,0x64);
41 DEFINE_GUID(CLSID_DOMDocument60, 0x88d96a05, 0xf192, 0x11d4, 0xa6,0x5f, 0x00,0x40,0x96,0x32,0x51,0xe5);
43 static int g_unexpectedcall, g_expectedcall;
47 const struct IDispatchVtbl *lpVtbl;
51 static inline dispevent *impl_from_IDispatch( IDispatch *iface )
53 return (dispevent *)((char*)iface - FIELD_OFFSET(dispevent, lpVtbl));
56 static HRESULT WINAPI dispevent_QueryInterface(IDispatch *iface, REFIID riid, void **ppvObject)
60 if ( IsEqualGUID( riid, &IID_IDispatch) ||
61 IsEqualGUID( riid, &IID_IUnknown) )
68 IDispatch_AddRef( iface );
73 static ULONG WINAPI dispevent_AddRef(IDispatch *iface)
75 dispevent *This = impl_from_IDispatch( iface );
76 return InterlockedIncrement( &This->ref );
79 static ULONG WINAPI dispevent_Release(IDispatch *iface)
81 dispevent *This = impl_from_IDispatch( iface );
82 ULONG ref = InterlockedDecrement( &This->ref );
85 HeapFree(GetProcessHeap(), 0, This);
90 static HRESULT WINAPI dispevent_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
97 static HRESULT WINAPI dispevent_GetTypeInfo(IDispatch *iface, UINT iTInfo,
98 LCID lcid, ITypeInfo **ppTInfo)
104 static HRESULT WINAPI dispevent_GetIDsOfNames(IDispatch *iface, REFIID riid,
105 LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
111 static HRESULT WINAPI dispevent_Invoke(IDispatch *iface, DISPID member, REFIID riid,
112 LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result,
113 EXCEPINFO *excepInfo, UINT *argErr)
115 ok(member == 0, "expected 0 member, got %d\n", member);
116 ok(lcid == LOCALE_SYSTEM_DEFAULT, "expected LOCALE_SYSTEM_DEFAULT, got lcid %x\n", lcid);
117 ok(flags == DISPATCH_METHOD, "expected DISPATCH_METHOD, got %d\n", flags);
119 ok(params->cArgs == 0, "got %d\n", params->cArgs);
120 ok(params->cNamedArgs == 0, "got %d\n", params->cNamedArgs);
121 ok(params->rgvarg == NULL, "got %p\n", params->rgvarg);
122 ok(params->rgdispidNamedArgs == NULL, "got %p\n", params->rgdispidNamedArgs);
124 ok(result == NULL, "got %p\n", result);
125 ok(excepInfo == NULL, "got %p\n", excepInfo);
126 ok(argErr == NULL, "got %p\n", argErr);
132 static const IDispatchVtbl dispeventVtbl =
134 dispevent_QueryInterface,
137 dispevent_GetTypeInfoCount,
138 dispevent_GetTypeInfo,
139 dispevent_GetIDsOfNames,
143 static IDispatch* create_dispevent(void)
145 dispevent *event = HeapAlloc(GetProcessHeap(), 0, sizeof(*event));
147 event->lpVtbl = &dispeventVtbl;
150 return (IDispatch*)&event->lpVtbl;
154 static const WCHAR szEmpty[] = { 0 };
155 static const WCHAR szIncomplete[] = {
156 '<','?','x','m','l',' ',
157 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
159 static const WCHAR szComplete1[] = {
160 '<','?','x','m','l',' ',
161 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
162 '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
164 static const WCHAR szComplete2[] = {
165 '<','?','x','m','l',' ',
166 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
167 '<','o','>','<','/','o','>','\n',0
169 static const WCHAR szComplete3[] = {
170 '<','?','x','m','l',' ',
171 'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
172 '<','a','>','<','/','a','>','\n',0
174 static const WCHAR szComplete4[] = {
175 '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
176 '<','l','c',' ','d','l','=','\'','s','t','r','1','\'','>','\n',
177 '<','b','s',' ','v','r','=','\'','s','t','r','2','\'',' ','s','z','=','\'','1','2','3','4','\'','>',
178 'f','n','1','.','t','x','t','\n',
179 '<','/','b','s','>','\n',
180 '<','p','r',' ','i','d','=','\'','s','t','r','3','\'',' ','v','r','=','\'','1','.','2','.','3','\'',' ',
181 'p','n','=','\'','w','i','n','e',' ','2','0','0','5','0','8','0','4','\'','>','\n',
182 'f','n','2','.','t','x','t','\n',
183 '<','/','p','r','>','\n',
184 '<','e','m','p','t','y','>','<','/','e','m','p','t','y','>','\n',
185 '<','f','o','>','\n',
186 '<','b','a','>','\n',
188 '<','/','b','a','>','\n',
189 '<','/','f','o','>','\n',
190 '<','/','l','c','>','\n',0
192 static const WCHAR szComplete5[] = {
193 '<','S',':','s','e','a','r','c','h',' ','x','m','l','n','s',':','D','=','"','D','A','V',':','"',' ',
194 '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','"',
195 ' ','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','"','>',
196 '<','S',':','s','c','o','p','e','>',
197 '<','S',':','d','e','e','p','>','/','<','/','S',':','d','e','e','p','>',
198 '<','/','S',':','s','c','o','p','e','>',
199 '<','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
200 '<','C',':','t','e','x','t','o','r','p','r','o','p','e','r','t','y','/','>',
201 'c','o','m','p','u','t','e','r',
202 '<','/','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
203 '<','/','S',':','s','e','a','r','c','h','>',0
206 static const WCHAR szComplete6[] = {
207 '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'',' ',
208 'e','n','c','o','d','i','n','g','=','\'','W','i','n','d','o','w','s','-','1','2','5','2','\'','?','>','\n',
209 '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
212 static const CHAR szNonUnicodeXML[] =
213 "<?xml version='1.0' encoding='Windows-1252'?>\n"
216 static const CHAR szExampleXML[] =
217 "<?xml version='1.0' encoding='utf-8'?>\n"
218 "<root xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
223 " <description xmlns:foo='http://www.winehq.org' xmlns:bar='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
224 " <html xmlns='http://www.w3.org/1999/xhtml'>\n"
225 " This is <strong>a</strong> <i>description</i>. <bar:x/>\n"
227 " <html xml:space='preserve' xmlns='http://www.w3.org/1999/xhtml'>\n"
228 " This is <strong>a</strong> <i>description</i> with preserved whitespace. <bar:x/>\n"
236 " <c type=\"old\">C2 field</c>\n"
239 " <elem xmlns='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
248 " <foo:c>C4 field</foo:c>\n"
252 static const CHAR szTransformXML[] =
253 "<?xml version=\"1.0\"?>\n"
258 static const CHAR szTransformSSXML[] =
259 "<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">\n"
260 " <xsl:output method=\"html\"/>\n"
261 " <xsl:template match=\"/\">\n"
262 " <xsl:apply-templates select=\"greeting\"/>\n"
264 " <xsl:template match=\"greeting\">\n"
268 " <xsl:value-of select=\".\"/>\n"
275 static const CHAR szTransformOutput[] =
278 "</h1></body></html>";
280 static const CHAR szTypeValueXML[] =
281 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
282 "<root xmlns:dt=\"urn:schemas-microsoft-com:datatypes\">\n"
283 " <string>Wine</string>\n"
284 " <string2 dt:dt=\"string\">String</string2>\n"
285 " <number dt:dt=\"number\">12.44</number>\n"
286 " <number2 dt:dt=\"NUMbEr\">-3.71e3</number2>\n"
287 " <int dt:dt=\"int\">-13</int>\n"
288 " <fixed dt:dt=\"fixed.14.4\">7322.9371</fixed>\n"
289 " <bool dt:dt=\"boolean\">1</bool>\n"
290 " <datetime dt:dt=\"datetime\">2009-11-18T03:21:33.12</datetime>\n"
291 " <datetimetz dt:dt=\"datetime.tz\">2003-07-11T11:13:57+03:00</datetimetz>\n"
292 " <date dt:dt=\"date\">3721-11-01</date>\n"
293 " <time dt:dt=\"time\">13:57:12.31321</time>\n"
294 " <timetz dt:dt=\"time.tz\">23:21:01.13+03:21</timetz>\n"
295 " <i1 dt:dt=\"i1\">-13</i1>\n"
296 " <i2 dt:dt=\"i2\">31915</i2>\n"
297 " <i4 dt:dt=\"i4\">-312232</i4>\n"
298 " <ui1 dt:dt=\"ui1\">123</ui1>\n"
299 " <ui2 dt:dt=\"ui2\">48282</ui2>\n"
300 " <ui4 dt:dt=\"ui4\">949281</ui4>\n"
301 " <r4 dt:dt=\"r4\">213124.0</r4>\n"
302 " <r8 dt:dt=\"r8\">0.412</r8>\n"
303 " <float dt:dt=\"float\">41221.421</float>\n"
304 " <uuid dt:dt=\"uuid\">333C7BC4-460F-11D0-BC04-0080C7055a83</uuid>\n"
305 " <binhex dt:dt=\"bin.hex\">fffca012003c</binhex>\n"
306 " <binbase64 dt:dt=\"bin.base64\">YmFzZTY0IHRlc3Q=</binbase64>\n"
309 static const CHAR szBasicTransformSSXMLPart1[] =
310 "<?xml version=\"1.0\"?>"
311 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
312 "<xsl:output method=\"html\"/>\n"
313 "<xsl:template match=\"/\">"
314 "<HTML><BODY><TABLE>"
315 " <xsl:apply-templates select='document(\"";
317 static const CHAR szBasicTransformSSXMLPart2[] =
319 " <xsl:sort select=\"cost\"/><xsl:sort select=\"name\"/>"
320 " </xsl:apply-templates>"
321 "</TABLE></BODY></HTML>"
323 "<xsl:template match=\"bottle\">"
324 " <TR><xsl:apply-templates select=\"name\" /><xsl:apply-templates select=\"cost\" /></TR>"
326 "<xsl:template match=\"name\">"
327 " <TD><xsl:apply-templates /></TD>"
329 "<xsl:template match=\"cost\">"
330 " <TD><xsl:apply-templates /></TD>"
334 static const CHAR szBasicTransformXML[] =
335 "<?xml version=\"1.0\"?><bottle><wine><name>Wine</name><cost>$25.00</cost></wine></bottle>";
337 static const CHAR szBasicTransformOutput[] =
338 "<HTML><BODY><TABLE><TD>Wine</TD><TD>$25.00</TD></TABLE></BODY></HTML>";
340 #define SZ_EMAIL_DTD \
342 " <!ELEMENT email (recipients,from,reply-to?,subject,body,attachment*)>"\
343 " <!ATTLIST email attachments IDREFS #REQUIRED>"\
344 " <!ATTLIST email sent (yes|no) \"no\">"\
345 " <!ELEMENT recipients (to+,cc*)>"\
346 " <!ELEMENT to (#PCDATA)>"\
347 " <!ATTLIST to name CDATA #IMPLIED>"\
348 " <!ELEMENT cc (#PCDATA)>"\
349 " <!ATTLIST cc name CDATA #IMPLIED>"\
350 " <!ELEMENT from (#PCDATA)>"\
351 " <!ATTLIST from name CDATA #IMPLIED>"\
352 " <!ELEMENT reply-to (#PCDATA)>"\
353 " <!ATTLIST reply-to name CDATA #IMPLIED>"\
354 " <!ELEMENT subject ANY>"\
355 " <!ELEMENT body ANY>"\
356 " <!ATTLIST body enc CDATA #FIXED \"UTF-8\">"\
357 " <!ELEMENT attachment (#PCDATA)>"\
358 " <!ATTLIST attachment id ID #REQUIRED>"\
361 static const CHAR szEmailXML[] =
362 "<?xml version=\"1.0\"?>"
364 "<email attachments=\"patch1\">"
366 " <to>wine-patches@winehq.org</to>"
368 " <from name=\"Anonymous\">user@localhost</from>"
369 " <subject>msxml3/tests: DTD validation (try 87)</subject>"
371 " It no longer causes spontaneous combustion..."
373 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
376 static const CHAR szEmailXML_0D[] =
377 "<?xml version=\"1.0\"?>"
379 "<email attachments=\"patch1\">"
381 " <to>wine-patches@winehq.org</to>"
383 " <from name=\"Anonymous\">user@localhost</from>"
384 " <subject>msxml3/tests: DTD validation (try 88)</subject>"
387 " XML_ELEMENT_UNDECLARED 0xC00CE00D"
389 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
392 static const CHAR szEmailXML_0E[] =
393 "<?xml version=\"1.0\"?>"
395 "<email attachments=\"patch1\">"
397 " <to>wine-patches@winehq.org</to>"
399 " <from name=\"Anonymous\">user@localhost</from>"
400 " <subject>msxml3/tests: DTD validation (try 89)</subject>"
402 " XML_ELEMENT_ID_NOT_FOUND 0xC00CE00E"
404 " <attachment id=\"patch\">0001-msxml3-tests-DTD-validation.patch</attachment>"
407 static const CHAR szEmailXML_11[] =
408 "<?xml version=\"1.0\"?>"
410 "<email attachments=\"patch1\">"
413 " <from name=\"Anonymous\">user@localhost</from>"
414 " <subject>msxml3/tests: DTD validation (try 90)</subject>"
416 " XML_EMPTY_NOT_ALLOWED 0xC00CE011"
418 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
421 static const CHAR szEmailXML_13[] =
422 "<?xml version=\"1.0\"?>"
424 "<msg attachments=\"patch1\">"
426 " <to>wine-patches@winehq.org</to>"
428 " <from name=\"Anonymous\">user@localhost</from>"
429 " <subject>msxml3/tests: DTD validation (try 91)</subject>"
431 " XML_ROOT_NAME_MISMATCH 0xC00CE013"
433 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
436 static const CHAR szEmailXML_14[] =
437 "<?xml version=\"1.0\"?>"
439 "<email attachments=\"patch1\">"
440 " <to>wine-patches@winehq.org</to>"
441 " <from name=\"Anonymous\">user@localhost</from>"
442 " <subject>msxml3/tests: DTD validation (try 92)</subject>"
444 " XML_INVALID_CONTENT 0xC00CE014"
446 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
449 static const CHAR szEmailXML_15[] =
450 "<?xml version=\"1.0\"?>"
452 "<email attachments=\"patch1\" ip=\"127.0.0.1\">"
454 " <to>wine-patches@winehq.org</to>"
456 " <from name=\"Anonymous\">user@localhost</from>"
457 " <subject>msxml3/tests: DTD validation (try 93)</subject>"
459 " XML_ATTRIBUTE_NOT_DEFINED 0xC00CE015"
461 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
464 static const CHAR szEmailXML_16[] =
465 "<?xml version=\"1.0\"?>"
467 "<email attachments=\"patch1\">"
469 " <to>wine-patches@winehq.org</to>"
471 " <from name=\"Anonymous\">user@localhost</from>"
472 " <subject>msxml3/tests: DTD validation (try 94)</subject>"
473 " <body enc=\"ASCII\">"
474 " XML_ATTRIBUTE_FIXED 0xC00CE016"
476 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
479 static const CHAR szEmailXML_17[] =
480 "<?xml version=\"1.0\"?>"
482 "<email attachments=\"patch1\" sent=\"true\">"
484 " <to>wine-patches@winehq.org</to>"
486 " <from name=\"Anonymous\">user@localhost</from>"
487 " <subject>msxml3/tests: DTD validation (try 95)</subject>"
489 " XML_ATTRIBUTE_VALUE 0xC00CE017"
491 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
494 static const CHAR szEmailXML_18[] =
495 "<?xml version=\"1.0\"?>"
497 "<email attachments=\"patch1\">"
500 " <to>wine-patches@winehq.org</to>"
502 " <from name=\"Anonymous\">user@localhost</from>"
503 " <subject>msxml3/tests: DTD validation (try 96)</subject>"
505 " XML_ILLEGAL_TEXT 0xC00CE018"
507 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
510 static const CHAR szEmailXML_20[] =
511 "<?xml version=\"1.0\"?>"
515 " <to>wine-patches@winehq.org</to>"
517 " <from name=\"Anonymous\">user@localhost</from>"
518 " <subject>msxml3/tests: DTD validation (try 97)</subject>"
520 " XML_REQUIRED_ATTRIBUTE_MISSING 0xC00CE020"
522 " <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
525 static const WCHAR szNonExistentFile[] = {
526 'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
528 static const WCHAR szNonExistentAttribute[] = {
529 'n','o','n','E','x','i','s','i','t','i','n','g','A','t','t','r','i','b','u','t','e',0
531 static const WCHAR szDocument[] = {
532 '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
535 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
536 static WCHAR szdl[] = { 'd','l',0 };
537 static const WCHAR szvr[] = { 'v','r',0 };
538 static const WCHAR szlc[] = { 'l','c',0 };
539 static WCHAR szbs[] = { 'b','s',0 };
540 static const WCHAR szstr1[] = { 's','t','r','1',0 };
541 static const WCHAR szstr2[] = { 's','t','r','2',0 };
542 static const WCHAR szstar[] = { '*',0 };
543 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
545 static WCHAR szComment[] = {'A',' ','C','o','m','m','e','n','t',0 };
546 static WCHAR szCommentXML[] = {'<','!','-','-','A',' ','C','o','m','m','e','n','t','-','-','>',0 };
547 static WCHAR szCommentNodeText[] = {'#','c','o','m','m','e','n','t',0 };
549 static WCHAR szElement[] = {'E','l','e','T','e','s','t', 0 };
550 static WCHAR szElementXML[] = {'<','E','l','e','T','e','s','t','/','>',0 };
551 static WCHAR szElementXML2[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','/','>',0 };
552 static WCHAR szElementXML3[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
553 'T','e','s','t','i','n','g','N','o','d','e','<','/','E','l','e','T','e','s','t','>',0 };
554 static WCHAR szElementXML4[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
555 '&','a','m','p',';','x',' ',0x2103,'<','/','E','l','e','T','e','s','t','>',0 };
557 static WCHAR szAttribute[] = {'A','t','t','r',0 };
558 static WCHAR szAttributeXML[] = {'A','t','t','r','=','"','"',0 };
560 static WCHAR szCData[] = {'[','1',']','*','2','=','3',';',' ','&','g','e','e',' ','t','h','a','t','s',
561 ' ','n','o','t',' ','r','i','g','h','t','!', 0};
562 static WCHAR szCDataXML[] = {'<','!','[','C','D','A','T','A','[','[','1',']','*','2','=','3',';',' ','&',
563 'g','e','e',' ','t','h','a','t','s',' ','n','o','t',' ','r','i','g','h','t',
565 static WCHAR szCDataNodeText[] = {'#','c','d','a','t','a','-','s','e','c','t','i','o','n',0 };
566 static WCHAR szDocFragmentText[] = {'#','d','o','c','u','m','e','n','t','-','f','r','a','g','m','e','n','t',0 };
568 static WCHAR szEntityRef[] = {'e','n','t','i','t','y','r','e','f',0 };
569 static WCHAR szEntityRefXML[] = {'&','e','n','t','i','t','y','r','e','f',';',0 };
570 static WCHAR szStrangeChars[] = {'&','x',' ',0x2103, 0};
572 #define expect_bstr_eq_and_free(bstr, expect) { \
573 BSTR bstrExp = alloc_str_from_narrow(expect); \
574 ok(lstrcmpW(bstr, bstrExp) == 0, "String differs\n"); \
575 SysFreeString(bstr); \
576 SysFreeString(bstrExp); \
579 #define expect_eq(expr, value, type, format) { type ret = (expr); ok((value) == ret, #expr " expected " format " got " format "\n", value, ret); }
581 #define ole_check(expr) { \
583 ok(r == S_OK, #expr " returned %x\n", r); \
586 #define ole_expect(expr, expect) { \
588 ok(r == (expect), #expr " returned %x, expected %x\n", r, expect); \
591 #define double_eq(x, y) ok((x)-(y)<=1e-14*(x) && (x)-(y)>=-1e-14*(x), "expected %.16g, got %.16g\n", x, y)
593 static void* _create_document(const IID *iid, int line)
598 hr = CoCreateInstance( &CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, iid, (void**)&doc );
599 ok_(__FILE__,line)( hr == S_OK, "failed to create CLSID_DOMDocument instance: 0x%08x\n", hr );
604 #define create_document(iid) _create_document(iid, __LINE__)
606 static BSTR alloc_str_from_narrow(const char *str)
608 int len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
609 BSTR ret = SysAllocStringLen(NULL, len - 1); /* NUL character added automatically */
610 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
614 static BSTR alloced_bstrs[256];
615 static int alloced_bstrs_count;
617 static BSTR _bstr_(const char *str)
619 assert(alloced_bstrs_count < sizeof(alloced_bstrs)/sizeof(alloced_bstrs[0]));
620 alloced_bstrs[alloced_bstrs_count] = alloc_str_from_narrow(str);
621 return alloced_bstrs[alloced_bstrs_count++];
624 static void free_bstrs(void)
627 for (i = 0; i < alloced_bstrs_count; i++)
628 SysFreeString(alloced_bstrs[i]);
629 alloced_bstrs_count = 0;
632 static VARIANT _variantbstr_(const char *str)
636 V_BSTR(&v) = _bstr_(str);
640 static BOOL compareIgnoreReturns(BSTR sLeft, BSTR sRight)
644 while (*sLeft == '\r' || *sLeft == '\n') sLeft++;
645 while (*sRight == '\r' || *sRight == '\n') sRight++;
646 if (*sLeft != *sRight) return FALSE;
647 if (!*sLeft) return TRUE;
653 static BOOL compareIgnoreReturnsWhitespace(BSTR sLeft, BSTR sRight)
655 /* MSXML3 inserts whitespace where as libxml doesn't. */
658 while (*sLeft == '\r' || *sLeft == '\n' || *sLeft == ' ') sLeft++;
659 while (*sRight == '\r' || *sRight == '\n' || *sRight == ' ') sRight++;
660 if (*sLeft != *sRight) return FALSE;
661 if (!*sLeft) return TRUE;
667 static void get_str_for_type(DOMNodeType type, char *buf)
684 wsprintfA(buf, "[%d]", type);
688 #define test_disp(u) _test_disp(__LINE__,u)
689 static void _test_disp(unsigned line, IUnknown *unk)
691 DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
699 hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
700 ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
705 hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
706 ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
707 ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
709 sName = SysAllocString( szstar );
710 hres = IDispatchEx_DeleteMemberByName(dispex, sName, fdexNameCaseSensitive);
711 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
712 SysFreeString( sName );
714 hres = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
715 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
717 hres = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &dwProps);
718 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
719 ok(dwProps == 0, "expected 0 got %d\n", dwProps);
721 hres = IDispatchEx_GetMemberName(dispex, dispid, &sName);
722 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
724 SysFreeString(sName);
726 hres = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
727 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
729 hres = IDispatchEx_GetNameSpaceParent(dispex, &pUnk);
730 ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
731 if(hres == S_OK && pUnk)
732 IUnknown_Release(pUnk);
734 IDispatchEx_Release(dispex);
737 static int get_node_position(IXMLDOMNode *node)
742 IXMLDOMNode_AddRef(node);
745 IXMLDOMNode *new_node;
748 r = IXMLDOMNode_get_previousSibling(node, &new_node);
749 ok(SUCCEEDED(r), "get_previousSibling failed\n");
750 IXMLDOMNode_Release(node);
756 static void node_to_string(IXMLDOMNode *node, char *buf)
763 lstrcpyA(buf, "(null)");
767 IXMLDOMNode_AddRef(node);
770 IXMLDOMNode *new_node;
772 ole_check(IXMLDOMNode_get_nodeType(node, &type));
773 get_str_for_type(type, buf);
776 if (type == NODE_ATTRIBUTE)
779 ole_check(IXMLDOMNode_get_nodeName(node, &bstr));
781 wsprintfA(buf, "%ws", bstr);
786 r = IXMLDOMNode_selectSingleNode(node, _bstr_(".."), &new_node);
790 r = IXMLDOMNode_get_parentNode(node, &new_node);
791 wsprintf(buf, "%d", get_node_position(node));
795 ok(SUCCEEDED(r), "get_parentNode failed (%08x)\n", r);
796 IXMLDOMNode_Release(node);
805 static char *list_to_string(IXMLDOMNodeList *list)
807 static char buf[4096];
814 lstrcpyA(buf, "(null)");
817 ole_check(IXMLDOMNodeList_get_length(list, &len));
818 for (i = 0; i < len; i++)
823 ole_check(IXMLDOMNodeList_nextNode(list, &node));
824 node_to_string(node, pos);
826 IXMLDOMNode_Release(node);
832 #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); }
833 #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); }
835 static void test_domdoc( void )
838 IXMLDOMDocument *doc;
839 IXMLDOMParseError *error;
840 IXMLDOMElement *element = NULL;
842 IXMLDOMText *nodetext = NULL;
843 IXMLDOMComment *node_comment = NULL;
844 IXMLDOMAttribute *node_attr = NULL;
845 IXMLDOMNode *nodeChild = NULL;
846 IXMLDOMProcessingInstruction *nodePI = NULL;
847 ISupportErrorInfo *support_error = NULL;
855 doc = create_document(&IID_IXMLDOMDocument);
858 test_disp((IUnknown*)doc);
862 /* crashes on native */
863 r = IXMLDOMDocument_loadXML( doc, (BSTR)0x1, NULL );
866 /* try some stupid things */
867 r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
868 ok( r == S_FALSE, "loadXML succeeded\n");
871 r = IXMLDOMDocument_loadXML( doc, NULL, &b );
872 ok( r == S_FALSE, "loadXML succeeded\n");
873 ok( b == VARIANT_FALSE, "failed to load XML string\n");
875 /* try to load a document from a nonexistent file */
877 str = SysAllocString( szNonExistentFile );
879 V_VT(&var) = VT_BSTR;
882 r = IXMLDOMDocument_load( doc, var, &b);
883 ok( r == S_FALSE, "loadXML succeeded\n");
884 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
885 SysFreeString( str );
887 /* try load an empty document */
889 str = SysAllocString( szEmpty );
890 r = IXMLDOMDocument_loadXML( doc, str, &b );
891 ok( r == S_FALSE, "loadXML succeeded\n");
892 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
893 SysFreeString( str );
895 r = IXMLDOMDocument_get_async( doc, &b );
896 ok( r == S_OK, "get_async failed (%08x)\n", r);
897 ok( b == VARIANT_TRUE, "Wrong default value\n");
899 /* check that there's no document element */
901 r = IXMLDOMDocument_get_documentElement( doc, &element );
902 ok( r == S_FALSE, "should be no document element\n");
904 /* try finding a node */
906 str = SysAllocString( szstr1 );
907 r = IXMLDOMDocument_selectSingleNode( doc, str, &node );
908 ok( r == S_FALSE, "ret %08x\n", r );
909 SysFreeString( str );
912 str = SysAllocString( szIncomplete );
913 r = IXMLDOMDocument_loadXML( doc, str, &b );
914 ok( r == S_FALSE, "loadXML succeeded\n");
915 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
916 SysFreeString( str );
918 /* check that there's no document element */
919 element = (IXMLDOMElement*)1;
920 r = IXMLDOMDocument_get_documentElement( doc, &element );
921 ok( r == S_FALSE, "should be no document element\n");
922 ok( element == NULL, "Element should be NULL\n");
924 /* test for BSTR handling, pass broken BSTR */
925 memcpy(&buff[2], szComplete1, sizeof(szComplete1));
926 /* just a big length */
927 *(DWORD*)buff = 0xf0f0;
929 r = IXMLDOMDocument_loadXML( doc, &buff[2], &b );
930 ok( r == S_OK, "loadXML failed\n");
931 ok( b == VARIANT_TRUE, "failed to load XML string\n");
933 /* loadXML ignores the encoding attribute and always expects Unicode */
935 str = SysAllocString( szComplete6 );
936 r = IXMLDOMDocument_loadXML( doc, str, &b );
937 ok( r == S_OK, "loadXML failed\n");
938 ok( b == VARIANT_TRUE, "failed to load XML string\n");
939 SysFreeString( str );
941 /* try a BSTR containing a Windows-1252 document */
943 str = SysAllocStringByteLen( szNonUnicodeXML, sizeof(szNonUnicodeXML) - 1 );
944 r = IXMLDOMDocument_loadXML( doc, str, &b );
945 ok( r == S_FALSE, "loadXML succeeded\n");
946 ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
947 SysFreeString( str );
949 /* try to load something valid */
951 str = SysAllocString( szComplete1 );
952 r = IXMLDOMDocument_loadXML( doc, str, &b );
953 ok( r == S_OK, "loadXML failed\n");
954 ok( b == VARIANT_TRUE, "failed to load XML string\n");
955 SysFreeString( str );
957 /* check if nodename is correct */
958 r = IXMLDOMDocument_get_nodeName( doc, NULL );
959 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
961 str = (BSTR)0xdeadbeef;
962 r = IXMLDOMDocument_get_baseName( doc, &str );
963 ok ( r == S_FALSE, "got 0x%08x\n", r);
964 ok (str == NULL, "got %p\n", str);
966 /* content doesn't matter here */
968 r = IXMLDOMDocument_get_nodeName( doc, &str );
969 ok ( r == S_OK, "get_nodeName wrong code\n");
970 ok ( str != NULL, "str is null\n");
971 ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
972 SysFreeString( str );
975 r = IXMLDOMDocument_put_text( doc, _bstr_("Should Fail") );
976 ok( r == E_FAIL, "ret %08x\n", r );
978 /* check that there's a document element */
980 r = IXMLDOMDocument_get_documentElement( doc, &element );
981 ok( r == S_OK, "should be a document element\n");
984 IObjectIdentity *ident;
987 test_disp((IUnknown*)element);
989 r = IXMLDOMElement_QueryInterface( element, &IID_IObjectIdentity, (void**)&ident );
990 ok( r == E_NOINTERFACE, "ret %08x\n", r);
992 r = IXMLDOMElement_get_tagName( element, NULL );
993 ok( r == E_INVALIDARG, "ret %08x\n", r);
995 /* check if the tag is correct */
996 r = IXMLDOMElement_get_tagName( element, &tag );
997 ok( r == S_OK, "couldn't get tag name\n");
998 ok( tag != NULL, "tag was null\n");
999 ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
1000 SysFreeString( tag );
1002 /* figure out what happens if we try to reload the document */
1003 str = SysAllocString( szComplete2 );
1004 r = IXMLDOMDocument_loadXML( doc, str, &b );
1005 ok( r == S_OK, "loadXML failed\n");
1006 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1007 SysFreeString( str );
1009 /* check if the tag is still correct */
1011 r = IXMLDOMElement_get_tagName( element, &tag );
1012 ok( r == S_OK, "couldn't get tag name\n");
1013 ok( tag != NULL, "tag was null\n");
1014 ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
1015 SysFreeString( tag );
1017 IXMLDOMElement_Release( element );
1021 /* as soon as we call loadXML again, the document element will disappear */
1023 r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1024 ok( r == S_FALSE, "loadXML failed\n");
1025 ok( b == 2, "variant modified\n");
1026 r = IXMLDOMDocument_get_documentElement( doc, &element );
1027 ok( r == S_FALSE, "should be no document element\n");
1029 /* try to load something else simple and valid */
1031 str = SysAllocString( szComplete3 );
1032 r = IXMLDOMDocument_loadXML( doc, str, &b );
1033 ok( r == S_OK, "loadXML failed\n");
1034 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1035 SysFreeString( str );
1037 /* try something a little more complicated */
1039 str = SysAllocString( szComplete4 );
1040 r = IXMLDOMDocument_loadXML( doc, str, &b );
1041 ok( r == S_OK, "loadXML failed\n");
1042 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1043 SysFreeString( str );
1045 r = IXMLDOMDocument_get_parseError( doc, &error );
1046 ok( r == S_OK, "returns %08x\n", r );
1048 r = IXMLDOMParseError_get_errorCode( error, &code );
1049 ok( r == S_FALSE, "returns %08x\n", r );
1050 ok( code == 0, "code %d\n", code );
1051 IXMLDOMParseError_Release( error );
1053 /* test createTextNode */
1054 r = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &nodetext);
1055 ok( r == S_OK, "returns %08x\n", r );
1056 IXMLDOMText_Release(nodetext);
1058 str = SysAllocString( szOpen );
1059 r = IXMLDOMDocument_createTextNode(doc, str, NULL);
1060 ok( r == E_INVALIDARG, "returns %08x\n", r );
1061 r = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
1062 ok( r == S_OK, "returns %08x\n", r );
1063 SysFreeString( str );
1066 IXMLDOMNamedNodeMap *pAttribs;
1068 r = IXMLDOMText_QueryInterface(nodetext, &IID_IXMLDOMElement, (void**)&element);
1069 ok(r == E_NOINTERFACE, "ret %08x\n", r );
1071 /* Text Last Child Checks */
1072 r = IXMLDOMText_get_lastChild(nodetext, NULL);
1073 ok(r == E_INVALIDARG, "ret %08x\n", r );
1075 nodeChild = (IXMLDOMNode*)0x1;
1076 r = IXMLDOMText_get_lastChild(nodetext, &nodeChild);
1077 ok(r == S_FALSE, "ret %08x\n", r );
1078 ok(nodeChild == NULL, "nodeChild not NULL\n");
1080 /* test get_attributes */
1081 r = IXMLDOMText_get_attributes( nodetext, NULL );
1082 ok( r == E_INVALIDARG, "get_attributes returned wrong code\n");
1084 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
1085 r = IXMLDOMText_get_attributes( nodetext, &pAttribs);
1086 ok(r == S_FALSE, "ret %08x\n", r );
1087 ok( pAttribs == NULL, "pAttribs not NULL\n");
1089 /* test get_dataType */
1090 r = IXMLDOMText_get_dataType(nodetext, &var);
1091 ok(r == S_FALSE, "ret %08x\n", r );
1092 ok( V_VT(&var) == VT_NULL, "incorrect dataType type\n");
1095 /* test length property */
1096 r = IXMLDOMText_get_length(nodetext, NULL);
1097 ok(r == E_INVALIDARG, "ret %08x\n", r );
1099 r = IXMLDOMText_get_length(nodetext, &nLength);
1100 ok(r == S_OK, "ret %08x\n", r );
1101 ok(nLength == 4, "expected 4 got %d\n", nLength);
1103 /* test nodeTypeString */
1104 r = IXMLDOMText_get_nodeTypeString(nodetext, &str);
1105 ok(r == S_OK, "ret %08x\n", r );
1106 ok( !lstrcmpW( str, _bstr_("text") ), "incorrect nodeTypeString string\n");
1109 /* put data Tests */
1110 r = IXMLDOMText_put_data(nodetext, _bstr_("This &is a ; test <>\\"));
1111 ok(r == S_OK, "ret %08x\n", r );
1113 /* get data Tests */
1114 r = IXMLDOMText_get_data(nodetext, &str);
1115 ok(r == S_OK, "ret %08x\n", r );
1116 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect put_data string\n");
1119 /* Confirm XML text is good */
1120 r = IXMLDOMText_get_xml(nodetext, &str);
1121 ok(r == S_OK, "ret %08x\n", r );
1122 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1125 /* Confirm we get the put_data Text back */
1126 r = IXMLDOMText_get_text(nodetext, &str);
1127 ok(r == S_OK, "ret %08x\n", r );
1128 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1131 /* test substringData */
1132 r = IXMLDOMText_substringData(nodetext, 0, 4, NULL);
1133 ok(r == E_INVALIDARG, "ret %08x\n", r );
1135 /* test substringData - Invalid offset */
1136 str = (BSTR)&szElement;
1137 r = IXMLDOMText_substringData(nodetext, -1, 4, &str);
1138 ok(r == E_INVALIDARG, "ret %08x\n", r );
1139 ok( str == NULL, "incorrect string\n");
1141 /* test substringData - Invalid offset */
1142 str = (BSTR)&szElement;
1143 r = IXMLDOMText_substringData(nodetext, 30, 0, &str);
1144 ok(r == S_FALSE, "ret %08x\n", r );
1145 ok( str == NULL, "incorrect string\n");
1147 /* test substringData - Invalid size */
1148 str = (BSTR)&szElement;
1149 r = IXMLDOMText_substringData(nodetext, 0, -1, &str);
1150 ok(r == E_INVALIDARG, "ret %08x\n", r );
1151 ok( str == NULL, "incorrect string\n");
1153 /* test substringData - Invalid size */
1154 str = (BSTR)&szElement;
1155 r = IXMLDOMText_substringData(nodetext, 2, 0, &str);
1156 ok(r == S_FALSE, "ret %08x\n", r );
1157 ok( str == NULL, "incorrect string\n");
1159 /* test substringData - Start of string */
1160 r = IXMLDOMText_substringData(nodetext, 0, 4, &str);
1161 ok(r == S_OK, "ret %08x\n", r );
1162 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
1165 /* test substringData - Middle of string */
1166 r = IXMLDOMText_substringData(nodetext, 13, 4, &str);
1167 ok(r == S_OK, "ret %08x\n", r );
1168 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
1171 /* test substringData - End of string */
1172 r = IXMLDOMText_substringData(nodetext, 20, 4, &str);
1173 ok(r == S_OK, "ret %08x\n", r );
1174 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
1177 /* test appendData */
1178 r = IXMLDOMText_appendData(nodetext, NULL);
1179 ok(r == S_OK, "ret %08x\n", r );
1181 r = IXMLDOMText_appendData(nodetext, _bstr_(""));
1182 ok(r == S_OK, "ret %08x\n", r );
1184 r = IXMLDOMText_appendData(nodetext, _bstr_("Append"));
1185 ok(r == S_OK, "ret %08x\n", r );
1187 r = IXMLDOMText_get_text(nodetext, &str);
1188 ok(r == S_OK, "ret %08x\n", r );
1189 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1192 /* test insertData */
1193 str = SysAllocStringLen(NULL, 0);
1194 r = IXMLDOMText_insertData(nodetext, -1, str);
1195 ok(r == S_OK, "ret %08x\n", r );
1197 r = IXMLDOMText_insertData(nodetext, -1, NULL);
1198 ok(r == S_OK, "ret %08x\n", r );
1200 r = IXMLDOMText_insertData(nodetext, 1000, str);
1201 ok(r == S_OK, "ret %08x\n", r );
1203 r = IXMLDOMText_insertData(nodetext, 1000, NULL);
1204 ok(r == S_OK, "ret %08x\n", r );
1206 r = IXMLDOMText_insertData(nodetext, 0, NULL);
1207 ok(r == S_OK, "ret %08x\n", r );
1209 r = IXMLDOMText_insertData(nodetext, 0, str);
1210 ok(r == S_OK, "ret %08x\n", r );
1213 r = IXMLDOMText_insertData(nodetext, -1, _bstr_("Inserting"));
1214 ok(r == E_INVALIDARG, "ret %08x\n", r );
1216 r = IXMLDOMText_insertData(nodetext, 1000, _bstr_("Inserting"));
1217 ok(r == E_INVALIDARG, "ret %08x\n", r );
1219 r = IXMLDOMText_insertData(nodetext, 0, _bstr_("Begin "));
1220 ok(r == S_OK, "ret %08x\n", r );
1222 r = IXMLDOMText_insertData(nodetext, 17, _bstr_("Middle"));
1223 ok(r == S_OK, "ret %08x\n", r );
1225 r = IXMLDOMText_insertData(nodetext, 39, _bstr_(" End"));
1226 ok(r == S_OK, "ret %08x\n", r );
1228 r = IXMLDOMText_get_text(nodetext, &str);
1229 ok(r == S_OK, "ret %08x\n", r );
1230 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1234 /* invalid arguments */
1235 r = IXMLDOMText_deleteData(nodetext, -1, 1);
1236 ok(r == E_INVALIDARG, "ret %08x\n", r );
1238 r = IXMLDOMText_deleteData(nodetext, 0, 0);
1239 ok(r == S_OK, "ret %08x\n", r );
1241 r = IXMLDOMText_deleteData(nodetext, 0, -1);
1242 ok(r == E_INVALIDARG, "ret %08x\n", r );
1244 r = IXMLDOMText_get_length(nodetext, &nLength);
1245 ok(r == S_OK, "ret %08x\n", r );
1246 ok(nLength == 43, "expected 43 got %d\n", nLength);
1248 r = IXMLDOMText_deleteData(nodetext, nLength, 1);
1249 ok(r == S_OK, "ret %08x\n", r );
1251 r = IXMLDOMText_deleteData(nodetext, nLength+1, 1);
1252 ok(r == E_INVALIDARG, "ret %08x\n", r );
1254 /* delete from start */
1255 r = IXMLDOMText_deleteData(nodetext, 0, 5);
1256 ok(r == S_OK, "ret %08x\n", r );
1258 r = IXMLDOMText_get_length(nodetext, &nLength);
1259 ok(r == S_OK, "ret %08x\n", r );
1260 ok(nLength == 38, "expected 38 got %d\n", nLength);
1262 r = IXMLDOMText_get_text(nodetext, &str);
1263 ok(r == S_OK, "ret %08x\n", r );
1264 /* whitespace preserving needs to be handled here */
1265 todo_wine ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1268 /* delete from end */
1269 r = IXMLDOMText_deleteData(nodetext, 35, 3);
1270 ok(r == S_OK, "ret %08x\n", r );
1272 r = IXMLDOMText_get_length(nodetext, &nLength);
1273 ok(r == S_OK, "ret %08x\n", r );
1274 ok(nLength == 35, "expected 35 got %d\n", nLength);
1276 r = IXMLDOMText_get_text(nodetext, &str);
1277 ok(r == S_OK, "ret %08x\n", r );
1278 todo_wine ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1281 /* delete from inside */
1282 r = IXMLDOMText_deleteData(nodetext, 1, 33);
1283 ok(r == S_OK, "ret %08x\n", r );
1285 r = IXMLDOMText_get_length(nodetext, &nLength);
1286 ok(r == S_OK, "ret %08x\n", r );
1287 ok(nLength == 2, "expected 2 got %d\n", nLength);
1289 r = IXMLDOMText_get_text(nodetext, &str);
1290 ok(r == S_OK, "ret %08x\n", r );
1291 todo_wine ok( !lstrcmpW( str, _bstr_("") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1294 /* delete whole data ... */
1295 r = IXMLDOMText_get_length(nodetext, &nLength);
1296 ok(r == S_OK, "ret %08x\n", r );
1298 r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1299 ok(r == S_OK, "ret %08x\n", r );
1300 /* ... and try again with empty string */
1301 r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1302 ok(r == S_OK, "ret %08x\n", r );
1305 V_VT(&var) = VT_BSTR;
1306 V_BSTR(&var) = SysAllocString(szstr1);
1307 r = IXMLDOMText_put_nodeValue(nodetext, var);
1308 ok(r == S_OK, "ret %08x\n", r );
1311 r = IXMLDOMText_get_text(nodetext, &str);
1312 ok(r == S_OK, "ret %08x\n", r );
1313 ok( !lstrcmpW( str, szstr1 ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1319 r = IXMLDOMText_put_nodeValue(nodetext, var);
1320 ok(r == S_OK, "ret %08x\n", r );
1323 r = IXMLDOMText_get_text(nodetext, &str);
1324 ok(r == S_OK, "ret %08x\n", r );
1325 ok( !lstrcmpW( str, _bstr_("99") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1328 /* ::replaceData() */
1329 V_VT(&var) = VT_BSTR;
1330 V_BSTR(&var) = SysAllocString(szstr1);
1331 r = IXMLDOMText_put_nodeValue(nodetext, var);
1332 ok(r == S_OK, "ret %08x\n", r );
1335 r = IXMLDOMText_replaceData(nodetext, 6, 0, NULL);
1336 ok(r == E_INVALIDARG, "ret %08x\n", r );
1337 r = IXMLDOMText_get_text(nodetext, &str);
1338 ok(r == S_OK, "ret %08x\n", r );
1339 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1342 r = IXMLDOMText_replaceData(nodetext, 0, 0, NULL);
1343 ok(r == S_OK, "ret %08x\n", r );
1344 r = IXMLDOMText_get_text(nodetext, &str);
1345 ok(r == S_OK, "ret %08x\n", r );
1346 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1349 /* NULL pointer means delete */
1350 r = IXMLDOMText_replaceData(nodetext, 0, 1, NULL);
1351 ok(r == S_OK, "ret %08x\n", r );
1352 r = IXMLDOMText_get_text(nodetext, &str);
1353 ok(r == S_OK, "ret %08x\n", r );
1354 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1357 /* empty string means delete */
1358 r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_(""));
1359 ok(r == S_OK, "ret %08x\n", r );
1360 r = IXMLDOMText_get_text(nodetext, &str);
1361 ok(r == S_OK, "ret %08x\n", r );
1362 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1365 /* zero count means insert */
1366 r = IXMLDOMText_replaceData(nodetext, 0, 0, _bstr_("a"));
1367 ok(r == S_OK, "ret %08x\n", r );
1368 r = IXMLDOMText_get_text(nodetext, &str);
1369 ok(r == S_OK, "ret %08x\n", r );
1370 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1373 r = IXMLDOMText_replaceData(nodetext, 0, 2, NULL);
1374 ok(r == S_OK, "ret %08x\n", r );
1376 r = IXMLDOMText_insertData(nodetext, 0, _bstr_("m"));
1377 ok(r == S_OK, "ret %08x\n", r );
1378 r = IXMLDOMText_get_text(nodetext, &str);
1379 ok(r == S_OK, "ret %08x\n", r );
1380 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1383 /* nonempty string, count greater than its length */
1384 r = IXMLDOMText_replaceData(nodetext, 0, 2, _bstr_("a1.2"));
1385 ok(r == S_OK, "ret %08x\n", r );
1386 r = IXMLDOMText_get_text(nodetext, &str);
1387 ok(r == S_OK, "ret %08x\n", r );
1388 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1391 /* nonempty string, count less than its length */
1392 r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_("wine"));
1393 ok(r == S_OK, "ret %08x\n", r );
1394 r = IXMLDOMText_get_text(nodetext, &str);
1395 ok(r == S_OK, "ret %08x\n", r );
1396 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1399 IXMLDOMText_Release( nodetext );
1402 /* test Create Comment */
1403 r = IXMLDOMDocument_createComment(doc, NULL, NULL);
1404 ok( r == E_INVALIDARG, "returns %08x\n", r );
1405 node_comment = (IXMLDOMComment*)0x1;
1408 r = IXMLDOMDocument_createComment(doc, _bstr_(""), &node_comment);
1409 ok( r == S_OK, "returns %08x\n", r );
1411 r = IXMLDOMComment_get_data(node_comment, &str);
1412 ok( r == S_OK, "returns %08x\n", r );
1413 ok( str && SysStringLen(str) == 0, "expected empty string data\n");
1414 IXMLDOMComment_Release(node_comment);
1417 r = IXMLDOMDocument_createComment(doc, NULL, &node_comment);
1418 ok( r == S_OK, "returns %08x\n", r );
1420 r = IXMLDOMComment_get_data(node_comment, &str);
1421 ok( r == S_OK, "returns %08x\n", r );
1422 ok( str && (SysStringLen(str) == 0), "expected empty string data\n");
1423 IXMLDOMComment_Release(node_comment);
1426 str = SysAllocString(szComment);
1427 r = IXMLDOMDocument_createComment(doc, str, &node_comment);
1429 ok( r == S_OK, "returns %08x\n", r );
1432 /* Last Child Checks */
1433 r = IXMLDOMComment_get_lastChild(node_comment, NULL);
1434 ok(r == E_INVALIDARG, "ret %08x\n", r );
1436 nodeChild = (IXMLDOMNode*)0x1;
1437 r = IXMLDOMComment_get_lastChild(node_comment, &nodeChild);
1438 ok(r == S_FALSE, "ret %08x\n", r );
1439 ok(nodeChild == NULL, "pLastChild not NULL\n");
1442 str = (BSTR)0xdeadbeef;
1443 IXMLDOMComment_get_baseName(node_comment, &str);
1444 ok(r == S_FALSE, "ret %08x\n", r );
1445 ok(str == NULL, "Expected NULL\n");
1447 IXMLDOMComment_Release( node_comment );
1450 /* test Create Attribute */
1451 str = SysAllocString(szAttribute);
1452 r = IXMLDOMDocument_createAttribute(doc, NULL, NULL);
1453 ok( r == E_INVALIDARG, "returns %08x\n", r );
1454 r = IXMLDOMDocument_createAttribute(doc, str, &node_attr);
1455 ok( r == S_OK, "returns %08x\n", r );
1456 IXMLDOMText_Release( node_attr);
1459 /* test Processing Instruction */
1460 str = SysAllocStringLen(NULL, 0);
1461 r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, NULL);
1462 ok( r == E_INVALIDARG, "returns %08x\n", r );
1463 r = IXMLDOMDocument_createProcessingInstruction(doc, NULL, str, &nodePI);
1464 ok( r == E_FAIL, "returns %08x\n", r );
1465 r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, &nodePI);
1466 ok( r == E_FAIL, "returns %08x\n", r );
1469 r = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"), _bstr_("version=\"1.0\""), &nodePI);
1470 ok( r == S_OK, "returns %08x\n", r );
1473 /* Last Child Checks */
1474 r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, NULL);
1475 ok(r == E_INVALIDARG, "ret %08x\n", r );
1477 nodeChild = (IXMLDOMNode*)0x1;
1478 r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, &nodeChild);
1479 ok(r == S_FALSE, "ret %08x\n", r );
1480 ok(nodeChild == NULL, "nodeChild not NULL\n");
1482 r = IXMLDOMProcessingInstruction_get_dataType(nodePI, &var);
1483 ok(r == S_FALSE, "ret %08x\n", r );
1484 ok( V_VT(&var) == VT_NULL, "incorrect dataType type\n");
1488 r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1489 ok(r == S_OK, "ret %08x\n", r );
1490 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1495 r = IXMLDOMProcessingInstruction_get_baseName(nodePI, &str);
1496 ok(r == S_OK, "ret %08x\n", r );
1497 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1501 r = IXMLDOMProcessingInstruction_get_target(nodePI, &str);
1502 ok(r == S_OK, "ret %08x\n", r );
1503 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect target string\n");
1506 /* test nodeTypeString */
1507 r = IXMLDOMProcessingInstruction_get_nodeTypeString(nodePI, &str);
1508 ok(r == S_OK, "ret %08x\n", r );
1509 ok( !lstrcmpW( str, _bstr_("processinginstruction") ), "incorrect nodeTypeString string\n");
1512 /* test get_nodeValue */
1513 r = IXMLDOMProcessingInstruction_get_nodeValue(nodePI, &var);
1514 ok(r == S_OK, "ret %08x\n", r );
1515 ok( !lstrcmpW( V_BSTR(&var), _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1519 r = IXMLDOMProcessingInstruction_get_data(nodePI, &str);
1520 ok(r == S_OK, "ret %08x\n", r );
1521 ok( !lstrcmpW( str, _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1525 r = IXMLDOMProcessingInstruction_put_data(nodePI, _bstr_("version=\"1.0\" encoding=\"UTF-8\""));
1526 ok(r == E_FAIL, "ret %08x\n", r );
1529 V_VT(&var) = VT_BSTR;
1530 V_BSTR(&var) = SysAllocString(szOpen); /* Doesn't matter what the string is, cannot set an xml node. */
1531 r = IXMLDOMProcessingInstruction_put_nodeValue(nodePI, var);
1532 ok(r == E_FAIL, "ret %08x\n", r );
1535 /* test get nodeName */
1536 r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1537 ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1538 ok(r == S_OK, "ret %08x\n", r );
1541 IXMLDOMProcessingInstruction_Release(nodePI);
1544 r = IXMLDOMDocument_QueryInterface( doc, &IID_ISupportErrorInfo, (void**)&support_error );
1545 ok( r == S_OK, "ret %08x\n", r );
1548 r = ISupportErrorInfo_InterfaceSupportsErrorInfo( support_error, &IID_IXMLDOMDocument );
1549 todo_wine ok( r == S_OK, "ret %08x\n", r );
1550 ISupportErrorInfo_Release( support_error );
1553 r = IXMLDOMDocument_Release( doc );
1554 ok( r == 0, "document ref count incorrect\n");
1559 static void test_persiststreaminit(void)
1561 IXMLDOMDocument *doc;
1562 IPersistStreamInit *streaminit;
1565 doc = create_document(&IID_IXMLDOMDocument);
1568 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&streaminit);
1569 ok( hr == S_OK, "failed with 0x%08x\n", hr );
1571 hr = IPersistStreamInit_InitNew(streaminit);
1572 ok( hr == S_OK, "failed with 0x%08x\n", hr );
1574 IXMLDOMDocument_Release(doc);
1577 static void test_domnode( void )
1580 IXMLDOMDocument *doc, *owner = NULL;
1581 IXMLDOMElement *element = NULL;
1582 IXMLDOMNamedNodeMap *map = NULL;
1583 IXMLDOMNode *node = NULL, *next = NULL;
1584 IXMLDOMNodeList *list = NULL;
1585 IXMLDOMAttribute *attr = NULL;
1586 DOMNodeType type = NODE_INVALID;
1592 doc = create_document(&IID_IXMLDOMDocument);
1596 str = SysAllocString( szComplete4 );
1597 r = IXMLDOMDocument_loadXML( doc, str, &b );
1598 ok( r == S_OK, "loadXML failed\n");
1599 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1600 SysFreeString( str );
1603 r = IXMLDOMNode_hasChildNodes( doc, &b );
1604 ok( r == S_OK, "hasChildNoes bad return\n");
1605 ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1607 r = IXMLDOMDocument_get_documentElement( doc, &element );
1608 ok( r == S_OK, "should be a document element\n");
1609 ok( element != NULL, "should be an element\n");
1612 ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1614 r = IXMLDOMNode_get_nodeValue( doc, NULL );
1615 ok(r == E_INVALIDARG, "get_nodeValue ret %08x\n", r );
1617 r = IXMLDOMNode_get_nodeValue( doc, &var );
1618 ok( r == S_FALSE, "nextNode returned wrong code\n");
1619 ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1620 ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1625 r = IXMLDOMNode_get_ownerDocument( element, &owner );
1626 ok( r == S_OK, "get_ownerDocument return code\n");
1627 ok( owner != doc, "get_ownerDocument return\n");
1628 IXMLDOMDocument_Release(owner);
1630 type = NODE_INVALID;
1631 r = IXMLDOMNode_get_nodeType( element, &type);
1632 ok( r == S_OK, "got %08x\n", r);
1633 ok( type == NODE_ELEMENT, "node not an element\n");
1636 r = IXMLDOMNode_get_baseName( element, &str );
1637 ok( r == S_OK, "get_baseName returned wrong code\n");
1638 ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
1641 /* check if nodename is correct */
1642 r = IXMLDOMElement_get_nodeName( element, NULL );
1643 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1645 /* content doesn't matter here */
1647 r = IXMLDOMElement_get_nodeName( element, &str );
1648 ok ( r == S_OK, "get_nodeName wrong code\n");
1649 ok ( str != NULL, "str is null\n");
1650 ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
1651 SysFreeString( str );
1653 str = SysAllocString( szNonExistentFile );
1655 V_I4(&var) = 0x1234;
1656 r = IXMLDOMElement_getAttribute( element, str, &var );
1657 ok( r == E_FAIL, "getAttribute ret %08x\n", r );
1658 ok( V_VT(&var) == VT_NULL || V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
1661 r = IXMLDOMElement_getAttributeNode( element, str, NULL);
1662 ok( r == E_FAIL, "getAttributeNode ret %08x\n", r );
1664 attr = (IXMLDOMAttribute*)0xdeadbeef;
1665 r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1666 ok( r == E_FAIL, "getAttributeNode ret %08x\n", r );
1667 ok( attr == NULL, "getAttributeNode ret %p, expected NULL\n", attr );
1668 SysFreeString( str );
1670 attr = (IXMLDOMAttribute*)0xdeadbeef;
1671 str = SysAllocString( szNonExistentAttribute );
1672 r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1673 ok( r == S_FALSE, "getAttributeNode ret %08x\n", r );
1674 ok( attr == NULL, "getAttributeNode ret %p, expected NULL\n", attr );
1675 SysFreeString( str );
1677 str = SysAllocString( szdl );
1679 V_I4(&var) = 0x1234;
1680 r = IXMLDOMElement_getAttribute( element, str, &var );
1681 ok( r == S_OK, "getAttribute ret %08x\n", r );
1682 ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
1683 ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
1684 VariantClear( &var );
1686 r = IXMLDOMElement_getAttribute( element, NULL, &var );
1687 ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1689 r = IXMLDOMElement_getAttribute( element, str, NULL );
1690 ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1693 r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1694 ok( r == S_OK, "GetAttributeNode ret %08x\n", r );
1695 ok( attr != NULL, "getAttributeNode returned NULL\n" );
1698 r = IXMLDOMAttribute_get_parentNode( attr, NULL );
1699 ok( r == E_INVALIDARG, "Expected E_INVALIDARG, ret %08x\n", r );
1701 /* attribute doesn't have a parent in msxml interpretation */
1702 node = (IXMLDOMNode*)0xdeadbeef;
1703 r = IXMLDOMAttribute_get_parentNode( attr, &node );
1704 ok( r == S_FALSE, "Expected S_FALSE, ret %08x\n", r );
1705 ok( node == NULL, "Expected NULL, got %p\n", node );
1707 IXMLDOMAttribute_Release(attr);
1710 SysFreeString( str );
1712 r = IXMLDOMElement_get_attributes( element, &map );
1713 ok( r == S_OK, "get_attributes returned wrong code\n");
1714 ok( map != NULL, "should be attributes\n");
1717 r = IXMLDOMNode_hasChildNodes( element, &b );
1718 ok( r == S_OK, "hasChildNoes bad return\n");
1719 ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1722 ok( FALSE, "no element\n");
1726 ISupportErrorInfo *support_error;
1727 r = IXMLDOMNamedNodeMap_QueryInterface( map, &IID_ISupportErrorInfo, (void**)&support_error );
1728 ok( r == S_OK, "ret %08x\n", r );
1730 r = ISupportErrorInfo_InterfaceSupportsErrorInfo( support_error, &IID_IXMLDOMNamedNodeMap );
1733 ok( r == S_OK, "ret %08x\n", r );
1735 ISupportErrorInfo_Release( support_error );
1737 str = SysAllocString( szdl );
1738 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
1739 ok( r == S_OK, "getNamedItem returned wrong code\n");
1740 ok( node != NULL, "should be attributes\n");
1741 IXMLDOMNode_Release(node);
1742 SysFreeString( str );
1744 str = SysAllocString( szdl );
1745 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, NULL );
1746 ok( r == E_INVALIDARG, "getNamedItem should return E_INVALIDARG\n");
1747 SysFreeString( str );
1749 /* something that isn't in szComplete4 */
1750 str = SysAllocString( szOpen );
1751 node = (IXMLDOMNode *) 1;
1752 r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
1753 ok( r == S_FALSE, "getNamedItem found a node that wasn't there\n");
1754 ok( node == NULL, "getNamedItem should have returned NULL\n");
1755 SysFreeString( str );
1757 /* test indexed access of attributes */
1758 r = IXMLDOMNamedNodeMap_get_length( map, NULL );
1759 ok ( r == E_INVALIDARG, "get_length should return E_INVALIDARG\n");
1761 r = IXMLDOMNamedNodeMap_get_length( map, &count );
1762 ok ( r == S_OK, "get_length wrong code\n");
1763 ok ( count == 1, "get_length != 1\n");
1766 r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
1767 ok ( r == S_FALSE, "get_item (-1) wrong code\n");
1768 ok ( node == NULL, "there is no node\n");
1771 r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
1772 ok ( r == S_FALSE, "get_item (1) wrong code\n");
1773 ok ( node == NULL, "there is no attribute\n");
1776 r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
1777 ok ( r == S_OK, "get_item (0) wrong code\n");
1778 ok ( node != NULL, "should be attribute\n");
1780 r = IXMLDOMNode_get_nodeName( node, NULL );
1781 ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1783 /* content doesn't matter here */
1785 r = IXMLDOMNode_get_nodeName( node, &str );
1786 ok ( r == S_OK, "get_nodeName wrong code\n");
1787 ok ( str != NULL, "str is null\n");
1788 ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
1789 SysFreeString( str );
1791 /* test sequential access of attributes */
1793 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1794 ok ( r == S_OK, "nextNode (first time) wrong code\n");
1795 ok ( node != NULL, "nextNode, should be attribute\n");
1797 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1798 ok ( r != S_OK, "nextNode (second time) wrong code\n");
1799 ok ( node == NULL, "nextNode, there is no attribute\n");
1801 r = IXMLDOMNamedNodeMap_reset( map );
1802 ok ( r == S_OK, "reset should return S_OK\n");
1804 r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1805 ok ( r == S_OK, "nextNode (third time) wrong code\n");
1806 ok ( node != NULL, "nextNode, should be attribute\n");
1809 ok( FALSE, "no map\n");
1813 type = NODE_INVALID;
1814 r = IXMLDOMNode_get_nodeType( node, &type);
1815 ok( r == S_OK, "getNamedItem returned wrong code\n");
1816 ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
1819 r = IXMLDOMNode_get_baseName( node, NULL );
1820 ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
1823 r = IXMLDOMNode_get_baseName( node, &str );
1824 ok( r == S_OK, "get_baseName returned wrong code\n");
1825 ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
1826 SysFreeString( str );
1828 r = IXMLDOMNode_get_nodeValue( node, &var );
1829 ok( r == S_OK, "returns %08x\n", r );
1830 ok( V_VT(&var) == VT_BSTR, "vt %x\n", V_VT(&var));
1831 ok( !lstrcmpW(V_BSTR(&var), szstr1), "nodeValue incorrect\n");
1834 r = IXMLDOMNode_get_childNodes( node, NULL );
1835 ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
1837 r = IXMLDOMNode_get_childNodes( node, &list );
1838 ok( r == S_OK, "get_childNodes returned wrong code\n");
1842 r = IXMLDOMNodeList_nextNode( list, &next );
1843 ok( r == S_OK, "nextNode returned wrong code\n");
1846 ok( FALSE, "no childlist\n");
1851 r = IXMLDOMNode_hasChildNodes( next, &b );
1852 ok( r == S_FALSE, "hasChildNoes bad return\n");
1853 ok( b == VARIANT_FALSE, "hasChildNoes wrong result\n");
1855 type = NODE_INVALID;
1856 r = IXMLDOMNode_get_nodeType( next, &type);
1857 ok( r == S_OK, "getNamedItem returned wrong code\n");
1858 ok( type == NODE_TEXT, "node not text\n");
1861 r = IXMLDOMNode_get_baseName( next, &str );
1862 ok( r == S_FALSE, "get_baseName returned wrong code\n");
1863 ok( str == NULL, "basename was wrong\n");
1867 ok( FALSE, "no next\n");
1870 IXMLDOMNode_Release( next );
1873 IXMLDOMNodeList_Release( list );
1876 IXMLDOMNode_Release( node );
1879 ok( FALSE, "no node\n");
1883 IXMLDOMNamedNodeMap_Release( map );
1885 /* now traverse the tree from the root element */
1888 r = IXMLDOMNode_get_childNodes( element, &list );
1889 ok( r == S_OK, "get_childNodes returned wrong code\n");
1891 /* using get_item for child list doesn't advance the position */
1892 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
1893 expect_node(node, "E2.E2.D1");
1894 IXMLDOMNode_Release(node);
1895 ole_check(IXMLDOMNodeList_nextNode(list, &node));
1896 expect_node(node, "E1.E2.D1");
1897 IXMLDOMNode_Release(node);
1898 ole_check(IXMLDOMNodeList_reset(list));
1900 IXMLDOMNodeList_AddRef(list);
1901 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1");
1902 ole_check(IXMLDOMNodeList_reset(list));
1904 node = (void*)0xdeadbeef;
1905 str = SysAllocString(szdl);
1906 r = IXMLDOMNode_selectSingleNode( element, str, &node );
1908 ok( r == S_FALSE, "ret %08x\n", r );
1909 ok( node == NULL, "node %p\n", node );
1911 str = SysAllocString(szbs);
1912 r = IXMLDOMNode_selectSingleNode( element, str, &node );
1914 ok( r == S_OK, "ret %08x\n", r );
1915 r = IXMLDOMNode_Release( node );
1916 ok( r == 0, "ret %08x\n", r );
1919 ok( FALSE, "no element\n");
1923 r = IXMLDOMNodeList_QueryInterface(list, &IID_IDispatch, NULL);
1924 ok( r == E_INVALIDARG || r == E_POINTER, "ret %08x\n", r );
1926 r = IXMLDOMNodeList_get_item(list, 0, NULL);
1927 ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
1929 r = IXMLDOMNodeList_get_length(list, NULL);
1930 ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
1932 r = IXMLDOMNodeList_get_length( list, &count );
1933 ok( r == S_OK, "get_length returns %08x\n", r );
1934 ok( count == 4, "get_length got %d\n", count );
1936 r = IXMLDOMNodeList_nextNode(list, NULL);
1937 ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
1939 r = IXMLDOMNodeList_nextNode( list, &node );
1940 ok( r == S_OK, "nextNode returned wrong code\n");
1943 ok( FALSE, "no list\n");
1947 type = NODE_INVALID;
1948 r = IXMLDOMNode_get_nodeType( node, &type);
1949 ok( r == S_OK, "getNamedItem returned wrong code\n");
1950 ok( type == NODE_ELEMENT, "node not text\n");
1953 ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1954 r = IXMLDOMNode_get_nodeValue( node, &var );
1955 ok( r == S_FALSE, "nextNode returned wrong code\n");
1956 ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1957 ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1959 r = IXMLDOMNode_hasChildNodes( node, NULL );
1960 ok( r == E_INVALIDARG, "hasChildNoes bad return\n");
1963 r = IXMLDOMNode_hasChildNodes( node, &b );
1964 ok( r == S_OK, "hasChildNoes bad return\n");
1965 ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1968 r = IXMLDOMNode_get_baseName( node, &str );
1969 ok( r == S_OK, "get_baseName returned wrong code\n");
1970 ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
1974 ok( FALSE, "no node\n");
1977 IXMLDOMNode_Release( node );
1979 IXMLDOMNodeList_Release( list );
1981 IXMLDOMElement_Release( element );
1984 str = SysAllocString( szComplete5 );
1985 r = IXMLDOMDocument_loadXML( doc, str, &b );
1986 ok( r == S_OK, "loadXML failed\n");
1987 ok( b == VARIANT_TRUE, "failed to load XML string\n");
1988 SysFreeString( str );
1991 r = IXMLDOMNode_hasChildNodes( doc, &b );
1992 ok( r == S_OK, "hasChildNoes bad return\n");
1993 ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1995 r = IXMLDOMDocument_get_documentElement( doc, &element );
1996 ok( r == S_OK, "should be a document element\n");
1997 ok( element != NULL, "should be an element\n");
2001 static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
2004 /* check if the tag is correct */
2005 r = IXMLDOMElement_get_tagName( element, &tag );
2006 ok( r == S_OK, "couldn't get tag name\n");
2007 ok( tag != NULL, "tag was null\n");
2008 ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
2009 SysFreeString( tag );
2013 IXMLDOMElement_Release( element );
2014 ok(IXMLDOMDocument_Release( doc ) == 0, "document is not destroyed\n");
2017 static void test_refs(void)
2022 IXMLDOMDocument *doc;
2023 IXMLDOMElement *element = NULL;
2024 IXMLDOMNode *node = NULL, *node2;
2025 IXMLDOMNodeList *node_list = NULL;
2027 IUnknown *unk, *unk2;
2029 doc = create_document(&IID_IXMLDOMDocument);
2032 ref = IXMLDOMDocument_Release(doc);
2033 ok( ref == 0, "ref %d\n", ref);
2035 doc = create_document(&IID_IXMLDOMDocument);
2038 str = SysAllocString( szComplete4 );
2039 r = IXMLDOMDocument_loadXML( doc, str, &b );
2040 ok( r == S_OK, "loadXML failed\n");
2041 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2042 SysFreeString( str );
2044 ref = IXMLDOMDocument_AddRef( doc );
2045 ok( ref == 2, "ref %d\n", ref );
2046 ref = IXMLDOMDocument_AddRef( doc );
2047 ok( ref == 3, "ref %d\n", ref );
2048 IXMLDOMDocument_Release( doc );
2049 IXMLDOMDocument_Release( doc );
2051 r = IXMLDOMDocument_get_documentElement( doc, &element );
2052 ok( r == S_OK, "should be a document element\n");
2053 ok( element != NULL, "should be an element\n");
2055 ref = IXMLDOMDocument_AddRef( doc );
2056 ok( ref == 2, "ref %d\n", ref );
2057 IXMLDOMDocument_Release( doc );
2059 r = IXMLDOMElement_get_childNodes( element, &node_list );
2060 ok( r == S_OK, "rets %08x\n", r);
2062 ref = IXMLDOMNodeList_AddRef( node_list );
2063 ok( ref == 2, "ref %d\n", ref );
2064 IXMLDOMNodeList_Release( node_list );
2066 IXMLDOMNodeList_get_item( node_list, 0, &node );
2067 ok( r == S_OK, "rets %08x\n", r);
2069 IXMLDOMNodeList_get_item( node_list, 0, &node2 );
2070 ok( r == S_OK, "rets %08x\n", r);
2072 ref = IXMLDOMNode_AddRef( node );
2073 ok( ref == 2, "ref %d\n", ref );
2074 IXMLDOMNode_Release( node );
2076 ref = IXMLDOMNode_Release( node );
2077 ok( ref == 0, "ref %d\n", ref );
2078 ref = IXMLDOMNode_Release( node2 );
2079 ok( ref == 0, "ref %d\n", ref );
2081 ref = IXMLDOMNodeList_Release( node_list );
2082 ok( ref == 0, "ref %d\n", ref );
2084 ok( node != node2, "node %p node2 %p\n", node, node2 );
2086 ref = IXMLDOMDocument_Release( doc );
2087 ok( ref == 0, "ref %d\n", ref );
2089 ref = IXMLDOMElement_AddRef( element );
2091 ok( ref == 3, "ref %d\n", ref );
2093 IXMLDOMElement_Release( element );
2095 /* IUnknown must be unique however we obtain it */
2096 r = IXMLDOMElement_QueryInterface( element, &IID_IUnknown, (void**)&unk );
2097 ok( r == S_OK, "rets %08x\n", r );
2098 r = IXMLDOMElement_QueryInterface( element, &IID_IXMLDOMNode, (void**)&node );
2099 ok( r == S_OK, "rets %08x\n", r );
2100 r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk2 );
2101 ok( r == S_OK, "rets %08x\n", r );
2102 ok( unk == unk2, "unk %p unk2 %p\n", unk, unk2 );
2104 IUnknown_Release( unk2 );
2105 IUnknown_Release( unk );
2106 IXMLDOMNode_Release( node );
2108 IXMLDOMElement_Release( element );
2112 static void test_create(void)
2114 static const WCHAR szOne[] = {'1',0};
2115 static const WCHAR szOneGarbage[] = {'1','G','a','r','b','a','g','e',0};
2119 IXMLDOMDocument *doc;
2120 IXMLDOMElement *element;
2121 IXMLDOMComment *comment;
2123 IXMLDOMCDATASection *cdata;
2124 IXMLDOMNode *root, *node, *child;
2125 IXMLDOMNamedNodeMap *attr_map;
2130 doc = create_document(&IID_IXMLDOMDocument);
2133 /* types not supported for creation */
2135 V_I1(&var) = NODE_DOCUMENT;
2136 node = (IXMLDOMNode*)0x1;
2137 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2138 ok( r == E_INVALIDARG, "returns %08x\n", r );
2139 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2142 V_I1(&var) = NODE_DOCUMENT_TYPE;
2143 node = (IXMLDOMNode*)0x1;
2144 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2145 ok( r == E_INVALIDARG, "returns %08x\n", r );
2146 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2149 V_I1(&var) = NODE_ENTITY;
2150 node = (IXMLDOMNode*)0x1;
2151 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2152 ok( r == E_INVALIDARG, "returns %08x\n", r );
2153 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2156 V_I1(&var) = NODE_NOTATION;
2157 node = (IXMLDOMNode*)0x1;
2158 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2159 ok( r == E_INVALIDARG, "returns %08x\n", r );
2160 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2164 V_I1(&var) = NODE_COMMENT;
2166 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2167 ok( r == S_OK, "returns %08x\n", r );
2168 ok( node != NULL, "\n");
2170 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2171 ok( r == S_OK, "returns %08x\n", r );
2172 IXMLDOMNode_Release(node);
2175 r = IXMLDOMComment_get_data(comment, &str);
2176 ok( r == S_OK, "returns %08x\n", r );
2177 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2178 IXMLDOMComment_Release(comment);
2181 node = (IXMLDOMNode*)0x1;
2182 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2183 ok( r == S_OK, "returns %08x\n", r );
2185 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2186 ok( r == S_OK, "returns %08x\n", r );
2187 IXMLDOMNode_Release(node);
2190 r = IXMLDOMComment_get_data(comment, &str);
2191 ok( r == S_OK, "returns %08x\n", r );
2192 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2193 IXMLDOMComment_Release(comment);
2196 node = (IXMLDOMNode*)0x1;
2197 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2198 ok( r == S_OK, "returns %08x\n", r );
2200 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2201 ok( r == S_OK, "returns %08x\n", r );
2202 IXMLDOMNode_Release(node);
2205 r = IXMLDOMComment_get_data(comment, &str);
2206 ok( r == S_OK, "returns %08x\n", r );
2207 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2208 IXMLDOMComment_Release(comment);
2213 V_I1(&var) = NODE_TEXT;
2215 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2216 ok( r == S_OK, "returns %08x\n", r );
2217 ok( node != NULL, "\n");
2219 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2220 ok( r == S_OK, "returns %08x\n", r );
2221 IXMLDOMNode_Release(node);
2224 r = IXMLDOMText_get_data(text, &str);
2225 ok( r == S_OK, "returns %08x\n", r );
2226 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2227 IXMLDOMText_Release(text);
2230 node = (IXMLDOMNode*)0x1;
2231 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2232 ok( r == S_OK, "returns %08x\n", r );
2234 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2235 ok( r == S_OK, "returns %08x\n", r );
2236 IXMLDOMNode_Release(node);
2239 r = IXMLDOMText_get_data(text, &str);
2240 ok( r == S_OK, "returns %08x\n", r );
2241 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2242 IXMLDOMText_Release(text);
2245 node = (IXMLDOMNode*)0x1;
2246 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2247 ok( r == S_OK, "returns %08x\n", r );
2249 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2250 ok( r == S_OK, "returns %08x\n", r );
2251 IXMLDOMNode_Release(node);
2254 r = IXMLDOMText_get_data(text, &str);
2255 ok( r == S_OK, "returns %08x\n", r );
2256 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2257 IXMLDOMText_Release(text);
2260 /* NODE_CDATA_SECTION */
2262 V_I1(&var) = NODE_CDATA_SECTION;
2264 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2265 ok( r == S_OK, "returns %08x\n", r );
2266 ok( node != NULL, "\n");
2268 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2269 ok( r == S_OK, "returns %08x\n", r );
2270 IXMLDOMNode_Release(node);
2273 r = IXMLDOMCDATASection_get_data(cdata, &str);
2274 ok( r == S_OK, "returns %08x\n", r );
2275 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2276 IXMLDOMCDATASection_Release(cdata);
2279 node = (IXMLDOMNode*)0x1;
2280 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2281 ok( r == S_OK, "returns %08x\n", r );
2283 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2284 ok( r == S_OK, "returns %08x\n", r );
2285 IXMLDOMNode_Release(node);
2288 r = IXMLDOMCDATASection_get_data(cdata, &str);
2289 ok( r == S_OK, "returns %08x\n", r );
2290 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2291 IXMLDOMCDATASection_Release(cdata);
2294 node = (IXMLDOMNode*)0x1;
2295 r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2296 ok( r == S_OK, "returns %08x\n", r );
2298 r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2299 ok( r == S_OK, "returns %08x\n", r );
2300 IXMLDOMNode_Release(node);
2303 r = IXMLDOMCDATASection_get_data(cdata, &str);
2304 ok( r == S_OK, "returns %08x\n", r );
2305 ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2306 IXMLDOMCDATASection_Release(cdata);
2309 /* NODE_ATTRIBUTE */
2311 V_I1(&var) = NODE_ATTRIBUTE;
2312 node = (IXMLDOMNode*)0x1;
2313 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2314 ok( r == E_FAIL, "returns %08x\n", r );
2315 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2318 V_I1(&var) = NODE_ATTRIBUTE;
2319 node = (IXMLDOMNode*)0x1;
2320 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2321 ok( r == E_FAIL, "returns %08x\n", r );
2322 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2325 V_I1(&var) = NODE_ATTRIBUTE;
2326 str = SysAllocString( szlc );
2327 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2328 ok( r == S_OK, "returns %08x\n", r );
2329 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2332 /* a name is required for attribute, try a BSTR with first null wchar */
2334 V_I1(&var) = NODE_ATTRIBUTE;
2335 str = SysAllocString( szstr1 );
2337 node = (IXMLDOMNode*)0x1;
2338 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2339 ok( r == E_FAIL, "returns %08x\n", r );
2340 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2343 /* NODE_PROCESSING_INSTRUCTION */
2345 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2346 node = (IXMLDOMNode*)0x1;
2347 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2348 ok( r == E_FAIL, "returns %08x\n", r );
2349 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2352 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2353 node = (IXMLDOMNode*)0x1;
2354 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2355 ok( r == E_FAIL, "returns %08x\n", r );
2356 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2359 V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2360 r = IXMLDOMDocument_createNode( doc, var, _bstr_("pi"), NULL, NULL );
2361 ok( r == E_INVALIDARG, "returns %08x\n", r );
2363 /* NODE_ENTITY_REFERENCE */
2365 V_I1(&var) = NODE_ENTITY_REFERENCE;
2366 node = (IXMLDOMNode*)0x1;
2367 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2368 ok( r == E_FAIL, "returns %08x\n", r );
2369 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2372 V_I1(&var) = NODE_ENTITY_REFERENCE;
2373 node = (IXMLDOMNode*)0x1;
2374 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2375 ok( r == E_FAIL, "returns %08x\n", r );
2376 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2380 V_I1(&var) = NODE_ELEMENT;
2381 node = (IXMLDOMNode*)0x1;
2382 r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2383 ok( r == E_FAIL, "returns %08x\n", r );
2384 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2387 V_I1(&var) = NODE_ELEMENT;
2388 node = (IXMLDOMNode*)0x1;
2389 r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2390 ok( r == E_FAIL, "returns %08x\n", r );
2391 ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2394 V_I1(&var) = NODE_ELEMENT;
2395 str = SysAllocString( szlc );
2396 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2397 ok( r == S_OK, "returns %08x\n", r );
2398 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2401 V_I1(&var) = NODE_ELEMENT;
2402 r = IXMLDOMDocument_createNode( doc, var, str, NULL, NULL );
2403 ok( r == E_INVALIDARG, "returns %08x\n", r );
2406 V_R4(&var) = NODE_ELEMENT;
2407 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2408 ok( r == S_OK, "returns %08x\n", r );
2409 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2411 V_VT(&var) = VT_BSTR;
2412 V_BSTR(&var) = SysAllocString( szOne );
2413 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2414 ok( r == S_OK, "returns %08x\n", r );
2415 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2418 V_VT(&var) = VT_BSTR;
2419 V_BSTR(&var) = SysAllocString( szOneGarbage );
2420 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2421 ok( r == E_INVALIDARG, "returns %08x\n", r );
2422 if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2426 V_I4(&var) = NODE_ELEMENT;
2427 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2428 ok( r == S_OK, "returns %08x\n", r );
2429 r = IXMLDOMDocument_appendChild( doc, node, &root );
2430 ok( r == S_OK, "returns %08x\n", r );
2431 ok( node == root, "%p %p\n", node, root );
2433 ref = IXMLDOMNode_AddRef( node );
2434 ok(ref == 3, "ref %d\n", ref);
2435 IXMLDOMNode_Release( node );
2437 ref = IXMLDOMNode_Release( node );
2438 ok(ref == 1, "ref %d\n", ref);
2439 SysFreeString( str );
2442 V_I4(&var) = NODE_ELEMENT;
2443 str = SysAllocString( szbs );
2444 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2445 ok( r == S_OK, "returns %08x\n", r );
2446 SysFreeString( str );
2448 ref = IXMLDOMNode_AddRef( node );
2449 ok(ref == 2, "ref = %d\n", ref);
2450 IXMLDOMNode_Release( node );
2452 r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk );
2453 ok( r == S_OK, "returns %08x\n", r );
2455 ref = IXMLDOMNode_AddRef( unk );
2456 ok(ref == 3, "ref = %d\n", ref);
2457 IXMLDOMNode_Release( unk );
2459 V_VT(&var) = VT_EMPTY;
2460 r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
2461 ok( r == S_OK, "returns %08x\n", r );
2462 ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
2463 IXMLDOMNode_Release( child );
2464 IUnknown_Release( unk );
2467 V_VT(&var) = VT_NULL;
2468 V_DISPATCH(&var) = (IDispatch*)node;
2469 r = IXMLDOMNode_insertBefore( root, node, var, &child );
2470 ok( r == S_OK, "returns %08x\n", r );
2471 ok( node == child, "%p %p\n", node, child );
2472 IXMLDOMNode_Release( child );
2475 V_VT(&var) = VT_NULL;
2476 V_DISPATCH(&var) = (IDispatch*)node;
2477 r = IXMLDOMNode_insertBefore( root, node, var, NULL );
2478 ok( r == S_OK, "returns %08x\n", r );
2479 IXMLDOMNode_Release( node );
2481 r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (void**)&element );
2482 ok( r == S_OK, "returns %08x\n", r );
2484 r = IXMLDOMElement_get_attributes( element, &attr_map );
2485 ok( r == S_OK, "returns %08x\n", r );
2486 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2487 ok( r == S_OK, "returns %08x\n", r );
2488 ok( num == 0, "num %d\n", num );
2489 IXMLDOMNamedNodeMap_Release( attr_map );
2491 V_VT(&var) = VT_BSTR;
2492 V_BSTR(&var) = SysAllocString( szstr1 );
2493 name = SysAllocString( szdl );
2494 r = IXMLDOMElement_setAttribute( element, name, var );
2495 ok( r == S_OK, "returns %08x\n", r );
2496 r = IXMLDOMElement_get_attributes( element, &attr_map );
2497 ok( r == S_OK, "returns %08x\n", r );
2498 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2499 ok( r == S_OK, "returns %08x\n", r );
2500 ok( num == 1, "num %d\n", num );
2501 IXMLDOMNamedNodeMap_Release( attr_map );
2504 V_VT(&var) = VT_BSTR;
2505 V_BSTR(&var) = SysAllocString( szstr2 );
2506 r = IXMLDOMElement_setAttribute( element, name, var );
2507 ok( r == S_OK, "returns %08x\n", r );
2508 r = IXMLDOMElement_get_attributes( element, &attr_map );
2509 ok( r == S_OK, "returns %08x\n", r );
2510 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2511 ok( r == S_OK, "returns %08x\n", r );
2512 ok( num == 1, "num %d\n", num );
2513 IXMLDOMNamedNodeMap_Release( attr_map );
2515 r = IXMLDOMElement_getAttribute( element, name, &var );
2516 ok( r == S_OK, "returns %08x\n", r );
2517 ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
2519 SysFreeString(name);
2521 V_VT(&var) = VT_BSTR;
2522 V_BSTR(&var) = SysAllocString( szstr1 );
2523 name = SysAllocString( szlc );
2524 r = IXMLDOMElement_setAttribute( element, name, var );
2525 ok( r == S_OK, "returns %08x\n", r );
2526 r = IXMLDOMElement_get_attributes( element, &attr_map );
2527 ok( r == S_OK, "returns %08x\n", r );
2528 r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2529 ok( r == S_OK, "returns %08x\n", r );
2530 ok( num == 2, "num %d\n", num );
2531 IXMLDOMNamedNodeMap_Release( attr_map );
2533 SysFreeString(name);
2537 name = SysAllocString( szbs );
2538 r = IXMLDOMElement_setAttribute( element, name, var );
2539 ok( r == S_OK, "returns %08x\n", r );
2541 r = IXMLDOMElement_getAttribute( element, name, &var );
2542 ok( r == S_OK, "returns %08x\n", r );
2543 ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
2545 SysFreeString(name);
2547 /* Create an Attribute */
2549 V_I4(&var) = NODE_ATTRIBUTE;
2550 str = SysAllocString( szAttribute );
2551 r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2552 ok( r == S_OK, "returns %08x\n", r );
2553 ok( node != NULL, "node was null\n");
2556 r = IXMLDOMNode_get_nodeTypeString(node, &str);
2557 ok( r == S_OK, "returns %08x\n", r );
2558 ok( !lstrcmpW( str, _bstr_("attribute") ), "incorrect nodeTypeString string\n");
2560 IXMLDOMNode_Release( node );
2562 IXMLDOMElement_Release( element );
2563 IXMLDOMNode_Release( root );
2564 IXMLDOMDocument_Release( doc );
2567 static void test_getElementsByTagName(void)
2569 IXMLDOMNodeList *node_list;
2570 IXMLDOMDocument *doc;
2571 IXMLDOMElement *elem;
2578 doc = create_document(&IID_IXMLDOMDocument);
2581 str = SysAllocString( szComplete4 );
2582 r = IXMLDOMDocument_loadXML( doc, str, &b );
2583 ok( r == S_OK, "loadXML failed\n");
2584 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2585 SysFreeString( str );
2587 str = SysAllocString( szstar );
2589 /* null arguments cases */
2590 r = IXMLDOMDocument_getElementsByTagName(doc, NULL, &node_list);
2591 ok( r == E_INVALIDARG, "ret %08x\n", r );
2592 r = IXMLDOMDocument_getElementsByTagName(doc, str, NULL);
2593 ok( r == E_INVALIDARG, "ret %08x\n", r );
2595 r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2596 ok( r == S_OK, "ret %08x\n", r );
2597 r = IXMLDOMNodeList_get_length( node_list, &len );
2598 ok( r == S_OK, "ret %08x\n", r );
2599 ok( len == 6, "len %d\n", len );
2601 test_disp((IUnknown*)node_list);
2603 IXMLDOMNodeList_Release( node_list );
2604 SysFreeString( str );
2606 /* broken query BSTR */
2607 memcpy(&buff[2], szstar, sizeof(szstar));
2608 /* just a big length */
2609 *(DWORD*)buff = 0xf0f0;
2610 r = IXMLDOMDocument_getElementsByTagName(doc, &buff[2], &node_list);
2611 ok( r == S_OK, "ret %08x\n", r );
2612 r = IXMLDOMNodeList_get_length( node_list, &len );
2613 ok( r == S_OK, "ret %08x\n", r );
2614 ok( len == 6, "len %d\n", len );
2615 IXMLDOMNodeList_Release( node_list );
2617 str = SysAllocString( szbs );
2618 r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2619 ok( r == S_OK, "ret %08x\n", r );
2620 r = IXMLDOMNodeList_get_length( node_list, &len );
2621 ok( r == S_OK, "ret %08x\n", r );
2622 ok( len == 1, "len %d\n", len );
2623 IXMLDOMNodeList_Release( node_list );
2624 SysFreeString( str );
2626 str = SysAllocString( szdl );
2627 r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2628 ok( r == S_OK, "ret %08x\n", r );
2629 r = IXMLDOMNodeList_get_length( node_list, &len );
2630 ok( r == S_OK, "ret %08x\n", r );
2631 ok( len == 0, "len %d\n", len );
2632 IXMLDOMNodeList_Release( node_list );
2633 SysFreeString( str );
2635 str = SysAllocString( szstr1 );
2636 r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2637 ok( r == S_OK, "ret %08x\n", r );
2638 r = IXMLDOMNodeList_get_length( node_list, &len );
2639 ok( r == S_OK, "ret %08x\n", r );
2640 ok( len == 0, "len %d\n", len );
2641 IXMLDOMNodeList_Release( node_list );
2642 SysFreeString( str );
2644 /* test for element */
2645 r = IXMLDOMDocument_get_documentElement(doc, &elem);
2646 ok( r == S_OK, "ret %08x\n", r );
2648 str = SysAllocString( szstar );
2650 /* null arguments cases */
2651 r = IXMLDOMElement_getElementsByTagName(elem, NULL, &node_list);
2652 ok( r == E_INVALIDARG, "ret %08x\n", r );
2653 r = IXMLDOMElement_getElementsByTagName(elem, str, NULL);
2654 ok( r == E_INVALIDARG, "ret %08x\n", r );
2656 r = IXMLDOMElement_getElementsByTagName(elem, str, &node_list);
2657 ok( r == S_OK, "ret %08x\n", r );
2658 r = IXMLDOMNodeList_get_length( node_list, &len );
2659 ok( r == S_OK, "ret %08x\n", r );
2660 todo_wine ok( len == 5, "len %d\n", len );
2662 IXMLDOMNodeList_Release( node_list );
2663 SysFreeString( str );
2665 /* broken query BSTR */
2666 memcpy(&buff[2], szstar, sizeof(szstar));
2667 /* just a big length */
2668 *(DWORD*)buff = 0xf0f0;
2669 r = IXMLDOMElement_getElementsByTagName(elem, &buff[2], &node_list);
2670 ok( r == S_OK, "ret %08x\n", r );
2671 r = IXMLDOMNodeList_get_length( node_list, &len );
2672 ok( r == S_OK, "ret %08x\n", r );
2673 todo_wine ok( len == 5, "len %d\n", len );
2674 IXMLDOMNodeList_Release( node_list );
2676 IXMLDOMElement_Release(elem);
2678 IXMLDOMDocument_Release( doc );
2681 static void test_get_text(void)
2686 IXMLDOMDocument *doc;
2687 IXMLDOMNode *node, *node2, *node3;
2688 IXMLDOMNode *nodeRoot;
2689 IXMLDOMNodeList *node_list;
2690 IXMLDOMNamedNodeMap *node_map;
2693 doc = create_document(&IID_IXMLDOMDocument);
2696 str = SysAllocString( szComplete4 );
2697 r = IXMLDOMDocument_loadXML( doc, str, &b );
2698 ok( r == S_OK, "loadXML failed\n");
2699 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2700 SysFreeString( str );
2702 str = SysAllocString( szbs );
2703 r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
2704 ok( r == S_OK, "ret %08x\n", r );
2707 /* Test to get all child node text. */
2708 r = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&nodeRoot);
2709 ok( r == S_OK, "ret %08x\n", r );
2712 r = IXMLDOMNode_get_text( nodeRoot, &str );
2713 ok( r == S_OK, "ret %08x\n", r );
2714 ok( compareIgnoreReturnsWhitespace(str, _bstr_("fn1.txt\n\n fn2.txt \n\nf1\n")), "wrong get_text\n");
2717 IXMLDOMNode_Release(nodeRoot);
2721 /* this test crashes on win9x */
2722 r = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatch, NULL);
2723 ok( r == E_INVALIDARG, "ret %08x\n", r );
2726 r = IXMLDOMNodeList_get_length( node_list, NULL );
2727 ok( r == E_INVALIDARG, "ret %08x\n", r );
2729 r = IXMLDOMNodeList_get_length( node_list, &len );
2730 ok( r == S_OK, "ret %08x\n", r );
2731 ok( len == 1, "expect 1 got %d\n", len );
2733 r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
2734 ok( r == E_INVALIDARG, "ret %08x\n", r );
2736 r = IXMLDOMNodeList_nextNode( node_list, NULL );
2737 ok( r == E_INVALIDARG, "ret %08x\n", r );
2739 r = IXMLDOMNodeList_get_item( node_list, 0, &node );
2740 ok( r == S_OK, "ret %08x\n", r );
2741 IXMLDOMNodeList_Release( node_list );
2743 /* Invalid output parameter*/
2744 r = IXMLDOMNode_get_text( node, NULL );
2745 ok( r == E_INVALIDARG, "ret %08x\n", r );
2747 r = IXMLDOMNode_get_text( node, &str );
2748 ok( r == S_OK, "ret %08x\n", r );
2749 ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
2752 r = IXMLDOMNode_get_attributes( node, &node_map );
2753 ok( r == S_OK, "ret %08x\n", r );
2755 str = SysAllocString( szvr );
2756 r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
2757 ok( r == S_OK, "ret %08x\n", r );
2760 r = IXMLDOMNode_get_text( node2, &str );
2761 ok( r == S_OK, "ret %08x\n", r );
2762 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
2765 r = IXMLDOMNode_get_firstChild( node2, &node3 );
2766 ok( r == S_OK, "ret %08x\n", r );
2768 r = IXMLDOMNode_get_text( node3, &str );
2769 ok( r == S_OK, "ret %08x\n", r );
2770 ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
2774 IXMLDOMNode_Release( node3 );
2775 IXMLDOMNode_Release( node2 );
2776 IXMLDOMNamedNodeMap_Release( node_map );
2777 IXMLDOMNode_Release( node );
2778 IXMLDOMDocument_Release( doc );
2781 static void test_get_childNodes(void)
2786 IXMLDOMDocument *doc;
2787 IXMLDOMElement *element;
2788 IXMLDOMNode *node, *node2;
2789 IXMLDOMNodeList *node_list, *node_list2;
2792 doc = create_document(&IID_IXMLDOMDocument);
2795 str = SysAllocString( szComplete4 );
2796 r = IXMLDOMDocument_loadXML( doc, str, &b );
2797 ok( r == S_OK, "loadXML failed\n");
2798 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2799 SysFreeString( str );
2801 r = IXMLDOMDocument_get_documentElement( doc, &element );
2802 ok( r == S_OK, "ret %08x\n", r);
2804 r = IXMLDOMElement_get_childNodes( element, &node_list );
2805 ok( r == S_OK, "ret %08x\n", r);
2807 r = IXMLDOMNodeList_get_length( node_list, &len );
2808 ok( r == S_OK, "ret %08x\n", r);
2809 ok( len == 4, "len %d\n", len);
2811 r = IXMLDOMNodeList_get_item( node_list, 2, &node );
2812 ok( r == S_OK, "ret %08x\n", r);
2814 r = IXMLDOMNode_get_childNodes( node, &node_list2 );
2815 ok( r == S_OK, "ret %08x\n", r);
2817 r = IXMLDOMNodeList_get_length( node_list2, &len );
2818 ok( r == S_OK, "ret %08x\n", r);
2819 ok( len == 0, "len %d\n", len);
2821 r = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
2822 ok( r == S_FALSE, "ret %08x\n", r);
2824 IXMLDOMNodeList_Release( node_list2 );
2825 IXMLDOMNode_Release( node );
2826 IXMLDOMNodeList_Release( node_list );
2827 IXMLDOMElement_Release( element );
2828 IXMLDOMDocument_Release( doc );
2831 static void test_get_firstChild(void)
2833 static WCHAR xmlW[] = {'x','m','l',0};
2834 IXMLDOMDocument *doc;
2840 doc = create_document(&IID_IXMLDOMDocument);
2843 str = SysAllocString( szComplete4 );
2844 r = IXMLDOMDocument_loadXML( doc, str, &b );
2845 ok( r == S_OK, "loadXML failed\n");
2846 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2847 SysFreeString( str );
2849 r = IXMLDOMDocument_get_firstChild( doc, &node );
2850 ok( r == S_OK, "ret %08x\n", r);
2852 r = IXMLDOMNode_get_nodeName( node, &str );
2853 ok( r == S_OK, "ret %08x\n", r);
2855 ok(memcmp(str, xmlW, sizeof(xmlW)) == 0, "expected \"xml\" node name\n");
2858 IXMLDOMNode_Release( node );
2859 IXMLDOMDocument_Release( doc );
2862 static void test_get_lastChild(void)
2864 static WCHAR lcW[] = {'l','c',0};
2865 static WCHAR foW[] = {'f','o',0};
2866 IXMLDOMDocument *doc;
2867 IXMLDOMNode *node, *child;
2872 doc = create_document(&IID_IXMLDOMDocument);
2875 str = SysAllocString( szComplete4 );
2876 r = IXMLDOMDocument_loadXML( doc, str, &b );
2877 ok( r == S_OK, "loadXML failed\n");
2878 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2879 SysFreeString( str );
2881 r = IXMLDOMDocument_get_lastChild( doc, &node );
2882 ok( r == S_OK, "ret %08x\n", r);
2884 r = IXMLDOMNode_get_nodeName( node, &str );
2885 ok( r == S_OK, "ret %08x\n", r);
2887 ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
2890 r = IXMLDOMNode_get_lastChild( node, &child );
2891 ok( r == S_OK, "ret %08x\n", r);
2893 r = IXMLDOMNode_get_nodeName( child, &str );
2894 ok( r == S_OK, "ret %08x\n", r);
2896 ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
2899 IXMLDOMNode_Release( child );
2900 IXMLDOMNode_Release( node );
2901 IXMLDOMDocument_Release( doc );
2904 static void test_removeChild(void)
2909 IXMLDOMDocument *doc;
2910 IXMLDOMElement *element, *lc_element;
2911 IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
2912 IXMLDOMNodeList *root_list, *fo_list;
2914 doc = create_document(&IID_IXMLDOMDocument);
2917 str = SysAllocString( szComplete4 );
2918 r = IXMLDOMDocument_loadXML( doc, str, &b );
2919 ok( r == S_OK, "loadXML failed\n");
2920 ok( b == VARIANT_TRUE, "failed to load XML string\n");
2921 SysFreeString( str );
2923 r = IXMLDOMDocument_get_documentElement( doc, &element );
2924 ok( r == S_OK, "ret %08x\n", r);
2926 r = IXMLDOMElement_get_childNodes( element, &root_list );
2927 ok( r == S_OK, "ret %08x\n", r);
2929 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
2930 ok( r == S_OK, "ret %08x\n", r);
2932 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
2933 ok( r == S_OK, "ret %08x\n", r);
2935 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
2936 ok( r == S_OK, "ret %08x\n", r);
2938 /* invalid parameter: NULL ptr */
2939 removed_node = (void*)0xdeadbeef;
2940 r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
2941 ok( r == E_INVALIDARG, "ret %08x\n", r );
2942 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
2944 /* ba_node is a descendant of element, but not a direct child. */
2945 removed_node = (void*)0xdeadbeef;
2946 r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
2947 ok( r == E_INVALIDARG, "ret %08x\n", r );
2948 ok( removed_node == NULL, "%p\n", removed_node );
2950 r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
2951 ok( r == S_OK, "ret %08x\n", r);
2952 ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
2954 /* try removing already removed child */
2955 temp_node = (void*)0xdeadbeef;
2956 r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
2957 ok( r == E_INVALIDARG, "ret %08x\n", r);
2958 ok( temp_node == NULL, "%p\n", temp_node );
2960 /* the removed node has no parent anymore */
2961 r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
2962 ok( r == S_FALSE, "ret %08x\n", r);
2963 ok( temp_node == NULL, "%p\n", temp_node );
2965 IXMLDOMNode_Release( removed_node );
2966 IXMLDOMNode_Release( ba_node );
2967 IXMLDOMNodeList_Release( fo_list );
2969 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
2970 ok( r == S_OK, "ret %08x\n", r);
2972 r = IXMLDOMElement_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
2973 ok( r == S_OK, "ret %08x\n", r);
2975 /* MS quirk: passing wrong interface pointer works, too */
2976 r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
2977 ok( r == S_OK, "ret %08x\n", r);
2979 r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
2980 ok( r == S_FALSE, "ret %08x\n", r);
2981 ok( temp_node == NULL, "%p\n", temp_node );
2983 IXMLDOMNode_Release( lc_node );
2984 IXMLDOMNodeList_Release( root_list );
2985 IXMLDOMElement_Release( element );
2986 IXMLDOMDocument_Release( doc );
2989 static void test_replaceChild(void)
2994 IXMLDOMDocument *doc;
2995 IXMLDOMElement *element, *ba_element;
2996 IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
2997 IXMLDOMNodeList *root_list, *fo_list;
2998 IUnknown * unk1, *unk2;
3001 doc = create_document(&IID_IXMLDOMDocument);
3004 str = SysAllocString( szComplete4 );
3005 r = IXMLDOMDocument_loadXML( doc, str, &b );
3006 ok( r == S_OK, "loadXML failed\n");
3007 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3008 SysFreeString( str );
3010 r = IXMLDOMDocument_get_documentElement( doc, &element );
3011 ok( r == S_OK, "ret %08x\n", r);
3013 r = IXMLDOMElement_get_childNodes( element, &root_list );
3014 ok( r == S_OK, "ret %08x\n", r);
3016 r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3017 ok( r == S_OK, "ret %08x\n", r);
3019 r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3020 ok( r == S_OK, "ret %08x\n", r);
3022 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3023 ok( r == S_OK, "ret %08x\n", r);
3025 r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3026 ok( r == S_OK, "ret %08x\n", r);
3028 IXMLDOMNodeList_Release( fo_list );
3030 /* invalid parameter: NULL ptr for element to remove */
3031 removed_node = (void*)0xdeadbeef;
3032 r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3033 ok( r == E_INVALIDARG, "ret %08x\n", r );
3034 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3036 /* invalid parameter: NULL for replacement element. (Sic!) */
3037 removed_node = (void*)0xdeadbeef;
3038 r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3039 ok( r == E_INVALIDARG, "ret %08x\n", r );
3040 ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3042 /* invalid parameter: OldNode is not a child */
3043 removed_node = (void*)0xdeadbeef;
3044 r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3045 ok( r == E_INVALIDARG, "ret %08x\n", r );
3046 ok( removed_node == NULL, "%p\n", removed_node );
3048 /* invalid parameter: would create loop */
3049 removed_node = (void*)0xdeadbeef;
3050 r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3051 ok( r == E_FAIL, "ret %08x\n", r );
3052 ok( removed_node == NULL, "%p\n", removed_node );
3054 r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3055 ok( r == S_OK, "ret %08x\n", r );
3057 r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3058 ok( r == S_OK, "ret %08x\n", r );
3060 /* ba_node and temp_node refer to the same node, yet they
3061 are different interface pointers */
3062 ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3063 r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3064 ok( r == S_OK, "ret %08x\n", r );
3065 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3066 ok( r == S_OK, "ret %08x\n", r );
3067 todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3069 IUnknown_Release( unk1 );
3070 IUnknown_Release( unk2 );
3072 /* ba_node should have been removed from below fo_node */
3073 r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3074 ok( r == S_OK, "ret %08x\n", r );
3076 /* MS quirk: replaceChild also accepts elements instead of nodes */
3077 r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3078 ok( r == S_OK, "ret %08x\n", r );
3080 r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3081 ok( r == S_OK, "ret %08x\n", r );
3083 r = IXMLDOMNodeList_get_length( fo_list, &len);
3084 ok( r == S_OK, "ret %08x\n", r );
3085 ok( len == 0, "len %d\n", len);
3087 IXMLDOMNodeList_Release( fo_list );
3089 IXMLDOMNode_Release(ba_node);
3090 IXMLDOMNode_Release(fo_node);
3091 IXMLDOMNode_Release(temp_node);
3092 IXMLDOMNodeList_Release( root_list );
3093 IXMLDOMElement_Release( element );
3094 IXMLDOMDocument_Release( doc );
3097 static void test_removeNamedItem(void)
3099 IXMLDOMDocument *doc;
3100 IXMLDOMElement *element;
3101 IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3102 IXMLDOMNodeList *root_list;
3103 IXMLDOMNamedNodeMap * pr_attrs;
3109 doc = create_document(&IID_IXMLDOMDocument);
3112 str = SysAllocString( szComplete4 );
3113 r = IXMLDOMDocument_loadXML( doc, str, &b );
3114 ok( r == S_OK, "loadXML failed\n");
3115 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3116 SysFreeString( str );
3118 r = IXMLDOMDocument_get_documentElement( doc, &element );
3119 ok( r == S_OK, "ret %08x\n", r);
3121 r = IXMLDOMElement_get_childNodes( element, &root_list );
3122 ok( r == S_OK, "ret %08x\n", r);
3124 r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3125 ok( r == S_OK, "ret %08x\n", r);
3127 r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3128 ok( r == S_OK, "ret %08x\n", r);
3130 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3131 ok( r == S_OK, "ret %08x\n", r);
3132 ok( len == 3, "length %d\n", len);
3134 removed_node = (void*)0xdeadbeef;
3135 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3136 ok ( r == E_INVALIDARG, "ret %08x\n", r);
3137 ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3139 removed_node = (void*)0xdeadbeef;
3140 str = SysAllocString(szvr);
3141 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3142 ok ( r == S_OK, "ret %08x\n", r);
3144 removed_node2 = (void*)0xdeadbeef;
3145 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3146 ok ( r == S_FALSE, "ret %08x\n", r);
3147 ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3149 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3150 ok( r == S_OK, "ret %08x\n", r);
3151 ok( len == 2, "length %d\n", len);
3153 r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3154 ok ( r == S_OK, "ret %08x\n", r);
3155 IXMLDOMNode_Release(removed_node);
3157 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3158 ok( r == S_OK, "ret %08x\n", r);
3159 ok( len == 3, "length %d\n", len);
3161 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3162 ok ( r == S_OK, "ret %08x\n", r);
3164 r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3165 ok( r == S_OK, "ret %08x\n", r);
3166 ok( len == 2, "length %d\n", len);
3168 r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3169 ok ( r == S_FALSE, "ret %08x\n", r);
3173 IXMLDOMNamedNodeMap_Release( pr_attrs );
3174 IXMLDOMNode_Release( pr_node );
3175 IXMLDOMNodeList_Release( root_list );
3176 IXMLDOMElement_Release( element );
3177 IXMLDOMDocument_Release( doc );
3180 static void test_XMLHTTP(void)
3182 static const WCHAR wszBody[] = {'m','o','d','e','=','T','e','s','t',0};
3183 static const WCHAR wszPOST[] = {'P','O','S','T',0};
3184 static const WCHAR wszUrl[] = {'h','t','t','p',':','/','/',
3185 'c','r','o','s','s','o','v','e','r','.','c','o','d','e','w','e','a','v','e','r','s','.','c','o','m','/',
3186 'p','o','s','t','t','e','s','t','.','p','h','p',0};
3187 static const WCHAR xmltestW[] = {'h','t','t','p',':','/','/',
3188 'c','r','o','s','s','o','v','e','r','.','c','o','d','e','w','e','a','v','e','r','s','.','c','o','m','/',
3189 'x','m','l','t','e','s','t','.','x','m','l',0};
3190 static const WCHAR wszExpectedResponse[] = {'F','A','I','L','E','D',0};
3191 static const CHAR xmltestbodyA[] = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<a>TEST</a>\n";
3193 IXMLHttpRequest *pXMLHttpRequest;
3194 BSTR bstrResponse, method, url;
3198 LONG state, status, ref;
3200 HRESULT hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL,
3201 CLSCTX_INPROC_SERVER, &IID_IXMLHttpRequest,
3202 (void **)&pXMLHttpRequest);
3205 win_skip("IXMLHTTPRequest is not available (0x%08x)\n", hr);
3209 VariantInit(&dummy);
3210 V_VT(&dummy) = VT_ERROR;
3211 V_ERROR(&dummy) = DISP_E_MEMBERNOTFOUND;
3212 VariantInit(&async);
3213 V_VT(&async) = VT_BOOL;
3214 V_BOOL(&async) = VARIANT_FALSE;
3215 V_VT(&varbody) = VT_BSTR;
3216 V_BSTR(&varbody) = SysAllocString(wszBody);
3218 method = SysAllocString(wszPOST);
3219 url = SysAllocString(wszUrl);
3223 /* crashes on win98 */
3224 hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, NULL);
3225 ok(hr == S_OK, "got 0x%08x\n", hr);
3228 /* send before open */
3229 hr = IXMLHttpRequest_send(pXMLHttpRequest, dummy);
3230 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3232 /* initial status code */
3233 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, NULL);
3234 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3236 status = 0xdeadbeef;
3237 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3238 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3239 ok(status == 0xdeadbeef, "got %d\n", status);
3241 /* invalid parameters */
3242 hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, NULL, async, dummy, dummy);
3243 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3245 hr = IXMLHttpRequest_open(pXMLHttpRequest, method, NULL, async, dummy, dummy);
3246 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3248 hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, url, async, dummy, dummy);
3249 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3251 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, NULL);
3252 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3254 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), NULL);
3255 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3257 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3258 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3260 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3261 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3263 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, NULL);
3264 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3267 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3268 ok(hr == S_OK, "got 0x%08x\n", hr);
3269 ok(state == 0, "got %d, expected 0\n", state);
3271 event = create_dispevent();
3272 ref = IDispatch_AddRef(event);
3273 ok(ref == 2, "got %d\n", ref);
3274 IDispatch_Release(event);
3276 hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, event);
3277 ok(hr == S_OK, "got 0x%08x\n", hr);
3279 ref = IDispatch_AddRef(event);
3280 ok(ref == 3, "got %d\n", ref);
3281 IDispatch_Release(event);
3283 g_unexpectedcall = g_expectedcall = 0;
3285 hr = IXMLHttpRequest_open(pXMLHttpRequest, method, url, async, dummy, dummy);
3286 ok(hr == S_OK, "got 0x%08x\n", hr);
3288 ok(g_unexpectedcall == 0, "unexpected disp event call\n");
3289 ok(g_expectedcall == 1 || broken(g_expectedcall == 0) /* win2k */, "no expected disp event call\n");
3291 /* status code after ::open() */
3292 status = 0xdeadbeef;
3293 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3294 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3295 ok(status == 0xdeadbeef, "got %d\n", status);
3298 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3299 ok(hr == S_OK, "got 0x%08x\n", hr);
3300 ok(state == 1, "got %d, expected 1\n", state);
3302 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3303 ok(hr == S_OK, "got 0x%08x\n", hr);
3305 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3306 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3308 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_(""), _bstr_("value1"));
3309 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3311 SysFreeString(method);
3314 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3315 if (hr == INET_E_RESOURCE_NOT_FOUND)
3317 skip("No connection could be made with crossover.codeweavers.com\n");
3318 IXMLHttpRequest_Release(pXMLHttpRequest);
3321 todo_wine ok(hr == S_OK, "IXMLHttpRequest_send should have succeeded instead of failing with 0x%08x\n", hr);
3323 /* status code after ::send() */
3324 status = 0xdeadbeef;
3325 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3327 ok(hr == S_OK, "got 0x%08x\n", hr);
3328 ok(status == 200, "got %d\n", status);
3331 /* another ::send() after completed request */
3332 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3333 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3335 VariantClear(&varbody);
3337 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3338 todo_wine ok(hr == S_OK, "IXMLHttpRequest_get_responseText should have succeeded instead of failing with 0x%08x\n", hr);
3339 /* the server currently returns "FAILED" because the Content-Type header is
3340 * not what the server expects */
3343 ok(!memcmp(bstrResponse, wszExpectedResponse, sizeof(wszExpectedResponse)), "bstrResponse differs from what was expected\n");
3344 SysFreeString(bstrResponse);
3348 url = SysAllocString(xmltestW);
3350 hr = IXMLHttpRequest_open(pXMLHttpRequest, _bstr_("GET"), url, async, dummy, dummy);
3351 ok(hr == S_OK, "got 0x%08x\n", hr);
3353 V_VT(&varbody) = VT_EMPTY;
3355 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3356 if (hr == INET_E_RESOURCE_NOT_FOUND)
3358 skip("No connection could be made with crossover.codeweavers.com\n");
3359 IXMLHttpRequest_Release(pXMLHttpRequest);
3362 ok(hr == S_OK, "got 0x%08x\n", hr);
3364 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, NULL);
3365 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3367 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3368 ok(hr == S_OK, "got 0x%08x\n", hr);
3371 ok(!memcmp(bstrResponse, _bstr_(xmltestbodyA), sizeof(xmltestbodyA)*sizeof(WCHAR)),
3372 "expected %s, got %s\n", xmltestbodyA, wine_dbgstr_w(bstrResponse));
3373 SysFreeString(bstrResponse);
3378 IDispatch_Release(event);
3379 IXMLHttpRequest_Release(pXMLHttpRequest);
3383 static void test_IXMLDOMDocument2(void)
3385 static const WCHAR emptyW[] = {0};
3386 IXMLDOMDocument2 *doc2, *dtddoc2;
3387 IXMLDOMDocument *doc;
3388 IXMLDOMParseError* err;
3389 IDispatchEx *dispex;
3396 doc = create_document(&IID_IXMLDOMDocument);
3399 dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3402 IXMLDOMDocument_Release(doc);
3406 r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3407 ok( r == S_OK, "ret %08x\n", r );
3408 ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3410 ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3411 ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3412 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3415 ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3416 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3417 ok(err != NULL, "expected a pointer\n");
3421 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3423 ok(res == 0xC00CE223, "got %08x\n", res);
3424 IXMLDOMParseError_Release(err);
3427 str = SysAllocString( szComplete4 );
3428 r = IXMLDOMDocument_loadXML( doc2, str, &b );
3429 ok( r == S_OK, "loadXML failed\n");
3430 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3431 SysFreeString( str );
3433 ole_check(IXMLDOMDocument2_get_readyState(doc, &res));
3434 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3437 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3438 ok(err != NULL, "expected a pointer\n");
3442 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3444 todo_wine ok(res == 0xC00CE224, "got %08x\n", res);
3445 IXMLDOMParseError_Release(err);
3448 r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3449 ok( r == S_OK, "ret %08x\n", r );
3452 IDispatchEx_Release(dispex);
3455 /* we will check if the variant got cleared */
3456 ref = IXMLDOMDocument2_AddRef(doc2);
3457 expect_eq(ref, 3, int, "%d"); /* doc, doc2, AddRef*/
3458 V_VT(&var) = VT_UNKNOWN;
3459 V_UNKNOWN(&var) = (IUnknown *)doc2;
3462 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3463 expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3464 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3467 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3468 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3469 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3472 /* the variant didn't get cleared*/
3473 expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3475 /* setProperty tests */
3476 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3477 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3478 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3479 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3480 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3481 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3483 V_VT(&var) = VT_BSTR;
3484 V_BSTR(&var) = SysAllocString(emptyW);
3485 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3486 ok(r == S_OK, "got 0x%08x\n", r);
3491 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3492 ok(r == E_FAIL, "got 0x%08x\n", r);
3494 /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3495 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3496 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3497 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3499 IXMLDOMDocument2_Release( doc2 );
3500 IXMLDOMDocument_Release( doc );
3502 /* DTD validation */
3503 ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3504 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3505 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3507 ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3508 ok(err != NULL, "expected pointer\n");
3512 ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3513 ok(res == 0, "got %08x\n", res);
3514 IXMLDOMParseError_Release(err);
3517 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3518 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3520 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3521 ok(err != NULL, "expected pointer\n");
3525 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3526 /* XML_ELEMENT_UNDECLARED */
3527 todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
3528 IXMLDOMParseError_Release(err);
3531 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
3532 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3534 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3535 ok(err != NULL, "expected pointer\n");
3539 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3540 /* XML_ELEMENT_ID_NOT_FOUND */
3541 todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
3542 IXMLDOMParseError_Release(err);
3545 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
3546 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3548 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3549 ok(err != NULL, "expected pointer\n");
3553 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3554 /* XML_EMPTY_NOT_ALLOWED */
3555 todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
3556 IXMLDOMParseError_Release(err);
3559 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
3560 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3562 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3563 ok(err != NULL, "expected pointer\n");
3567 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3568 /* XML_ROOT_NAME_MISMATCH */
3569 todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
3570 IXMLDOMParseError_Release(err);
3573 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
3574 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3576 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3577 ok(err != NULL, "expected pointer\n");
3581 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3582 /* XML_INVALID_CONTENT */
3583 todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
3584 IXMLDOMParseError_Release(err);
3587 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
3588 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3590 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3591 ok(err != NULL, "expected pointer\n");
3595 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3596 /* XML_ATTRIBUTE_NOT_DEFINED */
3597 todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
3598 IXMLDOMParseError_Release(err);
3601 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
3602 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3604 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3605 ok(err != NULL, "expected pointer\n");
3609 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3610 /* XML_ATTRIBUTE_FIXED */
3611 todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
3612 IXMLDOMParseError_Release(err);
3615 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
3616 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3618 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3619 ok(err != NULL, "expected pointer\n");
3623 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3624 /* XML_ATTRIBUTE_VALUE */
3625 todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
3626 IXMLDOMParseError_Release(err);
3629 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
3630 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3632 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3633 ok(err != NULL, "expected pointer\n");
3637 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3638 /* XML_ILLEGAL_TEXT */
3639 todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
3640 IXMLDOMParseError_Release(err);
3643 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
3644 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3646 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3647 ok(err != NULL, "expected pointer\n");
3651 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3652 /* XML_REQUIRED_ATTRIBUTE_MISSING */
3653 todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
3654 IXMLDOMParseError_Release(err);
3657 IXMLDOMDocument2_Release( dtddoc2 );
3661 static inline void check_ws_ignored(IXMLDOMDocument2* doc)
3663 IXMLDOMNode *node1, *node2;
3664 IXMLDOMNodeList *list;
3666 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
3667 ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
3668 ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
3669 ole_check(IXMLDOMNodeList_reset(list));
3670 expect_list_and_release(list, "E1.E4.E1.E2.D1 E2.E4.E1.E2.D1");
3672 ole_check(IXMLDOMNode_get_childNodes(node1, &list));
3673 expect_list_and_release(list, "T1.E1.E4.E1.E2.D1 E2.E1.E4.E1.E2.D1 E3.E1.E4.E1.E2.D1 T4.E1.E4.E1.E2.D1 E5.E1.E4.E1.E2.D1");
3674 IXMLDOMNode_Release(node1);
3675 ole_check(IXMLDOMNode_get_childNodes(node2, &list));
3676 expect_list_and_release(list, "T1.E2.E4.E1.E2.D1 E2.E2.E4.E1.E2.D1 T3.E2.E4.E1.E2.D1 E4.E2.E4.E1.E2.D1 T5.E2.E4.E1.E2.D1 E6.E2.E4.E1.E2.D1 T7.E2.E4.E1.E2.D1");
3677 IXMLDOMNode_Release(node2);
3680 static inline void check_ws_preserved(IXMLDOMDocument2* doc)
3682 IXMLDOMNode *node1, *node2;
3683 IXMLDOMNodeList *list;
3685 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
3686 ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
3687 ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
3688 ole_check(IXMLDOMNodeList_reset(list));
3689 expect_list_and_release(list, "E2.E8.E2.E2.D1 E4.E8.E2.E2.D1");
3691 ole_check(IXMLDOMNode_get_childNodes(node1, &list));
3692 expect_list_and_release(list, "T1.E2.E8.E2.E2.D1 E2.E2.E8.E2.E2.D1 T3.E2.E8.E2.E2.D1 E4.E2.E8.E2.E2.D1 T5.E2.E8.E2.E2.D1 E6.E2.E8.E2.E2.D1 T7.E2.E8.E2.E2.D1");
3693 IXMLDOMNode_Release(node1);
3694 ole_check(IXMLDOMNode_get_childNodes(node2, &list));
3695 expect_list_and_release(list, "T1.E4.E8.E2.E2.D1 E2.E4.E8.E2.E2.D1 T3.E4.E8.E2.E2.D1 E4.E4.E8.E2.E2.D1 T5.E4.E8.E2.E2.D1 E6.E4.E8.E2.E2.D1 T7.E4.E8.E2.E2.D1");
3696 IXMLDOMNode_Release(node2);
3699 static void test_whitespace(void)
3702 IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
3704 doc1 = create_document(&IID_IXMLDOMDocument2);
3705 doc2 = create_document(&IID_IXMLDOMDocument2);
3706 if (!doc1 || !doc2) return;
3708 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
3709 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
3710 ok(b == VARIANT_FALSE, "expected false\n");
3711 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
3712 ok(b == VARIANT_TRUE, "expected true\n");
3714 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
3715 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3716 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
3717 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3719 /* switch to XPath */
3720 ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3721 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3723 check_ws_ignored(doc1);
3724 check_ws_preserved(doc2);
3726 /* new instances copy the property */
3727 ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
3728 ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
3730 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
3731 ok(b == VARIANT_FALSE, "expected false\n");
3732 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
3733 ok(b == VARIANT_TRUE, "expected true\n");
3735 check_ws_ignored(doc3);
3736 check_ws_preserved(doc4);
3738 /* setting after loading xml does nothing */
3739 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
3740 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
3742 check_ws_ignored(doc1);
3743 check_ws_preserved(doc2);
3745 /* it takes effect on reload */
3746 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
3747 ok(b == VARIANT_TRUE, "expected true\n");
3748 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
3749 ok(b == VARIANT_FALSE, "expected false\n");
3751 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
3752 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3753 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
3754 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3756 check_ws_preserved(doc1);
3757 check_ws_ignored(doc2);
3759 /* other instances follow suit */
3760 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
3761 ok(b == VARIANT_TRUE, "expected true\n");
3762 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
3763 ok(b == VARIANT_FALSE, "expected false\n");
3765 check_ws_preserved(doc3);
3766 check_ws_ignored(doc4);
3768 IXMLDOMDocument_Release(doc1);
3769 IXMLDOMDocument_Release(doc2);
3770 IXMLDOMDocument_Release(doc3);
3771 IXMLDOMDocument_Release(doc4);
3775 static void test_XPath(void)
3779 IXMLDOMDocument2 *doc;
3780 IXMLDOMNode *rootNode;
3781 IXMLDOMNode *elem1Node;
3783 IXMLDOMNodeList *list;
3785 doc = create_document(&IID_IXMLDOMDocument2);
3788 ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b));
3789 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3791 /* switch to XPath */
3792 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3794 /* some simple queries*/
3795 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list));
3796 ole_check(IXMLDOMNodeList_get_item(list, 0, &rootNode));
3797 ole_check(IXMLDOMNodeList_reset(list));
3798 expect_list_and_release(list, "E2.D1");
3799 if (rootNode == NULL)
3802 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//c"), &list));
3803 expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
3805 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//c[@type]"), &list));
3806 expect_list_and_release(list, "E3.E2.E2.D1");
3808 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
3809 /* using get_item for query results advances the position */
3810 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
3811 expect_node(node, "E2.E2.D1");
3812 IXMLDOMNode_Release(node);
3813 ole_check(IXMLDOMNodeList_nextNode(list, &node));
3814 expect_node(node, "E4.E2.D1");
3815 IXMLDOMNode_Release(node);
3816 ole_check(IXMLDOMNodeList_reset(list));
3817 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
3819 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
3820 expect_list_and_release(list, "E2.D1");
3822 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
3823 ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
3824 ole_check(IXMLDOMNodeList_reset(list));
3825 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
3827 /* select an attribute */
3828 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
3829 expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
3831 /* would evaluate to a number */
3832 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
3833 /* would evaluate to a boolean */
3834 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
3835 /* would evaluate to a string */
3836 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
3839 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
3840 expect_list_and_release(list, "");
3841 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("elem//c"), &list));
3842 expect_list_and_release(list, "");
3843 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//elem[4]"), &list));
3844 expect_list_and_release(list, "");
3845 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//elem[0]"), &list));
3846 expect_list_and_release(list, "");
3848 /* foo undeclared in document node */
3849 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3850 /* undeclared in <root> node */
3851 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
3852 /* undeclared in <elem> node */
3853 ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
3854 /* but this trick can be used */
3855 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
3856 expect_list_and_release(list, "E3.E4.E2.D1");
3858 /* it has to be declared in SelectionNamespaces */
3859 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3860 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
3862 /* now the namespace can be used */
3863 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//test:c"), &list));
3864 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3865 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
3866 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3867 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
3868 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3869 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
3870 expect_list_and_release(list, "E5.E1.E4.E1.E2.D1 E6.E2.E4.E1.E2.D1");
3872 /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
3873 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3874 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
3876 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3879 ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
3880 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3881 if (V_VT(&var) == VT_BSTR)
3882 expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
3884 /* extra attributes - same thing*/
3885 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3886 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
3887 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3889 IXMLDOMNode_Release(rootNode);
3890 IXMLDOMNode_Release(elem1Node);
3891 IXMLDOMDocument_Release(doc);
3895 static void test_cloneNode(void )
3897 IXMLDOMDocument *doc;
3899 IXMLDOMNodeList *pList;
3900 IXMLDOMNamedNodeMap *mapAttr;
3901 LONG nLength = 0, nLength1 = 0;
3902 LONG nAttrCnt = 0, nAttrCnt1 = 0;
3904 IXMLDOMNode *node_clone;
3905 IXMLDOMNode *node_first;
3908 static const WCHAR szSearch[] = { 'l', 'c', '/', 'p', 'r', 0 };
3910 doc = create_document(&IID_IXMLDOMDocument);
3913 str = SysAllocString( szComplete4 );
3914 ole_check(IXMLDOMDocument_loadXML(doc, str, &b));
3915 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3921 str = SysAllocString( szSearch);
3922 r = IXMLDOMNode_selectSingleNode(doc, str, &node);
3923 ok( r == S_OK, "ret %08x\n", r );
3924 ok( node != NULL, "node %p\n", node );
3929 IXMLDOMDocument_Release(doc);
3933 /* Check invalid parameter */
3934 r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
3935 ok( r == E_INVALIDARG, "ret %08x\n", r );
3938 r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
3939 ok( r == S_OK, "ret %08x\n", r );
3940 ok( node_clone != NULL, "node %p\n", node );
3944 IXMLDOMDocument_Release(doc);
3945 IXMLDOMNode_Release(node);
3949 r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
3950 ok( r == S_OK, "ret %08x\n", r );
3953 IXMLDOMDocument *doc2;
3955 r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
3956 ok( r == S_OK, "ret %08x\n", r );
3958 IXMLDOMDocument_Release(doc2);
3960 IXMLDOMNode_Release(node_first);
3963 r = IXMLDOMNode_get_childNodes(node, &pList);
3964 ok( r == S_OK, "ret %08x\n", r );
3967 IXMLDOMNodeList_get_length(pList, &nLength);
3968 IXMLDOMNodeList_Release(pList);
3971 r = IXMLDOMNode_get_attributes(node, &mapAttr);
3972 ok( r == S_OK, "ret %08x\n", r );
3975 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt);
3976 IXMLDOMNamedNodeMap_Release(mapAttr);
3979 r = IXMLDOMNode_get_childNodes(node_clone, &pList);
3980 ok( r == S_OK, "ret %08x\n", r );
3983 IXMLDOMNodeList_get_length(pList, &nLength1);
3984 IXMLDOMNodeList_Release(pList);
3987 r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
3988 ok( r == S_OK, "ret %08x\n", r );
3991 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
3992 IXMLDOMNamedNodeMap_Release(mapAttr);
3995 ok(nLength == nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
3996 ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
3997 IXMLDOMNode_Release(node_clone);
4000 r = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4001 ok( r == S_OK, "ret %08x\n", r );
4002 ok( node_clone != NULL, "node %p\n", node );
4006 IXMLDOMDocument_Release(doc);
4007 IXMLDOMNode_Release(node);
4011 r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4012 ok( r == S_FALSE, "ret %08x\n", r );
4015 IXMLDOMDocument *doc2;
4017 r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4018 ok( r == S_OK, "ret %08x\n", r );
4020 IXMLDOMDocument_Release(doc2);
4022 IXMLDOMNode_Release(node_first);
4025 r = IXMLDOMNode_get_childNodes(node_clone, &pList);
4026 ok( r == S_OK, "ret %08x\n", r );
4029 IXMLDOMNodeList_get_length(pList, &nLength1);
4030 ok( nLength1 == 0, "Length should be 0 (%d)\n", nLength1);
4031 IXMLDOMNodeList_Release(pList);
4034 r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4035 ok( r == S_OK, "ret %08x\n", r );
4038 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
4039 ok( nAttrCnt1 == 3, "Attribute count should be 3 (%d)\n", nAttrCnt1);
4040 IXMLDOMNamedNodeMap_Release(mapAttr);
4043 ok(nLength != nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
4044 ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
4045 IXMLDOMNode_Release(node_clone);
4048 IXMLDOMNode_Release(node);
4049 IXMLDOMDocument_Release(doc);
4052 static void test_xmlTypes(void)
4054 IXMLDOMDocument *doc;
4055 IXMLDOMElement *pRoot;
4057 IXMLDOMComment *pComment;
4058 IXMLDOMElement *pElement;
4059 IXMLDOMAttribute *pAttribute;
4060 IXMLDOMNamedNodeMap *pAttribs;
4061 IXMLDOMCDATASection *pCDataSec;
4062 IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4063 IXMLDOMDocumentFragment *pDocFrag = NULL;
4064 IXMLDOMEntityReference *pEntityRef = NULL;
4066 IXMLDOMNode *pNextChild;
4070 doc = create_document(&IID_IXMLDOMDocument);
4073 pNextChild = (void*)0xdeadbeef;
4074 hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4075 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4077 pNextChild = (void*)0xdeadbeef;
4078 hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4079 ok(hr == S_FALSE, "ret %08x\n", hr );
4080 ok(pNextChild == NULL, "pDocChild not NULL\n");
4082 /* test previous Sibling */
4083 hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4084 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4086 pNextChild = (void*)0xdeadbeef;
4087 hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4088 ok(hr == S_FALSE, "ret %08x\n", hr );
4089 ok(pNextChild == NULL, "pNextChild not NULL\n");
4091 /* test get_attributes */
4092 hr = IXMLDOMDocument_get_attributes( doc, NULL );
4093 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4095 pAttribs = (void*)0xdeadbeef;
4096 hr = IXMLDOMDocument_get_attributes( doc, &pAttribs);
4097 ok(hr == S_FALSE, "ret %08x\n", hr );
4098 ok( pAttribs == NULL, "pAttribs not NULL\n");
4100 /* test get_dataType */
4101 V_VT(&v) = VT_EMPTY;
4102 hr = IXMLDOMDocument_get_dataType(doc, &v);
4103 ok(hr == S_FALSE, "ret %08x\n", hr );
4104 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4107 /* test nodeTypeString */
4109 hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
4110 ok(hr == S_OK, "ret %08x\n", hr );
4111 ok( !lstrcmpW( str, _bstr_("document") ), "incorrect nodeTypeString string\n");
4114 /* test implementation */
4115 hr = IXMLDOMDocument_get_implementation(doc, NULL);
4116 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4118 hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4119 ok(hr == S_OK, "ret %08x\n", hr );
4122 VARIANT_BOOL hasFeature = VARIANT_TRUE;
4123 BSTR sEmpty = SysAllocStringLen(NULL, 0);
4125 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4126 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4128 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4129 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4131 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4132 ok(hr == S_OK, "ret %08x\n", hr );
4133 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4135 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4136 ok(hr == S_OK, "ret %08x\n", hr );
4137 ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4139 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4140 ok(hr == S_OK, "ret %08x\n", hr );
4141 ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4143 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4144 ok(hr == S_OK, "ret %08x\n", hr );
4145 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4147 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4148 ok(hr == S_OK, "ret %08x\n", hr );
4149 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4151 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4152 ok(hr == S_OK, "ret %08x\n", hr );
4153 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4155 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4156 ok(hr == S_OK, "ret %08x\n", hr );
4157 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4159 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4160 ok(hr == S_OK, "ret %08x\n", hr );
4161 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4163 SysFreeString(sEmpty);
4164 IXMLDOMImplementation_Release(pIXMLDOMImplementation);
4167 pRoot = (IXMLDOMElement*)0x1;
4168 hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
4169 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4170 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4172 pRoot = (IXMLDOMElement*)0x1;
4173 hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
4174 ok(hr == E_FAIL, "ret %08x\n", hr );
4175 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4177 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
4178 ok(hr == S_OK, "ret %08x\n", hr );
4181 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
4182 ok(hr == S_OK, "ret %08x\n", hr );
4186 str = SysAllocString(szComment);
4187 hr = IXMLDOMDocument_createComment(doc, str, &pComment);
4189 ok(hr == S_OK, "ret %08x\n", hr );
4192 /* test get_attributes */
4193 hr = IXMLDOMComment_get_attributes( pComment, NULL );
4194 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4196 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4197 hr = IXMLDOMComment_get_attributes( pComment, &pAttribs);
4198 ok(hr == S_FALSE, "ret %08x\n", hr );
4199 ok( pAttribs == NULL, "pAttribs not NULL\n");
4201 /* test nodeTypeString */
4202 hr = IXMLDOMComment_get_nodeTypeString(pComment, &str);
4203 ok(hr == S_OK, "ret %08x\n", hr );
4204 ok( !lstrcmpW( str, _bstr_("comment") ), "incorrect nodeTypeString string\n");
4207 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
4208 ok(hr == S_OK, "ret %08x\n", hr );
4210 hr = IXMLDOMComment_get_nodeName(pComment, &str);
4211 ok(hr == S_OK, "ret %08x\n", hr );
4212 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
4215 hr = IXMLDOMComment_get_xml(pComment, &str);
4216 ok(hr == S_OK, "ret %08x\n", hr );
4217 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
4220 hr = IXMLDOMComment_get_dataType(pComment, &v);
4221 ok(hr == S_FALSE, "ret %08x\n", hr );
4222 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4225 /* put data Tests */
4226 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
4227 ok(hr == S_OK, "ret %08x\n", hr );
4229 /* get data Tests */
4230 hr = IXMLDOMComment_get_data(pComment, &str);
4231 ok(hr == S_OK, "ret %08x\n", hr );
4232 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
4235 /* get data Tests */
4236 hr = IXMLDOMComment_get_nodeValue(pComment, &v);
4237 ok(hr == S_OK, "ret %08x\n", hr );
4238 ok( V_VT(&v) == VT_BSTR, "incorrect dataType type\n");
4239 ok( !lstrcmpW( V_BSTR(&v), _bstr_("This &is a ; test <>\\") ), "incorrect get_nodeValue string\n");
4242 /* Confirm XML text is good */
4243 hr = IXMLDOMComment_get_xml(pComment, &str);
4244 ok(hr == S_OK, "ret %08x\n", hr );
4245 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
4248 /* Confirm we get the put_data Text back */
4249 hr = IXMLDOMComment_get_text(pComment, &str);
4250 ok(hr == S_OK, "ret %08x\n", hr );
4251 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
4254 /* test length property */
4255 hr = IXMLDOMComment_get_length(pComment, &len);
4256 ok(hr == S_OK, "ret %08x\n", hr );
4257 ok(len == 21, "expected 21 got %d\n", len);
4259 /* test substringData */
4260 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
4261 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4263 /* test substringData - Invalid offset */
4264 str = (BSTR)&szElement;
4265 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
4266 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4267 ok( str == NULL, "incorrect string\n");
4269 /* test substringData - Invalid offset */
4270 str = (BSTR)&szElement;
4271 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
4272 ok(hr == S_FALSE, "ret %08x\n", hr );
4273 ok( str == NULL, "incorrect string\n");
4275 /* test substringData - Invalid size */
4276 str = (BSTR)&szElement;
4277 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
4278 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4279 ok( str == NULL, "incorrect string\n");
4281 /* test substringData - Invalid size */
4282 str = (BSTR)&szElement;
4283 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
4284 ok(hr == S_FALSE, "ret %08x\n", hr );
4285 ok( str == NULL, "incorrect string\n");
4287 /* test substringData - Start of string */
4288 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
4289 ok(hr == S_OK, "ret %08x\n", hr );
4290 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4293 /* test substringData - Middle of string */
4294 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
4295 ok(hr == S_OK, "ret %08x\n", hr );
4296 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4299 /* test substringData - End of string */
4300 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
4301 ok(hr == S_OK, "ret %08x\n", hr );
4302 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4305 /* test appendData */
4306 hr = IXMLDOMComment_appendData(pComment, NULL);
4307 ok(hr == S_OK, "ret %08x\n", hr );
4309 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
4310 ok(hr == S_OK, "ret %08x\n", hr );
4312 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
4313 ok(hr == S_OK, "ret %08x\n", hr );
4315 hr = IXMLDOMComment_get_text(pComment, &str);
4316 ok(hr == S_OK, "ret %08x\n", hr );
4317 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4320 /* test insertData */
4321 str = SysAllocStringLen(NULL, 0);
4322 hr = IXMLDOMComment_insertData(pComment, -1, str);
4323 ok(hr == S_OK, "ret %08x\n", hr );
4325 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
4326 ok(hr == S_OK, "ret %08x\n", hr );
4328 hr = IXMLDOMComment_insertData(pComment, 1000, str);
4329 ok(hr == S_OK, "ret %08x\n", hr );
4331 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
4332 ok(hr == S_OK, "ret %08x\n", hr );
4334 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
4335 ok(hr == S_OK, "ret %08x\n", hr );
4337 hr = IXMLDOMComment_insertData(pComment, 0, str);
4338 ok(hr == S_OK, "ret %08x\n", hr );
4341 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
4342 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4344 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
4345 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4347 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
4348 ok(hr == S_OK, "ret %08x\n", hr );
4350 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
4351 ok(hr == S_OK, "ret %08x\n", hr );
4353 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
4354 ok(hr == S_OK, "ret %08x\n", hr );
4356 hr = IXMLDOMComment_get_text(pComment, &str);
4357 ok(hr == S_OK, "ret %08x\n", hr );
4358 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4362 /* invalid arguments */
4363 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
4364 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4366 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
4367 ok(hr == S_OK, "ret %08x\n", hr );
4369 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
4370 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4372 hr = IXMLDOMComment_get_length(pComment, &len);
4373 ok(hr == S_OK, "ret %08x\n", hr );
4374 ok(len == 43, "expected 43 got %d\n", len);
4376 hr = IXMLDOMComment_deleteData(pComment, len, 1);
4377 ok(hr == S_OK, "ret %08x\n", hr );
4379 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
4380 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4382 /* delete from start */
4383 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
4384 ok(hr == S_OK, "ret %08x\n", hr );
4386 hr = IXMLDOMComment_get_length(pComment, &len);
4387 ok(hr == S_OK, "ret %08x\n", hr );
4388 ok(len == 38, "expected 38 got %d\n", len);
4390 hr = IXMLDOMComment_get_text(pComment, &str);
4391 ok(hr == S_OK, "ret %08x\n", hr );
4392 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4395 /* delete from end */
4396 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
4397 ok(hr == S_OK, "ret %08x\n", hr );
4399 hr = IXMLDOMComment_get_length(pComment, &len);
4400 ok(hr == S_OK, "ret %08x\n", hr );
4401 ok(len == 35, "expected 35 got %d\n", len);
4403 hr = IXMLDOMComment_get_text(pComment, &str);
4404 ok(hr == S_OK, "ret %08x\n", hr );
4405 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4408 /* delete from inside */
4409 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
4410 ok(hr == S_OK, "ret %08x\n", hr );
4412 hr = IXMLDOMComment_get_length(pComment, &len);
4413 ok(hr == S_OK, "ret %08x\n", hr );
4414 ok(len == 2, "expected 2 got %d\n", len);
4416 hr = IXMLDOMComment_get_text(pComment, &str);
4417 ok(hr == S_OK, "ret %08x\n", hr );
4418 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4421 /* delete whole data ... */
4422 hr = IXMLDOMComment_get_length(pComment, &len);
4423 ok(hr == S_OK, "ret %08x\n", hr );
4425 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4426 ok(hr == S_OK, "ret %08x\n", hr );
4427 /* ... and try again with empty string */
4428 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4429 ok(hr == S_OK, "ret %08x\n", hr );
4431 /* ::replaceData() */
4433 V_BSTR(&v) = SysAllocString(szstr1);
4434 hr = IXMLDOMComment_put_nodeValue(pComment, v);
4435 ok(hr == S_OK, "ret %08x\n", hr );
4438 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
4439 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4440 hr = IXMLDOMComment_get_text(pComment, &str);
4441 ok(hr == S_OK, "ret %08x\n", hr );
4442 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4445 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
4446 ok(hr == S_OK, "ret %08x\n", hr );
4447 hr = IXMLDOMComment_get_text(pComment, &str);
4448 ok(hr == S_OK, "ret %08x\n", hr );
4449 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4452 /* NULL pointer means delete */
4453 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
4454 ok(hr == S_OK, "ret %08x\n", hr );
4455 hr = IXMLDOMComment_get_text(pComment, &str);
4456 ok(hr == S_OK, "ret %08x\n", hr );
4457 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4460 /* empty string means delete */
4461 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
4462 ok(hr == S_OK, "ret %08x\n", hr );
4463 hr = IXMLDOMComment_get_text(pComment, &str);
4464 ok(hr == S_OK, "ret %08x\n", hr );
4465 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4468 /* zero count means insert */
4469 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
4470 ok(hr == S_OK, "ret %08x\n", hr );
4471 hr = IXMLDOMComment_get_text(pComment, &str);
4472 ok(hr == S_OK, "ret %08x\n", hr );
4473 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4476 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
4477 ok(hr == S_OK, "ret %08x\n", hr );
4479 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
4480 ok(hr == S_OK, "ret %08x\n", hr );
4481 hr = IXMLDOMComment_get_text(pComment, &str);
4482 ok(hr == S_OK, "ret %08x\n", hr );
4483 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4486 /* nonempty string, count greater than its length */
4487 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
4488 ok(hr == S_OK, "ret %08x\n", hr );
4489 hr = IXMLDOMComment_get_text(pComment, &str);
4490 ok(hr == S_OK, "ret %08x\n", hr );
4491 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4494 /* nonempty string, count less than its length */
4495 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
4496 ok(hr == S_OK, "ret %08x\n", hr );
4497 hr = IXMLDOMComment_get_text(pComment, &str);
4498 ok(hr == S_OK, "ret %08x\n", hr );
4499 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4502 IXMLDOMComment_Release(pComment);
4506 str = SysAllocString(szElement);
4507 hr = IXMLDOMDocument_createElement(doc, str, &pElement);
4509 ok(hr == S_OK, "ret %08x\n", hr );
4512 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
4513 ok(hr == S_OK, "ret %08x\n", hr );
4515 /* test nodeTypeString */
4516 hr = IXMLDOMDocument_get_nodeTypeString(pElement, &str);
4517 ok(hr == S_OK, "ret %08x\n", hr );
4518 ok( !lstrcmpW( str, _bstr_("element") ), "incorrect nodeTypeString string\n");
4521 hr = IXMLDOMElement_get_nodeName(pElement, &str);
4522 ok(hr == S_OK, "ret %08x\n", hr );
4523 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
4526 hr = IXMLDOMElement_get_xml(pElement, &str);
4527 ok(hr == S_OK, "ret %08x\n", hr );
4528 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
4531 hr = IXMLDOMElement_get_dataType(pElement, &v);
4532 ok(hr == S_FALSE, "ret %08x\n", hr );
4533 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4537 pAttribute = (IXMLDOMAttribute*)0x1;
4538 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
4539 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4540 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4542 pAttribute = (IXMLDOMAttribute*)0x1;
4543 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
4544 ok(hr == E_FAIL, "ret %08x\n", hr );
4545 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4547 str = SysAllocString(szAttribute);
4548 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
4550 ok(hr == S_OK, "ret %08x\n", hr );
4553 IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
4555 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
4556 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4558 pNextChild = (IXMLDOMNode *)0x1;
4559 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
4560 ok(hr == S_FALSE, "ret %08x\n", hr );
4561 ok(pNextChild == NULL, "pNextChild not NULL\n");
4563 /* test Previous Sibling*/
4564 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
4565 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4567 pNextChild = (IXMLDOMNode *)0x1;
4568 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
4569 ok(hr == S_FALSE, "ret %08x\n", hr );
4570 ok(pNextChild == NULL, "pNextChild not NULL\n");
4572 /* test get_attributes */
4573 hr = IXMLDOMAttribute_get_attributes( pAttribute, NULL );
4574 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4576 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4577 hr = IXMLDOMAttribute_get_attributes( pAttribute, &pAttribs);
4578 ok(hr == S_FALSE, "ret %08x\n", hr );
4579 ok( pAttribs == NULL, "pAttribs not NULL\n");
4581 hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
4582 ok(hr == E_FAIL, "ret %08x\n", hr );
4583 ok(pNewChild == NULL, "pNewChild not NULL\n");
4585 hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
4586 ok(hr == S_OK, "ret %08x\n", hr );
4589 hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
4590 ok(hr == S_OK, "ret %08x\n", hr );
4592 IXMLDOMNamedNodeMap_Release(pAttribs);
4595 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4596 ok(hr == S_OK, "ret %08x\n", hr );
4597 ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
4600 /* test nodeTypeString */
4601 hr = IXMLDOMAttribute_get_nodeTypeString(pAttribute, &str);
4602 ok(hr == S_OK, "ret %08x\n", hr );
4603 ok( !lstrcmpW( str, _bstr_("attribute") ), "incorrect nodeTypeString string\n");
4607 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4608 ok(hr == S_OK, "ret %08x\n", hr );
4609 ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
4612 /* test name property */
4613 hr = IXMLDOMAttribute_get_name(pAttribute, &str);
4614 ok(hr == S_OK, "ret %08x\n", hr );
4615 ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
4618 hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
4619 ok(hr == S_OK, "ret %08x\n", hr );
4620 ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
4623 hr = IXMLDOMAttribute_get_dataType(pAttribute, &v);
4624 ok(hr == S_FALSE, "ret %08x\n", hr );
4625 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4628 IXMLDOMAttribute_Release(pAttribute);
4630 /* Check Element again with the Add Attribute*/
4631 hr = IXMLDOMElement_get_xml(pElement, &str);
4632 ok(hr == S_OK, "ret %08x\n", hr );
4633 ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
4637 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
4638 ok(hr == S_OK, "ret %08x\n", hr );
4640 hr = IXMLDOMElement_get_xml(pElement, &str);
4641 ok(hr == S_OK, "ret %08x\n", hr );
4642 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
4645 /* Test for reversible escaping */
4646 str = SysAllocString( szStrangeChars );
4647 hr = IXMLDOMElement_put_text(pElement, str);
4648 ok(hr == S_OK, "ret %08x\n", hr );
4649 SysFreeString( str );
4651 hr = IXMLDOMElement_get_xml(pElement, &str);
4652 ok(hr == S_OK, "ret %08x\n", hr );
4653 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
4656 hr = IXMLDOMElement_get_text(pElement, &str);
4657 ok(hr == S_OK, "ret %08x\n", hr );
4658 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
4661 IXMLDOMElement_Release(pElement);
4665 str = SysAllocString(szCData);
4666 hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
4667 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4669 hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
4671 ok(hr == S_OK, "ret %08x\n", hr );
4674 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
4679 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
4680 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
4682 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
4683 ok(hr == S_OK, "ret %08x\n", hr );
4685 /* get Attribute Tests */
4686 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, NULL);
4687 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4689 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4690 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, &pAttribs);
4691 ok(hr == S_FALSE, "ret %08x\n", hr );
4692 ok(pAttribs == NULL, "pAttribs != NULL\n");
4694 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
4695 ok(hr == S_OK, "ret %08x\n", hr );
4696 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
4699 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
4700 ok(hr == S_OK, "ret %08x\n", hr );
4701 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
4704 /* test lastChild */
4705 pNextChild = (IXMLDOMNode*)0x1;
4706 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
4707 ok(hr == S_FALSE, "ret %08x\n", hr );
4708 ok(pNextChild == NULL, "pNextChild not NULL\n");
4710 /* test get_dataType */
4711 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, NULL);
4712 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4714 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, &v);
4715 ok(hr == S_FALSE, "ret %08x\n", hr );
4716 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4719 /* test nodeTypeString */
4720 hr = IXMLDOMCDATASection_get_nodeTypeString(pCDataSec, &str);
4721 ok(hr == S_OK, "ret %08x\n", hr );
4722 ok( !lstrcmpW( str, _bstr_("cdatasection") ), "incorrect nodeTypeString string\n");
4725 /* put data Tests */
4726 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
4727 ok(hr == S_OK, "ret %08x\n", hr );
4729 /* Confirm XML text is good */
4730 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
4731 ok(hr == S_OK, "ret %08x\n", hr );
4732 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
4735 /* Confirm we get the put_data Text back */
4736 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4737 ok(hr == S_OK, "ret %08x\n", hr );
4738 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4741 /* test length property */
4742 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4743 ok(hr == S_OK, "ret %08x\n", hr );
4744 ok(len == 21, "expected 21 got %d\n", len);
4746 /* test get nodeValue */
4747 hr = IXMLDOMCDATASection_get_nodeValue(pCDataSec, &var);
4748 ok(hr == S_OK, "ret %08x\n", hr );
4749 ok(V_VT(&var) == VT_BSTR, "got vt %04x\n", V_VT(&var));
4750 ok( !lstrcmpW( V_BSTR(&var), _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4754 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
4755 ok(hr == S_OK, "ret %08x\n", hr );
4756 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4759 /* test substringData */
4760 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
4761 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4763 /* test substringData - Invalid offset */
4764 str = (BSTR)&szElement;
4765 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
4766 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4767 ok( str == NULL, "incorrect string\n");
4769 /* test substringData - Invalid offset */
4770 str = (BSTR)&szElement;
4771 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
4772 ok(hr == S_FALSE, "ret %08x\n", hr );
4773 ok( str == NULL, "incorrect string\n");
4775 /* test substringData - Invalid size */
4776 str = (BSTR)&szElement;
4777 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
4778 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4779 ok( str == NULL, "incorrect string\n");
4781 /* test substringData - Invalid size */
4782 str = (BSTR)&szElement;
4783 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
4784 ok(hr == S_FALSE, "ret %08x\n", hr );
4785 ok( str == NULL, "incorrect string\n");
4787 /* test substringData - Start of string */
4788 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
4789 ok(hr == S_OK, "ret %08x\n", hr );
4790 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4793 /* test substringData - Middle of string */
4794 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
4795 ok(hr == S_OK, "ret %08x\n", hr );
4796 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4799 /* test substringData - End of string */
4800 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
4801 ok(hr == S_OK, "ret %08x\n", hr );
4802 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4805 /* test appendData */
4806 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
4807 ok(hr == S_OK, "ret %08x\n", hr );
4809 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
4810 ok(hr == S_OK, "ret %08x\n", hr );
4812 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
4813 ok(hr == S_OK, "ret %08x\n", hr );
4815 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4816 ok(hr == S_OK, "ret %08x\n", hr );
4817 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4820 /* test insertData */
4821 str = SysAllocStringLen(NULL, 0);
4822 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
4823 ok(hr == S_OK, "ret %08x\n", hr );
4825 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
4826 ok(hr == S_OK, "ret %08x\n", hr );
4828 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
4829 ok(hr == S_OK, "ret %08x\n", hr );
4831 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
4832 ok(hr == S_OK, "ret %08x\n", hr );
4834 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
4835 ok(hr == S_OK, "ret %08x\n", hr );
4837 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
4838 ok(hr == S_OK, "ret %08x\n", hr );
4841 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
4842 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4844 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
4845 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4847 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
4848 ok(hr == S_OK, "ret %08x\n", hr );
4850 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
4851 ok(hr == S_OK, "ret %08x\n", hr );
4853 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
4854 ok(hr == S_OK, "ret %08x\n", hr );
4856 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4857 ok(hr == S_OK, "ret %08x\n", hr );
4858 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4862 /* invalid arguments */
4863 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
4864 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4866 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
4867 ok(hr == S_OK, "ret %08x\n", hr );
4869 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
4870 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4872 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4873 ok(hr == S_OK, "ret %08x\n", hr );
4874 ok(len == 43, "expected 43 got %d\n", len);
4876 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
4877 ok(hr == S_OK, "ret %08x\n", hr );
4879 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
4880 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4882 /* delete from start */
4883 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
4884 ok(hr == S_OK, "ret %08x\n", hr );
4886 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4887 ok(hr == S_OK, "ret %08x\n", hr );
4888 ok(len == 38, "expected 38 got %d\n", len);
4890 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4891 ok(hr == S_OK, "ret %08x\n", hr );
4892 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4895 /* delete from end */
4896 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
4897 ok(hr == S_OK, "ret %08x\n", hr );
4899 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4900 ok(hr == S_OK, "ret %08x\n", hr );
4901 ok(len == 35, "expected 35 got %d\n", len);
4903 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4904 ok(hr == S_OK, "ret %08x\n", hr );
4905 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4908 /* delete from inside */
4909 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
4910 ok(hr == S_OK, "ret %08x\n", hr );
4912 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4913 ok(hr == S_OK, "ret %08x\n", hr );
4914 ok(len == 2, "expected 2 got %d\n", len);
4916 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4917 ok(hr == S_OK, "ret %08x\n", hr );
4918 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4921 /* delete whole data ... */
4922 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4923 ok(hr == S_OK, "ret %08x\n", hr );
4925 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
4926 ok(hr == S_OK, "ret %08x\n", hr );
4928 /* ... and try again with empty string */
4929 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
4930 ok(hr == S_OK, "ret %08x\n", hr );
4932 /* ::replaceData() */
4934 V_BSTR(&v) = SysAllocString(szstr1);
4935 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
4936 ok(hr == S_OK, "ret %08x\n", hr );
4939 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
4940 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4941 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4942 ok(hr == S_OK, "ret %08x\n", hr );
4943 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4946 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
4947 ok(hr == S_OK, "ret %08x\n", hr );
4948 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4949 ok(hr == S_OK, "ret %08x\n", hr );
4950 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4953 /* NULL pointer means delete */
4954 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
4955 ok(hr == S_OK, "ret %08x\n", hr );
4956 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4957 ok(hr == S_OK, "ret %08x\n", hr );
4958 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4961 /* empty string means delete */
4962 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
4963 ok(hr == S_OK, "ret %08x\n", hr );
4964 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4965 ok(hr == S_OK, "ret %08x\n", hr );
4966 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4969 /* zero count means insert */
4970 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
4971 ok(hr == S_OK, "ret %08x\n", hr );
4972 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4973 ok(hr == S_OK, "ret %08x\n", hr );
4974 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4977 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
4978 ok(hr == S_OK, "ret %08x\n", hr );
4980 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
4981 ok(hr == S_OK, "ret %08x\n", hr );
4982 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4983 ok(hr == S_OK, "ret %08x\n", hr );
4984 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4987 /* nonempty string, count greater than its length */
4988 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
4989 ok(hr == S_OK, "ret %08x\n", hr );
4990 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4991 ok(hr == S_OK, "ret %08x\n", hr );
4992 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4995 /* nonempty string, count less than its length */
4996 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
4997 ok(hr == S_OK, "ret %08x\n", hr );
4998 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4999 ok(hr == S_OK, "ret %08x\n", hr );
5000 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5003 IXMLDOMCDATASection_Release(pCDataSec);
5006 /* Document Fragments */
5007 hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5008 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5010 hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5011 ok(hr == S_OK, "ret %08x\n", hr );
5016 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5017 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5019 node = (IXMLDOMNode *)0x1;
5020 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5021 ok(hr == S_FALSE, "ret %08x\n", hr );
5022 ok(node == NULL, "expected NULL, got %p\n", node);
5024 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5025 ok(hr == S_OK, "ret %08x\n", hr );
5027 /* get Attribute Tests */
5028 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, NULL);
5029 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5031 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5032 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, &pAttribs);
5033 ok(hr == S_FALSE, "ret %08x\n", hr );
5034 ok(pAttribs == NULL, "pAttribs != NULL\n");
5036 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5037 ok(hr == S_OK, "ret %08x\n", hr );
5038 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5041 /* test next Sibling*/
5042 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5043 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5045 node = (IXMLDOMNode *)0x1;
5046 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5047 ok(hr == S_FALSE, "ret %08x\n", hr );
5048 ok(node == NULL, "next sibling not NULL\n");
5050 /* test Previous Sibling*/
5051 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5052 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5054 node = (IXMLDOMNode *)0x1;
5055 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5056 ok(hr == S_FALSE, "ret %08x\n", hr );
5057 ok(node == NULL, "previous sibling not NULL\n");
5059 /* test get_dataType */
5060 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, NULL);
5061 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5063 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, &v);
5064 ok(hr == S_FALSE, "ret %08x\n", hr );
5065 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5068 /* test nodeTypeString */
5069 hr = IXMLDOMDocumentFragment_get_nodeTypeString(pDocFrag, &str);
5070 ok(hr == S_OK, "ret %08x\n", hr );
5071 ok( !lstrcmpW( str, _bstr_("documentfragment") ), "incorrect nodeTypeString string\n");
5074 IXMLDOMDocumentFragment_Release(pDocFrag);
5077 /* Entity References */
5078 hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5079 ok(hr == E_FAIL, "ret %08x\n", hr );
5080 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5081 ok(hr == E_FAIL, "ret %08x\n", hr );
5083 str = SysAllocString(szEntityRef);
5084 hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5085 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5087 hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5089 ok(hr == S_OK, "ret %08x\n", hr );
5092 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5093 ok(hr == S_OK, "ret %08x\n", hr );
5095 /* get Attribute Tests */
5096 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, NULL);
5097 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5099 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5100 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, &pAttribs);
5101 ok(hr == S_FALSE, "ret %08x\n", hr );
5102 ok(pAttribs == NULL, "pAttribs != NULL\n");
5105 hr = IXMLDOMEntityReference_get_dataType(pEntityRef, &v);
5106 ok(hr == S_FALSE, "ret %08x\n", hr );
5107 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5110 /* test nodeTypeString */
5111 hr = IXMLDOMEntityReference_get_nodeTypeString(pEntityRef, &str);
5112 ok(hr == S_OK, "ret %08x\n", hr );
5113 ok( !lstrcmpW( str, _bstr_("entityreference") ), "incorrect nodeTypeString string\n");
5117 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5118 ok(hr == S_OK, "ret %08x\n", hr );
5119 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5122 IXMLDOMEntityReference_Release(pEntityRef);
5125 IXMLDOMElement_Release( pRoot );
5129 IXMLDOMDocument_Release(doc);
5134 static void test_nodeTypeTests( void )
5136 IXMLDOMDocument *doc = NULL;
5137 IXMLDOMElement *pRoot;
5138 IXMLDOMElement *pElement;
5141 doc = create_document(&IID_IXMLDOMDocument);
5144 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5145 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5147 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5148 ok(hr == S_OK, "ret %08x\n", hr );
5151 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5152 ok(hr == S_OK, "ret %08x\n", hr );
5155 hr = IXMLDOMElement_put_dataType(pRoot, NULL);
5156 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5159 hr = IXMLDOMElement_put_dataType(pRoot, _bstr_("abcdefg") );
5160 ok(hr == E_FAIL, "ret %08x\n", hr );
5163 * The name passed into put_dataType is case-insensitive. So many of the names
5164 * have been changed to reflect this.
5167 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Boolean"), &pElement);
5168 ok(hr == S_OK, "ret %08x\n", hr );
5171 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5173 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Boolean") );
5174 ok(hr == S_OK, "ret %08x\n", hr );
5176 IXMLDOMElement_Release(pElement);
5180 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_String"), &pElement);
5181 ok(hr == S_OK, "ret %08x\n", hr );
5184 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5186 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("String") );
5187 ok(hr == S_OK, "ret %08x\n", hr );
5189 IXMLDOMElement_Release(pElement);
5193 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Number"), &pElement);
5194 ok(hr == S_OK, "ret %08x\n", hr );
5197 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5199 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("number") );
5200 ok(hr == S_OK, "ret %08x\n", hr );
5202 IXMLDOMElement_Release(pElement);
5206 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Int"), &pElement);
5207 ok(hr == S_OK, "ret %08x\n", hr );
5210 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5212 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("InT") );
5213 ok(hr == S_OK, "ret %08x\n", hr );
5215 IXMLDOMElement_Release(pElement);
5219 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Fixed"), &pElement);
5220 ok(hr == S_OK, "ret %08x\n", hr );
5223 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5225 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("fixed.14.4") );
5226 ok(hr == S_OK, "ret %08x\n", hr );
5228 IXMLDOMElement_Release(pElement);
5232 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime"), &pElement);
5233 ok(hr == S_OK, "ret %08x\n", hr );
5236 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5238 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime") );
5239 ok(hr == S_OK, "ret %08x\n", hr );
5241 IXMLDOMElement_Release(pElement);
5245 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime_tz"), &pElement);
5246 ok(hr == S_OK, "ret %08x\n", hr );
5249 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5251 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5252 ok(hr == S_OK, "ret %08x\n", hr );
5254 IXMLDOMElement_Release(pElement);
5258 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Date"), &pElement);
5259 ok(hr == S_OK, "ret %08x\n", hr );
5262 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5264 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Date") );
5265 ok(hr == S_OK, "ret %08x\n", hr );
5267 IXMLDOMElement_Release(pElement);
5271 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time"), &pElement);
5272 ok(hr == S_OK, "ret %08x\n", hr );
5275 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5277 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time") );
5278 ok(hr == S_OK, "ret %08x\n", hr );
5280 IXMLDOMElement_Release(pElement);
5284 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time_TZ"), &pElement);
5285 ok(hr == S_OK, "ret %08x\n", hr );
5288 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5290 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time.tz") );
5291 ok(hr == S_OK, "ret %08x\n", hr );
5293 IXMLDOMElement_Release(pElement);
5297 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I1"), &pElement);
5298 ok(hr == S_OK, "ret %08x\n", hr );
5301 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5303 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I1") );
5304 ok(hr == S_OK, "ret %08x\n", hr );
5306 IXMLDOMElement_Release(pElement);
5310 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I2"), &pElement);
5311 ok(hr == S_OK, "ret %08x\n", hr );
5314 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5316 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I2") );
5317 ok(hr == S_OK, "ret %08x\n", hr );
5319 IXMLDOMElement_Release(pElement);
5323 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I4"), &pElement);
5324 ok(hr == S_OK, "ret %08x\n", hr );
5327 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5329 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I4") );
5330 ok(hr == S_OK, "ret %08x\n", hr );
5332 IXMLDOMElement_Release(pElement);
5336 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI1"), &pElement);
5337 ok(hr == S_OK, "ret %08x\n", hr );
5340 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5342 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI1") );
5343 ok(hr == S_OK, "ret %08x\n", hr );
5345 IXMLDOMElement_Release(pElement);
5349 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI2"), &pElement);
5350 ok(hr == S_OK, "ret %08x\n", hr );
5353 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5355 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI2") );
5356 ok(hr == S_OK, "ret %08x\n", hr );
5358 IXMLDOMElement_Release(pElement);
5362 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI4"), &pElement);
5363 ok(hr == S_OK, "ret %08x\n", hr );
5366 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5368 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI4") );
5369 ok(hr == S_OK, "ret %08x\n", hr );
5371 IXMLDOMElement_Release(pElement);
5375 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r4"), &pElement);
5376 ok(hr == S_OK, "ret %08x\n", hr );
5379 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5381 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r4") );
5382 ok(hr == S_OK, "ret %08x\n", hr );
5384 IXMLDOMElement_Release(pElement);
5388 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r8"), &pElement);
5389 ok(hr == S_OK, "ret %08x\n", hr );
5392 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5394 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r8") );
5395 ok(hr == S_OK, "ret %08x\n", hr );
5397 IXMLDOMElement_Release(pElement);
5401 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_float"), &pElement);
5402 ok(hr == S_OK, "ret %08x\n", hr );
5405 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5407 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("float") );
5408 ok(hr == S_OK, "ret %08x\n", hr );
5410 IXMLDOMElement_Release(pElement);
5414 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_uuid"), &pElement);
5415 ok(hr == S_OK, "ret %08x\n", hr );
5418 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5420 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UuId") );
5421 ok(hr == S_OK, "ret %08x\n", hr );
5423 IXMLDOMElement_Release(pElement);
5427 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_hex"), &pElement);
5428 ok(hr == S_OK, "ret %08x\n", hr );
5431 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5433 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.hex") );
5434 ok(hr == S_OK, "ret %08x\n", hr );
5436 IXMLDOMElement_Release(pElement);
5440 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_base64"), &pElement);
5441 ok(hr == S_OK, "ret %08x\n", hr );
5444 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5446 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.base64") );
5447 ok(hr == S_OK, "ret %08x\n", hr );
5449 IXMLDOMElement_Release(pElement);
5452 /* Check changing types */
5453 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &pElement);
5454 ok(hr == S_OK, "ret %08x\n", hr );
5457 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5459 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5460 ok(hr == S_OK, "ret %08x\n", hr );
5462 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("string") );
5463 ok(hr == S_OK, "ret %08x\n", hr );
5465 IXMLDOMElement_Release(pElement);
5468 IXMLDOMElement_Release(pRoot);
5472 IXMLDOMDocument_Release(doc);
5477 static void test_DocumentSaveToDocument(void)
5479 IXMLDOMDocument *doc, *doc2;
5480 IXMLDOMElement *pRoot;
5483 doc = create_document(&IID_IXMLDOMDocument);
5486 doc2 = create_document(&IID_IXMLDOMDocument);
5489 IXMLDOMDocument_Release(doc);
5493 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5494 ok(hr == S_OK, "ret %08x\n", hr );
5497 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5498 ok(hr == S_OK, "ret %08x\n", hr );
5505 V_VT(&vDoc) = VT_UNKNOWN;
5506 V_UNKNOWN(&vDoc) = (IUnknown*)doc2;
5508 hr = IXMLDOMDocument_save(doc, vDoc);
5509 ok(hr == S_OK, "ret %08x\n", hr );
5511 hr = IXMLDOMDocument_get_xml(doc, &sOrig);
5512 ok(hr == S_OK, "ret %08x\n", hr );
5514 hr = IXMLDOMDocument_get_xml(doc2, &sNew);
5515 ok(hr == S_OK, "ret %08x\n", hr );
5517 ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as origial\n");
5519 SysFreeString(sOrig);
5520 SysFreeString(sNew);
5524 IXMLDOMDocument_Release(doc2);
5525 IXMLDOMDocument_Release(doc);
5528 static void test_DocumentSaveToFile(void)
5530 IXMLDOMDocument *doc;
5531 IXMLDOMElement *pRoot;
5537 doc = create_document(&IID_IXMLDOMDocument);
5540 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5541 ok(hr == S_OK, "ret %08x\n", hr );
5544 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5545 ok(hr == S_OK, "ret %08x\n", hr );
5550 V_VT(&vFile) = VT_BSTR;
5551 V_BSTR(&vFile) = _bstr_("test.xml");
5553 hr = IXMLDOMDocument_save(doc, vFile);
5554 ok(hr == S_OK, "ret %08x\n", hr );
5558 IXMLDOMElement_Release(pRoot);
5559 IXMLDOMDocument_Release(doc);
5561 file = CreateFile("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
5562 ok(file != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
5563 if(file == INVALID_HANDLE_VALUE)
5566 ReadFile(file, buffer, sizeof(buffer), &read, NULL);
5567 ok(read != 0, "could not read file\n");
5568 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
5571 DeleteFile("test.xml");
5574 static void test_testTransforms(void)
5576 IXMLDOMDocument *doc, *docSS;
5582 doc = create_document(&IID_IXMLDOMDocument);
5585 docSS = create_document(&IID_IXMLDOMDocument);
5588 IXMLDOMDocument_Release(doc);
5592 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
5593 ok(hr == S_OK, "ret %08x\n", hr );
5595 hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
5596 ok(hr == S_OK, "ret %08x\n", hr );
5598 hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
5599 ok(hr == S_OK, "ret %08x\n", hr );
5604 hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
5605 ok(hr == S_OK, "ret %08x\n", hr );
5606 ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "Stylesheet output not correct\n");
5607 SysFreeString(bOut);
5609 IXMLDOMNode_Release(pNode);
5612 IXMLDOMDocument_Release(docSS);
5613 IXMLDOMDocument_Release(doc);
5618 static void test_Namespaces(void)
5620 IXMLDOMDocument *doc;
5622 IXMLDOMNode *pNode2 = NULL;
5626 static const CHAR szNamespacesXML[] =
5627 "<?xml version=\"1.0\"?>\n"
5628 "<root xmlns:WEB='http://www.winehq.org'>\n"
5629 "<WEB:Site version=\"1.0\" />\n"
5632 doc = create_document(&IID_IXMLDOMDocument);
5635 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szNamespacesXML), &bSucc);
5636 ok(hr == S_OK, "ret %08x\n", hr );
5637 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5639 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root"), &pNode );
5640 ok(hr == S_OK, "ret %08x\n", hr );
5643 hr = IXMLDOMNode_get_firstChild( pNode, &pNode2 );
5644 ok( hr == S_OK, "ret %08x\n", hr );
5645 ok( pNode2 != NULL, "pNode2 == NULL\n");
5647 /* Test get_prefix */
5648 hr = IXMLDOMNode_get_prefix(pNode2, NULL);
5649 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
5650 /* NOTE: Need to test that arg2 gets cleared on Error. */
5652 hr = IXMLDOMNode_get_prefix(pNode2, &str);
5653 ok( hr == S_OK, "ret %08x\n", hr );
5654 ok( !lstrcmpW( str, _bstr_("WEB")), "incorrect prefix string\n");
5657 /* Test get_namespaceURI */
5658 hr = IXMLDOMNode_get_namespaceURI(pNode2, NULL);
5659 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
5660 /* NOTE: Need to test that arg2 gets cleared on Error. */
5662 hr = IXMLDOMNode_get_namespaceURI(pNode2, &str);
5663 ok( hr == S_OK, "ret %08x\n", hr );
5664 ok( !lstrcmpW( str, _bstr_("http://www.winehq.org")), "incorrect namespaceURI string\n");
5667 IXMLDOMNode_Release(pNode2);
5668 IXMLDOMNode_Release(pNode);
5671 IXMLDOMDocument_Release(doc);
5676 static void test_FormattingXML(void)
5678 IXMLDOMDocument *doc;
5679 IXMLDOMElement *pElement;
5683 static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
5684 static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
5686 doc = create_document(&IID_IXMLDOMDocument);
5689 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
5690 ok(hr == S_OK, "ret %08x\n", hr );
5691 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5693 if(bSucc == VARIANT_TRUE)
5695 hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
5696 ok(hr == S_OK, "ret %08x\n", hr );
5699 hr = IXMLDOMElement_get_xml(pElement, &str);
5700 ok(hr == S_OK, "ret %08x\n", hr );
5701 ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
5704 IXMLDOMElement_Release(pElement);
5708 IXMLDOMDocument_Release(doc);
5713 typedef struct _nodetypedvalue_t {
5716 const char *value; /* value in string format */
5719 static const nodetypedvalue_t get_nodetypedvalue[] = {
5720 { "root/string", VT_BSTR, "Wine" },
5721 { "root/string2", VT_BSTR, "String" },
5722 { "root/number", VT_BSTR, "12.44" },
5723 { "root/number2", VT_BSTR, "-3.71e3" },
5724 { "root/int", VT_I4, "-13" },
5725 { "root/fixed", VT_CY, "7322.9371" },
5726 { "root/bool", VT_BOOL, "-1" },
5727 { "root/datetime", VT_DATE, "40135.14" },
5728 { "root/datetimetz",VT_DATE, "37813.59" },
5729 { "root/date", VT_DATE, "665413" },
5730 { "root/time", VT_DATE, "0.5813889" },
5731 { "root/timetz", VT_DATE, "1.112512" },
5732 { "root/i1", VT_I1, "-13" },
5733 { "root/i2", VT_I2, "31915" },
5734 { "root/i4", VT_I4, "-312232" },
5735 { "root/ui1", VT_UI1, "123" },
5736 { "root/ui2", VT_UI2, "48282" },
5737 { "root/ui4", VT_UI4, "949281" },
5738 { "root/r4", VT_R4, "213124" },
5739 { "root/r8", VT_R8, "0.412" },
5740 { "root/float", VT_R8, "41221.421" },
5741 { "root/uuid", VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
5745 static void test_nodeTypedValue(void)
5747 const nodetypedvalue_t *entry = get_nodetypedvalue;
5748 IXMLDOMDocument *doc;
5754 doc = create_document(&IID_IXMLDOMDocument);
5758 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
5759 ok(hr == S_OK, "ret %08x\n", hr );
5760 ok(b == VARIANT_TRUE, "got %d\n", b);
5762 hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
5763 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5765 V_VT(&value) = VT_BSTR;
5766 V_BSTR(&value) = NULL;
5767 hr = IXMLDOMDocument_get_nodeValue(doc, &value);
5768 ok(hr == S_FALSE, "ret %08x\n", hr );
5769 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
5771 hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
5772 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5774 hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
5775 ok(hr == S_FALSE, "ret %08x\n", hr );
5777 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
5778 ok(hr == S_OK, "ret %08x\n", hr );
5780 V_VT(&value) = VT_BSTR;
5781 V_BSTR(&value) = NULL;
5782 hr = IXMLDOMNode_get_nodeValue(node, &value);
5783 ok(hr == S_FALSE, "ret %08x\n", hr );
5784 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
5786 hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
5787 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5789 IXMLDOMNode_Release(node);
5791 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
5792 ok(hr == S_OK, "ret %08x\n", hr );
5794 BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
5796 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5797 ok(hr == S_OK, "ret %08x\n", hr );
5798 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
5799 ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
5800 if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
5801 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
5802 VariantClear(&value);
5803 IXMLDOMNode_Release(node);
5806 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binbase64"), &node);
5807 ok(hr == S_OK, "ret %08x\n", hr );
5809 BYTE bytes[] = {0x62,0x61,0x73,0x65,0x36,0x34,0x20,0x74,0x65,0x73,0x74};
5811 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5812 ok(hr == S_OK, "ret %08x\n", hr );
5813 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
5814 ok(V_ARRAY(&value)->rgsabound[0].cElements == 11, "incorrect array size\n");
5815 if(V_ARRAY(&value)->rgsabound[0].cElements == 11)
5816 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
5817 VariantClear(&value);
5818 IXMLDOMNode_Release(node);
5823 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
5824 ok(hr == S_OK, "ret %08x\n", hr );
5826 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5827 ok(hr == S_OK, "ret %08x\n", hr );
5828 ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
5830 if (entry->type != VT_BSTR)
5832 if (entry->type == VT_DATE ||
5833 entry->type == VT_R8 ||
5834 entry->type == VT_CY)
5836 if (entry->type == VT_DATE)
5838 hr = VariantChangeType(&value, &value, 0, VT_R4);
5839 ok(hr == S_OK, "ret %08x\n", hr );
5841 hr = VariantChangeTypeEx(&value, &value,
5842 MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
5843 VARIANT_NOUSEROVERRIDE, VT_BSTR);
5844 ok(hr == S_OK, "ret %08x\n", hr );
5848 hr = VariantChangeType(&value, &value, 0, VT_BSTR);
5849 ok(hr == S_OK, "ret %08x\n", hr );
5852 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
5853 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
5856 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
5857 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
5859 VariantClear( &value );
5860 IXMLDOMNode_Release(node);
5865 IXMLDOMDocument_Release(doc);
5869 static void test_TransformWithLoadingLocalFile(void)
5871 IXMLDOMDocument *doc;
5872 IXMLDOMDocument *xsl;
5878 char lpPathBuffer[MAX_PATH];
5881 /* Create a Temp File. */
5882 GetTempPathA(MAX_PATH, lpPathBuffer);
5883 strcat(lpPathBuffer, "customers.xml" );
5885 file = CreateFile(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
5886 ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
5887 if(file == INVALID_HANDLE_VALUE)
5890 WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
5893 /* Correct path to not include a escape character. */
5894 for(i=0; i < strlen(lpPathBuffer); i++)
5896 if(lpPathBuffer[i] == '\\')
5897 lpPathBuffer[i] = '/';
5900 doc = create_document(&IID_IXMLDOMDocument);
5903 xsl = create_document(&IID_IXMLDOMDocument);
5906 IXMLDOMDocument2_Release(doc);
5910 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
5911 ok(hr == S_OK, "ret %08x\n", hr );
5912 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5913 if(bSucc == VARIANT_TRUE)
5916 BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
5917 BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
5918 BSTR sFileName = _bstr_(lpPathBuffer);
5919 int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
5921 sXSL = SysAllocStringLen(NULL, nLegnth);
5922 lstrcpyW(sXSL, sPart1);
5923 lstrcatW(sXSL, sFileName);
5924 lstrcatW(sXSL, sPart2);
5926 hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
5927 ok(hr == S_OK, "ret %08x\n", hr );
5928 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5929 if(bSucc == VARIANT_TRUE)
5933 hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
5934 ok(hr == S_OK, "ret %08x\n", hr );
5937 /* This will load the temp file via the XSL */
5938 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
5939 ok(hr == S_OK, "ret %08x\n", hr );
5942 ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
5943 SysFreeString(sResult);
5946 IXMLDOMNode_Release(pNode);
5950 SysFreeString(sXSL);
5953 IXMLDOMDocument_Release(doc);
5954 IXMLDOMDocument_Release(xsl);
5956 DeleteFile(lpPathBuffer);
5960 static void test_put_nodeValue(void)
5962 IXMLDOMDocument *doc;
5963 IXMLDOMEntityReference *entityref;
5968 doc = create_document(&IID_IXMLDOMDocument);
5971 /* test for unsupported types */
5973 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
5974 ok(hr == S_OK, "ret %08x\n", hr );
5975 V_VT(&data) = VT_BSTR;
5976 V_BSTR(&data) = _bstr_("one two three");
5977 hr = IXMLDOMNode_put_nodeValue(node, data);
5978 ok(hr == E_FAIL, "ret %08x\n", hr );
5979 IXMLDOMNode_Release(node);
5981 /* NODE_DOCUMENT_FRAGMENT */
5982 V_VT(&type) = VT_I1;
5983 V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
5984 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
5985 ok(hr == S_OK, "ret %08x\n", hr );
5986 V_VT(&data) = VT_BSTR;
5987 V_BSTR(&data) = _bstr_("one two three");
5988 hr = IXMLDOMNode_put_nodeValue(node, data);
5989 ok(hr == E_FAIL, "ret %08x\n", hr );
5990 IXMLDOMNode_Release(node);
5993 V_VT(&type) = VT_I1;
5994 V_I1(&type) = NODE_ELEMENT;
5995 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
5996 ok(hr == S_OK, "ret %08x\n", hr );
5997 V_VT(&data) = VT_BSTR;
5998 V_BSTR(&data) = _bstr_("one two three");
5999 hr = IXMLDOMNode_put_nodeValue(node, data);
6000 ok(hr == E_FAIL, "ret %08x\n", hr );
6001 IXMLDOMNode_Release(node);
6003 /* NODE_ENTITY_REFERENCE */
6004 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6005 ok(hr == S_OK, "ret %08x\n", hr );
6007 V_VT(&data) = VT_BSTR;
6008 V_BSTR(&data) = _bstr_("one two three");
6009 hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6010 ok(hr == E_FAIL, "ret %08x\n", hr );
6012 hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6013 ok(hr == S_OK, "ret %08x\n", hr );
6014 V_VT(&data) = VT_BSTR;
6015 V_BSTR(&data) = _bstr_("one two three");
6016 hr = IXMLDOMNode_put_nodeValue(node, data);
6017 ok(hr == E_FAIL, "ret %08x\n", hr );
6018 IXMLDOMNode_Release(node);
6019 IXMLDOMEntityReference_Release(entityref);
6023 IXMLDOMDocument_Release(doc);
6026 static void test_IObjectSafety_set(IObjectSafety *safety, HRESULT result, HRESULT result2, DWORD set, DWORD mask, DWORD expected, DWORD expected2)
6028 DWORD enabled, supported;
6031 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
6032 if (result == result2)
6033 ok(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
6035 ok(broken(hr == result) || hr == result2,
6036 "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
6038 supported = enabled = 0xCAFECAFE;
6039 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6040 ok(hr == S_OK, "ret %08x\n", hr );
6041 if (expected == expected2)
6042 ok(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
6044 ok(broken(enabled == expected) || enabled == expected2,
6045 "Expected %08x, got %08x\n", expected2, enabled);
6047 /* reset the safety options */
6049 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6050 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
6052 ok(hr == S_OK, "ret %08x\n", hr );
6054 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6055 ok(hr == S_OK, "ret %08x\n", hr );
6056 ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6059 static void test_document_IObjectSafety(void)
6061 IXMLDOMDocument *doc;
6062 IObjectSafety *safety;
6063 DWORD enabled = 0, supported = 0;
6066 doc = create_document(&IID_IXMLDOMDocument);
6069 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6070 ok(hr == S_OK, "ret %08x\n", hr );
6073 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
6074 ok(hr == E_POINTER, "ret %08x\n", hr );
6075 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
6076 ok(hr == E_POINTER, "ret %08x\n", hr );
6078 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6079 ok(hr == S_OK, "ret %08x\n", hr );
6080 ok(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
6081 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6082 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
6083 "got %08x\n", supported);
6084 ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6086 /* set -- individual flags */
6088 test_IObjectSafety_set(safety, S_OK, S_OK,
6089 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6090 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6092 test_IObjectSafety_set(safety, S_OK, S_OK,
6093 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
6094 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
6096 test_IObjectSafety_set(safety, S_OK, S_OK,
6097 INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
6098 0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
6100 /* set INTERFACE_USES_DISPEX */
6102 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6103 INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
6106 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6107 INTERFACE_USES_DISPEX, 0,
6110 test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
6111 0, INTERFACE_USES_DISPEX,
6114 /* set option masking */
6116 test_IObjectSafety_set(safety, S_OK, S_OK,
6117 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6118 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6119 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6120 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6122 test_IObjectSafety_set(safety, S_OK, S_OK,
6123 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6124 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6125 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6126 INTERFACESAFE_FOR_UNTRUSTED_DATA);
6128 test_IObjectSafety_set(safety, S_OK, S_OK,
6129 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6130 INTERFACE_USES_SECURITY_MANAGER,
6134 /* set -- inheriting previous settings */
6136 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6137 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6138 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6139 ok(hr == S_OK, "ret %08x\n", hr );
6140 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6141 ok(hr == S_OK, "ret %08x\n", hr );
6143 ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER) ||
6144 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6145 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER), "
6146 "got %08x\n", enabled);
6148 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6149 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6150 INTERFACESAFE_FOR_UNTRUSTED_DATA);
6151 ok(hr == S_OK, "ret %08x\n", hr );
6152 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6153 ok(hr == S_OK, "ret %08x\n", hr );
6155 ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
6156 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) /* msxml3 SP8+ */,
6157 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA), "
6158 "got %08x\n", enabled);
6160 IObjectSafety_Release(safety);
6162 IXMLDOMDocument_Release(doc);
6165 typedef struct _property_test_t {
6168 const char *property;
6172 static const property_test_t properties_test_data[] = {
6173 { &CLSID_DOMDocument, "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6174 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6175 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6176 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6177 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6181 static void test_default_properties(void)
6183 const property_test_t *entry = properties_test_data;
6184 IXMLDOMDocument2 *doc;
6190 hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6193 win_skip("can't create %s instance\n", entry->clsid);
6198 hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6199 ok(hr == S_OK, "got 0x%08x\n", hr);
6200 ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6201 entry->value, entry->clsid);
6204 IXMLDOMDocument2_Release(doc);
6210 static void test_XSLPattern(void)
6212 IXMLDOMDocument2 *doc;
6213 IXMLDOMNodeList *list;
6217 doc = create_document(&IID_IXMLDOMDocument2);
6220 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b));
6221 ok(b == VARIANT_TRUE, "failed to load XML string\n");
6223 /* switch to XSLPattern */
6224 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
6226 /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6227 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list));
6229 ole_check(IXMLDOMNodeList_get_length(list, &len));
6230 /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6231 ok(len == 3, "expected 3 entries in list, got %d\n", len);
6232 IXMLDOMNodeList_Release(list);
6234 /* for XSLPattern start index is 0, for XPath it's 1 */
6235 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
6237 ole_check(IXMLDOMNodeList_get_length(list, &len));
6238 ok(len != 0, "expected filled list\n");
6240 expect_list_and_release(list, "E1.E2.D1");
6243 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=1]"), &list));
6245 ole_check(IXMLDOMNodeList_get_length(list, &len));
6246 ok(len != 0, "expected filled list\n");
6248 expect_list_and_release(list, "E2.E2.D1");
6251 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $eq$ 1]"), &list));
6253 ole_check(IXMLDOMNodeList_get_length(list, &len));
6254 ok(len != 0, "expected filled list\n");
6256 expect_list_and_release(list, "E2.E2.D1");
6259 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[end()]"), &list));
6261 ole_check(IXMLDOMNodeList_get_length(list, &len));
6262 ok(len != 0, "expected filled list\n");
6264 expect_list_and_release(list, "E4.E2.D1");
6267 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$not$ end()]"), &list));
6269 ole_check(IXMLDOMNodeList_get_length(list, &len));
6270 ok(len != 0, "expected filled list\n");
6272 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
6275 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() != 0]"), &list));
6277 ole_check(IXMLDOMNodeList_get_length(list, &len));
6278 ok(len != 0, "expected filled list\n");
6280 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6281 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ne$ 0]"), &list));
6283 ole_check(IXMLDOMNodeList_get_length(list, &len));
6284 ok(len != 0, "expected filled list\n");
6286 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6289 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() < 2]"), &list));
6291 ole_check(IXMLDOMNodeList_get_length(list, &len));
6292 ok(len != 0, "expected filled list\n");
6294 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6295 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $lt$ 2]"), &list));
6297 ole_check(IXMLDOMNodeList_get_length(list, &len));
6298 ok(len != 0, "expected filled list\n");
6300 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6303 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() <= 1]"), &list));
6305 ole_check(IXMLDOMNodeList_get_length(list, &len));
6306 ok(len != 0, "expected filled list\n");
6308 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6309 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $le$ 1]"), &list));
6311 ole_check(IXMLDOMNodeList_get_length(list, &len));
6312 ok(len != 0, "expected filled list\n");
6314 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6317 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() > 1]"), &list));
6319 ole_check(IXMLDOMNodeList_get_length(list, &len));
6320 ok(len != 0, "expected filled list\n");
6322 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6323 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $gt$ 1]"), &list));
6325 ole_check(IXMLDOMNodeList_get_length(list, &len));
6326 ok(len != 0, "expected filled list\n");
6328 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6331 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() >= 2]"), &list));
6333 ole_check(IXMLDOMNodeList_get_length(list, &len));
6334 ok(len != 0, "expected filled list\n");
6336 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6337 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ge$ 2]"), &list));
6339 ole_check(IXMLDOMNodeList_get_length(list, &len));
6340 ok(len != 0, "expected filled list\n");
6342 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6345 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ieq$ 'a2 field']"), &list));
6347 ole_check(IXMLDOMNodeList_get_length(list, &len));
6348 ok(len != 0, "expected filled list\n");
6350 expect_list_and_release(list, "E2.E2.D1");
6353 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ine$ 'a2 field']"), &list));
6355 ole_check(IXMLDOMNodeList_get_length(list, &len));
6356 ok(len != 0, "expected filled list\n");
6358 expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6361 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ilt$ 'a3 field']"), &list));
6363 ole_check(IXMLDOMNodeList_get_length(list, &len));
6364 ok(len != 0, "expected filled list\n");
6366 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6369 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ile$ 'a2 field']"), &list));
6371 ole_check(IXMLDOMNodeList_get_length(list, &len));
6372 ok(len != 0, "expected filled list\n");
6374 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6377 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $igt$ 'a2 field']"), &list));
6379 ole_check(IXMLDOMNodeList_get_length(list, &len));
6380 ok(len != 0, "expected filled list\n");
6382 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6385 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ige$ 'a3 field']"), &list));
6387 ole_check(IXMLDOMNodeList_get_length(list, &len));
6388 ok(len != 0, "expected filled list\n");
6390 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6393 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$any$ *='B2 field']"), &list));
6395 ole_check(IXMLDOMNodeList_get_length(list, &len));
6396 ok(len != 0, "expected filled list\n");
6398 expect_list_and_release(list, "E2.E2.D1");
6401 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$all$ *!='B2 field']"), &list));
6403 ole_check(IXMLDOMNodeList_get_length(list, &len));
6404 ok(len != 0, "expected filled list\n");
6406 expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6409 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 or end()]"), &list));
6411 ole_check(IXMLDOMNodeList_get_length(list, &len));
6412 ok(len != 0, "expected filled list\n");
6414 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6415 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 $or$ end()]"), &list));
6417 ole_check(IXMLDOMNodeList_get_length(list, &len));
6418 ok(len != 0, "expected filled list\n");
6420 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6421 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 || end()]"), &list));
6423 ole_check(IXMLDOMNodeList_get_length(list, &len));
6424 ok(len != 0, "expected filled list\n");
6426 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6429 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 and $not$ end()]"), &list));
6431 ole_check(IXMLDOMNodeList_get_length(list, &len));
6432 ok(len != 0, "expected filled list\n");
6434 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6435 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 $and$ $not$ end()]"), &list));
6437 ole_check(IXMLDOMNodeList_get_length(list, &len));
6438 ok(len != 0, "expected filled list\n");
6440 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6441 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 && $not$ end()]"), &list));
6443 ole_check(IXMLDOMNodeList_get_length(list, &len));
6444 ok(len != 0, "expected filled list\n");
6446 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6449 IXMLDOMDocument2_Release(doc);
6453 static void test_splitText(void)
6455 IXMLDOMCDATASection *cdata;
6456 IXMLDOMElement *root;
6457 IXMLDOMDocument *doc;
6458 IXMLDOMText *text, *text2;
6461 VARIANT_BOOL success;
6465 doc = create_document(&IID_IXMLDOMDocument);
6468 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
6469 ok(hr == S_OK, "got 0x%08x\n", hr);
6471 hr = IXMLDOMDocument_get_documentElement(doc, &root);
6472 ok(hr == S_OK, "got 0x%08x\n", hr);
6474 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
6475 ok(hr == S_OK, "got 0x%08x\n", hr);
6477 V_VT(&var) = VT_EMPTY;
6478 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
6479 ok(hr == S_OK, "got 0x%08x\n", hr);
6482 hr = IXMLDOMCDATASection_get_length(cdata, &length);
6483 ok(hr == S_OK, "got 0x%08x\n", hr);
6484 ok(length > 0, "got %d\n", length);
6486 hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
6487 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6489 text = (void*)0xdeadbeef;
6490 /* negative offset */
6491 hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
6492 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6493 ok(text == (void*)0xdeadbeef, "got %p\n", text);
6495 text = (void*)0xdeadbeef;
6496 /* offset outside data */
6497 hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
6498 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6499 ok(text == 0, "got %p\n", text);
6501 text = (void*)0xdeadbeef;
6502 /* offset outside data */
6503 hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
6504 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6505 ok(text == 0, "got %p\n", text);
6507 /* no empty node created */
6508 node = (void*)0xdeadbeef;
6509 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
6510 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6511 ok(node == 0, "got %p\n", text);
6513 hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
6514 ok(hr == S_OK, "got 0x%08x\n", hr);
6517 hr = IXMLDOMText_get_length(text, &length);
6518 ok(hr == S_OK, "got 0x%08x\n", hr);
6519 ok(length == 7, "got %d\n", length);
6521 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
6522 ok(hr == S_OK, "got 0x%08x\n", hr);
6523 IXMLDOMNode_Release(node);
6525 /* split new text node */
6526 hr = IXMLDOMText_get_length(text, &length);
6527 ok(hr == S_OK, "got 0x%08x\n", hr);
6529 node = (void*)0xdeadbeef;
6530 hr = IXMLDOMText_get_nextSibling(text, &node);
6531 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6532 ok(node == 0, "got %p\n", text);
6534 hr = IXMLDOMText_splitText(text, 0, NULL);
6535 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6537 text2 = (void*)0xdeadbeef;
6538 /* negative offset */
6539 hr = IXMLDOMText_splitText(text, -1, &text2);
6540 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6541 ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
6543 text2 = (void*)0xdeadbeef;
6544 /* offset outside data */
6545 hr = IXMLDOMText_splitText(text, length + 1, &text2);
6546 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6547 ok(text2 == 0, "got %p\n", text2);
6549 text2 = (void*)0xdeadbeef;
6550 /* offset outside data */
6551 hr = IXMLDOMText_splitText(text, length, &text2);
6552 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6553 ok(text2 == 0, "got %p\n", text);
6556 hr = IXMLDOMText_splitText(text, 4, &text2);
6557 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
6558 if (text2) IXMLDOMText_Release(text2);
6561 hr = IXMLDOMText_get_nextSibling(text, &node);
6562 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
6563 if (node) IXMLDOMNode_Release(node);
6565 IXMLDOMText_Release(text);
6566 IXMLDOMElement_Release(root);
6567 IXMLDOMCDATASection_Release(cdata);
6571 static void test_getQualifiedItem(void)
6573 IXMLDOMDocument *doc;
6574 IXMLDOMElement *element;
6575 IXMLDOMNode *pr_node, *node;
6576 IXMLDOMNodeList *root_list;
6577 IXMLDOMNamedNodeMap *map;
6583 doc = create_document(&IID_IXMLDOMDocument);
6586 str = SysAllocString( szComplete4 );
6587 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6588 ok( hr == S_OK, "loadXML failed\n");
6589 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6590 SysFreeString( str );
6592 hr = IXMLDOMDocument_get_documentElement(doc, &element);
6593 ok( hr == S_OK, "ret %08x\n", hr);
6595 hr = IXMLDOMElement_get_childNodes(element, &root_list);
6596 ok( hr == S_OK, "ret %08x\n", hr);
6598 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
6599 ok( hr == S_OK, "ret %08x\n", hr);
6600 IXMLDOMNodeList_Release(root_list);
6602 hr = IXMLDOMNode_get_attributes(pr_node, &map);
6603 ok( hr == S_OK, "ret %08x\n", hr);
6604 IXMLDOMNode_Release(pr_node);
6606 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
6607 ok( hr == S_OK, "ret %08x\n", hr);
6608 ok( len == 3, "length %d\n", len);
6610 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
6611 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6613 node = (void*)0xdeadbeef;
6614 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
6615 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6616 ok( node == (void*)0xdeadbeef, "got %p\n", node);
6618 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
6619 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6621 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
6622 ok( hr == S_OK, "ret %08x\n", hr);
6623 IXMLDOMNode_Release(node);
6625 IXMLDOMNamedNodeMap_Release( map );
6626 IXMLDOMElement_Release( element );
6627 IXMLDOMDocument_Release( doc );
6631 static void test_removeQualifiedItem(void)
6633 IXMLDOMDocument *doc;
6634 IXMLDOMElement *element;
6635 IXMLDOMNode *pr_node, *node;
6636 IXMLDOMNodeList *root_list;
6637 IXMLDOMNamedNodeMap *map;
6643 doc = create_document(&IID_IXMLDOMDocument);
6646 str = SysAllocString( szComplete4 );
6647 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6648 ok( hr == S_OK, "loadXML failed\n");
6649 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6650 SysFreeString( str );
6652 hr = IXMLDOMDocument_get_documentElement(doc, &element);
6653 ok( hr == S_OK, "ret %08x\n", hr);
6655 hr = IXMLDOMElement_get_childNodes(element, &root_list);
6656 ok( hr == S_OK, "ret %08x\n", hr);
6658 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
6659 ok( hr == S_OK, "ret %08x\n", hr);
6660 IXMLDOMNodeList_Release(root_list);
6662 hr = IXMLDOMNode_get_attributes(pr_node, &map);
6663 ok( hr == S_OK, "ret %08x\n", hr);
6664 IXMLDOMNode_Release(pr_node);
6666 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
6667 ok( hr == S_OK, "ret %08x\n", hr);
6668 ok( len == 3, "length %d\n", len);
6670 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
6671 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6673 node = (void*)0xdeadbeef;
6674 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
6675 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6676 ok( node == (void*)0xdeadbeef, "got %p\n", node);
6678 /* out pointer is optional */
6679 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
6680 ok( hr == S_OK, "ret %08x\n", hr);
6682 /* already removed */
6683 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
6684 ok( hr == S_FALSE, "ret %08x\n", hr);
6686 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
6687 ok( hr == S_OK, "ret %08x\n", hr);
6688 IXMLDOMNode_Release(node);
6690 IXMLDOMNamedNodeMap_Release( map );
6691 IXMLDOMElement_Release( element );
6692 IXMLDOMDocument_Release( doc );
6696 static void test_get_ownerDocument(void)
6698 IXMLDOMDocument *doc1, *doc2, *doc3;
6699 IXMLDOMDocument2 *doc, *doc_owner;
6706 doc = create_document(&IID_IXMLDOMDocument2);
6709 str = SysAllocString( szComplete4 );
6710 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6711 ok( hr == S_OK, "loadXML failed\n");
6712 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6713 SysFreeString( str );
6715 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
6716 ok( hr == S_OK, "got 0x%08x\n", hr);
6717 ok( lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
6720 /* set to XPath and check that new instances use it */
6721 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
6722 ok( hr == S_OK, "got 0x%08x\n", hr);
6724 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'"));
6725 ok( hr == S_OK, "got 0x%08x\n", hr);
6727 hr = IXMLDOMDocument2_get_firstChild(doc, &node);
6728 ok( hr == S_OK, "got 0x%08x\n", hr);
6730 hr = IXMLDOMNode_get_ownerDocument(node, &doc1);
6731 ok( hr == S_OK, "got 0x%08x\n", hr);
6733 hr = IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner);
6734 ok( hr == S_OK, "got 0x%08x\n", hr);
6735 ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
6736 hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionNamespaces"), &var);
6737 ok( hr == S_OK, "got 0x%08x\n", hr);
6738 ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
6741 hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionLanguage"), &var);
6742 ok( hr == S_OK, "got 0x%08x\n", hr);
6743 ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
6745 IXMLDOMDocument2_Release(doc_owner);
6747 hr = IXMLDOMNode_get_ownerDocument(node, &doc2);
6748 ok( hr == S_OK, "got 0x%08x\n", hr);
6749 IXMLDOMNode_Release(node);
6751 ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
6754 str = SysAllocString( szComplete4 );
6755 hr = IXMLDOMDocument2_loadXML( doc, str, &b );
6756 ok( hr == S_OK, "got 0x%08x\n", hr);
6757 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6758 SysFreeString( str );
6760 /* properties retained even after reload */
6761 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
6762 ok( hr == S_OK, "got 0x%08x\n", hr);
6763 ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
6766 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
6767 ok( hr == S_OK, "got 0x%08x\n", hr);
6768 ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
6771 hr = IXMLDOMDocument2_get_firstChild(doc, &node);
6772 ok( hr == S_OK, "got 0x%08x\n", hr);
6774 hr = IXMLDOMNode_get_ownerDocument(node, &doc3);
6775 ok( hr == S_OK, "got 0x%08x\n", hr);
6776 IXMLDOMNode_Release(node);
6778 hr = IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner);
6779 ok( hr == S_OK, "got 0x%08x\n", hr);
6780 ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
6782 IXMLDOMDocument_Release(doc1);
6783 IXMLDOMDocument_Release(doc2);
6784 IXMLDOMDocument_Release(doc3);
6785 IXMLDOMDocument2_Release(doc);
6789 static void test_setAttributeNode(void)
6791 IXMLDOMDocument *doc, *doc2;
6792 IXMLDOMElement *elem;
6793 IXMLDOMAttribute *attr, *attr2, *ret_attr;
6798 doc = create_document(&IID_IXMLDOMDocument);
6801 str = SysAllocString( szComplete4 );
6802 hr = IXMLDOMDocument2_loadXML( doc, str, &b );
6803 ok( hr == S_OK, "loadXML failed\n");
6804 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6805 SysFreeString( str );
6807 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6808 ok( hr == S_OK, "got 0x%08x\n", hr);
6810 ret_attr = (void*)0xdeadbeef;
6811 hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
6812 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
6813 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
6815 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6816 ok( hr == S_OK, "got 0x%08x\n", hr);
6818 ret_attr = (void*)0xdeadbeef;
6819 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
6820 todo_wine ok( hr == S_OK, "got 0x%08x\n", hr);
6821 todo_wine ok( ret_attr == NULL, "got %p\n", ret_attr);
6824 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
6825 todo_wine ok( hr == S_OK, "got 0x%08x\n", hr);
6826 if (attr2) IXMLDOMAttribute_Release(attr2);
6828 /* try to add it another time */
6829 ret_attr = (void*)0xdeadbeef;
6830 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
6831 todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
6832 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
6834 IXMLDOMElement_Release(elem);
6836 /* add attribute already attached to another document */
6837 doc2 = create_document(&IID_IXMLDOMDocument);
6839 str = SysAllocString( szComplete4 );
6840 hr = IXMLDOMDocument_loadXML( doc2, str, &b );
6841 ok( hr == S_OK, "loadXML failed\n");
6842 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6843 SysFreeString( str );
6845 hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
6846 ok( hr == S_OK, "got 0x%08x\n", hr);
6847 hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
6848 todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
6849 IXMLDOMElement_Release(elem);
6851 IXMLDOMDocument_Release(doc2);
6853 IXMLDOMAttribute_Release(attr);
6854 IXMLDOMDocument_Release(doc);
6858 static void test_put_dataType(void)
6860 IXMLDOMCDATASection *cdata;
6861 IXMLDOMDocument *doc;
6866 doc = create_document(&IID_IXMLDOMDocument);
6869 str = SysAllocString( szComplete4 );
6870 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6871 ok( hr == S_OK, "loadXML failed\n");
6872 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6873 SysFreeString( str );
6875 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("test"), &cdata);
6876 ok( hr == S_OK, "got 0x%08x\n", hr);
6877 hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("number"));
6878 ok( hr == E_FAIL, "got 0x%08x\n", hr);
6879 hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("string"));
6880 ok( hr == E_FAIL, "got 0x%08x\n", hr);
6881 IXMLDOMCDATASection_Release(cdata);
6883 IXMLDOMDocument_Release(doc);
6887 static void test_createNode(void)
6889 IXMLDOMDocument *doc;
6890 IXMLDOMElement *elem;
6896 doc = create_document(&IID_IXMLDOMDocument);
6899 /* NODE_ELEMENT nodes */
6900 /* 1. specified namespace */
6902 V_I4(&v) = NODE_ELEMENT;
6904 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
6905 ok( hr == S_OK, "got 0x%08x\n", hr);
6907 hr = IXMLDOMNode_get_prefix(node, &prefix);
6908 ok( hr == S_OK, "got 0x%08x\n", hr);
6909 ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
6910 SysFreeString(prefix);
6911 IXMLDOMNode_Release(node);
6913 /* 2. default namespace */
6914 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
6915 ok( hr == S_OK, "got 0x%08x\n", hr);
6916 prefix = (void*)0xdeadbeef;
6917 hr = IXMLDOMNode_get_prefix(node, &prefix);
6918 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6919 ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
6921 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
6922 ok( hr == S_OK, "got 0x%08x\n", hr);
6924 V_VT(&var) = VT_BSTR;
6925 hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
6926 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6927 ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
6930 hr = IXMLDOMElement_get_namespaceURI(elem, &str);
6931 ok( hr == S_OK, "got 0x%08x\n", hr);
6932 ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
6935 IXMLDOMElement_Release(elem);
6936 IXMLDOMNode_Release(node);
6938 IXMLDOMDocument_Release(doc);
6942 static void test_get_prefix(void)
6944 IXMLDOMDocument *doc;
6945 IXMLDOMElement *element;
6949 doc = create_document(&IID_IXMLDOMDocument);
6953 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
6954 ok( hr == S_OK, "got 0x%08x\n", hr);
6956 hr = IXMLDOMElement_get_prefix(element, NULL);
6957 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
6959 str = (void*)0xdeadbeef;
6960 hr = IXMLDOMElement_get_prefix(element, &str);
6961 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6962 ok( str == 0, "got %p\n", str);
6964 IXMLDOMElement_Release(element);
6967 hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
6968 ok( hr == S_OK, "got 0x%08x\n", hr);
6970 str = (void*)0xdeadbeef;
6971 hr = IXMLDOMElement_get_prefix(element, &str);
6972 ok( hr == S_OK, "got 0x%08x\n", hr);
6973 ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
6976 str = (void*)0xdeadbeef;
6977 hr = IXMLDOMElement_get_namespaceURI(element, &str);
6978 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6979 ok( str == 0, "got %p\n", str);
6981 IXMLDOMElement_Release(element);
6983 IXMLDOMDocument_Release(doc);
6987 static void test_selectSingleNode(void)
6989 IXMLDOMDocument *doc;
6990 IXMLDOMNodeList *list;
6997 doc = create_document(&IID_IXMLDOMDocument);
7000 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7001 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7003 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7004 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7006 str = SysAllocString( szComplete4 );
7007 hr = IXMLDOMDocument_loadXML( doc, str, &b );
7008 ok( hr == S_OK, "loadXML failed\n");
7009 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7010 SysFreeString( str );
7012 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7013 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7015 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7016 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7018 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
7019 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7021 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
7022 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7024 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
7025 ok(hr == S_OK, "got 0x%08x\n", hr);
7026 IXMLDOMNode_Release(node);
7028 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
7029 ok(hr == S_OK, "got 0x%08x\n", hr);
7030 IXMLDOMNodeList_Release(list);
7032 list = (void*)0xdeadbeef;
7033 hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
7034 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7035 ok(list == (void*)0xdeadbeef, "got %p\n", list);
7037 node = (void*)0xdeadbeef;
7038 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
7039 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7040 ok(node == 0, "got %p\n", node);
7042 list = (void*)0xdeadbeef;
7043 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
7044 ok(hr == S_OK, "got 0x%08x\n", hr);
7046 hr = IXMLDOMNodeList_get_length(list, &len);
7047 ok(hr == S_OK, "got 0x%08x\n", hr);
7048 ok(len == 0, "got %d\n", len);
7049 IXMLDOMNodeList_Release(list);
7051 IXMLDOMDocument_Release(doc);
7057 IXMLDOMDocument *doc;
7060 hr = CoInitialize( NULL );
7061 ok( hr == S_OK, "failed to init com\n");
7067 hr = CoCreateInstance( &CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc );
7070 win_skip("IXMLDOMDocument is not available (0x%08x)\n", hr);
7074 IXMLDOMDocument_Release(doc);
7077 test_persiststreaminit();
7081 test_getElementsByTagName();
7083 test_get_childNodes();
7084 test_get_firstChild();
7085 test_get_lastChild();
7087 test_replaceChild();
7088 test_removeNamedItem();
7089 test_IXMLDOMDocument2();
7095 test_nodeTypeTests();
7096 test_DocumentSaveToDocument();
7097 test_DocumentSaveToFile();
7098 test_testTransforms();
7100 test_FormattingXML();
7101 test_nodeTypedValue();
7102 test_TransformWithLoadingLocalFile();
7103 test_put_nodeValue();
7104 test_document_IObjectSafety();
7106 test_getQualifiedItem();
7107 test_removeQualifiedItem();
7108 test_get_ownerDocument();
7109 test_setAttributeNode();
7110 test_put_dataType();
7113 test_default_properties();
7114 test_selectSingleNode();