git.oblomov.eu Git - wine/blob - dlls/msxml3/tests/domdoc.c

   1 /*
   2  * XML test
   3  *
   4  * Copyright 2005 Mike McCormack for CodeWeavers
   5  * Copyright 2007-2008 Alistair Leslie-Hughes
   6  * Copyright 2010 Adam Martinson for CodeWeavers
   7  *
   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.
  12  *
  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.
  17  *
  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
  21  */
  22
  23
  24 #define COBJMACROS
  25
  26 #include "windows.h"
  27 #include "ole2.h"
  28 #include "objsafe.h"
  29 #include "xmldom.h"
  30 #include "msxml2.h"
  31 #include "msxml2did.h"
  32 #include "dispex.h"
  33 #include <stdio.h>
  34 #include <assert.h>
  35
  36 #include "wine/test.h"
  37
  38 #include "initguid.h"
  39
  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);
  42
  43 static int g_unexpectedcall, g_expectedcall;
  44
  45 typedef struct
  46 {
  47     const struct IDispatchVtbl *lpVtbl;
  48     LONG ref;
  49 } dispevent;
  50
  51 static inline dispevent *impl_from_IDispatch( IDispatch *iface )
  52 {
  53     return (dispevent *)((char*)iface - FIELD_OFFSET(dispevent, lpVtbl));
  54 }
  55
  56 static HRESULT WINAPI dispevent_QueryInterface(IDispatch *iface, REFIID riid, void **ppvObject)
  57 {
  58     *ppvObject = NULL;
  59
  60     if ( IsEqualGUID( riid, &IID_IDispatch) ||
  61          IsEqualGUID( riid, &IID_IUnknown) )
  62     {
  63         *ppvObject = iface;
  64     }
  65     else
  66         return E_NOINTERFACE;
  67
  68     IDispatch_AddRef( iface );
  69
  70     return S_OK;
  71 }
  72
  73 static ULONG WINAPI dispevent_AddRef(IDispatch *iface)
  74 {
  75     dispevent *This = impl_from_IDispatch( iface );
  76     return InterlockedIncrement( &This->ref );
  77 }
  78
  79 static ULONG WINAPI dispevent_Release(IDispatch *iface)
  80 {
  81     dispevent *This = impl_from_IDispatch( iface );
  82     ULONG ref = InterlockedDecrement( &This->ref );
  83
  84     if (ref == 0)
  85         HeapFree(GetProcessHeap(), 0, This);
  86
  87     return ref;
  88 }
  89
  90 static HRESULT WINAPI dispevent_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
  91 {
  92     g_unexpectedcall++;
  93     *pctinfo = 0;
  94     return S_OK;
  95 }
  96
  97 static HRESULT WINAPI dispevent_GetTypeInfo(IDispatch *iface, UINT iTInfo,
  98         LCID lcid, ITypeInfo **ppTInfo)
  99 {
 100     g_unexpectedcall++;
 101     return S_OK;
 102 }
 103
 104 static HRESULT WINAPI dispevent_GetIDsOfNames(IDispatch *iface, REFIID riid,
 105         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 106 {
 107     g_unexpectedcall++;
 108     return S_OK;
 109 }
 110
 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)
 114 {
 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);
 118
 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);
 123
 124     ok(result == NULL, "got %p\n", result);
 125     ok(excepInfo == NULL, "got %p\n", excepInfo);
 126     ok(argErr == NULL, "got %p\n", argErr);
 127
 128     g_expectedcall++;
 129     return E_FAIL;
 130 }
 131
 132 static const IDispatchVtbl dispeventVtbl =
 133 {
 134     dispevent_QueryInterface,
 135     dispevent_AddRef,
 136     dispevent_Release,
 137     dispevent_GetTypeInfoCount,
 138     dispevent_GetTypeInfo,
 139     dispevent_GetIDsOfNames,
 140     dispevent_Invoke
 141 };
 142
 143 static IDispatch* create_dispevent(void)
 144 {
 145     dispevent *event = HeapAlloc(GetProcessHeap(), 0, sizeof(*event));
 146
 147     event->lpVtbl = &dispeventVtbl;
 148     event->ref = 1;
 149
 150     return (IDispatch*)&event->lpVtbl;
 151 }
 152
 153
 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
 158 };
 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
 163 };
 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
 168 };
 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
 173 };
 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',
 187                 'f','1','\n',
 188             '<','/','b','a','>','\n',
 189         '<','/','f','o','>','\n',
 190     '<','/','l','c','>','\n',0
 191 };
 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
 204 };
 205
 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
 210 };
 211
 212 static const CHAR szNonUnicodeXML[] =
 213 "<?xml version='1.0' encoding='Windows-1252'?>\n"
 214 "<open></open>\n";
 215
 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"
 219 "    <elem>\n"
 220 "        <a>A1 field</a>\n"
 221 "        <b>B1 field</b>\n"
 222 "        <c>C1 field</c>\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"
 226 "            </html>\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"
 229 "            </html>\n"
 230 "        </description>\n"
 231 "    </elem>\n"
 232 "\n"
 233 "    <elem>\n"
 234 "        <a>A2 field</a>\n"
 235 "        <b>B2 field</b>\n"
 236 "        <c type=\"old\">C2 field</c>\n"
 237 "    </elem>\n"
 238 "\n"
 239 "    <elem xmlns='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
 240 "        <a>A3 field</a>\n"
 241 "        <b>B3 field</b>\n"
 242 "        <c>C3 field</c>\n"
 243 "    </elem>\n"
 244 "\n"
 245 "    <elem>\n"
 246 "        <a>A4 field</a>\n"
 247 "        <b>B4 field</b>\n"
 248 "        <foo:c>C4 field</foo:c>\n"
 249 "    </elem>\n"
 250 "</root>\n";
 251
 252 static const CHAR szNodeTypesXML[] =
 253 "<?xml version='1.0'?>"
 254 "<!-- comment node 0 -->"
 255 "<root id='0' depth='0'>"
 256 "   <!-- comment node 1 -->"
 257 "   text node 0"
 258 "   <x id='1' depth='1'>"
 259 "       <?foo value='PI for x'?>"
 260 "       <!-- comment node 2 -->"
 261 "       text node 1"
 262 "       <a id='3' depth='2'/>"
 263 "       <b id='4' depth='2'/>"
 264 "       <c id='5' depth='2'/>"
 265 "   </x>"
 266 "   <y id='2' depth='1'>"
 267 "       <?bar value='PI for y'?>"
 268 "       <!-- comment node 3 -->"
 269 "       text node 2"
 270 "       <a id='6' depth='2'/>"
 271 "       <b id='7' depth='2'/>"
 272 "       <c id='8' depth='2'/>"
 273 "   </y>"
 274 "</root>";
 275
 276 static const CHAR szTransformXML[] =
 277 "<?xml version=\"1.0\"?>\n"
 278 "<greeting>\n"
 279 "Hello World\n"
 280 "</greeting>";
 281
 282 static  const CHAR szTransformSSXML[] =
 283 "<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">\n"
 284 "   <xsl:output method=\"html\"/>\n"
 285 "   <xsl:template match=\"/\">\n"
 286 "       <xsl:apply-templates select=\"greeting\"/>\n"
 287 "   </xsl:template>\n"
 288 "   <xsl:template match=\"greeting\">\n"
 289 "       <html>\n"
 290 "           <body>\n"
 291 "               <h1>\n"
 292 "                   <xsl:value-of select=\".\"/>\n"
 293 "               </h1>\n"
 294 "           </body>\n"
 295 "       </html>\n"
 296 "   </xsl:template>\n"
 297 "</xsl:stylesheet>";
 298
 299 static  const CHAR szTransformOutput[] =
 300 "<html><body><h1>"
 301 "Hello World"
 302 "</h1></body></html>";
 303
 304 static const CHAR szTypeValueXML[] =
 305 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
 306 "<root xmlns:dt=\"urn:schemas-microsoft-com:datatypes\">\n"
 307 "   <string>Wine</string>\n"
 308 "   <string2 dt:dt=\"string\">String</string2>\n"
 309 "   <number dt:dt=\"number\">12.44</number>\n"
 310 "   <number2 dt:dt=\"NUMbEr\">-3.71e3</number2>\n"
 311 "   <int dt:dt=\"int\">-13</int>\n"
 312 "   <fixed dt:dt=\"fixed.14.4\">7322.9371</fixed>\n"
 313 "   <bool dt:dt=\"boolean\">1</bool>\n"
 314 "   <datetime dt:dt=\"datetime\">2009-11-18T03:21:33.12</datetime>\n"
 315 "   <datetimetz dt:dt=\"datetime.tz\">2003-07-11T11:13:57+03:00</datetimetz>\n"
 316 "   <date dt:dt=\"date\">3721-11-01</date>\n"
 317 "   <time dt:dt=\"time\">13:57:12.31321</time>\n"
 318 "   <timetz dt:dt=\"time.tz\">23:21:01.13+03:21</timetz>\n"
 319 "   <i1 dt:dt=\"i1\">-13</i1>\n"
 320 "   <i2 dt:dt=\"i2\">31915</i2>\n"
 321 "   <i4 dt:dt=\"i4\">-312232</i4>\n"
 322 "   <ui1 dt:dt=\"ui1\">123</ui1>\n"
 323 "   <ui2 dt:dt=\"ui2\">48282</ui2>\n"
 324 "   <ui4 dt:dt=\"ui4\">949281</ui4>\n"
 325 "   <r4 dt:dt=\"r4\">213124.0</r4>\n"
 326 "   <r8 dt:dt=\"r8\">0.412</r8>\n"
 327 "   <float dt:dt=\"float\">41221.421</float>\n"
 328 "   <uuid dt:dt=\"uuid\">333C7BC4-460F-11D0-BC04-0080C7055a83</uuid>\n"
 329 "   <binhex dt:dt=\"bin.hex\">fffca012003c</binhex>\n"
 330 "   <binbase64 dt:dt=\"bin.base64\">YmFzZTY0IHRlc3Q=</binbase64>\n"
 331 "</root>";
 332
 333 static const CHAR szBasicTransformSSXMLPart1[] =
 334 "<?xml version=\"1.0\"?>"
 335 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
 336 "<xsl:output method=\"html\"/>\n"
 337 "<xsl:template match=\"/\">"
 338 "<HTML><BODY><TABLE>"
 339 "        <xsl:apply-templates select='document(\"";
 340
 341 static const CHAR szBasicTransformSSXMLPart2[] =
 342 "\")/bottle/wine'>"
 343 "           <xsl:sort select=\"cost\"/><xsl:sort select=\"name\"/>"
 344 "        </xsl:apply-templates>"
 345 "</TABLE></BODY></HTML>"
 346 "</xsl:template>"
 347 "<xsl:template match=\"bottle\">"
 348 "   <TR><xsl:apply-templates select=\"name\" /><xsl:apply-templates select=\"cost\" /></TR>"
 349 "</xsl:template>"
 350 "<xsl:template match=\"name\">"
 351 "   <TD><xsl:apply-templates /></TD>"
 352 "</xsl:template>"
 353 "<xsl:template match=\"cost\">"
 354 "   <TD><xsl:apply-templates /></TD>"
 355 "</xsl:template>"
 356 "</xsl:stylesheet>";
 357
 358 static const CHAR szBasicTransformXML[] =
 359 "<?xml version=\"1.0\"?><bottle><wine><name>Wine</name><cost>$25.00</cost></wine></bottle>";
 360
 361 static const CHAR szBasicTransformOutput[] =
 362 "<HTML><BODY><TABLE><TD>Wine</TD><TD>$25.00</TD></TABLE></BODY></HTML>";
 363
 364 #define SZ_EMAIL_DTD \
 365 "<!DOCTYPE email ["\
 366 "   <!ELEMENT email         (recipients,from,reply-to?,subject,body,attachment*)>"\
 367 "       <!ATTLIST email attachments IDREFS #REQUIRED>"\
 368 "       <!ATTLIST email sent (yes|no) \"no\">"\
 369 "   <!ELEMENT recipients    (to+,cc*)>"\
 370 "   <!ELEMENT to            (#PCDATA)>"\
 371 "       <!ATTLIST to name CDATA #IMPLIED>"\
 372 "   <!ELEMENT cc            (#PCDATA)>"\
 373 "       <!ATTLIST cc name CDATA #IMPLIED>"\
 374 "   <!ELEMENT from          (#PCDATA)>"\
 375 "       <!ATTLIST from name CDATA #IMPLIED>"\
 376 "   <!ELEMENT reply-to      (#PCDATA)>"\
 377 "       <!ATTLIST reply-to name CDATA #IMPLIED>"\
 378 "   <!ELEMENT subject       ANY>"\
 379 "   <!ELEMENT body          ANY>"\
 380 "       <!ATTLIST body enc CDATA #FIXED \"UTF-8\">"\
 381 "   <!ELEMENT attachment    (#PCDATA)>"\
 382 "       <!ATTLIST attachment id ID #REQUIRED>"\
 383 "]>"
 384
 385 static const CHAR szEmailXML[] =
 386 "<?xml version=\"1.0\"?>"
 387 SZ_EMAIL_DTD
 388 "<email attachments=\"patch1\">"
 389 "   <recipients>"
 390 "       <to>wine-patches@winehq.org</to>"
 391 "   </recipients>"
 392 "   <from name=\"Anonymous\">user@localhost</from>"
 393 "   <subject>msxml3/tests: DTD validation (try 87)</subject>"
 394 "   <body>"
 395 "       It no longer causes spontaneous combustion..."
 396 "   </body>"
 397 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 398 "</email>";
 399
 400 static const CHAR szEmailXML_0D[] =
 401 "<?xml version=\"1.0\"?>"
 402 SZ_EMAIL_DTD
 403 "<email attachments=\"patch1\">"
 404 "   <recipients>"
 405 "       <to>wine-patches@winehq.org</to>"
 406 "   </recipients>"
 407 "   <from name=\"Anonymous\">user@localhost</from>"
 408 "   <subject>msxml3/tests: DTD validation (try 88)</subject>"
 409 "   <body>"
 410 "       <undecl />"
 411 "       XML_ELEMENT_UNDECLARED 0xC00CE00D"
 412 "   </body>"
 413 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 414 "</email>";
 415
 416 static const CHAR szEmailXML_0E[] =
 417 "<?xml version=\"1.0\"?>"
 418 SZ_EMAIL_DTD
 419 "<email attachments=\"patch1\">"
 420 "   <recipients>"
 421 "       <to>wine-patches@winehq.org</to>"
 422 "   </recipients>"
 423 "   <from name=\"Anonymous\">user@localhost</from>"
 424 "   <subject>msxml3/tests: DTD validation (try 89)</subject>"
 425 "   <body>"
 426 "       XML_ELEMENT_ID_NOT_FOUND 0xC00CE00E"
 427 "   </body>"
 428 "   <attachment id=\"patch\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 429 "</email>";
 430
 431 static const CHAR szEmailXML_11[] =
 432 "<?xml version=\"1.0\"?>"
 433 SZ_EMAIL_DTD
 434 "<email attachments=\"patch1\">"
 435 "   <recipients>"
 436 "   </recipients>"
 437 "   <from name=\"Anonymous\">user@localhost</from>"
 438 "   <subject>msxml3/tests: DTD validation (try 90)</subject>"
 439 "   <body>"
 440 "       XML_EMPTY_NOT_ALLOWED 0xC00CE011"
 441 "   </body>"
 442 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 443 "</email>";
 444
 445 static const CHAR szEmailXML_13[] =
 446 "<?xml version=\"1.0\"?>"
 447 SZ_EMAIL_DTD
 448 "<msg attachments=\"patch1\">"
 449 "   <recipients>"
 450 "       <to>wine-patches@winehq.org</to>"
 451 "   </recipients>"
 452 "   <from name=\"Anonymous\">user@localhost</from>"
 453 "   <subject>msxml3/tests: DTD validation (try 91)</subject>"
 454 "   <body>"
 455 "       XML_ROOT_NAME_MISMATCH 0xC00CE013"
 456 "   </body>"
 457 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 458 "</msg>";
 459
 460 static const CHAR szEmailXML_14[] =
 461 "<?xml version=\"1.0\"?>"
 462 SZ_EMAIL_DTD
 463 "<email attachments=\"patch1\">"
 464 "   <to>wine-patches@winehq.org</to>"
 465 "   <from name=\"Anonymous\">user@localhost</from>"
 466 "   <subject>msxml3/tests: DTD validation (try 92)</subject>"
 467 "   <body>"
 468 "       XML_INVALID_CONTENT 0xC00CE014"
 469 "   </body>"
 470 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 471 "</email>";
 472
 473 static const CHAR szEmailXML_15[] =
 474 "<?xml version=\"1.0\"?>"
 475 SZ_EMAIL_DTD
 476 "<email attachments=\"patch1\" ip=\"127.0.0.1\">"
 477 "   <recipients>"
 478 "       <to>wine-patches@winehq.org</to>"
 479 "   </recipients>"
 480 "   <from name=\"Anonymous\">user@localhost</from>"
 481 "   <subject>msxml3/tests: DTD validation (try 93)</subject>"
 482 "   <body>"
 483 "       XML_ATTRIBUTE_NOT_DEFINED 0xC00CE015"
 484 "   </body>"
 485 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 486 "</email>";
 487
 488 static const CHAR szEmailXML_16[] =
 489 "<?xml version=\"1.0\"?>"
 490 SZ_EMAIL_DTD
 491 "<email attachments=\"patch1\">"
 492 "   <recipients>"
 493 "       <to>wine-patches@winehq.org</to>"
 494 "   </recipients>"
 495 "   <from name=\"Anonymous\">user@localhost</from>"
 496 "   <subject>msxml3/tests: DTD validation (try 94)</subject>"
 497 "   <body enc=\"ASCII\">"
 498 "       XML_ATTRIBUTE_FIXED 0xC00CE016"
 499 "   </body>"
 500 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 501 "</email>";
 502
 503 static const CHAR szEmailXML_17[] =
 504 "<?xml version=\"1.0\"?>"
 505 SZ_EMAIL_DTD
 506 "<email attachments=\"patch1\" sent=\"true\">"
 507 "   <recipients>"
 508 "       <to>wine-patches@winehq.org</to>"
 509 "   </recipients>"
 510 "   <from name=\"Anonymous\">user@localhost</from>"
 511 "   <subject>msxml3/tests: DTD validation (try 95)</subject>"
 512 "   <body>"
 513 "       XML_ATTRIBUTE_VALUE 0xC00CE017"
 514 "   </body>"
 515 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 516 "</email>";
 517
 518 static const CHAR szEmailXML_18[] =
 519 "<?xml version=\"1.0\"?>"
 520 SZ_EMAIL_DTD
 521 "<email attachments=\"patch1\">"
 522 "   oops"
 523 "   <recipients>"
 524 "       <to>wine-patches@winehq.org</to>"
 525 "   </recipients>"
 526 "   <from name=\"Anonymous\">user@localhost</from>"
 527 "   <subject>msxml3/tests: DTD validation (try 96)</subject>"
 528 "   <body>"
 529 "       XML_ILLEGAL_TEXT 0xC00CE018"
 530 "   </body>"
 531 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 532 "</email>";
 533
 534 static const CHAR szEmailXML_20[] =
 535 "<?xml version=\"1.0\"?>"
 536 SZ_EMAIL_DTD
 537 "<email>"
 538 "   <recipients>"
 539 "       <to>wine-patches@winehq.org</to>"
 540 "   </recipients>"
 541 "   <from name=\"Anonymous\">user@localhost</from>"
 542 "   <subject>msxml3/tests: DTD validation (try 97)</subject>"
 543 "   <body>"
 544 "       XML_REQUIRED_ATTRIBUTE_MISSING 0xC00CE020"
 545 "   </body>"
 546 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 547 "</email>";
 548
 549 static const CHAR szDatatypeXDR[] =
 550 "<Schema xmlns='urn:schemas-microsoft-com:xml-data'\n"
 551 "        xmlns:dt='urn:schemas-microsoft-com:datatypes'>\n"
 552 "   <ElementType name='base64Data' content='textOnly' dt:type='bin.base64'/>\n"
 553 "   <ElementType name='hexData' content='textOnly' dt:type='bin.hex'/>\n"
 554 "   <ElementType name='boolData' content='textOnly' dt:type='boolean'/>\n"
 555 "   <ElementType name='charData' content='textOnly' dt:type='char'/>\n"
 556 "   <ElementType name='dateData' content='textOnly' dt:type='date'/>\n"
 557 "   <ElementType name='dateTimeData' content='textOnly' dt:type='dateTime'/>\n"
 558 "   <ElementType name='dateTimeTzData' content='textOnly' dt:type='dateTime.tz'/>\n"
 559 "   <ElementType name='entityData' content='textOnly' dt:type='entity'/>\n"
 560 "   <ElementType name='entitiesData' content='textOnly' dt:type='entities'/>\n"
 561 "   <ElementType name='fixedData' content='textOnly' dt:type='fixed.14.4'/>\n"
 562 "   <ElementType name='floatData' content='textOnly' dt:type='float'/>\n"
 563 "   <ElementType name='i1Data' content='textOnly' dt:type='i1'/>\n"
 564 "   <ElementType name='i2Data' content='textOnly' dt:type='i2'/>\n"
 565 "   <ElementType name='i4Data' content='textOnly' dt:type='i4'/>\n"
 566 "   <ElementType name='i8Data' content='textOnly' dt:type='i8'/>\n"
 567 "   <ElementType name='intData' content='textOnly' dt:type='int'/>\n"
 568 "   <ElementType name='nmtokData' content='textOnly' dt:type='nmtoken'/>\n"
 569 "   <ElementType name='nmtoksData' content='textOnly' dt:type='nmtokens'/>\n"
 570 "   <ElementType name='numData' content='textOnly' dt:type='number'/>\n"
 571 "   <ElementType name='r4Data' content='textOnly' dt:type='r4'/>\n"
 572 "   <ElementType name='r8Data' content='textOnly' dt:type='r8'/>\n"
 573 "   <ElementType name='stringData' content='textOnly' dt:type='string'/>\n"
 574 "   <ElementType name='timeData' content='textOnly' dt:type='time'/>\n"
 575 "   <ElementType name='timeTzData' content='textOnly' dt:type='time.tz'/>\n"
 576 "   <ElementType name='u1Data' content='textOnly' dt:type='ui1'/>\n"
 577 "   <ElementType name='u2Data' content='textOnly' dt:type='ui2'/>\n"
 578 "   <ElementType name='u4Data' content='textOnly' dt:type='ui4'/>\n"
 579 "   <ElementType name='u8Data' content='textOnly' dt:type='ui8'/>\n"
 580 "   <ElementType name='uriData' content='textOnly' dt:type='uri'/>\n"
 581 "   <ElementType name='uuidData' content='textOnly' dt:type='uuid'/>\n"
 582 "\n"
 583 "   <ElementType name='Name' content='textOnly' dt:type='nmtoken'/>\n"
 584 "   <ElementType name='Value' content='eltOnly' order='many'>\n"
 585 "       <element type='base64Data'/>\n"
 586 "       <element type='hexData'/>\n"
 587 "       <element type='boolData'/>\n"
 588 "       <element type='charData'/>\n"
 589 "       <element type='dateData'/>\n"
 590 "       <element type='dateTimeData'/>\n"
 591 "       <element type='dateTimeTzData'/>\n"
 592 "       <element type='entityData'/>\n"
 593 "       <element type='entitiesData'/>\n"
 594 "       <element type='fixedData'/>\n"
 595 "       <element type='floatData'/>\n"
 596 "       <element type='i1Data'/>\n"
 597 "       <element type='i2Data'/>\n"
 598 "       <element type='i4Data'/>\n"
 599 "       <element type='i8Data'/>\n"
 600 "       <element type='intData'/>\n"
 601 "       <element type='nmtokData'/>\n"
 602 "       <element type='nmtoksData'/>\n"
 603 "       <element type='numData'/>\n"
 604 "       <element type='r4Data'/>\n"
 605 "       <element type='r8Data'/>\n"
 606 "       <element type='stringData'/>\n"
 607 "       <element type='timeData'/>\n"
 608 "       <element type='timeTzData'/>\n"
 609 "       <element type='u1Data'/>\n"
 610 "       <element type='u2Data'/>\n"
 611 "       <element type='u4Data'/>\n"
 612 "       <element type='u8Data'/>\n"
 613 "       <element type='uriData'/>\n"
 614 "       <element type='uuidData'/>\n"
 615 "   </ElementType>\n"
 616 "   <ElementType name='Property' content='eltOnly' order='seq'>\n"
 617 "       <element type='Name'/>\n"
 618 "       <element type='Value'/>\n"
 619 "   </ElementType>\n"
 620 "   <ElementType name='Properties' content='eltOnly'>\n"
 621 "       <element type='Property' minOccurs='0' maxOccurs='*'/>\n"
 622 "   </ElementType>\n"
 623 "</Schema>";
 624
 625 static const CHAR szDatatypeXML[] =
 626 "<?xml version='1.0'?>\n"
 627 "<Properties xmlns='urn:x-schema:datatype-test-xdr'>\n"
 628 "   <Property>\n"
 629 "       <Name>testBase64</Name>\n"
 630 "       <Value>\n"
 631 "           <base64Data>+HugeNumber+</base64Data>\n"
 632 "       </Value>\n"
 633 "   </Property>\n"
 634 "   <Property>\n"
 635 "       <Name>testHex</Name>\n"
 636 "       <Value>\n"
 637 "           <hexData>deadbeef</hexData>\n"
 638 "       </Value>\n"
 639 "   </Property>\n"
 640 "   <Property>\n"
 641 "       <Name>testBool</Name>\n"
 642 "       <Value>\n"
 643 "           <boolData>1</boolData>\n"
 644 "       </Value>\n"
 645 "   </Property>\n"
 646 "   <Property>\n"
 647 "       <Name>testChar</Name>\n"
 648 "       <Value>\n"
 649 "           <charData>u</charData>\n"
 650 "       </Value>\n"
 651 "   </Property>\n"
 652 "   <Property>\n"
 653 "       <Name>testDate</Name>\n"
 654 "       <Value>\n"
 655 "           <dateData>1998-02-01</dateData>\n"
 656 "       </Value>\n"
 657 "   </Property>\n"
 658 "   <Property>\n"
 659 "       <Name>testDateTime</Name>\n"
 660 "       <Value>\n"
 661 "           <dateTimeData>1998-02-01T12:34:56</dateTimeData>\n"
 662 "       </Value>\n"
 663 "   </Property>\n"
 664 "   <Property>\n"
 665 "       <Name>testDateTimeTz</Name>\n"
 666 "       <Value>\n"
 667 "           <dateTimeTzData>1998-02-01T12:34:56-06:00</dateTimeTzData>\n"
 668 "       </Value>\n"
 669 "   </Property>\n"
 670 "   <Property>\n"
 671 "       <Name>testFixed</Name>\n"
 672 "       <Value>\n"
 673 "           <fixedData>3.1416</fixedData>\n"
 674 "       </Value>\n"
 675 "   </Property>\n"
 676 "   <Property>\n"
 677 "       <Name>testFloat</Name>\n"
 678 "       <Value>\n"
 679 "           <floatData>3.14159</floatData>\n"
 680 "       </Value>\n"
 681 "   </Property>\n"
 682 "   <Property>\n"
 683 "       <Name>testI1</Name>\n"
 684 "       <Value>\n"
 685 "           <i1Data>42</i1Data>\n"
 686 "       </Value>\n"
 687 "   </Property>\n"
 688 "   <Property>\n"
 689 "       <Name>testI2</Name>\n"
 690 "       <Value>\n"
 691 "           <i2Data>420</i2Data>\n"
 692 "       </Value>\n"
 693 "   </Property>\n"
 694 "   <Property>\n"
 695 "       <Name>testI4</Name>\n"
 696 "       <Value>\n"
 697 "           <i4Data>-420000000</i4Data>\n"
 698 "       </Value>\n"
 699 "   </Property>\n"
 700 "   <Property>\n"
 701 "       <Name>testI8</Name>\n"
 702 "       <Value>\n"
 703 "           <i8Data>-4200000000</i8Data>\n"
 704 "       </Value>\n"
 705 "   </Property>\n"
 706 "   <Property>\n"
 707 "       <Name>testInt</Name>\n"
 708 "       <Value>\n"
 709 "           <intData>42</intData>\n"
 710 "       </Value>\n"
 711 "   </Property>\n"
 712 "   <Property>\n"
 713 "       <Name>testNmtoken</Name>\n"
 714 "       <Value>\n"
 715 "           <nmtokData>tok1</nmtokData>\n"
 716 "       </Value>\n"
 717 "   </Property>\n"
 718 "   <Property>\n"
 719 "       <Name>testNmtokens</Name>\n"
 720 "       <Value>\n"
 721 "           <nmtoksData>tok1 tok2 tok3</nmtoksData>\n"
 722 "       </Value>\n"
 723 "   </Property>\n"
 724 "   <Property>\n"
 725 "       <Name>testNumber</Name>\n"
 726 "       <Value>\n"
 727 "           <numData>3.14159</numData>\n"
 728 "       </Value>\n"
 729 "   </Property>\n"
 730 "   <Property>\n"
 731 "       <Name>testR4</Name>\n"
 732 "       <Value>\n"
 733 "           <r4Data>3.14159265</r4Data>\n"
 734 "       </Value>\n"
 735 "   </Property>\n"
 736 "   <Property>\n"
 737 "       <Name>testR8</Name>\n"
 738 "       <Value>\n"
 739 "           <r8Data>3.14159265358979323846</r8Data>\n"
 740 "       </Value>\n"
 741 "   </Property>\n"
 742 "   <Property>\n"
 743 "       <Name>testString</Name>\n"
 744 "       <Value>\n"
 745 "           <stringData>foo bar</stringData>\n"
 746 "       </Value>\n"
 747 "   </Property>\n"
 748 "   <Property>\n"
 749 "       <Name>testTime</Name>\n"
 750 "       <Value>\n"
 751 "           <timeData>12:34:56</timeData>\n"
 752 "       </Value>\n"
 753 "   </Property>\n"
 754 "   <Property>\n"
 755 "       <Name>testTimeTz</Name>\n"
 756 "       <Value>\n"
 757 "           <timeTzData>12:34:56-06:00</timeTzData>\n"
 758 "       </Value>\n"
 759 "   </Property>\n"
 760 "   <Property>\n"
 761 "       <Name>testU1</Name>\n"
 762 "       <Value>\n"
 763 "           <u1Data>255</u1Data>\n"
 764 "       </Value>\n"
 765 "   </Property>\n"
 766 "   <Property>\n"
 767 "       <Name>testU2</Name>\n"
 768 "       <Value>\n"
 769 "           <u2Data>65535</u2Data>\n"
 770 "       </Value>\n"
 771 "   </Property>\n"
 772 "   <Property>\n"
 773 "       <Name>testU4</Name>\n"
 774 "       <Value>\n"
 775 "           <u4Data>4294967295</u4Data>\n"
 776 "       </Value>\n"
 777 "   </Property>\n"
 778 "   <Property>\n"
 779 "       <Name>testU8</Name>\n"
 780 "       <Value>\n"
 781 "           <u8Data>18446744073709551615</u8Data>\n"
 782 "       </Value>\n"
 783 "   </Property>\n"
 784 "   <Property>\n"
 785 "       <Name>testURI</Name>\n"
 786 "       <Value>\n"
 787 "           <uriData>urn:schemas-microsoft-com:datatypes</uriData>\n"
 788 "       </Value>\n"
 789 "   </Property>\n"
 790 "   <Property>\n"
 791 "       <Name>testUUID</Name>\n"
 792 "       <Value>\n"
 793 "           <uuidData>2933BF81-7B36-11D2-B20E-00C04F983E60</uuidData>\n"
 794 "       </Value>\n"
 795 "   </Property>\n"
 796 "</Properties>";
 797
 798 static const WCHAR szNonExistentFile[] = {
 799     'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
 800 };
 801 static const WCHAR szNonExistentAttribute[] = {
 802     'n','o','n','E','x','i','s','i','t','i','n','g','A','t','t','r','i','b','u','t','e',0
 803 };
 804 static const WCHAR szDocument[] = {
 805     '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
 806 };
 807
 808 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
 809 static WCHAR szdl[] = { 'd','l',0 };
 810 static const WCHAR szvr[] = { 'v','r',0 };
 811 static const WCHAR szlc[] = { 'l','c',0 };
 812 static WCHAR szbs[] = { 'b','s',0 };
 813 static const WCHAR szstr1[] = { 's','t','r','1',0 };
 814 static const WCHAR szstr2[] = { 's','t','r','2',0 };
 815 static const WCHAR szstar[] = { '*',0 };
 816 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
 817
 818 static WCHAR szComment[] = {'A',' ','C','o','m','m','e','n','t',0 };
 819 static WCHAR szCommentXML[] = {'<','!','-','-','A',' ','C','o','m','m','e','n','t','-','-','>',0 };
 820 static WCHAR szCommentNodeText[] = {'#','c','o','m','m','e','n','t',0 };
 821
 822 static WCHAR szElement[] = {'E','l','e','T','e','s','t', 0 };
 823 static WCHAR szElementXML[]  = {'<','E','l','e','T','e','s','t','/','>',0 };
 824 static WCHAR szElementXML2[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','/','>',0 };
 825 static WCHAR szElementXML3[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 826                                 'T','e','s','t','i','n','g','N','o','d','e','<','/','E','l','e','T','e','s','t','>',0 };
 827 static WCHAR szElementXML4[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 828                                 '&','a','m','p',';','x',' ',0x2103,'<','/','E','l','e','T','e','s','t','>',0 };
 829
 830 static WCHAR szAttribute[] = {'A','t','t','r',0 };
 831 static WCHAR szAttributeXML[] = {'A','t','t','r','=','"','"',0 };
 832
 833 static WCHAR szCData[] = {'[','1',']','*','2','=','3',';',' ','&','g','e','e',' ','t','h','a','t','s',
 834                           ' ','n','o','t',' ','r','i','g','h','t','!', 0};
 835 static WCHAR szCDataXML[] = {'<','!','[','C','D','A','T','A','[','[','1',']','*','2','=','3',';',' ','&',
 836                              'g','e','e',' ','t','h','a','t','s',' ','n','o','t',' ','r','i','g','h','t',
 837                              '!',']',']','>',0};
 838 static WCHAR szCDataNodeText[] = {'#','c','d','a','t','a','-','s','e','c','t','i','o','n',0 };
 839 static WCHAR szDocFragmentText[] = {'#','d','o','c','u','m','e','n','t','-','f','r','a','g','m','e','n','t',0 };
 840
 841 static WCHAR szEntityRef[] = {'e','n','t','i','t','y','r','e','f',0 };
 842 static WCHAR szEntityRefXML[] = {'&','e','n','t','i','t','y','r','e','f',';',0 };
 843 static WCHAR szStrangeChars[] = {'&','x',' ',0x2103, 0};
 844
 845 #define expect_bstr_eq_and_free(bstr, expect) { \
 846     BSTR bstrExp = alloc_str_from_narrow(expect); \
 847     ok(lstrcmpW(bstr, bstrExp) == 0, "String differs\n"); \
 848     SysFreeString(bstr); \
 849     SysFreeString(bstrExp); \
 850 }
 851
 852 #define expect_eq(expr, value, type, format) { type ret = (expr); ok((value) == ret, #expr " expected " format " got " format "\n", value, ret); }
 853
 854 #define ole_check(expr) { \
 855     HRESULT r = expr; \
 856     ok(r == S_OK, #expr " returned %x\n", r); \
 857 }
 858
 859 #define ole_expect(expr, expect) { \
 860     HRESULT r = expr; \
 861     ok(r == (expect), #expr " returned %x, expected %x\n", r, expect); \
 862 }
 863
 864 #define double_eq(x, y) ok((x)-(y)<=1e-14*(x) && (x)-(y)>=-1e-14*(x), "expected %.16g, got %.16g\n", x, y)
 865
 866 static void* _create_object(const GUID *clsid, const char *name, const IID *iid, int line)
 867 {
 868     void *obj = NULL;
 869     HRESULT hr;
 870
 871     hr = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER, iid, &obj);
 872     if (hr != S_OK)
 873         win_skip_(__FILE__,line)("failed to create %s instance: 0x%08x\n", name, hr);
 874
 875     return obj;
 876 }
 877
 878 #define _create(cls) cls, #cls
 879
 880 #define create_document(iid) _create_object(&_create(CLSID_DOMDocument), iid, __LINE__)
 881
 882 #define create_document_version(v, iid) _create_object(&_create(CLSID_DOMDocument ## v), iid, __LINE__)
 883
 884 #define create_cache(iid) _create_object(&_create(CLSID_XMLSchemaCache), iid, __LINE__)
 885
 886 #define create_cache_version(v, iid) _create_object(&_create(CLSID_XMLSchemaCache ## v), iid, __LINE__)
 887
 888 static BSTR alloc_str_from_narrow(const char *str)
 889 {
 890     int len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 891     BSTR ret = SysAllocStringLen(NULL, len - 1);  /* NUL character added automatically */
 892     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 893     return ret;
 894 }
 895
 896 static BSTR alloced_bstrs[256];
 897 static int alloced_bstrs_count;
 898
 899 static BSTR _bstr_(const char *str)
 900 {
 901     assert(alloced_bstrs_count < sizeof(alloced_bstrs)/sizeof(alloced_bstrs[0]));
 902     alloced_bstrs[alloced_bstrs_count] = alloc_str_from_narrow(str);
 903     return alloced_bstrs[alloced_bstrs_count++];
 904 }
 905
 906 static void free_bstrs(void)
 907 {
 908     int i;
 909     for (i = 0; i < alloced_bstrs_count; i++)
 910         SysFreeString(alloced_bstrs[i]);
 911     alloced_bstrs_count = 0;
 912 }
 913
 914 static VARIANT _variantbstr_(const char *str)
 915 {
 916     VARIANT v;
 917     V_VT(&v) = VT_BSTR;
 918     V_BSTR(&v) = _bstr_(str);
 919     return v;
 920 }
 921
 922 static BOOL compareIgnoreReturns(BSTR sLeft, BSTR sRight)
 923 {
 924     for (;;)
 925     {
 926         while (*sLeft == '\r' || *sLeft == '\n') sLeft++;
 927         while (*sRight == '\r' || *sRight == '\n') sRight++;
 928         if (*sLeft != *sRight) return FALSE;
 929         if (!*sLeft) return TRUE;
 930         sLeft++;
 931         sRight++;
 932     }
 933 }
 934
 935 static void get_str_for_type(DOMNodeType type, char *buf)
 936 {
 937     switch (type)
 938     {
 939         case NODE_ATTRIBUTE:
 940             strcpy(buf, "A");
 941             break;
 942         case NODE_ELEMENT:
 943             strcpy(buf, "E");
 944             break;
 945         case NODE_DOCUMENT:
 946             strcpy(buf, "D");
 947             break;
 948         case NODE_TEXT:
 949             strcpy(buf, "T");
 950             break;
 951         case NODE_COMMENT:
 952             strcpy(buf, "C");
 953             break;
 954         case NODE_PROCESSING_INSTRUCTION:
 955             strcpy(buf, "P");
 956             break;
 957         default:
 958             wsprintfA(buf, "[%d]", type);
 959     }
 960 }
 961
 962 #define test_disp(u) _test_disp(__LINE__,u)
 963 static void _test_disp(unsigned line, IUnknown *unk)
 964 {
 965     DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
 966     IDispatchEx *dispex;
 967     DWORD dwProps = 0;
 968     BSTR sName;
 969     UINT ticnt;
 970     IUnknown *pUnk;
 971     HRESULT hres;
 972
 973     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
 974     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
 975     if(FAILED(hres))
 976         return;
 977
 978     ticnt = 0xdeadbeef;
 979     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
 980     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
 981     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
 982
 983     sName = SysAllocString( szstar );
 984     hres = IDispatchEx_DeleteMemberByName(dispex, sName, fdexNameCaseSensitive);
 985     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
 986     SysFreeString( sName );
 987
 988     hres = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
 989     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
 990
 991     hres = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &dwProps);
 992     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
 993     ok(dwProps == 0, "expected 0 got %d\n", dwProps);
 994
 995     hres = IDispatchEx_GetMemberName(dispex, dispid, &sName);
 996     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
 997     if(SUCCEEDED(hres))
 998         SysFreeString(sName);
 999
