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