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, bound;
3201 HRESULT hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL,
3202 CLSCTX_INPROC_SERVER, &IID_IXMLHttpRequest,
3203 (void **)&pXMLHttpRequest);
3206 win_skip("IXMLHTTPRequest is not available (0x%08x)\n", hr);
3210 VariantInit(&dummy);
3211 V_VT(&dummy) = VT_ERROR;
3212 V_ERROR(&dummy) = DISP_E_MEMBERNOTFOUND;
3213 VariantInit(&async);
3214 V_VT(&async) = VT_BOOL;
3215 V_BOOL(&async) = VARIANT_FALSE;
3216 V_VT(&varbody) = VT_BSTR;
3217 V_BSTR(&varbody) = SysAllocString(wszBody);
3219 method = SysAllocString(wszPOST);
3220 url = SysAllocString(wszUrl);
3224 /* crashes on win98 */
3225 hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, NULL);
3226 ok(hr == S_OK, "got 0x%08x\n", hr);
3229 hr = IXMLHttpRequest_abort(pXMLHttpRequest);
3230 ok(hr == S_OK, "got 0x%08x\n", hr);
3232 /* send before open */
3233 hr = IXMLHttpRequest_send(pXMLHttpRequest, dummy);
3234 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3236 /* initial status code */
3237 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, NULL);
3238 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3240 status = 0xdeadbeef;
3241 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3242 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3243 ok(status == 0xdeadbeef, "got %d\n", status);
3245 /* invalid parameters */
3246 hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, NULL, async, dummy, dummy);
3247 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3249 hr = IXMLHttpRequest_open(pXMLHttpRequest, method, NULL, async, dummy, dummy);
3250 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3252 hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, url, async, dummy, dummy);
3253 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3255 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, NULL);
3256 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3258 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), NULL);
3259 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3261 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3262 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3264 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3265 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3267 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, NULL);
3268 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3271 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3272 ok(hr == S_OK, "got 0x%08x\n", hr);
3273 ok(state == READYSTATE_UNINITIALIZED, "got %d, expected READYSTATE_UNINITIALIZED\n", state);
3275 event = create_dispevent();
3276 ref = IDispatch_AddRef(event);
3277 ok(ref == 2, "got %d\n", ref);
3278 IDispatch_Release(event);
3280 hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, event);
3281 ok(hr == S_OK, "got 0x%08x\n", hr);
3283 ref = IDispatch_AddRef(event);
3284 ok(ref == 3, "got %d\n", ref);
3285 IDispatch_Release(event);
3287 g_unexpectedcall = g_expectedcall = 0;
3289 hr = IXMLHttpRequest_open(pXMLHttpRequest, method, url, async, dummy, dummy);
3290 ok(hr == S_OK, "got 0x%08x\n", hr);
3292 ok(g_unexpectedcall == 0, "unexpected disp event call\n");
3293 ok(g_expectedcall == 1 || broken(g_expectedcall == 0) /* win2k */, "no expected disp event call\n");
3295 /* status code after ::open() */
3296 status = 0xdeadbeef;
3297 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3298 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3299 ok(status == 0xdeadbeef, "got %d\n", status);
3302 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3303 ok(hr == S_OK, "got 0x%08x\n", hr);
3304 ok(state == READYSTATE_LOADING, "got %d, expected READYSTATE_LOADING\n", state);
3306 hr = IXMLHttpRequest_abort(pXMLHttpRequest);
3307 ok(hr == S_OK, "got 0x%08x\n", hr);
3310 hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3311 ok(hr == S_OK, "got 0x%08x\n", hr);
3312 ok(state == READYSTATE_UNINITIALIZED || broken(state == READYSTATE_LOADING) /* win98, win2k */,
3313 "got %d, expected READYSTATE_UNINITIALIZED\n", state);
3315 hr = IXMLHttpRequest_open(pXMLHttpRequest, method, url, async, dummy, dummy);
3316 ok(hr == S_OK, "got 0x%08x\n", hr);
3318 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3319 ok(hr == S_OK, "got 0x%08x\n", hr);
3321 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3322 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3324 hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_(""), _bstr_("value1"));
3325 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3327 SysFreeString(method);
3330 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3331 if (hr == INET_E_RESOURCE_NOT_FOUND)
3333 skip("No connection could be made with crossover.codeweavers.com\n");
3334 IXMLHttpRequest_Release(pXMLHttpRequest);
3337 todo_wine ok(hr == S_OK, "IXMLHttpRequest_send should have succeeded instead of failing with 0x%08x\n", hr);
3339 /* status code after ::send() */
3340 status = 0xdeadbeef;
3341 hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3343 ok(hr == S_OK, "got 0x%08x\n", hr);
3344 ok(status == 200, "got %d\n", status);
3347 /* another ::send() after completed request */
3348 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3349 ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3351 VariantClear(&varbody);
3353 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3354 todo_wine ok(hr == S_OK, "IXMLHttpRequest_get_responseText should have succeeded instead of failing with 0x%08x\n", hr);
3355 /* the server currently returns "FAILED" because the Content-Type header is
3356 * not what the server expects */
3359 ok(!memcmp(bstrResponse, wszExpectedResponse, sizeof(wszExpectedResponse)), "bstrResponse differs from what was expected\n");
3360 SysFreeString(bstrResponse);
3364 url = SysAllocString(xmltestW);
3366 hr = IXMLHttpRequest_open(pXMLHttpRequest, _bstr_("GET"), url, async, dummy, dummy);
3367 ok(hr == S_OK, "got 0x%08x\n", hr);
3369 V_VT(&varbody) = VT_EMPTY;
3371 hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3372 if (hr == INET_E_RESOURCE_NOT_FOUND)
3374 skip("No connection could be made with crossover.codeweavers.com\n");
3375 IXMLHttpRequest_Release(pXMLHttpRequest);
3378 ok(hr == S_OK, "got 0x%08x\n", hr);
3380 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, NULL);
3381 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3383 hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3384 ok(hr == S_OK, "got 0x%08x\n", hr);
3387 ok(!memcmp(bstrResponse, _bstr_(xmltestbodyA), sizeof(xmltestbodyA)*sizeof(WCHAR)),
3388 "expected %s, got %s\n", xmltestbodyA, wine_dbgstr_w(bstrResponse));
3389 SysFreeString(bstrResponse);
3392 hr = IXMLHttpRequest_get_responseBody(pXMLHttpRequest, NULL);
3393 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3395 V_VT(&varbody) = VT_EMPTY;
3396 hr = IXMLHttpRequest_get_responseBody(pXMLHttpRequest, &varbody);
3397 ok(hr == S_OK, "got 0x%08x\n", hr);
3398 ok(V_VT(&varbody) == (VT_ARRAY|VT_UI1), "got type %d, expected %d\n", V_VT(&varbody), VT_ARRAY|VT_UI1);
3399 ok(SafeArrayGetDim(V_ARRAY(&varbody)) == 1, "got %d, expected one dimension\n", SafeArrayGetDim(V_ARRAY(&varbody)));
3402 hr = SafeArrayGetLBound(V_ARRAY(&varbody), 1, &bound);
3403 ok(hr == S_OK, "got 0x%08x\n", hr);
3404 ok(bound == 0, "got %d, expected zero bound\n", bound);
3406 hr = SafeArrayAccessData(V_ARRAY(&varbody), &ptr);
3407 ok(hr == S_OK, "got 0x%08x\n", hr);
3408 ok(memcmp(ptr, xmltestbodyA, sizeof(xmltestbodyA)-1) == 0, "got wrond body data\n");
3409 SafeArrayUnaccessData(V_ARRAY(&varbody));
3411 VariantClear(&varbody);
3415 IDispatch_Release(event);
3416 IXMLHttpRequest_Release(pXMLHttpRequest);
3420 static void test_IXMLDOMDocument2(void)
3422 static const WCHAR emptyW[] = {0};
3423 IXMLDOMDocument2 *doc2, *dtddoc2;
3424 IXMLDOMDocument *doc;
3425 IXMLDOMParseError* err;
3426 IDispatchEx *dispex;
3433 doc = create_document(&IID_IXMLDOMDocument);
3436 dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3439 IXMLDOMDocument_Release(doc);
3443 r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3444 ok( r == S_OK, "ret %08x\n", r );
3445 ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3447 ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3448 ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3449 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3452 ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3453 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3454 ok(err != NULL, "expected a pointer\n");
3458 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3460 ok(res == 0xC00CE223, "got %08x\n", res);
3461 IXMLDOMParseError_Release(err);
3464 str = SysAllocString( szComplete4 );
3465 r = IXMLDOMDocument_loadXML( doc2, str, &b );
3466 ok( r == S_OK, "loadXML failed\n");
3467 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3468 SysFreeString( str );
3470 ole_check(IXMLDOMDocument2_get_readyState(doc, &res));
3471 ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3474 ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3475 ok(err != NULL, "expected a pointer\n");
3479 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3481 todo_wine ok(res == 0xC00CE224, "got %08x\n", res);
3482 IXMLDOMParseError_Release(err);
3485 r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3486 ok( r == S_OK, "ret %08x\n", r );
3489 IDispatchEx_Release(dispex);
3492 /* we will check if the variant got cleared */
3493 ref = IXMLDOMDocument2_AddRef(doc2);
3494 expect_eq(ref, 3, int, "%d"); /* doc, doc2, AddRef*/
3495 V_VT(&var) = VT_UNKNOWN;
3496 V_UNKNOWN(&var) = (IUnknown *)doc2;
3499 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3500 expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3501 ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3504 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3505 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3506 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3509 /* the variant didn't get cleared*/
3510 expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3512 /* setProperty tests */
3513 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3514 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3515 ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3516 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3517 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3518 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3520 V_VT(&var) = VT_BSTR;
3521 V_BSTR(&var) = SysAllocString(emptyW);
3522 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3523 ok(r == S_OK, "got 0x%08x\n", r);
3528 r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3529 ok(r == E_FAIL, "got 0x%08x\n", r);
3531 /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3532 ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3533 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3534 expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3536 IXMLDOMDocument2_Release( doc2 );
3537 IXMLDOMDocument_Release( doc );
3539 /* DTD validation */
3540 ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3541 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3542 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3544 ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3545 ok(err != NULL, "expected pointer\n");
3549 ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3550 ok(res == 0, "got %08x\n", res);
3551 IXMLDOMParseError_Release(err);
3554 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3555 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3557 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3558 ok(err != NULL, "expected pointer\n");
3562 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3563 /* XML_ELEMENT_UNDECLARED */
3564 todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
3565 IXMLDOMParseError_Release(err);
3568 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
3569 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3571 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3572 ok(err != NULL, "expected pointer\n");
3576 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3577 /* XML_ELEMENT_ID_NOT_FOUND */
3578 todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
3579 IXMLDOMParseError_Release(err);
3582 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
3583 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3585 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3586 ok(err != NULL, "expected pointer\n");
3590 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3591 /* XML_EMPTY_NOT_ALLOWED */
3592 todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
3593 IXMLDOMParseError_Release(err);
3596 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
3597 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3599 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3600 ok(err != NULL, "expected pointer\n");
3604 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3605 /* XML_ROOT_NAME_MISMATCH */
3606 todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
3607 IXMLDOMParseError_Release(err);
3610 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
3611 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3613 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3614 ok(err != NULL, "expected pointer\n");
3618 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3619 /* XML_INVALID_CONTENT */
3620 todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
3621 IXMLDOMParseError_Release(err);
3624 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
3625 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3627 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3628 ok(err != NULL, "expected pointer\n");
3632 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3633 /* XML_ATTRIBUTE_NOT_DEFINED */
3634 todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
3635 IXMLDOMParseError_Release(err);
3638 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
3639 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3641 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3642 ok(err != NULL, "expected pointer\n");
3646 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3647 /* XML_ATTRIBUTE_FIXED */
3648 todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
3649 IXMLDOMParseError_Release(err);
3652 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
3653 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3655 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3656 ok(err != NULL, "expected pointer\n");
3660 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3661 /* XML_ATTRIBUTE_VALUE */
3662 todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
3663 IXMLDOMParseError_Release(err);
3666 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
3667 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3669 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3670 ok(err != NULL, "expected pointer\n");
3674 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3675 /* XML_ILLEGAL_TEXT */
3676 todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
3677 IXMLDOMParseError_Release(err);
3680 ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
3681 ok( b == VARIANT_TRUE, "failed to load XML string\n");
3683 ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3684 ok(err != NULL, "expected pointer\n");
3688 ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3689 /* XML_REQUIRED_ATTRIBUTE_MISSING */
3690 todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
3691 IXMLDOMParseError_Release(err);
3694 IXMLDOMDocument2_Release( dtddoc2 );
3698 static inline void check_ws_ignored(IXMLDOMDocument2* doc)
3700 IXMLDOMNode *node1, *node2;
3701 IXMLDOMNodeList *list;
3703 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
3704 ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
3705 ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
3706 ole_check(IXMLDOMNodeList_reset(list));
3707 expect_list_and_release(list, "E1.E4.E1.E2.D1 E2.E4.E1.E2.D1");
3709 ole_check(IXMLDOMNode_get_childNodes(node1, &list));
3710 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");
3711 IXMLDOMNode_Release(node1);
3712 ole_check(IXMLDOMNode_get_childNodes(node2, &list));
3713 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");
3714 IXMLDOMNode_Release(node2);
3717 static inline void check_ws_preserved(IXMLDOMDocument2* doc)
3719 IXMLDOMNode *node1, *node2;
3720 IXMLDOMNodeList *list;
3722 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
3723 ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
3724 ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
3725 ole_check(IXMLDOMNodeList_reset(list));
3726 expect_list_and_release(list, "E2.E8.E2.E2.D1 E4.E8.E2.E2.D1");
3728 ole_check(IXMLDOMNode_get_childNodes(node1, &list));
3729 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");
3730 IXMLDOMNode_Release(node1);
3731 ole_check(IXMLDOMNode_get_childNodes(node2, &list));
3732 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");
3733 IXMLDOMNode_Release(node2);
3736 static void test_whitespace(void)
3739 IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
3741 doc1 = create_document(&IID_IXMLDOMDocument2);
3742 doc2 = create_document(&IID_IXMLDOMDocument2);
3743 if (!doc1 || !doc2) return;
3745 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
3746 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
3747 ok(b == VARIANT_FALSE, "expected false\n");
3748 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
3749 ok(b == VARIANT_TRUE, "expected true\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 /* switch to XPath */
3757 ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3758 ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3760 check_ws_ignored(doc1);
3761 check_ws_preserved(doc2);
3763 /* new instances copy the property */
3764 ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
3765 ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
3767 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
3768 ok(b == VARIANT_FALSE, "expected false\n");
3769 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
3770 ok(b == VARIANT_TRUE, "expected true\n");
3772 check_ws_ignored(doc3);
3773 check_ws_preserved(doc4);
3775 /* setting after loading xml does nothing */
3776 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
3777 ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
3779 check_ws_ignored(doc1);
3780 check_ws_preserved(doc2);
3782 /* it takes effect on reload */
3783 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
3784 ok(b == VARIANT_TRUE, "expected true\n");
3785 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
3786 ok(b == VARIANT_FALSE, "expected false\n");
3788 ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
3789 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3790 ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
3791 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3793 check_ws_preserved(doc1);
3794 check_ws_ignored(doc2);
3796 /* other instances follow suit */
3797 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
3798 ok(b == VARIANT_TRUE, "expected true\n");
3799 ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
3800 ok(b == VARIANT_FALSE, "expected false\n");
3802 check_ws_preserved(doc3);
3803 check_ws_ignored(doc4);
3805 IXMLDOMDocument_Release(doc1);
3806 IXMLDOMDocument_Release(doc2);
3807 IXMLDOMDocument_Release(doc3);
3808 IXMLDOMDocument_Release(doc4);
3812 static void test_XPath(void)
3816 IXMLDOMDocument2 *doc;
3817 IXMLDOMNode *rootNode;
3818 IXMLDOMNode *elem1Node;
3820 IXMLDOMNodeList *list;
3822 doc = create_document(&IID_IXMLDOMDocument2);
3825 ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b));
3826 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3828 /* switch to XPath */
3829 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3831 /* some simple queries*/
3832 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list));
3833 ole_check(IXMLDOMNodeList_get_item(list, 0, &rootNode));
3834 ole_check(IXMLDOMNodeList_reset(list));
3835 expect_list_and_release(list, "E2.D1");
3836 if (rootNode == NULL)
3839 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//c"), &list));
3840 expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
3842 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//c[@type]"), &list));
3843 expect_list_and_release(list, "E3.E2.E2.D1");
3845 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
3846 /* using get_item for query results advances the position */
3847 ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
3848 expect_node(node, "E2.E2.D1");
3849 IXMLDOMNode_Release(node);
3850 ole_check(IXMLDOMNodeList_nextNode(list, &node));
3851 expect_node(node, "E4.E2.D1");
3852 IXMLDOMNode_Release(node);
3853 ole_check(IXMLDOMNodeList_reset(list));
3854 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
3856 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
3857 expect_list_and_release(list, "E2.D1");
3859 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
3860 ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
3861 ole_check(IXMLDOMNodeList_reset(list));
3862 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
3864 /* select an attribute */
3865 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
3866 expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
3868 /* would evaluate to a number */
3869 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
3870 /* would evaluate to a boolean */
3871 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
3872 /* would evaluate to a string */
3873 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
3876 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
3877 expect_list_and_release(list, "");
3878 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("elem//c"), &list));
3879 expect_list_and_release(list, "");
3880 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//elem[4]"), &list));
3881 expect_list_and_release(list, "");
3882 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//elem[0]"), &list));
3883 expect_list_and_release(list, "");
3885 /* foo undeclared in document node */
3886 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3887 /* undeclared in <root> node */
3888 ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
3889 /* undeclared in <elem> node */
3890 ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
3891 /* but this trick can be used */
3892 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
3893 expect_list_and_release(list, "E3.E4.E2.D1");
3895 /* it has to be declared in SelectionNamespaces */
3896 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3897 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
3899 /* now the namespace can be used */
3900 ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//test:c"), &list));
3901 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3902 ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
3903 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3904 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
3905 expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
3906 ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
3907 expect_list_and_release(list, "E5.E1.E4.E1.E2.D1 E6.E2.E4.E1.E2.D1");
3909 /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
3910 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3911 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
3913 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3916 ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
3917 expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3918 if (V_VT(&var) == VT_BSTR)
3919 expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
3921 /* extra attributes - same thing*/
3922 ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
3923 _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
3924 ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
3926 IXMLDOMNode_Release(rootNode);
3927 IXMLDOMNode_Release(elem1Node);
3928 IXMLDOMDocument_Release(doc);
3932 static void test_cloneNode(void )
3934 IXMLDOMDocument *doc;
3936 IXMLDOMNodeList *pList;
3937 IXMLDOMNamedNodeMap *mapAttr;
3938 LONG nLength = 0, nLength1 = 0;
3939 LONG nAttrCnt = 0, nAttrCnt1 = 0;
3941 IXMLDOMNode *node_clone;
3942 IXMLDOMNode *node_first;
3945 static const WCHAR szSearch[] = { 'l', 'c', '/', 'p', 'r', 0 };
3947 doc = create_document(&IID_IXMLDOMDocument);
3950 str = SysAllocString( szComplete4 );
3951 ole_check(IXMLDOMDocument_loadXML(doc, str, &b));
3952 ok(b == VARIANT_TRUE, "failed to load XML string\n");
3958 str = SysAllocString( szSearch);
3959 r = IXMLDOMNode_selectSingleNode(doc, str, &node);
3960 ok( r == S_OK, "ret %08x\n", r );
3961 ok( node != NULL, "node %p\n", node );
3966 IXMLDOMDocument_Release(doc);
3970 /* Check invalid parameter */
3971 r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
3972 ok( r == E_INVALIDARG, "ret %08x\n", r );
3975 r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
3976 ok( r == S_OK, "ret %08x\n", r );
3977 ok( node_clone != NULL, "node %p\n", node );
3981 IXMLDOMDocument_Release(doc);
3982 IXMLDOMNode_Release(node);
3986 r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
3987 ok( r == S_OK, "ret %08x\n", r );
3990 IXMLDOMDocument *doc2;
3992 r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
3993 ok( r == S_OK, "ret %08x\n", r );
3995 IXMLDOMDocument_Release(doc2);
3997 IXMLDOMNode_Release(node_first);
4000 r = IXMLDOMNode_get_childNodes(node, &pList);
4001 ok( r == S_OK, "ret %08x\n", r );
4004 IXMLDOMNodeList_get_length(pList, &nLength);
4005 IXMLDOMNodeList_Release(pList);
4008 r = IXMLDOMNode_get_attributes(node, &mapAttr);
4009 ok( r == S_OK, "ret %08x\n", r );
4012 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt);
4013 IXMLDOMNamedNodeMap_Release(mapAttr);
4016 r = IXMLDOMNode_get_childNodes(node_clone, &pList);
4017 ok( r == S_OK, "ret %08x\n", r );
4020 IXMLDOMNodeList_get_length(pList, &nLength1);
4021 IXMLDOMNodeList_Release(pList);
4024 r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4025 ok( r == S_OK, "ret %08x\n", r );
4028 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
4029 IXMLDOMNamedNodeMap_Release(mapAttr);
4032 ok(nLength == nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
4033 ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
4034 IXMLDOMNode_Release(node_clone);
4037 r = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4038 ok( r == S_OK, "ret %08x\n", r );
4039 ok( node_clone != NULL, "node %p\n", node );
4043 IXMLDOMDocument_Release(doc);
4044 IXMLDOMNode_Release(node);
4048 r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4049 ok( r == S_FALSE, "ret %08x\n", r );
4052 IXMLDOMDocument *doc2;
4054 r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4055 ok( r == S_OK, "ret %08x\n", r );
4057 IXMLDOMDocument_Release(doc2);
4059 IXMLDOMNode_Release(node_first);
4062 r = IXMLDOMNode_get_childNodes(node_clone, &pList);
4063 ok( r == S_OK, "ret %08x\n", r );
4066 IXMLDOMNodeList_get_length(pList, &nLength1);
4067 ok( nLength1 == 0, "Length should be 0 (%d)\n", nLength1);
4068 IXMLDOMNodeList_Release(pList);
4071 r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4072 ok( r == S_OK, "ret %08x\n", r );
4075 IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
4076 ok( nAttrCnt1 == 3, "Attribute count should be 3 (%d)\n", nAttrCnt1);
4077 IXMLDOMNamedNodeMap_Release(mapAttr);
4080 ok(nLength != nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
4081 ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
4082 IXMLDOMNode_Release(node_clone);
4085 IXMLDOMNode_Release(node);
4086 IXMLDOMDocument_Release(doc);
4089 static void test_xmlTypes(void)
4091 IXMLDOMDocument *doc;
4092 IXMLDOMElement *pRoot;
4094 IXMLDOMComment *pComment;
4095 IXMLDOMElement *pElement;
4096 IXMLDOMAttribute *pAttribute;
4097 IXMLDOMNamedNodeMap *pAttribs;
4098 IXMLDOMCDATASection *pCDataSec;
4099 IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4100 IXMLDOMDocumentFragment *pDocFrag = NULL;
4101 IXMLDOMEntityReference *pEntityRef = NULL;
4103 IXMLDOMNode *pNextChild;
4107 doc = create_document(&IID_IXMLDOMDocument);
4110 pNextChild = (void*)0xdeadbeef;
4111 hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4112 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4114 pNextChild = (void*)0xdeadbeef;
4115 hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4116 ok(hr == S_FALSE, "ret %08x\n", hr );
4117 ok(pNextChild == NULL, "pDocChild not NULL\n");
4119 /* test previous Sibling */
4120 hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4121 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4123 pNextChild = (void*)0xdeadbeef;
4124 hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4125 ok(hr == S_FALSE, "ret %08x\n", hr );
4126 ok(pNextChild == NULL, "pNextChild not NULL\n");
4128 /* test get_attributes */
4129 hr = IXMLDOMDocument_get_attributes( doc, NULL );
4130 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4132 pAttribs = (void*)0xdeadbeef;
4133 hr = IXMLDOMDocument_get_attributes( doc, &pAttribs);
4134 ok(hr == S_FALSE, "ret %08x\n", hr );
4135 ok( pAttribs == NULL, "pAttribs not NULL\n");
4137 /* test get_dataType */
4138 V_VT(&v) = VT_EMPTY;
4139 hr = IXMLDOMDocument_get_dataType(doc, &v);
4140 ok(hr == S_FALSE, "ret %08x\n", hr );
4141 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4144 /* test nodeTypeString */
4146 hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
4147 ok(hr == S_OK, "ret %08x\n", hr );
4148 ok( !lstrcmpW( str, _bstr_("document") ), "incorrect nodeTypeString string\n");
4151 /* test implementation */
4152 hr = IXMLDOMDocument_get_implementation(doc, NULL);
4153 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4155 hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4156 ok(hr == S_OK, "ret %08x\n", hr );
4159 VARIANT_BOOL hasFeature = VARIANT_TRUE;
4160 BSTR sEmpty = SysAllocStringLen(NULL, 0);
4162 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4163 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4165 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4166 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4168 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4169 ok(hr == S_OK, "ret %08x\n", hr );
4170 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4172 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4173 ok(hr == S_OK, "ret %08x\n", hr );
4174 ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4176 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4177 ok(hr == S_OK, "ret %08x\n", hr );
4178 ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4180 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4181 ok(hr == S_OK, "ret %08x\n", hr );
4182 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4184 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4185 ok(hr == S_OK, "ret %08x\n", hr );
4186 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4188 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4189 ok(hr == S_OK, "ret %08x\n", hr );
4190 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4192 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4193 ok(hr == S_OK, "ret %08x\n", hr );
4194 ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4196 hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4197 ok(hr == S_OK, "ret %08x\n", hr );
4198 ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4200 SysFreeString(sEmpty);
4201 IXMLDOMImplementation_Release(pIXMLDOMImplementation);
4204 pRoot = (IXMLDOMElement*)0x1;
4205 hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
4206 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4207 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4209 pRoot = (IXMLDOMElement*)0x1;
4210 hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
4211 ok(hr == E_FAIL, "ret %08x\n", hr );
4212 ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4214 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
4215 ok(hr == S_OK, "ret %08x\n", hr );
4218 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
4219 ok(hr == S_OK, "ret %08x\n", hr );
4223 str = SysAllocString(szComment);
4224 hr = IXMLDOMDocument_createComment(doc, str, &pComment);
4226 ok(hr == S_OK, "ret %08x\n", hr );
4229 /* test get_attributes */
4230 hr = IXMLDOMComment_get_attributes( pComment, NULL );
4231 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4233 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4234 hr = IXMLDOMComment_get_attributes( pComment, &pAttribs);
4235 ok(hr == S_FALSE, "ret %08x\n", hr );
4236 ok( pAttribs == NULL, "pAttribs not NULL\n");
4238 /* test nodeTypeString */
4239 hr = IXMLDOMComment_get_nodeTypeString(pComment, &str);
4240 ok(hr == S_OK, "ret %08x\n", hr );
4241 ok( !lstrcmpW( str, _bstr_("comment") ), "incorrect nodeTypeString string\n");
4244 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
4245 ok(hr == S_OK, "ret %08x\n", hr );
4247 hr = IXMLDOMComment_get_nodeName(pComment, &str);
4248 ok(hr == S_OK, "ret %08x\n", hr );
4249 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
4252 hr = IXMLDOMComment_get_xml(pComment, &str);
4253 ok(hr == S_OK, "ret %08x\n", hr );
4254 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
4257 hr = IXMLDOMComment_get_dataType(pComment, &v);
4258 ok(hr == S_FALSE, "ret %08x\n", hr );
4259 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4262 /* put data Tests */
4263 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
4264 ok(hr == S_OK, "ret %08x\n", hr );
4266 /* get data Tests */
4267 hr = IXMLDOMComment_get_data(pComment, &str);
4268 ok(hr == S_OK, "ret %08x\n", hr );
4269 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
4272 /* get data Tests */
4273 hr = IXMLDOMComment_get_nodeValue(pComment, &v);
4274 ok(hr == S_OK, "ret %08x\n", hr );
4275 ok( V_VT(&v) == VT_BSTR, "incorrect dataType type\n");
4276 ok( !lstrcmpW( V_BSTR(&v), _bstr_("This &is a ; test <>\\") ), "incorrect get_nodeValue string\n");
4279 /* Confirm XML text is good */
4280 hr = IXMLDOMComment_get_xml(pComment, &str);
4281 ok(hr == S_OK, "ret %08x\n", hr );
4282 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
4285 /* Confirm we get the put_data Text back */
4286 hr = IXMLDOMComment_get_text(pComment, &str);
4287 ok(hr == S_OK, "ret %08x\n", hr );
4288 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
4291 /* test length property */
4292 hr = IXMLDOMComment_get_length(pComment, &len);
4293 ok(hr == S_OK, "ret %08x\n", hr );
4294 ok(len == 21, "expected 21 got %d\n", len);
4296 /* test substringData */
4297 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
4298 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4300 /* test substringData - Invalid offset */
4301 str = (BSTR)&szElement;
4302 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
4303 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4304 ok( str == NULL, "incorrect string\n");
4306 /* test substringData - Invalid offset */
4307 str = (BSTR)&szElement;
4308 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
4309 ok(hr == S_FALSE, "ret %08x\n", hr );
4310 ok( str == NULL, "incorrect string\n");
4312 /* test substringData - Invalid size */
4313 str = (BSTR)&szElement;
4314 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
4315 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4316 ok( str == NULL, "incorrect string\n");
4318 /* test substringData - Invalid size */
4319 str = (BSTR)&szElement;
4320 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
4321 ok(hr == S_FALSE, "ret %08x\n", hr );
4322 ok( str == NULL, "incorrect string\n");
4324 /* test substringData - Start of string */
4325 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
4326 ok(hr == S_OK, "ret %08x\n", hr );
4327 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4330 /* test substringData - Middle of string */
4331 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
4332 ok(hr == S_OK, "ret %08x\n", hr );
4333 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4336 /* test substringData - End of string */
4337 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
4338 ok(hr == S_OK, "ret %08x\n", hr );
4339 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4342 /* test appendData */
4343 hr = IXMLDOMComment_appendData(pComment, NULL);
4344 ok(hr == S_OK, "ret %08x\n", hr );
4346 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
4347 ok(hr == S_OK, "ret %08x\n", hr );
4349 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
4350 ok(hr == S_OK, "ret %08x\n", hr );
4352 hr = IXMLDOMComment_get_text(pComment, &str);
4353 ok(hr == S_OK, "ret %08x\n", hr );
4354 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4357 /* test insertData */
4358 str = SysAllocStringLen(NULL, 0);
4359 hr = IXMLDOMComment_insertData(pComment, -1, str);
4360 ok(hr == S_OK, "ret %08x\n", hr );
4362 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
4363 ok(hr == S_OK, "ret %08x\n", hr );
4365 hr = IXMLDOMComment_insertData(pComment, 1000, str);
4366 ok(hr == S_OK, "ret %08x\n", hr );
4368 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
4369 ok(hr == S_OK, "ret %08x\n", hr );
4371 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
4372 ok(hr == S_OK, "ret %08x\n", hr );
4374 hr = IXMLDOMComment_insertData(pComment, 0, str);
4375 ok(hr == S_OK, "ret %08x\n", hr );
4378 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
4379 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4381 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
4382 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4384 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
4385 ok(hr == S_OK, "ret %08x\n", hr );
4387 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
4388 ok(hr == S_OK, "ret %08x\n", hr );
4390 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
4391 ok(hr == S_OK, "ret %08x\n", hr );
4393 hr = IXMLDOMComment_get_text(pComment, &str);
4394 ok(hr == S_OK, "ret %08x\n", hr );
4395 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4399 /* invalid arguments */
4400 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
4401 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4403 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
4404 ok(hr == S_OK, "ret %08x\n", hr );
4406 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
4407 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4409 hr = IXMLDOMComment_get_length(pComment, &len);
4410 ok(hr == S_OK, "ret %08x\n", hr );
4411 ok(len == 43, "expected 43 got %d\n", len);
4413 hr = IXMLDOMComment_deleteData(pComment, len, 1);
4414 ok(hr == S_OK, "ret %08x\n", hr );
4416 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
4417 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4419 /* delete from start */
4420 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
4421 ok(hr == S_OK, "ret %08x\n", hr );
4423 hr = IXMLDOMComment_get_length(pComment, &len);
4424 ok(hr == S_OK, "ret %08x\n", hr );
4425 ok(len == 38, "expected 38 got %d\n", len);
4427 hr = IXMLDOMComment_get_text(pComment, &str);
4428 ok(hr == S_OK, "ret %08x\n", hr );
4429 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4432 /* delete from end */
4433 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
4434 ok(hr == S_OK, "ret %08x\n", hr );
4436 hr = IXMLDOMComment_get_length(pComment, &len);
4437 ok(hr == S_OK, "ret %08x\n", hr );
4438 ok(len == 35, "expected 35 got %d\n", len);
4440 hr = IXMLDOMComment_get_text(pComment, &str);
4441 ok(hr == S_OK, "ret %08x\n", hr );
4442 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4445 /* delete from inside */
4446 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
4447 ok(hr == S_OK, "ret %08x\n", hr );
4449 hr = IXMLDOMComment_get_length(pComment, &len);
4450 ok(hr == S_OK, "ret %08x\n", hr );
4451 ok(len == 2, "expected 2 got %d\n", len);
4453 hr = IXMLDOMComment_get_text(pComment, &str);
4454 ok(hr == S_OK, "ret %08x\n", hr );
4455 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4458 /* delete whole data ... */
4459 hr = IXMLDOMComment_get_length(pComment, &len);
4460 ok(hr == S_OK, "ret %08x\n", hr );
4462 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4463 ok(hr == S_OK, "ret %08x\n", hr );
4464 /* ... and try again with empty string */
4465 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4466 ok(hr == S_OK, "ret %08x\n", hr );
4468 /* ::replaceData() */
4470 V_BSTR(&v) = SysAllocString(szstr1);
4471 hr = IXMLDOMComment_put_nodeValue(pComment, v);
4472 ok(hr == S_OK, "ret %08x\n", hr );
4475 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
4476 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4477 hr = IXMLDOMComment_get_text(pComment, &str);
4478 ok(hr == S_OK, "ret %08x\n", hr );
4479 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4482 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
4483 ok(hr == S_OK, "ret %08x\n", hr );
4484 hr = IXMLDOMComment_get_text(pComment, &str);
4485 ok(hr == S_OK, "ret %08x\n", hr );
4486 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4489 /* NULL pointer means delete */
4490 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
4491 ok(hr == S_OK, "ret %08x\n", hr );
4492 hr = IXMLDOMComment_get_text(pComment, &str);
4493 ok(hr == S_OK, "ret %08x\n", hr );
4494 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4497 /* empty string means delete */
4498 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
4499 ok(hr == S_OK, "ret %08x\n", hr );
4500 hr = IXMLDOMComment_get_text(pComment, &str);
4501 ok(hr == S_OK, "ret %08x\n", hr );
4502 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4505 /* zero count means insert */
4506 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
4507 ok(hr == S_OK, "ret %08x\n", hr );
4508 hr = IXMLDOMComment_get_text(pComment, &str);
4509 ok(hr == S_OK, "ret %08x\n", hr );
4510 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4513 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
4514 ok(hr == S_OK, "ret %08x\n", hr );
4516 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
4517 ok(hr == S_OK, "ret %08x\n", hr );
4518 hr = IXMLDOMComment_get_text(pComment, &str);
4519 ok(hr == S_OK, "ret %08x\n", hr );
4520 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4523 /* nonempty string, count greater than its length */
4524 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
4525 ok(hr == S_OK, "ret %08x\n", hr );
4526 hr = IXMLDOMComment_get_text(pComment, &str);
4527 ok(hr == S_OK, "ret %08x\n", hr );
4528 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4531 /* nonempty string, count less than its length */
4532 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
4533 ok(hr == S_OK, "ret %08x\n", hr );
4534 hr = IXMLDOMComment_get_text(pComment, &str);
4535 ok(hr == S_OK, "ret %08x\n", hr );
4536 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4539 IXMLDOMComment_Release(pComment);
4543 str = SysAllocString(szElement);
4544 hr = IXMLDOMDocument_createElement(doc, str, &pElement);
4546 ok(hr == S_OK, "ret %08x\n", hr );
4549 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
4550 ok(hr == S_OK, "ret %08x\n", hr );
4552 /* test nodeTypeString */
4553 hr = IXMLDOMDocument_get_nodeTypeString(pElement, &str);
4554 ok(hr == S_OK, "ret %08x\n", hr );
4555 ok( !lstrcmpW( str, _bstr_("element") ), "incorrect nodeTypeString string\n");
4558 hr = IXMLDOMElement_get_nodeName(pElement, &str);
4559 ok(hr == S_OK, "ret %08x\n", hr );
4560 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
4563 hr = IXMLDOMElement_get_xml(pElement, &str);
4564 ok(hr == S_OK, "ret %08x\n", hr );
4565 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
4568 hr = IXMLDOMElement_get_dataType(pElement, &v);
4569 ok(hr == S_FALSE, "ret %08x\n", hr );
4570 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4574 pAttribute = (IXMLDOMAttribute*)0x1;
4575 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
4576 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4577 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4579 pAttribute = (IXMLDOMAttribute*)0x1;
4580 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
4581 ok(hr == E_FAIL, "ret %08x\n", hr );
4582 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4584 str = SysAllocString(szAttribute);
4585 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
4587 ok(hr == S_OK, "ret %08x\n", hr );
4590 IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
4592 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
4593 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4595 pNextChild = (IXMLDOMNode *)0x1;
4596 hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
4597 ok(hr == S_FALSE, "ret %08x\n", hr );
4598 ok(pNextChild == NULL, "pNextChild not NULL\n");
4600 /* test Previous Sibling*/
4601 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
4602 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4604 pNextChild = (IXMLDOMNode *)0x1;
4605 hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
4606 ok(hr == S_FALSE, "ret %08x\n", hr );
4607 ok(pNextChild == NULL, "pNextChild not NULL\n");
4609 /* test get_attributes */
4610 hr = IXMLDOMAttribute_get_attributes( pAttribute, NULL );
4611 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4613 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4614 hr = IXMLDOMAttribute_get_attributes( pAttribute, &pAttribs);
4615 ok(hr == S_FALSE, "ret %08x\n", hr );
4616 ok( pAttribs == NULL, "pAttribs not NULL\n");
4618 hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
4619 ok(hr == E_FAIL, "ret %08x\n", hr );
4620 ok(pNewChild == NULL, "pNewChild not NULL\n");
4622 hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
4623 ok(hr == S_OK, "ret %08x\n", hr );
4626 hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
4627 ok(hr == S_OK, "ret %08x\n", hr );
4629 IXMLDOMNamedNodeMap_Release(pAttribs);
4632 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4633 ok(hr == S_OK, "ret %08x\n", hr );
4634 ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
4637 /* test nodeTypeString */
4638 hr = IXMLDOMAttribute_get_nodeTypeString(pAttribute, &str);
4639 ok(hr == S_OK, "ret %08x\n", hr );
4640 ok( !lstrcmpW( str, _bstr_("attribute") ), "incorrect nodeTypeString string\n");
4644 hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4645 ok(hr == S_OK, "ret %08x\n", hr );
4646 ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
4649 /* test name property */
4650 hr = IXMLDOMAttribute_get_name(pAttribute, &str);
4651 ok(hr == S_OK, "ret %08x\n", hr );
4652 ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
4655 hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
4656 ok(hr == S_OK, "ret %08x\n", hr );
4657 ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
4660 hr = IXMLDOMAttribute_get_dataType(pAttribute, &v);
4661 ok(hr == S_FALSE, "ret %08x\n", hr );
4662 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4665 IXMLDOMAttribute_Release(pAttribute);
4667 /* Check Element again with the Add Attribute*/
4668 hr = IXMLDOMElement_get_xml(pElement, &str);
4669 ok(hr == S_OK, "ret %08x\n", hr );
4670 ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
4674 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
4675 ok(hr == S_OK, "ret %08x\n", hr );
4677 hr = IXMLDOMElement_get_xml(pElement, &str);
4678 ok(hr == S_OK, "ret %08x\n", hr );
4679 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
4682 /* Test for reversible escaping */
4683 str = SysAllocString( szStrangeChars );
4684 hr = IXMLDOMElement_put_text(pElement, str);
4685 ok(hr == S_OK, "ret %08x\n", hr );
4686 SysFreeString( str );
4688 hr = IXMLDOMElement_get_xml(pElement, &str);
4689 ok(hr == S_OK, "ret %08x\n", hr );
4690 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
4693 hr = IXMLDOMElement_get_text(pElement, &str);
4694 ok(hr == S_OK, "ret %08x\n", hr );
4695 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
4698 IXMLDOMElement_Release(pElement);
4702 str = SysAllocString(szCData);
4703 hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
4704 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4706 hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
4708 ok(hr == S_OK, "ret %08x\n", hr );
4711 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
4716 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
4717 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
4719 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
4720 ok(hr == S_OK, "ret %08x\n", hr );
4722 /* get Attribute Tests */
4723 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, NULL);
4724 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4726 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4727 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, &pAttribs);
4728 ok(hr == S_FALSE, "ret %08x\n", hr );
4729 ok(pAttribs == NULL, "pAttribs != NULL\n");
4731 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
4732 ok(hr == S_OK, "ret %08x\n", hr );
4733 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
4736 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
4737 ok(hr == S_OK, "ret %08x\n", hr );
4738 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
4741 /* test lastChild */
4742 pNextChild = (IXMLDOMNode*)0x1;
4743 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
4744 ok(hr == S_FALSE, "ret %08x\n", hr );
4745 ok(pNextChild == NULL, "pNextChild not NULL\n");
4747 /* test get_dataType */
4748 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, NULL);
4749 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4751 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, &v);
4752 ok(hr == S_FALSE, "ret %08x\n", hr );
4753 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4756 /* test nodeTypeString */
4757 hr = IXMLDOMCDATASection_get_nodeTypeString(pCDataSec, &str);
4758 ok(hr == S_OK, "ret %08x\n", hr );
4759 ok( !lstrcmpW( str, _bstr_("cdatasection") ), "incorrect nodeTypeString string\n");
4762 /* put data Tests */
4763 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
4764 ok(hr == S_OK, "ret %08x\n", hr );
4766 /* Confirm XML text is good */
4767 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
4768 ok(hr == S_OK, "ret %08x\n", hr );
4769 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
4772 /* Confirm we get the put_data Text back */
4773 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4774 ok(hr == S_OK, "ret %08x\n", hr );
4775 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4778 /* test length property */
4779 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4780 ok(hr == S_OK, "ret %08x\n", hr );
4781 ok(len == 21, "expected 21 got %d\n", len);
4783 /* test get nodeValue */
4784 hr = IXMLDOMCDATASection_get_nodeValue(pCDataSec, &var);
4785 ok(hr == S_OK, "ret %08x\n", hr );
4786 ok(V_VT(&var) == VT_BSTR, "got vt %04x\n", V_VT(&var));
4787 ok( !lstrcmpW( V_BSTR(&var), _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4791 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
4792 ok(hr == S_OK, "ret %08x\n", hr );
4793 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
4796 /* test substringData */
4797 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
4798 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4800 /* test substringData - Invalid offset */
4801 str = (BSTR)&szElement;
4802 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
4803 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4804 ok( str == NULL, "incorrect string\n");
4806 /* test substringData - Invalid offset */
4807 str = (BSTR)&szElement;
4808 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
4809 ok(hr == S_FALSE, "ret %08x\n", hr );
4810 ok( str == NULL, "incorrect string\n");
4812 /* test substringData - Invalid size */
4813 str = (BSTR)&szElement;
4814 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
4815 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4816 ok( str == NULL, "incorrect string\n");
4818 /* test substringData - Invalid size */
4819 str = (BSTR)&szElement;
4820 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
4821 ok(hr == S_FALSE, "ret %08x\n", hr );
4822 ok( str == NULL, "incorrect string\n");
4824 /* test substringData - Start of string */
4825 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
4826 ok(hr == S_OK, "ret %08x\n", hr );
4827 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4830 /* test substringData - Middle of string */
4831 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
4832 ok(hr == S_OK, "ret %08x\n", hr );
4833 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4836 /* test substringData - End of string */
4837 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
4838 ok(hr == S_OK, "ret %08x\n", hr );
4839 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4842 /* test appendData */
4843 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
4844 ok(hr == S_OK, "ret %08x\n", hr );
4846 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
4847 ok(hr == S_OK, "ret %08x\n", hr );
4849 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
4850 ok(hr == S_OK, "ret %08x\n", hr );
4852 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4853 ok(hr == S_OK, "ret %08x\n", hr );
4854 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4857 /* test insertData */
4858 str = SysAllocStringLen(NULL, 0);
4859 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
4860 ok(hr == S_OK, "ret %08x\n", hr );
4862 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
4863 ok(hr == S_OK, "ret %08x\n", hr );
4865 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
4866 ok(hr == S_OK, "ret %08x\n", hr );
4868 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
4869 ok(hr == S_OK, "ret %08x\n", hr );
4871 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
4872 ok(hr == S_OK, "ret %08x\n", hr );
4874 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
4875 ok(hr == S_OK, "ret %08x\n", hr );
4878 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
4879 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4881 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
4882 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4884 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
4885 ok(hr == S_OK, "ret %08x\n", hr );
4887 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
4888 ok(hr == S_OK, "ret %08x\n", hr );
4890 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
4891 ok(hr == S_OK, "ret %08x\n", hr );
4893 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4894 ok(hr == S_OK, "ret %08x\n", hr );
4895 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4899 /* invalid arguments */
4900 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
4901 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4903 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
4904 ok(hr == S_OK, "ret %08x\n", hr );
4906 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
4907 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4909 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4910 ok(hr == S_OK, "ret %08x\n", hr );
4911 ok(len == 43, "expected 43 got %d\n", len);
4913 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
4914 ok(hr == S_OK, "ret %08x\n", hr );
4916 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
4917 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4919 /* delete from start */
4920 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
4921 ok(hr == S_OK, "ret %08x\n", hr );
4923 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4924 ok(hr == S_OK, "ret %08x\n", hr );
4925 ok(len == 38, "expected 38 got %d\n", len);
4927 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4928 ok(hr == S_OK, "ret %08x\n", hr );
4929 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4932 /* delete from end */
4933 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
4934 ok(hr == S_OK, "ret %08x\n", hr );
4936 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4937 ok(hr == S_OK, "ret %08x\n", hr );
4938 ok(len == 35, "expected 35 got %d\n", len);
4940 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4941 ok(hr == S_OK, "ret %08x\n", hr );
4942 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4945 /* delete from inside */
4946 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
4947 ok(hr == S_OK, "ret %08x\n", hr );
4949 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4950 ok(hr == S_OK, "ret %08x\n", hr );
4951 ok(len == 2, "expected 2 got %d\n", len);
4953 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4954 ok(hr == S_OK, "ret %08x\n", hr );
4955 ok( !lstrcmpW( str, _bstr_(" ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4958 /* delete whole data ... */
4959 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
4960 ok(hr == S_OK, "ret %08x\n", hr );
4962 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
4963 ok(hr == S_OK, "ret %08x\n", hr );
4965 /* ... and try again with empty string */
4966 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
4967 ok(hr == S_OK, "ret %08x\n", hr );
4969 /* ::replaceData() */
4971 V_BSTR(&v) = SysAllocString(szstr1);
4972 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
4973 ok(hr == S_OK, "ret %08x\n", hr );
4976 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
4977 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4978 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4979 ok(hr == S_OK, "ret %08x\n", hr );
4980 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4983 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
4984 ok(hr == S_OK, "ret %08x\n", hr );
4985 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4986 ok(hr == S_OK, "ret %08x\n", hr );
4987 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4990 /* NULL pointer means delete */
4991 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
4992 ok(hr == S_OK, "ret %08x\n", hr );
4993 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
4994 ok(hr == S_OK, "ret %08x\n", hr );
4995 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4998 /* empty string means delete */
4999 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5000 ok(hr == S_OK, "ret %08x\n", hr );
5001 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5002 ok(hr == S_OK, "ret %08x\n", hr );
5003 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5006 /* zero count means insert */
5007 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5008 ok(hr == S_OK, "ret %08x\n", hr );
5009 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5010 ok(hr == S_OK, "ret %08x\n", hr );
5011 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5014 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5015 ok(hr == S_OK, "ret %08x\n", hr );
5017 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5018 ok(hr == S_OK, "ret %08x\n", hr );
5019 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5020 ok(hr == S_OK, "ret %08x\n", hr );
5021 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5024 /* nonempty string, count greater than its length */
5025 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5026 ok(hr == S_OK, "ret %08x\n", hr );
5027 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5028 ok(hr == S_OK, "ret %08x\n", hr );
5029 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5032 /* nonempty string, count less than its length */
5033 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5034 ok(hr == S_OK, "ret %08x\n", hr );
5035 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5036 ok(hr == S_OK, "ret %08x\n", hr );
5037 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5040 IXMLDOMCDATASection_Release(pCDataSec);
5043 /* Document Fragments */
5044 hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5045 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5047 hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5048 ok(hr == S_OK, "ret %08x\n", hr );
5053 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5054 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5056 node = (IXMLDOMNode *)0x1;
5057 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5058 ok(hr == S_FALSE, "ret %08x\n", hr );
5059 ok(node == NULL, "expected NULL, got %p\n", node);
5061 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5062 ok(hr == S_OK, "ret %08x\n", hr );
5064 /* get Attribute Tests */
5065 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, NULL);
5066 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5068 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5069 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, &pAttribs);
5070 ok(hr == S_FALSE, "ret %08x\n", hr );
5071 ok(pAttribs == NULL, "pAttribs != NULL\n");
5073 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5074 ok(hr == S_OK, "ret %08x\n", hr );
5075 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5078 /* test next Sibling*/
5079 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5080 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5082 node = (IXMLDOMNode *)0x1;
5083 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5084 ok(hr == S_FALSE, "ret %08x\n", hr );
5085 ok(node == NULL, "next sibling not NULL\n");
5087 /* test Previous Sibling*/
5088 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5089 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5091 node = (IXMLDOMNode *)0x1;
5092 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5093 ok(hr == S_FALSE, "ret %08x\n", hr );
5094 ok(node == NULL, "previous sibling not NULL\n");
5096 /* test get_dataType */
5097 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, NULL);
5098 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5100 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, &v);
5101 ok(hr == S_FALSE, "ret %08x\n", hr );
5102 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5105 /* test nodeTypeString */
5106 hr = IXMLDOMDocumentFragment_get_nodeTypeString(pDocFrag, &str);
5107 ok(hr == S_OK, "ret %08x\n", hr );
5108 ok( !lstrcmpW( str, _bstr_("documentfragment") ), "incorrect nodeTypeString string\n");
5111 IXMLDOMDocumentFragment_Release(pDocFrag);
5114 /* Entity References */
5115 hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5116 ok(hr == E_FAIL, "ret %08x\n", hr );
5117 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5118 ok(hr == E_FAIL, "ret %08x\n", hr );
5120 str = SysAllocString(szEntityRef);
5121 hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5122 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5124 hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5126 ok(hr == S_OK, "ret %08x\n", hr );
5129 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5130 ok(hr == S_OK, "ret %08x\n", hr );
5132 /* get Attribute Tests */
5133 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, NULL);
5134 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5136 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5137 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, &pAttribs);
5138 ok(hr == S_FALSE, "ret %08x\n", hr );
5139 ok(pAttribs == NULL, "pAttribs != NULL\n");
5142 hr = IXMLDOMEntityReference_get_dataType(pEntityRef, &v);
5143 ok(hr == S_FALSE, "ret %08x\n", hr );
5144 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5147 /* test nodeTypeString */
5148 hr = IXMLDOMEntityReference_get_nodeTypeString(pEntityRef, &str);
5149 ok(hr == S_OK, "ret %08x\n", hr );
5150 ok( !lstrcmpW( str, _bstr_("entityreference") ), "incorrect nodeTypeString string\n");
5154 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5155 ok(hr == S_OK, "ret %08x\n", hr );
5156 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5159 IXMLDOMEntityReference_Release(pEntityRef);
5162 IXMLDOMElement_Release( pRoot );
5166 IXMLDOMDocument_Release(doc);
5171 static void test_nodeTypeTests( void )
5173 IXMLDOMDocument *doc = NULL;
5174 IXMLDOMElement *pRoot;
5175 IXMLDOMElement *pElement;
5178 doc = create_document(&IID_IXMLDOMDocument);
5181 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5182 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5184 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5185 ok(hr == S_OK, "ret %08x\n", hr );
5188 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5189 ok(hr == S_OK, "ret %08x\n", hr );
5192 hr = IXMLDOMElement_put_dataType(pRoot, NULL);
5193 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5196 hr = IXMLDOMElement_put_dataType(pRoot, _bstr_("abcdefg") );
5197 ok(hr == E_FAIL, "ret %08x\n", hr );
5200 * The name passed into put_dataType is case-insensitive. So many of the names
5201 * have been changed to reflect this.
5204 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Boolean"), &pElement);
5205 ok(hr == S_OK, "ret %08x\n", hr );
5208 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5210 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Boolean") );
5211 ok(hr == S_OK, "ret %08x\n", hr );
5213 IXMLDOMElement_Release(pElement);
5217 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_String"), &pElement);
5218 ok(hr == S_OK, "ret %08x\n", hr );
5221 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5223 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("String") );
5224 ok(hr == S_OK, "ret %08x\n", hr );
5226 IXMLDOMElement_Release(pElement);
5230 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Number"), &pElement);
5231 ok(hr == S_OK, "ret %08x\n", hr );
5234 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5236 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("number") );
5237 ok(hr == S_OK, "ret %08x\n", hr );
5239 IXMLDOMElement_Release(pElement);
5243 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Int"), &pElement);
5244 ok(hr == S_OK, "ret %08x\n", hr );
5247 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5249 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("InT") );
5250 ok(hr == S_OK, "ret %08x\n", hr );
5252 IXMLDOMElement_Release(pElement);
5256 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Fixed"), &pElement);
5257 ok(hr == S_OK, "ret %08x\n", hr );
5260 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5262 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("fixed.14.4") );
5263 ok(hr == S_OK, "ret %08x\n", hr );
5265 IXMLDOMElement_Release(pElement);
5269 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime"), &pElement);
5270 ok(hr == S_OK, "ret %08x\n", hr );
5273 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5275 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime") );
5276 ok(hr == S_OK, "ret %08x\n", hr );
5278 IXMLDOMElement_Release(pElement);
5282 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime_tz"), &pElement);
5283 ok(hr == S_OK, "ret %08x\n", hr );
5286 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5288 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5289 ok(hr == S_OK, "ret %08x\n", hr );
5291 IXMLDOMElement_Release(pElement);
5295 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Date"), &pElement);
5296 ok(hr == S_OK, "ret %08x\n", hr );
5299 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5301 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Date") );
5302 ok(hr == S_OK, "ret %08x\n", hr );
5304 IXMLDOMElement_Release(pElement);
5308 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time"), &pElement);
5309 ok(hr == S_OK, "ret %08x\n", hr );
5312 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5314 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time") );
5315 ok(hr == S_OK, "ret %08x\n", hr );
5317 IXMLDOMElement_Release(pElement);
5321 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time_TZ"), &pElement);
5322 ok(hr == S_OK, "ret %08x\n", hr );
5325 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5327 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time.tz") );
5328 ok(hr == S_OK, "ret %08x\n", hr );
5330 IXMLDOMElement_Release(pElement);
5334 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I1"), &pElement);
5335 ok(hr == S_OK, "ret %08x\n", hr );
5338 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5340 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I1") );
5341 ok(hr == S_OK, "ret %08x\n", hr );
5343 IXMLDOMElement_Release(pElement);
5347 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I2"), &pElement);
5348 ok(hr == S_OK, "ret %08x\n", hr );
5351 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5353 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I2") );
5354 ok(hr == S_OK, "ret %08x\n", hr );
5356 IXMLDOMElement_Release(pElement);
5360 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I4"), &pElement);
5361 ok(hr == S_OK, "ret %08x\n", hr );
5364 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5366 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I4") );
5367 ok(hr == S_OK, "ret %08x\n", hr );
5369 IXMLDOMElement_Release(pElement);
5373 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI1"), &pElement);
5374 ok(hr == S_OK, "ret %08x\n", hr );
5377 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5379 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI1") );
5380 ok(hr == S_OK, "ret %08x\n", hr );
5382 IXMLDOMElement_Release(pElement);
5386 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI2"), &pElement);
5387 ok(hr == S_OK, "ret %08x\n", hr );
5390 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5392 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI2") );
5393 ok(hr == S_OK, "ret %08x\n", hr );
5395 IXMLDOMElement_Release(pElement);
5399 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI4"), &pElement);
5400 ok(hr == S_OK, "ret %08x\n", hr );
5403 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5405 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI4") );
5406 ok(hr == S_OK, "ret %08x\n", hr );
5408 IXMLDOMElement_Release(pElement);
5412 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r4"), &pElement);
5413 ok(hr == S_OK, "ret %08x\n", hr );
5416 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5418 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r4") );
5419 ok(hr == S_OK, "ret %08x\n", hr );
5421 IXMLDOMElement_Release(pElement);
5425 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r8"), &pElement);
5426 ok(hr == S_OK, "ret %08x\n", hr );
5429 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5431 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r8") );
5432 ok(hr == S_OK, "ret %08x\n", hr );
5434 IXMLDOMElement_Release(pElement);
5438 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_float"), &pElement);
5439 ok(hr == S_OK, "ret %08x\n", hr );
5442 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5444 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("float") );
5445 ok(hr == S_OK, "ret %08x\n", hr );
5447 IXMLDOMElement_Release(pElement);
5451 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_uuid"), &pElement);
5452 ok(hr == S_OK, "ret %08x\n", hr );
5455 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5457 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UuId") );
5458 ok(hr == S_OK, "ret %08x\n", hr );
5460 IXMLDOMElement_Release(pElement);
5464 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_hex"), &pElement);
5465 ok(hr == S_OK, "ret %08x\n", hr );
5468 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5470 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.hex") );
5471 ok(hr == S_OK, "ret %08x\n", hr );
5473 IXMLDOMElement_Release(pElement);
5477 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_base64"), &pElement);
5478 ok(hr == S_OK, "ret %08x\n", hr );
5481 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5483 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.base64") );
5484 ok(hr == S_OK, "ret %08x\n", hr );
5486 IXMLDOMElement_Release(pElement);
5489 /* Check changing types */
5490 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &pElement);
5491 ok(hr == S_OK, "ret %08x\n", hr );
5494 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5496 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5497 ok(hr == S_OK, "ret %08x\n", hr );
5499 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("string") );
5500 ok(hr == S_OK, "ret %08x\n", hr );
5502 IXMLDOMElement_Release(pElement);
5505 IXMLDOMElement_Release(pRoot);
5509 IXMLDOMDocument_Release(doc);
5514 static void test_DocumentSaveToDocument(void)
5516 IXMLDOMDocument *doc, *doc2;
5517 IXMLDOMElement *pRoot;
5520 doc = create_document(&IID_IXMLDOMDocument);
5523 doc2 = create_document(&IID_IXMLDOMDocument);
5526 IXMLDOMDocument_Release(doc);
5530 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5531 ok(hr == S_OK, "ret %08x\n", hr );
5534 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5535 ok(hr == S_OK, "ret %08x\n", hr );
5542 V_VT(&vDoc) = VT_UNKNOWN;
5543 V_UNKNOWN(&vDoc) = (IUnknown*)doc2;
5545 hr = IXMLDOMDocument_save(doc, vDoc);
5546 ok(hr == S_OK, "ret %08x\n", hr );
5548 hr = IXMLDOMDocument_get_xml(doc, &sOrig);
5549 ok(hr == S_OK, "ret %08x\n", hr );
5551 hr = IXMLDOMDocument_get_xml(doc2, &sNew);
5552 ok(hr == S_OK, "ret %08x\n", hr );
5554 ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as origial\n");
5556 SysFreeString(sOrig);
5557 SysFreeString(sNew);
5561 IXMLDOMDocument_Release(doc2);
5562 IXMLDOMDocument_Release(doc);
5565 static void test_DocumentSaveToFile(void)
5567 IXMLDOMDocument *doc;
5568 IXMLDOMElement *pRoot;
5574 doc = create_document(&IID_IXMLDOMDocument);
5577 hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5578 ok(hr == S_OK, "ret %08x\n", hr );
5581 hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5582 ok(hr == S_OK, "ret %08x\n", hr );
5587 V_VT(&vFile) = VT_BSTR;
5588 V_BSTR(&vFile) = _bstr_("test.xml");
5590 hr = IXMLDOMDocument_save(doc, vFile);
5591 ok(hr == S_OK, "ret %08x\n", hr );
5595 IXMLDOMElement_Release(pRoot);
5596 IXMLDOMDocument_Release(doc);
5598 file = CreateFile("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
5599 ok(file != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
5600 if(file == INVALID_HANDLE_VALUE)
5603 ReadFile(file, buffer, sizeof(buffer), &read, NULL);
5604 ok(read != 0, "could not read file\n");
5605 ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
5608 DeleteFile("test.xml");
5611 static void test_testTransforms(void)
5613 IXMLDOMDocument *doc, *docSS;
5619 doc = create_document(&IID_IXMLDOMDocument);
5622 docSS = create_document(&IID_IXMLDOMDocument);
5625 IXMLDOMDocument_Release(doc);
5629 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
5630 ok(hr == S_OK, "ret %08x\n", hr );
5632 hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
5633 ok(hr == S_OK, "ret %08x\n", hr );
5635 hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
5636 ok(hr == S_OK, "ret %08x\n", hr );
5641 hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
5642 ok(hr == S_OK, "ret %08x\n", hr );
5643 ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "Stylesheet output not correct\n");
5644 SysFreeString(bOut);
5646 IXMLDOMNode_Release(pNode);
5649 IXMLDOMDocument_Release(docSS);
5650 IXMLDOMDocument_Release(doc);
5655 static void test_Namespaces(void)
5657 IXMLDOMDocument *doc;
5659 IXMLDOMNode *pNode2 = NULL;
5663 static const CHAR szNamespacesXML[] =
5664 "<?xml version=\"1.0\"?>\n"
5665 "<root xmlns:WEB='http://www.winehq.org'>\n"
5666 "<WEB:Site version=\"1.0\" />\n"
5669 doc = create_document(&IID_IXMLDOMDocument);
5672 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szNamespacesXML), &bSucc);
5673 ok(hr == S_OK, "ret %08x\n", hr );
5674 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5676 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root"), &pNode );
5677 ok(hr == S_OK, "ret %08x\n", hr );
5680 hr = IXMLDOMNode_get_firstChild( pNode, &pNode2 );
5681 ok( hr == S_OK, "ret %08x\n", hr );
5682 ok( pNode2 != NULL, "pNode2 == NULL\n");
5684 /* Test get_prefix */
5685 hr = IXMLDOMNode_get_prefix(pNode2, NULL);
5686 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
5687 /* NOTE: Need to test that arg2 gets cleared on Error. */
5689 hr = IXMLDOMNode_get_prefix(pNode2, &str);
5690 ok( hr == S_OK, "ret %08x\n", hr );
5691 ok( !lstrcmpW( str, _bstr_("WEB")), "incorrect prefix string\n");
5694 /* Test get_namespaceURI */
5695 hr = IXMLDOMNode_get_namespaceURI(pNode2, NULL);
5696 ok( hr == E_INVALIDARG, "ret %08x\n", hr );
5697 /* NOTE: Need to test that arg2 gets cleared on Error. */
5699 hr = IXMLDOMNode_get_namespaceURI(pNode2, &str);
5700 ok( hr == S_OK, "ret %08x\n", hr );
5701 ok( !lstrcmpW( str, _bstr_("http://www.winehq.org")), "incorrect namespaceURI string\n");
5704 IXMLDOMNode_Release(pNode2);
5705 IXMLDOMNode_Release(pNode);
5708 IXMLDOMDocument_Release(doc);
5713 static void test_FormattingXML(void)
5715 IXMLDOMDocument *doc;
5716 IXMLDOMElement *pElement;
5720 static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
5721 static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
5723 doc = create_document(&IID_IXMLDOMDocument);
5726 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
5727 ok(hr == S_OK, "ret %08x\n", hr );
5728 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5730 if(bSucc == VARIANT_TRUE)
5732 hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
5733 ok(hr == S_OK, "ret %08x\n", hr );
5736 hr = IXMLDOMElement_get_xml(pElement, &str);
5737 ok(hr == S_OK, "ret %08x\n", hr );
5738 ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
5741 IXMLDOMElement_Release(pElement);
5745 IXMLDOMDocument_Release(doc);
5750 typedef struct _nodetypedvalue_t {
5753 const char *value; /* value in string format */
5756 static const nodetypedvalue_t get_nodetypedvalue[] = {
5757 { "root/string", VT_BSTR, "Wine" },
5758 { "root/string2", VT_BSTR, "String" },
5759 { "root/number", VT_BSTR, "12.44" },
5760 { "root/number2", VT_BSTR, "-3.71e3" },
5761 { "root/int", VT_I4, "-13" },
5762 { "root/fixed", VT_CY, "7322.9371" },
5763 { "root/bool", VT_BOOL, "-1" },
5764 { "root/datetime", VT_DATE, "40135.14" },
5765 { "root/datetimetz",VT_DATE, "37813.59" },
5766 { "root/date", VT_DATE, "665413" },
5767 { "root/time", VT_DATE, "0.5813889" },
5768 { "root/timetz", VT_DATE, "1.112512" },
5769 { "root/i1", VT_I1, "-13" },
5770 { "root/i2", VT_I2, "31915" },
5771 { "root/i4", VT_I4, "-312232" },
5772 { "root/ui1", VT_UI1, "123" },
5773 { "root/ui2", VT_UI2, "48282" },
5774 { "root/ui4", VT_UI4, "949281" },
5775 { "root/r4", VT_R4, "213124" },
5776 { "root/r8", VT_R8, "0.412" },
5777 { "root/float", VT_R8, "41221.421" },
5778 { "root/uuid", VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
5782 static void test_nodeTypedValue(void)
5784 const nodetypedvalue_t *entry = get_nodetypedvalue;
5785 IXMLDOMDocument *doc;
5791 doc = create_document(&IID_IXMLDOMDocument);
5795 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
5796 ok(hr == S_OK, "ret %08x\n", hr );
5797 ok(b == VARIANT_TRUE, "got %d\n", b);
5799 hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
5800 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5802 V_VT(&value) = VT_BSTR;
5803 V_BSTR(&value) = NULL;
5804 hr = IXMLDOMDocument_get_nodeValue(doc, &value);
5805 ok(hr == S_FALSE, "ret %08x\n", hr );
5806 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
5808 hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
5809 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5811 hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
5812 ok(hr == S_FALSE, "ret %08x\n", hr );
5814 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
5815 ok(hr == S_OK, "ret %08x\n", hr );
5817 V_VT(&value) = VT_BSTR;
5818 V_BSTR(&value) = NULL;
5819 hr = IXMLDOMNode_get_nodeValue(node, &value);
5820 ok(hr == S_FALSE, "ret %08x\n", hr );
5821 ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
5823 hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
5824 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5826 IXMLDOMNode_Release(node);
5828 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
5829 ok(hr == S_OK, "ret %08x\n", hr );
5831 BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
5833 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5834 ok(hr == S_OK, "ret %08x\n", hr );
5835 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
5836 ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
5837 if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
5838 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
5839 VariantClear(&value);
5840 IXMLDOMNode_Release(node);
5843 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binbase64"), &node);
5844 ok(hr == S_OK, "ret %08x\n", hr );
5846 BYTE bytes[] = {0x62,0x61,0x73,0x65,0x36,0x34,0x20,0x74,0x65,0x73,0x74};
5848 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5849 ok(hr == S_OK, "ret %08x\n", hr );
5850 ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
5851 ok(V_ARRAY(&value)->rgsabound[0].cElements == 11, "incorrect array size\n");
5852 if(V_ARRAY(&value)->rgsabound[0].cElements == 11)
5853 ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
5854 VariantClear(&value);
5855 IXMLDOMNode_Release(node);
5860 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
5861 ok(hr == S_OK, "ret %08x\n", hr );
5863 hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
5864 ok(hr == S_OK, "ret %08x\n", hr );
5865 ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
5867 if (entry->type != VT_BSTR)
5869 if (entry->type == VT_DATE ||
5870 entry->type == VT_R8 ||
5871 entry->type == VT_CY)
5873 if (entry->type == VT_DATE)
5875 hr = VariantChangeType(&value, &value, 0, VT_R4);
5876 ok(hr == S_OK, "ret %08x\n", hr );
5878 hr = VariantChangeTypeEx(&value, &value,
5879 MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
5880 VARIANT_NOUSEROVERRIDE, VT_BSTR);
5881 ok(hr == S_OK, "ret %08x\n", hr );
5885 hr = VariantChangeType(&value, &value, 0, VT_BSTR);
5886 ok(hr == S_OK, "ret %08x\n", hr );
5889 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
5890 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
5893 ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
5894 "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
5896 VariantClear( &value );
5897 IXMLDOMNode_Release(node);
5902 IXMLDOMDocument_Release(doc);
5906 static void test_TransformWithLoadingLocalFile(void)
5908 IXMLDOMDocument *doc;
5909 IXMLDOMDocument *xsl;
5915 char lpPathBuffer[MAX_PATH];
5918 /* Create a Temp File. */
5919 GetTempPathA(MAX_PATH, lpPathBuffer);
5920 strcat(lpPathBuffer, "customers.xml" );
5922 file = CreateFile(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
5923 ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
5924 if(file == INVALID_HANDLE_VALUE)
5927 WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
5930 /* Correct path to not include a escape character. */
5931 for(i=0; i < strlen(lpPathBuffer); i++)
5933 if(lpPathBuffer[i] == '\\')
5934 lpPathBuffer[i] = '/';
5937 doc = create_document(&IID_IXMLDOMDocument);
5940 xsl = create_document(&IID_IXMLDOMDocument);
5943 IXMLDOMDocument2_Release(doc);
5947 hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
5948 ok(hr == S_OK, "ret %08x\n", hr );
5949 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5950 if(bSucc == VARIANT_TRUE)
5953 BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
5954 BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
5955 BSTR sFileName = _bstr_(lpPathBuffer);
5956 int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
5958 sXSL = SysAllocStringLen(NULL, nLegnth);
5959 lstrcpyW(sXSL, sPart1);
5960 lstrcatW(sXSL, sFileName);
5961 lstrcatW(sXSL, sPart2);
5963 hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
5964 ok(hr == S_OK, "ret %08x\n", hr );
5965 ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5966 if(bSucc == VARIANT_TRUE)
5970 hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
5971 ok(hr == S_OK, "ret %08x\n", hr );
5974 /* This will load the temp file via the XSL */
5975 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
5976 ok(hr == S_OK, "ret %08x\n", hr );
5979 ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
5980 SysFreeString(sResult);
5983 IXMLDOMNode_Release(pNode);
5987 SysFreeString(sXSL);
5990 IXMLDOMDocument_Release(doc);
5991 IXMLDOMDocument_Release(xsl);
5993 DeleteFile(lpPathBuffer);
5997 static void test_put_nodeValue(void)
5999 IXMLDOMDocument *doc;
6000 IXMLDOMEntityReference *entityref;
6005 doc = create_document(&IID_IXMLDOMDocument);
6008 /* test for unsupported types */
6010 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6011 ok(hr == S_OK, "ret %08x\n", hr );
6012 V_VT(&data) = VT_BSTR;
6013 V_BSTR(&data) = _bstr_("one two three");
6014 hr = IXMLDOMNode_put_nodeValue(node, data);
6015 ok(hr == E_FAIL, "ret %08x\n", hr );
6016 IXMLDOMNode_Release(node);
6018 /* NODE_DOCUMENT_FRAGMENT */
6019 V_VT(&type) = VT_I1;
6020 V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6021 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6022 ok(hr == S_OK, "ret %08x\n", hr );
6023 V_VT(&data) = VT_BSTR;
6024 V_BSTR(&data) = _bstr_("one two three");
6025 hr = IXMLDOMNode_put_nodeValue(node, data);
6026 ok(hr == E_FAIL, "ret %08x\n", hr );
6027 IXMLDOMNode_Release(node);
6030 V_VT(&type) = VT_I1;
6031 V_I1(&type) = NODE_ELEMENT;
6032 hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6033 ok(hr == S_OK, "ret %08x\n", hr );
6034 V_VT(&data) = VT_BSTR;
6035 V_BSTR(&data) = _bstr_("one two three");
6036 hr = IXMLDOMNode_put_nodeValue(node, data);
6037 ok(hr == E_FAIL, "ret %08x\n", hr );
6038 IXMLDOMNode_Release(node);
6040 /* NODE_ENTITY_REFERENCE */
6041 hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6042 ok(hr == S_OK, "ret %08x\n", hr );
6044 V_VT(&data) = VT_BSTR;
6045 V_BSTR(&data) = _bstr_("one two three");
6046 hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6047 ok(hr == E_FAIL, "ret %08x\n", hr );
6049 hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6050 ok(hr == S_OK, "ret %08x\n", hr );
6051 V_VT(&data) = VT_BSTR;
6052 V_BSTR(&data) = _bstr_("one two three");
6053 hr = IXMLDOMNode_put_nodeValue(node, data);
6054 ok(hr == E_FAIL, "ret %08x\n", hr );
6055 IXMLDOMNode_Release(node);
6056 IXMLDOMEntityReference_Release(entityref);
6060 IXMLDOMDocument_Release(doc);
6063 static void test_IObjectSafety_set(IObjectSafety *safety, HRESULT result, HRESULT result2, DWORD set, DWORD mask, DWORD expected, DWORD expected2)
6065 DWORD enabled, supported;
6068 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
6069 if (result == result2)
6070 ok(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
6072 ok(broken(hr == result) || hr == result2,
6073 "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
6075 supported = enabled = 0xCAFECAFE;
6076 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6077 ok(hr == S_OK, "ret %08x\n", hr );
6078 if (expected == expected2)
6079 ok(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
6081 ok(broken(enabled == expected) || enabled == expected2,
6082 "Expected %08x, got %08x\n", expected2, enabled);
6084 /* reset the safety options */
6086 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6087 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
6089 ok(hr == S_OK, "ret %08x\n", hr );
6091 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6092 ok(hr == S_OK, "ret %08x\n", hr );
6093 ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6096 static void test_document_IObjectSafety(void)
6098 IXMLDOMDocument *doc;
6099 IObjectSafety *safety;
6100 DWORD enabled = 0, supported = 0;
6103 doc = create_document(&IID_IXMLDOMDocument);
6106 hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6107 ok(hr == S_OK, "ret %08x\n", hr );
6110 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
6111 ok(hr == E_POINTER, "ret %08x\n", hr );
6112 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
6113 ok(hr == E_POINTER, "ret %08x\n", hr );
6115 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6116 ok(hr == S_OK, "ret %08x\n", hr );
6117 ok(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
6118 supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6119 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
6120 "got %08x\n", supported);
6121 ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6123 /* set -- individual flags */
6125 test_IObjectSafety_set(safety, S_OK, S_OK,
6126 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6127 INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6129 test_IObjectSafety_set(safety, S_OK, S_OK,
6130 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
6131 INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
6133 test_IObjectSafety_set(safety, S_OK, S_OK,
6134 INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
6135 0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
6137 /* set INTERFACE_USES_DISPEX */
6139 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6140 INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
6143 test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6144 INTERFACE_USES_DISPEX, 0,
6147 test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
6148 0, INTERFACE_USES_DISPEX,
6151 /* set option masking */
6153 test_IObjectSafety_set(safety, S_OK, S_OK,
6154 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6155 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6156 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6157 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6159 test_IObjectSafety_set(safety, S_OK, S_OK,
6160 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6161 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6162 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6163 INTERFACESAFE_FOR_UNTRUSTED_DATA);
6165 test_IObjectSafety_set(safety, S_OK, S_OK,
6166 INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6167 INTERFACE_USES_SECURITY_MANAGER,
6171 /* set -- inheriting previous settings */
6173 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6174 INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6175 INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6176 ok(hr == S_OK, "ret %08x\n", hr );
6177 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6178 ok(hr == S_OK, "ret %08x\n", hr );
6180 ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER) ||
6181 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6182 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER), "
6183 "got %08x\n", enabled);
6185 hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6186 INTERFACESAFE_FOR_UNTRUSTED_DATA,
6187 INTERFACESAFE_FOR_UNTRUSTED_DATA);
6188 ok(hr == S_OK, "ret %08x\n", hr );
6189 hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6190 ok(hr == S_OK, "ret %08x\n", hr );
6192 ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
6193 enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) /* msxml3 SP8+ */,
6194 "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA), "
6195 "got %08x\n", enabled);
6197 IObjectSafety_Release(safety);
6199 IXMLDOMDocument_Release(doc);
6202 typedef struct _property_test_t {
6205 const char *property;
6209 static const property_test_t properties_test_data[] = {
6210 { &CLSID_DOMDocument, "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6211 { &CLSID_DOMDocument2, "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6212 { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6213 { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6214 { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6218 static void test_default_properties(void)
6220 const property_test_t *entry = properties_test_data;
6221 IXMLDOMDocument2 *doc;
6227 hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6230 win_skip("can't create %s instance\n", entry->clsid);
6235 hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6236 ok(hr == S_OK, "got 0x%08x\n", hr);
6237 ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6238 entry->value, entry->clsid);
6241 IXMLDOMDocument2_Release(doc);
6247 static void test_XSLPattern(void)
6249 IXMLDOMDocument2 *doc;
6250 IXMLDOMNodeList *list;
6254 doc = create_document(&IID_IXMLDOMDocument2);
6257 ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b));
6258 ok(b == VARIANT_TRUE, "failed to load XML string\n");
6260 /* switch to XSLPattern */
6261 ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
6263 /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6264 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list));
6266 ole_check(IXMLDOMNodeList_get_length(list, &len));
6267 /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6268 ok(len == 3, "expected 3 entries in list, got %d\n", len);
6269 IXMLDOMNodeList_Release(list);
6271 /* for XSLPattern start index is 0, for XPath it's 1 */
6272 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
6274 ole_check(IXMLDOMNodeList_get_length(list, &len));
6275 ok(len != 0, "expected filled list\n");
6277 expect_list_and_release(list, "E1.E2.D1");
6280 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=1]"), &list));
6282 ole_check(IXMLDOMNodeList_get_length(list, &len));
6283 ok(len != 0, "expected filled list\n");
6285 expect_list_and_release(list, "E2.E2.D1");
6288 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $eq$ 1]"), &list));
6290 ole_check(IXMLDOMNodeList_get_length(list, &len));
6291 ok(len != 0, "expected filled list\n");
6293 expect_list_and_release(list, "E2.E2.D1");
6296 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[end()]"), &list));
6298 ole_check(IXMLDOMNodeList_get_length(list, &len));
6299 ok(len != 0, "expected filled list\n");
6301 expect_list_and_release(list, "E4.E2.D1");
6304 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$not$ end()]"), &list));
6306 ole_check(IXMLDOMNodeList_get_length(list, &len));
6307 ok(len != 0, "expected filled list\n");
6309 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
6312 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() != 0]"), &list));
6314 ole_check(IXMLDOMNodeList_get_length(list, &len));
6315 ok(len != 0, "expected filled list\n");
6317 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6318 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ne$ 0]"), &list));
6320 ole_check(IXMLDOMNodeList_get_length(list, &len));
6321 ok(len != 0, "expected filled list\n");
6323 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6326 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() < 2]"), &list));
6328 ole_check(IXMLDOMNodeList_get_length(list, &len));
6329 ok(len != 0, "expected filled list\n");
6331 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6332 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $lt$ 2]"), &list));
6334 ole_check(IXMLDOMNodeList_get_length(list, &len));
6335 ok(len != 0, "expected filled list\n");
6337 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6340 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() <= 1]"), &list));
6342 ole_check(IXMLDOMNodeList_get_length(list, &len));
6343 ok(len != 0, "expected filled list\n");
6345 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6346 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $le$ 1]"), &list));
6348 ole_check(IXMLDOMNodeList_get_length(list, &len));
6349 ok(len != 0, "expected filled list\n");
6351 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6354 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() > 1]"), &list));
6356 ole_check(IXMLDOMNodeList_get_length(list, &len));
6357 ok(len != 0, "expected filled list\n");
6359 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6360 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $gt$ 1]"), &list));
6362 ole_check(IXMLDOMNodeList_get_length(list, &len));
6363 ok(len != 0, "expected filled list\n");
6365 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6368 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() >= 2]"), &list));
6370 ole_check(IXMLDOMNodeList_get_length(list, &len));
6371 ok(len != 0, "expected filled list\n");
6373 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6374 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ge$ 2]"), &list));
6376 ole_check(IXMLDOMNodeList_get_length(list, &len));
6377 ok(len != 0, "expected filled list\n");
6379 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6382 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ieq$ 'a2 field']"), &list));
6384 ole_check(IXMLDOMNodeList_get_length(list, &len));
6385 ok(len != 0, "expected filled list\n");
6387 expect_list_and_release(list, "E2.E2.D1");
6390 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ine$ 'a2 field']"), &list));
6392 ole_check(IXMLDOMNodeList_get_length(list, &len));
6393 ok(len != 0, "expected filled list\n");
6395 expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6398 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ilt$ 'a3 field']"), &list));
6400 ole_check(IXMLDOMNodeList_get_length(list, &len));
6401 ok(len != 0, "expected filled list\n");
6403 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6406 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ile$ 'a2 field']"), &list));
6408 ole_check(IXMLDOMNodeList_get_length(list, &len));
6409 ok(len != 0, "expected filled list\n");
6411 expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6414 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $igt$ 'a2 field']"), &list));
6416 ole_check(IXMLDOMNodeList_get_length(list, &len));
6417 ok(len != 0, "expected filled list\n");
6419 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6422 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ige$ 'a3 field']"), &list));
6424 ole_check(IXMLDOMNodeList_get_length(list, &len));
6425 ok(len != 0, "expected filled list\n");
6427 expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6430 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$any$ *='B2 field']"), &list));
6432 ole_check(IXMLDOMNodeList_get_length(list, &len));
6433 ok(len != 0, "expected filled list\n");
6435 expect_list_and_release(list, "E2.E2.D1");
6438 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$all$ *!='B2 field']"), &list));
6440 ole_check(IXMLDOMNodeList_get_length(list, &len));
6441 ok(len != 0, "expected filled list\n");
6443 expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6446 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 or end()]"), &list));
6448 ole_check(IXMLDOMNodeList_get_length(list, &len));
6449 ok(len != 0, "expected filled list\n");
6451 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6452 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 $or$ end()]"), &list));
6454 ole_check(IXMLDOMNodeList_get_length(list, &len));
6455 ok(len != 0, "expected filled list\n");
6457 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6458 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 || end()]"), &list));
6460 ole_check(IXMLDOMNodeList_get_length(list, &len));
6461 ok(len != 0, "expected filled list\n");
6463 expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6466 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 and $not$ end()]"), &list));
6468 ole_check(IXMLDOMNodeList_get_length(list, &len));
6469 ok(len != 0, "expected filled list\n");
6471 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6472 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 $and$ $not$ end()]"), &list));
6474 ole_check(IXMLDOMNodeList_get_length(list, &len));
6475 ok(len != 0, "expected filled list\n");
6477 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6478 ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 && $not$ end()]"), &list));
6480 ole_check(IXMLDOMNodeList_get_length(list, &len));
6481 ok(len != 0, "expected filled list\n");
6483 expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6486 IXMLDOMDocument2_Release(doc);
6490 static void test_splitText(void)
6492 IXMLDOMCDATASection *cdata;
6493 IXMLDOMElement *root;
6494 IXMLDOMDocument *doc;
6495 IXMLDOMText *text, *text2;
6498 VARIANT_BOOL success;
6502 doc = create_document(&IID_IXMLDOMDocument);
6505 hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
6506 ok(hr == S_OK, "got 0x%08x\n", hr);
6508 hr = IXMLDOMDocument_get_documentElement(doc, &root);
6509 ok(hr == S_OK, "got 0x%08x\n", hr);
6511 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
6512 ok(hr == S_OK, "got 0x%08x\n", hr);
6514 V_VT(&var) = VT_EMPTY;
6515 hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
6516 ok(hr == S_OK, "got 0x%08x\n", hr);
6519 hr = IXMLDOMCDATASection_get_length(cdata, &length);
6520 ok(hr == S_OK, "got 0x%08x\n", hr);
6521 ok(length > 0, "got %d\n", length);
6523 hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
6524 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6526 text = (void*)0xdeadbeef;
6527 /* negative offset */
6528 hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
6529 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6530 ok(text == (void*)0xdeadbeef, "got %p\n", text);
6532 text = (void*)0xdeadbeef;
6533 /* offset outside data */
6534 hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
6535 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6536 ok(text == 0, "got %p\n", text);
6538 text = (void*)0xdeadbeef;
6539 /* offset outside data */
6540 hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
6541 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6542 ok(text == 0, "got %p\n", text);
6544 /* no empty node created */
6545 node = (void*)0xdeadbeef;
6546 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
6547 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6548 ok(node == 0, "got %p\n", text);
6550 hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
6551 ok(hr == S_OK, "got 0x%08x\n", hr);
6554 hr = IXMLDOMText_get_length(text, &length);
6555 ok(hr == S_OK, "got 0x%08x\n", hr);
6556 ok(length == 7, "got %d\n", length);
6558 hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
6559 ok(hr == S_OK, "got 0x%08x\n", hr);
6560 IXMLDOMNode_Release(node);
6562 /* split new text node */
6563 hr = IXMLDOMText_get_length(text, &length);
6564 ok(hr == S_OK, "got 0x%08x\n", hr);
6566 node = (void*)0xdeadbeef;
6567 hr = IXMLDOMText_get_nextSibling(text, &node);
6568 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6569 ok(node == 0, "got %p\n", text);
6571 hr = IXMLDOMText_splitText(text, 0, NULL);
6572 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6574 text2 = (void*)0xdeadbeef;
6575 /* negative offset */
6576 hr = IXMLDOMText_splitText(text, -1, &text2);
6577 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6578 ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
6580 text2 = (void*)0xdeadbeef;
6581 /* offset outside data */
6582 hr = IXMLDOMText_splitText(text, length + 1, &text2);
6583 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6584 ok(text2 == 0, "got %p\n", text2);
6586 text2 = (void*)0xdeadbeef;
6587 /* offset outside data */
6588 hr = IXMLDOMText_splitText(text, length, &text2);
6589 ok(hr == S_FALSE, "got 0x%08x\n", hr);
6590 ok(text2 == 0, "got %p\n", text);
6593 hr = IXMLDOMText_splitText(text, 4, &text2);
6594 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
6595 if (text2) IXMLDOMText_Release(text2);
6598 hr = IXMLDOMText_get_nextSibling(text, &node);
6599 todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
6600 if (node) IXMLDOMNode_Release(node);
6602 IXMLDOMText_Release(text);
6603 IXMLDOMElement_Release(root);
6604 IXMLDOMCDATASection_Release(cdata);
6608 static void test_getQualifiedItem(void)
6610 IXMLDOMDocument *doc;
6611 IXMLDOMElement *element;
6612 IXMLDOMNode *pr_node, *node;
6613 IXMLDOMNodeList *root_list;
6614 IXMLDOMNamedNodeMap *map;
6620 doc = create_document(&IID_IXMLDOMDocument);
6623 str = SysAllocString( szComplete4 );
6624 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6625 ok( hr == S_OK, "loadXML failed\n");
6626 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6627 SysFreeString( str );
6629 hr = IXMLDOMDocument_get_documentElement(doc, &element);
6630 ok( hr == S_OK, "ret %08x\n", hr);
6632 hr = IXMLDOMElement_get_childNodes(element, &root_list);
6633 ok( hr == S_OK, "ret %08x\n", hr);
6635 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
6636 ok( hr == S_OK, "ret %08x\n", hr);
6637 IXMLDOMNodeList_Release(root_list);
6639 hr = IXMLDOMNode_get_attributes(pr_node, &map);
6640 ok( hr == S_OK, "ret %08x\n", hr);
6641 IXMLDOMNode_Release(pr_node);
6643 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
6644 ok( hr == S_OK, "ret %08x\n", hr);
6645 ok( len == 3, "length %d\n", len);
6647 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
6648 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6650 node = (void*)0xdeadbeef;
6651 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
6652 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6653 ok( node == (void*)0xdeadbeef, "got %p\n", node);
6655 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
6656 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6658 hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
6659 ok( hr == S_OK, "ret %08x\n", hr);
6660 IXMLDOMNode_Release(node);
6662 IXMLDOMNamedNodeMap_Release( map );
6663 IXMLDOMElement_Release( element );
6664 IXMLDOMDocument_Release( doc );
6668 static void test_removeQualifiedItem(void)
6670 IXMLDOMDocument *doc;
6671 IXMLDOMElement *element;
6672 IXMLDOMNode *pr_node, *node;
6673 IXMLDOMNodeList *root_list;
6674 IXMLDOMNamedNodeMap *map;
6680 doc = create_document(&IID_IXMLDOMDocument);
6683 str = SysAllocString( szComplete4 );
6684 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6685 ok( hr == S_OK, "loadXML failed\n");
6686 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6687 SysFreeString( str );
6689 hr = IXMLDOMDocument_get_documentElement(doc, &element);
6690 ok( hr == S_OK, "ret %08x\n", hr);
6692 hr = IXMLDOMElement_get_childNodes(element, &root_list);
6693 ok( hr == S_OK, "ret %08x\n", hr);
6695 hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
6696 ok( hr == S_OK, "ret %08x\n", hr);
6697 IXMLDOMNodeList_Release(root_list);
6699 hr = IXMLDOMNode_get_attributes(pr_node, &map);
6700 ok( hr == S_OK, "ret %08x\n", hr);
6701 IXMLDOMNode_Release(pr_node);
6703 hr = IXMLDOMNamedNodeMap_get_length(map, &len);
6704 ok( hr == S_OK, "ret %08x\n", hr);
6705 ok( len == 3, "length %d\n", len);
6707 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
6708 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6710 node = (void*)0xdeadbeef;
6711 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
6712 ok( hr == E_INVALIDARG, "ret %08x\n", hr);
6713 ok( node == (void*)0xdeadbeef, "got %p\n", node);
6715 /* out pointer is optional */
6716 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
6717 ok( hr == S_OK, "ret %08x\n", hr);
6719 /* already removed */
6720 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
6721 ok( hr == S_FALSE, "ret %08x\n", hr);
6723 hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
6724 ok( hr == S_OK, "ret %08x\n", hr);
6725 IXMLDOMNode_Release(node);
6727 IXMLDOMNamedNodeMap_Release( map );
6728 IXMLDOMElement_Release( element );
6729 IXMLDOMDocument_Release( doc );
6733 static void test_get_ownerDocument(void)
6735 IXMLDOMDocument *doc1, *doc2, *doc3;
6736 IXMLDOMDocument2 *doc, *doc_owner;
6743 doc = create_document(&IID_IXMLDOMDocument2);
6746 str = SysAllocString( szComplete4 );
6747 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6748 ok( hr == S_OK, "loadXML failed\n");
6749 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6750 SysFreeString( str );
6752 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
6753 ok( hr == S_OK, "got 0x%08x\n", hr);
6754 ok( lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
6757 /* set to XPath and check that new instances use it */
6758 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
6759 ok( hr == S_OK, "got 0x%08x\n", hr);
6761 hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'"));
6762 ok( hr == S_OK, "got 0x%08x\n", hr);
6764 hr = IXMLDOMDocument2_get_firstChild(doc, &node);
6765 ok( hr == S_OK, "got 0x%08x\n", hr);
6767 hr = IXMLDOMNode_get_ownerDocument(node, &doc1);
6768 ok( hr == S_OK, "got 0x%08x\n", hr);
6770 hr = IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner);
6771 ok( hr == S_OK, "got 0x%08x\n", hr);
6772 ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
6773 hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionNamespaces"), &var);
6774 ok( hr == S_OK, "got 0x%08x\n", hr);
6775 ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
6778 hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionLanguage"), &var);
6779 ok( hr == S_OK, "got 0x%08x\n", hr);
6780 ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
6782 IXMLDOMDocument2_Release(doc_owner);
6784 hr = IXMLDOMNode_get_ownerDocument(node, &doc2);
6785 ok( hr == S_OK, "got 0x%08x\n", hr);
6786 IXMLDOMNode_Release(node);
6788 ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
6791 str = SysAllocString( szComplete4 );
6792 hr = IXMLDOMDocument2_loadXML( doc, str, &b );
6793 ok( hr == S_OK, "got 0x%08x\n", hr);
6794 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6795 SysFreeString( str );
6797 /* properties retained even after reload */
6798 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
6799 ok( hr == S_OK, "got 0x%08x\n", hr);
6800 ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
6803 hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
6804 ok( hr == S_OK, "got 0x%08x\n", hr);
6805 ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
6808 hr = IXMLDOMDocument2_get_firstChild(doc, &node);
6809 ok( hr == S_OK, "got 0x%08x\n", hr);
6811 hr = IXMLDOMNode_get_ownerDocument(node, &doc3);
6812 ok( hr == S_OK, "got 0x%08x\n", hr);
6813 IXMLDOMNode_Release(node);
6815 hr = IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner);
6816 ok( hr == S_OK, "got 0x%08x\n", hr);
6817 ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
6819 IXMLDOMDocument_Release(doc1);
6820 IXMLDOMDocument_Release(doc2);
6821 IXMLDOMDocument_Release(doc3);
6822 IXMLDOMDocument2_Release(doc);
6826 static void test_setAttributeNode(void)
6828 IXMLDOMDocument *doc, *doc2;
6829 IXMLDOMElement *elem;
6830 IXMLDOMAttribute *attr, *attr2, *ret_attr;
6835 doc = create_document(&IID_IXMLDOMDocument);
6838 str = SysAllocString( szComplete4 );
6839 hr = IXMLDOMDocument2_loadXML( doc, str, &b );
6840 ok( hr == S_OK, "loadXML failed\n");
6841 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6842 SysFreeString( str );
6844 hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6845 ok( hr == S_OK, "got 0x%08x\n", hr);
6847 ret_attr = (void*)0xdeadbeef;
6848 hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
6849 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
6850 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
6852 hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6853 ok( hr == S_OK, "got 0x%08x\n", hr);
6855 ret_attr = (void*)0xdeadbeef;
6856 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
6857 todo_wine ok( hr == S_OK, "got 0x%08x\n", hr);
6858 todo_wine ok( ret_attr == NULL, "got %p\n", ret_attr);
6861 hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
6862 todo_wine ok( hr == S_OK, "got 0x%08x\n", hr);
6863 if (attr2) IXMLDOMAttribute_Release(attr2);
6865 /* try to add it another time */
6866 ret_attr = (void*)0xdeadbeef;
6867 hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
6868 todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
6869 ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
6871 IXMLDOMElement_Release(elem);
6873 /* add attribute already attached to another document */
6874 doc2 = create_document(&IID_IXMLDOMDocument);
6876 str = SysAllocString( szComplete4 );
6877 hr = IXMLDOMDocument_loadXML( doc2, str, &b );
6878 ok( hr == S_OK, "loadXML failed\n");
6879 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6880 SysFreeString( str );
6882 hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
6883 ok( hr == S_OK, "got 0x%08x\n", hr);
6884 hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
6885 todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
6886 IXMLDOMElement_Release(elem);
6888 IXMLDOMDocument_Release(doc2);
6890 IXMLDOMAttribute_Release(attr);
6891 IXMLDOMDocument_Release(doc);
6895 static void test_put_dataType(void)
6897 IXMLDOMCDATASection *cdata;
6898 IXMLDOMDocument *doc;
6903 doc = create_document(&IID_IXMLDOMDocument);
6906 str = SysAllocString( szComplete4 );
6907 hr = IXMLDOMDocument_loadXML( doc, str, &b );
6908 ok( hr == S_OK, "loadXML failed\n");
6909 ok( b == VARIANT_TRUE, "failed to load XML string\n");
6910 SysFreeString( str );
6912 hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("test"), &cdata);
6913 ok( hr == S_OK, "got 0x%08x\n", hr);
6914 hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("number"));
6915 ok( hr == E_FAIL, "got 0x%08x\n", hr);
6916 hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("string"));
6917 ok( hr == E_FAIL, "got 0x%08x\n", hr);
6918 IXMLDOMCDATASection_Release(cdata);
6920 IXMLDOMDocument_Release(doc);
6924 static void test_createNode(void)
6926 IXMLDOMDocument *doc;
6927 IXMLDOMElement *elem;
6933 doc = create_document(&IID_IXMLDOMDocument);
6936 /* NODE_ELEMENT nodes */
6937 /* 1. specified namespace */
6939 V_I4(&v) = NODE_ELEMENT;
6941 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
6942 ok( hr == S_OK, "got 0x%08x\n", hr);
6944 hr = IXMLDOMNode_get_prefix(node, &prefix);
6945 ok( hr == S_OK, "got 0x%08x\n", hr);
6946 ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
6947 SysFreeString(prefix);
6948 IXMLDOMNode_Release(node);
6950 /* 2. default namespace */
6951 hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
6952 ok( hr == S_OK, "got 0x%08x\n", hr);
6953 prefix = (void*)0xdeadbeef;
6954 hr = IXMLDOMNode_get_prefix(node, &prefix);
6955 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6956 ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
6958 hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
6959 ok( hr == S_OK, "got 0x%08x\n", hr);
6961 V_VT(&var) = VT_BSTR;
6962 hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
6963 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6964 ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
6967 hr = IXMLDOMElement_get_namespaceURI(elem, &str);
6968 ok( hr == S_OK, "got 0x%08x\n", hr);
6969 ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
6972 IXMLDOMElement_Release(elem);
6973 IXMLDOMNode_Release(node);
6975 IXMLDOMDocument_Release(doc);
6979 static void test_get_prefix(void)
6981 IXMLDOMDocument *doc;
6982 IXMLDOMElement *element;
6986 doc = create_document(&IID_IXMLDOMDocument);
6990 hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
6991 ok( hr == S_OK, "got 0x%08x\n", hr);
6993 hr = IXMLDOMElement_get_prefix(element, NULL);
6994 ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
6996 str = (void*)0xdeadbeef;
6997 hr = IXMLDOMElement_get_prefix(element, &str);
6998 ok( hr == S_FALSE, "got 0x%08x\n", hr);
6999 ok( str == 0, "got %p\n", str);
7001 IXMLDOMElement_Release(element);
7004 hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
7005 ok( hr == S_OK, "got 0x%08x\n", hr);
7007 str = (void*)0xdeadbeef;
7008 hr = IXMLDOMElement_get_prefix(element, &str);
7009 ok( hr == S_OK, "got 0x%08x\n", hr);
7010 ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
7013 str = (void*)0xdeadbeef;
7014 hr = IXMLDOMElement_get_namespaceURI(element, &str);
7015 ok( hr == S_FALSE, "got 0x%08x\n", hr);
7016 ok( str == 0, "got %p\n", str);
7018 IXMLDOMElement_Release(element);
7020 IXMLDOMDocument_Release(doc);
7024 static void test_selectSingleNode(void)
7026 IXMLDOMDocument *doc;
7027 IXMLDOMNodeList *list;
7034 doc = create_document(&IID_IXMLDOMDocument);
7037 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7038 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7040 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7041 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7043 str = SysAllocString( szComplete4 );
7044 hr = IXMLDOMDocument_loadXML( doc, str, &b );
7045 ok( hr == S_OK, "loadXML failed\n");
7046 ok( b == VARIANT_TRUE, "failed to load XML string\n");
7047 SysFreeString( str );
7049 hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7050 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7052 hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7053 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7055 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
7056 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7058 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
7059 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7061 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
7062 ok(hr == S_OK, "got 0x%08x\n", hr);
7063 IXMLDOMNode_Release(node);
7065 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
7066 ok(hr == S_OK, "got 0x%08x\n", hr);
7067 IXMLDOMNodeList_Release(list);
7069 list = (void*)0xdeadbeef;
7070 hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
7071 ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7072 ok(list == (void*)0xdeadbeef, "got %p\n", list);
7074 node = (void*)0xdeadbeef;
7075 hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
7076 ok(hr == S_FALSE, "got 0x%08x\n", hr);
7077 ok(node == 0, "got %p\n", node);
7079 list = (void*)0xdeadbeef;
7080 hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
7081 ok(hr == S_OK, "got 0x%08x\n", hr);
7083 hr = IXMLDOMNodeList_get_length(list, &len);
7084 ok(hr == S_OK, "got 0x%08x\n", hr);
7085 ok(len == 0, "got %d\n", len);
7086 IXMLDOMNodeList_Release(list);
7088 IXMLDOMDocument_Release(doc);
7094 IXMLDOMDocument *doc;
7097 hr = CoInitialize( NULL );
7098 ok( hr == S_OK, "failed to init com\n");
7104 hr = CoCreateInstance( &CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc );
7107 win_skip("IXMLDOMDocument is not available (0x%08x)\n", hr);
7111 IXMLDOMDocument_Release(doc);
7114 test_persiststreaminit();
7118 test_getElementsByTagName();
7120 test_get_childNodes();
7121 test_get_firstChild();
7122 test_get_lastChild();
7124 test_replaceChild();
7125 test_removeNamedItem();
7126 test_IXMLDOMDocument2();
7132 test_nodeTypeTests();
7133 test_DocumentSaveToDocument();
7134 test_DocumentSaveToFile();
7135 test_testTransforms();
7137 test_FormattingXML();
7138 test_nodeTypedValue();
7139 test_TransformWithLoadingLocalFile();
7140 test_put_nodeValue();
7141 test_document_IObjectSafety();
7143 test_getQualifiedItem();
7144 test_removeQualifiedItem();
7145 test_get_ownerDocument();
7146 test_setAttributeNode();
7147 test_put_dataType();
7150 test_default_properties();
7151 test_selectSingleNode();