1000     hres = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
1001     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
1002
1003     hres = IDispatchEx_GetNameSpaceParent(dispex, &pUnk);
1004     ok(hres == E_NOTIMPL, "expected E_NOTIMPL got %08x\n", hres);
1005     if(hres == S_OK && pUnk)
1006         IUnknown_Release(pUnk);
1007
1008     IDispatchEx_Release(dispex);
1009 }
1010
1011 static int get_node_position(IXMLDOMNode *node)
1012 {
1013     HRESULT r;
1014     int pos = 0;
1015
1016     IXMLDOMNode_AddRef(node);
1017     do
1018     {
1019         IXMLDOMNode *new_node;
1020
1021         pos++;
1022         r = IXMLDOMNode_get_previousSibling(node, &new_node);
1023         ok(SUCCEEDED(r), "get_previousSibling failed\n");
1024         IXMLDOMNode_Release(node);
1025         node = new_node;
1026     } while (r == S_OK);
1027     return pos;
1028 }
1029
1030 static void node_to_string(IXMLDOMNode *node, char *buf)
1031 {
1032     HRESULT r = S_OK;
1033     DOMNodeType type;
1034
1035     if (node == NULL)
1036     {
1037         lstrcpyA(buf, "(null)");
1038         return;
1039     }
1040
1041     IXMLDOMNode_AddRef(node);
1042     while (r == S_OK)
1043     {
1044         IXMLDOMNode *new_node;
1045
1046         ole_check(IXMLDOMNode_get_nodeType(node, &type));
1047         get_str_for_type(type, buf);
1048         buf+=strlen(buf);
1049
1050         if (type == NODE_ATTRIBUTE)
1051         {
1052             BSTR bstr;
1053             ole_check(IXMLDOMNode_get_nodeName(node, &bstr));
1054             *(buf++) = '\'';
1055             wsprintfA(buf, "%ws", bstr);
1056             buf += strlen(buf);
1057             *(buf++) = '\'';
1058             SysFreeString(bstr);
1059
1060             r = IXMLDOMNode_selectSingleNode(node, _bstr_(".."), &new_node);
1061         }
1062         else
1063         {
1064             r = IXMLDOMNode_get_parentNode(node, &new_node);
1065             wsprintf(buf, "%d", get_node_position(node));
1066             buf += strlen(buf);
1067         }
1068
1069         ok(SUCCEEDED(r), "get_parentNode failed (%08x)\n", r);
1070         IXMLDOMNode_Release(node);
1071         node = new_node;
1072         if (r == S_OK)
1073             *(buf++) = '.';
1074     }
1075
1076     *buf = 0;
1077 }
1078
1079 static char *list_to_string(IXMLDOMNodeList *list)
1080 {
1081     static char buf[4096];
1082     char *pos = buf;
1083     LONG len = 0;
1084     int i;
1085
1086     if (list == NULL)
1087     {
1088         lstrcpyA(buf, "(null)");
1089         return buf;
1090     }
1091     ole_check(IXMLDOMNodeList_get_length(list, &len));
1092     for (i = 0; i < len; i++)
1093     {
1094         IXMLDOMNode *node;
1095         if (i > 0)
1096             *(pos++) = ' ';
1097         ole_check(IXMLDOMNodeList_nextNode(list, &node));
1098         node_to_string(node, pos);
1099         pos += strlen(pos);
1100         IXMLDOMNode_Release(node);
1101     }
1102     *pos = 0;
1103     return buf;
1104 }
1105
1106 #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); }
1107 #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); }
1108
1109 static void test_domdoc( void )
1110 {
1111     HRESULT r;
1112     IXMLDOMDocument *doc;
1113     IXMLDOMParseError *error;
1114     IXMLDOMElement *element = NULL;
1115     IXMLDOMNode *node;
1116     IXMLDOMText *nodetext = NULL;
1117     IXMLDOMComment *node_comment = NULL;
1118     IXMLDOMAttribute *node_attr = NULL;
1119     IXMLDOMNode *nodeChild = NULL;
1120     IXMLDOMProcessingInstruction *nodePI = NULL;
1121     ISupportErrorInfo *support_error = NULL;
1122     VARIANT_BOOL b;
1123     VARIANT var;
1124     BSTR str;
1125     LONG code;
1126     LONG nLength = 0;
1127     WCHAR buff[100];
1128
1129     doc = create_document(&IID_IXMLDOMDocument);
1130     if (!doc) return;
1131
1132     test_disp((IUnknown*)doc);
1133
1134 if (0)
1135 {
1136     /* crashes on native */
1137     r = IXMLDOMDocument_loadXML( doc, (BSTR)0x1, NULL );
1138 }
1139
1140     /* try some stupid things */
1141     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1142     ok( r == S_FALSE, "loadXML succeeded\n");
1143
1144     b = VARIANT_TRUE;
1145     r = IXMLDOMDocument_loadXML( doc, NULL, &b );
1146     ok( r == S_FALSE, "loadXML succeeded\n");
1147     ok( b == VARIANT_FALSE, "failed to load XML string\n");
1148
1149     /* try to load a document from a nonexistent file */
1150     b = VARIANT_TRUE;
1151     str = SysAllocString( szNonExistentFile );
1152     VariantInit(&var);
1153     V_VT(&var) = VT_BSTR;
1154     V_BSTR(&var) = str;
1155
1156     r = IXMLDOMDocument_load( doc, var, &b);
1157     ok( r == S_FALSE, "loadXML succeeded\n");
1158     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1159     SysFreeString( str );
1160
1161     /* try load an empty document */
1162     b = VARIANT_TRUE;
1163     str = SysAllocString( szEmpty );
1164     r = IXMLDOMDocument_loadXML( doc, str, &b );
1165     ok( r == S_FALSE, "loadXML succeeded\n");
1166     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1167     SysFreeString( str );
1168
1169     r = IXMLDOMDocument_get_async( doc, &b );
1170     ok( r == S_OK, "get_async failed (%08x)\n", r);
1171     ok( b == VARIANT_TRUE, "Wrong default value\n");
1172
1173     /* check that there's no document element */
1174     element = NULL;
1175     r = IXMLDOMDocument_get_documentElement( doc, &element );
1176     ok( r == S_FALSE, "should be no document element\n");
1177
1178     /* try finding a node */
1179     node = NULL;
1180     str = SysAllocString( szstr1 );
1181     r = IXMLDOMDocument_selectSingleNode( doc, str, &node );
1182     ok( r == S_FALSE, "ret %08x\n", r );
1183     SysFreeString( str );
1184
1185     b = VARIANT_TRUE;
1186     str = SysAllocString( szIncomplete );
1187     r = IXMLDOMDocument_loadXML( doc, str, &b );
1188     ok( r == S_FALSE, "loadXML succeeded\n");
1189     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1190     SysFreeString( str );
1191
1192     /* check that there's no document element */
1193     element = (IXMLDOMElement*)1;
1194     r = IXMLDOMDocument_get_documentElement( doc, &element );
1195     ok( r == S_FALSE, "should be no document element\n");
1196     ok( element == NULL, "Element should be NULL\n");
1197
1198     /* test for BSTR handling, pass broken BSTR */
1199     memcpy(&buff[2], szComplete1, sizeof(szComplete1));
1200     /* just a big length */
1201     *(DWORD*)buff = 0xf0f0;
1202     b = VARIANT_FALSE;
1203     r = IXMLDOMDocument_loadXML( doc, &buff[2], &b );
1204     ok( r == S_OK, "loadXML failed\n");
1205     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1206
1207     /* loadXML ignores the encoding attribute and always expects Unicode */
1208     b = VARIANT_FALSE;
1209     str = SysAllocString( szComplete6 );
1210     r = IXMLDOMDocument_loadXML( doc, str, &b );
1211     ok( r == S_OK, "loadXML failed\n");
1212     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1213     SysFreeString( str );
1214
1215     /* try a BSTR containing a Windows-1252 document */
1216     b = VARIANT_TRUE;
1217     str = SysAllocStringByteLen( szNonUnicodeXML, sizeof(szNonUnicodeXML) - 1 );
1218     r = IXMLDOMDocument_loadXML( doc, str, &b );
1219     ok( r == S_FALSE, "loadXML succeeded\n");
1220     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1221     SysFreeString( str );
1222
1223     /* try to load something valid */
1224     b = VARIANT_FALSE;
1225     str = SysAllocString( szComplete1 );
1226     r = IXMLDOMDocument_loadXML( doc, str, &b );
1227     ok( r == S_OK, "loadXML failed\n");
1228     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1229     SysFreeString( str );
1230
1231     /* check if nodename is correct */
1232     r = IXMLDOMDocument_get_nodeName( doc, NULL );
1233     ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1234
1235     str = (BSTR)0xdeadbeef;
1236     r = IXMLDOMDocument_get_baseName( doc, &str );
1237     ok ( r == S_FALSE, "got 0x%08x\n", r);
1238     ok (str == NULL, "got %p\n", str);
1239
1240     /* content doesn't matter here */
1241     str = NULL;
1242     r = IXMLDOMDocument_get_nodeName( doc, &str );
1243     ok ( r == S_OK, "get_nodeName wrong code\n");
1244     ok ( str != NULL, "str is null\n");
1245     ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
1246     SysFreeString( str );
1247
1248     /* test put_text */
1249     r = IXMLDOMDocument_put_text( doc, _bstr_("Should Fail") );
1250     ok( r == E_FAIL, "ret %08x\n", r );
1251
1252     /* check that there's a document element */
1253     element = NULL;
1254     r = IXMLDOMDocument_get_documentElement( doc, &element );
1255     ok( r == S_OK, "should be a document element\n");
1256     if( element )
1257     {
1258         IObjectIdentity *ident;
1259         BSTR tag = NULL;
1260
1261         test_disp((IUnknown*)element);
1262
1263         r = IXMLDOMElement_QueryInterface( element, &IID_IObjectIdentity, (void**)&ident );
1264         ok( r == E_NOINTERFACE, "ret %08x\n", r);
1265
1266         r = IXMLDOMElement_get_tagName( element, NULL );
1267         ok( r == E_INVALIDARG, "ret %08x\n", r);
1268
1269         /* check if the tag is correct */
1270         r = IXMLDOMElement_get_tagName( element, &tag );
1271         ok( r == S_OK, "couldn't get tag name\n");
1272         ok( tag != NULL, "tag was null\n");
1273         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
1274         SysFreeString( tag );
1275
1276         /* figure out what happens if we try to reload the document */
1277         str = SysAllocString( szComplete2 );
1278         r = IXMLDOMDocument_loadXML( doc, str, &b );
1279         ok( r == S_OK, "loadXML failed\n");
1280         ok( b == VARIANT_TRUE, "failed to load XML string\n");
1281         SysFreeString( str );
1282
1283         /* check if the tag is still correct */
1284         tag = NULL;
1285         r = IXMLDOMElement_get_tagName( element, &tag );
1286         ok( r == S_OK, "couldn't get tag name\n");
1287         ok( tag != NULL, "tag was null\n");
1288         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
1289         SysFreeString( tag );
1290
1291         IXMLDOMElement_Release( element );
1292         element = NULL;
1293     }
1294
1295     /* as soon as we call loadXML again, the document element will disappear */
1296     b = 2;
1297     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1298     ok( r == S_FALSE, "loadXML failed\n");
1299     ok( b == 2, "variant modified\n");
1300     r = IXMLDOMDocument_get_documentElement( doc, &element );
1301     ok( r == S_FALSE, "should be no document element\n");
1302
1303     /* try to load something else simple and valid */
1304     b = VARIANT_FALSE;
1305     str = SysAllocString( szComplete3 );
1306     r = IXMLDOMDocument_loadXML( doc, str, &b );
1307     ok( r == S_OK, "loadXML failed\n");
1308     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1309     SysFreeString( str );
1310
1311     /* try something a little more complicated */
1312     b = FALSE;
1313     str = SysAllocString( szComplete4 );
1314     r = IXMLDOMDocument_loadXML( doc, str, &b );
1315     ok( r == S_OK, "loadXML failed\n");
1316     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1317     SysFreeString( str );
1318
1319     r = IXMLDOMDocument_get_parseError( doc, &error );
1320     ok( r == S_OK, "returns %08x\n", r );
1321
1322     r = IXMLDOMParseError_get_errorCode( error, &code );
1323     ok( r == S_FALSE, "returns %08x\n", r );
1324     ok( code == 0, "code %d\n", code );
1325     IXMLDOMParseError_Release( error );
1326
1327     /* test createTextNode */
1328     r = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &nodetext);
1329     ok( r == S_OK, "returns %08x\n", r );
1330     IXMLDOMText_Release(nodetext);
1331
1332     str = SysAllocString( szOpen );
1333     r = IXMLDOMDocument_createTextNode(doc, str, NULL);
1334     ok( r == E_INVALIDARG, "returns %08x\n", r );
1335     r = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
1336     ok( r == S_OK, "returns %08x\n", r );
1337     SysFreeString( str );
1338     if(nodetext)
1339     {
1340         IXMLDOMNamedNodeMap *pAttribs;
1341
1342         r = IXMLDOMText_QueryInterface(nodetext, &IID_IXMLDOMElement, (void**)&element);
1343         ok(r == E_NOINTERFACE, "ret %08x\n", r );
1344
1345         /* Text Last Child Checks */
1346         r = IXMLDOMText_get_lastChild(nodetext, NULL);
1347         ok(r == E_INVALIDARG, "ret %08x\n", r );
1348
1349         nodeChild = (IXMLDOMNode*)0x1;
1350         r = IXMLDOMText_get_lastChild(nodetext, &nodeChild);
1351         ok(r == S_FALSE, "ret %08x\n", r );
1352         ok(nodeChild == NULL, "nodeChild not NULL\n");
1353
1354         /* test get_attributes */
1355         r = IXMLDOMText_get_attributes( nodetext, NULL );
1356         ok( r == E_INVALIDARG, "get_attributes returned wrong code\n");
1357
1358         pAttribs = (IXMLDOMNamedNodeMap*)0x1;
1359         r = IXMLDOMText_get_attributes( nodetext, &pAttribs);
1360         ok(r == S_FALSE, "ret %08x\n", r );
1361         ok( pAttribs == NULL, "pAttribs not NULL\n");
1362
1363         /* test get_dataType */
1364         r = IXMLDOMText_get_dataType(nodetext, &var);
1365         ok(r == S_FALSE, "ret %08x\n", r );
1366         ok( V_VT(&var) == VT_NULL, "incorrect dataType type\n");
1367         VariantClear(&var);
1368
1369         /* test length property */
1370         r = IXMLDOMText_get_length(nodetext, NULL);
1371         ok(r == E_INVALIDARG, "ret %08x\n", r );
1372
1373         r = IXMLDOMText_get_length(nodetext, &nLength);
1374         ok(r == S_OK, "ret %08x\n", r );
1375         ok(nLength == 4, "expected 4 got %d\n", nLength);
1376
1377         /* test nodeTypeString */
1378         r = IXMLDOMText_get_nodeTypeString(nodetext, &str);
1379         ok(r == S_OK, "ret %08x\n", r );
1380         ok( !lstrcmpW( str, _bstr_("text") ), "incorrect nodeTypeString string\n");
1381         SysFreeString(str);
1382
1383         /* put data Tests */
1384         r = IXMLDOMText_put_data(nodetext, _bstr_("This &is a ; test <>\\"));
1385         ok(r == S_OK, "ret %08x\n", r );
1386
1387         /* get data Tests */
1388         r = IXMLDOMText_get_data(nodetext, &str);
1389         ok(r == S_OK, "ret %08x\n", r );
1390         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect put_data string\n");
1391         SysFreeString(str);
1392
1393         /* Confirm XML text is good */
1394         r = IXMLDOMText_get_xml(nodetext, &str);
1395         ok(r == S_OK, "ret %08x\n", r );
1396         ok( !lstrcmpW( str, _bstr_("This &amp;is a ; test &lt;&gt;\\") ), "incorrect xml string\n");
1397         SysFreeString(str);
1398
1399         /* Confirm we get the put_data Text back */
1400         r = IXMLDOMText_get_text(nodetext, &str);
1401         ok(r == S_OK, "ret %08x\n", r );
1402         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1403         SysFreeString(str);
1404
1405         /* test substringData */
1406         r = IXMLDOMText_substringData(nodetext, 0, 4, NULL);
1407         ok(r == E_INVALIDARG, "ret %08x\n", r );
1408
1409         /* test substringData - Invalid offset */
1410         str = (BSTR)&szElement;
1411         r = IXMLDOMText_substringData(nodetext, -1, 4, &str);
1412         ok(r == E_INVALIDARG, "ret %08x\n", r );
1413         ok( str == NULL, "incorrect string\n");
1414
1415         /* test substringData - Invalid offset */
1416         str = (BSTR)&szElement;
1417         r = IXMLDOMText_substringData(nodetext, 30, 0, &str);
1418         ok(r == S_FALSE, "ret %08x\n", r );
1419         ok( str == NULL, "incorrect string\n");
1420
1421         /* test substringData - Invalid size */
1422         str = (BSTR)&szElement;
1423         r = IXMLDOMText_substringData(nodetext, 0, -1, &str);
1424         ok(r == E_INVALIDARG, "ret %08x\n", r );
1425         ok( str == NULL, "incorrect string\n");
1426
1427         /* test substringData - Invalid size */
1428         str = (BSTR)&szElement;
1429         r = IXMLDOMText_substringData(nodetext, 2, 0, &str);
1430         ok(r == S_FALSE, "ret %08x\n", r );
1431         ok( str == NULL, "incorrect string\n");
1432
1433         /* test substringData - Start of string */
1434         r = IXMLDOMText_substringData(nodetext, 0, 4, &str);
1435         ok(r == S_OK, "ret %08x\n", r );
1436         ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
1437         SysFreeString(str);
1438
1439         /* test substringData - Middle of string */
1440         r = IXMLDOMText_substringData(nodetext, 13, 4, &str);
1441         ok(r == S_OK, "ret %08x\n", r );
1442         ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
1443         SysFreeString(str);
1444
1445         /* test substringData - End of string */
1446         r = IXMLDOMText_substringData(nodetext, 20, 4, &str);
1447         ok(r == S_OK, "ret %08x\n", r );
1448         ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
1449         SysFreeString(str);
1450
1451         /* test appendData */
1452         r = IXMLDOMText_appendData(nodetext, NULL);
1453         ok(r == S_OK, "ret %08x\n", r );
1454
1455         r = IXMLDOMText_appendData(nodetext, _bstr_(""));
1456         ok(r == S_OK, "ret %08x\n", r );
1457
1458         r = IXMLDOMText_appendData(nodetext, _bstr_("Append"));
1459         ok(r == S_OK, "ret %08x\n", r );
1460
1461         r = IXMLDOMText_get_text(nodetext, &str);
1462         ok(r == S_OK, "ret %08x\n", r );
1463         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1464         SysFreeString(str);
1465
1466         /* test insertData */
1467         str = SysAllocStringLen(NULL, 0);
1468         r = IXMLDOMText_insertData(nodetext, -1, str);
1469         ok(r == S_OK, "ret %08x\n", r );
1470
1471         r = IXMLDOMText_insertData(nodetext, -1, NULL);
1472         ok(r == S_OK, "ret %08x\n", r );
1473
1474         r = IXMLDOMText_insertData(nodetext, 1000, str);
1475         ok(r == S_OK, "ret %08x\n", r );
1476
1477         r = IXMLDOMText_insertData(nodetext, 1000, NULL);
1478         ok(r == S_OK, "ret %08x\n", r );
1479
1480         r = IXMLDOMText_insertData(nodetext, 0, NULL);
1481         ok(r == S_OK, "ret %08x\n", r );
1482
1483         r = IXMLDOMText_insertData(nodetext, 0, str);
1484         ok(r == S_OK, "ret %08x\n", r );
1485         SysFreeString(str);
1486
1487         r = IXMLDOMText_insertData(nodetext, -1, _bstr_("Inserting"));
1488         ok(r == E_INVALIDARG, "ret %08x\n", r );
1489
1490         r = IXMLDOMText_insertData(nodetext, 1000, _bstr_("Inserting"));
1491         ok(r == E_INVALIDARG, "ret %08x\n", r );
1492
1493         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("Begin "));
1494         ok(r == S_OK, "ret %08x\n", r );
1495
1496         r = IXMLDOMText_insertData(nodetext, 17, _bstr_("Middle"));
1497         ok(r == S_OK, "ret %08x\n", r );
1498
1499         r = IXMLDOMText_insertData(nodetext, 39, _bstr_(" End"));
1500         ok(r == S_OK, "ret %08x\n", r );
1501
1502         r = IXMLDOMText_get_text(nodetext, &str);
1503         ok(r == S_OK, "ret %08x\n", r );
1504         ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1505         SysFreeString(str);
1506
1507         /* delete data */
1508         /* invalid arguments */
1509         r = IXMLDOMText_deleteData(nodetext, -1, 1);
1510         ok(r == E_INVALIDARG, "ret %08x\n", r );
1511
1512         r = IXMLDOMText_deleteData(nodetext, 0, 0);
1513         ok(r == S_OK, "ret %08x\n", r );
1514
1515         r = IXMLDOMText_deleteData(nodetext, 0, -1);
1516         ok(r == E_INVALIDARG, "ret %08x\n", r );
1517
1518         r = IXMLDOMText_get_length(nodetext, &nLength);
1519         ok(r == S_OK, "ret %08x\n", r );
1520         ok(nLength == 43, "expected 43 got %d\n", nLength);
1521
1522         r = IXMLDOMText_deleteData(nodetext, nLength, 1);
1523         ok(r == S_OK, "ret %08x\n", r );
1524
1525         r = IXMLDOMText_deleteData(nodetext, nLength+1, 1);
1526         ok(r == E_INVALIDARG, "ret %08x\n", r );
1527
1528         /* delete from start */
1529         r = IXMLDOMText_deleteData(nodetext, 0, 5);
1530         ok(r == S_OK, "ret %08x\n", r );
1531
1532         r = IXMLDOMText_get_length(nodetext, &nLength);
1533         ok(r == S_OK, "ret %08x\n", r );
1534         ok(nLength == 38, "expected 38 got %d\n", nLength);
1535
1536         r = IXMLDOMText_get_text(nodetext, &str);
1537         ok(r == S_OK, "ret %08x\n", r );
1538         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1539         SysFreeString(str);
1540
1541         /* delete from end */
1542         r = IXMLDOMText_deleteData(nodetext, 35, 3);
1543         ok(r == S_OK, "ret %08x\n", r );
1544
1545         r = IXMLDOMText_get_length(nodetext, &nLength);
1546         ok(r == S_OK, "ret %08x\n", r );
1547         ok(nLength == 35, "expected 35 got %d\n", nLength);
1548
1549         r = IXMLDOMText_get_text(nodetext, &str);
1550         ok(r == S_OK, "ret %08x\n", r );
1551         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1552         SysFreeString(str);
1553
1554         /* delete from inside */
1555         r = IXMLDOMText_deleteData(nodetext, 1, 33);
1556         ok(r == S_OK, "ret %08x\n", r );
1557
1558         r = IXMLDOMText_get_length(nodetext, &nLength);
1559         ok(r == S_OK, "ret %08x\n", r );
1560         ok(nLength == 2, "expected 2 got %d\n", nLength);
1561
1562         r = IXMLDOMText_get_text(nodetext, &str);
1563         ok(r == S_OK, "ret %08x\n", r );
1564         ok( !lstrcmpW( str, _bstr_("") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1565         SysFreeString(str);
1566
1567         /* delete whole data ... */
1568         r = IXMLDOMText_get_length(nodetext, &nLength);
1569         ok(r == S_OK, "ret %08x\n", r );
1570
1571         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1572         ok(r == S_OK, "ret %08x\n", r );
1573         /* ... and try again with empty string */
1574         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1575         ok(r == S_OK, "ret %08x\n", r );
1576
1577         /* test put_data */
1578         V_VT(&var) = VT_BSTR;
1579         V_BSTR(&var) = SysAllocString(szstr1);
1580         r = IXMLDOMText_put_nodeValue(nodetext, var);
1581         ok(r == S_OK, "ret %08x\n", r );
1582         VariantClear(&var);
1583
1584         r = IXMLDOMText_get_text(nodetext, &str);
1585         ok(r == S_OK, "ret %08x\n", r );
1586         ok( !lstrcmpW( str, szstr1 ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1587         SysFreeString(str);
1588
1589         /* test put_data */
1590         V_VT(&var) = VT_I4;
1591         V_I4(&var) = 99;
1592         r = IXMLDOMText_put_nodeValue(nodetext, var);
1593         ok(r == S_OK, "ret %08x\n", r );
1594         VariantClear(&var);
1595
1596         r = IXMLDOMText_get_text(nodetext, &str);
1597         ok(r == S_OK, "ret %08x\n", r );
1598         ok( !lstrcmpW( str, _bstr_("99") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1599         SysFreeString(str);
1600
1601         /* ::replaceData() */
1602         V_VT(&var) = VT_BSTR;
1603         V_BSTR(&var) = SysAllocString(szstr1);
1604         r = IXMLDOMText_put_nodeValue(nodetext, var);
1605         ok(r == S_OK, "ret %08x\n", r );
1606         VariantClear(&var);
1607
1608         r = IXMLDOMText_replaceData(nodetext, 6, 0, NULL);
1609         ok(r == E_INVALIDARG, "ret %08x\n", r );
1610         r = IXMLDOMText_get_text(nodetext, &str);
1611         ok(r == S_OK, "ret %08x\n", r );
1612         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1613         SysFreeString(str);
1614
1615         r = IXMLDOMText_replaceData(nodetext, 0, 0, NULL);
1616         ok(r == S_OK, "ret %08x\n", r );
1617         r = IXMLDOMText_get_text(nodetext, &str);
1618         ok(r == S_OK, "ret %08x\n", r );
1619         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1620         SysFreeString(str);
1621
1622         /* NULL pointer means delete */
1623         r = IXMLDOMText_replaceData(nodetext, 0, 1, NULL);
1624         ok(r == S_OK, "ret %08x\n", r );
1625         r = IXMLDOMText_get_text(nodetext, &str);
1626         ok(r == S_OK, "ret %08x\n", r );
1627         ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1628         SysFreeString(str);
1629
1630         /* empty string means delete */
1631         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_(""));
1632         ok(r == S_OK, "ret %08x\n", r );
1633         r = IXMLDOMText_get_text(nodetext, &str);
1634         ok(r == S_OK, "ret %08x\n", r );
1635         ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1636         SysFreeString(str);
1637
1638         /* zero count means insert */
1639         r = IXMLDOMText_replaceData(nodetext, 0, 0, _bstr_("a"));
1640         ok(r == S_OK, "ret %08x\n", r );
1641         r = IXMLDOMText_get_text(nodetext, &str);
1642         ok(r == S_OK, "ret %08x\n", r );
1643         ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1644         SysFreeString(str);
1645
1646         r = IXMLDOMText_replaceData(nodetext, 0, 2, NULL);
1647         ok(r == S_OK, "ret %08x\n", r );
1648
1649         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("m"));
1650         ok(r == S_OK, "ret %08x\n", r );
1651         r = IXMLDOMText_get_text(nodetext, &str);
1652         ok(r == S_OK, "ret %08x\n", r );
1653         ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1654         SysFreeString(str);
1655
1656         /* nonempty string, count greater than its length */
1657         r = IXMLDOMText_replaceData(nodetext, 0, 2, _bstr_("a1.2"));
1658         ok(r == S_OK, "ret %08x\n", r );
1659         r = IXMLDOMText_get_text(nodetext, &str);
1660         ok(r == S_OK, "ret %08x\n", r );
1661         ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1662         SysFreeString(str);
1663
1664         /* nonempty string, count less than its length */
1665         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_("wine"));
1666         ok(r == S_OK, "ret %08x\n", r );
1667         r = IXMLDOMText_get_text(nodetext, &str);
1668         ok(r == S_OK, "ret %08x\n", r );
1669         ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1670         SysFreeString(str);
1671
1672         IXMLDOMText_Release( nodetext );
1673     }
1674
1675     /* test Create Comment */
1676     r = IXMLDOMDocument_createComment(doc, NULL, NULL);
1677     ok( r == E_INVALIDARG, "returns %08x\n", r );
1678     node_comment = (IXMLDOMComment*)0x1;
1679
1680     /* empty comment */
1681     r = IXMLDOMDocument_createComment(doc, _bstr_(""), &node_comment);
1682     ok( r == S_OK, "returns %08x\n", r );
1683     str = (BSTR)0x1;
1684     r = IXMLDOMComment_get_data(node_comment, &str);
1685     ok( r == S_OK, "returns %08x\n", r );
1686     ok( str && SysStringLen(str) == 0, "expected empty string data\n");
1687     IXMLDOMComment_Release(node_comment);
1688     SysFreeString(str);
1689
1690     r = IXMLDOMDocument_createComment(doc, NULL, &node_comment);
1691     ok( r == S_OK, "returns %08x\n", r );
1692     str = (BSTR)0x1;
1693     r = IXMLDOMComment_get_data(node_comment, &str);
1694     ok( r == S_OK, "returns %08x\n", r );
1695     ok( str && (SysStringLen(str) == 0), "expected empty string data\n");
1696     IXMLDOMComment_Release(node_comment);
1697     SysFreeString(str);
1698
1699     str = SysAllocString(szComment);
1700     r = IXMLDOMDocument_createComment(doc, str, &node_comment);
1701     SysFreeString(str);
1702     ok( r == S_OK, "returns %08x\n", r );
1703     if(node_comment)
1704     {
1705         /* Last Child Checks */
1706         r = IXMLDOMComment_get_lastChild(node_comment, NULL);
1707         ok(r == E_INVALIDARG, "ret %08x\n", r );
1708
1709         nodeChild = (IXMLDOMNode*)0x1;
1710         r = IXMLDOMComment_get_lastChild(node_comment, &nodeChild);
1711         ok(r == S_FALSE, "ret %08x\n", r );
1712         ok(nodeChild == NULL, "pLastChild not NULL\n");
1713
1714         /* baseName */
1715         str = (BSTR)0xdeadbeef;
1716         IXMLDOMComment_get_baseName(node_comment, &str);
1717         ok(r == S_FALSE, "ret %08x\n", r );
1718         ok(str == NULL, "Expected NULL\n");
1719
1720         IXMLDOMComment_Release( node_comment );
1721     }
1722
1723     /* test Create Attribute */
1724     str = SysAllocString(szAttribute);
1725     r = IXMLDOMDocument_createAttribute(doc, NULL, NULL);
1726     ok( r == E_INVALIDARG, "returns %08x\n", r );
1727     r = IXMLDOMDocument_createAttribute(doc, str, &node_attr);
1728     ok( r == S_OK, "returns %08x\n", r );
1729     IXMLDOMText_Release( node_attr);
1730     SysFreeString(str);
1731
1732     /* test Processing Instruction */
1733     str = SysAllocStringLen(NULL, 0);
1734     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, NULL);
1735     ok( r == E_INVALIDARG, "returns %08x\n", r );
1736     r = IXMLDOMDocument_createProcessingInstruction(doc, NULL, str, &nodePI);
1737     ok( r == E_FAIL, "returns %08x\n", r );
1738     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, &nodePI);
1739     ok( r == E_FAIL, "returns %08x\n", r );
1740     SysFreeString(str);
1741
1742     r = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"), _bstr_("version=\"1.0\""), &nodePI);
1743     ok( r == S_OK, "returns %08x\n", r );
1744     if(nodePI)
1745     {
1746         /* Last Child Checks */
1747         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, NULL);
1748         ok(r == E_INVALIDARG, "ret %08x\n", r );
1749
1750         nodeChild = (IXMLDOMNode*)0x1;
1751         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, &nodeChild);
1752         ok(r == S_FALSE, "ret %08x\n", r );
1753         ok(nodeChild == NULL, "nodeChild not NULL\n");
1754
1755         r = IXMLDOMProcessingInstruction_get_dataType(nodePI, &var);
1756         ok(r == S_FALSE, "ret %08x\n", r );
1757         ok( V_VT(&var) == VT_NULL, "incorrect dataType type\n");
1758         VariantClear(&var);
1759
1760         /* test nodeName */
1761         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1762         ok(r == S_OK, "ret %08x\n", r );
1763         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1764         SysFreeString(str);
1765
1766         /* test baseName */
1767         str = (BSTR)0x1;
1768         r = IXMLDOMProcessingInstruction_get_baseName(nodePI, &str);
1769         ok(r == S_OK, "ret %08x\n", r );
1770         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1771         SysFreeString(str);
1772
1773         /* test Target */
1774         r = IXMLDOMProcessingInstruction_get_target(nodePI, &str);
1775         ok(r == S_OK, "ret %08x\n", r );
1776         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect target string\n");
1777         SysFreeString(str);
1778
1779         /* test nodeTypeString */
1780         r = IXMLDOMProcessingInstruction_get_nodeTypeString(nodePI, &str);
1781         ok(r == S_OK, "ret %08x\n", r );
1782         ok( !lstrcmpW( str, _bstr_("processinginstruction") ), "incorrect nodeTypeString string\n");
1783         SysFreeString(str);
1784
1785         /* test get_nodeValue */
1786         r = IXMLDOMProcessingInstruction_get_nodeValue(nodePI, &var);
1787         ok(r == S_OK, "ret %08x\n", r );
1788         ok( !lstrcmpW( V_BSTR(&var), _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1789         VariantClear(&var);
1790
1791         /* test get_data */
1792         r = IXMLDOMProcessingInstruction_get_data(nodePI, &str);
1793         ok(r == S_OK, "ret %08x\n", r );
1794         ok( !lstrcmpW( str, _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1795         SysFreeString(str);
1796
1797         /* test put_data */
1798         r = IXMLDOMProcessingInstruction_put_data(nodePI, _bstr_("version=\"1.0\" encoding=\"UTF-8\""));
1799         ok(r == E_FAIL, "ret %08x\n", r );
1800
1801         /* test put_data */
1802         V_VT(&var) = VT_BSTR;
1803         V_BSTR(&var) = SysAllocString(szOpen);  /* Doesn't matter what the string is, cannot set an xml node. */
1804         r = IXMLDOMProcessingInstruction_put_nodeValue(nodePI, var);
1805         ok(r == E_FAIL, "ret %08x\n", r );
1806         VariantClear(&var);
1807
1808         /* test get nodeName */
1809         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1810         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1811         ok(r == S_OK, "ret %08x\n", r );
1812         SysFreeString(str);
1813
1814         IXMLDOMProcessingInstruction_Release(nodePI);
1815     }
1816
1817     r = IXMLDOMDocument_QueryInterface( doc, &IID_ISupportErrorInfo, (void**)&support_error );
1818     ok( r == S_OK, "ret %08x\n", r );
1819     if(r == S_OK)
1820     {
1821         r = ISupportErrorInfo_InterfaceSupportsErrorInfo( support_error, &IID_IXMLDOMDocument );
1822         todo_wine ok( r == S_OK, "ret %08x\n", r );
1823         ISupportErrorInfo_Release( support_error );
1824     }
1825
1826     r = IXMLDOMDocument_Release( doc );
1827     ok( r == 0, "document ref count incorrect\n");
1828
1829     free_bstrs();
1830 }
1831
1832 static void test_persiststreaminit(void)
1833 {
1834     IXMLDOMDocument *doc;
1835     IPersistStreamInit *streaminit;
1836     HRESULT hr;
1837
1838     doc = create_document(&IID_IXMLDOMDocument);
1839     if (!doc) return;
1840
1841     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&streaminit);
1842     ok( hr == S_OK, "failed with 0x%08x\n", hr );
1843
1844     hr = IPersistStreamInit_InitNew(streaminit);
1845     ok( hr == S_OK, "failed with 0x%08x\n", hr );
1846
1847     IXMLDOMDocument_Release(doc);
1848 }
1849
1850 static void test_domnode( void )
1851 {
1852     HRESULT r;
1853     IXMLDOMDocument *doc, *owner = NULL;
1854     IXMLDOMElement *element = NULL;
1855     IXMLDOMNamedNodeMap *map = NULL;
1856     IXMLDOMNode *node = NULL, *next = NULL;
1857     IXMLDOMNodeList *list = NULL;
1858     IXMLDOMAttribute *attr = NULL;
1859     DOMNodeType type = NODE_INVALID;
1860     VARIANT_BOOL b;
1861     BSTR str;
1862     VARIANT var;
1863     LONG count;
1864
1865     doc = create_document(&IID_IXMLDOMDocument);
1866     if (!doc) return;
1867
1868     b = FALSE;
1869     str = SysAllocString( szComplete4 );
1870     r = IXMLDOMDocument_loadXML( doc, str, &b );
1871     ok( r == S_OK, "loadXML failed\n");
1872     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1873     SysFreeString( str );
1874
1875     b = 1;
1876     r = IXMLDOMNode_hasChildNodes( doc, &b );
1877     ok( r == S_OK, "hasChildNoes bad return\n");
1878     ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1879
1880     r = IXMLDOMDocument_get_documentElement( doc, &element );
1881     ok( r == S_OK, "should be a document element\n");
1882     ok( element != NULL, "should be an element\n");
1883
1884     VariantInit(&var);
1885     ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1886
1887     r = IXMLDOMNode_get_nodeValue( doc, NULL );
1888     ok(r == E_INVALIDARG, "get_nodeValue ret %08x\n", r );
1889
1890     r = IXMLDOMNode_get_nodeValue( doc, &var );
1891     ok( r == S_FALSE, "nextNode returned wrong code\n");
1892     ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1893     ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1894
1895     if (element)
1896     {
1897         owner = NULL;
1898         r = IXMLDOMNode_get_ownerDocument( element, &owner );
1899         ok( r == S_OK, "get_ownerDocument return code\n");
1900         ok( owner != doc, "get_ownerDocument return\n");
1901         IXMLDOMDocument_Release(owner);
1902
1903         type = NODE_INVALID;
1904         r = IXMLDOMNode_get_nodeType( element, &type);
1905         ok( r == S_OK, "got %08x\n", r);
1906         ok( type == NODE_ELEMENT, "node not an element\n");
1907
1908         str = NULL;
1909         r = IXMLDOMNode_get_baseName( element, &str );
1910         ok( r == S_OK, "get_baseName returned wrong code\n");
1911         ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
1912         SysFreeString(str);
1913
1914         /* check if nodename is correct */
1915         r = IXMLDOMElement_get_nodeName( element, NULL );
1916         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1917
1918         /* content doesn't matter here */
1919         str = NULL;
1920         r = IXMLDOMElement_get_nodeName( element, &str );
1921         ok ( r == S_OK, "get_nodeName wrong code\n");
1922         ok ( str != NULL, "str is null\n");
1923         ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
1924         SysFreeString( str );
1925
1926         str = SysAllocString( szNonExistentFile );
1927         V_VT(&var) = VT_I4;
1928         V_I4(&var) = 0x1234;
1929         r = IXMLDOMElement_getAttribute( element, str, &var );
1930         ok( r == E_FAIL, "getAttribute ret %08x\n", r );
1931         ok( V_VT(&var) == VT_NULL || V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
1932         VariantClear(&var);
1933
1934         r = IXMLDOMElement_getAttributeNode( element, str, NULL);
1935         ok( r == E_FAIL, "getAttributeNode ret %08x\n", r );
1936
1937         attr = (IXMLDOMAttribute*)0xdeadbeef;
1938         r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1939         ok( r == E_FAIL, "getAttributeNode ret %08x\n", r );
1940         ok( attr == NULL, "getAttributeNode ret %p, expected NULL\n", attr );
1941         SysFreeString( str );
1942
1943         attr = (IXMLDOMAttribute*)0xdeadbeef;
1944         str = SysAllocString( szNonExistentAttribute );
1945         r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1946         ok( r == S_FALSE, "getAttributeNode ret %08x\n", r );
1947         ok( attr == NULL, "getAttributeNode ret %p, expected NULL\n", attr );
1948         SysFreeString( str );
1949
1950         str = SysAllocString( szdl );
1951         V_VT(&var) = VT_I4;
1952         V_I4(&var) = 0x1234;
1953         r = IXMLDOMElement_getAttribute( element, str, &var );
1954         ok( r == S_OK, "getAttribute ret %08x\n", r );
1955         ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
1956         ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
1957         VariantClear( &var );
1958
1959         r = IXMLDOMElement_getAttribute( element, NULL, &var );
1960         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1961
1962         r = IXMLDOMElement_getAttribute( element, str, NULL );
1963         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1964
1965         attr = NULL;
1966         r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1967         ok( r == S_OK, "GetAttributeNode ret %08x\n", r );
1968         ok( attr != NULL, "getAttributeNode returned NULL\n" );
1969         if (attr)
1970         {
1971             r = IXMLDOMAttribute_get_parentNode( attr, NULL );
1972             ok( r == E_INVALIDARG, "Expected E_INVALIDARG, ret %08x\n", r );
1973
1974             /* attribute doesn't have a parent in msxml interpretation */
1975             node = (IXMLDOMNode*)0xdeadbeef;
1976             r = IXMLDOMAttribute_get_parentNode( attr, &node );
1977             ok( r == S_FALSE, "Expected S_FALSE, ret %08x\n", r );
1978             ok( node == NULL, "Expected NULL, got %p\n", node );
1979
1980             IXMLDOMAttribute_Release(attr);
1981         }
1982
1983         SysFreeString( str );
1984
1985         r = IXMLDOMElement_get_attributes( element, &map );
1986         ok( r == S_OK, "get_attributes returned wrong code\n");
1987         ok( map != NULL, "should be attributes\n");
1988
1989         b = 1;
1990         r = IXMLDOMNode_hasChildNodes( element, &b );
1991         ok( r == S_OK, "hasChildNoes bad return\n");
1992         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
1993     }
1994     else
1995         ok( FALSE, "no element\n");
1996
1997     if (map)
1998     {
1999         ISupportErrorInfo *support_error;
2000         r = IXMLDOMNamedNodeMap_QueryInterface( map, &IID_ISupportErrorInfo, (void**)&support_error );
2001         ok( r == S_OK, "ret %08x\n", r );
2002
2003         r = ISupportErrorInfo_InterfaceSupportsErrorInfo( support_error, &IID_IXMLDOMNamedNodeMap );
2004 todo_wine
2005 {
2006         ok( r == S_OK, "ret %08x\n", r );
2007 }
2008         ISupportErrorInfo_Release( support_error );
2009
2010         str = SysAllocString( szdl );
2011         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
2012         ok( r == S_OK, "getNamedItem returned wrong code\n");
2013         ok( node != NULL, "should be attributes\n");
2014         IXMLDOMNode_Release(node);
2015         SysFreeString( str );
2016
2017         str = SysAllocString( szdl );
2018         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, NULL );
2019         ok( r == E_INVALIDARG, "getNamedItem should return E_INVALIDARG\n");
2020         SysFreeString( str );
2021
2022         /* something that isn't in szComplete4 */
2023         str = SysAllocString( szOpen );
2024         node = (IXMLDOMNode *) 1;
2025         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
2026         ok( r == S_FALSE, "getNamedItem found a node that wasn't there\n");
2027         ok( node == NULL, "getNamedItem should have returned NULL\n");
2028         SysFreeString( str );
2029
2030         /* test indexed access of attributes */
2031         r = IXMLDOMNamedNodeMap_get_length( map, NULL );
2032         ok ( r == E_INVALIDARG, "get_length should return E_INVALIDARG\n");
2033
2034         r = IXMLDOMNamedNodeMap_get_length( map, &count );
2035         ok ( r == S_OK, "get_length wrong code\n");
2036         ok ( count == 1, "get_length != 1\n");
2037
2038         node = NULL;
2039         r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
2040         ok ( r == S_FALSE, "get_item (-1) wrong code\n");
2041         ok ( node == NULL, "there is no node\n");
2042
2043         node = NULL;
2044         r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
2045         ok ( r == S_FALSE, "get_item (1) wrong code\n");
2046         ok ( node == NULL, "there is no attribute\n");
2047
2048         node = NULL;
2049         r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
2050         ok ( r == S_OK, "get_item (0) wrong code\n");
2051         ok ( node != NULL, "should be attribute\n");
2052
2053         r = IXMLDOMNode_get_nodeName( node, NULL );
2054         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
2055
2056         /* content doesn't matter here */
2057         str = NULL;
2058         r = IXMLDOMNode_get_nodeName( node, &str );
2059         ok ( r == S_OK, "get_nodeName wrong code\n");
2060         ok ( str != NULL, "str is null\n");
2061         ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
2062         SysFreeString( str );
2063
2064         /* test sequential access of attributes */
2065         node = NULL;
2066         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2067         ok ( r == S_OK, "nextNode (first time) wrong code\n");
2068         ok ( node != NULL, "nextNode, should be attribute\n");
2069
2070         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2071         ok ( r != S_OK, "nextNode (second time) wrong code\n");
2072         ok ( node == NULL, "nextNode, there is no attribute\n");
2073
2074         r = IXMLDOMNamedNodeMap_reset( map );
2075         ok ( r == S_OK, "reset should return S_OK\n");
2076
2077         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2078         ok ( r == S_OK, "nextNode (third time) wrong code\n");
2079         ok ( node != NULL, "nextNode, should be attribute\n");
2080     }
2081     else
2082         ok( FALSE, "no map\n");
2083
2084     if (node)
2085     {
2086         type = NODE_INVALID;
2087         r = IXMLDOMNode_get_nodeType( node, &type);
2088         ok( r == S_OK, "getNamedItem returned wrong code\n");
2089         ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
2090
2091         str = NULL;
2092         r = IXMLDOMNode_get_baseName( node, NULL );
2093         ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
2094
2095         str = NULL;
2096         r = IXMLDOMNode_get_baseName( node, &str );
2097         ok( r == S_OK, "get_baseName returned wrong code\n");
2098         ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
2099         SysFreeString( str );
2100
2101         r = IXMLDOMNode_get_nodeValue( node, &var );
2102         ok( r == S_OK, "returns %08x\n", r );
2103         ok( V_VT(&var) == VT_BSTR, "vt %x\n", V_VT(&var));
2104         ok( !lstrcmpW(V_BSTR(&var), szstr1), "nodeValue incorrect\n");
2105         VariantClear(&var);
2106
2107         r = IXMLDOMNode_get_childNodes( node, NULL );
2108         ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
2109
2110         r = IXMLDOMNode_get_childNodes( node, &list );
2111         ok( r == S_OK, "get_childNodes returned wrong code\n");
2112
2113         if (list)
2114         {
2115             r = IXMLDOMNodeList_nextNode( list, &next );
2116             ok( r == S_OK, "nextNode returned wrong code\n");
2117         }
2118         else
2119             ok( FALSE, "no childlist\n");
2120
2121         if (next)
2122         {
2123             b = 1;
2124             r = IXMLDOMNode_hasChildNodes( next, &b );
2125             ok( r == S_FALSE, "hasChildNoes bad return\n");
2126             ok( b == VARIANT_FALSE, "hasChildNoes wrong result\n");
2127
2128             type = NODE_INVALID;
2129             r = IXMLDOMNode_get_nodeType( next, &type);
2130             ok( r == S_OK, "getNamedItem returned wrong code\n");
2131             ok( type == NODE_TEXT, "node not text\n");
2132
2133             str = (BSTR) 1;
2134             r = IXMLDOMNode_get_baseName( next, &str );
2135             ok( r == S_FALSE, "get_baseName returned wrong code\n");
2136             ok( str == NULL, "basename was wrong\n");
2137             SysFreeString(str);
2138         }
2139         else
2140             ok( FALSE, "no next\n");
2141
2142         if (next)
2143             IXMLDOMNode_Release( next );
2144         next = NULL;
2145         if (list)
2146             IXMLDOMNodeList_Release( list );
2147         list = NULL;
2148         if (node)
2149             IXMLDOMNode_Release( node );
2150     }
2151     else
2152         ok( FALSE, "no node\n");
2153     node = NULL;
2154
2155     if (map)
2156         IXMLDOMNamedNodeMap_Release( map );
2157
2158     /* now traverse the tree from the root element */
2159     if (element)
2160     {
2161         r = IXMLDOMNode_get_childNodes( element, &list );
2162         ok( r == S_OK, "get_childNodes returned wrong code\n");
2163
2164         /* using get_item for child list doesn't advance the position */
2165         ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
2166         expect_node(node, "E2.E2.D1");
2167         IXMLDOMNode_Release(node);
2168         ole_check(IXMLDOMNodeList_nextNode(list, &node));
2169         expect_node(node, "E1.E2.D1");
2170         IXMLDOMNode_Release(node);
2171         ole_check(IXMLDOMNodeList_reset(list));
2172
2173         IXMLDOMNodeList_AddRef(list);
2174         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1");
2175         ole_check(IXMLDOMNodeList_reset(list));
2176
2177         node = (void*)0xdeadbeef;
2178         str = SysAllocString(szdl);
2179         r = IXMLDOMNode_selectSingleNode( element, str, &node );
2180         SysFreeString(str);
2181         ok( r == S_FALSE, "ret %08x\n", r );
2182         ok( node == NULL, "node %p\n", node );
2183
2184         str = SysAllocString(szbs);
2185         r = IXMLDOMNode_selectSingleNode( element, str, &node );
2186         SysFreeString(str);
2187         ok( r == S_OK, "ret %08x\n", r );
2188         r = IXMLDOMNode_Release( node );
2189         ok( r == 0, "ret %08x\n", r );
2190     }
2191     else
2192         ok( FALSE, "no element\n");
2193
2194     if (list)
2195     {
2196         r = IXMLDOMNodeList_QueryInterface(list, &IID_IDispatch, NULL);
2197         ok( r == E_INVALIDARG || r == E_POINTER, "ret %08x\n", r );
2198
2199         r = IXMLDOMNodeList_get_item(list, 0, NULL);
2200         ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
2201
2202         r = IXMLDOMNodeList_get_length(list, NULL);
2203         ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
2204
2205         r = IXMLDOMNodeList_get_length( list, &count );
2206         ok( r == S_OK, "get_length returns %08x\n", r );
2207         ok( count == 4, "get_length got %d\n", count );
2208
2209         r = IXMLDOMNodeList_nextNode(list, NULL);
2210         ok(r == E_INVALIDARG, "Exected E_INVALIDARG got %08x\n", r);
2211
2212         r = IXMLDOMNodeList_nextNode( list, &node );
2213         ok( r == S_OK, "nextNode returned wrong code\n");
2214     }
2215     else
2216         ok( FALSE, "no list\n");
2217
2218     if (node)
2219     {
2220         type = NODE_INVALID;
2221         r = IXMLDOMNode_get_nodeType( node, &type);
2222         ok( r == S_OK, "getNamedItem returned wrong code\n");
2223         ok( type == NODE_ELEMENT, "node not text\n");
2224
2225         VariantInit(&var);
2226         ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
2227         r = IXMLDOMNode_get_nodeValue( node, &var );
2228         ok( r == S_FALSE, "nextNode returned wrong code\n");
2229         ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
2230         ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
2231
2232         r = IXMLDOMNode_hasChildNodes( node, NULL );
2233         ok( r == E_INVALIDARG, "hasChildNoes bad return\n");
2234
2235         b = 1;
2236         r = IXMLDOMNode_hasChildNodes( node, &b );
2237         ok( r == S_OK, "hasChildNoes bad return\n");
2238         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
2239
2240         str = NULL;
2241         r = IXMLDOMNode_get_baseName( node, &str );
2242         ok( r == S_OK, "get_baseName returned wrong code\n");
2243         ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
2244         SysFreeString(str);
2245     }
2246     else
2247         ok( FALSE, "no node\n");
2248
2249     if (node)
2250         IXMLDOMNode_Release( node );
2251     if (list)
2252         IXMLDOMNodeList_Release( list );
2253     if (element)
2254         IXMLDOMElement_Release( element );
2255
2256     b = FALSE;
2257     str = SysAllocString( szComplete5 );
2258     r = IXMLDOMDocument_loadXML( doc, str, &b );
2259     ok( r == S_OK, "loadXML failed\n");
2260     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2261     SysFreeString( str );
2262
2263     b = 1;
2264     r = IXMLDOMNode_hasChildNodes( doc, &b );
2265     ok( r == S_OK, "hasChildNoes bad return\n");
2266     ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
2267
2268     r = IXMLDOMDocument_get_documentElement( doc, &element );
2269     ok( r == S_OK, "should be a document element\n");
2270     ok( element != NULL, "should be an element\n");
2271
2272     if (element)
2273     {
2274         static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
2275         BSTR tag = NULL;
2276
2277         /* check if the tag is correct */
2278         r = IXMLDOMElement_get_tagName( element, &tag );
2279         ok( r == S_OK, "couldn't get tag name\n");
2280         ok( tag != NULL, "tag was null\n");
2281         ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
2282         SysFreeString( tag );
2283     }
2284
2285     if (element)
2286         IXMLDOMElement_Release( element );
2287     ok(IXMLDOMDocument_Release( doc ) == 0, "document is not destroyed\n");
2288 }
2289
2290 static void test_refs(void)
2291 {
2292     HRESULT r;
2293     BSTR str;
2294     VARIANT_BOOL b;
2295     IXMLDOMDocument *doc;
2296     IXMLDOMElement *element = NULL;
2297     IXMLDOMNode *node = NULL, *node2;
2298     IXMLDOMNodeList *node_list = NULL;
2299     LONG ref;
2300     IUnknown *unk, *unk2;
2301
2302     doc = create_document(&IID_IXMLDOMDocument);
2303     if (!doc) return;
2304
2305     ref = IXMLDOMDocument_Release(doc);
2306     ok( ref == 0, "ref %d\n", ref);
2307
2308     doc = create_document(&IID_IXMLDOMDocument);
2309     if (!doc) return;
2310
2311     str = SysAllocString( szComplete4 );
2312     r = IXMLDOMDocument_loadXML( doc, str, &b );
2313     ok( r == S_OK, "loadXML failed\n");
2314     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2315     SysFreeString( str );
2316
2317     ref = IXMLDOMDocument_AddRef( doc );
2318     ok( ref == 2, "ref %d\n", ref );
2319     ref = IXMLDOMDocument_AddRef( doc );
2320     ok( ref == 3, "ref %d\n", ref );
2321     IXMLDOMDocument_Release( doc );
2322     IXMLDOMDocument_Release( doc );
2323
2324     r = IXMLDOMDocument_get_documentElement( doc, &element );
2325     ok( r == S_OK, "should be a document element\n");
2326     ok( element != NULL, "should be an element\n");
2327
2328     ref = IXMLDOMDocument_AddRef( doc );
2329     ok( ref == 2, "ref %d\n", ref );
2330     IXMLDOMDocument_Release( doc );
2331
2332     r = IXMLDOMElement_get_childNodes( element, &node_list );
2333     ok( r == S_OK, "rets %08x\n", r);
2334
2335     ref = IXMLDOMNodeList_AddRef( node_list );
2336     ok( ref == 2, "ref %d\n", ref );
2337     IXMLDOMNodeList_Release( node_list );
2338
2339     IXMLDOMNodeList_get_item( node_list, 0, &node );
2340     ok( r == S_OK, "rets %08x\n", r);
2341
2342     IXMLDOMNodeList_get_item( node_list, 0, &node2 );
2343     ok( r == S_OK, "rets %08x\n", r);
2344
2345     ref = IXMLDOMNode_AddRef( node );
2346     ok( ref == 2, "ref %d\n", ref );
2347     IXMLDOMNode_Release( node );
2348
2349     ref = IXMLDOMNode_Release( node );
2350     ok( ref == 0, "ref %d\n", ref );
2351     ref = IXMLDOMNode_Release( node2 );
2352     ok( ref == 0, "ref %d\n", ref );
2353
2354     ref = IXMLDOMNodeList_Release( node_list );
2355     ok( ref == 0, "ref %d\n", ref );
2356
2357     ok( node != node2, "node %p node2 %p\n", node, node2 );
2358
2359     ref = IXMLDOMDocument_Release( doc );
2360     ok( ref == 0, "ref %d\n", ref );
2361
2362     ref = IXMLDOMElement_AddRef( element );
2363     todo_wine {
2364     ok( ref == 3, "ref %d\n", ref );
2365     }
2366     IXMLDOMElement_Release( element );
2367
2368     /* IUnknown must be unique however we obtain it */
2369     r = IXMLDOMElement_QueryInterface( element, &IID_IUnknown, (void**)&unk );
2370     ok( r == S_OK, "rets %08x\n", r );
2371     r = IXMLDOMElement_QueryInterface( element, &IID_IXMLDOMNode, (void**)&node );
2372     ok( r == S_OK, "rets %08x\n", r );
2373     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk2 );
2374     ok( r == S_OK, "rets %08x\n", r );
2375     ok( unk == unk2, "unk %p unk2 %p\n", unk, unk2 );
2376
2377     IUnknown_Release( unk2 );
2378     IUnknown_Release( unk );
2379     IXMLDOMNode_Release( node );
2380
2381     IXMLDOMElement_Release( element );
2382
2383 }
2384
2385 static void test_create(void)
2386 {
2387     static const WCHAR szOne[] = {'1',0};
2388     static const WCHAR szOneGarbage[] = {'1','G','a','r','b','a','g','e',0};
2389     HRESULT r;
2390     VARIANT var;
2391     BSTR str, name;
2392     IXMLDOMDocument *doc;
2393     IXMLDOMElement *element;
2394     IXMLDOMComment *comment;
2395     IXMLDOMText *text;
2396     IXMLDOMCDATASection *cdata;
2397     IXMLDOMNode *root, *node, *child;
2398     IXMLDOMNamedNodeMap *attr_map;
2399     IUnknown *unk;
2400     LONG ref;
2401     LONG num;
2402
2403     doc = create_document(&IID_IXMLDOMDocument);
2404     if (!doc) return;
2405
2406     /* types not supported for creation */
2407     V_VT(&var) = VT_I1;
2408     V_I1(&var) = NODE_DOCUMENT;
2409     node = (IXMLDOMNode*)0x1;
2410     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2411     ok( r == E_INVALIDARG, "returns %08x\n", r );
2412     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2413
2414     V_VT(&var) = VT_I1;
2415     V_I1(&var) = NODE_DOCUMENT_TYPE;
2416     node = (IXMLDOMNode*)0x1;
2417     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2418     ok( r == E_INVALIDARG, "returns %08x\n", r );
2419     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2420
2421     V_VT(&var) = VT_I1;
2422     V_I1(&var) = NODE_ENTITY;
2423     node = (IXMLDOMNode*)0x1;
2424     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2425     ok( r == E_INVALIDARG, "returns %08x\n", r );
2426     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2427
2428     V_VT(&var) = VT_I1;
2429     V_I1(&var) = NODE_NOTATION;
2430     node = (IXMLDOMNode*)0x1;
2431     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2432     ok( r == E_INVALIDARG, "returns %08x\n", r );
2433     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2434
2435     /* NODE_COMMENT */
2436     V_VT(&var) = VT_I1;
2437     V_I1(&var) = NODE_COMMENT;
2438     node = NULL;
2439     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2440     ok( r == S_OK, "returns %08x\n", r );
2441     ok( node != NULL, "\n");
2442
2443     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2444     ok( r == S_OK, "returns %08x\n", r );
2445     IXMLDOMNode_Release(node);
2446
2447     str = NULL;
2448     r = IXMLDOMComment_get_data(comment, &str);
2449     ok( r == S_OK, "returns %08x\n", r );
2450     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2451     IXMLDOMComment_Release(comment);
2452     SysFreeString(str);
2453
2454     node = (IXMLDOMNode*)0x1;
2455     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2456     ok( r == S_OK, "returns %08x\n", r );
2457
2458     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2459     ok( r == S_OK, "returns %08x\n", r );
2460     IXMLDOMNode_Release(node);
2461
2462     str = NULL;
2463     r = IXMLDOMComment_get_data(comment, &str);
2464     ok( r == S_OK, "returns %08x\n", r );
2465     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2466     IXMLDOMComment_Release(comment);
2467     SysFreeString(str);
2468
2469     node = (IXMLDOMNode*)0x1;
2470     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2471     ok( r == S_OK, "returns %08x\n", r );
2472
2473     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2474     ok( r == S_OK, "returns %08x\n", r );
2475     IXMLDOMNode_Release(node);
2476
2477     str = NULL;
2478     r = IXMLDOMComment_get_data(comment, &str);
2479     ok( r == S_OK, "returns %08x\n", r );
2480     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2481     IXMLDOMComment_Release(comment);
2482     SysFreeString(str);
2483
2484     /* NODE_TEXT */
2485     V_VT(&var) = VT_I1;
2486     V_I1(&var) = NODE_TEXT;
2487     node = NULL;
2488     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2489     ok( r == S_OK, "returns %08x\n", r );
2490     ok( node != NULL, "\n");
2491
2492     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2493     ok( r == S_OK, "returns %08x\n", r );
2494     IXMLDOMNode_Release(node);
2495
2496     str = NULL;
2497     r = IXMLDOMText_get_data(text, &str);
2498     ok( r == S_OK, "returns %08x\n", r );
2499     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2500     IXMLDOMText_Release(text);
2501     SysFreeString(str);
2502
2503     node = (IXMLDOMNode*)0x1;
2504     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2505     ok( r == S_OK, "returns %08x\n", r );
2506
2507     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2508     ok( r == S_OK, "returns %08x\n", r );
2509     IXMLDOMNode_Release(node);
2510
2511     str = NULL;
2512     r = IXMLDOMText_get_data(text, &str);
2513     ok( r == S_OK, "returns %08x\n", r );
2514     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2515     IXMLDOMText_Release(text);
2516     SysFreeString(str);
2517
2518     node = (IXMLDOMNode*)0x1;
2519     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2520     ok( r == S_OK, "returns %08x\n", r );
2521
2522     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2523     ok( r == S_OK, "returns %08x\n", r );
2524     IXMLDOMNode_Release(node);
2525
2526     str = NULL;
2527     r = IXMLDOMText_get_data(text, &str);
2528     ok( r == S_OK, "returns %08x\n", r );
2529     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2530     IXMLDOMText_Release(text);
2531     SysFreeString(str);
2532
2533     /* NODE_CDATA_SECTION */
2534     V_VT(&var) = VT_I1;
2535     V_I1(&var) = NODE_CDATA_SECTION;
2536     node = NULL;
2537     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2538     ok( r == S_OK, "returns %08x\n", r );
2539     ok( node != NULL, "\n");
2540
2541     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2542     ok( r == S_OK, "returns %08x\n", r );
2543     IXMLDOMNode_Release(node);
2544
2545     str = NULL;
2546     r = IXMLDOMCDATASection_get_data(cdata, &str);
2547     ok( r == S_OK, "returns %08x\n", r );
2548     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2549     IXMLDOMCDATASection_Release(cdata);
2550     SysFreeString(str);
2551
2552     node = (IXMLDOMNode*)0x1;
2553     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2554     ok( r == S_OK, "returns %08x\n", r );
2555
2556     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2557     ok( r == S_OK, "returns %08x\n", r );
2558     IXMLDOMNode_Release(node);
2559
2560     str = NULL;
2561     r = IXMLDOMCDATASection_get_data(cdata, &str);
2562     ok( r == S_OK, "returns %08x\n", r );
2563     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2564     IXMLDOMCDATASection_Release(cdata);
2565     SysFreeString(str);
2566
2567     node = (IXMLDOMNode*)0x1;
2568     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2569     ok( r == S_OK, "returns %08x\n", r );
2570
2571     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2572     ok( r == S_OK, "returns %08x\n", r );
2573     IXMLDOMNode_Release(node);
2574
2575     str = NULL;
2576     r = IXMLDOMCDATASection_get_data(cdata, &str);
2577     ok( r == S_OK, "returns %08x\n", r );
2578     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2579     IXMLDOMCDATASection_Release(cdata);
2580     SysFreeString(str);
2581
2582     /* NODE_ATTRIBUTE */
2583     V_VT(&var) = VT_I1;
2584     V_I1(&var) = NODE_ATTRIBUTE;
2585     node = (IXMLDOMNode*)0x1;
2586     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2587     ok( r == E_FAIL, "returns %08x\n", r );
2588     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2589
2590     V_VT(&var) = VT_I1;
2591     V_I1(&var) = NODE_ATTRIBUTE;
2592     node = (IXMLDOMNode*)0x1;
2593     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2594     ok( r == E_FAIL, "returns %08x\n", r );
2595     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2596
2597     V_VT(&var) = VT_I1;
2598     V_I1(&var) = NODE_ATTRIBUTE;
2599     str = SysAllocString( szlc );
2600     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2601     ok( r == S_OK, "returns %08x\n", r );
2602     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2603     SysFreeString(str);
2604
2605     /* a name is required for attribute, try a BSTR with first null wchar */
2606     V_VT(&var) = VT_I1;
2607     V_I1(&var) = NODE_ATTRIBUTE;
2608     str = SysAllocString( szstr1 );
2609     str[0] = 0;
2610     node = (IXMLDOMNode*)0x1;
2611     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2612     ok( r == E_FAIL, "returns %08x\n", r );
2613     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2614     SysFreeString(str);
2615
2616     /* NODE_PROCESSING_INSTRUCTION */
2617     V_VT(&var) = VT_I1;
2618     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2619     node = (IXMLDOMNode*)0x1;
2620     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2621     ok( r == E_FAIL, "returns %08x\n", r );
2622     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2623
2624     V_VT(&var) = VT_I1;
2625     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2626     node = (IXMLDOMNode*)0x1;
2627     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2628     ok( r == E_FAIL, "returns %08x\n", r );
2629     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2630
2631     V_VT(&var) = VT_I1;
2632     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2633     r = IXMLDOMDocument_createNode( doc, var, _bstr_("pi"), NULL, NULL );
2634     ok( r == E_INVALIDARG, "returns %08x\n", r );
2635
2636     /* NODE_ENTITY_REFERENCE */
2637     V_VT(&var) = VT_I1;
2638     V_I1(&var) = NODE_ENTITY_REFERENCE;
2639     node = (IXMLDOMNode*)0x1;
2640     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2641     ok( r == E_FAIL, "returns %08x\n", r );
2642     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2643
2644     V_VT(&var) = VT_I1;
2645     V_I1(&var) = NODE_ENTITY_REFERENCE;
2646     node = (IXMLDOMNode*)0x1;
2647     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2648     ok( r == E_FAIL, "returns %08x\n", r );
2649     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2650
2651     /* NODE_ELEMENT */
2652     V_VT(&var) = VT_I1;
2653     V_I1(&var) = NODE_ELEMENT;
2654     node = (IXMLDOMNode*)0x1;
2655     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2656     ok( r == E_FAIL, "returns %08x\n", r );
2657     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2658
2659     V_VT(&var) = VT_I1;
2660     V_I1(&var) = NODE_ELEMENT;
2661     node = (IXMLDOMNode*)0x1;
2662     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2663     ok( r == E_FAIL, "returns %08x\n", r );
2664     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2665
2666     V_VT(&var) = VT_I1;
2667     V_I1(&var) = NODE_ELEMENT;
2668     str = SysAllocString( szlc );
2669     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2670     ok( r == S_OK, "returns %08x\n", r );
2671     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2672
2673     V_VT(&var) = VT_I1;
2674     V_I1(&var) = NODE_ELEMENT;
2675     r = IXMLDOMDocument_createNode( doc, var, str, NULL, NULL );
2676     ok( r == E_INVALIDARG, "returns %08x\n", r );
2677
2678     V_VT(&var) = VT_R4;
2679     V_R4(&var) = NODE_ELEMENT;
2680     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2681     ok( r == S_OK, "returns %08x\n", r );
2682     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2683
2684     V_VT(&var) = VT_BSTR;
2685     V_BSTR(&var) = SysAllocString( szOne );
2686     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2687     ok( r == S_OK, "returns %08x\n", r );
2688     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2689     VariantClear(&var);
2690
2691     V_VT(&var) = VT_BSTR;
2692     V_BSTR(&var) = SysAllocString( szOneGarbage );
2693     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2694     ok( r == E_INVALIDARG, "returns %08x\n", r );
2695     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2696     VariantClear(&var);
2697
2698     V_VT(&var) = VT_I4;
2699     V_I4(&var) = NODE_ELEMENT;
2700     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2701     ok( r == S_OK, "returns %08x\n", r );
2702     r = IXMLDOMDocument_appendChild( doc, node, &root );
2703     ok( r == S_OK, "returns %08x\n", r );
2704     ok( node == root, "%p %p\n", node, root );
2705
2706     ref = IXMLDOMNode_AddRef( node );
2707     ok(ref == 3, "ref %d\n", ref);
2708     IXMLDOMNode_Release( node );
2709
2710     ref = IXMLDOMNode_Release( node );
2711     ok(ref == 1, "ref %d\n", ref);
2712     SysFreeString( str );
2713
2714     V_VT(&var) = VT_I4;
2715     V_I4(&var) = NODE_ELEMENT;
2716     str = SysAllocString( szbs );
2717     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2718     ok( r == S_OK, "returns %08x\n", r );
2719     SysFreeString( str );
2720
2721     ref = IXMLDOMNode_AddRef( node );
2722     ok(ref == 2, "ref = %d\n", ref);
2723     IXMLDOMNode_Release( node );
2724
2725     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk );
2726     ok( r == S_OK, "returns %08x\n", r );
2727
2728     ref = IXMLDOMNode_AddRef( unk );
2729     ok(ref == 3, "ref = %d\n", ref);
2730     IXMLDOMNode_Release( unk );
2731
2732     V_VT(&var) = VT_EMPTY;
2733     r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
2734     ok( r == S_OK, "returns %08x\n", r );
2735     ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
2736     IXMLDOMNode_Release( child );
2737     IUnknown_Release( unk );
2738
2739
2740     V_VT(&var) = VT_NULL;
2741     V_DISPATCH(&var) = (IDispatch*)node;
2742     r = IXMLDOMNode_insertBefore( root, node, var, &child );
2743     ok( r == S_OK, "returns %08x\n", r );
2744     ok( node == child, "%p %p\n", node, child );
2745     IXMLDOMNode_Release( child );
2746
2747
2748     V_VT(&var) = VT_NULL;
2749     V_DISPATCH(&var) = (IDispatch*)node;
2750     r = IXMLDOMNode_insertBefore( root, node, var, NULL );
2751     ok( r == S_OK, "returns %08x\n", r );
2752     IXMLDOMNode_Release( node );
2753
2754     r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (void**)&element );
2755     ok( r == S_OK, "returns %08x\n", r );
2756
2757     r = IXMLDOMElement_get_attributes( element, &attr_map );
2758     ok( r == S_OK, "returns %08x\n", r );
2759     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2760     ok( r == S_OK, "returns %08x\n", r );
2761     ok( num == 0, "num %d\n", num );
2762     IXMLDOMNamedNodeMap_Release( attr_map );
2763
2764     V_VT(&var) = VT_BSTR;
2765     V_BSTR(&var) = SysAllocString( szstr1 );
2766     name = SysAllocString( szdl );
2767     r = IXMLDOMElement_setAttribute( element, name, var );
2768     ok( r == S_OK, "returns %08x\n", r );
2769     r = IXMLDOMElement_get_attributes( element, &attr_map );
2770     ok( r == S_OK, "returns %08x\n", r );
2771     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2772     ok( r == S_OK, "returns %08x\n", r );
2773     ok( num == 1, "num %d\n", num );
2774     IXMLDOMNamedNodeMap_Release( attr_map );
2775     VariantClear(&var);
2776
2777     V_VT(&var) = VT_BSTR;
2778     V_BSTR(&var) = SysAllocString( szstr2 );
2779     r = IXMLDOMElement_setAttribute( element, name, var );
2780     ok( r == S_OK, "returns %08x\n", r );
2781     r = IXMLDOMElement_get_attributes( element, &attr_map );
2782     ok( r == S_OK, "returns %08x\n", r );
2783     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2784     ok( r == S_OK, "returns %08x\n", r );
2785     ok( num == 1, "num %d\n", num );
2786     IXMLDOMNamedNodeMap_Release( attr_map );
2787     VariantClear(&var);
2788     r = IXMLDOMElement_getAttribute( element, name, &var );
2789     ok( r == S_OK, "returns %08x\n", r );
2790     ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
2791     VariantClear(&var);
2792     SysFreeString(name);
2793
2794     V_VT(&var) = VT_BSTR;
2795     V_BSTR(&var) = SysAllocString( szstr1 );
2796     name = SysAllocString( szlc );
2797     r = IXMLDOMElement_setAttribute( element, name, var );
2798     ok( r == S_OK, "returns %08x\n", r );
2799     r = IXMLDOMElement_get_attributes( element, &attr_map );
2800     ok( r == S_OK, "returns %08x\n", r );
2801     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2802     ok( r == S_OK, "returns %08x\n", r );
2803     ok( num == 2, "num %d\n", num );
2804     IXMLDOMNamedNodeMap_Release( attr_map );
2805     VariantClear(&var);
2806     SysFreeString(name);
2807
2808     V_VT(&var) = VT_I4;
2809     V_I4(&var) = 10;
2810     name = SysAllocString( szbs );
2811     r = IXMLDOMElement_setAttribute( element, name, var );
2812     ok( r == S_OK, "returns %08x\n", r );
2813     VariantClear(&var);
2814     r = IXMLDOMElement_getAttribute( element, name, &var );
2815     ok( r == S_OK, "returns %08x\n", r );
2816     ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
2817     VariantClear(&var);
2818     SysFreeString(name);
2819
2820     /* Create an Attribute */
2821     V_VT(&var) = VT_I4;
2822     V_I4(&var) = NODE_ATTRIBUTE;
2823     str = SysAllocString( szAttribute );
2824     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2825     ok( r == S_OK, "returns %08x\n", r );
2826     ok( node != NULL, "node was null\n");
2827     SysFreeString(str);
2828
2829     r = IXMLDOMNode_get_nodeTypeString(node, &str);
2830     ok( r == S_OK, "returns %08x\n", r );
2831     ok( !lstrcmpW( str, _bstr_("attribute") ), "incorrect nodeTypeString string\n");
2832     SysFreeString(str);
2833     IXMLDOMNode_Release( node );
2834
2835     IXMLDOMElement_Release( element );
2836     IXMLDOMNode_Release( root );
2837     IXMLDOMDocument_Release( doc );
2838 }
2839
2840 static void test_getElementsByTagName(void)
2841 {
2842     IXMLDOMNodeList *node_list;
2843     IXMLDOMDocument *doc;
2844     IXMLDOMElement *elem;
2845     WCHAR buff[100];
2846     VARIANT_BOOL b;
2847     HRESULT r;
2848     LONG len;
2849     BSTR str;
2850
2851     doc = create_document(&IID_IXMLDOMDocument);
2852     if (!doc) return;
2853
2854     str = SysAllocString( szComplete4 );
2855     r = IXMLDOMDocument_loadXML( doc, str, &b );
2856     ok( r == S_OK, "loadXML failed\n");
2857     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2858     SysFreeString( str );
2859
2860     str = SysAllocString( szstar );
2861
2862     /* null arguments cases */
2863     r = IXMLDOMDocument_getElementsByTagName(doc, NULL, &node_list);
2864     ok( r == E_INVALIDARG, "ret %08x\n", r );
2865     r = IXMLDOMDocument_getElementsByTagName(doc, str, NULL);
2866     ok( r == E_INVALIDARG, "ret %08x\n", r );
2867
2868     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2869     ok( r == S_OK, "ret %08x\n", r );
2870     r = IXMLDOMNodeList_get_length( node_list, &len );
2871     ok( r == S_OK, "ret %08x\n", r );
2872     ok( len == 6, "len %d\n", len );
2873
2874     test_disp((IUnknown*)node_list);
2875
2876     IXMLDOMNodeList_Release( node_list );
2877     SysFreeString( str );
2878
2879     /* broken query BSTR */
2880     memcpy(&buff[2], szstar, sizeof(szstar));
2881     /* just a big length */
2882     *(DWORD*)buff = 0xf0f0;
2883     r = IXMLDOMDocument_getElementsByTagName(doc, &buff[2], &node_list);
2884     ok( r == S_OK, "ret %08x\n", r );
2885     r = IXMLDOMNodeList_get_length( node_list, &len );
2886     ok( r == S_OK, "ret %08x\n", r );
2887     ok( len == 6, "len %d\n", len );
2888     IXMLDOMNodeList_Release( node_list );
2889
2890     str = SysAllocString( szbs );
2891     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2892     ok( r == S_OK, "ret %08x\n", r );
2893     r = IXMLDOMNodeList_get_length( node_list, &len );
2894     ok( r == S_OK, "ret %08x\n", r );
2895     ok( len == 1, "len %d\n", len );
2896     IXMLDOMNodeList_Release( node_list );
2897     SysFreeString( str );
2898
2899     str = SysAllocString( szdl );
2900     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2901     ok( r == S_OK, "ret %08x\n", r );
2902     r = IXMLDOMNodeList_get_length( node_list, &len );
2903     ok( r == S_OK, "ret %08x\n", r );
2904     ok( len == 0, "len %d\n", len );
2905     IXMLDOMNodeList_Release( node_list );
2906     SysFreeString( str );
2907
2908     str = SysAllocString( szstr1 );
2909     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2910     ok( r == S_OK, "ret %08x\n", r );
2911     r = IXMLDOMNodeList_get_length( node_list, &len );
2912     ok( r == S_OK, "ret %08x\n", r );
2913     ok( len == 0, "len %d\n", len );
2914     IXMLDOMNodeList_Release( node_list );
2915     SysFreeString( str );
2916
2917     /* test for element */
2918     r = IXMLDOMDocument_get_documentElement(doc, &elem);
2919     ok( r == S_OK, "ret %08x\n", r );
2920
2921     str = SysAllocString( szstar );
2922
2923     /* null arguments cases */
2924     r = IXMLDOMElement_getElementsByTagName(elem, NULL, &node_list);
2925     ok( r == E_INVALIDARG, "ret %08x\n", r );
2926     r = IXMLDOMElement_getElementsByTagName(elem, str, NULL);
2927     ok( r == E_INVALIDARG, "ret %08x\n", r );
2928
2929     r = IXMLDOMElement_getElementsByTagName(elem, str, &node_list);
2930     ok( r == S_OK, "ret %08x\n", r );
2931     r = IXMLDOMNodeList_get_length( node_list, &len );
2932     ok( r == S_OK, "ret %08x\n", r );
2933     todo_wine ok( len == 5, "len %d\n", len );
2934
2935     IXMLDOMNodeList_Release( node_list );
2936     SysFreeString( str );
2937
2938     /* broken query BSTR */
2939     memcpy(&buff[2], szstar, sizeof(szstar));
2940     /* just a big length */
2941     *(DWORD*)buff = 0xf0f0;
2942     r = IXMLDOMElement_getElementsByTagName(elem, &buff[2], &node_list);
2943     ok( r == S_OK, "ret %08x\n", r );
2944     r = IXMLDOMNodeList_get_length( node_list, &len );
2945     ok( r == S_OK, "ret %08x\n", r );
2946     todo_wine ok( len == 5, "len %d\n", len );
2947     IXMLDOMNodeList_Release( node_list );
2948
2949     IXMLDOMElement_Release(elem);
2950
2951     IXMLDOMDocument_Release( doc );
2952 }
2953
2954 static void test_get_text(void)
2955 {
2956     HRESULT r;
2957     BSTR str;
2958     VARIANT_BOOL b;
2959     IXMLDOMDocument *doc;
2960     IXMLDOMNode *node, *node2, *node3;
2961     IXMLDOMNode *nodeRoot;
2962     IXMLDOMNodeList *node_list;
2963     IXMLDOMNamedNodeMap *node_map;
2964     LONG len;
2965
2966     doc = create_document(&IID_IXMLDOMDocument);
2967     if (!doc) return;
2968
2969     str = SysAllocString( szComplete4 );
2970     r = IXMLDOMDocument_loadXML( doc, str, &b );
2971     ok( r == S_OK, "loadXML failed\n");
2972     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2973     SysFreeString( str );
2974
2975     str = SysAllocString( szbs );
2976     r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
2977     ok( r == S_OK, "ret %08x\n", r );
2978     SysFreeString(str);
2979
2980     /* Test to get all child node text. */
2981     r = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&nodeRoot);
2982     ok( r == S_OK, "ret %08x\n", r );
2983     if(r == S_OK)
2984     {
2985         r = IXMLDOMNode_get_text( nodeRoot, &str );
2986         ok( r == S_OK, "ret %08x\n", r );
2987         ok( compareIgnoreReturns(str, _bstr_("fn1.txt\n\n fn2.txt \n\nf1\n")), "wrong get_text: %s\n", wine_dbgstr_w(str));
2988         SysFreeString(str);
2989
2990         IXMLDOMNode_Release(nodeRoot);
2991     }
2992
2993     if (0) {
2994     /* this test crashes on win9x */
2995     r = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatch, NULL);
2996     ok( r == E_INVALIDARG, "ret %08x\n", r );
2997     }
2998
2999     r = IXMLDOMNodeList_get_length( node_list, NULL );
3000     ok( r == E_INVALIDARG, "ret %08x\n", r );
3001
3002     r = IXMLDOMNodeList_get_length( node_list, &len );
3003     ok( r == S_OK, "ret %08x\n", r );
3004     ok( len == 1, "expect 1 got %d\n", len );
3005
3006     r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
3007     ok( r == E_INVALIDARG, "ret %08x\n", r );
3008
3009     r = IXMLDOMNodeList_nextNode( node_list, NULL );
3010     ok( r == E_INVALIDARG, "ret %08x\n", r );
3011
3012     r = IXMLDOMNodeList_get_item( node_list, 0, &node );
3013     ok( r == S_OK, "ret %08x\n", r );
3014     IXMLDOMNodeList_Release( node_list );
3015
3016     /* Invalid output parameter*/
3017     r = IXMLDOMNode_get_text( node, NULL );
3018     ok( r == E_INVALIDARG, "ret %08x\n", r );
3019
3020     r = IXMLDOMNode_get_text( node, &str );
3021     ok( r == S_OK, "ret %08x\n", r );
3022     ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
3023     SysFreeString(str);
3024
3025     r = IXMLDOMNode_get_attributes( node, &node_map );
3026     ok( r == S_OK, "ret %08x\n", r );
3027
3028     str = SysAllocString( szvr );
3029     r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
3030     ok( r == S_OK, "ret %08x\n", r );
3031     SysFreeString(str);
3032
3033     r = IXMLDOMNode_get_text( node2, &str );
3034     ok( r == S_OK, "ret %08x\n", r );
3035     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3036     SysFreeString(str);
3037
3038     r = IXMLDOMNode_get_firstChild( node2, &node3 );
3039     ok( r == S_OK, "ret %08x\n", r );
3040
3041     r = IXMLDOMNode_get_text( node3, &str );
3042     ok( r == S_OK, "ret %08x\n", r );
3043     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3044     SysFreeString(str);
3045
3046
3047     IXMLDOMNode_Release( node3 );
3048     IXMLDOMNode_Release( node2 );
3049     IXMLDOMNamedNodeMap_Release( node_map );
3050     IXMLDOMNode_Release( node );
3051     IXMLDOMDocument_Release( doc );
3052 }
3053
3054 static void test_get_childNodes(void)
3055 {
3056     HRESULT r;
3057     BSTR str;
3058     VARIANT_BOOL b;
3059     IXMLDOMDocument *doc;
3060     IXMLDOMElement *element;
3061     IXMLDOMNode *node, *node2;
3062     IXMLDOMNodeList *node_list, *node_list2;
3063     LONG len;
3064
3065     doc = create_document(&IID_IXMLDOMDocument);
3066     if (!doc) return;
3067
3068     str = SysAllocString( szComplete4 );
3069     r = IXMLDOMDocument_loadXML( doc, str, &b );
3070     ok( r == S_OK, "loadXML failed\n");
3071     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3072     SysFreeString( str );
3073
3074     r = IXMLDOMDocument_get_documentElement( doc, &element );
3075     ok( r == S_OK, "ret %08x\n", r);
3076
3077     r = IXMLDOMElement_get_childNodes( element, &node_list );
3078     ok( r == S_OK, "ret %08x\n", r);
3079
3080     r = IXMLDOMNodeList_get_length( node_list, &len );
3081     ok( r == S_OK, "ret %08x\n", r);
3082     ok( len == 4, "len %d\n", len);
3083
3084     r = IXMLDOMNodeList_get_item( node_list, 2, &node );
3085     ok( r == S_OK, "ret %08x\n", r);
3086
3087     r = IXMLDOMNode_get_childNodes( node, &node_list2 );
3088     ok( r == S_OK, "ret %08x\n", r);
3089
3090     r = IXMLDOMNodeList_get_length( node_list2, &len );
3091     ok( r == S_OK, "ret %08x\n", r);
3092     ok( len == 0, "len %d\n", len);
3093
3094     r = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
3095     ok( r == S_FALSE, "ret %08x\n", r);
3096
3097     IXMLDOMNodeList_Release( node_list2 );
3098     IXMLDOMNode_Release( node );
3099     IXMLDOMNodeList_Release( node_list );
3100     IXMLDOMElement_Release( element );
3101     IXMLDOMDocument_Release( doc );
3102 }
3103
3104 static void test_get_firstChild(void)
3105 {
3106     static WCHAR xmlW[] = {'x','m','l',0};
3107     IXMLDOMDocument *doc;
3108     IXMLDOMNode *node;
3109     VARIANT_BOOL b;
3110     HRESULT r;
3111     BSTR str;
3112
3113     doc = create_document(&IID_IXMLDOMDocument);
3114     if (!doc) return;
3115
3116     str = SysAllocString( szComplete4 );
3117     r = IXMLDOMDocument_loadXML( doc, str, &b );
3118     ok( r == S_OK, "loadXML failed\n");
3119     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3120     SysFreeString( str );
3121
3122     r = IXMLDOMDocument_get_firstChild( doc, &node );
3123     ok( r == S_OK, "ret %08x\n", r);
3124
3125     r = IXMLDOMNode_get_nodeName( node, &str );
3126     ok( r == S_OK, "ret %08x\n", r);
3127
3128     ok(memcmp(str, xmlW, sizeof(xmlW)) == 0, "expected \"xml\" node name\n");
3129
3130     SysFreeString(str);
3131     IXMLDOMNode_Release( node );
3132     IXMLDOMDocument_Release( doc );
3133 }
3134
3135 static void test_get_lastChild(void)
3136 {
3137     static WCHAR lcW[] = {'l','c',0};
3138     static WCHAR foW[] = {'f','o',0};
3139     IXMLDOMDocument *doc;
3140     IXMLDOMNode *node, *child;
3141     VARIANT_BOOL b;
3142     HRESULT r;
3143     BSTR str;
3144
3145     doc = create_document(&IID_IXMLDOMDocument);
3146     if (!doc) return;
3147
3148     str = SysAllocString( szComplete4 );
3149     r = IXMLDOMDocument_loadXML( doc, str, &b );
3150     ok( r == S_OK, "loadXML failed\n");
3151     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3152     SysFreeString( str );
3153
3154     r = IXMLDOMDocument_get_lastChild( doc, &node );
3155     ok( r == S_OK, "ret %08x\n", r);
3156
3157     r = IXMLDOMNode_get_nodeName( node, &str );
3158     ok( r == S_OK, "ret %08x\n", r);
3159
3160     ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
3161     SysFreeString(str);
3162
3163     r = IXMLDOMNode_get_lastChild( node, &child );
3164     ok( r == S_OK, "ret %08x\n", r);
3165
3166     r = IXMLDOMNode_get_nodeName( child, &str );
3167     ok( r == S_OK, "ret %08x\n", r);
3168
3169     ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
3170     SysFreeString(str);
3171
3172     IXMLDOMNode_Release( child );
3173     IXMLDOMNode_Release( node );
3174     IXMLDOMDocument_Release( doc );
3175 }
3176
3177 static void test_removeChild(void)
3178 {
3179     HRESULT r;
3180     BSTR str;
3181     VARIANT_BOOL b;
3182     IXMLDOMDocument *doc;
3183     IXMLDOMElement *element, *lc_element;
3184     IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
3185     IXMLDOMNodeList *root_list, *fo_list;
3186
3187     doc = create_document(&IID_IXMLDOMDocument);
3188     if (!doc) return;
3189
3190     str = SysAllocString( szComplete4 );
3191     r = IXMLDOMDocument_loadXML( doc, str, &b );
3192     ok( r == S_OK, "loadXML failed\n");
3193     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3194     SysFreeString( str );
3195
3196     r = IXMLDOMDocument_get_documentElement( doc, &element );
3197     ok( r == S_OK, "ret %08x\n", r);
3198
3199     r = IXMLDOMElement_get_childNodes( element, &root_list );
3200     ok( r == S_OK, "ret %08x\n", r);
3201
3202     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3203     ok( r == S_OK, "ret %08x\n", r);
3204
3205     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3206     ok( r == S_OK, "ret %08x\n", r);
3207
3208     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3209     ok( r == S_OK, "ret %08x\n", r);
3210
3211     /* invalid parameter: NULL ptr */
3212     removed_node = (void*)0xdeadbeef;
3213     r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
3214     ok( r == E_INVALIDARG, "ret %08x\n", r );
3215     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3216
3217     /* ba_node is a descendant of element, but not a direct child. */
3218     removed_node = (void*)0xdeadbeef;
3219     r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
3220     ok( r == E_INVALIDARG, "ret %08x\n", r );
3221     ok( removed_node == NULL, "%p\n", removed_node );
3222
3223     r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
3224     ok( r == S_OK, "ret %08x\n", r);
3225     ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
3226
3227     /* try removing already removed child */
3228     temp_node = (void*)0xdeadbeef;
3229     r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
3230     ok( r == E_INVALIDARG, "ret %08x\n", r);
3231     ok( temp_node == NULL, "%p\n", temp_node );
3232
3233     /* the removed node has no parent anymore */
3234     r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
3235     ok( r == S_FALSE, "ret %08x\n", r);
3236     ok( temp_node == NULL, "%p\n", temp_node );
3237
3238     IXMLDOMNode_Release( removed_node );
3239     IXMLDOMNode_Release( ba_node );
3240     IXMLDOMNodeList_Release( fo_list );
3241
3242     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3243     ok( r == S_OK, "ret %08x\n", r);
3244
3245     r = IXMLDOMElement_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
3246     ok( r == S_OK, "ret %08x\n", r);
3247
3248     /* MS quirk: passing wrong interface pointer works, too */
3249     r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
3250     ok( r == S_OK, "ret %08x\n", r);
3251
3252     r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
3253     ok( r == S_FALSE, "ret %08x\n", r);
3254     ok( temp_node == NULL, "%p\n", temp_node );
3255
3256     IXMLDOMNode_Release( lc_node );
3257     IXMLDOMNodeList_Release( root_list );
3258     IXMLDOMElement_Release( element );
3259     IXMLDOMDocument_Release( doc );
3260 }
3261
3262 static void test_replaceChild(void)
3263 {
3264     HRESULT r;
3265     BSTR str;
3266     VARIANT_BOOL b;
3267     IXMLDOMDocument *doc;
3268     IXMLDOMElement *element, *ba_element;
3269     IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
3270     IXMLDOMNodeList *root_list, *fo_list;
3271     IUnknown * unk1, *unk2;
3272     LONG len;
3273
3274     doc = create_document(&IID_IXMLDOMDocument);
3275     if (!doc) return;
3276
3277     str = SysAllocString( szComplete4 );
3278     r = IXMLDOMDocument_loadXML( doc, str, &b );
3279     ok( r == S_OK, "loadXML failed\n");
3280     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3281     SysFreeString( str );
3282
3283     r = IXMLDOMDocument_get_documentElement( doc, &element );
3284     ok( r == S_OK, "ret %08x\n", r);
3285
3286     r = IXMLDOMElement_get_childNodes( element, &root_list );
3287     ok( r == S_OK, "ret %08x\n", r);
3288
3289     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3290     ok( r == S_OK, "ret %08x\n", r);
3291
3292     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3293     ok( r == S_OK, "ret %08x\n", r);
3294
3295     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3296     ok( r == S_OK, "ret %08x\n", r);
3297
3298     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3299     ok( r == S_OK, "ret %08x\n", r);
3300
3301     IXMLDOMNodeList_Release( fo_list );
3302
3303     /* invalid parameter: NULL ptr for element to remove */
3304     removed_node = (void*)0xdeadbeef;
3305     r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3306     ok( r == E_INVALIDARG, "ret %08x\n", r );
3307     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3308
3309     /* invalid parameter: NULL for replacement element. (Sic!) */
3310     removed_node = (void*)0xdeadbeef;
3311     r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3312     ok( r == E_INVALIDARG, "ret %08x\n", r );
3313     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3314
3315     /* invalid parameter: OldNode is not a child */
3316     removed_node = (void*)0xdeadbeef;
3317     r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3318     ok( r == E_INVALIDARG, "ret %08x\n", r );
3319     ok( removed_node == NULL, "%p\n", removed_node );
3320
3321     /* invalid parameter: would create loop */
3322     removed_node = (void*)0xdeadbeef;
3323     r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3324     ok( r == E_FAIL, "ret %08x\n", r );
3325     ok( removed_node == NULL, "%p\n", removed_node );
3326
3327     r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3328     ok( r == S_OK, "ret %08x\n", r );
3329
3330     r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3331     ok( r == S_OK, "ret %08x\n", r );
3332
3333     /* ba_node and temp_node refer to the same node, yet they
3334        are different interface pointers */
3335     ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3336     r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3337     ok( r == S_OK, "ret %08x\n", r );
3338     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3339     ok( r == S_OK, "ret %08x\n", r );
3340     todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3341
3342     IUnknown_Release( unk1 );
3343     IUnknown_Release( unk2 );
3344
3345     /* ba_node should have been removed from below fo_node */
3346     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3347     ok( r == S_OK, "ret %08x\n", r );
3348
3349     /* MS quirk: replaceChild also accepts elements instead of nodes */
3350     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3351     ok( r == S_OK, "ret %08x\n", r );
3352
3353     r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3354     ok( r == S_OK, "ret %08x\n", r );
3355
3356     r = IXMLDOMNodeList_get_length( fo_list, &len);
3357     ok( r == S_OK, "ret %08x\n", r );
3358     ok( len == 0, "len %d\n", len);
3359
3360     IXMLDOMNodeList_Release( fo_list );
3361
3362     IXMLDOMNode_Release(ba_node);
3363     IXMLDOMNode_Release(fo_node);
3364     IXMLDOMNode_Release(temp_node);
3365     IXMLDOMNodeList_Release( root_list );
3366     IXMLDOMElement_Release( element );
3367     IXMLDOMDocument_Release( doc );
3368 }
3369
3370 static void test_removeNamedItem(void)
3371 {
3372     IXMLDOMDocument *doc;
3373     IXMLDOMElement *element;
3374     IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3375     IXMLDOMNodeList *root_list;
3376     IXMLDOMNamedNodeMap * pr_attrs;
3377     VARIANT_BOOL b;
3378     BSTR str;
3379     LONG len;
3380     HRESULT r;
3381
3382     doc = create_document(&IID_IXMLDOMDocument);
3383     if (!doc) return;
3384
3385     str = SysAllocString( szComplete4 );
3386     r = IXMLDOMDocument_loadXML( doc, str, &b );
3387     ok( r == S_OK, "loadXML failed\n");
3388     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3389     SysFreeString( str );
3390
3391     r = IXMLDOMDocument_get_documentElement( doc, &element );
3392     ok( r == S_OK, "ret %08x\n", r);
3393
3394     r = IXMLDOMElement_get_childNodes( element, &root_list );
3395     ok( r == S_OK, "ret %08x\n", r);
3396
3397     r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3398     ok( r == S_OK, "ret %08x\n", r);
3399
3400     r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3401     ok( r == S_OK, "ret %08x\n", r);
3402
3403     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3404     ok( r == S_OK, "ret %08x\n", r);
3405     ok( len == 3, "length %d\n", len);
3406
3407     removed_node = (void*)0xdeadbeef;
3408     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3409     ok ( r == E_INVALIDARG, "ret %08x\n", r);
3410     ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3411
3412     removed_node = (void*)0xdeadbeef;
3413     str = SysAllocString(szvr);
3414     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3415     ok ( r == S_OK, "ret %08x\n", r);
3416
3417     removed_node2 = (void*)0xdeadbeef;
3418     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3419     ok ( r == S_FALSE, "ret %08x\n", r);
3420     ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3421
3422     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3423     ok( r == S_OK, "ret %08x\n", r);
3424     ok( len == 2, "length %d\n", len);
3425
3426     r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3427     ok ( r == S_OK, "ret %08x\n", r);
3428     IXMLDOMNode_Release(removed_node);
3429
3430     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3431     ok( r == S_OK, "ret %08x\n", r);
3432     ok( len == 3, "length %d\n", len);
3433
3434     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3435     ok ( r == S_OK, "ret %08x\n", r);
3436
3437     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3438     ok( r == S_OK, "ret %08x\n", r);
3439     ok( len == 2, "length %d\n", len);
3440
3441     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3442     ok ( r == S_FALSE, "ret %08x\n", r);
3443
3444     SysFreeString(str);
3445
3446     IXMLDOMNamedNodeMap_Release( pr_attrs );
3447     IXMLDOMNode_Release( pr_node );
3448     IXMLDOMNodeList_Release( root_list );
3449     IXMLDOMElement_Release( element );
3450     IXMLDOMDocument_Release( doc );
3451 }
3452
3453 static void test_XMLHTTP(void)
3454 {
3455     static const WCHAR wszBody[] = {'m','o','d','e','=','T','e','s','t',0};
3456     static const WCHAR wszPOST[] = {'P','O','S','T',0};
3457     static const WCHAR wszUrl[] = {'h','t','t','p',':','/','/',
3458         'c','r','o','s','s','o','v','e','r','.','c','o','d','e','w','e','a','v','e','r','s','.','c','o','m','/',
3459         'p','o','s','t','t','e','s','t','.','p','h','p',0};
3460     static const WCHAR xmltestW[] = {'h','t','t','p',':','/','/',
3461         'c','r','o','s','s','o','v','e','r','.','c','o','d','e','w','e','a','v','e','r','s','.','c','o','m','/',
3462         'x','m','l','t','e','s','t','.','x','m','l',0};
3463     static const WCHAR wszExpectedResponse[] = {'F','A','I','L','E','D',0};
3464     static const CHAR xmltestbodyA[] = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<a>TEST</a>\n";
3465
3466     IXMLHttpRequest *pXMLHttpRequest;
3467     BSTR bstrResponse, method, url;
3468     VARIANT dummy;
3469     VARIANT async;
3470     VARIANT varbody;
3471     LONG state, status, ref, bound;
3472     void *ptr;
3473     IDispatch *event;
3474     HRESULT hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL,
3475                                   CLSCTX_INPROC_SERVER, &IID_IXMLHttpRequest,
3476                                   (void **)&pXMLHttpRequest);
3477     if (FAILED(hr))
3478     {
3479         win_skip("IXMLHTTPRequest is not available (0x%08x)\n", hr);
3480         return;
3481     }
3482
3483     VariantInit(&dummy);
3484     V_VT(&dummy) = VT_ERROR;
3485     V_ERROR(&dummy) = DISP_E_MEMBERNOTFOUND;
3486     VariantInit(&async);
3487     V_VT(&async) = VT_BOOL;
3488     V_BOOL(&async) = VARIANT_FALSE;
3489     V_VT(&varbody) = VT_BSTR;
3490     V_BSTR(&varbody) = SysAllocString(wszBody);
3491
3492     method = SysAllocString(wszPOST);
3493     url = SysAllocString(wszUrl);
3494
3495 if (0)
3496 {
3497     /* crashes on win98 */
3498     hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, NULL);
3499     ok(hr == S_OK, "got 0x%08x\n", hr);
3500 }
3501
3502     hr = IXMLHttpRequest_abort(pXMLHttpRequest);
3503     ok(hr == S_OK, "got 0x%08x\n", hr);
3504
3505     /* send before open */
3506     hr = IXMLHttpRequest_send(pXMLHttpRequest, dummy);
3507     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3508
3509     /* initial status code */
3510     hr = IXMLHttpRequest_get_status(pXMLHttpRequest, NULL);
3511     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3512
3513     status = 0xdeadbeef;
3514     hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3515     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3516     ok(status == 0xdeadbeef, "got %d\n", status);
3517
3518     /* invalid parameters */
3519     hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, NULL, async, dummy, dummy);
3520     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3521
3522     hr = IXMLHttpRequest_open(pXMLHttpRequest, method, NULL, async, dummy, dummy);
3523     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3524
3525     hr = IXMLHttpRequest_open(pXMLHttpRequest, NULL, url, async, dummy, dummy);
3526     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3527
3528     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, NULL);
3529     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3530
3531     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), NULL);
3532     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3533
3534     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3535     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3536
3537     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3538     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3539
3540     hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, NULL);
3541     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3542
3543     state = -1;
3544     hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3545     ok(hr == S_OK, "got 0x%08x\n", hr);
3546     ok(state == READYSTATE_UNINITIALIZED, "got %d, expected READYSTATE_UNINITIALIZED\n", state);
3547
3548     event = create_dispevent();
3549     ref = IDispatch_AddRef(event);
3550     ok(ref == 2, "got %d\n", ref);
3551     IDispatch_Release(event);
3552
3553     hr = IXMLHttpRequest_put_onreadystatechange(pXMLHttpRequest, event);
3554     ok(hr == S_OK, "got 0x%08x\n", hr);
3555
3556     ref = IDispatch_AddRef(event);
3557     ok(ref == 3, "got %d\n", ref);
3558     IDispatch_Release(event);
3559
3560     g_unexpectedcall = g_expectedcall = 0;
3561
3562     hr = IXMLHttpRequest_open(pXMLHttpRequest, method, url, async, dummy, dummy);
3563     ok(hr == S_OK, "got 0x%08x\n", hr);
3564
3565     ok(g_unexpectedcall == 0, "unexpected disp event call\n");
3566     ok(g_expectedcall == 1 || broken(g_expectedcall == 0) /* win2k */, "no expected disp event call\n");
3567
3568     /* status code after ::open() */
3569     status = 0xdeadbeef;
3570     hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3571     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3572     ok(status == 0xdeadbeef, "got %d\n", status);
3573
3574     state = -1;
3575     hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3576     ok(hr == S_OK, "got 0x%08x\n", hr);
3577     ok(state == READYSTATE_LOADING, "got %d, expected READYSTATE_LOADING\n", state);
3578
3579     hr = IXMLHttpRequest_abort(pXMLHttpRequest);
3580     ok(hr == S_OK, "got 0x%08x\n", hr);
3581
3582     state = -1;
3583     hr = IXMLHttpRequest_get_readyState(pXMLHttpRequest, &state);
3584     ok(hr == S_OK, "got 0x%08x\n", hr);
3585     ok(state == READYSTATE_UNINITIALIZED || broken(state == READYSTATE_LOADING) /* win98, win2k */,
3586         "got %d, expected READYSTATE_UNINITIALIZED\n", state);
3587
3588     hr = IXMLHttpRequest_open(pXMLHttpRequest, method, url, async, dummy, dummy);
3589     ok(hr == S_OK, "got 0x%08x\n", hr);
3590
3591     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_("header1"), _bstr_("value1"));
3592     ok(hr == S_OK, "got 0x%08x\n", hr);
3593
3594     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, NULL, _bstr_("value1"));
3595     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3596
3597     hr = IXMLHttpRequest_setRequestHeader(pXMLHttpRequest, _bstr_(""), _bstr_("value1"));
3598     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3599
3600     SysFreeString(method);
3601     SysFreeString(url);
3602
3603     hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3604     if (hr == INET_E_RESOURCE_NOT_FOUND)
3605     {
3606         skip("No connection could be made with crossover.codeweavers.com\n");
3607         IXMLHttpRequest_Release(pXMLHttpRequest);
3608         return;
3609     }
3610     ok(hr == S_OK, "got 0x%08x\n", hr);
3611
3612     /* status code after ::send() */
3613     status = 0xdeadbeef;
3614     hr = IXMLHttpRequest_get_status(pXMLHttpRequest, &status);
3615     ok(hr == S_OK, "got 0x%08x\n", hr);
3616     ok(status == 200, "got %d\n", status);
3617
3618     /* another ::send() after completed request */
3619     hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3620     ok(hr == E_FAIL || broken(hr == E_UNEXPECTED) /* win9x, win2k */, "got 0x%08x\n", hr);
3621
3622     VariantClear(&varbody);
3623
3624     hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3625     ok(hr == S_OK, "got 0x%08x\n", hr);
3626     /* the server currently returns "FAILED" because the Content-Type header is
3627      * not what the server expects */
3628     if(hr == S_OK)
3629     {
3630         ok(!memcmp(bstrResponse, wszExpectedResponse, sizeof(wszExpectedResponse)),
3631             "expected %s, got %s\n", wine_dbgstr_w(wszExpectedResponse), wine_dbgstr_w(bstrResponse));
3632         SysFreeString(bstrResponse);
3633     }
3634
3635     /* GET request */
3636     url = SysAllocString(xmltestW);
3637
3638     hr = IXMLHttpRequest_open(pXMLHttpRequest, _bstr_("GET"), url, async, dummy, dummy);
3639     ok(hr == S_OK, "got 0x%08x\n", hr);
3640
3641     V_VT(&varbody) = VT_EMPTY;
3642
3643     hr = IXMLHttpRequest_send(pXMLHttpRequest, varbody);
3644     if (hr == INET_E_RESOURCE_NOT_FOUND)
3645     {
3646         skip("No connection could be made with crossover.codeweavers.com\n");
3647         IXMLHttpRequest_Release(pXMLHttpRequest);
3648         return;
3649     }
3650     ok(hr == S_OK, "got 0x%08x\n", hr);
3651
3652     hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, NULL);
3653     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3654
3655     hr = IXMLHttpRequest_get_responseText(pXMLHttpRequest, &bstrResponse);
3656     ok(hr == S_OK, "got 0x%08x\n", hr);
3657     if(hr == S_OK)
3658     {
3659         ok(!memcmp(bstrResponse, _bstr_(xmltestbodyA), sizeof(xmltestbodyA)*sizeof(WCHAR)),
3660             "expected %s, got %s\n", xmltestbodyA, wine_dbgstr_w(bstrResponse));
3661         SysFreeString(bstrResponse);
3662     }
3663
3664     hr = IXMLHttpRequest_get_responseBody(pXMLHttpRequest, NULL);
3665     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
3666
3667     V_VT(&varbody) = VT_EMPTY;
3668     hr = IXMLHttpRequest_get_responseBody(pXMLHttpRequest, &varbody);
3669     ok(hr == S_OK, "got 0x%08x\n", hr);
3670     ok(V_VT(&varbody) == (VT_ARRAY|VT_UI1), "got type %d, expected %d\n", V_VT(&varbody), VT_ARRAY|VT_UI1);
3671     ok(SafeArrayGetDim(V_ARRAY(&varbody)) == 1, "got %d, expected one dimension\n", SafeArrayGetDim(V_ARRAY(&varbody)));
3672
3673     bound = -1;
3674     hr = SafeArrayGetLBound(V_ARRAY(&varbody), 1, &bound);
3675     ok(hr == S_OK, "got 0x%08x\n", hr);
3676     ok(bound == 0, "got %d, expected zero bound\n", bound);
3677
3678     hr = SafeArrayAccessData(V_ARRAY(&varbody), &ptr);
3679     ok(hr == S_OK, "got 0x%08x\n", hr);
3680     ok(memcmp(ptr, xmltestbodyA, sizeof(xmltestbodyA)-1) == 0, "got wrond body data\n");
3681     SafeArrayUnaccessData(V_ARRAY(&varbody));
3682
3683     VariantClear(&varbody);
3684
3685     SysFreeString(url);
3686
3687     IDispatch_Release(event);
3688     IXMLHttpRequest_Release(pXMLHttpRequest);
3689     free_bstrs();
3690 }
3691
3692 static void test_IXMLDOMDocument2(void)
3693 {
3694     static const WCHAR emptyW[] = {0};
3695     IXMLDOMDocument2 *doc2, *dtddoc2;
3696     IXMLDOMDocument *doc;
3697     IXMLDOMParseError* err;
3698     IDispatchEx *dispex;
3699     VARIANT_BOOL b;
3700     VARIANT var;
3701     HRESULT r;
3702     LONG ref, res;
3703     BSTR str;
3704
3705     doc = create_document(&IID_IXMLDOMDocument);
3706     if (!doc) return;
3707
3708     dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3709     if (!dtddoc2)
3710     {
3711         IXMLDOMDocument_Release(doc);
3712         return;
3713     }
3714
3715     r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3716     ok( r == S_OK, "ret %08x\n", r );
3717     ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3718
3719     ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3720     ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3721     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3722
3723     err = NULL;
3724     ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3725     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3726     ok(err != NULL, "expected a pointer\n");
3727     if (err)
3728     {
3729         res = 0;
3730         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3731         /* XML_E_NOTWF */
3732         ok(res == E_XML_NOTWF, "got %08x\n", res);
3733         IXMLDOMParseError_Release(err);
3734     }
3735
3736     str = SysAllocString( szComplete4 );
3737     r = IXMLDOMDocument_loadXML( doc2, str, &b );
3738     ok( r == S_OK, "loadXML failed\n");
3739     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3740     SysFreeString( str );
3741
3742     ole_check(IXMLDOMDocument2_get_readyState(doc, &res));
3743     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3744
3745     err = NULL;
3746     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3747     ok(err != NULL, "expected a pointer\n");
3748     if (err)
3749     {
3750         res = 0;
3751         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3752         /* XML_E_NODTD */
3753         ok(res == E_XML_NODTD, "got %08x\n", res);
3754         IXMLDOMParseError_Release(err);
3755     }
3756
3757     r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3758     ok( r == S_OK, "ret %08x\n", r );
3759     if(r == S_OK)
3760     {
3761         IDispatchEx_Release(dispex);
3762     }
3763
3764     /* we will check if the variant got cleared */
3765     ref = IXMLDOMDocument2_AddRef(doc2);
3766     expect_eq(ref, 3, int, "%d");  /* doc, doc2, AddRef*/
3767     V_VT(&var) = VT_UNKNOWN;
3768     V_UNKNOWN(&var) = (IUnknown *)doc2;
3769
3770     /* invalid calls */
3771     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3772     expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3773     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3774
3775     /* valid call */
3776     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3777     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3778     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3779     V_VT(&var) = VT_R4;
3780
3781     /* the variant didn't get cleared*/
3782     expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3783
3784     /* setProperty tests */
3785     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3786     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3787     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3788     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3789     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3790     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3791
3792     V_VT(&var) = VT_BSTR;
3793     V_BSTR(&var) = SysAllocString(emptyW);
3794     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3795     ok(r == S_OK, "got 0x%08x\n", r);
3796     VariantClear(&var);
3797
3798     V_VT(&var) = VT_I2;
3799     V_I2(&var) = 0;
3800     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3801     ok(r == E_FAIL, "got 0x%08x\n", r);
3802
3803     /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3804     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3805     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3806     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3807
3808     IXMLDOMDocument2_Release( doc2 );
3809     IXMLDOMDocument_Release( doc );
3810
3811     /* DTD validation */
3812     ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3813     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3814     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3815     err = NULL;
3816     ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3817     ok(err != NULL, "expected pointer\n");
3818     if (err)
3819     {
3820         res = 0;
3821         ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3822         ok(res == 0, "got %08x\n", res);
3823         IXMLDOMParseError_Release(err);
3824     }
3825
3826     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3827     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3828     err = NULL;
3829     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3830     ok(err != NULL, "expected pointer\n");
3831     if (err)
3832     {
3833         res = 0;
3834         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3835         /* XML_ELEMENT_UNDECLARED */
3836         todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
3837         IXMLDOMParseError_Release(err);
3838     }
3839
3840     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
3841     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3842     err = NULL;
3843     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3844     ok(err != NULL, "expected pointer\n");
3845     if (err)
3846     {
3847         res = 0;
3848         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3849         /* XML_ELEMENT_ID_NOT_FOUND */
3850         todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
3851         IXMLDOMParseError_Release(err);
3852     }
3853
3854     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
3855     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3856     err = NULL;
3857     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3858     ok(err != NULL, "expected pointer\n");
3859     if (err)
3860     {
3861         res = 0;
3862         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3863         /* XML_EMPTY_NOT_ALLOWED */
3864         todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
3865         IXMLDOMParseError_Release(err);
3866     }
3867
3868     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
3869     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3870     err = NULL;
3871     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3872     ok(err != NULL, "expected pointer\n");
3873     if (err)
3874     {
3875         res = 0;
3876         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3877         /* XML_ROOT_NAME_MISMATCH */
3878         todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
3879         IXMLDOMParseError_Release(err);
3880     }
3881
3882     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
3883     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3884     err = NULL;
3885     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3886     ok(err != NULL, "expected pointer\n");
3887     if (err)
3888     {
3889         res = 0;
3890         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3891         /* XML_INVALID_CONTENT */
3892         todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
3893         IXMLDOMParseError_Release(err);
3894     }
3895
3896     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
3897     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3898     err = NULL;
3899     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3900     ok(err != NULL, "expected pointer\n");
3901     if (err)
3902     {
3903         res = 0;
3904         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3905         /* XML_ATTRIBUTE_NOT_DEFINED */
3906         todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
3907         IXMLDOMParseError_Release(err);
3908     }
3909
3910     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
3911     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3912     err = NULL;
3913     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3914     ok(err != NULL, "expected pointer\n");
3915     if (err)
3916     {
3917         res = 0;
3918         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3919         /* XML_ATTRIBUTE_FIXED */
3920         todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
3921         IXMLDOMParseError_Release(err);
3922     }
3923
3924     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
3925     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3926     err = NULL;
3927     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3928     ok(err != NULL, "expected pointer\n");
3929     if (err)
3930     {
3931         res = 0;
3932         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3933         /* XML_ATTRIBUTE_VALUE */
3934         todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
3935         IXMLDOMParseError_Release(err);
3936     }
3937
3938     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
3939     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3940     err = NULL;
3941     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3942     ok(err != NULL, "expected pointer\n");
3943     if (err)
3944     {
3945         res = 0;
3946         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3947         /* XML_ILLEGAL_TEXT */
3948         todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
3949         IXMLDOMParseError_Release(err);
3950     }
3951
3952     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
3953     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3954     err = NULL;
3955     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3956     ok(err != NULL, "expected pointer\n");
3957     if (err)
3958     {
3959         res = 0;
3960         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3961         /* XML_REQUIRED_ATTRIBUTE_MISSING */
3962         todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
3963         IXMLDOMParseError_Release(err);
3964     }
3965
3966     IXMLDOMDocument2_Release( dtddoc2 );
3967     free_bstrs();
3968 }
3969
3970 #define helper_ole_check(expr) { \
3971     HRESULT r = expr; \
3972     ok_(__FILE__, line)(r == S_OK, "=> %i: " #expr " returned %08x\n", __LINE__, r); \
3973 }
3974
3975 #define helper_expect_list_and_release(list, expstr) { \
3976     char *str = list_to_string(list); \
3977     ok_(__FILE__, line)(strcmp(str, expstr)==0, "=> %i: Invalid node list: %s, expected %s\n", __LINE__, str, expstr); \
3978     if (list) IXMLDOMNodeList_Release(list); \
3979 }
3980
3981 #define helper_expect_bstr_and_release(bstr, str) { \
3982     ok_(__FILE__, line)(lstrcmpW(bstr, _bstr_(str)) == 0, \
3983        "=> %i: got %s\n", __LINE__, wine_dbgstr_w(bstr)); \
3984     SysFreeString(bstr); \
3985 }
3986
3987 #define check_ws_ignored(doc, str) _check_ws_ignored(__LINE__, doc, str)
3988 static inline void _check_ws_ignored(int line, IXMLDOMDocument2* doc, char const* str)
3989 {
3990     IXMLDOMNode *node1, *node2;
3991     IXMLDOMNodeList *list;
3992     BSTR bstr;
3993
3994     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
3995     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
3996     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
3997     helper_ole_check(IXMLDOMNodeList_reset(list));
3998     helper_expect_list_and_release(list, "E1.E4.E1.E2.D1 E2.E4.E1.E2.D1");
3999
4000     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4001     helper_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");
4002     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4003     if (str)
4004     {
4005         helper_expect_bstr_and_release(bstr, str);
4006     }
4007     else
4008     {
4009         helper_expect_bstr_and_release(bstr, "This is a description.");
4010     }
4011     IXMLDOMNode_Release(node1);
4012
4013     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4014     helper_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");
4015     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4016     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4017     IXMLDOMNode_Release(node2);
4018 }
4019
4020 #define check_ws_preserved(doc, str) _check_ws_preserved(__LINE__, doc, str)
4021 static inline void _check_ws_preserved(int line, IXMLDOMDocument2* doc, char const* str)
4022 {
4023     IXMLDOMNode *node1, *node2;
4024     IXMLDOMNodeList *list;
4025     BSTR bstr;
4026
4027     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4028     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4029     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4030     helper_ole_check(IXMLDOMNodeList_reset(list));
4031     helper_expect_list_and_release(list, "E2.E8.E2.E2.D1 E4.E8.E2.E2.D1");
4032
4033     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4034     helper_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");
4035     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4036     if (str)
4037     {
4038         helper_expect_bstr_and_release(bstr, str);
4039     }
4040     else
4041     {
4042         helper_expect_bstr_and_release(bstr, "\n                This is a description. \n            ");
4043     }
4044     IXMLDOMNode_Release(node1);
4045
4046     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4047     helper_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");
4048     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4049     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4050     IXMLDOMNode_Release(node2);
4051 }
4052
4053 static void test_whitespace(void)
4054 {
4055     VARIANT_BOOL b;
4056     IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
4057
4058     doc1 = create_document(&IID_IXMLDOMDocument2);
4059     doc2 = create_document(&IID_IXMLDOMDocument2);
4060     if (!doc1 || !doc2) return;
4061
4062     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
4063     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4064     ok(b == VARIANT_FALSE, "expected false\n");
4065     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4066     ok(b == VARIANT_TRUE, "expected true\n");
4067
4068     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4069     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4070     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4071     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4072
4073     /* switch to XPath */
4074     ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4075     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4076
4077     check_ws_ignored(doc1, NULL);
4078     check_ws_preserved(doc2, NULL);
4079
4080     /* new instances copy the property */
4081     ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
4082     ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
4083
4084     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4085     ok(b == VARIANT_FALSE, "expected false\n");
4086     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4087     ok(b == VARIANT_TRUE, "expected true\n");
4088
4089     check_ws_ignored(doc3, NULL);
4090     check_ws_preserved(doc4, NULL);
4091
4092     /* setting after loading xml affects trimming of leading/trailing ws only */
4093     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
4094     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
4095
4096     /* the trailing "\n            " isn't there, because it was ws-only node */
4097     check_ws_ignored(doc1, "\n                This is a description. ");
4098     check_ws_preserved(doc2, "This is a description.");
4099
4100     /* it takes effect on reload */
4101     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4102     ok(b == VARIANT_TRUE, "expected true\n");
4103     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4104     ok(b == VARIANT_FALSE, "expected false\n");
4105
4106     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4107     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4108     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4109     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4110
4111     check_ws_preserved(doc1, NULL);
4112     check_ws_ignored(doc2, NULL);
4113
4114     /* other instances follow suit */
4115     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4116     ok(b == VARIANT_TRUE, "expected true\n");
4117     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4118     ok(b == VARIANT_FALSE, "expected false\n");
4119
4120     check_ws_preserved(doc3, NULL);
4121     check_ws_ignored(doc4, NULL);
4122
4123     IXMLDOMDocument_Release(doc1);
4124     IXMLDOMDocument_Release(doc2);
4125     IXMLDOMDocument_Release(doc3);
4126     IXMLDOMDocument_Release(doc4);
4127     free_bstrs();
4128 }
4129
4130 static void test_XPath(void)
4131 {
4132     VARIANT var;
4133     VARIANT_BOOL b;
4134     IXMLDOMDocument2 *doc;
4135     IXMLDOMNode *rootNode;
4136     IXMLDOMNode *elem1Node;
4137     IXMLDOMNode *node;
4138     IXMLDOMNodeList *list;
4139
4140     doc = create_document(&IID_IXMLDOMDocument2);
4141     if (!doc) return;
4142
4143     ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b));
4144     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4145
4146     /* switch to XPath */
4147     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4148
4149     /* some simple queries*/
4150     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list));
4151     ole_check(IXMLDOMNodeList_get_item(list, 0, &rootNode));
4152     ole_check(IXMLDOMNodeList_reset(list));
4153     expect_list_and_release(list, "E2.D1");
4154     if (rootNode == NULL)
4155         return;
4156
4157     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//c"), &list));
4158     expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
4159
4160     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//c[@type]"), &list));
4161     expect_list_and_release(list, "E3.E2.E2.D1");
4162
4163     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
4164     /* using get_item for query results advances the position */
4165     ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
4166     expect_node(node, "E2.E2.D1");
4167     IXMLDOMNode_Release(node);
4168     ole_check(IXMLDOMNodeList_nextNode(list, &node));
4169     expect_node(node, "E4.E2.D1");
4170     IXMLDOMNode_Release(node);
4171     ole_check(IXMLDOMNodeList_reset(list));
4172     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
4173
4174     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
4175     expect_list_and_release(list, "E2.D1");
4176
4177     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
4178     ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
4179     ole_check(IXMLDOMNodeList_reset(list));
4180     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
4181
4182     /* select an attribute */
4183     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
4184     expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
4185
4186     /* would evaluate to a number */
4187     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
4188     /* would evaluate to a boolean */
4189     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
4190     /* would evaluate to a string */
4191     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
4192
4193     /* no results */
4194     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
4195     expect_list_and_release(list, "");
4196     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("elem//c"), &list));
4197     expect_list_and_release(list, "");
4198     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("//elem[4]"), &list));
4199     expect_list_and_release(list, "");
4200     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//elem[0]"), &list));
4201     expect_list_and_release(list, "");
4202
4203     /* foo undeclared in document node */
4204     ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4205     /* undeclared in <root> node */
4206     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
4207     /* undeclared in <elem> node */
4208     ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
4209     /* but this trick can be used */
4210     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
4211     expect_list_and_release(list, "E3.E4.E2.D1");
4212
4213     /* it has to be declared in SelectionNamespaces */
4214     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4215         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
4216
4217     /* now the namespace can be used */
4218     ole_check(IXMLDOMDocument_selectNodes(doc, _bstr_("root//test:c"), &list));
4219     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4220     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
4221     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4222     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
4223     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4224     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
4225     expect_list_and_release(list, "E5.E1.E4.E1.E2.D1 E6.E2.E4.E1.E2.D1");
4226
4227     /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
4228     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4229         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
4230
4231     ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4232
4233     VariantInit(&var);
4234     ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
4235     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
4236     if (V_VT(&var) == VT_BSTR)
4237         expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
4238
4239     /* extra attributes - same thing*/
4240     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4241         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
4242     ole_expect(IXMLDOMDocument_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4243
4244     IXMLDOMNode_Release(rootNode);
4245     IXMLDOMNode_Release(elem1Node);
4246     IXMLDOMDocument_Release(doc);
4247     free_bstrs();
4248 }
4249
4250 static void test_cloneNode(void )
4251 {
4252     IXMLDOMDocument *doc;
4253     VARIANT_BOOL b;
4254     IXMLDOMNodeList *pList;
4255     IXMLDOMNamedNodeMap *mapAttr;
4256     LONG nLength = 0, nLength1 = 0;
4257     LONG nAttrCnt = 0, nAttrCnt1 = 0;
4258     IXMLDOMNode *node;
4259     IXMLDOMNode *node_clone;
4260     IXMLDOMNode *node_first;
4261     HRESULT r;
4262     BSTR str;
4263     static const WCHAR szSearch[] = { 'l', 'c', '/', 'p', 'r', 0 };
4264
4265     doc = create_document(&IID_IXMLDOMDocument);
4266     if (!doc) return;
4267
4268     str = SysAllocString( szComplete4 );
4269     ole_check(IXMLDOMDocument_loadXML(doc, str, &b));
4270     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4271     SysFreeString(str);
4272
4273     if(!b)
4274         return;
4275
4276     str = SysAllocString( szSearch);
4277     r = IXMLDOMNode_selectSingleNode(doc, str, &node);
4278     ok( r == S_OK, "ret %08x\n", r );
4279     ok( node != NULL, "node %p\n", node );
4280     SysFreeString(str);
4281
4282     if(!node)
4283     {
4284         IXMLDOMDocument_Release(doc);
4285         return;
4286     }
4287
4288     /* Check invalid parameter */
4289     r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
4290     ok( r == E_INVALIDARG, "ret %08x\n", r );
4291
4292     /* All Children */
4293     r = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
4294     ok( r == S_OK, "ret %08x\n", r );
4295     ok( node_clone != NULL, "node %p\n", node );
4296
4297     if(!node_clone)
4298     {
4299         IXMLDOMDocument_Release(doc);
4300         IXMLDOMNode_Release(node);
4301         return;
4302     }
4303
4304     r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4305     ok( r == S_OK, "ret %08x\n", r );
4306     if(r == S_OK)
4307     {
4308         IXMLDOMDocument *doc2;
4309
4310         r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4311         ok( r == S_OK, "ret %08x\n", r );
4312         if(r == S_OK)
4313             IXMLDOMDocument_Release(doc2);
4314
4315         IXMLDOMNode_Release(node_first);
4316     }
4317
4318     r = IXMLDOMNode_get_childNodes(node, &pList);
4319     ok( r == S_OK, "ret %08x\n", r );
4320     if (pList)
4321         {
4322                 IXMLDOMNodeList_get_length(pList, &nLength);
4323                 IXMLDOMNodeList_Release(pList);
4324         }
4325
4326     r = IXMLDOMNode_get_attributes(node, &mapAttr);
4327     ok( r == S_OK, "ret %08x\n", r );
4328     if(mapAttr)
4329     {
4330         IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt);
4331         IXMLDOMNamedNodeMap_Release(mapAttr);
4332     }
4333
4334     r = IXMLDOMNode_get_childNodes(node_clone, &pList);
4335     ok( r == S_OK, "ret %08x\n", r );
4336     if (pList)
4337         {
4338                 IXMLDOMNodeList_get_length(pList, &nLength1);
4339                 IXMLDOMNodeList_Release(pList);
4340         }
4341
4342     r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4343     ok( r == S_OK, "ret %08x\n", r );
4344     if(mapAttr)
4345     {
4346         IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
4347         IXMLDOMNamedNodeMap_Release(mapAttr);
4348     }
4349
4350     ok(nLength == nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
4351     ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
4352     IXMLDOMNode_Release(node_clone);
4353
4354     /* No Children */
4355     r = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4356     ok( r == S_OK, "ret %08x\n", r );
4357     ok( node_clone != NULL, "node %p\n", node );
4358
4359     if(!node_clone)
4360     {
4361         IXMLDOMDocument_Release(doc);
4362         IXMLDOMNode_Release(node);
4363         return;
4364     }
4365
4366     r = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4367     ok( r == S_FALSE, "ret %08x\n", r );
4368     if(r == S_OK)
4369     {
4370         IXMLDOMDocument *doc2;
4371
4372         r = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4373         ok( r == S_OK, "ret %08x\n", r );
4374         if(r == S_OK)
4375             IXMLDOMDocument_Release(doc2);
4376
4377         IXMLDOMNode_Release(node_first);
4378     }
4379
4380     r = IXMLDOMNode_get_childNodes(node_clone, &pList);
4381     ok( r == S_OK, "ret %08x\n", r );
4382     if (pList)
4383     {
4384         IXMLDOMNodeList_get_length(pList, &nLength1);
4385         ok( nLength1 == 0, "Length should be 0 (%d)\n", nLength1);
4386         IXMLDOMNodeList_Release(pList);
4387     }
4388
4389     r = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4390     ok( r == S_OK, "ret %08x\n", r );
4391     if(mapAttr)
4392     {
4393         IXMLDOMNamedNodeMap_get_length(mapAttr, &nAttrCnt1);
4394         ok( nAttrCnt1 == 3, "Attribute count should be 3 (%d)\n", nAttrCnt1);
4395         IXMLDOMNamedNodeMap_Release(mapAttr);
4396     }
4397
4398     ok(nLength != nLength1, "wrong Child count (%d, %d)\n", nLength, nLength1);
4399     ok(nAttrCnt == nAttrCnt1, "wrong Attribute count (%d, %d)\n", nAttrCnt, nAttrCnt1);
4400     IXMLDOMNode_Release(node_clone);
4401
4402
4403     IXMLDOMNode_Release(node);
4404     IXMLDOMDocument_Release(doc);
4405 }
4406
4407 static void test_xmlTypes(void)
4408 {
4409     IXMLDOMDocument *doc;
4410     IXMLDOMElement *pRoot;
4411     HRESULT hr;
4412     IXMLDOMComment *pComment;
4413     IXMLDOMElement *pElement;
4414     IXMLDOMAttribute *pAttribute;
4415     IXMLDOMNamedNodeMap *pAttribs;
4416     IXMLDOMCDATASection *pCDataSec;
4417     IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4418     IXMLDOMDocumentFragment *pDocFrag = NULL;
4419     IXMLDOMEntityReference *pEntityRef = NULL;
4420     BSTR str;
4421     IXMLDOMNode *pNextChild;
4422     VARIANT v;
4423     LONG len = 0;
4424
4425     doc = create_document(&IID_IXMLDOMDocument);
4426     if (!doc) return;
4427
4428     pNextChild = (void*)0xdeadbeef;
4429     hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4430     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4431
4432     pNextChild = (void*)0xdeadbeef;
4433     hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4434     ok(hr == S_FALSE, "ret %08x\n", hr );
4435     ok(pNextChild == NULL, "pDocChild not NULL\n");
4436
4437     /* test previous Sibling */
4438     hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4439     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4440
4441     pNextChild = (void*)0xdeadbeef;
4442     hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4443     ok(hr == S_FALSE, "ret %08x\n", hr );
4444     ok(pNextChild == NULL, "pNextChild not NULL\n");
4445
4446     /* test get_attributes */
4447     hr = IXMLDOMDocument_get_attributes( doc, NULL );
4448     ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4449
4450     pAttribs = (void*)0xdeadbeef;
4451     hr = IXMLDOMDocument_get_attributes( doc, &pAttribs);
4452     ok(hr == S_FALSE, "ret %08x\n", hr );
4453     ok( pAttribs == NULL, "pAttribs not NULL\n");
4454
4455     /* test get_dataType */
4456     V_VT(&v) = VT_EMPTY;
4457     hr = IXMLDOMDocument_get_dataType(doc, &v);
4458     ok(hr == S_FALSE, "ret %08x\n", hr );
4459     ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4460     VariantClear(&v);
4461
4462     /* test nodeTypeString */
4463     str = NULL;
4464     hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
4465     ok(hr == S_OK, "ret %08x\n", hr );
4466     ok( !lstrcmpW( str, _bstr_("document") ), "incorrect nodeTypeString string\n");
4467     SysFreeString(str);
4468
4469     /* test implementation */
4470     hr = IXMLDOMDocument_get_implementation(doc, NULL);
4471     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4472
4473     hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4474     ok(hr == S_OK, "ret %08x\n", hr );
4475     if(hr == S_OK)
4476     {
4477         VARIANT_BOOL hasFeature = VARIANT_TRUE;
4478         BSTR sEmpty = SysAllocStringLen(NULL, 0);
4479
4480         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4481         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4482
4483         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4484         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4485
4486         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4487         ok(hr == S_OK, "ret %08x\n", hr );
4488         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4489
4490         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4491         ok(hr == S_OK, "ret %08x\n", hr );
4492         ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4493
4494         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4495         ok(hr == S_OK, "ret %08x\n", hr );
4496         ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4497
4498         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4499         ok(hr == S_OK, "ret %08x\n", hr );
4500         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4501
4502         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4503         ok(hr == S_OK, "ret %08x\n", hr );
4504         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4505
4506         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4507         ok(hr == S_OK, "ret %08x\n", hr );
4508         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4509
4510         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4511         ok(hr == S_OK, "ret %08x\n", hr );
4512         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4513
4514         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4515         ok(hr == S_OK, "ret %08x\n", hr );
4516         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4517
4518         SysFreeString(sEmpty);
4519         IXMLDOMImplementation_Release(pIXMLDOMImplementation);
4520     }
4521
4522     pRoot = (IXMLDOMElement*)0x1;
4523     hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
4524     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4525     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4526
4527     pRoot = (IXMLDOMElement*)0x1;
4528     hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
4529     ok(hr == E_FAIL, "ret %08x\n", hr );
4530     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4531
4532     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
4533     ok(hr == S_OK, "ret %08x\n", hr );
4534     if(hr == S_OK)
4535     {
4536         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
4537         ok(hr == S_OK, "ret %08x\n", hr );
4538         if(hr == S_OK)
4539         {
4540             /* Comment */
4541             str = SysAllocString(szComment);
4542             hr = IXMLDOMDocument_createComment(doc, str, &pComment);
4543             SysFreeString(str);
4544             ok(hr == S_OK, "ret %08x\n", hr );
4545             if(hr == S_OK)
4546             {
4547                 /* test get_attributes */
4548                 hr = IXMLDOMComment_get_attributes( pComment, NULL );
4549                 ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4550
4551                 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4552                 hr = IXMLDOMComment_get_attributes( pComment, &pAttribs);
4553                 ok(hr == S_FALSE, "ret %08x\n", hr );
4554                 ok( pAttribs == NULL, "pAttribs not NULL\n");
4555
4556                 /* test nodeTypeString */
4557                 hr = IXMLDOMComment_get_nodeTypeString(pComment, &str);
4558                 ok(hr == S_OK, "ret %08x\n", hr );
4559                 ok( !lstrcmpW( str, _bstr_("comment") ), "incorrect nodeTypeString string\n");
4560                 SysFreeString(str);
4561
4562                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
4563                 ok(hr == S_OK, "ret %08x\n", hr );
4564
4565                 hr = IXMLDOMComment_get_nodeName(pComment, &str);
4566                 ok(hr == S_OK, "ret %08x\n", hr );
4567                 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
4568                 SysFreeString(str);
4569
4570                 hr = IXMLDOMComment_get_xml(pComment, &str);
4571                 ok(hr == S_OK, "ret %08x\n", hr );
4572                 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
4573                 SysFreeString(str);
4574
4575                 hr = IXMLDOMComment_get_dataType(pComment, &v);
4576                 ok(hr == S_FALSE, "ret %08x\n", hr );
4577                 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4578                 VariantClear(&v);
4579
4580                 /* put data Tests */
4581                 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
4582                 ok(hr == S_OK, "ret %08x\n", hr );
4583
4584                 /* get data Tests */
4585                 hr = IXMLDOMComment_get_data(pComment, &str);
4586                 ok(hr == S_OK, "ret %08x\n", hr );
4587                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
4588                 SysFreeString(str);
4589
4590                 /* get data Tests */
4591                 hr = IXMLDOMComment_get_nodeValue(pComment, &v);
4592                 ok(hr == S_OK, "ret %08x\n", hr );
4593                 ok( V_VT(&v) == VT_BSTR, "incorrect dataType type\n");
4594                 ok( !lstrcmpW( V_BSTR(&v), _bstr_("This &is a ; test <>\\") ), "incorrect get_nodeValue string\n");
4595                 VariantClear(&v);
4596
4597                 /* Confirm XML text is good */
4598                 hr = IXMLDOMComment_get_xml(pComment, &str);
4599                 ok(hr == S_OK, "ret %08x\n", hr );
4600                 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
4601                 SysFreeString(str);
4602
4603                 /* Confirm we get the put_data Text back */
4604                 hr = IXMLDOMComment_get_text(pComment, &str);
4605                 ok(hr == S_OK, "ret %08x\n", hr );
4606                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
4607                 SysFreeString(str);
4608
4609                 /* test length property */
4610                 hr = IXMLDOMComment_get_length(pComment, &len);
4611                 ok(hr == S_OK, "ret %08x\n", hr );
4612                 ok(len == 21, "expected 21 got %d\n", len);
4613
4614                 /* test substringData */
4615                 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
4616                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4617
4618                 /* test substringData - Invalid offset */
4619                 str = (BSTR)&szElement;
4620                 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
4621                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4622                 ok( str == NULL, "incorrect string\n");
4623
4624                 /* test substringData - Invalid offset */
4625                 str = (BSTR)&szElement;
4626                 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
4627                 ok(hr == S_FALSE, "ret %08x\n", hr );
4628                 ok( str == NULL, "incorrect string\n");
4629
4630                 /* test substringData - Invalid size */
4631                 str = (BSTR)&szElement;
4632                 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
4633                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4634                 ok( str == NULL, "incorrect string\n");
4635
4636                 /* test substringData - Invalid size */
4637                 str = (BSTR)&szElement;
4638                 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
4639                 ok(hr == S_FALSE, "ret %08x\n", hr );
4640                 ok( str == NULL, "incorrect string\n");
4641
4642                 /* test substringData - Start of string */
4643                 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
4644                 ok(hr == S_OK, "ret %08x\n", hr );
4645                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4646                 SysFreeString(str);
4647
4648                 /* test substringData - Middle of string */
4649                 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
4650                 ok(hr == S_OK, "ret %08x\n", hr );
4651                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4652                 SysFreeString(str);
4653
4654                 /* test substringData - End of string */
4655                 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
4656                 ok(hr == S_OK, "ret %08x\n", hr );
4657                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4658                 SysFreeString(str);
4659
4660                 /* test appendData */
4661                 hr = IXMLDOMComment_appendData(pComment, NULL);
4662                 ok(hr == S_OK, "ret %08x\n", hr );
4663
4664                 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
4665                 ok(hr == S_OK, "ret %08x\n", hr );
4666
4667                 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
4668                 ok(hr == S_OK, "ret %08x\n", hr );
4669
4670                 hr = IXMLDOMComment_get_text(pComment, &str);
4671                 ok(hr == S_OK, "ret %08x\n", hr );
4672                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4673                 SysFreeString(str);
4674
4675                 /* test insertData */
4676                 str = SysAllocStringLen(NULL, 0);
4677                 hr = IXMLDOMComment_insertData(pComment, -1, str);
4678                 ok(hr == S_OK, "ret %08x\n", hr );
4679
4680                 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
4681                 ok(hr == S_OK, "ret %08x\n", hr );
4682
4683                 hr = IXMLDOMComment_insertData(pComment, 1000, str);
4684                 ok(hr == S_OK, "ret %08x\n", hr );
4685
4686                 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
4687                 ok(hr == S_OK, "ret %08x\n", hr );
4688
4689                 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
4690                 ok(hr == S_OK, "ret %08x\n", hr );
4691
4692                 hr = IXMLDOMComment_insertData(pComment, 0, str);
4693                 ok(hr == S_OK, "ret %08x\n", hr );
4694                 SysFreeString(str);
4695
4696                 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
4697                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4698
4699                 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
4700                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4701
4702                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
4703                 ok(hr == S_OK, "ret %08x\n", hr );
4704
4705                 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
4706                 ok(hr == S_OK, "ret %08x\n", hr );
4707
4708                 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
4709                 ok(hr == S_OK, "ret %08x\n", hr );
4710
4711                 hr = IXMLDOMComment_get_text(pComment, &str);
4712                 ok(hr == S_OK, "ret %08x\n", hr );
4713                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4714                 SysFreeString(str);
4715
4716                 /* delete data */
4717                 /* invalid arguments */
4718                 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
4719                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4720
4721                 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
4722                 ok(hr == S_OK, "ret %08x\n", hr );
4723
4724                 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
4725                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4726
4727                 hr = IXMLDOMComment_get_length(pComment, &len);
4728                 ok(hr == S_OK, "ret %08x\n", hr );
4729                 ok(len == 43, "expected 43 got %d\n", len);
4730
4731                 hr = IXMLDOMComment_deleteData(pComment, len, 1);
4732                 ok(hr == S_OK, "ret %08x\n", hr );
4733
4734                 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
4735                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4736
4737                 /* delete from start */
4738                 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
4739                 ok(hr == S_OK, "ret %08x\n", hr );
4740
4741                 hr = IXMLDOMComment_get_length(pComment, &len);
4742                 ok(hr == S_OK, "ret %08x\n", hr );
4743                 ok(len == 38, "expected 38 got %d\n", len);
4744
4745                 hr = IXMLDOMComment_get_text(pComment, &str);
4746                 ok(hr == S_OK, "ret %08x\n", hr );
4747                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4748                 SysFreeString(str);
4749
4750                 /* delete from end */
4751                 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
4752                 ok(hr == S_OK, "ret %08x\n", hr );
4753
4754                 hr = IXMLDOMComment_get_length(pComment, &len);
4755                 ok(hr == S_OK, "ret %08x\n", hr );
4756                 ok(len == 35, "expected 35 got %d\n", len);
4757
4758                 hr = IXMLDOMComment_get_text(pComment, &str);
4759                 ok(hr == S_OK, "ret %08x\n", hr );
4760                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4761                 SysFreeString(str);
4762
4763                 /* delete from inside */
4764                 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
4765                 ok(hr == S_OK, "ret %08x\n", hr );
4766
4767                 hr = IXMLDOMComment_get_length(pComment, &len);
4768                 ok(hr == S_OK, "ret %08x\n", hr );
4769                 ok(len == 2, "expected 2 got %d\n", len);
4770
4771                 hr = IXMLDOMComment_get_text(pComment, &str);
4772                 ok(hr == S_OK, "ret %08x\n", hr );
4773                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4774                 SysFreeString(str);
4775
4776                 /* delete whole data ... */
4777                 hr = IXMLDOMComment_get_length(pComment, &len);
4778                 ok(hr == S_OK, "ret %08x\n", hr );
4779
4780                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4781                 ok(hr == S_OK, "ret %08x\n", hr );
4782                 /* ... and try again with empty string */
4783                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
4784                 ok(hr == S_OK, "ret %08x\n", hr );
4785
4786                 /* ::replaceData() */
4787                 V_VT(&v) = VT_BSTR;
4788                 V_BSTR(&v) = SysAllocString(szstr1);
4789                 hr = IXMLDOMComment_put_nodeValue(pComment, v);
4790                 ok(hr == S_OK, "ret %08x\n", hr );
4791                 VariantClear(&v);
4792
4793                 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
4794                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4795                 hr = IXMLDOMComment_get_text(pComment, &str);
4796                 ok(hr == S_OK, "ret %08x\n", hr );
4797                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4798                 SysFreeString(str);
4799
4800                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
4801                 ok(hr == S_OK, "ret %08x\n", hr );
4802                 hr = IXMLDOMComment_get_text(pComment, &str);
4803                 ok(hr == S_OK, "ret %08x\n", hr );
4804                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4805                 SysFreeString(str);
4806
4807                 /* NULL pointer means delete */
4808                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
4809                 ok(hr == S_OK, "ret %08x\n", hr );
4810                 hr = IXMLDOMComment_get_text(pComment, &str);
4811                 ok(hr == S_OK, "ret %08x\n", hr );
4812                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4813                 SysFreeString(str);
4814
4815                 /* empty string means delete */
4816                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
4817                 ok(hr == S_OK, "ret %08x\n", hr );
4818                 hr = IXMLDOMComment_get_text(pComment, &str);
4819                 ok(hr == S_OK, "ret %08x\n", hr );
4820                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4821                 SysFreeString(str);
4822
4823                 /* zero count means insert */
4824                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
4825                 ok(hr == S_OK, "ret %08x\n", hr );
4826                 hr = IXMLDOMComment_get_text(pComment, &str);
4827                 ok(hr == S_OK, "ret %08x\n", hr );
4828                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4829                 SysFreeString(str);
4830
4831                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
4832                 ok(hr == S_OK, "ret %08x\n", hr );
4833
4834                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
4835                 ok(hr == S_OK, "ret %08x\n", hr );
4836                 hr = IXMLDOMComment_get_text(pComment, &str);
4837                 ok(hr == S_OK, "ret %08x\n", hr );
4838                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4839                 SysFreeString(str);
4840
4841                 /* nonempty string, count greater than its length */
4842                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
4843                 ok(hr == S_OK, "ret %08x\n", hr );
4844                 hr = IXMLDOMComment_get_text(pComment, &str);
4845                 ok(hr == S_OK, "ret %08x\n", hr );
4846                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4847                 SysFreeString(str);
4848
4849                 /* nonempty string, count less than its length */
4850                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
4851                 ok(hr == S_OK, "ret %08x\n", hr );
4852                 hr = IXMLDOMComment_get_text(pComment, &str);
4853                 ok(hr == S_OK, "ret %08x\n", hr );
4854                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4855                 SysFreeString(str);
4856
4857                 IXMLDOMComment_Release(pComment);
4858             }
4859
4860             /* Element */
4861             str = SysAllocString(szElement);
4862             hr = IXMLDOMDocument_createElement(doc, str, &pElement);
4863             SysFreeString(str);
4864             ok(hr == S_OK, "ret %08x\n", hr );
4865             if(hr == S_OK)
4866             {
4867                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
4868                 ok(hr == S_OK, "ret %08x\n", hr );
4869
4870                 /* test nodeTypeString */
4871                 hr = IXMLDOMDocument_get_nodeTypeString(pElement, &str);
4872                 ok(hr == S_OK, "ret %08x\n", hr );
4873                 ok( !lstrcmpW( str, _bstr_("element") ), "incorrect nodeTypeString string\n");
4874                 SysFreeString(str);
4875
4876                 hr = IXMLDOMElement_get_nodeName(pElement, &str);
4877                 ok(hr == S_OK, "ret %08x\n", hr );
4878                 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
4879                 SysFreeString(str);
4880
4881                 hr = IXMLDOMElement_get_xml(pElement, &str);
4882                 ok(hr == S_OK, "ret %08x\n", hr );
4883                 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
4884                 SysFreeString(str);
4885
4886                 hr = IXMLDOMElement_get_dataType(pElement, &v);
4887                 ok(hr == S_FALSE, "ret %08x\n", hr );
4888                 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4889                 VariantClear(&v);
4890
4891                 /* Attribute */
4892                 pAttribute = (IXMLDOMAttribute*)0x1;
4893                 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
4894                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4895                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4896
4897                 pAttribute = (IXMLDOMAttribute*)0x1;
4898                 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
4899                 ok(hr == E_FAIL, "ret %08x\n", hr );
4900                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
4901
4902                 str = SysAllocString(szAttribute);
4903                 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
4904                 SysFreeString(str);
4905                 ok(hr == S_OK, "ret %08x\n", hr );
4906                 if(hr == S_OK)
4907                 {
4908                     IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
4909
4910                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
4911                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4912
4913                     pNextChild = (IXMLDOMNode *)0x1;
4914                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
4915                     ok(hr == S_FALSE, "ret %08x\n", hr );
4916                     ok(pNextChild == NULL, "pNextChild not NULL\n");
4917
4918                     /* test Previous Sibling*/
4919                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
4920                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4921
4922                     pNextChild = (IXMLDOMNode *)0x1;
4923                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
4924                     ok(hr == S_FALSE, "ret %08x\n", hr );
4925                     ok(pNextChild == NULL, "pNextChild not NULL\n");
4926
4927                     /* test get_attributes */
4928                     hr = IXMLDOMAttribute_get_attributes( pAttribute, NULL );
4929                     ok( hr == E_INVALIDARG, "get_attributes returned wrong code\n");
4930
4931                     pAttribs = (IXMLDOMNamedNodeMap*)0x1;
4932                     hr = IXMLDOMAttribute_get_attributes( pAttribute, &pAttribs);
4933                     ok(hr == S_FALSE, "ret %08x\n", hr );
4934                     ok( pAttribs == NULL, "pAttribs not NULL\n");
4935
4936                     hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
4937                     ok(hr == E_FAIL, "ret %08x\n", hr );
4938                     ok(pNewChild == NULL, "pNewChild not NULL\n");
4939
4940                     hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
4941                     ok(hr == S_OK, "ret %08x\n", hr );
4942                     if ( hr == S_OK )
4943                     {
4944                         hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
4945                         ok(hr == S_OK, "ret %08x\n", hr );
4946
4947                         IXMLDOMNamedNodeMap_Release(pAttribs);
4948                     }
4949
4950                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4951                     ok(hr == S_OK, "ret %08x\n", hr );
4952                     ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
4953                     SysFreeString(str);
4954
4955                     /* test nodeTypeString */
4956                     hr = IXMLDOMAttribute_get_nodeTypeString(pAttribute, &str);
4957                     ok(hr == S_OK, "ret %08x\n", hr );
4958                     ok( !lstrcmpW( str, _bstr_("attribute") ), "incorrect nodeTypeString string\n");
4959                     SysFreeString(str);
4960
4961                     /* test nodeName */
4962                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
4963                     ok(hr == S_OK, "ret %08x\n", hr );
4964                     ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
4965                     SysFreeString(str);
4966
4967                     /* test name property */
4968                     hr = IXMLDOMAttribute_get_name(pAttribute, &str);
4969                     ok(hr == S_OK, "ret %08x\n", hr );
4970                     ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
4971                     SysFreeString(str);
4972
4973                     hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
4974                     ok(hr == S_OK, "ret %08x\n", hr );
4975                     ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
4976                     SysFreeString(str);
4977
4978                     hr = IXMLDOMAttribute_get_dataType(pAttribute, &v);
4979                     ok(hr == S_FALSE, "ret %08x\n", hr );
4980                     ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4981                     VariantClear(&v);
4982
4983                     IXMLDOMAttribute_Release(pAttribute);
4984
4985                     /* Check Element again with the Add Attribute*/
4986                     hr = IXMLDOMElement_get_xml(pElement, &str);
4987                     ok(hr == S_OK, "ret %08x\n", hr );
4988                     ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
4989                     SysFreeString(str);
4990                 }
4991
4992                 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
4993                 ok(hr == S_OK, "ret %08x\n", hr );
4994
4995                 hr = IXMLDOMElement_get_xml(pElement, &str);
4996                 ok(hr == S_OK, "ret %08x\n", hr );
4997                 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
4998                 SysFreeString(str);
4999
5000                 /* Test for reversible escaping */
5001                 str = SysAllocString( szStrangeChars );
5002                 hr = IXMLDOMElement_put_text(pElement, str);
5003                 ok(hr == S_OK, "ret %08x\n", hr );
5004                 SysFreeString( str );
5005
5006                 hr = IXMLDOMElement_get_xml(pElement, &str);
5007                 ok(hr == S_OK, "ret %08x\n", hr );
5008                 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
5009                 SysFreeString(str);
5010
5011                 hr = IXMLDOMElement_get_text(pElement, &str);
5012                 ok(hr == S_OK, "ret %08x\n", hr );
5013                 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
5014                 SysFreeString(str);
5015
5016                 IXMLDOMElement_Release(pElement);
5017             }
5018
5019             /* CData Section */
5020             str = SysAllocString(szCData);
5021             hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
5022             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5023
5024             hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
5025             SysFreeString(str);
5026             ok(hr == S_OK, "ret %08x\n", hr );
5027             if(hr == S_OK)
5028             {
5029                 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
5030                 VARIANT var;
5031
5032                 VariantInit(&var);
5033
5034                 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
5035                 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
5036
5037                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
5038                 ok(hr == S_OK, "ret %08x\n", hr );
5039
5040                 /* get Attribute Tests */
5041                 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, NULL);
5042                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5043
5044                 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5045                 hr = IXMLDOMCDATASection_get_attributes(pCDataSec, &pAttribs);
5046                 ok(hr == S_FALSE, "ret %08x\n", hr );
5047                 ok(pAttribs == NULL, "pAttribs != NULL\n");
5048
5049                 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
5050                 ok(hr == S_OK, "ret %08x\n", hr );
5051                 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
5052                 SysFreeString(str);
5053
5054                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5055                 ok(hr == S_OK, "ret %08x\n", hr );
5056                 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
5057                 SysFreeString(str);
5058
5059                 /* test lastChild */
5060                 pNextChild = (IXMLDOMNode*)0x1;
5061                 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
5062                 ok(hr == S_FALSE, "ret %08x\n", hr );
5063                 ok(pNextChild == NULL, "pNextChild not NULL\n");
5064
5065                 /* test get_dataType */
5066                 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, NULL);
5067                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5068
5069                 hr = IXMLDOMCDATASection_get_dataType(pCDataSec, &v);
5070                 ok(hr == S_FALSE, "ret %08x\n", hr );
5071                 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5072                 VariantClear(&v);
5073
5074                 /* test nodeTypeString */
5075                 hr = IXMLDOMCDATASection_get_nodeTypeString(pCDataSec, &str);
5076                 ok(hr == S_OK, "ret %08x\n", hr );
5077                 ok( !lstrcmpW( str, _bstr_("cdatasection") ), "incorrect nodeTypeString string\n");
5078                 SysFreeString(str);
5079
5080                 /* put data Tests */
5081                 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
5082                 ok(hr == S_OK, "ret %08x\n", hr );
5083
5084                 /* Confirm XML text is good */
5085                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5086                 ok(hr == S_OK, "ret %08x\n", hr );
5087                 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
5088                 SysFreeString(str);
5089
5090                 /* Confirm we get the put_data Text back */
5091                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5092                 ok(hr == S_OK, "ret %08x\n", hr );
5093                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5094                 SysFreeString(str);
5095
5096                 /* test length property */
5097                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5098                 ok(hr == S_OK, "ret %08x\n", hr );
5099                 ok(len == 21, "expected 21 got %d\n", len);
5100
5101                 /* test get nodeValue */
5102                 hr = IXMLDOMCDATASection_get_nodeValue(pCDataSec, &var);
5103                 ok(hr == S_OK, "ret %08x\n", hr );
5104                 ok(V_VT(&var) == VT_BSTR, "got vt %04x\n", V_VT(&var));
5105                 ok( !lstrcmpW( V_BSTR(&var), _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5106                 VariantClear(&var);
5107
5108                 /* test get data */
5109                 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
5110                 ok(hr == S_OK, "ret %08x\n", hr );
5111                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5112                 SysFreeString(str);
5113
5114                 /* test substringData */
5115                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
5116                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5117
5118                 /* test substringData - Invalid offset */
5119                 str = (BSTR)&szElement;
5120                 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
5121                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5122                 ok( str == NULL, "incorrect string\n");
5123
5124                 /* test substringData - Invalid offset */
5125                 str = (BSTR)&szElement;
5126                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
5127                 ok(hr == S_FALSE, "ret %08x\n", hr );
5128                 ok( str == NULL, "incorrect string\n");
5129
5130                 /* test substringData - Invalid size */
5131                 str = (BSTR)&szElement;
5132                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
5133                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5134                 ok( str == NULL, "incorrect string\n");
5135
5136                 /* test substringData - Invalid size */
5137                 str = (BSTR)&szElement;
5138                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
5139                 ok(hr == S_FALSE, "ret %08x\n", hr );
5140                 ok( str == NULL, "incorrect string\n");
5141
5142                 /* test substringData - Start of string */
5143                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
5144                 ok(hr == S_OK, "ret %08x\n", hr );
5145                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5146                 SysFreeString(str);
5147
5148                 /* test substringData - Middle of string */
5149                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
5150                 ok(hr == S_OK, "ret %08x\n", hr );
5151                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5152                 SysFreeString(str);
5153
5154                 /* test substringData - End of string */
5155                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
5156                 ok(hr == S_OK, "ret %08x\n", hr );
5157                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5158                 SysFreeString(str);
5159
5160                 /* test appendData */
5161                 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
5162                 ok(hr == S_OK, "ret %08x\n", hr );
5163
5164                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
5165                 ok(hr == S_OK, "ret %08x\n", hr );
5166
5167                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
5168                 ok(hr == S_OK, "ret %08x\n", hr );
5169
5170                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5171                 ok(hr == S_OK, "ret %08x\n", hr );
5172                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5173                 SysFreeString(str);
5174
5175                 /* test insertData */
5176                 str = SysAllocStringLen(NULL, 0);
5177                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
5178                 ok(hr == S_OK, "ret %08x\n", hr );
5179
5180                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
5181                 ok(hr == S_OK, "ret %08x\n", hr );
5182
5183                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
5184                 ok(hr == S_OK, "ret %08x\n", hr );
5185
5186                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
5187                 ok(hr == S_OK, "ret %08x\n", hr );
5188
5189                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
5190                 ok(hr == S_OK, "ret %08x\n", hr );
5191
5192                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
5193                 ok(hr == S_OK, "ret %08x\n", hr );
5194                 SysFreeString(str);
5195
5196                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
5197                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5198
5199                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
5200                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5201
5202                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
5203                 ok(hr == S_OK, "ret %08x\n", hr );
5204
5205                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
5206                 ok(hr == S_OK, "ret %08x\n", hr );
5207
5208                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
5209                 ok(hr == S_OK, "ret %08x\n", hr );
5210
5211                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5212                 ok(hr == S_OK, "ret %08x\n", hr );
5213                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5214                 SysFreeString(str);
5215
5216                 /* delete data */
5217                 /* invalid arguments */
5218                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
5219                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5220
5221                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
5222                 ok(hr == S_OK, "ret %08x\n", hr );
5223
5224                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
5225                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5226
5227                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5228                 ok(hr == S_OK, "ret %08x\n", hr );
5229                 ok(len == 43, "expected 43 got %d\n", len);
5230
5231                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
5232                 ok(hr == S_OK, "ret %08x\n", hr );
5233
5234                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
5235                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5236
5237                 /* delete from start */
5238                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
5239                 ok(hr == S_OK, "ret %08x\n", hr );
5240
5241                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5242                 ok(hr == S_OK, "ret %08x\n", hr );
5243                 ok(len == 38, "expected 38 got %d\n", len);
5244
5245                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5246                 ok(hr == S_OK, "ret %08x\n", hr );
5247                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5248                 SysFreeString(str);
5249
5250                 /* delete from end */
5251                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
5252                 ok(hr == S_OK, "ret %08x\n", hr );
5253
5254                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5255                 ok(hr == S_OK, "ret %08x\n", hr );
5256                 ok(len == 35, "expected 35 got %d\n", len);
5257
5258                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5259                 ok(hr == S_OK, "ret %08x\n", hr );
5260                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5261                 SysFreeString(str);
5262
5263                 /* delete from inside */
5264                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
5265                 ok(hr == S_OK, "ret %08x\n", hr );
5266
5267                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5268                 ok(hr == S_OK, "ret %08x\n", hr );
5269                 ok(len == 2, "expected 2 got %d\n", len);
5270
5271                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5272                 ok(hr == S_OK, "ret %08x\n", hr );
5273                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5274                 SysFreeString(str);
5275
5276                 /* delete whole data ... */
5277                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5278                 ok(hr == S_OK, "ret %08x\n", hr );
5279
5280                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5281                 ok(hr == S_OK, "ret %08x\n", hr );
5282
5283                 /* ... and try again with empty string */
5284                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5285                 ok(hr == S_OK, "ret %08x\n", hr );
5286
5287                 /* ::replaceData() */
5288                 V_VT(&v) = VT_BSTR;
5289                 V_BSTR(&v) = SysAllocString(szstr1);
5290                 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
5291                 ok(hr == S_OK, "ret %08x\n", hr );
5292                 VariantClear(&v);
5293
5294                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
5295                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5296                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5297                 ok(hr == S_OK, "ret %08x\n", hr );
5298                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5299                 SysFreeString(str);
5300
5301                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
5302                 ok(hr == S_OK, "ret %08x\n", hr );
5303                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5304                 ok(hr == S_OK, "ret %08x\n", hr );
5305                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5306                 SysFreeString(str);
5307
5308                 /* NULL pointer means delete */
5309                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
5310                 ok(hr == S_OK, "ret %08x\n", hr );
5311                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5312                 ok(hr == S_OK, "ret %08x\n", hr );
5313                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5314                 SysFreeString(str);
5315
5316                 /* empty string means delete */
5317                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5318                 ok(hr == S_OK, "ret %08x\n", hr );
5319                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5320                 ok(hr == S_OK, "ret %08x\n", hr );
5321                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5322                 SysFreeString(str);
5323
5324                 /* zero count means insert */
5325                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5326                 ok(hr == S_OK, "ret %08x\n", hr );
5327                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5328                 ok(hr == S_OK, "ret %08x\n", hr );
5329                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5330                 SysFreeString(str);
5331
5332                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5333                 ok(hr == S_OK, "ret %08x\n", hr );
5334
5335                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5336                 ok(hr == S_OK, "ret %08x\n", hr );
5337                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5338                 ok(hr == S_OK, "ret %08x\n", hr );
5339                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5340                 SysFreeString(str);
5341
5342                 /* nonempty string, count greater than its length */
5343                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5344                 ok(hr == S_OK, "ret %08x\n", hr );
5345                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5346                 ok(hr == S_OK, "ret %08x\n", hr );
5347                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5348                 SysFreeString(str);
5349
5350                 /* nonempty string, count less than its length */
5351                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5352                 ok(hr == S_OK, "ret %08x\n", hr );
5353                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5354                 ok(hr == S_OK, "ret %08x\n", hr );
5355                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5356                 SysFreeString(str);
5357
5358                 IXMLDOMCDATASection_Release(pCDataSec);
5359             }
5360
5361             /* Document Fragments */
5362             hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5363             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5364
5365             hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5366             ok(hr == S_OK, "ret %08x\n", hr );
5367             if(hr == S_OK)
5368             {
5369                 IXMLDOMNode *node;
5370
5371                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5372                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5373
5374                 node = (IXMLDOMNode *)0x1;
5375                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5376                 ok(hr == S_FALSE, "ret %08x\n", hr );
5377                 ok(node == NULL, "expected NULL, got %p\n", node);
5378
5379                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5380                 ok(hr == S_OK, "ret %08x\n", hr );
5381
5382                 /* get Attribute Tests */
5383                 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, NULL);
5384                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5385
5386                 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5387                 hr = IXMLDOMDocumentFragment_get_attributes(pDocFrag, &pAttribs);
5388                 ok(hr == S_FALSE, "ret %08x\n", hr );
5389                 ok(pAttribs == NULL, "pAttribs != NULL\n");
5390
5391                 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5392                 ok(hr == S_OK, "ret %08x\n", hr );
5393                 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5394                 SysFreeString(str);
5395
5396                 /* test next Sibling*/
5397                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5398                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5399
5400                 node = (IXMLDOMNode *)0x1;
5401                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5402                 ok(hr == S_FALSE, "ret %08x\n", hr );
5403                 ok(node == NULL, "next sibling not NULL\n");
5404
5405                 /* test Previous Sibling*/
5406                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5407                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5408
5409                 node = (IXMLDOMNode *)0x1;
5410                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5411                 ok(hr == S_FALSE, "ret %08x\n", hr );
5412                 ok(node == NULL, "previous sibling not NULL\n");
5413
5414                 /* test get_dataType */
5415                 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, NULL);
5416                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5417
5418                 hr = IXMLDOMDocumentFragment_get_dataType(pDocFrag, &v);
5419                 ok(hr == S_FALSE, "ret %08x\n", hr );
5420                 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5421                 VariantClear(&v);
5422
5423                 /* test nodeTypeString */
5424                 hr = IXMLDOMDocumentFragment_get_nodeTypeString(pDocFrag, &str);
5425                 ok(hr == S_OK, "ret %08x\n", hr );
5426                 ok( !lstrcmpW( str, _bstr_("documentfragment") ), "incorrect nodeTypeString string\n");
5427                 SysFreeString(str);
5428
5429                 IXMLDOMDocumentFragment_Release(pDocFrag);
5430             }
5431
5432             /* Entity References */
5433             hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5434             ok(hr == E_FAIL, "ret %08x\n", hr );
5435             hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5436             ok(hr == E_FAIL, "ret %08x\n", hr );
5437
5438             str = SysAllocString(szEntityRef);
5439             hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5440             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5441
5442             hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5443             SysFreeString(str);
5444             ok(hr == S_OK, "ret %08x\n", hr );
5445             if(hr == S_OK)
5446             {
5447                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5448                 ok(hr == S_OK, "ret %08x\n", hr );
5449
5450                 /* get Attribute Tests */
5451                 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, NULL);
5452                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5453
5454                 pAttribs = (IXMLDOMNamedNodeMap*)0x1;
5455                 hr = IXMLDOMEntityReference_get_attributes(pEntityRef, &pAttribs);
5456                 ok(hr == S_FALSE, "ret %08x\n", hr );
5457                 ok(pAttribs == NULL, "pAttribs != NULL\n");
5458
5459                 /* test dataType */
5460                 hr = IXMLDOMEntityReference_get_dataType(pEntityRef, &v);
5461                 ok(hr == S_FALSE, "ret %08x\n", hr );
5462                 ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
5463                 VariantClear(&v);
5464
5465                 /* test nodeTypeString */
5466                 hr = IXMLDOMEntityReference_get_nodeTypeString(pEntityRef, &str);
5467                 ok(hr == S_OK, "ret %08x\n", hr );
5468                 ok( !lstrcmpW( str, _bstr_("entityreference") ), "incorrect nodeTypeString string\n");
5469                 SysFreeString(str);
5470
5471                 /* test get_xml*/
5472                 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5473                 ok(hr == S_OK, "ret %08x\n", hr );
5474                 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5475                 SysFreeString(str);
5476
5477                 IXMLDOMEntityReference_Release(pEntityRef);
5478             }
5479
5480             IXMLDOMElement_Release( pRoot );
5481         }
5482     }
5483
5484     IXMLDOMDocument_Release(doc);
5485
5486     free_bstrs();
5487 }
5488
5489 static void test_nodeTypeTests( void )
5490 {
5491     IXMLDOMDocument *doc = NULL;
5492     IXMLDOMElement *pRoot;
5493     IXMLDOMElement *pElement;
5494     HRESULT hr;
5495
5496     doc = create_document(&IID_IXMLDOMDocument);
5497     if (!doc) return;
5498
5499     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5500     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5501
5502     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5503     ok(hr == S_OK, "ret %08x\n", hr );
5504     if(hr == S_OK)
5505     {
5506         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5507         ok(hr == S_OK, "ret %08x\n", hr );
5508         if(hr == S_OK)
5509         {
5510             hr = IXMLDOMElement_put_dataType(pRoot, NULL);
5511             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5512
5513             /* Invalid Value */
5514             hr = IXMLDOMElement_put_dataType(pRoot, _bstr_("abcdefg") );
5515             ok(hr == E_FAIL, "ret %08x\n", hr );
5516
5517             /* NOTE:
5518              *   The name passed into put_dataType is case-insensitive. So many of the names
5519              *     have been changed to reflect this.
5520              */
5521             /* Boolean */
5522             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Boolean"), &pElement);
5523             ok(hr == S_OK, "ret %08x\n", hr );
5524             if(hr == S_OK)
5525             {
5526                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5527
5528                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Boolean") );
5529                 ok(hr == S_OK, "ret %08x\n", hr );
5530
5531                 IXMLDOMElement_Release(pElement);
5532             }
5533
5534             /* String */
5535             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_String"), &pElement);
5536             ok(hr == S_OK, "ret %08x\n", hr );
5537             if(hr == S_OK)
5538             {
5539                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5540
5541                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("String") );
5542                 ok(hr == S_OK, "ret %08x\n", hr );
5543
5544                 IXMLDOMElement_Release(pElement);
5545             }
5546
5547             /* Number */
5548             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Number"), &pElement);
5549             ok(hr == S_OK, "ret %08x\n", hr );
5550             if(hr == S_OK)
5551             {
5552                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5553
5554                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("number") );
5555                 ok(hr == S_OK, "ret %08x\n", hr );
5556
5557                 IXMLDOMElement_Release(pElement);
5558             }
5559
5560             /* Int */
5561             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Int"), &pElement);
5562             ok(hr == S_OK, "ret %08x\n", hr );
5563             if(hr == S_OK)
5564             {
5565                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5566
5567                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("InT") );
5568                 ok(hr == S_OK, "ret %08x\n", hr );
5569
5570                 IXMLDOMElement_Release(pElement);
5571             }
5572
5573             /* Fixed */
5574             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Fixed"), &pElement);
5575             ok(hr == S_OK, "ret %08x\n", hr );
5576             if(hr == S_OK)
5577             {
5578                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5579
5580                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("fixed.14.4") );
5581                 ok(hr == S_OK, "ret %08x\n", hr );
5582
5583                 IXMLDOMElement_Release(pElement);
5584             }
5585
5586             /* DateTime */
5587             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime"), &pElement);
5588             ok(hr == S_OK, "ret %08x\n", hr );
5589             if(hr == S_OK)
5590             {
5591                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5592
5593                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime") );
5594                 ok(hr == S_OK, "ret %08x\n", hr );
5595
5596                 IXMLDOMElement_Release(pElement);
5597             }
5598
5599             /* DateTime TZ */
5600             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_DateTime_tz"), &pElement);
5601             ok(hr == S_OK, "ret %08x\n", hr );
5602             if(hr == S_OK)
5603             {
5604                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5605
5606                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5607                 ok(hr == S_OK, "ret %08x\n", hr );
5608
5609                 IXMLDOMElement_Release(pElement);
5610             }
5611
5612             /* Date */
5613             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Date"), &pElement);
5614             ok(hr == S_OK, "ret %08x\n", hr );
5615             if(hr == S_OK)
5616             {
5617                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5618
5619                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Date") );
5620                 ok(hr == S_OK, "ret %08x\n", hr );
5621
5622                 IXMLDOMElement_Release(pElement);
5623             }
5624
5625             /* Time */
5626             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time"), &pElement);
5627             ok(hr == S_OK, "ret %08x\n", hr );
5628             if(hr == S_OK)
5629             {
5630                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5631
5632                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time") );
5633                 ok(hr == S_OK, "ret %08x\n", hr );
5634
5635                 IXMLDOMElement_Release(pElement);
5636             }
5637
5638             /* Time.tz */
5639             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Time_TZ"), &pElement);
5640             ok(hr == S_OK, "ret %08x\n", hr );
5641             if(hr == S_OK)
5642             {
5643                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5644
5645                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("Time.tz") );
5646                 ok(hr == S_OK, "ret %08x\n", hr );
5647
5648                 IXMLDOMElement_Release(pElement);
5649             }
5650
5651             /* I1 */
5652             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I1"), &pElement);
5653             ok(hr == S_OK, "ret %08x\n", hr );
5654             if(hr == S_OK)
5655             {
5656                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5657
5658                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I1") );
5659                 ok(hr == S_OK, "ret %08x\n", hr );
5660
5661                 IXMLDOMElement_Release(pElement);
5662             }
5663
5664             /* I2 */
5665             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I2"), &pElement);
5666             ok(hr == S_OK, "ret %08x\n", hr );
5667             if(hr == S_OK)
5668             {
5669                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5670
5671                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I2") );
5672                 ok(hr == S_OK, "ret %08x\n", hr );
5673
5674                 IXMLDOMElement_Release(pElement);
5675             }
5676
5677             /* I4 */
5678             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_I4"), &pElement);
5679             ok(hr == S_OK, "ret %08x\n", hr );
5680             if(hr == S_OK)
5681             {
5682                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5683
5684                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("I4") );
5685                 ok(hr == S_OK, "ret %08x\n", hr );
5686
5687                 IXMLDOMElement_Release(pElement);
5688             }
5689
5690             /* UI1 */
5691             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI1"), &pElement);
5692             ok(hr == S_OK, "ret %08x\n", hr );
5693             if(hr == S_OK)
5694             {
5695                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5696
5697                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI1") );
5698                 ok(hr == S_OK, "ret %08x\n", hr );
5699
5700                 IXMLDOMElement_Release(pElement);
5701             }
5702
5703             /* UI2 */
5704             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI2"), &pElement);
5705             ok(hr == S_OK, "ret %08x\n", hr );
5706             if(hr == S_OK)
5707             {
5708                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5709
5710                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI2") );
5711                 ok(hr == S_OK, "ret %08x\n", hr );
5712
5713                 IXMLDOMElement_Release(pElement);
5714             }
5715
5716             /* UI4 */
5717             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_UI4"), &pElement);
5718             ok(hr == S_OK, "ret %08x\n", hr );
5719             if(hr == S_OK)
5720             {
5721                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5722
5723                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UI4") );
5724                 ok(hr == S_OK, "ret %08x\n", hr );
5725
5726                 IXMLDOMElement_Release(pElement);
5727             }
5728
5729             /* r4 */
5730             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r4"), &pElement);
5731             ok(hr == S_OK, "ret %08x\n", hr );
5732             if(hr == S_OK)
5733             {
5734                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5735
5736                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r4") );
5737                 ok(hr == S_OK, "ret %08x\n", hr );
5738
5739                 IXMLDOMElement_Release(pElement);
5740             }
5741
5742             /* r8 */
5743             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_r8"), &pElement);
5744             ok(hr == S_OK, "ret %08x\n", hr );
5745             if(hr == S_OK)
5746             {
5747                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5748
5749                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("r8") );
5750                 ok(hr == S_OK, "ret %08x\n", hr );
5751
5752                 IXMLDOMElement_Release(pElement);
5753             }
5754
5755             /* float */
5756             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_float"), &pElement);
5757             ok(hr == S_OK, "ret %08x\n", hr );
5758             if(hr == S_OK)
5759             {
5760                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5761
5762                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("float") );
5763                 ok(hr == S_OK, "ret %08x\n", hr );
5764
5765                 IXMLDOMElement_Release(pElement);
5766             }
5767
5768             /* uuid */
5769             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_uuid"), &pElement);
5770             ok(hr == S_OK, "ret %08x\n", hr );
5771             if(hr == S_OK)
5772             {
5773                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5774
5775                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("UuId") );
5776                 ok(hr == S_OK, "ret %08x\n", hr );
5777
5778                 IXMLDOMElement_Release(pElement);
5779             }
5780
5781             /* bin.hex */
5782             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_hex"), &pElement);
5783             ok(hr == S_OK, "ret %08x\n", hr );
5784             if(hr == S_OK)
5785             {
5786                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5787
5788                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.hex") );
5789                 ok(hr == S_OK, "ret %08x\n", hr );
5790
5791                 IXMLDOMElement_Release(pElement);
5792             }
5793
5794             /* bin.base64 */
5795             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_bin_base64"), &pElement);
5796             ok(hr == S_OK, "ret %08x\n", hr );
5797             if(hr == S_OK)
5798             {
5799                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5800
5801                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("bin.base64") );
5802                 ok(hr == S_OK, "ret %08x\n", hr );
5803
5804                 IXMLDOMElement_Release(pElement);
5805             }
5806
5807             /* Check changing types */
5808             hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &pElement);
5809             ok(hr == S_OK, "ret %08x\n", hr );
5810             if(hr == S_OK)
5811             {
5812                 IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5813
5814                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("DateTime.tz") );
5815                 ok(hr == S_OK, "ret %08x\n", hr );
5816
5817                 hr = IXMLDOMElement_put_dataType(pElement, _bstr_("string") );
5818                 ok(hr == S_OK, "ret %08x\n", hr );
5819
5820                 IXMLDOMElement_Release(pElement);
5821             }
5822
5823             IXMLDOMElement_Release(pRoot);
5824         }
5825     }
5826
5827     IXMLDOMDocument_Release(doc);
5828
5829     free_bstrs();
5830 }
5831
5832 static void test_DocumentSaveToDocument(void)
5833 {
5834     IXMLDOMDocument *doc, *doc2;
5835     IXMLDOMElement *pRoot;
5836     HRESULT hr;
5837
5838     doc = create_document(&IID_IXMLDOMDocument);
5839     if (!doc) return;
5840
5841     doc2 = create_document(&IID_IXMLDOMDocument);
5842     if (!doc2)
5843     {
5844         IXMLDOMDocument_Release(doc);
5845         return;
5846     }
5847
5848     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5849     ok(hr == S_OK, "ret %08x\n", hr );
5850     if(hr == S_OK)
5851     {
5852         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5853         ok(hr == S_OK, "ret %08x\n", hr );
5854         if(hr == S_OK)
5855         {
5856             VARIANT vDoc;
5857             BSTR sOrig;
5858             BSTR sNew;
5859
5860             V_VT(&vDoc) = VT_UNKNOWN;
5861             V_UNKNOWN(&vDoc) = (IUnknown*)doc2;
5862
5863             hr = IXMLDOMDocument_save(doc, vDoc);
5864             ok(hr == S_OK, "ret %08x\n", hr );
5865
5866             hr = IXMLDOMDocument_get_xml(doc, &sOrig);
5867             ok(hr == S_OK, "ret %08x\n", hr );
5868
5869             hr = IXMLDOMDocument_get_xml(doc2, &sNew);
5870             ok(hr == S_OK, "ret %08x\n", hr );
5871
5872             ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as origial\n");
5873
5874             SysFreeString(sOrig);
5875             SysFreeString(sNew);
5876         }
5877     }
5878
5879     IXMLDOMDocument_Release(doc2);
5880     IXMLDOMDocument_Release(doc);
5881 }
5882
5883 static void test_DocumentSaveToFile(void)
5884 {
5885     IXMLDOMDocument *doc;
5886     IXMLDOMElement *pRoot;
5887     HANDLE file;
5888     char buffer[100];
5889     DWORD read = 0;
5890     HRESULT hr;
5891
5892     doc = create_document(&IID_IXMLDOMDocument);
5893     if (!doc) return;
5894
5895     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5896     ok(hr == S_OK, "ret %08x\n", hr );
5897     if(hr == S_OK)
5898     {
5899         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5900         ok(hr == S_OK, "ret %08x\n", hr );
5901         if(hr == S_OK)
5902         {
5903             VARIANT vFile;
5904
5905             V_VT(&vFile) = VT_BSTR;
5906             V_BSTR(&vFile) = _bstr_("test.xml");
5907
5908             hr = IXMLDOMDocument_save(doc, vFile);
5909             ok(hr == S_OK, "ret %08x\n", hr );
5910         }
5911     }
5912
5913     IXMLDOMElement_Release(pRoot);
5914     IXMLDOMDocument_Release(doc);
5915
5916     file = CreateFile("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
5917     ok(file != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
5918     if(file == INVALID_HANDLE_VALUE)
5919         return;
5920
5921     ReadFile(file, buffer, sizeof(buffer), &read, NULL);
5922     ok(read != 0, "could not read file\n");
5923     ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
5924
5925     CloseHandle(file);
5926     DeleteFile("test.xml");
5927 }
5928
5929 static void test_testTransforms(void)
5930 {
5931     IXMLDOMDocument *doc, *docSS;
5932     IXMLDOMNode *pNode;
5933     VARIANT_BOOL bSucc;
5934
5935     HRESULT hr;
5936
5937     doc = create_document(&IID_IXMLDOMDocument);
5938     if (!doc) return;
5939
5940     docSS = create_document(&IID_IXMLDOMDocument);
5941     if (!docSS)
5942     {
5943         IXMLDOMDocument_Release(doc);
5944         return;
5945     }
5946
5947     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
5948     ok(hr == S_OK, "ret %08x\n", hr );
5949
5950     hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
5951     ok(hr == S_OK, "ret %08x\n", hr );
5952
5953     hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
5954     ok(hr == S_OK, "ret %08x\n", hr );
5955     if(hr == S_OK)
5956     {
5957         BSTR bOut;
5958
5959         hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
5960         ok(hr == S_OK, "ret %08x\n", hr );
5961         ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "Stylesheet output not correct\n");
5962         SysFreeString(bOut);
5963
5964         IXMLDOMNode_Release(pNode);
5965     }
5966
5967     IXMLDOMDocument_Release(docSS);
5968     IXMLDOMDocument_Release(doc);
5969
5970     free_bstrs();
5971 }
5972
5973 static void test_Namespaces(void)
5974 {
5975     IXMLDOMDocument *doc;
5976     IXMLDOMNode *pNode;
5977     IXMLDOMNode *pNode2 = NULL;
5978     VARIANT_BOOL bSucc;
5979     HRESULT hr;
5980     BSTR str;
5981     static  const CHAR szNamespacesXML[] =
5982 "<?xml version=\"1.0\"?>\n"
5983 "<root xmlns:WEB='http://www.winehq.org'>\n"
5984 "<WEB:Site version=\"1.0\" />\n"
5985 "</root>";
5986
5987     doc = create_document(&IID_IXMLDOMDocument);
5988     if (!doc) return;
5989
5990     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szNamespacesXML), &bSucc);
5991     ok(hr == S_OK, "ret %08x\n", hr );
5992     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
5993
5994     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root"), &pNode );
5995     ok(hr == S_OK, "ret %08x\n", hr );
5996     if(hr == S_OK)
5997     {
5998         hr = IXMLDOMNode_get_firstChild( pNode, &pNode2 );
5999         ok( hr == S_OK, "ret %08x\n", hr );
6000         ok( pNode2 != NULL, "pNode2 == NULL\n");
6001
6002         /* Test get_prefix */
6003         hr = IXMLDOMNode_get_prefix(pNode2, NULL);
6004         ok( hr == E_INVALIDARG, "ret %08x\n", hr );
6005         /* NOTE: Need to test that arg2 gets cleared on Error. */
6006
6007         hr = IXMLDOMNode_get_prefix(pNode2, &str);
6008         ok( hr == S_OK, "ret %08x\n", hr );
6009         ok( !lstrcmpW( str, _bstr_("WEB")), "incorrect prefix string\n");
6010         SysFreeString(str);
6011
6012         /* Test get_namespaceURI */
6013         hr = IXMLDOMNode_get_namespaceURI(pNode2, NULL);
6014         ok( hr == E_INVALIDARG, "ret %08x\n", hr );
6015         /* NOTE: Need to test that arg2 gets cleared on Error. */
6016
6017         hr = IXMLDOMNode_get_namespaceURI(pNode2, &str);
6018         ok( hr == S_OK, "ret %08x\n", hr );
6019         ok( !lstrcmpW( str, _bstr_("http://www.winehq.org")), "incorrect namespaceURI string\n");
6020         SysFreeString(str);
6021
6022         IXMLDOMNode_Release(pNode2);
6023         IXMLDOMNode_Release(pNode);
6024     }
6025
6026     IXMLDOMDocument_Release(doc);
6027
6028     free_bstrs();
6029 }
6030
6031 static void test_FormattingXML(void)
6032 {
6033     IXMLDOMDocument *doc;
6034     IXMLDOMElement *pElement;
6035     VARIANT_BOOL bSucc;
6036     HRESULT hr;
6037     BSTR str;
6038     static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
6039     static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
6040
6041     doc = create_document(&IID_IXMLDOMDocument);
6042     if (!doc) return;
6043
6044     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
6045     ok(hr == S_OK, "ret %08x\n", hr );
6046     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6047
6048     if(bSucc == VARIANT_TRUE)
6049     {
6050         hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
6051         ok(hr == S_OK, "ret %08x\n", hr );
6052         if(hr == S_OK)
6053         {
6054             hr = IXMLDOMElement_get_xml(pElement, &str);
6055             ok(hr == S_OK, "ret %08x\n", hr );
6056             ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
6057             SysFreeString(str);
6058
6059             IXMLDOMElement_Release(pElement);
6060         }
6061     }
6062
6063     IXMLDOMDocument_Release(doc);
6064
6065     free_bstrs();
6066 }
6067
6068 typedef struct _nodetypedvalue_t {
6069     const char *name;
6070     VARTYPE type;
6071     const char *value; /* value in string format */
6072 } nodetypedvalue_t;
6073
6074 static const nodetypedvalue_t get_nodetypedvalue[] = {
6075     { "root/string",    VT_BSTR, "Wine" },
6076     { "root/string2",   VT_BSTR, "String" },
6077     { "root/number",    VT_BSTR, "12.44" },
6078     { "root/number2",   VT_BSTR, "-3.71e3" },
6079     { "root/int",       VT_I4,   "-13" },
6080     { "root/fixed",     VT_CY,   "7322.9371" },
6081     { "root/bool",      VT_BOOL, "-1" },
6082     { "root/datetime",  VT_DATE, "40135.14" },
6083     { "root/datetimetz",VT_DATE, "37813.59" },
6084     { "root/date",      VT_DATE, "665413" },
6085     { "root/time",      VT_DATE, "0.5813889" },
6086     { "root/timetz",    VT_DATE, "1.112512" },
6087     { "root/i1",        VT_I1,   "-13" },
6088     { "root/i2",        VT_I2,   "31915" },
6089     { "root/i4",        VT_I4,   "-312232" },
6090     { "root/ui1",       VT_UI1,  "123" },
6091     { "root/ui2",       VT_UI2,  "48282" },
6092     { "root/ui4",       VT_UI4,  "949281" },
6093     { "root/r4",        VT_R4,   "213124" },
6094     { "root/r8",        VT_R8,   "0.412" },
6095     { "root/float",     VT_R8,   "41221.421" },
6096     { "root/uuid",      VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
6097     { 0 }
6098 };
6099
6100 static void test_nodeTypedValue(void)
6101 {
6102     const nodetypedvalue_t *entry = get_nodetypedvalue;
6103     IXMLDOMDocument *doc;
6104     IXMLDOMNode *node;
6105     VARIANT_BOOL b;
6106     VARIANT value;
6107     HRESULT hr;
6108
6109     doc = create_document(&IID_IXMLDOMDocument);
6110     if (!doc) return;
6111
6112     b = VARIANT_FALSE;
6113     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
6114     ok(hr == S_OK, "ret %08x\n", hr );
6115     ok(b == VARIANT_TRUE, "got %d\n", b);
6116
6117     hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
6118     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6119
6120     V_VT(&value) = VT_BSTR;
6121     V_BSTR(&value) = NULL;
6122     hr = IXMLDOMDocument_get_nodeValue(doc, &value);
6123     ok(hr == S_FALSE, "ret %08x\n", hr );
6124     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6125
6126     hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
6127     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6128
6129     hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
6130     ok(hr == S_FALSE, "ret %08x\n", hr );
6131
6132     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
6133     ok(hr == S_OK, "ret %08x\n", hr );
6134
6135     V_VT(&value) = VT_BSTR;
6136     V_BSTR(&value) = NULL;
6137     hr = IXMLDOMNode_get_nodeValue(node, &value);
6138     ok(hr == S_FALSE, "ret %08x\n", hr );
6139     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6140
6141     hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
6142     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6143
6144     IXMLDOMNode_Release(node);
6145
6146     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
6147     ok(hr == S_OK, "ret %08x\n", hr );
6148     {
6149         BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
6150
6151         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6152         ok(hr == S_OK, "ret %08x\n", hr );
6153         ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6154         ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
6155         if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
6156             ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6157         VariantClear(&value);
6158         IXMLDOMNode_Release(node);
6159     }
6160
6161     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binbase64"), &node);
6162     ok(hr == S_OK, "ret %08x\n", hr );
6163     {
6164         BYTE bytes[] = {0x62,0x61,0x73,0x65,0x36,0x34,0x20,0x74,0x65,0x73,0x74};
6165
6166         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6167         ok(hr == S_OK, "ret %08x\n", hr );
6168         ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6169         ok(V_ARRAY(&value)->rgsabound[0].cElements == 11, "incorrect array size\n");
6170         if(V_ARRAY(&value)->rgsabound[0].cElements == 11)
6171             ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6172         VariantClear(&value);
6173         IXMLDOMNode_Release(node);
6174     }
6175
6176     while (entry->name)
6177     {
6178         hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
6179         ok(hr == S_OK, "ret %08x\n", hr );
6180
6181         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6182         ok(hr == S_OK, "ret %08x\n", hr );
6183         ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
6184
6185         if (entry->type != VT_BSTR)
6186         {
6187            if (entry->type == VT_DATE ||
6188                entry->type == VT_R8 ||
6189                entry->type == VT_CY)
6190            {
6191                if (entry->type == VT_DATE)
6192                {
6193                    hr = VariantChangeType(&value, &value, 0, VT_R4);
6194                    ok(hr == S_OK, "ret %08x\n", hr );
6195                }
6196                hr = VariantChangeTypeEx(&value, &value,
6197                                         MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
6198                                         VARIANT_NOUSEROVERRIDE, VT_BSTR);
6199                ok(hr == S_OK, "ret %08x\n", hr );
6200            }
6201            else
6202            {
6203                hr = VariantChangeType(&value, &value, 0, VT_BSTR);
6204                ok(hr == S_OK, "ret %08x\n", hr );
6205            }
6206
6207            ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6208               "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6209         }
6210         else
6211            ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6212                "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6213
6214         VariantClear( &value );
6215         IXMLDOMNode_Release(node);
6216
6217         entry++;
6218     }
6219
6220     IXMLDOMDocument_Release(doc);
6221     free_bstrs();
6222 }
6223
6224 static void test_TransformWithLoadingLocalFile(void)
6225 {
6226     IXMLDOMDocument *doc;
6227     IXMLDOMDocument *xsl;
6228     IXMLDOMNode *pNode;
6229     VARIANT_BOOL bSucc;
6230     HRESULT hr;
6231     HANDLE file;
6232     DWORD dwWritten;
6233     char lpPathBuffer[MAX_PATH];
6234     int i;
6235
6236     /* Create a Temp File. */
6237     GetTempPathA(MAX_PATH, lpPathBuffer);
6238     strcat(lpPathBuffer, "customers.xml" );
6239
6240     file = CreateFile(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
6241     ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
6242     if(file == INVALID_HANDLE_VALUE)
6243         return;
6244
6245     WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
6246     CloseHandle(file);
6247
6248     /* Correct path to not include a escape character. */
6249     for(i=0; i < strlen(lpPathBuffer); i++)
6250     {
6251         if(lpPathBuffer[i] == '\\')
6252             lpPathBuffer[i] = '/';
6253     }
6254
6255     doc = create_document(&IID_IXMLDOMDocument);
6256     if (!doc) return;
6257
6258     xsl = create_document(&IID_IXMLDOMDocument);
6259     if (!xsl)
6260     {
6261         IXMLDOMDocument2_Release(doc);
6262         return;
6263     }
6264
6265     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
6266     ok(hr == S_OK, "ret %08x\n", hr );
6267     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6268     if(bSucc == VARIANT_TRUE)
6269     {
6270         BSTR sXSL;
6271         BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
6272         BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
6273         BSTR sFileName = _bstr_(lpPathBuffer);
6274         int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
6275
6276         sXSL = SysAllocStringLen(NULL, nLegnth);
6277         lstrcpyW(sXSL, sPart1);
6278         lstrcatW(sXSL, sFileName);
6279         lstrcatW(sXSL, sPart2);
6280
6281         hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
6282         ok(hr == S_OK, "ret %08x\n", hr );
6283         ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6284         if(bSucc == VARIANT_TRUE)
6285         {
6286             BSTR sResult;
6287
6288             hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
6289             ok(hr == S_OK, "ret %08x\n", hr );
6290             if(hr == S_OK)
6291             {
6292                 /* This will load the temp file via the XSL */
6293                 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
6294                 ok(hr == S_OK, "ret %08x\n", hr );
6295                 if(hr == S_OK)
6296                 {
6297                     ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
6298                     SysFreeString(sResult);
6299                 }
6300
6301                 IXMLDOMNode_Release(pNode);
6302             }
6303         }
6304
6305         SysFreeString(sXSL);
6306     }
6307
6308     IXMLDOMDocument_Release(doc);
6309     IXMLDOMDocument_Release(xsl);
6310
6311     DeleteFile(lpPathBuffer);
6312     free_bstrs();
6313 }
6314
6315 static void test_put_nodeValue(void)
6316 {
6317     static const WCHAR jeevesW[] = {'J','e','e','v','e','s',' ','&',' ','W','o','o','s','t','e','r',0};
6318     IXMLDOMDocument *doc;
6319     IXMLDOMText *text;
6320     IXMLDOMEntityReference *entityref;
6321     IXMLDOMAttribute *attr;
6322     IXMLDOMNode *node;
6323     HRESULT hr;
6324     VARIANT data, type;
6325
6326     doc = create_document(&IID_IXMLDOMDocument);
6327     if (!doc) return;
6328
6329     /* test for unsupported types */
6330     /* NODE_DOCUMENT */
6331     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6332     ok(hr == S_OK, "ret %08x\n", hr );
6333     V_VT(&data) = VT_BSTR;
6334     V_BSTR(&data) = _bstr_("one two three");
6335     hr = IXMLDOMNode_put_nodeValue(node, data);
6336     ok(hr == E_FAIL, "ret %08x\n", hr );
6337     IXMLDOMNode_Release(node);
6338
6339     /* NODE_DOCUMENT_FRAGMENT */
6340     V_VT(&type) = VT_I1;
6341     V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6342     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6343     ok(hr == S_OK, "ret %08x\n", hr );
6344     V_VT(&data) = VT_BSTR;
6345     V_BSTR(&data) = _bstr_("one two three");
6346     hr = IXMLDOMNode_put_nodeValue(node, data);
6347     ok(hr == E_FAIL, "ret %08x\n", hr );
6348     IXMLDOMNode_Release(node);
6349
6350     /* NODE_ELEMENT */
6351     V_VT(&type) = VT_I1;
6352     V_I1(&type) = NODE_ELEMENT;
6353     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6354     ok(hr == S_OK, "ret %08x\n", hr );
6355     V_VT(&data) = VT_BSTR;
6356     V_BSTR(&data) = _bstr_("one two three");
6357     hr = IXMLDOMNode_put_nodeValue(node, data);
6358     ok(hr == E_FAIL, "ret %08x\n", hr );
6359     IXMLDOMNode_Release(node);
6360
6361     /* NODE_ENTITY_REFERENCE */
6362     hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6363     ok(hr == S_OK, "ret %08x\n", hr );
6364
6365     V_VT(&data) = VT_BSTR;
6366     V_BSTR(&data) = _bstr_("one two three");
6367     hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6368     ok(hr == E_FAIL, "ret %08x\n", hr );
6369
6370     hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6371     ok(hr == S_OK, "ret %08x\n", hr );
6372     V_VT(&data) = VT_BSTR;
6373     V_BSTR(&data) = _bstr_("one two three");
6374     hr = IXMLDOMNode_put_nodeValue(node, data);
6375     ok(hr == E_FAIL, "ret %08x\n", hr );
6376     IXMLDOMNode_Release(node);
6377     IXMLDOMEntityReference_Release(entityref);
6378
6379     /* supported types */
6380     hr = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &text);
6381     ok(hr == S_OK, "ret %08x\n", hr );
6382     V_VT(&data) = VT_BSTR;
6383     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6384     hr = IXMLDOMText_put_nodeValue(text, data);
6385     ok(hr == S_OK, "ret %08x\n", hr );
6386     IXMLDOMText_Release(text);
6387
6388     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6389     ok(hr == S_OK, "ret %08x\n", hr );
6390     V_VT(&data) = VT_BSTR;
6391     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6392     hr = IXMLDOMAttribute_put_nodeValue(attr, data);
6393     ok(hr == S_OK, "ret %08x\n", hr );
6394     hr = IXMLDOMAttribute_get_nodeValue(attr, &data);
6395     ok(hr == S_OK, "ret %08x\n", hr );
6396     ok(memcmp(V_BSTR(&data), jeevesW, sizeof(jeevesW)) == 0, "got %s\n",
6397         wine_dbgstr_w(V_BSTR(&data)));
6398     VariantClear(&data);
6399     IXMLDOMAttribute_Release(attr);
6400
6401     free_bstrs();
6402
6403     IXMLDOMDocument_Release(doc);
6404 }
6405
6406 static void test_IObjectSafety_set(IObjectSafety *safety, HRESULT result, HRESULT result2, DWORD set, DWORD mask, DWORD expected, DWORD expected2)
6407 {
6408     DWORD enabled, supported;
6409     HRESULT hr;
6410
6411     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
6412     if (result == result2)
6413         ok(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
6414     else
6415         ok(broken(hr == result) || hr == result2,
6416            "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
6417
6418     supported = enabled = 0xCAFECAFE;
6419     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6420     ok(hr == S_OK, "ret %08x\n", hr );
6421     if (expected == expected2)
6422         ok(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
6423     else
6424         ok(broken(enabled == expected) || enabled == expected2,
6425            "Expected %08x, got %08x\n", expected2, enabled);
6426
6427     /* reset the safety options */
6428
6429     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6430             INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
6431             0);
6432     ok(hr == S_OK, "ret %08x\n", hr );
6433
6434     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6435     ok(hr == S_OK, "ret %08x\n", hr );
6436     ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6437 }
6438
6439 static void test_document_IObjectSafety(void)
6440 {
6441     IXMLDOMDocument *doc;
6442     IObjectSafety *safety;
6443     DWORD enabled = 0, supported = 0;
6444     HRESULT hr;
6445
6446     doc = create_document(&IID_IXMLDOMDocument);
6447     if (!doc) return;
6448
6449     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6450     ok(hr == S_OK, "ret %08x\n", hr );
6451
6452     /* get */
6453     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
6454     ok(hr == E_POINTER, "ret %08x\n", hr );
6455     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
6456     ok(hr == E_POINTER, "ret %08x\n", hr );
6457
6458     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6459     ok(hr == S_OK, "ret %08x\n", hr );
6460     ok(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
6461        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6462         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
6463              "got %08x\n", supported);
6464     ok(enabled == 0, "Expected 0, got %08x\n", enabled);
6465
6466     /* set -- individual flags */
6467
6468     test_IObjectSafety_set(safety, S_OK, S_OK,
6469         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6470         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6471
6472     test_IObjectSafety_set(safety, S_OK, S_OK,
6473         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
6474         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
6475
6476     test_IObjectSafety_set(safety, S_OK, S_OK,
6477         INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
6478         0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
6479
6480     /* set INTERFACE_USES_DISPEX  */
6481
6482     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6483         INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
6484         0, 0);
6485
6486     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
6487         INTERFACE_USES_DISPEX, 0,
6488         0, 0);
6489
6490     test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
6491         0, INTERFACE_USES_DISPEX,
6492         0, 0);
6493
6494     /* set option masking */
6495
6496     test_IObjectSafety_set(safety, S_OK, S_OK,
6497         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6498         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6499         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6500         INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6501
6502     test_IObjectSafety_set(safety, S_OK, S_OK,
6503         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6504         INTERFACESAFE_FOR_UNTRUSTED_DATA,
6505         INTERFACESAFE_FOR_UNTRUSTED_DATA,
6506         INTERFACESAFE_FOR_UNTRUSTED_DATA);
6507
6508     test_IObjectSafety_set(safety, S_OK, S_OK,
6509         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
6510         INTERFACE_USES_SECURITY_MANAGER,
6511         0,
6512         0);
6513
6514     /* set -- inheriting previous settings */
6515
6516     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6517                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER,
6518                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER);
6519     ok(hr == S_OK, "ret %08x\n", hr );
6520     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6521     ok(hr == S_OK, "ret %08x\n", hr );
6522     todo_wine
6523     ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER) ||
6524        enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
6525          "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACE_USES_SECURITY_MANAGER), "
6526          "got %08x\n", enabled);
6527
6528     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
6529                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA,
6530                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA);
6531     ok(hr == S_OK, "ret %08x\n", hr );
6532     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
6533     ok(hr == S_OK, "ret %08x\n", hr );
6534     todo_wine
6535     ok(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
6536        enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) /* msxml3 SP8+ */,
6537         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA), "
6538         "got %08x\n", enabled);
6539
6540     IObjectSafety_Release(safety);
6541
6542     IXMLDOMDocument_Release(doc);
6543 }
6544
6545 typedef struct _property_test_t {
6546     const GUID *guid;
6547     const char *clsid;
6548     const char *property;
6549     const char *value;
6550 } property_test_t;
6551
6552 static const property_test_t properties_test_data[] = {
6553     { &CLSID_DOMDocument,  "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6554     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6555     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6556     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6557     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6558     { 0 }
6559 };
6560
6561 static void test_default_properties(void)
6562 {
6563     const property_test_t *entry = properties_test_data;
6564     IXMLDOMDocument2 *doc;
6565     VARIANT var;
6566     HRESULT hr;
6567
6568     while (entry->guid)
6569     {
6570         hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6571         if (hr != S_OK)
6572         {
6573             win_skip("can't create %s instance\n", entry->clsid);
6574             entry++;
6575             continue;
6576         }
6577
6578         hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6579         ok(hr == S_OK, "got 0x%08x\n", hr);
6580         ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6581            entry->value, entry->clsid);
6582         VariantClear(&var);
6583
6584         IXMLDOMDocument2_Release(doc);
6585
6586         entry++;
6587     }
6588 }
6589
6590 static void test_XSLPattern(void)
6591 {
6592     IXMLDOMDocument2 *doc;
6593     IXMLDOMNodeList *list;
6594     VARIANT_BOOL b;
6595     LONG len;
6596
6597     doc = create_document(&IID_IXMLDOMDocument2);
6598     if (!doc) return;
6599
6600     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b));
6601     ok(b == VARIANT_TRUE, "failed to load XML string\n");
6602
6603     /* switch to XSLPattern */
6604     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
6605
6606     /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6607     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list));
6608     len = 0;
6609     ole_check(IXMLDOMNodeList_get_length(list, &len));
6610     /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6611     ok(len == 3, "expected 3 entries in list, got %d\n", len);
6612     IXMLDOMNodeList_Release(list);
6613
6614     /* for XSLPattern start index is 0, for XPath it's 1 */
6615     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
6616     len = 0;
6617     ole_check(IXMLDOMNodeList_get_length(list, &len));
6618     ok(len != 0, "expected filled list\n");
6619     if (len)
6620         expect_list_and_release(list, "E1.E2.D1");
6621
6622     /* index() */
6623     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=1]"), &list));
6624     len = 0;
6625     ole_check(IXMLDOMNodeList_get_length(list, &len));
6626     ok(len != 0, "expected filled list\n");
6627     if (len)
6628         expect_list_and_release(list, "E2.E2.D1");
6629
6630     /* $eq$ */
6631     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $eq$ 1]"), &list));
6632     len = 0;
6633     ole_check(IXMLDOMNodeList_get_length(list, &len));
6634     ok(len != 0, "expected filled list\n");
6635     if (len)
6636         expect_list_and_release(list, "E2.E2.D1");
6637
6638     /* end() */
6639     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[end()]"), &list));
6640     len = 0;
6641     ole_check(IXMLDOMNodeList_get_length(list, &len));
6642     ok(len != 0, "expected filled list\n");
6643     if (len)
6644         expect_list_and_release(list, "E4.E2.D1");
6645
6646     /* $not$ */
6647     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$not$ end()]"), &list));
6648     len = 0;
6649     ole_check(IXMLDOMNodeList_get_length(list, &len));
6650     ok(len != 0, "expected filled list\n");
6651     if (len)
6652         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
6653
6654     /* !=/$ne$ */
6655     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() != 0]"), &list));
6656     len = 0;
6657     ole_check(IXMLDOMNodeList_get_length(list, &len));
6658     ok(len != 0, "expected filled list\n");
6659     if (len)
6660         expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6661     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ne$ 0]"), &list));
6662     len = 0;
6663     ole_check(IXMLDOMNodeList_get_length(list, &len));
6664     ok(len != 0, "expected filled list\n");
6665     if (len)
6666         expect_list_and_release(list, "E2.E2.D1 E3.E2.D1 E4.E2.D1");
6667
6668     /* </$lt$ */
6669     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() < 2]"), &list));
6670     len = 0;
6671     ole_check(IXMLDOMNodeList_get_length(list, &len));
6672     ok(len != 0, "expected filled list\n");
6673     if (len)
6674         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6675     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $lt$ 2]"), &list));
6676     len = 0;
6677     ole_check(IXMLDOMNodeList_get_length(list, &len));
6678     ok(len != 0, "expected filled list\n");
6679     if (len)
6680         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6681
6682     /* <=/$le$ */
6683     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() <= 1]"), &list));
6684     len = 0;
6685     ole_check(IXMLDOMNodeList_get_length(list, &len));
6686     ok(len != 0, "expected filled list\n");
6687     if (len)
6688         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6689     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $le$ 1]"), &list));
6690     len = 0;
6691     ole_check(IXMLDOMNodeList_get_length(list, &len));
6692     ok(len != 0, "expected filled list\n");
6693     if (len)
6694         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6695
6696     /* >/$gt$ */
6697     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() > 1]"), &list));
6698     len = 0;
6699     ole_check(IXMLDOMNodeList_get_length(list, &len));
6700     ok(len != 0, "expected filled list\n");
6701     if (len)
6702         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6703     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $gt$ 1]"), &list));
6704     len = 0;
6705     ole_check(IXMLDOMNodeList_get_length(list, &len));
6706     ok(len != 0, "expected filled list\n");
6707     if (len)
6708         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6709
6710     /* >=/$ge$ */
6711     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() >= 2]"), &list));
6712     len = 0;
6713     ole_check(IXMLDOMNodeList_get_length(list, &len));
6714     ok(len != 0, "expected filled list\n");
6715     if (len)
6716         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6717     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index() $ge$ 2]"), &list));
6718     len = 0;
6719     ole_check(IXMLDOMNodeList_get_length(list, &len));
6720     ok(len != 0, "expected filled list\n");
6721     if (len)
6722         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6723
6724     /* $ieq$ */
6725     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ieq$ 'a2 field']"), &list));
6726     len = 0;
6727     ole_check(IXMLDOMNodeList_get_length(list, &len));
6728     ok(len != 0, "expected filled list\n");
6729     if (len)
6730         expect_list_and_release(list, "E2.E2.D1");
6731
6732     /* $ine$ */
6733     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ine$ 'a2 field']"), &list));
6734     len = 0;
6735     ole_check(IXMLDOMNodeList_get_length(list, &len));
6736     ok(len != 0, "expected filled list\n");
6737     if (len)
6738         expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6739
6740     /* $ilt$ */
6741     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ilt$ 'a3 field']"), &list));
6742     len = 0;
6743     ole_check(IXMLDOMNodeList_get_length(list, &len));
6744     ok(len != 0, "expected filled list\n");
6745     if (len)
6746         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6747
6748     /* $ile$ */
6749     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ile$ 'a2 field']"), &list));
6750     len = 0;
6751     ole_check(IXMLDOMNodeList_get_length(list, &len));
6752     ok(len != 0, "expected filled list\n");
6753     if (len)
6754         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1");
6755
6756     /* $igt$ */
6757     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $igt$ 'a2 field']"), &list));
6758     len = 0;
6759     ole_check(IXMLDOMNodeList_get_length(list, &len));
6760     ok(len != 0, "expected filled list\n");
6761     if (len)
6762         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6763
6764     /* $ige$ */
6765     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[a $ige$ 'a3 field']"), &list));
6766     len = 0;
6767     ole_check(IXMLDOMNodeList_get_length(list, &len));
6768     ok(len != 0, "expected filled list\n");
6769     if (len)
6770         expect_list_and_release(list, "E3.E2.D1 E4.E2.D1");
6771
6772     /* $any$ */
6773     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$any$ *='B2 field']"), &list));
6774     len = 0;
6775     ole_check(IXMLDOMNodeList_get_length(list, &len));
6776     ok(len != 0, "expected filled list\n");
6777     if (len)
6778         expect_list_and_release(list, "E2.E2.D1");
6779
6780     /* $all$ */
6781     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[$all$ *!='B2 field']"), &list));
6782     len = 0;
6783     ole_check(IXMLDOMNodeList_get_length(list, &len));
6784     ok(len != 0, "expected filled list\n");
6785     if (len)
6786         expect_list_and_release(list, "E1.E2.D1 E3.E2.D1 E4.E2.D1");
6787
6788     /* or/$or$/|| */
6789     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 or end()]"), &list));
6790     len = 0;
6791     ole_check(IXMLDOMNodeList_get_length(list, &len));
6792     ok(len != 0, "expected filled list\n");
6793     if (len)
6794         expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6795     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 $or$ end()]"), &list));
6796     len = 0;
6797     ole_check(IXMLDOMNodeList_get_length(list, &len));
6798     ok(len != 0, "expected filled list\n");
6799     if (len)
6800         expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6801     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()=0 || end()]"), &list));
6802     len = 0;
6803     ole_check(IXMLDOMNodeList_get_length(list, &len));
6804     ok(len != 0, "expected filled list\n");
6805     if (len)
6806         expect_list_and_release(list, "E1.E2.D1 E4.E2.D1");
6807
6808     /* and/$and$/&& */
6809     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 and $not$ end()]"), &list));
6810     len = 0;
6811     ole_check(IXMLDOMNodeList_get_length(list, &len));
6812     ok(len != 0, "expected filled list\n");
6813     if (len)
6814         expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6815     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 $and$ $not$ end()]"), &list));
6816     len = 0;
6817     ole_check(IXMLDOMNodeList_get_length(list, &len));
6818     ok(len != 0, "expected filled list\n");
6819     if (len)
6820         expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6821     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[index()>0 && $not$ end()]"), &list));
6822     len = 0;
6823     ole_check(IXMLDOMNodeList_get_length(list, &len));
6824     ok(len != 0, "expected filled list\n");
6825     if (len)
6826         expect_list_and_release(list, "E2.E2.D1 E3.E2.D1");
6827
6828     /* namespace handling */
6829     /* no registered namespaces */
6830     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("")));
6831     list = NULL;
6832
6833     /* prefixes don't need to be registered, you may use them as they are in the doc */
6834     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//bar:x"), &list));
6835     len = 0;
6836     ole_check(IXMLDOMNodeList_get_length(list, &len));
6837     ok(len != 0, "expected filled list\n");
6838     if (len)
6839         expect_list_and_release(list, "E5.E1.E4.E1.E2.D1 E6.E2.E4.E1.E2.D1");
6840
6841     /* prefixes must be explicitly specified in the name */
6842     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:elem"), &list));
6843     len = 0;
6844     ole_check(IXMLDOMNodeList_get_length(list, &len));
6845     ok(len == 0, "expected empty list\n");
6846     if (len)
6847         IXMLDOMNodeList_Release(list);
6848
6849     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list));
6850     len = 0;
6851     ole_check(IXMLDOMNodeList_get_length(list, &len));
6852     ok(len != 0, "expected filled list\n");
6853     if (len)
6854         expect_list_and_release(list, "E3.E4.E2.D1");
6855
6856     /* explicitly register prefix foo */
6857     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
6858
6859     /* now we get the same behavior as XPath */
6860     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list));
6861     len = 0;
6862     ole_check(IXMLDOMNodeList_get_length(list, &len));
6863     ok(len != 0, "expected filled list\n");
6864     if (len)
6865         expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
6866
6867     /* set prefix foo to some nonexistent namespace */
6868     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:nonexistent-foo'")));
6869
6870     /* the registered prefix takes precedence */
6871     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list));
6872     len = 0;
6873     ole_check(IXMLDOMNodeList_get_length(list, &len));
6874     ok(len == 0, "expected empty list\n");
6875     if (len)
6876         IXMLDOMNodeList_Release(list);
6877
6878     IXMLDOMDocument2_Release(doc);
6879
6880     doc = create_document(&IID_IXMLDOMDocument2);
6881     if (!doc) return;
6882
6883     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(szNodeTypesXML), &b));
6884     ok(b == VARIANT_TRUE, "failed to load XML string\n");
6885     list = NULL;
6886
6887     /* attribute() */
6888     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("attribute()"), &list));
6889     len = 0;
6890     ole_check(IXMLDOMNodeList_get_length(list, &len));
6891     ok(len == 0, "expected empty list\n");
6892     if (len)
6893         IXMLDOMNodeList_Release(list);
6894
6895     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("attribute('depth')"), &list));
6896     len = 0;
6897     ole_check(IXMLDOMNodeList_get_length(list, &len));
6898     ok(len == 0, "expected empty list\n");
6899     if (len)
6900         IXMLDOMNodeList_Release(list);
6901
6902     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root/attribute('depth')"), &list));
6903     len = 0;
6904     ole_check(IXMLDOMNodeList_get_length(list, &len));
6905     ok(len != 0, "expected filled list\n");
6906     if (len)
6907         expect_list_and_release(list, "A'depth'.E3.D1");
6908
6909     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/attribute()"), &list));
6910     len = 0;
6911     ole_check(IXMLDOMNodeList_get_length(list, &len));
6912     ok(len != 0, "expected filled list\n");
6913     if (len)
6914         expect_list_and_release(list, "A'id'.E3.E3.D1 A'depth'.E3.E3.D1");
6915
6916     list = NULL;
6917     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x//attribute(id)"), &list), E_FAIL);
6918     if (list)
6919         IXMLDOMNodeList_Release(list);
6920     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x//attribute('id')"), &list));
6921     len = 0;
6922     ole_check(IXMLDOMNodeList_get_length(list, &len));
6923     ok(len != 0, "expected filled list\n");
6924     if (len)
6925         expect_list_and_release(list, "A'id'.E3.E3.D1 A'id'.E4.E3.E3.D1 A'id'.E5.E3.E3.D1 A'id'.E6.E3.E3.D1");
6926
6927     /* comment() */
6928     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("comment()"), &list));
6929     len = 0;
6930     ole_check(IXMLDOMNodeList_get_length(list, &len));
6931     ok(len != 0, "expected filled list\n");
6932     if (len)
6933         expect_list_and_release(list, "C2.D1");
6934
6935     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//comment()"), &list));
6936     len = 0;
6937     ole_check(IXMLDOMNodeList_get_length(list, &len));
6938     ok(len != 0, "expected filled list\n");
6939     if (len)
6940         expect_list_and_release(list, "C2.D1 C1.E3.D1 C2.E3.E3.D1 C2.E4.E3.D1");
6941
6942     /* element() */
6943     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("element()"), &list));
6944     len = 0;
6945     ole_check(IXMLDOMNodeList_get_length(list, &len));
6946     ok(len != 0, "expected filled list\n");
6947     if (len)
6948         expect_list_and_release(list, "E3.D1");
6949
6950     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root/y/element()"), &list));
6951     len = 0;
6952     ole_check(IXMLDOMNodeList_get_length(list, &len));
6953     ok(len != 0, "expected filled list\n");
6954     if (len)
6955         expect_list_and_release(list, "E4.E4.E3.D1 E5.E4.E3.D1 E6.E4.E3.D1");
6956
6957     list = NULL;
6958     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("//element(a)"), &list), E_FAIL);
6959     if (list)
6960         IXMLDOMNodeList_Release(list);
6961     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//element('a')"), &list));
6962     len = 0;
6963     ole_check(IXMLDOMNodeList_get_length(list, &len));
6964     ok(len != 0, "expected filled list\n");
6965     if (len)
6966         expect_list_and_release(list, "E4.E3.E3.D1 E4.E4.E3.D1");
6967
6968     /* node() */
6969     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("node()"), &list));
6970     len = 0;
6971     ole_check(IXMLDOMNodeList_get_length(list, &len));
6972     ok(len != 0, "expected filled list\n");
6973     if (len)
6974         expect_list_and_release(list, "P1.D1 C2.D1 E3.D1");
6975
6976     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/node()"), &list));
6977     len = 0;
6978     ole_check(IXMLDOMNodeList_get_length(list, &len));
6979     ok(len != 0, "expected filled list\n");
6980     if (len)
6981         expect_list_and_release(list, "P1.E3.E3.D1 C2.E3.E3.D1 T3.E3.E3.D1 E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1");
6982
6983     /* nodeType() */
6984     /* XML_ELEMENT_NODE */
6985     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/node()[nodeType()=1]"), &list));
6986     len = 0;
6987     ole_check(IXMLDOMNodeList_get_length(list, &len));
6988     ok(len != 0, "expected filled list\n");
6989     if (len)
6990         expect_list_and_release(list, "E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1");
6991     /* XML_TEXT_NODE */
6992     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/node()[nodeType()=3]"), &list));
6993     len = 0;
6994     ole_check(IXMLDOMNodeList_get_length(list, &len));
6995     ok(len != 0, "expected filled list\n");
6996     if (len)
6997         expect_list_and_release(list, "T3.E3.E3.D1");
6998     /* XML_PI_NODE */
6999     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/node()[nodeType()=7]"), &list));
7000     len = 0;
7001     ole_check(IXMLDOMNodeList_get_length(list, &len));
7002     ok(len != 0, "expected filled list\n");
7003     if (len)
7004         expect_list_and_release(list, "P1.E3.E3.D1");
7005     /* XML_COMMENT_NODE */
7006     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//x/node()[nodeType()=8]"), &list));
7007     len = 0;
7008     ole_check(IXMLDOMNodeList_get_length(list, &len));
7009     ok(len != 0, "expected filled list\n");
7010     if (len)
7011         expect_list_and_release(list, "C2.E3.E3.D1");
7012
7013     /* pi() */
7014     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("pi()"), &list));
7015     if (list)
7016     {
7017         len = 0;
7018         ole_check(IXMLDOMNodeList_get_length(list, &len));
7019         ok(len != 0, "expected filled list\n");
7020         if (len)
7021             expect_list_and_release(list, "P1.D1");
7022     }
7023
7024     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//y/pi()"), &list));
7025     len = 0;
7026     ole_check(IXMLDOMNodeList_get_length(list, &len));
7027     ok(len != 0, "expected filled list\n");
7028     if (len)
7029         expect_list_and_release(list, "P1.E4.E3.D1");
7030
7031     /* textnode() */
7032     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root/textnode()"), &list));
7033     len = 0;
7034     ole_check(IXMLDOMNodeList_get_length(list, &len));
7035     ok(len != 0, "expected filled list\n");
7036     if (len)
7037         expect_list_and_release(list, "T2.E3.D1");
7038
7039     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root/element()/textnode()"), &list));
7040     len = 0;
7041     ole_check(IXMLDOMNodeList_get_length(list, &len));
7042     ok(len != 0, "expected filled list\n");
7043     if (len)
7044         expect_list_and_release(list, "T3.E3.E3.D1 T3.E4.E3.D1");
7045
7046     IXMLDOMDocument2_Release(doc);
7047     free_bstrs();
7048 }
7049
7050 static void test_splitText(void)
7051 {
7052     IXMLDOMCDATASection *cdata;
7053     IXMLDOMElement *root;
7054     IXMLDOMDocument *doc;
7055     IXMLDOMText *text, *text2;
7056     IXMLDOMNode *node;
7057     VARIANT var;
7058     VARIANT_BOOL success;
7059     LONG length;
7060     HRESULT hr;
7061
7062     doc = create_document(&IID_IXMLDOMDocument);
7063     if (!doc) return;
7064
7065     hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
7066     ok(hr == S_OK, "got 0x%08x\n", hr);
7067
7068     hr = IXMLDOMDocument_get_documentElement(doc, &root);
7069     ok(hr == S_OK, "got 0x%08x\n", hr);
7070
7071     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
7072     ok(hr == S_OK, "got 0x%08x\n", hr);
7073
7074     V_VT(&var) = VT_EMPTY;
7075     hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
7076     ok(hr == S_OK, "got 0x%08x\n", hr);
7077
7078     length = 0;
7079     hr = IXMLDOMCDATASection_get_length(cdata, &length);
7080     ok(hr == S_OK, "got 0x%08x\n", hr);
7081     ok(length > 0, "got %d\n", length);
7082
7083     hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
7084     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7085
7086     text = (void*)0xdeadbeef;
7087     /* negative offset */
7088     hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
7089     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7090     ok(text == (void*)0xdeadbeef, "got %p\n", text);
7091
7092     text = (void*)0xdeadbeef;
7093     /* offset outside data */
7094     hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
7095     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7096     ok(text == 0, "got %p\n", text);
7097
7098     text = (void*)0xdeadbeef;
7099     /* offset outside data */
7100     hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
7101     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7102     ok(text == 0, "got %p\n", text);
7103
7104     /* no empty node created */
7105     node = (void*)0xdeadbeef;
7106     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7107     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7108     ok(node == 0, "got %p\n", text);
7109
7110     hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
7111     ok(hr == S_OK, "got 0x%08x\n", hr);
7112
7113     length = 0;
7114     hr = IXMLDOMText_get_length(text, &length);
7115     ok(hr == S_OK, "got 0x%08x\n", hr);
7116     ok(length == 7, "got %d\n", length);
7117
7118     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7119     ok(hr == S_OK, "got 0x%08x\n", hr);
7120     IXMLDOMNode_Release(node);
7121
7122     /* split new text node */
7123     hr = IXMLDOMText_get_length(text, &length);
7124     ok(hr == S_OK, "got 0x%08x\n", hr);
7125
7126     node = (void*)0xdeadbeef;
7127     hr = IXMLDOMText_get_nextSibling(text, &node);
7128     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7129     ok(node == 0, "got %p\n", text);
7130
7131     hr = IXMLDOMText_splitText(text, 0, NULL);
7132     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7133
7134     text2 = (void*)0xdeadbeef;
7135     /* negative offset */
7136     hr = IXMLDOMText_splitText(text, -1, &text2);
7137     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7138     ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
7139
7140     text2 = (void*)0xdeadbeef;
7141     /* offset outside data */
7142     hr = IXMLDOMText_splitText(text, length + 1, &text2);
7143     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7144     ok(text2 == 0, "got %p\n", text2);
7145
7146     text2 = (void*)0xdeadbeef;
7147     /* offset outside data */
7148     hr = IXMLDOMText_splitText(text, length, &text2);
7149     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7150     ok(text2 == 0, "got %p\n", text);
7151
7152     text2 = 0;
7153     hr = IXMLDOMText_splitText(text, 4, &text2);
7154     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7155     if (text2) IXMLDOMText_Release(text2);
7156
7157     node = 0;
7158     hr = IXMLDOMText_get_nextSibling(text, &node);
7159     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7160     if (node) IXMLDOMNode_Release(node);
7161
7162     IXMLDOMText_Release(text);
7163     IXMLDOMElement_Release(root);
7164     IXMLDOMCDATASection_Release(cdata);
7165     free_bstrs();
7166 }
7167
7168 static void test_getQualifiedItem(void)
7169 {
7170     IXMLDOMDocument *doc;
7171     IXMLDOMElement *element;
7172     IXMLDOMNode *pr_node, *node;
7173     IXMLDOMNodeList *root_list;
7174     IXMLDOMNamedNodeMap *map;
7175     VARIANT_BOOL b;
7176     BSTR str;
7177     LONG len;
7178     HRESULT hr;
7179
7180     doc = create_document(&IID_IXMLDOMDocument);
7181     if (!doc) return;
7182
7183     str = SysAllocString( szComplete4 );
7184     hr = IXMLDOMDocument_loadXML( doc, str, &b );
7185     ok( hr == S_OK, "loadXML failed\n");
7186     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7187     SysFreeString( str );
7188
7189     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7190     ok( hr == S_OK, "ret %08x\n", hr);
7191
7192     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7193     ok( hr == S_OK, "ret %08x\n", hr);
7194
7195     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7196     ok( hr == S_OK, "ret %08x\n", hr);
7197     IXMLDOMNodeList_Release(root_list);
7198
7199     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7200     ok( hr == S_OK, "ret %08x\n", hr);
7201     IXMLDOMNode_Release(pr_node);
7202
7203     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7204     ok( hr == S_OK, "ret %08x\n", hr);
7205     ok( len == 3, "length %d\n", len);
7206
7207     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
7208     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7209
7210     node = (void*)0xdeadbeef;
7211     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
7212     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7213     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7214
7215     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
7216     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7217
7218     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
7219     ok( hr == S_OK, "ret %08x\n", hr);
7220     IXMLDOMNode_Release(node);
7221
7222     IXMLDOMNamedNodeMap_Release( map );
7223     IXMLDOMElement_Release( element );
7224     IXMLDOMDocument_Release( doc );
7225     free_bstrs();
7226 }
7227
7228 static void test_removeQualifiedItem(void)
7229 {
7230     IXMLDOMDocument *doc;
7231     IXMLDOMElement *element;
7232     IXMLDOMNode *pr_node, *node;
7233     IXMLDOMNodeList *root_list;
7234     IXMLDOMNamedNodeMap *map;
7235     VARIANT_BOOL b;
7236     BSTR str;
7237     LONG len;
7238     HRESULT hr;
7239
7240     doc = create_document(&IID_IXMLDOMDocument);
7241     if (!doc) return;
7242
7243     str = SysAllocString( szComplete4 );
7244     hr = IXMLDOMDocument_loadXML( doc, str, &b );
7245     ok( hr == S_OK, "loadXML failed\n");
7246     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7247     SysFreeString( str );
7248
7249     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7250     ok( hr == S_OK, "ret %08x\n", hr);
7251
7252     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7253     ok( hr == S_OK, "ret %08x\n", hr);
7254
7255     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7256     ok( hr == S_OK, "ret %08x\n", hr);
7257     IXMLDOMNodeList_Release(root_list);
7258
7259     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7260     ok( hr == S_OK, "ret %08x\n", hr);
7261     IXMLDOMNode_Release(pr_node);
7262
7263     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7264     ok( hr == S_OK, "ret %08x\n", hr);
7265     ok( len == 3, "length %d\n", len);
7266
7267     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
7268     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7269
7270     node = (void*)0xdeadbeef;
7271     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
7272     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7273     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7274
7275     /* out pointer is optional */
7276     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7277     ok( hr == S_OK, "ret %08x\n", hr);
7278
7279     /* already removed */
7280     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7281     ok( hr == S_FALSE, "ret %08x\n", hr);
7282
7283     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
7284     ok( hr == S_OK, "ret %08x\n", hr);
7285     IXMLDOMNode_Release(node);
7286
7287     IXMLDOMNamedNodeMap_Release( map );
7288     IXMLDOMElement_Release( element );
7289     IXMLDOMDocument_Release( doc );
7290     free_bstrs();
7291 }
7292
7293 static void test_get_ownerDocument(void)
7294 {
7295     IXMLDOMDocument *doc1, *doc2, *doc3;
7296     IXMLDOMDocument2 *doc, *doc_owner;
7297     IXMLDOMNode *node;
7298     VARIANT_BOOL b;
7299     VARIANT var;
7300     HRESULT hr;
7301     BSTR str;
7302
7303     doc = create_document(&IID_IXMLDOMDocument2);
7304     if (!doc) return;
7305
7306     str = SysAllocString( szComplete4 );
7307     hr = IXMLDOMDocument_loadXML( doc, str, &b );
7308     ok( hr == S_OK, "loadXML failed\n");
7309     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7310     SysFreeString( str );
7311
7312     hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
7313     ok( hr == S_OK, "got 0x%08x\n", hr);
7314     ok( lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
7315     VariantClear(&var);
7316
7317     /* set to XPath and check that new instances use it */
7318     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
7319     ok( hr == S_OK, "got 0x%08x\n", hr);
7320
7321     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'"));
7322     ok( hr == S_OK, "got 0x%08x\n", hr);
7323
7324     hr = IXMLDOMDocument2_get_firstChild(doc, &node);
7325     ok( hr == S_OK, "got 0x%08x\n", hr);
7326
7327     hr = IXMLDOMNode_get_ownerDocument(node, &doc1);
7328     ok( hr == S_OK, "got 0x%08x\n", hr);
7329
7330     hr = IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner);
7331     ok( hr == S_OK, "got 0x%08x\n", hr);
7332     ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
7333     hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionNamespaces"), &var);
7334     ok( hr == S_OK, "got 0x%08x\n", hr);
7335     ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
7336     VariantClear(&var);
7337
7338     hr = IXMLDOMDocument2_getProperty(doc_owner, _bstr_("SelectionLanguage"), &var);
7339     ok( hr == S_OK, "got 0x%08x\n", hr);
7340     ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7341     VariantClear(&var);
7342     IXMLDOMDocument2_Release(doc_owner);
7343
7344     hr = IXMLDOMNode_get_ownerDocument(node, &doc2);
7345     ok( hr == S_OK, "got 0x%08x\n", hr);
7346     IXMLDOMNode_Release(node);
7347
7348     ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
7349
7350     /* reload */
7351     str = SysAllocString( szComplete4 );
7352     hr = IXMLDOMDocument2_loadXML( doc, str, &b );
7353     ok( hr == S_OK, "got 0x%08x\n", hr);
7354     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7355     SysFreeString( str );
7356
7357     /* properties retained even after reload */
7358     hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
7359     ok( hr == S_OK, "got 0x%08x\n", hr);
7360     ok( lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "expected previously set value\n");
7361     VariantClear(&var);
7362
7363     hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var);
7364     ok( hr == S_OK, "got 0x%08x\n", hr);
7365     ok( lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7366     VariantClear(&var);
7367
7368     hr = IXMLDOMDocument2_get_firstChild(doc, &node);
7369     ok( hr == S_OK, "got 0x%08x\n", hr);
7370
7371     hr = IXMLDOMNode_get_ownerDocument(node, &doc3);
7372     ok( hr == S_OK, "got 0x%08x\n", hr);
7373     IXMLDOMNode_Release(node);
7374
7375     hr = IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner);
7376     ok( hr == S_OK, "got 0x%08x\n", hr);
7377     ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
7378
7379     IXMLDOMDocument_Release(doc1);
7380     IXMLDOMDocument_Release(doc2);
7381     IXMLDOMDocument_Release(doc3);
7382     IXMLDOMDocument2_Release(doc);
7383     free_bstrs();
7384 }
7385
7386 static void test_setAttributeNode(void)
7387 {
7388     IXMLDOMDocument *doc, *doc2;
7389     IXMLDOMElement *elem;
7390     IXMLDOMAttribute *attr, *attr2, *ret_attr;
7391     VARIANT_BOOL b;
7392     HRESULT hr;
7393     BSTR str;
7394
7395     doc = create_document(&IID_IXMLDOMDocument);
7396     if (!doc) return;
7397
7398     str = SysAllocString( szComplete4 );
7399     hr = IXMLDOMDocument2_loadXML( doc, str, &b );
7400     ok( hr == S_OK, "loadXML failed\n");
7401     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7402     SysFreeString( str );
7403
7404     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7405     ok( hr == S_OK, "got 0x%08x\n", hr);
7406
7407     ret_attr = (void*)0xdeadbeef;
7408     hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
7409     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7410     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7411
7412     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7413     ok( hr == S_OK, "got 0x%08x\n", hr);
7414
7415     ret_attr = (void*)0xdeadbeef;
7416     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7417     ok( hr == S_OK, "got 0x%08x\n", hr);
7418     ok( ret_attr == NULL, "got %p\n", ret_attr);
7419
7420     attr2 = NULL;
7421     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
7422     ok( hr == S_OK, "got 0x%08x\n", hr);
7423     IXMLDOMAttribute_Release(attr2);
7424
7425     /* try to add it another time */
7426     ret_attr = (void*)0xdeadbeef;
7427     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7428     todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
7429     todo_wine ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7430
7431     IXMLDOMElement_Release(elem);
7432
7433     /* initialy used element is released, attribute still 'has' a container */
7434     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7435     ok( hr == S_OK, "got 0x%08x\n", hr);
7436     ret_attr = (void*)0xdeadbeef;
7437     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7438     todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
7439     todo_wine ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7440     IXMLDOMElement_Release(elem);
7441
7442     /* add attribute already attached to another document */
7443     doc2 = create_document(&IID_IXMLDOMDocument);
7444
7445     str = SysAllocString( szComplete4 );
7446     hr = IXMLDOMDocument_loadXML( doc2, str, &b );
7447     ok( hr == S_OK, "loadXML failed\n");
7448     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7449     SysFreeString( str );
7450
7451     hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
7452     ok( hr == S_OK, "got 0x%08x\n", hr);
7453     hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
7454     todo_wine ok( hr == E_FAIL, "got 0x%08x\n", hr);
7455     IXMLDOMElement_Release(elem);
7456
7457     IXMLDOMDocument_Release(doc2);
7458
7459     IXMLDOMAttribute_Release(attr);
7460     IXMLDOMDocument_Release(doc);
7461     free_bstrs();
7462 }
7463
7464 static void test_get_dataType(void)
7465 {
7466     IXMLDOMDocument2 *doc, *schema;
7467     IXMLDOMSchemaCollection* cache;
7468     IXMLDOMNode* node;
7469     IXMLDOMParseError* err;
7470     VARIANT_BOOL b;
7471     VARIANT v;
7472     LONG l;
7473     BSTR bstr;
7474
7475     VariantInit(&v);
7476
7477     doc = create_document(&IID_IXMLDOMDocument2);
7478     schema = create_document(&IID_IXMLDOMDocument2);
7479     cache = create_cache(&IID_IXMLDOMSchemaCollection);
7480
7481     if (!doc || !schema || !cache)
7482     {
7483         if (doc)    IXMLDOMDocument2_Release(doc);
7484         if (schema) IXMLDOMDocument2_Release(schema);
7485         if (cache)  IXMLDOMSchemaCollection_Release(cache);
7486
7487         return;
7488     }
7489
7490     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(szDatatypeXML), &b));
7491     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7492
7493     ole_check(IXMLDOMDocument2_loadXML(schema, _bstr_(szDatatypeXDR), &b));
7494     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7495
7496     err = NULL;
7497     ole_expect(IXMLDOMDocument2_validate(doc, &err), S_FALSE);
7498     ok(err != NULL, "domdoc_validate() should always set err\n");
7499     ole_check(IXMLDOMParseError_get_errorCode(err, &l));
7500     ok(l == E_XML_NODTD, "got %08x\n", l);
7501     IXMLDOMParseError_Release(err);
7502
7503     /* check data types without the schema */
7504     node = NULL;
7505     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testBase64']/Value/base64Data"), &node));
7506     ok(node != NULL, "expected node\n");
7507     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7508     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7509     if (V_VT(&v) == VT_BSTR)
7510         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7511     VariantClear(&v);
7512     IXMLDOMNode_Release(node);
7513
7514     node = NULL;
7515     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testHex']/Value/hexData"), &node));
7516     ok(node != NULL, "expected node\n");
7517     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7518     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7519     if (V_VT(&v) == VT_BSTR)
7520         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7521     VariantClear(&v);
7522     IXMLDOMNode_Release(node);
7523
7524     node = NULL;
7525     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testBool']/Value/boolData"), &node));
7526     ok(node != NULL, "expected node\n");
7527     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7528     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7529     if (V_VT(&v) == VT_BSTR)
7530         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7531     VariantClear(&v);
7532     IXMLDOMNode_Release(node);
7533
7534     node = NULL;
7535     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testChar']/Value/charData"), &node));
7536     ok(node != NULL, "expected node\n");
7537     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7538     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7539     if (V_VT(&v) == VT_BSTR)
7540         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7541     VariantClear(&v);
7542     IXMLDOMNode_Release(node);
7543
7544     node = NULL;
7545     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDate']/Value/dateData"), &node));
7546     ok(node != NULL, "expected node\n");
7547     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7548     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7549     if (V_VT(&v) == VT_BSTR)
7550         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7551     VariantClear(&v);
7552     IXMLDOMNode_Release(node);
7553
7554     node = NULL;
7555     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDateTime']/Value/dateTimeData"), &node));
7556     ok(node != NULL, "expected node\n");
7557     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7558     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7559     if (V_VT(&v) == VT_BSTR)
7560         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7561     VariantClear(&v);
7562     IXMLDOMNode_Release(node);
7563
7564     node = NULL;
7565     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDateTimeTz']/Value/dateTimeTzData"), &node));
7566     ok(node != NULL, "expected node\n");
7567     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7568     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7569     if (V_VT(&v) == VT_BSTR)
7570         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7571     VariantClear(&v);
7572     IXMLDOMNode_Release(node);
7573
7574     node = NULL;
7575     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testFixed']/Value/fixedData"), &node));
7576     ok(node != NULL, "expected node\n");
7577     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7578     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7579     if (V_VT(&v) == VT_BSTR)
7580         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7581     VariantClear(&v);
7582     IXMLDOMNode_Release(node);
7583
7584     node = NULL;
7585     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testFloat']/Value/floatData"), &node));
7586     ok(node != NULL, "expected node\n");
7587     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7588     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7589     if (V_VT(&v) == VT_BSTR)
7590         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7591     VariantClear(&v);
7592     IXMLDOMNode_Release(node);
7593
7594     node = NULL;
7595     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI1']/Value/i1Data"), &node));
7596     ok(node != NULL, "expected node\n");
7597     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7598     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7599     if (V_VT(&v) == VT_BSTR)
7600         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7601     VariantClear(&v);
7602     IXMLDOMNode_Release(node);
7603
7604     node = NULL;
7605     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI2']/Value/i2Data"), &node));
7606     ok(node != NULL, "expected node\n");
7607     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7608     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7609     if (V_VT(&v) == VT_BSTR)
7610         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7611     VariantClear(&v);
7612     IXMLDOMNode_Release(node);
7613
7614     node = NULL;
7615     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI4']/Value/i4Data"), &node));
7616     ok(node != NULL, "expected node\n");
7617     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7618     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7619     if (V_VT(&v) == VT_BSTR)
7620         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7621     VariantClear(&v);
7622     IXMLDOMNode_Release(node);
7623
7624     node = NULL;
7625     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI8']/Value/i8Data"), &node));
7626     ok(node != NULL, "expected node\n");
7627     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7628     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7629     if (V_VT(&v) == VT_BSTR)
7630         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7631     VariantClear(&v);
7632     IXMLDOMNode_Release(node);
7633
7634     node = NULL;
7635     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testInt']/Value/intData"), &node));
7636     ok(node != NULL, "expected node\n");
7637     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7638     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7639     if (V_VT(&v) == VT_BSTR)
7640         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7641     VariantClear(&v);
7642     IXMLDOMNode_Release(node);
7643
7644     node = NULL;
7645     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNmtoken']/Value/nmtokData"), &node));
7646     ok(node != NULL, "expected node\n");
7647     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7648     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7649     if (V_VT(&v) == VT_BSTR)
7650         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7651     VariantClear(&v);
7652     IXMLDOMNode_Release(node);
7653
7654     node = NULL;
7655     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNmtokens']/Value/nmtoksData"), &node));
7656     ok(node != NULL, "expected node\n");
7657     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7658     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7659     if (V_VT(&v) == VT_BSTR)
7660         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7661     VariantClear(&v);
7662     IXMLDOMNode_Release(node);
7663
7664     node = NULL;
7665     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNumber']/Value/numData"), &node));
7666     ok(node != NULL, "expected node\n");
7667     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7668     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7669     if (V_VT(&v) == VT_BSTR)
7670         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7671     VariantClear(&v);
7672     IXMLDOMNode_Release(node);
7673
7674     node = NULL;
7675     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testR4']/Value/r4Data"), &node));
7676     ok(node != NULL, "expected node\n");
7677     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7678     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7679     if (V_VT(&v) == VT_BSTR)
7680         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7681     VariantClear(&v);
7682     IXMLDOMNode_Release(node);
7683
7684     node = NULL;
7685     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testR8']/Value/r8Data"), &node));
7686     ok(node != NULL, "expected node\n");
7687     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7688     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7689     if (V_VT(&v) == VT_BSTR)
7690         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7691     VariantClear(&v);
7692     IXMLDOMNode_Release(node);
7693
7694     node = NULL;
7695     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testString']/Value/stringData"), &node));
7696     ok(node != NULL, "expected node\n");
7697     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7698     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7699     if (V_VT(&v) == VT_BSTR)
7700         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7701     VariantClear(&v);
7702     IXMLDOMNode_Release(node);
7703
7704     node = NULL;
7705     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testTime']/Value/timeData"), &node));
7706     ok(node != NULL, "expected node\n");
7707     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7708     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7709     if (V_VT(&v) == VT_BSTR)
7710         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7711     VariantClear(&v);
7712     IXMLDOMNode_Release(node);
7713
7714     node = NULL;
7715     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testTimeTz']/Value/timeTzData"), &node));
7716     ok(node != NULL, "expected node\n");
7717     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7718     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7719     if (V_VT(&v) == VT_BSTR)
7720         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7721     VariantClear(&v);
7722     IXMLDOMNode_Release(node);
7723
7724     node = NULL;
7725     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU1']/Value/u1Data"), &node));
7726     ok(node != NULL, "expected node\n");
7727     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7728     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7729     if (V_VT(&v) == VT_BSTR)
7730         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7731     VariantClear(&v);
7732     IXMLDOMNode_Release(node);
7733
7734     node = NULL;
7735     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU2']/Value/u2Data"), &node));
7736     ok(node != NULL, "expected node\n");
7737     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7738     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7739     if (V_VT(&v) == VT_BSTR)
7740         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7741     VariantClear(&v);
7742     IXMLDOMNode_Release(node);
7743
7744     node = NULL;
7745     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU4']/Value/u4Data"), &node));
7746     ok(node != NULL, "expected node\n");
7747     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7748     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7749     if (V_VT(&v) == VT_BSTR)
7750         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7751     VariantClear(&v);
7752     IXMLDOMNode_Release(node);
7753
7754     node = NULL;
7755     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU8']/Value/u8Data"), &node));
7756     ok(node != NULL, "expected node\n");
7757     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7758     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7759     if (V_VT(&v) == VT_BSTR)
7760         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7761     VariantClear(&v);
7762     IXMLDOMNode_Release(node);
7763
7764     node = NULL;
7765     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testURI']/Value/uriData"), &node));
7766     ok(node != NULL, "expected node\n");
7767     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7768     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7769     if (V_VT(&v) == VT_BSTR)
7770         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7771     VariantClear(&v);
7772     IXMLDOMNode_Release(node);
7773
7774     node = NULL;
7775     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testUUID']/Value/uuidData"), &node));
7776     ok(node != NULL, "expected node\n");
7777     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7778     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7779     if (V_VT(&v) == VT_BSTR)
7780         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7781     VariantClear(&v);
7782     IXMLDOMNode_Release(node);
7783
7784     /* now load the schema */
7785     V_VT(&v) = VT_DISPATCH;
7786     V_DISPATCH(&v) = NULL;
7787     ole_check(IXMLDOMDocument2_QueryInterface(schema, &IID_IDispatch, (void**)&V_DISPATCH(&v)));
7788     ok(V_DISPATCH(&v) != NULL, "failed to get IDispatch interface\n");
7789     ole_check(IXMLDOMSchemaCollection_add(cache, _bstr_("urn:x-schema:datatype-test-xdr"), v));
7790     VariantClear(&v);
7791
7792     /* associate the cache to the doc */
7793     V_VT(&v) = VT_DISPATCH;
7794     V_DISPATCH(&v) = NULL;
7795     ole_check(IXMLDOMSchemaCollection_QueryInterface(cache, &IID_IDispatch, (void**)&V_DISPATCH(&v)));
7796     ok(V_DISPATCH(&v) != NULL, "failed to get IDispatch interface\n");
7797     ole_check(IXMLDOMDocument2_putref_schemas(doc, v));
7798     VariantClear(&v);
7799
7800     /* validate the doc */
7801     err = NULL;
7802     l = 0;
7803     bstr = NULL;
7804     ole_check(IXMLDOMDocument2_validate(doc, &err));
7805     ok(err != NULL, "domdoc_validate() should always set err\n");
7806     ole_expect(IXMLDOMParseError_get_errorCode(err, &l), S_FALSE);
7807     ole_expect(IXMLDOMParseError_get_reason(err, &bstr), S_FALSE);
7808     ok(l == 0, "got %08x : %s\n", l, wine_dbgstr_w(bstr));
7809     IXMLDOMParseError_Release(err);
7810
7811     /* check the data types again */
7812     node = NULL;
7813     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testBase64']/Value/base64Data"), &node));
7814     ok(node != NULL, "expected node\n");
7815     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7816     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7817     if (V_VT(&v) == VT_BSTR)
7818         ok(lstrcmpW(V_BSTR(&v), _bstr_("bin.base64")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7819     VariantClear(&v);
7820     IXMLDOMNode_Release(node);
7821
7822     node = NULL;
7823     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testHex']/Value/hexData"), &node));
7824     ok(node != NULL, "expected node\n");
7825     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7826     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7827     if (V_VT(&v) == VT_BSTR)
7828         ok(lstrcmpW(V_BSTR(&v), _bstr_("bin.hex")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7829     VariantClear(&v);
7830     IXMLDOMNode_Release(node);
7831
7832     node = NULL;
7833     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testBool']/Value/boolData"), &node));
7834     ok(node != NULL, "expected node\n");
7835     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7836     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7837     if (V_VT(&v) == VT_BSTR)
7838         ok(lstrcmpW(V_BSTR(&v), _bstr_("boolean")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7839     VariantClear(&v);
7840     IXMLDOMNode_Release(node);
7841
7842     node = NULL;
7843     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testChar']/Value/charData"), &node));
7844     ok(node != NULL, "expected node\n");
7845     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7846     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7847     if (V_VT(&v) == VT_BSTR)
7848         ok(lstrcmpW(V_BSTR(&v), _bstr_("char")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7849     VariantClear(&v);
7850     IXMLDOMNode_Release(node);
7851
7852     node = NULL;
7853     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDate']/Value/dateData"), &node));
7854     ok(node != NULL, "expected node\n");
7855     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7856     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7857     if (V_VT(&v) == VT_BSTR)
7858         ok(lstrcmpW(V_BSTR(&v), _bstr_("date")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7859     VariantClear(&v);
7860     IXMLDOMNode_Release(node);
7861
7862     node = NULL;
7863     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDateTime']/Value/dateTimeData"), &node));
7864     ok(node != NULL, "expected node\n");
7865     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7866     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7867     if (V_VT(&v) == VT_BSTR)
7868         ok(lstrcmpW(V_BSTR(&v), _bstr_("dateTime")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7869     VariantClear(&v);
7870     IXMLDOMNode_Release(node);
7871
7872     node = NULL;
7873     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testDateTimeTz']/Value/dateTimeTzData"), &node));
7874     ok(node != NULL, "expected node\n");
7875     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7876     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7877     if (V_VT(&v) == VT_BSTR)
7878         ok(lstrcmpW(V_BSTR(&v), _bstr_("dateTime.tz")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7879     VariantClear(&v);
7880     IXMLDOMNode_Release(node);
7881
7882     node = NULL;
7883     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testFixed']/Value/fixedData"), &node));
7884     ok(node != NULL, "expected node\n");
7885     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7886     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7887     if (V_VT(&v) == VT_BSTR)
7888         ok(lstrcmpW(V_BSTR(&v), _bstr_("fixed.14.4")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7889     VariantClear(&v);
7890     IXMLDOMNode_Release(node);
7891
7892     node = NULL;
7893     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testFloat']/Value/floatData"), &node));
7894     ok(node != NULL, "expected node\n");
7895     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7896     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7897     if (V_VT(&v) == VT_BSTR)
7898         ok(lstrcmpW(V_BSTR(&v), _bstr_("float")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7899     VariantClear(&v);
7900     IXMLDOMNode_Release(node);
7901
7902     node = NULL;
7903     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI1']/Value/i1Data"), &node));
7904     ok(node != NULL, "expected node\n");
7905     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7906     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7907     if (V_VT(&v) == VT_BSTR)
7908         ok(lstrcmpW(V_BSTR(&v), _bstr_("i1")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7909     VariantClear(&v);
7910     IXMLDOMNode_Release(node);
7911
7912     node = NULL;
7913     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI2']/Value/i2Data"), &node));
7914     ok(node != NULL, "expected node\n");
7915     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7916     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7917     if (V_VT(&v) == VT_BSTR)
7918         ok(lstrcmpW(V_BSTR(&v), _bstr_("i2")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7919     VariantClear(&v);
7920     IXMLDOMNode_Release(node);
7921
7922     node = NULL;
7923     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI4']/Value/i4Data"), &node));
7924     ok(node != NULL, "expected node\n");
7925     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7926     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7927     if (V_VT(&v) == VT_BSTR)
7928         ok(lstrcmpW(V_BSTR(&v), _bstr_("i4")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7929     VariantClear(&v);
7930     IXMLDOMNode_Release(node);
7931
7932     node = NULL;
7933     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testI8']/Value/i8Data"), &node));
7934     ok(node != NULL, "expected node\n");
7935     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7936     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7937     if (V_VT(&v) == VT_BSTR)
7938         ok(lstrcmpW(V_BSTR(&v), _bstr_("i8")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7939     VariantClear(&v);
7940     IXMLDOMNode_Release(node);
7941
7942     node = NULL;
7943     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testInt']/Value/intData"), &node));
7944     ok(node != NULL, "expected node\n");
7945     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7946     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7947     if (V_VT(&v) == VT_BSTR)
7948         ok(lstrcmpW(V_BSTR(&v), _bstr_("int")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7949     VariantClear(&v);
7950     IXMLDOMNode_Release(node);
7951
7952     /* nmtoken does not return a bstr */
7953     node = NULL;
7954     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNmtoken']/Value/nmtokData"), &node));
7955     ok(node != NULL, "expected node\n");
7956     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7957     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7958     if (V_VT(&v) == VT_BSTR)
7959         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7960     VariantClear(&v);
7961     IXMLDOMNode_Release(node);
7962
7963     /* nmtokens does not return a bstr */
7964     node = NULL;
7965     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNmtokens']/Value/nmtoksData"), &node));
7966     ok(node != NULL, "expected node\n");
7967     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
7968     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
7969     if (V_VT(&v) == VT_BSTR)
7970         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7971     VariantClear(&v);
7972     IXMLDOMNode_Release(node);
7973
7974     node = NULL;
7975     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testNumber']/Value/numData"), &node));
7976     ok(node != NULL, "expected node\n");
7977     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7978     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7979     if (V_VT(&v) == VT_BSTR)
7980         ok(lstrcmpW(V_BSTR(&v), _bstr_("number")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7981     VariantClear(&v);
7982     IXMLDOMNode_Release(node);
7983
7984     node = NULL;
7985     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testR4']/Value/r4Data"), &node));
7986     ok(node != NULL, "expected node\n");
7987     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7988     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7989     if (V_VT(&v) == VT_BSTR)
7990         ok(lstrcmpW(V_BSTR(&v), _bstr_("r4")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
7991     VariantClear(&v);
7992     IXMLDOMNode_Release(node);
7993
7994     node = NULL;
7995     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testR8']/Value/r8Data"), &node));
7996     ok(node != NULL, "expected node\n");
7997     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
7998     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
7999     if (V_VT(&v) == VT_BSTR)
8000         ok(lstrcmpW(V_BSTR(&v), _bstr_("r8")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8001     VariantClear(&v);
8002     IXMLDOMNode_Release(node);
8003
8004     /* dt:string is the default, does not return a bstr */
8005     node = NULL;
8006     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testString']/Value/stringData"), &node));
8007     ok(node != NULL, "expected node\n");
8008     ole_expect(IXMLDOMNode_get_dataType(node, &v), S_FALSE);
8009     ok(V_VT(&v) == VT_NULL, "got variant type %i\n", V_VT(&v));
8010     if (V_VT(&v) == VT_BSTR)
8011         ok(0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8012     VariantClear(&v);
8013     IXMLDOMNode_Release(node);
8014
8015     node = NULL;
8016     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testTime']/Value/timeData"), &node));
8017     ok(node != NULL, "expected node\n");
8018     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8019     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8020     if (V_VT(&v) == VT_BSTR)
8021         ok(lstrcmpW(V_BSTR(&v), _bstr_("time")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8022     VariantClear(&v);
8023     IXMLDOMNode_Release(node);
8024
8025     node = NULL;
8026     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testTimeTz']/Value/timeTzData"), &node));
8027     ok(node != NULL, "expected node\n");
8028     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8029     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8030     if (V_VT(&v) == VT_BSTR)
8031         ok(lstrcmpW(V_BSTR(&v), _bstr_("time.tz")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8032     VariantClear(&v);
8033     IXMLDOMNode_Release(node);
8034
8035     node = NULL;
8036     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU1']/Value/u1Data"), &node));
8037     ok(node != NULL, "expected node\n");
8038     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8039     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8040     if (V_VT(&v) == VT_BSTR)
8041         ok(lstrcmpW(V_BSTR(&v), _bstr_("ui1")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8042     VariantClear(&v);
8043     IXMLDOMNode_Release(node);
8044
8045     node = NULL;
8046     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU2']/Value/u2Data"), &node));
8047     ok(node != NULL, "expected node\n");
8048     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8049     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8050     if (V_VT(&v) == VT_BSTR)
8051         ok(lstrcmpW(V_BSTR(&v), _bstr_("ui2")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8052     VariantClear(&v);
8053     IXMLDOMNode_Release(node);
8054
8055     node = NULL;
8056     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU4']/Value/u4Data"), &node));
8057     ok(node != NULL, "expected node\n");
8058     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8059     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8060     if (V_VT(&v) == VT_BSTR)
8061         ok(lstrcmpW(V_BSTR(&v), _bstr_("ui4")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8062     VariantClear(&v);
8063     IXMLDOMNode_Release(node);
8064
8065     node = NULL;
8066     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testU8']/Value/u8Data"), &node));
8067     ok(node != NULL, "expected node\n");
8068     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8069     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8070     if (V_VT(&v) == VT_BSTR)
8071         ok(lstrcmpW(V_BSTR(&v), _bstr_("ui8")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8072     VariantClear(&v);
8073     IXMLDOMNode_Release(node);
8074
8075     node = NULL;
8076     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testURI']/Value/uriData"), &node));
8077     ok(node != NULL, "expected node\n");
8078     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8079     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8080     if (V_VT(&v) == VT_BSTR)
8081         ok(lstrcmpW(V_BSTR(&v), _bstr_("uri")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8082     VariantClear(&v);
8083     IXMLDOMNode_Release(node);
8084
8085     node = NULL;
8086     ole_check(IXMLDOMDocument2_selectSingleNode(doc, _bstr_("//Property[Name!text()='testUUID']/Value/uuidData"), &node));
8087     ok(node != NULL, "expected node\n");
8088     todo_wine ole_check(IXMLDOMNode_get_dataType(node, &v));
8089     todo_wine ok(V_VT(&v) == VT_BSTR, "got variant type %i\n", V_VT(&v));
8090     if (V_VT(&v) == VT_BSTR)
8091         ok(lstrcmpW(V_BSTR(&v), _bstr_("uuid")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8092     VariantClear(&v);
8093     IXMLDOMNode_Release(node);
8094
8095     ok(IXMLDOMDocument2_Release(schema) == 0, "schema not released\n");
8096     ok(IXMLDOMDocument2_Release(doc) == 0, "doc not released\n");
8097     ok(IXMLDOMSchemaCollection_Release(cache) == 0, "cache not released\n");
8098
8099     free_bstrs();
8100 }
8101
8102 static void test_put_dataType(void)
8103 {
8104     IXMLDOMCDATASection *cdata;
8105     IXMLDOMDocument *doc;
8106     VARIANT_BOOL b;
8107     HRESULT hr;
8108     BSTR str;
8109
8110     doc = create_document(&IID_IXMLDOMDocument);
8111     if (!doc) return;
8112
8113     str = SysAllocString( szComplete4 );
8114     hr = IXMLDOMDocument_loadXML( doc, str, &b );
8115     ok( hr == S_OK, "loadXML failed\n");
8116     ok( b == VARIANT_TRUE, "failed to load XML string\n");
8117     SysFreeString( str );
8118
8119     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("test"), &cdata);
8120     ok( hr == S_OK, "got 0x%08x\n", hr);
8121     hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("number"));
8122     ok( hr == E_FAIL, "got 0x%08x\n", hr);
8123     hr = IXMLDOMCDATASection_put_dataType(cdata, _bstr_("string"));
8124     ok( hr == E_FAIL, "got 0x%08x\n", hr);
8125     IXMLDOMCDATASection_Release(cdata);
8126
8127     IXMLDOMDocument_Release(doc);
8128     free_bstrs();
8129 }
8130
8131 static void test_createNode(void)
8132 {
8133     IXMLDOMDocument *doc;
8134     IXMLDOMElement *elem;
8135     IXMLDOMNode *node;
8136     VARIANT v, var;
8137     BSTR prefix, str;
8138     HRESULT hr;
8139
8140     doc = create_document(&IID_IXMLDOMDocument);
8141     if (!doc) return;
8142
8143     /* NODE_ELEMENT nodes */
8144     /* 1. specified namespace */
8145     V_VT(&v) = VT_I4;
8146     V_I4(&v) = NODE_ELEMENT;
8147
8148     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
8149     ok( hr == S_OK, "got 0x%08x\n", hr);
8150     prefix = NULL;
8151     hr = IXMLDOMNode_get_prefix(node, &prefix);
8152     ok( hr == S_OK, "got 0x%08x\n", hr);
8153     ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
8154     SysFreeString(prefix);
8155     IXMLDOMNode_Release(node);
8156
8157     /* 2. default namespace */
8158     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
8159     ok( hr == S_OK, "got 0x%08x\n", hr);
8160     prefix = (void*)0xdeadbeef;
8161     hr = IXMLDOMNode_get_prefix(node, &prefix);
8162     ok( hr == S_FALSE, "got 0x%08x\n", hr);
8163     ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
8164
8165     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
8166     ok( hr == S_OK, "got 0x%08x\n", hr);
8167
8168     V_VT(&var) = VT_BSTR;
8169     hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
8170     ok( hr == S_FALSE, "got 0x%08x\n", hr);
8171     ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
8172
8173     str = NULL;
8174     hr = IXMLDOMElement_get_namespaceURI(elem, &str);
8175     ok( hr == S_OK, "got 0x%08x\n", hr);
8176     ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
8177     SysFreeString(str);
8178
8179     IXMLDOMElement_Release(elem);
8180     IXMLDOMNode_Release(node);
8181
8182     IXMLDOMDocument_Release(doc);
8183     free_bstrs();
8184 }
8185
8186 static void test_get_prefix(void)
8187 {
8188     IXMLDOMDocumentFragment *fragment;
8189     IXMLDOMCDATASection *cdata;
8190     IXMLDOMElement *element;
8191     IXMLDOMComment *comment;
8192     IXMLDOMDocument *doc;
8193     HRESULT hr;
8194     BSTR str;
8195
8196     doc = create_document(&IID_IXMLDOMDocument);
8197     if (!doc) return;
8198
8199     /* nodes that can't support prefix */
8200     /* 1. document */
8201     str = (void*)0xdeadbeef;
8202     hr = IXMLDOMDocument_get_prefix(doc, &str);
8203     ok( hr == S_FALSE, "got 0x%08x\n", hr);
8204     ok( str == 0, "got %p\n", str);
8205
8206     hr = IXMLDOMDocument_get_prefix(doc, NULL);
8207     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
8208
8209     /* 2. cdata */
8210     hr = IXMLDOMDocument_createCDATASection(doc, NULL, &cdata);
8211     ok(hr == S_OK, "got %08x\n", hr );
8212
8213     str = (void*)0xdeadbeef;
8214     hr = IXMLDOMCDATASection_get_prefix(cdata, &str);
8215     ok(hr == S_FALSE, "got %08x\n", hr);
8216     ok( str == 0, "got %p\n", str);
8217
8218     hr = IXMLDOMCDATASection_get_prefix(cdata, NULL);
8219     ok(hr == E_INVALIDARG, "got %08x\n", hr);
8220     IXMLDOMCDATASection_Release(cdata);
8221
8222     /* 3. comment */
8223     hr = IXMLDOMDocument_createComment(doc, NULL, &comment);
8224     ok(hr == S_OK, "got %08x\n", hr );
8225
8226     str = (void*)0xdeadbeef;
8227     hr = IXMLDOMComment_get_prefix(comment, &str);
8228     ok(hr == S_FALSE, "got %08x\n", hr);
8229     ok( str == 0, "got %p\n", str);
8230
8231     hr = IXMLDOMComment_get_prefix(comment, NULL);
8232     ok(hr == E_INVALIDARG, "got %08x\n", hr);
8233     IXMLDOMComment_Release(comment);
8234
8235     /* 4. fragment */
8236     hr = IXMLDOMDocument_createDocumentFragment(doc, &fragment);
8237     ok(hr == S_OK, "got %08x\n", hr );
8238
8239     str = (void*)0xdeadbeef;
8240     hr = IXMLDOMDocumentFragment_get_prefix(fragment, &str);
8241     ok(hr == S_FALSE, "got %08x\n", hr);
8242     ok( str == 0, "got %p\n", str);
8243
8244     hr = IXMLDOMDocumentFragment_get_prefix(fragment, NULL);
8245     ok(hr == E_INVALIDARG, "got %08x\n", hr);
8246     IXMLDOMDocumentFragment_Release(fragment);
8247
8248     /* no prefix */
8249     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
8250     ok( hr == S_OK, "got 0x%08x\n", hr);
8251
8252     hr = IXMLDOMElement_get_prefix(element, NULL);
8253     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
8254
8255     str = (void*)0xdeadbeef;
8256     hr = IXMLDOMElement_get_prefix(element, &str);
8257     ok( hr == S_FALSE, "got 0x%08x\n", hr);
8258     ok( str == 0, "got %p\n", str);
8259
8260     IXMLDOMElement_Release(element);
8261
8262     /* with prefix */
8263     hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
8264     ok( hr == S_OK, "got 0x%08x\n", hr);
8265
8266     str = (void*)0xdeadbeef;
8267     hr = IXMLDOMElement_get_prefix(element, &str);
8268     ok( hr == S_OK, "got 0x%08x\n", hr);
8269     ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
8270     SysFreeString(str);
8271
8272     str = (void*)0xdeadbeef;
8273     hr = IXMLDOMElement_get_namespaceURI(element, &str);
8274     ok( hr == S_FALSE, "got 0x%08x\n", hr);
8275     ok( str == 0, "got %p\n", str);
8276
8277     IXMLDOMElement_Release(element);
8278
8279     IXMLDOMDocument_Release(doc);
8280     free_bstrs();
8281 }
8282
8283 static void test_selectSingleNode(void)
8284 {
8285     IXMLDOMDocument *doc;
8286     IXMLDOMNodeList *list;
8287     IXMLDOMNode *node;
8288     VARIANT_BOOL b;
8289     HRESULT hr;
8290     LONG len;
8291     BSTR str;
8292
8293     doc = create_document(&IID_IXMLDOMDocument);
8294     if (!doc) return;
8295
8296     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
8297     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8298
8299     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
8300     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8301
8302     str = SysAllocString( szComplete4 );
8303     hr = IXMLDOMDocument_loadXML( doc, str, &b );
8304     ok( hr == S_OK, "loadXML failed\n");
8305     ok( b == VARIANT_TRUE, "failed to load XML string\n");
8306     SysFreeString( str );
8307
8308     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
8309     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8310
8311     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
8312     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8313
8314     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
8315     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8316
8317     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
8318     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8319
8320     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
8321     ok(hr == S_OK, "got 0x%08x\n", hr);
8322     IXMLDOMNode_Release(node);
8323
8324     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
8325     ok(hr == S_OK, "got 0x%08x\n", hr);
8326     IXMLDOMNodeList_Release(list);
8327
8328     list = (void*)0xdeadbeef;
8329     hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
8330     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8331     ok(list == (void*)0xdeadbeef, "got %p\n", list);
8332
8333     node = (void*)0xdeadbeef;
8334     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
8335     ok(hr == S_FALSE, "got 0x%08x\n", hr);
8336     ok(node == 0, "got %p\n", node);
8337
8338     list = (void*)0xdeadbeef;
8339     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
8340     ok(hr == S_OK, "got 0x%08x\n", hr);
8341     len = 1;
8342     hr = IXMLDOMNodeList_get_length(list, &len);
8343     ok(hr == S_OK, "got 0x%08x\n", hr);
8344     ok(len == 0, "got %d\n", len);
8345     IXMLDOMNodeList_Release(list);
8346
8347     IXMLDOMDocument_Release(doc);
8348     free_bstrs();
8349 }
8350
8351 static void test_events(void)
8352 {
8353     IConnectionPointContainer *conn;
8354     IConnectionPoint *point;
8355     IXMLDOMDocument *doc;
8356     HRESULT hr;
8357
8358     doc = create_document(&IID_IXMLDOMDocument);
8359     if (!doc) return;
8360
8361     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&conn);
8362     ok(hr == S_OK, "got 0x%08x\n", hr);
8363
8364     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IDispatch, &point);
8365     ok(hr == S_OK, "got 0x%08x\n", hr);
8366     IConnectionPoint_Release(point);
8367     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IPropertyNotifySink, &point);
8368     ok(hr == S_OK, "got 0x%08x\n", hr);
8369     IConnectionPoint_Release(point);
8370     hr = IConnectionPointContainer_FindConnectionPoint(conn, &DIID_XMLDOMDocumentEvents, &point);
8371     ok(hr == S_OK, "got 0x%08x\n", hr);
8372     IConnectionPoint_Release(point);
8373
8374     IConnectionPointContainer_Release(conn);
8375
8376     IXMLDOMDocument_Release(doc);
8377 }
8378
8379 static void test_createProcessingInstruction(void)
8380 {
8381     static const WCHAR bodyW[] = {'t','e','s','t',0};
8382     IXMLDOMProcessingInstruction *pi;
8383     IXMLDOMDocument *doc;
8384     WCHAR buff[10];
8385     HRESULT hr;
8386
8387     doc = create_document(&IID_IXMLDOMDocument);
8388     if (!doc) return;
8389
8390     /* test for BSTR handling, pass broken BSTR */
8391     memcpy(&buff[2], bodyW, sizeof(bodyW));
8392     /* just a big length */
8393     *(DWORD*)buff = 0xf0f0;
8394     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("test"), &buff[2], &pi);
8395     ok(hr == S_OK, "got 0x%08x\n", hr);
8396
8397     IXMLDOMProcessingInstruction_Release(pi);
8398     IXMLDOMDocument_Release(doc);
8399 }
8400
8401 static void test_put_nodeTypedValue(void)
8402 {
8403     IXMLDOMDocument *doc;
8404     IXMLDOMElement *elem;
8405     VARIANT type;
8406     HRESULT hr;
8407
8408     doc = create_document(&IID_IXMLDOMDocument);
8409     if (!doc) return;
8410
8411     hr = IXMLDOMDocument_createElement(doc, _bstr_("Element"), &elem);
8412     ok(hr == S_OK, "got 0x%08x\n", hr);
8413
8414     V_VT(&type) = VT_EMPTY;
8415     hr = IXMLDOMElement_get_dataType(elem, &type);
8416     ok(hr == S_FALSE, "got 0x%08x\n", hr);
8417     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8418
8419     /* set typed value for untyped node */
8420     V_VT(&type) = VT_I1;
8421     V_I1(&type) = 1;
8422     hr = IXMLDOMElement_put_nodeTypedValue(elem, type);
8423     ok(hr == S_OK, "got 0x%08x\n", hr);
8424
8425     V_VT(&type) = VT_EMPTY;
8426     hr = IXMLDOMElement_get_dataType(elem, &type);
8427     ok(hr == S_FALSE, "got 0x%08x\n", hr);
8428     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8429
8430     /* no type info stored */
8431     V_VT(&type) = VT_EMPTY;
8432     hr = IXMLDOMElement_get_nodeTypedValue(elem, &type);
8433     ok(hr == S_OK, "got 0x%08x\n", hr);
8434     ok(V_VT(&type) == VT_BSTR, "got %d, expected VT_BSTR\n", V_VT(&type));
8435     ok(memcmp(V_BSTR(&type), _bstr_("1"), 2*sizeof(WCHAR)) == 0,
8436        "got %s, expected \"1\"\n", wine_dbgstr_w(V_BSTR(&type)));
8437     VariantClear(&type);
8438
8439     IXMLDOMDocument_Release(doc);
8440     free_bstrs();
8441 }
8442
8443 static void test_get_xml(void)
8444 {
8445     static const char xmlA[] = "<?xml version=\"1.0\" encoding=\"UTF-16\"?>\r\n<a>test</a>\r\n";
8446     IXMLDOMProcessingInstruction *pi;
8447     IXMLDOMNode *first;
8448     IXMLDOMDocument *doc;
8449     VARIANT_BOOL b;
8450     VARIANT v;
8451     BSTR xml;
8452     HRESULT hr;
8453
8454     doc = create_document(&IID_IXMLDOMDocument);
8455     if (!doc) return;
8456
8457     b = VARIANT_TRUE;
8458     hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8459     ok(hr == S_OK, "got 0x%08x\n", hr);
8460     ok( b == VARIANT_TRUE, "got %d\n", b);
8461
8462     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"),
8463                              _bstr_("version=\"1.0\" encoding=\"UTF-16\""), &pi);
8464     ok(hr == S_OK, "got 0x%08x\n", hr);
8465
8466     hr = IXMLDOMDocument_get_firstChild(doc, &first);
8467     ok(hr == S_OK, "got 0x%08x\n", hr);
8468
8469     V_UNKNOWN(&v) = (IUnknown*)first;
8470     V_VT(&v) = VT_UNKNOWN;
8471
8472     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)pi, v, NULL);
8473     ok(hr == S_OK, "got 0x%08x\n", hr);
8474
8475     IXMLDOMProcessingInstruction_Release(pi);
8476     IXMLDOMNode_Release(first);
8477
8478     hr = IXMLDOMDocument_get_xml(doc, &xml);
8479     ok(hr == S_OK, "got 0x%08x\n", hr);
8480
8481     ok(memcmp(xml, _bstr_(xmlA), sizeof(xmlA)*sizeof(WCHAR)) == 0,
8482         "got %s, expected %s\n", wine_dbgstr_w(xml), xmlA);
8483     SysFreeString(xml);
8484
8485     IXMLDOMDocument_Release(doc);
8486 }
8487
8488 START_TEST(domdoc)
8489 {
8490     IXMLDOMDocument *doc;
8491     HRESULT hr;
8492
8493     hr = CoInitialize( NULL );
8494     ok( hr == S_OK, "failed to init com\n");
8495     if (hr != S_OK)
8496         return;
8497
8498     test_XMLHTTP();
8499
8500     hr = CoCreateInstance( &CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc );
8501     if (hr != S_OK)
8502     {
8503         win_skip("IXMLDOMDocument is not available (0x%08x)\n", hr);
8504         return;
8505     }
8506
8507     IXMLDOMDocument_Release(doc);
8508
8509     test_domdoc();
8510     test_persiststreaminit();
8511     test_domnode();
8512     test_refs();
8513     test_create();
8514     test_getElementsByTagName();
8515     test_get_text();
8516     test_get_childNodes();
8517     test_get_firstChild();
8518     test_get_lastChild();
8519     test_removeChild();
8520     test_replaceChild();
8521     test_removeNamedItem();
8522     test_IXMLDOMDocument2();
8523     test_whitespace();
8524     test_XPath();
8525     test_XSLPattern();
8526     test_cloneNode();
8527     test_xmlTypes();
8528     test_nodeTypeTests();
8529     test_DocumentSaveToDocument();
8530     test_DocumentSaveToFile();
8531     test_testTransforms();
8532     test_Namespaces();
8533     test_FormattingXML();
8534     test_nodeTypedValue();
8535     test_TransformWithLoadingLocalFile();
8536     test_put_nodeValue();
8537     test_document_IObjectSafety();
8538     test_splitText();
8539     test_getQualifiedItem();
8540     test_removeQualifiedItem();
8541     test_get_ownerDocument();
8542     test_setAttributeNode();
8543     test_get_dataType();
8544     test_put_dataType();
8545     test_createNode();
8546     test_get_prefix();
8547     test_default_properties();
8548     test_selectSingleNode();
8549     test_events();
8550     test_createProcessingInstruction();
8551     test_put_nodeTypedValue();
8552     test_get_xml();
8553
8554     CoUninitialize();
8555 }