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-2011 Adam Martinson for CodeWeavers
   7  * Copyright 2010-2013 Nikolay Sivov for CodeWeavers
   8  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  22  */
  23
  24
  25 #define COBJMACROS
  26 #define CONST_VTABLE
  27
  28 #include <stdio.h>
  29 #include <assert.h>
  30
  31 #include "windows.h"
  32
  33 #include "msxml2.h"
  34 #include "msxml2did.h"
  35 #include "ole2.h"
  36 #include "dispex.h"
  37 #include "objsafe.h"
  38 #include "initguid.h"
  39
  40 #include "wine/test.h"
  41
  42 /* undef the #define in msxml2 so that we can access all versions */
  43 #undef CLSID_DOMDocument
  44
  45 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
  46
  47 static const char *debugstr_guid(REFIID riid)
  48 {
  49     static char buf[50];
  50
  51     if(!riid)
  52         return "(null)";
  53
  54     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
  55             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
  56             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
  57             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
  58
  59     return buf;
  60 }
  61
  62 static int g_unexpectedcall, g_expectedcall;
  63
  64 typedef struct
  65 {
  66     IDispatch IDispatch_iface;
  67     LONG ref;
  68 } dispevent;
  69
  70 static inline dispevent *impl_from_IDispatch( IDispatch *iface )
  71 {
  72     return CONTAINING_RECORD(iface, dispevent, IDispatch_iface);
  73 }
  74
  75 static HRESULT WINAPI dispevent_QueryInterface(IDispatch *iface, REFIID riid, void **ppvObject)
  76 {
  77     *ppvObject = NULL;
  78
  79     if ( IsEqualGUID( riid, &IID_IDispatch) ||
  80          IsEqualGUID( riid, &IID_IUnknown) )
  81     {
  82         *ppvObject = iface;
  83     }
  84     else
  85         return E_NOINTERFACE;
  86
  87     IDispatch_AddRef( iface );
  88
  89     return S_OK;
  90 }
  91
  92 static ULONG WINAPI dispevent_AddRef(IDispatch *iface)
  93 {
  94     dispevent *This = impl_from_IDispatch( iface );
  95     return InterlockedIncrement( &This->ref );
  96 }
  97
  98 static ULONG WINAPI dispevent_Release(IDispatch *iface)
  99 {
 100     dispevent *This = impl_from_IDispatch( iface );
 101     ULONG ref = InterlockedDecrement( &This->ref );
 102
 103     if (ref == 0)
 104         HeapFree(GetProcessHeap(), 0, This);
 105
 106     return ref;
 107 }
 108
 109 static HRESULT WINAPI dispevent_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 110 {
 111     g_unexpectedcall++;
 112     *pctinfo = 0;
 113     return S_OK;
 114 }
 115
 116 static HRESULT WINAPI dispevent_GetTypeInfo(IDispatch *iface, UINT iTInfo,
 117         LCID lcid, ITypeInfo **ppTInfo)
 118 {
 119     g_unexpectedcall++;
 120     return S_OK;
 121 }
 122
 123 static HRESULT WINAPI dispevent_GetIDsOfNames(IDispatch *iface, REFIID riid,
 124         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 125 {
 126     g_unexpectedcall++;
 127     return S_OK;
 128 }
 129
 130 static HRESULT WINAPI dispevent_Invoke(IDispatch *iface, DISPID member, REFIID riid,
 131         LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result,
 132         EXCEPINFO *excepInfo, UINT *argErr)
 133 {
 134     ok(member == 0, "expected 0 member, got %d\n", member);
 135     ok(lcid == LOCALE_SYSTEM_DEFAULT, "expected LOCALE_SYSTEM_DEFAULT, got lcid %x\n", lcid);
 136     ok(flags == DISPATCH_METHOD, "expected DISPATCH_METHOD, got %d\n", flags);
 137
 138     ok(params->cArgs == 0, "got %d\n", params->cArgs);
 139     ok(params->cNamedArgs == 0, "got %d\n", params->cNamedArgs);
 140     ok(params->rgvarg == NULL, "got %p\n", params->rgvarg);
 141     ok(params->rgdispidNamedArgs == NULL, "got %p\n", params->rgdispidNamedArgs);
 142
 143     ok(result == NULL, "got %p\n", result);
 144     ok(excepInfo == NULL, "got %p\n", excepInfo);
 145     ok(argErr == NULL, "got %p\n", argErr);
 146
 147     g_expectedcall++;
 148     return E_FAIL;
 149 }
 150
 151 static const IDispatchVtbl dispeventVtbl =
 152 {
 153     dispevent_QueryInterface,
 154     dispevent_AddRef,
 155     dispevent_Release,
 156     dispevent_GetTypeInfoCount,
 157     dispevent_GetTypeInfo,
 158     dispevent_GetIDsOfNames,
 159     dispevent_Invoke
 160 };
 161
 162 static IDispatch* create_dispevent(void)
 163 {
 164     dispevent *event = HeapAlloc(GetProcessHeap(), 0, sizeof(*event));
 165
 166     event->IDispatch_iface.lpVtbl = &dispeventVtbl;
 167     event->ref = 1;
 168
 169     return (IDispatch*)&event->IDispatch_iface;
 170 }
 171
 172 /* IStream */
 173 static HRESULT WINAPI istream_QueryInterface(IStream *iface, REFIID riid, void **ppvObject)
 174 {
 175     *ppvObject = NULL;
 176
 177     if (IsEqualGUID(riid, &IID_IStream) ||
 178         IsEqualGUID(riid, &IID_IUnknown))
 179         *ppvObject = iface;
 180     else
 181         return E_NOINTERFACE;
 182
 183     return S_OK;
 184 }
 185
 186 static ULONG WINAPI istream_AddRef(IStream *iface)
 187 {
 188     return 2;
 189 }
 190
 191 static ULONG WINAPI istream_Release(IStream *iface)
 192 {
 193     return 1;
 194 }
 195
 196 static HRESULT WINAPI istream_Read(IStream *iface, void *ptr, ULONG len, ULONG *pread)
 197 {
 198     ok(0, "unexpected call\n");
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI istream_Write(IStream *iface, const void *ptr, ULONG len, ULONG *written)
 203 {
 204     *written = len/2;
 205     return S_OK;
 206 }
 207
 208 static HRESULT WINAPI istream_Seek(IStream *iface, LARGE_INTEGER move, DWORD origin, ULARGE_INTEGER *new_pos)
 209 {
 210     ok(0, "unexpected call\n");
 211     return E_NOTIMPL;
 212 }
 213
 214 static HRESULT WINAPI istream_SetSize(IStream *iface, ULARGE_INTEGER size)
 215 {
 216     ok(0, "unexpected call\n");
 217     return E_NOTIMPL;
 218 }
 219
 220 static HRESULT WINAPI istream_CopyTo(IStream *iface, IStream *stream, ULARGE_INTEGER len,
 221         ULARGE_INTEGER *pread, ULARGE_INTEGER *written)
 222 {
 223     ok(0, "unexpected call\n");
 224     return E_NOTIMPL;
 225 }
 226
 227 static HRESULT WINAPI istream_Commit(IStream *iface, DWORD flags)
 228 {
 229     ok(0, "unexpected call\n");
 230     return E_NOTIMPL;
 231 }
 232
 233 static HRESULT WINAPI istream_Revert(IStream *iface)
 234 {
 235     ok(0, "unexpected call\n");
 236     return E_NOTIMPL;
 237 }
 238
 239 static HRESULT WINAPI istream_LockRegion(IStream *iface, ULARGE_INTEGER offset,
 240         ULARGE_INTEGER len, DWORD locktype)
 241 {
 242     ok(0, "unexpected call\n");
 243     return E_NOTIMPL;
 244 }
 245
 246 static HRESULT WINAPI istream_UnlockRegion(IStream *iface, ULARGE_INTEGER offset,
 247         ULARGE_INTEGER len, DWORD locktype)
 248 {
 249     ok(0, "unexpected call\n");
 250     return E_NOTIMPL;
 251 }
 252
 253 static HRESULT WINAPI istream_Stat(IStream *iface, STATSTG *pstatstg, DWORD flag)
 254 {
 255     ok(0, "unexpected call\n");
 256     return E_NOTIMPL;
 257 }
 258
 259 static HRESULT WINAPI istream_Clone(IStream *iface, IStream **stream)
 260 {
 261     ok(0, "unexpected call\n");
 262     return E_NOTIMPL;
 263 }
 264
 265 static const IStreamVtbl StreamVtbl = {
 266     istream_QueryInterface,
 267     istream_AddRef,
 268     istream_Release,
 269     istream_Read,
 270     istream_Write,
 271     istream_Seek,
 272     istream_SetSize,
 273     istream_CopyTo,
 274     istream_Commit,
 275     istream_Revert,
 276     istream_LockRegion,
 277     istream_UnlockRegion,
 278     istream_Stat,
 279     istream_Clone
 280 };
 281
 282 static IStream savestream = { &StreamVtbl };
 283
 284 #define EXPECT_CHILDREN(node) _expect_children((IXMLDOMNode*)node, __LINE__)
 285 static void _expect_children(IXMLDOMNode *node, int line)
 286 {
 287     VARIANT_BOOL b;
 288     HRESULT hr;
 289
 290     b = VARIANT_FALSE;
 291     hr = IXMLDOMNode_hasChildNodes(node, &b);
 292     ok_(__FILE__,line)(hr == S_OK, "hasChildNodes() failed, 0x%08x\n", hr);
 293     ok_(__FILE__,line)(b == VARIANT_TRUE, "no children, %d\n", b);
 294 }
 295
 296 #define EXPECT_NO_CHILDREN(node) _expect_no_children((IXMLDOMNode*)node, __LINE__)
 297 static void _expect_no_children(IXMLDOMNode *node, int line)
 298 {
 299     VARIANT_BOOL b;
 300     HRESULT hr;
 301
 302     b = VARIANT_TRUE;
 303     hr = IXMLDOMNode_hasChildNodes(node, &b);
 304     ok_(__FILE__,line)(hr == S_FALSE, "hasChildNodes() failed, 0x%08x\n", hr);
 305     ok_(__FILE__,line)(b == VARIANT_FALSE, "no children, %d\n", b);
 306 }
 307
 308 #define EXPECT_REF(node,ref) _expect_ref((IUnknown*)node, ref, __LINE__)
 309 static void _expect_ref(IUnknown* obj, ULONG ref, int line)
 310 {
 311     ULONG rc = IUnknown_AddRef(obj);
 312     IUnknown_Release(obj);
 313     ok_(__FILE__,line)(rc-1 == ref, "expected refcount %d, got %d\n", ref, rc-1);
 314 }
 315
 316 #define EXPECT_LIST_LEN(list,len) _expect_list_len(list, len, __LINE__)
 317 static void _expect_list_len(IXMLDOMNodeList *list, LONG len, int line)
 318 {
 319     LONG length;
 320     HRESULT hr;
 321
 322     length = 0;
 323     hr = IXMLDOMNodeList_get_length(list, &length);
 324     ok_(__FILE__,line)(hr == S_OK, "got 0x%08x\n", hr);
 325     ok_(__FILE__,line)(length == len, "got %d, expected %d\n", length, len);
 326 }
 327
 328 #define EXPECT_HR(hr,hr_exp) \
 329     ok(hr == hr_exp, "got 0x%08x, expected 0x%08x\n", hr, hr_exp)
 330
 331 static const WCHAR szEmpty[] = { 0 };
 332 static const WCHAR szIncomplete[] = {
 333     '<','?','x','m','l',' ',
 334     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
 335 };
 336 static const WCHAR szComplete1[] = {
 337     '<','?','x','m','l',' ',
 338     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 339     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
 340 };
 341 static const WCHAR szComplete2[] = {
 342     '<','?','x','m','l',' ',
 343     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 344     '<','o','>','<','/','o','>','\n',0
 345 };
 346 static const WCHAR szComplete3[] = {
 347     '<','?','x','m','l',' ',
 348     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 349     '<','a','>','<','/','a','>','\n',0
 350 };
 351 static const char complete4A[] =
 352     "<?xml version=\'1.0\'?>\n"
 353     "<lc dl=\'str1\'>\n"
 354         "<bs vr=\'str2\' sz=\'1234\'>"
 355             "fn1.txt\n"
 356         "</bs>\n"
 357         "<pr id=\'str3\' vr=\'1.2.3\' pn=\'wine 20050804\'>\n"
 358             "fn2.txt\n"
 359         "</pr>\n"
 360         "<empty></empty>\n"
 361         "<fo>\n"
 362             "<ba>\n"
 363                 "f1\n"
 364             "</ba>\n"
 365         "</fo>\n"
 366     "</lc>\n";
 367
 368 static const WCHAR szComplete5[] = {
 369     '<','S',':','s','e','a','r','c','h',' ','x','m','l','n','s',':','D','=','"','D','A','V',':','"',' ',
 370     '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','"',
 371     ' ','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','"','>',
 372         '<','S',':','s','c','o','p','e','>',
 373             '<','S',':','d','e','e','p','>','/','<','/','S',':','d','e','e','p','>',
 374         '<','/','S',':','s','c','o','p','e','>',
 375         '<','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
 376             '<','C',':','t','e','x','t','o','r','p','r','o','p','e','r','t','y','/','>',
 377             'c','o','m','p','u','t','e','r',
 378         '<','/','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
 379     '<','/','S',':','s','e','a','r','c','h','>',0
 380 };
 381
 382 static const WCHAR szComplete6[] = {
 383     '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'',' ',
 384     'e','n','c','o','d','i','n','g','=','\'','W','i','n','d','o','w','s','-','1','2','5','2','\'','?','>','\n',
 385     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
 386 };
 387
 388 #define DECL_WIN_1252 \
 389 "<?xml version=\"1.0\" encoding=\"Windows-1252\"?>"
 390
 391 static const char win1252xml[] =
 392 DECL_WIN_1252
 393 "<open></open>";
 394
 395 static const char win1252decl[] =
 396 DECL_WIN_1252
 397 ;
 398
 399 static const char szExampleXML[] =
 400 "<?xml version='1.0' encoding='utf-8'?>\n"
 401 "<root xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' a=\"attr a\" foo:b=\"attr b\" >\n"
 402 "    <elem>\n"
 403 "        <a>A1 field</a>\n"
 404 "        <b>B1 field</b>\n"
 405 "        <c>C1 field</c>\n"
 406 "        <d>D1 field</d>\n"
 407 "        <description xmlns:foo='http://www.winehq.org' xmlns:bar='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
 408 "            <html xmlns='http://www.w3.org/1999/xhtml'>\n"
 409 "                This is <strong>a</strong> <i>description</i>. <bar:x/>\n"
 410 "            </html>\n"
 411 "            <html xml:space='preserve' xmlns='http://www.w3.org/1999/xhtml'>\n"
 412 "                This is <strong>a</strong> <i>description</i> with preserved whitespace. <bar:x/>\n"
 413 "            </html>\n"
 414 "        </description>\n"
 415 "    </elem>\n"
 416 "\n"
 417 "    <elem>\n"
 418 "        <a>A2 field</a>\n"
 419 "        <b>B2 field</b>\n"
 420 "        <c type=\"old\">C2 field</c>\n"
 421 "        <d>D2 field</d>\n"
 422 "    </elem>\n"
 423 "\n"
 424 "    <elem xmlns='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
 425 "        <a>A3 field</a>\n"
 426 "        <b>B3 field</b>\n"
 427 "        <c>C3 field</c>\n"
 428 "    </elem>\n"
 429 "\n"
 430 "    <elem>\n"
 431 "        <a>A4 field</a>\n"
 432 "        <b>B4 field</b>\n"
 433 "        <foo:c>C4 field</foo:c>\n"
 434 "        <d>D4 field</d>\n"
 435 "    </elem>\n"
 436 "</root>\n";
 437
 438 static const char charrefsxml[] =
 439 "<?xml version='1.0'?>"
 440 "<a>"
 441 "<b1> Text &#65; end </b1>"
 442 "<b2>&#65;&#66; &#67; </b2>"
 443 "</a>";
 444
 445 static const CHAR szNodeTypesXML[] =
 446 "<?xml version='1.0'?>"
 447 "<!-- comment node 0 -->"
 448 "<root id='0' depth='0'>"
 449 "   <!-- comment node 1 -->"
 450 "   text node 0"
 451 "   <x id='1' depth='1'>"
 452 "       <?foo value='PI for x'?>"
 453 "       <!-- comment node 2 -->"
 454 "       text node 1"
 455 "       <a id='3' depth='2'/>"
 456 "       <b id='4' depth='2'/>"
 457 "       <c id='5' depth='2'/>"
 458 "   </x>"
 459 "   <y id='2' depth='1'>"
 460 "       <?bar value='PI for y'?>"
 461 "       <!-- comment node 3 -->"
 462 "       text node 2"
 463 "       <a id='6' depth='2'/>"
 464 "       <b id='7' depth='2'/>"
 465 "       <c id='8' depth='2'/>"
 466 "   </y>"
 467 "</root>";
 468
 469 static const CHAR szTransformXML[] =
 470 "<?xml version=\"1.0\"?>\n"
 471 "<greeting>\n"
 472 "Hello World\n"
 473 "</greeting>";
 474
 475 static  const CHAR szTransformSSXML[] =
 476 "<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">\n"
 477 "   <xsl:output method=\"html\"/>\n"
 478 "   <xsl:template match=\"/\">\n"
 479 "       <xsl:apply-templates select=\"greeting\"/>\n"
 480 "   </xsl:template>\n"
 481 "   <xsl:template match=\"greeting\">\n"
 482 "       <html>\n"
 483 "           <body>\n"
 484 "               <h1>\n"
 485 "                   <xsl:value-of select=\".\"/>\n"
 486 "               </h1>\n"
 487 "           </body>\n"
 488 "       </html>\n"
 489 "   </xsl:template>\n"
 490 "</xsl:stylesheet>";
 491
 492 static  const CHAR szTransformOutput[] =
 493 "<html><body><h1>"
 494 "Hello World"
 495 "</h1></body></html>";
 496
 497 static const CHAR szTypeValueXML[] =
 498 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
 499 "<root xmlns:dt=\"urn:schemas-microsoft-com:datatypes\">\n"
 500 "   <string>Wine</string>\n"
 501 "   <string2 dt:dt=\"string\">String</string2>\n"
 502 "   <number dt:dt=\"number\">12.44</number>\n"
 503 "   <number2 dt:dt=\"NUMbEr\">-3.71e3</number2>\n"
 504 "   <int dt:dt=\"int\">-13</int>\n"
 505 "   <fixed dt:dt=\"fixed.14.4\">7322.9371</fixed>\n"
 506 "   <bool dt:dt=\"boolean\">1</bool>\n"
 507 "   <datetime dt:dt=\"datetime\">2009-11-18T03:21:33.12</datetime>\n"
 508 "   <datetimetz dt:dt=\"datetime.tz\">2003-07-11T11:13:57+03:00</datetimetz>\n"
 509 "   <date dt:dt=\"date\">3721-11-01</date>\n"
 510 "   <time dt:dt=\"time\">13:57:12.31321</time>\n"
 511 "   <timetz dt:dt=\"time.tz\">23:21:01.13+03:21</timetz>\n"
 512 "   <i1 dt:dt=\"i1\">-13</i1>\n"
 513 "   <i2 dt:dt=\"i2\">31915</i2>\n"
 514 "   <i4 dt:dt=\"i4\">-312232</i4>\n"
 515 "   <ui1 dt:dt=\"ui1\">123</ui1>\n"
 516 "   <ui2 dt:dt=\"ui2\">48282</ui2>\n"
 517 "   <ui4 dt:dt=\"ui4\">949281</ui4>\n"
 518 "   <r4 dt:dt=\"r4\">213124.0</r4>\n"
 519 "   <r8 dt:dt=\"r8\">0.412</r8>\n"
 520 "   <float dt:dt=\"float\">41221.421</float>\n"
 521 "   <uuid dt:dt=\"uuid\">333C7BC4-460F-11D0-BC04-0080C7055a83</uuid>\n"
 522 "   <binhex dt:dt=\"bin.hex\">fffca012003c</binhex>\n"
 523 "   <binbase64 dt:dt=\"bin.base64\">YmFzZTY0IHRlc3Q=</binbase64>\n"
 524 "   <binbase64_1 dt:dt=\"bin.base64\">\nYmFzZTY0\nIHRlc3Q=\n</binbase64_1>\n"
 525 "   <binbase64_2 dt:dt=\"bin.base64\">\nYmF\r\t z  ZTY0\nIHRlc3Q=\n</binbase64_2>\n"
 526 "</root>";
 527
 528 static const CHAR szBasicTransformSSXMLPart1[] =
 529 "<?xml version=\"1.0\"?>"
 530 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
 531 "<xsl:output method=\"html\"/>\n"
 532 "<xsl:template match=\"/\">"
 533 "<HTML><BODY><TABLE>"
 534 "        <xsl:apply-templates select='document(\"";
 535
 536 static const CHAR szBasicTransformSSXMLPart2[] =
 537 "\")/bottle/wine'>"
 538 "           <xsl:sort select=\"cost\"/><xsl:sort select=\"name\"/>"
 539 "        </xsl:apply-templates>"
 540 "</TABLE></BODY></HTML>"
 541 "</xsl:template>"
 542 "<xsl:template match=\"bottle\">"
 543 "   <TR><xsl:apply-templates select=\"name\" /><xsl:apply-templates select=\"cost\" /></TR>"
 544 "</xsl:template>"
 545 "<xsl:template match=\"name\">"
 546 "   <TD><xsl:apply-templates /></TD>"
 547 "</xsl:template>"
 548 "<xsl:template match=\"cost\">"
 549 "   <TD><xsl:apply-templates /></TD>"
 550 "</xsl:template>"
 551 "</xsl:stylesheet>";
 552
 553 static const CHAR szBasicTransformXML[] =
 554 "<?xml version=\"1.0\"?><bottle><wine><name>Wine</name><cost>$25.00</cost></wine></bottle>";
 555
 556 static const CHAR szBasicTransformOutput[] =
 557 "<HTML><BODY><TABLE><TD>Wine</TD><TD>$25.00</TD></TABLE></BODY></HTML>";
 558
 559 #define SZ_EMAIL_DTD \
 560 "<!DOCTYPE email ["\
 561 "   <!ELEMENT email         (recipients,from,reply-to?,subject,body,attachment*)>"\
 562 "       <!ATTLIST email attachments IDREFS #REQUIRED>"\
 563 "       <!ATTLIST email sent (yes|no) \"no\">"\
 564 "   <!ELEMENT recipients    (to+,cc*)>"\
 565 "   <!ELEMENT to            (#PCDATA)>"\
 566 "       <!ATTLIST to name CDATA #IMPLIED>"\
 567 "   <!ELEMENT cc            (#PCDATA)>"\
 568 "       <!ATTLIST cc name CDATA #IMPLIED>"\
 569 "   <!ELEMENT from          (#PCDATA)>"\
 570 "       <!ATTLIST from name CDATA #IMPLIED>"\
 571 "   <!ELEMENT reply-to      (#PCDATA)>"\
 572 "       <!ATTLIST reply-to name CDATA #IMPLIED>"\
 573 "   <!ELEMENT subject       ANY>"\
 574 "   <!ELEMENT body          ANY>"\
 575 "       <!ATTLIST body enc CDATA #FIXED \"UTF-8\">"\
 576 "   <!ELEMENT attachment    (#PCDATA)>"\
 577 "       <!ATTLIST attachment id ID #REQUIRED>"\
 578 "]>"
 579
 580 static const CHAR szEmailXML[] =
 581 "<?xml version=\"1.0\"?>"
 582 SZ_EMAIL_DTD
 583 "<email attachments=\"patch1\">"
 584 "   <recipients>"
 585 "       <to>wine-patches@winehq.org</to>"
 586 "   </recipients>"
 587 "   <from name=\"Anonymous\">user@localhost</from>"
 588 "   <subject>msxml3/tests: DTD validation (try 87)</subject>"
 589 "   <body>"
 590 "       It no longer causes spontaneous combustion..."
 591 "   </body>"
 592 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 593 "</email>";
 594
 595 static const CHAR szEmailXML_0D[] =
 596 "<?xml version=\"1.0\"?>"
 597 SZ_EMAIL_DTD
 598 "<email attachments=\"patch1\">"
 599 "   <recipients>"
 600 "       <to>wine-patches@winehq.org</to>"
 601 "   </recipients>"
 602 "   <from name=\"Anonymous\">user@localhost</from>"
 603 "   <subject>msxml3/tests: DTD validation (try 88)</subject>"
 604 "   <body>"
 605 "       <undecl />"
 606 "       XML_ELEMENT_UNDECLARED 0xC00CE00D"
 607 "   </body>"
 608 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 609 "</email>";
 610
 611 static const CHAR szEmailXML_0E[] =
 612 "<?xml version=\"1.0\"?>"
 613 SZ_EMAIL_DTD
 614 "<email attachments=\"patch1\">"
 615 "   <recipients>"
 616 "       <to>wine-patches@winehq.org</to>"
 617 "   </recipients>"
 618 "   <from name=\"Anonymous\">user@localhost</from>"
 619 "   <subject>msxml3/tests: DTD validation (try 89)</subject>"
 620 "   <body>"
 621 "       XML_ELEMENT_ID_NOT_FOUND 0xC00CE00E"
 622 "   </body>"
 623 "   <attachment id=\"patch\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 624 "</email>";
 625
 626 static const CHAR szEmailXML_11[] =
 627 "<?xml version=\"1.0\"?>"
 628 SZ_EMAIL_DTD
 629 "<email attachments=\"patch1\">"
 630 "   <recipients>"
 631 "   </recipients>"
 632 "   <from name=\"Anonymous\">user@localhost</from>"
 633 "   <subject>msxml3/tests: DTD validation (try 90)</subject>"
 634 "   <body>"
 635 "       XML_EMPTY_NOT_ALLOWED 0xC00CE011"
 636 "   </body>"
 637 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 638 "</email>";
 639
 640 static const CHAR szEmailXML_13[] =
 641 "<?xml version=\"1.0\"?>"
 642 SZ_EMAIL_DTD
 643 "<msg attachments=\"patch1\">"
 644 "   <recipients>"
 645 "       <to>wine-patches@winehq.org</to>"
 646 "   </recipients>"
 647 "   <from name=\"Anonymous\">user@localhost</from>"
 648 "   <subject>msxml3/tests: DTD validation (try 91)</subject>"
 649 "   <body>"
 650 "       XML_ROOT_NAME_MISMATCH 0xC00CE013"
 651 "   </body>"
 652 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 653 "</msg>";
 654
 655 static const CHAR szEmailXML_14[] =
 656 "<?xml version=\"1.0\"?>"
 657 SZ_EMAIL_DTD
 658 "<email attachments=\"patch1\">"
 659 "   <to>wine-patches@winehq.org</to>"
 660 "   <from name=\"Anonymous\">user@localhost</from>"
 661 "   <subject>msxml3/tests: DTD validation (try 92)</subject>"
 662 "   <body>"
 663 "       XML_INVALID_CONTENT 0xC00CE014"
 664 "   </body>"
 665 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 666 "</email>";
 667
 668 static const CHAR szEmailXML_15[] =
 669 "<?xml version=\"1.0\"?>"
 670 SZ_EMAIL_DTD
 671 "<email attachments=\"patch1\" ip=\"127.0.0.1\">"
 672 "   <recipients>"
 673 "       <to>wine-patches@winehq.org</to>"
 674 "   </recipients>"
 675 "   <from name=\"Anonymous\">user@localhost</from>"
 676 "   <subject>msxml3/tests: DTD validation (try 93)</subject>"
 677 "   <body>"
 678 "       XML_ATTRIBUTE_NOT_DEFINED 0xC00CE015"
 679 "   </body>"
 680 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 681 "</email>";
 682
 683 static const CHAR szEmailXML_16[] =
 684 "<?xml version=\"1.0\"?>"
 685 SZ_EMAIL_DTD
 686 "<email attachments=\"patch1\">"
 687 "   <recipients>"
 688 "       <to>wine-patches@winehq.org</to>"
 689 "   </recipients>"
 690 "   <from name=\"Anonymous\">user@localhost</from>"
 691 "   <subject>msxml3/tests: DTD validation (try 94)</subject>"
 692 "   <body enc=\"ASCII\">"
 693 "       XML_ATTRIBUTE_FIXED 0xC00CE016"
 694 "   </body>"
 695 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 696 "</email>";
 697
 698 static const CHAR szEmailXML_17[] =
 699 "<?xml version=\"1.0\"?>"
 700 SZ_EMAIL_DTD
 701 "<email attachments=\"patch1\" sent=\"true\">"
 702 "   <recipients>"
 703 "       <to>wine-patches@winehq.org</to>"
 704 "   </recipients>"
 705 "   <from name=\"Anonymous\">user@localhost</from>"
 706 "   <subject>msxml3/tests: DTD validation (try 95)</subject>"
 707 "   <body>"
 708 "       XML_ATTRIBUTE_VALUE 0xC00CE017"
 709 "   </body>"
 710 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 711 "</email>";
 712
 713 static const CHAR szEmailXML_18[] =
 714 "<?xml version=\"1.0\"?>"
 715 SZ_EMAIL_DTD
 716 "<email attachments=\"patch1\">"
 717 "   oops"
 718 "   <recipients>"
 719 "       <to>wine-patches@winehq.org</to>"
 720 "   </recipients>"
 721 "   <from name=\"Anonymous\">user@localhost</from>"
 722 "   <subject>msxml3/tests: DTD validation (try 96)</subject>"
 723 "   <body>"
 724 "       XML_ILLEGAL_TEXT 0xC00CE018"
 725 "   </body>"
 726 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 727 "</email>";
 728
 729 static const CHAR szEmailXML_20[] =
 730 "<?xml version=\"1.0\"?>"
 731 SZ_EMAIL_DTD
 732 "<email>"
 733 "   <recipients>"
 734 "       <to>wine-patches@winehq.org</to>"
 735 "   </recipients>"
 736 "   <from name=\"Anonymous\">user@localhost</from>"
 737 "   <subject>msxml3/tests: DTD validation (try 97)</subject>"
 738 "   <body>"
 739 "       XML_REQUIRED_ATTRIBUTE_MISSING 0xC00CE020"
 740 "   </body>"
 741 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 742 "</email>";
 743
 744 static const char xpath_simple_list[] =
 745 "<?xml version=\"1.0\"?>"
 746 "<root>"
 747 "   <a attr1=\"1\" attr2=\"2\" />"
 748 "   <b/>"
 749 "   <c/>"
 750 "   <d/>"
 751 "</root>";
 752
 753 static const char default_ns_doc[] = {
 754     "<?xml version=\"1.0\"?>"
 755     "<a xmlns:ns=\"nshref\" xml:lang=\"ru\" ns:b=\"b attr\" xml:c=\"c attr\" "
 756     "    d=\"d attr\" />"
 757 };
 758
 759 static const char attributes_map[] = {
 760     "<?xml version=\"1.0\"?>"
 761     "<a attr1=\"value1\" attr2=\"value2\" attr3=\"value3\" attr4=\"value4\" />"
 762 };
 763
 764 static const WCHAR nonexistent_fileW[] = {
 765     'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
 766 };
 767 static const WCHAR nonexistent_attrW[] = {
 768     'n','o','n','E','x','i','s','i','t','i','n','g','A','t','t','r','i','b','u','t','e',0
 769 };
 770 static const WCHAR szDocument[] = {
 771     '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
 772 };
 773
 774 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
 775 static WCHAR szdl[] = { 'd','l',0 };
 776 static const WCHAR szvr[] = { 'v','r',0 };
 777 static const WCHAR szlc[] = { 'l','c',0 };
 778 static WCHAR szbs[] = { 'b','s',0 };
 779 static const WCHAR szstr1[] = { 's','t','r','1',0 };
 780 static const WCHAR szstr2[] = { 's','t','r','2',0 };
 781 static const WCHAR szstar[] = { '*',0 };
 782 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
 783
 784 static WCHAR szComment[] = {'A',' ','C','o','m','m','e','n','t',0 };
 785 static WCHAR szCommentXML[] = {'<','!','-','-','A',' ','C','o','m','m','e','n','t','-','-','>',0 };
 786 static WCHAR szCommentNodeText[] = {'#','c','o','m','m','e','n','t',0 };
 787
 788 static WCHAR szElement[] = {'E','l','e','T','e','s','t', 0 };
 789 static WCHAR szElementXML[]  = {'<','E','l','e','T','e','s','t','/','>',0 };
 790 static WCHAR szElementXML2[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','/','>',0 };
 791 static WCHAR szElementXML3[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 792                                 'T','e','s','t','i','n','g','N','o','d','e','<','/','E','l','e','T','e','s','t','>',0 };
 793 static WCHAR szElementXML4[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 794                                 '&','a','m','p',';','x',' ',0x2103,'<','/','E','l','e','T','e','s','t','>',0 };
 795
 796 static WCHAR szAttribute[] = {'A','t','t','r',0 };
 797 static WCHAR szAttributeXML[] = {'A','t','t','r','=','"','"',0 };
 798
 799 static WCHAR szCData[] = {'[','1',']','*','2','=','3',';',' ','&','g','e','e',' ','t','h','a','t','s',
 800                           ' ','n','o','t',' ','r','i','g','h','t','!', 0};
 801 static WCHAR szCDataXML[] = {'<','!','[','C','D','A','T','A','[','[','1',']','*','2','=','3',';',' ','&',
 802                              'g','e','e',' ','t','h','a','t','s',' ','n','o','t',' ','r','i','g','h','t',
 803                              '!',']',']','>',0};
 804 static WCHAR szCDataNodeText[] = {'#','c','d','a','t','a','-','s','e','c','t','i','o','n',0 };
 805 static WCHAR szDocFragmentText[] = {'#','d','o','c','u','m','e','n','t','-','f','r','a','g','m','e','n','t',0 };
 806
 807 static WCHAR szEntityRef[] = {'e','n','t','i','t','y','r','e','f',0 };
 808 static WCHAR szEntityRefXML[] = {'&','e','n','t','i','t','y','r','e','f',';',0 };
 809 static WCHAR szStrangeChars[] = {'&','x',' ',0x2103, 0};
 810
 811 #define expect_bstr_eq_and_free(bstr, expect) { \
 812     BSTR bstrExp = alloc_str_from_narrow(expect); \
 813     ok(lstrcmpW(bstr, bstrExp) == 0, "String differs\n"); \
 814     SysFreeString(bstr); \
 815     SysFreeString(bstrExp); \
 816 }
 817
 818 #define expect_eq(expr, value, type, format) { type ret = (expr); ok((value) == ret, #expr " expected " format " got " format "\n", value, ret); }
 819
 820 #define ole_check(expr) { \
 821     HRESULT r = expr; \
 822     ok(r == S_OK, #expr " returned %x\n", r); \
 823 }
 824
 825 #define ole_expect(expr, expect) { \
 826     HRESULT r = expr; \
 827     ok(r == (expect), #expr " returned %x, expected %x\n", r, expect); \
 828 }
 829
 830 #define double_eq(x, y) ok((x)-(y)<=1e-14*(x) && (x)-(y)>=-1e-14*(x), "expected %.16g, got %.16g\n", x, y)
 831
 832 static void* _create_object(const GUID *clsid, const char *name, const IID *iid, int line)
 833 {
 834     void *obj = NULL;
 835     HRESULT hr;
 836
 837     hr = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER, iid, &obj);
 838     if (hr != S_OK)
 839         win_skip_(__FILE__,line)("failed to create %s instance: 0x%08x\n", name, hr);
 840
 841     return obj;
 842 }
 843
 844 #define _create(cls) cls, #cls
 845
 846 #define create_document(iid) _create_object(&_create(CLSID_DOMDocument2), iid, __LINE__)
 847 #define create_document_version(v, iid) _create_object(&_create(CLSID_DOMDocument ## v), iid, __LINE__)
 848 #define create_cache(iid) _create_object(&_create(CLSID_XMLSchemaCache), iid, __LINE__)
 849 #define create_cache_version(v, iid) _create_object(&_create(CLSID_XMLSchemaCache ## v), iid, __LINE__)
 850 #define create_xsltemplate(iid) _create_object(&_create(CLSID_XSLTemplate), iid, __LINE__)
 851
 852 static BSTR alloc_str_from_narrow(const char *str)
 853 {
 854     int len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 855     BSTR ret = SysAllocStringLen(NULL, len - 1);  /* NUL character added automatically */
 856     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 857     return ret;
 858 }
 859
 860 static BSTR alloced_bstrs[256];
 861 static int alloced_bstrs_count;
 862
 863 static BSTR _bstr_(const char *str)
 864 {
 865     assert(alloced_bstrs_count < sizeof(alloced_bstrs)/sizeof(alloced_bstrs[0]));
 866     alloced_bstrs[alloced_bstrs_count] = alloc_str_from_narrow(str);
 867     return alloced_bstrs[alloced_bstrs_count++];
 868 }
 869
 870 static void free_bstrs(void)
 871 {
 872     int i;
 873     for (i = 0; i < alloced_bstrs_count; i++)
 874         SysFreeString(alloced_bstrs[i]);
 875     alloced_bstrs_count = 0;
 876 }
 877
 878 static VARIANT _variantbstr_(const char *str)
 879 {
 880     VARIANT v;
 881     V_VT(&v) = VT_BSTR;
 882     V_BSTR(&v) = _bstr_(str);
 883     return v;
 884 }
 885
 886 static BOOL compareIgnoreReturns(BSTR sLeft, BSTR sRight)
 887 {
 888     for (;;)
 889     {
 890         while (*sLeft == '\r' || *sLeft == '\n') sLeft++;
 891         while (*sRight == '\r' || *sRight == '\n') sRight++;
 892         if (*sLeft != *sRight) return FALSE;
 893         if (!*sLeft) return TRUE;
 894         sLeft++;
 895         sRight++;
 896     }
 897 }
 898
 899 static void get_str_for_type(DOMNodeType type, char *buf)
 900 {
 901     switch (type)
 902     {
 903         case NODE_ATTRIBUTE:
 904             strcpy(buf, "A");
 905             break;
 906         case NODE_ELEMENT:
 907             strcpy(buf, "E");
 908             break;
 909         case NODE_DOCUMENT:
 910             strcpy(buf, "D");
 911             break;
 912         case NODE_TEXT:
 913             strcpy(buf, "T");
 914             break;
 915         case NODE_COMMENT:
 916             strcpy(buf, "C");
 917             break;
 918         case NODE_PROCESSING_INSTRUCTION:
 919             strcpy(buf, "P");
 920             break;
 921         default:
 922             wsprintfA(buf, "[%d]", type);
 923     }
 924 }
 925
 926 static int get_node_position(IXMLDOMNode *node)
 927 {
 928     HRESULT r;
 929     int pos = 0;
 930
 931     IXMLDOMNode_AddRef(node);
 932     do
 933     {
 934         IXMLDOMNode *new_node;
 935
 936         pos++;
 937         r = IXMLDOMNode_get_previousSibling(node, &new_node);
 938         ok(SUCCEEDED(r), "get_previousSibling failed\n");
 939         IXMLDOMNode_Release(node);
 940         node = new_node;
 941     } while (r == S_OK);
 942     return pos;
 943 }
 944
 945 static void node_to_string(IXMLDOMNode *node, char *buf)
 946 {
 947     HRESULT r = S_OK;
 948     DOMNodeType type;
 949
 950     if (node == NULL)
 951     {
 952         lstrcpyA(buf, "(null)");
 953         return;
 954     }
 955
 956     IXMLDOMNode_AddRef(node);
 957     while (r == S_OK)
 958     {
 959         IXMLDOMNode *new_node;
 960
 961         ole_check(IXMLDOMNode_get_nodeType(node, &type));
 962         get_str_for_type(type, buf);
 963         buf+=strlen(buf);
 964
 965         if (type == NODE_ATTRIBUTE)
 966         {
 967             BSTR bstr;
 968             ole_check(IXMLDOMNode_get_nodeName(node, &bstr));
 969             *(buf++) = '\'';
 970             wsprintfA(buf, "%ws", bstr);
 971             buf += strlen(buf);
 972             *(buf++) = '\'';
 973             SysFreeString(bstr);
 974
 975             r = IXMLDOMNode_selectSingleNode(node, _bstr_(".."), &new_node);
 976         }
 977         else
 978         {
 979             r = IXMLDOMNode_get_parentNode(node, &new_node);
 980             wsprintf(buf, "%d", get_node_position(node));
 981             buf += strlen(buf);
 982         }
 983
 984         ok(SUCCEEDED(r), "get_parentNode failed (%08x)\n", r);
 985         IXMLDOMNode_Release(node);
 986         node = new_node;
 987         if (r == S_OK)
 988             *(buf++) = '.';
 989     }
 990
 991     *buf = 0;
 992 }
 993
 994 static char *list_to_string(IXMLDOMNodeList *list)
 995 {
 996     static char buf[4096];
 997     char *pos = buf;
 998     LONG len = 0;
 999     int i;
1000
1001     if (list == NULL)
1002     {
1003         lstrcpyA(buf, "(null)");
1004         return buf;
1005     }
1006     ole_check(IXMLDOMNodeList_get_length(list, &len));
1007     for (i = 0; i < len; i++)
1008     {
1009         IXMLDOMNode *node;
1010         if (i > 0)
1011             *(pos++) = ' ';
1012         ole_check(IXMLDOMNodeList_nextNode(list, &node));
1013         node_to_string(node, pos);
1014         pos += strlen(pos);
1015         IXMLDOMNode_Release(node);
1016     }
1017     *pos = 0;
1018     return buf;
1019 }
1020
1021 #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); }
1022 #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); }
1023
1024 struct docload_ret_t {
1025     VARIANT_BOOL b;
1026     HRESULT hr;
1027 };
1028
1029 struct leading_spaces_t {
1030     const CLSID *clsid;
1031     const char *name;
1032     struct docload_ret_t ret[2]; /* 0 - ::load(), 1 - ::loadXML() */
1033 };
1034
1035 static const struct leading_spaces_t leading_spaces_classdata[] = {
1036     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE,  S_OK } }},
1037     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1038     { &CLSID_DOMDocument26, "CLSID_DOMDocument26", {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE,  S_OK } }},
1039     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1040     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1041     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1042     { NULL }
1043 };
1044
1045 static const char* leading_spaces_xmldata[] = {
1046     "\n<?xml version=\"1.0\" encoding=\"UTF-16\" ?><root/>",
1047     " <?xml version=\"1.0\"?><root/>",
1048     "\n<?xml version=\"1.0\"?><root/>",
1049     "\t<?xml version=\"1.0\"?><root/>",
1050     "\r\n<?xml version=\"1.0\"?><root/>",
1051     "\r<?xml version=\"1.0\"?><root/>",
1052     "\r\r\r\r\t\t \n\n <?xml version=\"1.0\"?><root/>",
1053     0
1054 };
1055
1056 static void test_domdoc( void )
1057 {
1058     HRESULT r, hr;
1059     IXMLDOMDocument *doc;
1060     IXMLDOMParseError *error;
1061     IXMLDOMElement *element = NULL;
1062     IXMLDOMNode *node;
1063     IXMLDOMText *nodetext = NULL;
1064     IXMLDOMComment *node_comment = NULL;
1065     IXMLDOMAttribute *node_attr = NULL;
1066     IXMLDOMNode *nodeChild = NULL;
1067     IXMLDOMProcessingInstruction *nodePI = NULL;
1068     const struct leading_spaces_t *class_ptr;
1069     const char **data_ptr;
1070     VARIANT_BOOL b;
1071     VARIANT var;
1072     BSTR str;
1073     LONG code, ref;
1074     LONG nLength = 0;
1075     WCHAR buff[100];
1076     char path[MAX_PATH];
1077     int index;
1078
1079     GetTempPathA(MAX_PATH, path);
1080     strcat(path, "leading_spaces.xml");
1081
1082     /* Load document with leading spaces
1083      *
1084      * Test all CLSIDs with all test data XML strings
1085      */
1086     class_ptr = leading_spaces_classdata;
1087     index = 0;
1088     while (class_ptr->clsid)
1089     {
1090         HRESULT hr;
1091         int i;
1092
1093         hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
1094              &IID_IXMLDOMDocument, (void**)&doc);
1095         if (hr != S_OK) {
1096             win_skip("%d: failed to create class instance for %s\n", index, class_ptr->name);
1097             class_ptr++;
1098             index++;
1099             continue;
1100         }
1101
1102         data_ptr = leading_spaces_xmldata;
1103         i = 0;
1104         while (*data_ptr) {
1105             BSTR data = _bstr_(*data_ptr);
1106             DWORD written;
1107             HANDLE file;
1108
1109             file = CreateFileA(path, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
1110             ok(file != INVALID_HANDLE_VALUE, "can't create file %s: %u\n", path, GetLastError());
1111
1112             WriteFile(file, data, lstrlenW(data)*sizeof(WCHAR), &written, NULL);
1113             CloseHandle(file);
1114
1115             b = 0xc;
1116             V_VT(&var) = VT_BSTR;
1117             V_BSTR(&var) = _bstr_(path);
1118             hr = IXMLDOMDocument_load(doc, var, &b);
1119         todo_wine {
1120             EXPECT_HR(hr, class_ptr->ret[0].hr);
1121             ok(b == class_ptr->ret[0].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[0].b);
1122         }
1123             DeleteFileA(path);
1124
1125             b = 0xc;
1126             hr = IXMLDOMDocument_loadXML(doc, data, &b);
1127             EXPECT_HR(hr, class_ptr->ret[1].hr);
1128             ok(b == class_ptr->ret[1].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[1].b);
1129
1130             data_ptr++;
1131             i++;
1132         }
1133
1134         class_ptr++;
1135         index++;
1136         free_bstrs();
1137     }
1138
1139     doc = create_document(&IID_IXMLDOMDocument);
1140     if (!doc) return;
1141
1142 if (0)
1143 {
1144     /* crashes on native */
1145     IXMLDOMDocument_loadXML( doc, (BSTR)0x1, NULL );
1146 }
1147
1148     /* try some stupid things */
1149     hr = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1150     EXPECT_HR(hr, S_FALSE);
1151
1152     b = VARIANT_TRUE;
1153     hr = IXMLDOMDocument_loadXML( doc, NULL, &b );
1154     EXPECT_HR(hr, S_FALSE);
1155     ok( b == VARIANT_FALSE, "failed to load XML string\n");
1156
1157     /* try to load a document from a nonexistent file */
1158     b = VARIANT_TRUE;
1159     str = SysAllocString( nonexistent_fileW );
1160     VariantInit(&var);
1161     V_VT(&var) = VT_BSTR;
1162     V_BSTR(&var) = str;
1163
1164     r = IXMLDOMDocument_load( doc, var, &b);
1165     ok( r == S_FALSE, "loadXML succeeded\n");
1166     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1167     SysFreeString( str );
1168
1169     /* try load an empty document */
1170     b = VARIANT_TRUE;
1171     str = SysAllocString( szEmpty );
1172     r = IXMLDOMDocument_loadXML( doc, str, &b );
1173     ok( r == S_FALSE, "loadXML succeeded\n");
1174     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1175     SysFreeString( str );
1176
1177     r = IXMLDOMDocument_get_async( doc, &b );
1178     ok( r == S_OK, "get_async failed (%08x)\n", r);
1179     ok( b == VARIANT_TRUE, "Wrong default value\n");
1180
1181     /* check that there's no document element */
1182     element = NULL;
1183     r = IXMLDOMDocument_get_documentElement( doc, &element );
1184     ok( r == S_FALSE, "should be no document element\n");
1185
1186     /* try finding a node */
1187     node = NULL;
1188     str = SysAllocString( szstr1 );
1189     r = IXMLDOMDocument_selectSingleNode( doc, str, &node );
1190     ok( r == S_FALSE, "ret %08x\n", r );
1191     SysFreeString( str );
1192
1193     b = VARIANT_TRUE;
1194     str = SysAllocString( szIncomplete );
1195     r = IXMLDOMDocument_loadXML( doc, str, &b );
1196     ok( r == S_FALSE, "loadXML succeeded\n");
1197     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1198     SysFreeString( str );
1199
1200     /* check that there's no document element */
1201     element = (IXMLDOMElement*)1;
1202     r = IXMLDOMDocument_get_documentElement( doc, &element );
1203     ok( r == S_FALSE, "should be no document element\n");
1204     ok( element == NULL, "Element should be NULL\n");
1205
1206     /* test for BSTR handling, pass broken BSTR */
1207     memcpy(&buff[2], szComplete1, sizeof(szComplete1));
1208     /* just a big length */
1209     *(DWORD*)buff = 0xf0f0;
1210     b = VARIANT_FALSE;
1211     r = IXMLDOMDocument_loadXML( doc, &buff[2], &b );
1212     ok( r == S_OK, "loadXML failed\n");
1213     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1214
1215     /* loadXML ignores the encoding attribute and always expects Unicode */
1216     b = VARIANT_FALSE;
1217     str = SysAllocString( szComplete6 );
1218     r = IXMLDOMDocument_loadXML( doc, str, &b );
1219     ok( r == S_OK, "loadXML failed\n");
1220     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1221     SysFreeString( str );
1222
1223     /* try a BSTR containing a Windows-1252 document */
1224     b = VARIANT_TRUE;
1225     str = SysAllocStringByteLen( win1252xml, strlen(win1252xml) );
1226     r = IXMLDOMDocument_loadXML( doc, str, &b );
1227     ok( r == S_FALSE, "loadXML succeeded\n");
1228     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1229     SysFreeString( str );
1230
1231     /* try to load something valid */
1232     b = VARIANT_FALSE;
1233     str = SysAllocString( szComplete1 );
1234     r = IXMLDOMDocument_loadXML( doc, str, &b );
1235     ok( r == S_OK, "loadXML failed\n");
1236     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1237     SysFreeString( str );
1238
1239     /* check if nodename is correct */
1240     r = IXMLDOMDocument_get_nodeName( doc, NULL );
1241     ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1242
1243     str = (BSTR)0xdeadbeef;
1244     r = IXMLDOMDocument_get_baseName( doc, &str );
1245     ok ( r == S_FALSE, "got 0x%08x\n", r);
1246     ok (str == NULL, "got %p\n", str);
1247
1248     /* content doesn't matter here */
1249     str = NULL;
1250     r = IXMLDOMDocument_get_nodeName( doc, &str );
1251     ok ( r == S_OK, "get_nodeName wrong code\n");
1252     ok ( str != NULL, "str is null\n");
1253     ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
1254     SysFreeString( str );
1255
1256     /* test put_text */
1257     r = IXMLDOMDocument_put_text( doc, _bstr_("Should Fail") );
1258     ok( r == E_FAIL, "ret %08x\n", r );
1259
1260     /* check that there's a document element */
1261     element = NULL;
1262     r = IXMLDOMDocument_get_documentElement( doc, &element );
1263     ok( r == S_OK, "should be a document element\n");
1264     if( element )
1265     {
1266         IObjectIdentity *ident;
1267
1268         r = IXMLDOMElement_QueryInterface( element, &IID_IObjectIdentity, (void**)&ident );
1269         ok( r == E_NOINTERFACE, "ret %08x\n", r);
1270
1271         IXMLDOMElement_Release( element );
1272         element = NULL;
1273     }
1274
1275     /* as soon as we call loadXML again, the document element will disappear */
1276     b = 2;
1277     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1278     ok( r == S_FALSE, "loadXML failed\n");
1279     ok( b == 2, "variant modified\n");
1280     r = IXMLDOMDocument_get_documentElement( doc, &element );
1281     ok( r == S_FALSE, "should be no document element\n");
1282
1283     /* try to load something else simple and valid */
1284     b = VARIANT_FALSE;
1285     str = SysAllocString( szComplete3 );
1286     r = IXMLDOMDocument_loadXML( doc, str, &b );
1287     ok( r == S_OK, "loadXML failed\n");
1288     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1289     SysFreeString( str );
1290
1291     /* try something a little more complicated */
1292     b = FALSE;
1293     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1294     ok( r == S_OK, "loadXML failed\n");
1295     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1296
1297     r = IXMLDOMDocument_get_parseError( doc, &error );
1298     ok( r == S_OK, "returns %08x\n", r );
1299
1300     r = IXMLDOMParseError_get_errorCode( error, &code );
1301     ok( r == S_FALSE, "returns %08x\n", r );
1302     ok( code == 0, "code %d\n", code );
1303     IXMLDOMParseError_Release( error );
1304
1305     /* test createTextNode */
1306     r = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &nodetext);
1307     ok( r == S_OK, "returns %08x\n", r );
1308     IXMLDOMText_Release(nodetext);
1309
1310     str = SysAllocString( szOpen );
1311     r = IXMLDOMDocument_createTextNode(doc, str, NULL);
1312     ok( r == E_INVALIDARG, "returns %08x\n", r );
1313     r = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
1314     ok( r == S_OK, "returns %08x\n", r );
1315     SysFreeString( str );
1316     if(nodetext)
1317     {
1318         r = IXMLDOMText_QueryInterface(nodetext, &IID_IXMLDOMElement, (void**)&element);
1319         ok(r == E_NOINTERFACE, "ret %08x\n", r );
1320
1321         /* Text Last Child Checks */
1322         r = IXMLDOMText_get_lastChild(nodetext, NULL);
1323         ok(r == E_INVALIDARG, "ret %08x\n", r );
1324
1325         nodeChild = (IXMLDOMNode*)0x1;
1326         r = IXMLDOMText_get_lastChild(nodetext, &nodeChild);
1327         ok(r == S_FALSE, "ret %08x\n", r );
1328         ok(nodeChild == NULL, "nodeChild not NULL\n");
1329
1330         /* test length property */
1331         r = IXMLDOMText_get_length(nodetext, NULL);
1332         ok(r == E_INVALIDARG, "ret %08x\n", r );
1333
1334         r = IXMLDOMText_get_length(nodetext, &nLength);
1335         ok(r == S_OK, "ret %08x\n", r );
1336         ok(nLength == 4, "expected 4 got %d\n", nLength);
1337
1338         /* put data Tests */
1339         r = IXMLDOMText_put_data(nodetext, _bstr_("This &is a ; test <>\\"));
1340         ok(r == S_OK, "ret %08x\n", r );
1341
1342         /* get data Tests */
1343         r = IXMLDOMText_get_data(nodetext, &str);
1344         ok(r == S_OK, "ret %08x\n", r );
1345         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect put_data string\n");
1346         SysFreeString(str);
1347
1348         /* Confirm XML text is good */
1349         r = IXMLDOMText_get_xml(nodetext, &str);
1350         ok(r == S_OK, "ret %08x\n", r );
1351         ok( !lstrcmpW( str, _bstr_("This &amp;is a ; test &lt;&gt;\\") ), "incorrect xml string\n");
1352         SysFreeString(str);
1353
1354         /* Confirm we get the put_data Text back */
1355         r = IXMLDOMText_get_text(nodetext, &str);
1356         ok(r == S_OK, "ret %08x\n", r );
1357         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1358         SysFreeString(str);
1359
1360         /* test substringData */
1361         r = IXMLDOMText_substringData(nodetext, 0, 4, NULL);
1362         ok(r == E_INVALIDARG, "ret %08x\n", r );
1363
1364         /* test substringData - Invalid offset */
1365         str = (BSTR)&szElement;
1366         r = IXMLDOMText_substringData(nodetext, -1, 4, &str);
1367         ok(r == E_INVALIDARG, "ret %08x\n", r );
1368         ok( str == NULL, "incorrect string\n");
1369
1370         /* test substringData - Invalid offset */
1371         str = (BSTR)&szElement;
1372         r = IXMLDOMText_substringData(nodetext, 30, 0, &str);
1373         ok(r == S_FALSE, "ret %08x\n", r );
1374         ok( str == NULL, "incorrect string\n");
1375
1376         /* test substringData - Invalid size */
1377         str = (BSTR)&szElement;
1378         r = IXMLDOMText_substringData(nodetext, 0, -1, &str);
1379         ok(r == E_INVALIDARG, "ret %08x\n", r );
1380         ok( str == NULL, "incorrect string\n");
1381
1382         /* test substringData - Invalid size */
1383         str = (BSTR)&szElement;
1384         r = IXMLDOMText_substringData(nodetext, 2, 0, &str);
1385         ok(r == S_FALSE, "ret %08x\n", r );
1386         ok( str == NULL, "incorrect string\n");
1387
1388         /* test substringData - Start of string */
1389         r = IXMLDOMText_substringData(nodetext, 0, 4, &str);
1390         ok(r == S_OK, "ret %08x\n", r );
1391         ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
1392         SysFreeString(str);
1393
1394         /* test substringData - Middle of string */
1395         r = IXMLDOMText_substringData(nodetext, 13, 4, &str);
1396         ok(r == S_OK, "ret %08x\n", r );
1397         ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
1398         SysFreeString(str);
1399
1400         /* test substringData - End of string */
1401         r = IXMLDOMText_substringData(nodetext, 20, 4, &str);
1402         ok(r == S_OK, "ret %08x\n", r );
1403         ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
1404         SysFreeString(str);
1405
1406         /* test appendData */
1407         r = IXMLDOMText_appendData(nodetext, NULL);
1408         ok(r == S_OK, "ret %08x\n", r );
1409
1410         r = IXMLDOMText_appendData(nodetext, _bstr_(""));
1411         ok(r == S_OK, "ret %08x\n", r );
1412
1413         r = IXMLDOMText_appendData(nodetext, _bstr_("Append"));
1414         ok(r == S_OK, "ret %08x\n", r );
1415
1416         r = IXMLDOMText_get_text(nodetext, &str);
1417         ok(r == S_OK, "ret %08x\n", r );
1418         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1419         SysFreeString(str);
1420
1421         /* test insertData */
1422         str = SysAllocStringLen(NULL, 0);
1423         r = IXMLDOMText_insertData(nodetext, -1, str);
1424         ok(r == S_OK, "ret %08x\n", r );
1425
1426         r = IXMLDOMText_insertData(nodetext, -1, NULL);
1427         ok(r == S_OK, "ret %08x\n", r );
1428
1429         r = IXMLDOMText_insertData(nodetext, 1000, str);
1430         ok(r == S_OK, "ret %08x\n", r );
1431
1432         r = IXMLDOMText_insertData(nodetext, 1000, NULL);
1433         ok(r == S_OK, "ret %08x\n", r );
1434
1435         r = IXMLDOMText_insertData(nodetext, 0, NULL);
1436         ok(r == S_OK, "ret %08x\n", r );
1437
1438         r = IXMLDOMText_insertData(nodetext, 0, str);
1439         ok(r == S_OK, "ret %08x\n", r );
1440         SysFreeString(str);
1441
1442         r = IXMLDOMText_insertData(nodetext, -1, _bstr_("Inserting"));
1443         ok(r == E_INVALIDARG, "ret %08x\n", r );
1444
1445         r = IXMLDOMText_insertData(nodetext, 1000, _bstr_("Inserting"));
1446         ok(r == E_INVALIDARG, "ret %08x\n", r );
1447
1448         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("Begin "));
1449         ok(r == S_OK, "ret %08x\n", r );
1450
1451         r = IXMLDOMText_insertData(nodetext, 17, _bstr_("Middle"));
1452         ok(r == S_OK, "ret %08x\n", r );
1453
1454         r = IXMLDOMText_insertData(nodetext, 39, _bstr_(" End"));
1455         ok(r == S_OK, "ret %08x\n", r );
1456
1457         r = IXMLDOMText_get_text(nodetext, &str);
1458         ok(r == S_OK, "ret %08x\n", r );
1459         ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1460         SysFreeString(str);
1461
1462         /* delete data */
1463         /* invalid arguments */
1464         r = IXMLDOMText_deleteData(nodetext, -1, 1);
1465         ok(r == E_INVALIDARG, "ret %08x\n", r );
1466
1467         r = IXMLDOMText_deleteData(nodetext, 0, 0);
1468         ok(r == S_OK, "ret %08x\n", r );
1469
1470         r = IXMLDOMText_deleteData(nodetext, 0, -1);
1471         ok(r == E_INVALIDARG, "ret %08x\n", r );
1472
1473         r = IXMLDOMText_get_length(nodetext, &nLength);
1474         ok(r == S_OK, "ret %08x\n", r );
1475         ok(nLength == 43, "expected 43 got %d\n", nLength);
1476
1477         r = IXMLDOMText_deleteData(nodetext, nLength, 1);
1478         ok(r == S_OK, "ret %08x\n", r );
1479
1480         r = IXMLDOMText_deleteData(nodetext, nLength+1, 1);
1481         ok(r == E_INVALIDARG, "ret %08x\n", r );
1482
1483         /* delete from start */
1484         r = IXMLDOMText_deleteData(nodetext, 0, 5);
1485         ok(r == S_OK, "ret %08x\n", r );
1486
1487         r = IXMLDOMText_get_length(nodetext, &nLength);
1488         ok(r == S_OK, "ret %08x\n", r );
1489         ok(nLength == 38, "expected 38 got %d\n", nLength);
1490
1491         r = IXMLDOMText_get_text(nodetext, &str);
1492         ok(r == S_OK, "ret %08x\n", r );
1493         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1494         SysFreeString(str);
1495
1496         /* delete from end */
1497         r = IXMLDOMText_deleteData(nodetext, 35, 3);
1498         ok(r == S_OK, "ret %08x\n", r );
1499
1500         r = IXMLDOMText_get_length(nodetext, &nLength);
1501         ok(r == S_OK, "ret %08x\n", r );
1502         ok(nLength == 35, "expected 35 got %d\n", nLength);
1503
1504         r = IXMLDOMText_get_text(nodetext, &str);
1505         ok(r == S_OK, "ret %08x\n", r );
1506         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1507         SysFreeString(str);
1508
1509         /* delete from inside */
1510         r = IXMLDOMText_deleteData(nodetext, 1, 33);
1511         ok(r == S_OK, "ret %08x\n", r );
1512
1513         r = IXMLDOMText_get_length(nodetext, &nLength);
1514         ok(r == S_OK, "ret %08x\n", r );
1515         ok(nLength == 2, "expected 2 got %d\n", nLength);
1516
1517         r = IXMLDOMText_get_text(nodetext, &str);
1518         ok(r == S_OK, "ret %08x\n", r );
1519         ok( !lstrcmpW( str, _bstr_("") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1520         SysFreeString(str);
1521
1522         /* delete whole data ... */
1523         r = IXMLDOMText_get_length(nodetext, &nLength);
1524         ok(r == S_OK, "ret %08x\n", r );
1525
1526         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1527         ok(r == S_OK, "ret %08x\n", r );
1528         /* ... and try again with empty string */
1529         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1530         ok(r == S_OK, "ret %08x\n", r );
1531
1532         /* test put_data */
1533         V_VT(&var) = VT_BSTR;
1534         V_BSTR(&var) = SysAllocString(szstr1);
1535         r = IXMLDOMText_put_nodeValue(nodetext, var);
1536         ok(r == S_OK, "ret %08x\n", r );
1537         VariantClear(&var);
1538
1539         r = IXMLDOMText_get_text(nodetext, &str);
1540         ok(r == S_OK, "ret %08x\n", r );
1541         ok( !lstrcmpW( str, szstr1 ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1542         SysFreeString(str);
1543
1544         /* test put_data */
1545         V_VT(&var) = VT_I4;
1546         V_I4(&var) = 99;
1547         r = IXMLDOMText_put_nodeValue(nodetext, var);
1548         ok(r == S_OK, "ret %08x\n", r );
1549         VariantClear(&var);
1550
1551         r = IXMLDOMText_get_text(nodetext, &str);
1552         ok(r == S_OK, "ret %08x\n", r );
1553         ok( !lstrcmpW( str, _bstr_("99") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1554         SysFreeString(str);
1555
1556         /* ::replaceData() */
1557         V_VT(&var) = VT_BSTR;
1558         V_BSTR(&var) = SysAllocString(szstr1);
1559         r = IXMLDOMText_put_nodeValue(nodetext, var);
1560         ok(r == S_OK, "ret %08x\n", r );
1561         VariantClear(&var);
1562
1563         r = IXMLDOMText_replaceData(nodetext, 6, 0, NULL);
1564         ok(r == E_INVALIDARG, "ret %08x\n", r );
1565         r = IXMLDOMText_get_text(nodetext, &str);
1566         ok(r == S_OK, "ret %08x\n", r );
1567         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1568         SysFreeString(str);
1569
1570         r = IXMLDOMText_replaceData(nodetext, 0, 0, NULL);
1571         ok(r == S_OK, "ret %08x\n", r );
1572         r = IXMLDOMText_get_text(nodetext, &str);
1573         ok(r == S_OK, "ret %08x\n", r );
1574         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1575         SysFreeString(str);
1576
1577         /* NULL pointer means delete */
1578         r = IXMLDOMText_replaceData(nodetext, 0, 1, NULL);
1579         ok(r == S_OK, "ret %08x\n", r );
1580         r = IXMLDOMText_get_text(nodetext, &str);
1581         ok(r == S_OK, "ret %08x\n", r );
1582         ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1583         SysFreeString(str);
1584
1585         /* empty string means delete */
1586         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_(""));
1587         ok(r == S_OK, "ret %08x\n", r );
1588         r = IXMLDOMText_get_text(nodetext, &str);
1589         ok(r == S_OK, "ret %08x\n", r );
1590         ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1591         SysFreeString(str);
1592
1593         /* zero count means insert */
1594         r = IXMLDOMText_replaceData(nodetext, 0, 0, _bstr_("a"));
1595         ok(r == S_OK, "ret %08x\n", r );
1596         r = IXMLDOMText_get_text(nodetext, &str);
1597         ok(r == S_OK, "ret %08x\n", r );
1598         ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1599         SysFreeString(str);
1600
1601         r = IXMLDOMText_replaceData(nodetext, 0, 2, NULL);
1602         ok(r == S_OK, "ret %08x\n", r );
1603
1604         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("m"));
1605         ok(r == S_OK, "ret %08x\n", r );
1606         r = IXMLDOMText_get_text(nodetext, &str);
1607         ok(r == S_OK, "ret %08x\n", r );
1608         ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1609         SysFreeString(str);
1610
1611         /* nonempty string, count greater than its length */
1612         r = IXMLDOMText_replaceData(nodetext, 0, 2, _bstr_("a1.2"));
1613         ok(r == S_OK, "ret %08x\n", r );
1614         r = IXMLDOMText_get_text(nodetext, &str);
1615         ok(r == S_OK, "ret %08x\n", r );
1616         ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1617         SysFreeString(str);
1618
1619         /* nonempty string, count less than its length */
1620         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_("wine"));
1621         ok(r == S_OK, "ret %08x\n", r );
1622         r = IXMLDOMText_get_text(nodetext, &str);
1623         ok(r == S_OK, "ret %08x\n", r );
1624         ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1625         SysFreeString(str);
1626
1627         IXMLDOMText_Release( nodetext );
1628     }
1629
1630     /* test Create Comment */
1631     r = IXMLDOMDocument_createComment(doc, NULL, NULL);
1632     ok( r == E_INVALIDARG, "returns %08x\n", r );
1633     node_comment = (IXMLDOMComment*)0x1;
1634
1635     /* empty comment */
1636     r = IXMLDOMDocument_createComment(doc, _bstr_(""), &node_comment);
1637     ok( r == S_OK, "returns %08x\n", r );
1638     str = (BSTR)0x1;
1639     r = IXMLDOMComment_get_data(node_comment, &str);
1640     ok( r == S_OK, "returns %08x\n", r );
1641     ok( str && SysStringLen(str) == 0, "expected empty string data\n");
1642     IXMLDOMComment_Release(node_comment);
1643     SysFreeString(str);
1644
1645     r = IXMLDOMDocument_createComment(doc, NULL, &node_comment);
1646     ok( r == S_OK, "returns %08x\n", r );
1647     str = (BSTR)0x1;
1648     r = IXMLDOMComment_get_data(node_comment, &str);
1649     ok( r == S_OK, "returns %08x\n", r );
1650     ok( str && (SysStringLen(str) == 0), "expected empty string data\n");
1651     IXMLDOMComment_Release(node_comment);
1652     SysFreeString(str);
1653
1654     str = SysAllocString(szComment);
1655     r = IXMLDOMDocument_createComment(doc, str, &node_comment);
1656     SysFreeString(str);
1657     ok( r == S_OK, "returns %08x\n", r );
1658     if(node_comment)
1659     {
1660         /* Last Child Checks */
1661         r = IXMLDOMComment_get_lastChild(node_comment, NULL);
1662         ok(r == E_INVALIDARG, "ret %08x\n", r );
1663
1664         nodeChild = (IXMLDOMNode*)0x1;
1665         r = IXMLDOMComment_get_lastChild(node_comment, &nodeChild);
1666         ok(r == S_FALSE, "ret %08x\n", r );
1667         ok(nodeChild == NULL, "pLastChild not NULL\n");
1668
1669         /* baseName */
1670         str = (BSTR)0xdeadbeef;
1671         r = IXMLDOMComment_get_baseName(node_comment, &str);
1672         ok(r == S_FALSE, "ret %08x\n", r );
1673         ok(str == NULL, "Expected NULL\n");
1674
1675         IXMLDOMComment_Release( node_comment );
1676     }
1677
1678     /* test Create Attribute */
1679     str = SysAllocString(szAttribute);
1680     r = IXMLDOMDocument_createAttribute(doc, NULL, NULL);
1681     ok( r == E_INVALIDARG, "returns %08x\n", r );
1682     r = IXMLDOMDocument_createAttribute(doc, str, &node_attr);
1683     ok( r == S_OK, "returns %08x\n", r );
1684     IXMLDOMAttribute_Release( node_attr);
1685     SysFreeString(str);
1686
1687     /* test Processing Instruction */
1688     str = SysAllocStringLen(NULL, 0);
1689     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, NULL);
1690     ok( r == E_INVALIDARG, "returns %08x\n", r );
1691     r = IXMLDOMDocument_createProcessingInstruction(doc, NULL, str, &nodePI);
1692     ok( r == E_FAIL, "returns %08x\n", r );
1693     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, &nodePI);
1694     ok( r == E_FAIL, "returns %08x\n", r );
1695     SysFreeString(str);
1696
1697     r = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"), _bstr_("version=\"1.0\""), &nodePI);
1698     ok( r == S_OK, "returns %08x\n", r );
1699     if(nodePI)
1700     {
1701         /* Last Child Checks */
1702         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, NULL);
1703         ok(r == E_INVALIDARG, "ret %08x\n", r );
1704
1705         nodeChild = (IXMLDOMNode*)0x1;
1706         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, &nodeChild);
1707         ok(r == S_FALSE, "ret %08x\n", r );
1708         ok(nodeChild == NULL, "nodeChild not NULL\n");
1709
1710         /* test nodeName */
1711         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1712         ok(r == S_OK, "ret %08x\n", r );
1713         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1714         SysFreeString(str);
1715
1716         /* test baseName */
1717         str = (BSTR)0x1;
1718         r = IXMLDOMProcessingInstruction_get_baseName(nodePI, &str);
1719         ok(r == S_OK, "ret %08x\n", r );
1720         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1721         SysFreeString(str);
1722
1723         /* test Target */
1724         r = IXMLDOMProcessingInstruction_get_target(nodePI, &str);
1725         ok(r == S_OK, "ret %08x\n", r );
1726         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect target string\n");
1727         SysFreeString(str);
1728
1729         /* test get_data */
1730         r = IXMLDOMProcessingInstruction_get_data(nodePI, &str);
1731         ok(r == S_OK, "ret %08x\n", r );
1732         ok( !lstrcmpW( str, _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1733         SysFreeString(str);
1734
1735         /* test put_data */
1736         r = IXMLDOMProcessingInstruction_put_data(nodePI, _bstr_("version=\"1.0\" encoding=\"UTF-8\""));
1737         ok(r == E_FAIL, "ret %08x\n", r );
1738
1739         /* test put_data */
1740         V_VT(&var) = VT_BSTR;
1741         V_BSTR(&var) = SysAllocString(szOpen);  /* Doesn't matter what the string is, cannot set an xml node. */
1742         r = IXMLDOMProcessingInstruction_put_nodeValue(nodePI, var);
1743         ok(r == E_FAIL, "ret %08x\n", r );
1744         VariantClear(&var);
1745
1746         /* test get nodeName */
1747         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1748         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1749         ok(r == S_OK, "ret %08x\n", r );
1750         SysFreeString(str);
1751
1752         IXMLDOMProcessingInstruction_Release(nodePI);
1753     }
1754
1755     ref = IXMLDOMDocument_Release( doc );
1756     ok( ref == 0, "got %d\n", ref);
1757
1758     free_bstrs();
1759 }
1760
1761 static void test_persiststreaminit(void)
1762 {
1763     IXMLDOMDocument *doc;
1764     IPersistStreamInit *streaminit;
1765     ULARGE_INTEGER size;
1766     HRESULT hr;
1767
1768     doc = create_document(&IID_IXMLDOMDocument);
1769     if (!doc) return;
1770
1771     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&streaminit);
1772     ok(hr == S_OK, "got 0x%08x\n", hr);
1773
1774     hr = IPersistStreamInit_InitNew(streaminit);
1775     ok(hr == S_OK, "got 0x%08x\n", hr);
1776
1777     hr = IPersistStreamInit_GetSizeMax(streaminit, &size);
1778     ok(hr == E_NOTIMPL, "got 0x%08x\n", hr);
1779
1780     IXMLDOMDocument_Release(doc);
1781 }
1782
1783 static void test_domnode( void )
1784 {
1785     HRESULT r;
1786     IXMLDOMDocument *doc, *owner = NULL;
1787     IXMLDOMElement *element = NULL;
1788     IXMLDOMNamedNodeMap *map = NULL;
1789     IXMLDOMNode *node = NULL, *next = NULL;
1790     IXMLDOMNodeList *list = NULL;
1791     IXMLDOMAttribute *attr = NULL;
1792     DOMNodeType type = NODE_INVALID;
1793     VARIANT_BOOL b;
1794     BSTR str;
1795     VARIANT var;
1796     LONG count;
1797
1798     doc = create_document(&IID_IXMLDOMDocument);
1799     if (!doc) return;
1800
1801     b = FALSE;
1802     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1803     ok( r == S_OK, "loadXML failed\n");
1804     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1805
1806     EXPECT_CHILDREN(doc);
1807
1808     r = IXMLDOMDocument_get_documentElement( doc, &element );
1809     ok( r == S_OK, "should be a document element\n");
1810     ok( element != NULL, "should be an element\n");
1811
1812     VariantInit(&var);
1813     ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1814
1815     r = IXMLDOMDocument_get_nodeValue( doc, NULL );
1816     ok(r == E_INVALIDARG, "get_nodeValue ret %08x\n", r );
1817
1818     r = IXMLDOMDocument_get_nodeValue( doc, &var );
1819     ok( r == S_FALSE, "nextNode returned wrong code\n");
1820     ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1821     ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1822
1823     if (element)
1824     {
1825         owner = NULL;
1826         r = IXMLDOMElement_get_ownerDocument( element, &owner );
1827         ok( r == S_OK, "get_ownerDocument return code\n");
1828         ok( owner != doc, "get_ownerDocument return\n");
1829         IXMLDOMDocument_Release(owner);
1830
1831         type = NODE_INVALID;
1832         r = IXMLDOMElement_get_nodeType( element, &type);
1833         ok( r == S_OK, "got %08x\n", r);
1834         ok( type == NODE_ELEMENT, "node not an element\n");
1835
1836         str = NULL;
1837         r = IXMLDOMElement_get_baseName( element, &str );
1838         ok( r == S_OK, "get_baseName returned wrong code\n");
1839         ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
1840         SysFreeString(str);
1841
1842         /* check if nodename is correct */
1843         r = IXMLDOMElement_get_nodeName( element, NULL );
1844         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1845
1846         /* content doesn't matter here */
1847         str = NULL;
1848         r = IXMLDOMElement_get_nodeName( element, &str );
1849         ok ( r == S_OK, "get_nodeName wrong code\n");
1850         ok ( str != NULL, "str is null\n");
1851         ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
1852         SysFreeString( str );
1853
1854         str = SysAllocString( nonexistent_fileW );
1855         V_VT(&var) = VT_I4;
1856         V_I4(&var) = 0x1234;
1857         r = IXMLDOMElement_getAttribute( element, str, &var );
1858         ok( r == E_FAIL, "getAttribute ret %08x\n", r );
1859         ok( V_VT(&var) == VT_NULL || V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
1860         VariantClear(&var);
1861
1862         str = SysAllocString( szdl );
1863         V_VT(&var) = VT_I4;
1864         V_I4(&var) = 0x1234;
1865         r = IXMLDOMElement_getAttribute( element, str, &var );
1866         ok( r == S_OK, "getAttribute ret %08x\n", r );
1867         ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
1868         ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
1869         VariantClear( &var );
1870
1871         r = IXMLDOMElement_getAttribute( element, NULL, &var );
1872         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1873
1874         r = IXMLDOMElement_getAttribute( element, str, NULL );
1875         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1876
1877         attr = NULL;
1878         r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1879         ok( r == S_OK, "GetAttributeNode ret %08x\n", r );
1880         ok( attr != NULL, "getAttributeNode returned NULL\n" );
1881         if (attr)
1882         {
1883             r = IXMLDOMAttribute_get_parentNode( attr, NULL );
1884             ok( r == E_INVALIDARG, "Expected E_INVALIDARG, ret %08x\n", r );
1885
1886             /* attribute doesn't have a parent in msxml interpretation */
1887             node = (IXMLDOMNode*)0xdeadbeef;
1888             r = IXMLDOMAttribute_get_parentNode( attr, &node );
1889             ok( r == S_FALSE, "Expected S_FALSE, ret %08x\n", r );
1890             ok( node == NULL, "Expected NULL, got %p\n", node );
1891
1892             IXMLDOMAttribute_Release(attr);
1893         }
1894
1895         SysFreeString( str );
1896
1897         r = IXMLDOMElement_get_attributes( element, &map );
1898         ok( r == S_OK, "get_attributes returned wrong code\n");
1899         ok( map != NULL, "should be attributes\n");
1900
1901         EXPECT_CHILDREN(element);
1902     }
1903     else
1904         ok( FALSE, "no element\n");
1905
1906     if (map)
1907     {
1908         str = SysAllocString( szdl );
1909         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
1910         ok( r == S_OK, "getNamedItem returned wrong code\n");
1911         ok( node != NULL, "should be attributes\n");
1912         IXMLDOMNode_Release(node);
1913         SysFreeString( str );
1914
1915         str = SysAllocString( szdl );
1916         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, NULL );
1917         ok( r == E_INVALIDARG, "getNamedItem should return E_INVALIDARG\n");
1918         SysFreeString( str );
1919
1920         /* something that isn't in complete4A */
1921         str = SysAllocString( szOpen );
1922         node = (IXMLDOMNode *) 1;
1923         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
1924         ok( r == S_FALSE, "getNamedItem found a node that wasn't there\n");
1925         ok( node == NULL, "getNamedItem should have returned NULL\n");
1926         SysFreeString( str );
1927
1928         /* test indexed access of attributes */
1929         r = IXMLDOMNamedNodeMap_get_length( map, NULL );
1930         ok ( r == E_INVALIDARG, "get_length should return E_INVALIDARG\n");
1931
1932         r = IXMLDOMNamedNodeMap_get_length( map, &count );
1933         ok ( r == S_OK, "get_length wrong code\n");
1934         ok ( count == 1, "get_length != 1\n");
1935
1936         node = NULL;
1937         r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
1938         ok ( r == S_FALSE, "get_item (-1) wrong code\n");
1939         ok ( node == NULL, "there is no node\n");
1940
1941         node = NULL;
1942         r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
1943         ok ( r == S_FALSE, "get_item (1) wrong code\n");
1944         ok ( node == NULL, "there is no attribute\n");
1945
1946         node = NULL;
1947         r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
1948         ok ( r == S_OK, "get_item (0) wrong code\n");
1949         ok ( node != NULL, "should be attribute\n");
1950
1951         r = IXMLDOMNode_get_nodeName( node, NULL );
1952         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1953
1954         /* content doesn't matter here */
1955         str = NULL;
1956         r = IXMLDOMNode_get_nodeName( node, &str );
1957         ok ( r == S_OK, "get_nodeName wrong code\n");
1958         ok ( str != NULL, "str is null\n");
1959         ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
1960         SysFreeString( str );
1961         IXMLDOMNode_Release( node );
1962
1963         /* test sequential access of attributes */
1964         node = NULL;
1965         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1966         ok ( r == S_OK, "nextNode (first time) wrong code\n");
1967         ok ( node != NULL, "nextNode, should be attribute\n");
1968         IXMLDOMNode_Release( node );
1969
1970         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1971         ok ( r != S_OK, "nextNode (second time) wrong code\n");
1972         ok ( node == NULL, "nextNode, there is no attribute\n");
1973
1974         r = IXMLDOMNamedNodeMap_reset( map );
1975         ok ( r == S_OK, "reset should return S_OK\n");
1976
1977         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
1978         ok ( r == S_OK, "nextNode (third time) wrong code\n");
1979         ok ( node != NULL, "nextNode, should be attribute\n");
1980     }
1981     else
1982         ok( FALSE, "no map\n");
1983
1984     if (node)
1985     {
1986         type = NODE_INVALID;
1987         r = IXMLDOMNode_get_nodeType( node, &type);
1988         ok( r == S_OK, "getNamedItem returned wrong code\n");
1989         ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
1990
1991         str = NULL;
1992         r = IXMLDOMNode_get_baseName( node, NULL );
1993         ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
1994
1995         str = NULL;
1996         r = IXMLDOMNode_get_baseName( node, &str );
1997         ok( r == S_OK, "get_baseName returned wrong code\n");
1998         ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
1999         SysFreeString( str );
2000
2001         r = IXMLDOMNode_get_childNodes( node, NULL );
2002         ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
2003
2004         r = IXMLDOMNode_get_childNodes( node, &list );
2005         ok( r == S_OK, "get_childNodes returned wrong code\n");
2006
2007         if (list)
2008         {
2009             r = IXMLDOMNodeList_nextNode( list, &next );
2010             ok( r == S_OK, "nextNode returned wrong code\n");
2011         }
2012         else
2013             ok( FALSE, "no childlist\n");
2014
2015         if (next)
2016         {
2017             EXPECT_NO_CHILDREN(next);
2018
2019             type = NODE_INVALID;
2020             r = IXMLDOMNode_get_nodeType( next, &type);
2021             ok( r == S_OK, "getNamedItem returned wrong code\n");
2022             ok( type == NODE_TEXT, "node not text\n");
2023
2024             str = (BSTR) 1;
2025             r = IXMLDOMNode_get_baseName( next, &str );
2026             ok( r == S_FALSE, "get_baseName returned wrong code\n");
2027             ok( str == NULL, "basename was wrong\n");
2028             SysFreeString(str);
2029         }
2030         else
2031             ok( FALSE, "no next\n");
2032
2033         if (next)
2034             IXMLDOMNode_Release( next );
2035         next = NULL;
2036         if (list)
2037             IXMLDOMNodeList_Release( list );
2038         list = NULL;
2039         if (node)
2040             IXMLDOMNode_Release( node );
2041     }
2042     else
2043         ok( FALSE, "no node\n");
2044     node = NULL;
2045
2046     if (map)
2047         IXMLDOMNamedNodeMap_Release( map );
2048
2049     /* now traverse the tree from the root element */
2050     if (element)
2051     {
2052         r = IXMLDOMElement_get_childNodes( element, &list );
2053         ok( r == S_OK, "get_childNodes returned wrong code\n");
2054
2055         /* using get_item for child list doesn't advance the position */
2056         ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
2057         expect_node(node, "E2.E2.D1");
2058         IXMLDOMNode_Release(node);
2059         ole_check(IXMLDOMNodeList_nextNode(list, &node));
2060         expect_node(node, "E1.E2.D1");
2061         IXMLDOMNode_Release(node);
2062         ole_check(IXMLDOMNodeList_reset(list));
2063
2064         IXMLDOMNodeList_AddRef(list);
2065         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1");
2066         ole_check(IXMLDOMNodeList_reset(list));
2067
2068         node = (void*)0xdeadbeef;
2069         str = SysAllocString(szdl);
2070         r = IXMLDOMElement_selectSingleNode( element, str, &node );
2071         SysFreeString(str);
2072         ok( r == S_FALSE, "ret %08x\n", r );
2073         ok( node == NULL, "node %p\n", node );
2074
2075         str = SysAllocString(szbs);
2076         r = IXMLDOMElement_selectSingleNode( element, str, &node );
2077         SysFreeString(str);
2078         ok( r == S_OK, "ret %08x\n", r );
2079         r = IXMLDOMNode_Release( node );
2080         ok( r == 0, "ret %08x\n", r );
2081     }
2082     else
2083         ok( FALSE, "no element\n");
2084
2085     if (list)
2086     {
2087         r = IXMLDOMNodeList_get_item(list, 0, NULL);
2088         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2089
2090         r = IXMLDOMNodeList_get_length(list, NULL);
2091         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2092
2093         r = IXMLDOMNodeList_get_length( list, &count );
2094         ok( r == S_OK, "get_length returns %08x\n", r );
2095         ok( count == 4, "get_length got %d\n", count );
2096
2097         r = IXMLDOMNodeList_nextNode(list, NULL);
2098         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2099
2100         r = IXMLDOMNodeList_nextNode( list, &node );
2101         ok( r == S_OK, "nextNode returned wrong code\n");
2102     }
2103     else
2104         ok( FALSE, "no list\n");
2105
2106     if (node)
2107     {
2108         type = NODE_INVALID;
2109         r = IXMLDOMNode_get_nodeType( node, &type);
2110         ok( r == S_OK, "getNamedItem returned wrong code\n");
2111         ok( type == NODE_ELEMENT, "node not text\n");
2112
2113         r = IXMLDOMNode_hasChildNodes( node, NULL );
2114         ok( r == E_INVALIDARG, "hasChildNodes bad return\n");
2115
2116         EXPECT_CHILDREN(node);
2117
2118         str = NULL;
2119         r = IXMLDOMNode_get_baseName( node, &str );
2120         ok( r == S_OK, "get_baseName returned wrong code\n");
2121         ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
2122         SysFreeString(str);
2123     }
2124     else
2125         ok( FALSE, "no node\n");
2126
2127     if (node)
2128         IXMLDOMNode_Release( node );
2129     if (list)
2130         IXMLDOMNodeList_Release( list );
2131     if (element)
2132         IXMLDOMElement_Release( element );
2133
2134     b = FALSE;
2135     str = SysAllocString( szComplete5 );
2136     r = IXMLDOMDocument_loadXML( doc, str, &b );
2137     ok( r == S_OK, "loadXML failed\n");
2138     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2139     SysFreeString( str );
2140
2141     EXPECT_CHILDREN(doc);
2142
2143     r = IXMLDOMDocument_get_documentElement( doc, &element );
2144     ok( r == S_OK, "should be a document element\n");
2145     ok( element != NULL, "should be an element\n");
2146
2147     if (element)
2148     {
2149         static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
2150         BSTR tag = NULL;
2151
2152         /* check if the tag is correct */
2153         r = IXMLDOMElement_get_tagName( element, &tag );
2154         ok( r == S_OK, "couldn't get tag name\n");
2155         ok( tag != NULL, "tag was null\n");
2156         ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
2157         SysFreeString( tag );
2158     }
2159
2160     if (element)
2161         IXMLDOMElement_Release( element );
2162     ok(IXMLDOMDocument_Release( doc ) == 0, "document is not destroyed\n");
2163
2164     free_bstrs();
2165 }
2166
2167 typedef struct {
2168     DOMNodeType type;
2169     REFIID iid;
2170 } refcount_test_t;
2171
2172 static const refcount_test_t refcount_test[] = {
2173     { NODE_ELEMENT,                &IID_IXMLDOMElement },
2174     { NODE_ATTRIBUTE,              &IID_IXMLDOMAttribute },
2175     { NODE_TEXT,                   &IID_IXMLDOMText },
2176     { NODE_CDATA_SECTION,          &IID_IXMLDOMCDATASection },
2177     { NODE_ENTITY_REFERENCE,       &IID_IXMLDOMEntityReference },
2178     { NODE_PROCESSING_INSTRUCTION, &IID_IXMLDOMProcessingInstruction },
2179     { NODE_COMMENT,                &IID_IXMLDOMComment },
2180     { NODE_DOCUMENT_FRAGMENT,      &IID_IXMLDOMDocumentFragment },
2181     { NODE_INVALID,                &IID_NULL }
2182 };
2183
2184 static void test_refs(void)
2185 {
2186     IXMLDOMImplementation *impl, *impl2;
2187     IXMLDOMElement *element, *elem2;
2188     IXMLDOMNodeList *node_list = NULL;
2189     IXMLDOMNode *node, *node2, *node3;
2190     const refcount_test_t *ptr;
2191     IXMLDOMDocument *doc;
2192     IUnknown *unk, *unk2;
2193     VARIANT_BOOL b;
2194     HRESULT hr;
2195     LONG ref;
2196
2197     doc = create_document(&IID_IXMLDOMDocument);
2198     if (!doc) return;
2199
2200     ptr = refcount_test;
2201     while (ptr->type != NODE_INVALID)
2202     {
2203         IUnknown *node_typed, *node_typed2;
2204         IDispatchEx *dispex, *dispex2;
2205         IDispatch *disp, *disp2;
2206         VARIANT type;
2207
2208         V_VT(&type) = VT_I1;
2209         V_I1(&type) = ptr->type;
2210
2211         EXPECT_REF(doc, 1);
2212         hr = IXMLDOMDocument_createNode(doc, type, _bstr_("name"), NULL, &node);
2213         EXPECT_HR(hr, S_OK);
2214         EXPECT_REF(doc, 1);
2215         EXPECT_REF(node, 1);
2216
2217         /* try IDispatch and IUnknown from IXMLDOMNode */
2218         hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
2219         EXPECT_HR(hr, S_OK);
2220         EXPECT_REF(unk, 2);
2221 todo_wine {
2222         EXPECT_REF(node, 1);
2223         ok(unk != (IUnknown*)node, "%d: got %p and %p\n", ptr->type, unk, node);
2224 }
2225         EXPECT_REF(unk, 2);
2226         hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
2227         EXPECT_HR(hr, S_OK);
2228         todo_wine ok(unk != (IUnknown*)disp, "%d: got %p and %p\n", ptr->type, unk, disp);
2229         EXPECT_REF(unk, 3);
2230         todo_wine EXPECT_REF(disp, 1);
2231
2232         EXPECT_REF(unk, 3);
2233         hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp2);
2234         EXPECT_HR(hr, S_OK);
2235         todo_wine ok(disp != disp2, "%d: got %p and %p\n", ptr->type, disp, disp2);
2236         EXPECT_REF(unk, 4);
2237         todo_wine EXPECT_REF(disp2, 1);
2238
2239         IDispatch_Release(disp);
2240         IDispatch_Release(disp2);
2241
2242         /* get IXMLDOMNode from this IUnknown */
2243         EXPECT_REF(unk, 2);
2244         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node2);
2245         EXPECT_HR(hr, S_OK);
2246         todo_wine ok(unk != (IUnknown*)node2, "%d: got %p and %p\n", ptr->type, unk, node2);
2247         EXPECT_REF(unk, 3);
2248         todo_wine EXPECT_REF(node2, 1);
2249
2250         EXPECT_REF(unk, 3);
2251         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node3);
2252         EXPECT_HR(hr, S_OK);
2253         todo_wine ok(node2 != node3, "%d: got %p and %p\n", ptr->type, node2, node3);
2254         EXPECT_REF(unk, 4);
2255         todo_wine EXPECT_REF(node3, 1);
2256
2257         IXMLDOMNode_Release(node2);
2258         IXMLDOMNode_Release(node3);
2259
2260         /* try IDispatchEx from IUnknown */
2261         EXPECT_REF(unk, 2);
2262         hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
2263         EXPECT_HR(hr, S_OK);
2264         ok(unk != (IUnknown*)dispex, "%d: got %p and %p\n", ptr->type, unk, dispex);
2265         EXPECT_REF(unk, 3);
2266         todo_wine EXPECT_REF(dispex, 1);
2267
2268         EXPECT_REF(unk, 3);
2269         hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex2);
2270         EXPECT_HR(hr, S_OK);
2271         todo_wine ok(dispex != dispex2, "%d: got %p and %p\n", ptr->type, dispex, dispex2);
2272         EXPECT_REF(unk, 4);
2273         todo_wine EXPECT_REF(dispex2, 1);
2274
2275         IDispatchEx_Release(dispex);
2276         IDispatchEx_Release(dispex2);
2277
2278         /* try corresponding IXMLDOM* */
2279         EXPECT_REF(unk, 2);
2280         hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed);
2281         EXPECT_HR(hr, S_OK);
2282         EXPECT_REF(unk, 3);
2283         hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed2);
2284         EXPECT_HR(hr, S_OK);
2285         EXPECT_REF(unk, 4);
2286         todo_wine ok(node_typed != node_typed2, "%d: got %p and %p\n", ptr->type, node_typed, node_typed2);
2287         IUnknown_Release(node_typed);
2288         IUnknown_Release(node_typed2);
2289
2290         /* try invalid IXMLDOM* */
2291         hr = IUnknown_QueryInterface(unk, (ptr+1)->iid, (void**)&node_typed);
2292         EXPECT_HR(hr, E_NOINTERFACE);
2293
2294         IUnknown_Release(unk);
2295
2296         EXPECT_REF(node, 1);
2297         hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMNode, (void**)&node2);
2298         EXPECT_HR(hr, S_OK);
2299         EXPECT_REF(node, 2);
2300         ok(node == node2, "%d: got %p and %p\n", ptr->type, node, node2);
2301
2302         EXPECT_REF(node, 2);
2303         hr = IXMLDOMNode_QueryInterface(node, ptr->iid, (void**)&node_typed);
2304         EXPECT_HR(hr, S_OK);
2305         EXPECT_REF(node, 3);
2306 todo_wine {
2307         EXPECT_REF(node_typed, 2);
2308         ok((IUnknown*)node != node_typed, "%d: got %p and %p\n", ptr->type, node, node_typed);
2309 }
2310         IUnknown_Release(node_typed);
2311
2312         IXMLDOMNode_Release(node2);
2313         IXMLDOMNode_Release(node);
2314
2315         ptr++;
2316     }
2317
2318     EXPECT_REF(doc, 1);
2319     ref = IXMLDOMDocument_Release(doc);
2320     ok( ref == 0, "ref %d\n", ref);
2321
2322     /* check IUnknown after releasing DOM iface */
2323     doc = create_document(&IID_IXMLDOMDocument);
2324     EXPECT_REF(doc, 1);
2325     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2326     EXPECT_HR(hr, S_OK);
2327 todo_wine {
2328     EXPECT_REF(unk, 3);
2329     EXPECT_REF(doc, 1);
2330 }
2331     IXMLDOMDocument_Release(doc);
2332     EXPECT_REF(unk, 1);
2333     IUnknown_Release(unk);
2334
2335     doc = create_document(&IID_IXMLDOMDocument);
2336     if (!doc) return;
2337
2338     EXPECT_REF(doc, 1);
2339     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2340     EXPECT_HR(hr, S_OK);
2341 todo_wine {
2342     EXPECT_REF(unk, 3);
2343     EXPECT_REF(doc, 1);
2344 }
2345     IUnknown_Release(unk);
2346
2347     /* IXMLDOMImplementation */
2348     EXPECT_REF(doc, 1);
2349     hr = IXMLDOMDocument_get_implementation(doc, &impl);
2350     EXPECT_HR(hr, S_OK);
2351     EXPECT_REF(doc, 1);
2352     EXPECT_REF(impl, 1);
2353     hr = IXMLDOMDocument_get_implementation(doc, &impl2);
2354     EXPECT_HR(hr, S_OK);
2355     EXPECT_REF(doc, 1);
2356     EXPECT_REF(impl2, 1);
2357     ok(impl != impl2, "got %p, %p\n", impl, impl2);
2358     IXMLDOMImplementation_Release(impl);
2359     IXMLDOMImplementation_Release(impl2);
2360
2361     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
2362     EXPECT_HR(hr, S_OK);
2363     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2364
2365     EXPECT_REF(doc, 1);
2366     IXMLDOMDocument_AddRef( doc );
2367     EXPECT_REF(doc, 2);
2368     IXMLDOMDocument_AddRef( doc );
2369     EXPECT_REF(doc, 3);
2370
2371     IXMLDOMDocument_Release( doc );
2372     IXMLDOMDocument_Release( doc );
2373
2374     EXPECT_REF(doc, 1);
2375     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2376     EXPECT_HR(hr, S_OK);
2377 todo_wine {
2378     EXPECT_REF(unk, 3);
2379     EXPECT_REF(doc, 1);
2380 }
2381     hr = IXMLDOMDocument_get_documentElement(doc, &element);
2382     EXPECT_HR(hr, S_OK);
2383 todo_wine {
2384     EXPECT_REF(doc, 1);
2385     EXPECT_REF(element, 2);
2386 }
2387     hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
2388     EXPECT_HR(hr, S_OK);
2389
2390 todo_wine {
2391     EXPECT_REF(doc, 1);
2392     EXPECT_REF(element, 2);
2393     EXPECT_REF(elem2, 2);
2394 }
2395     IXMLDOMElement_AddRef(element);
2396     todo_wine EXPECT_REF(element, 3);
2397     IXMLDOMElement_Release(element);
2398
2399     /* get IUnknown from a node doesn't touch node instance refcount */
2400     hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2401     EXPECT_HR(hr, S_OK);
2402     EXPECT_REF(element, 2);
2403 todo_wine {
2404     EXPECT_REF(unk, 4);
2405     EXPECT_REF(elem2, 2);
2406 }
2407     hr = IXMLDOMElement_QueryInterface(elem2, &IID_IUnknown, (void**)&unk2);
2408     EXPECT_HR(hr, S_OK);
2409 todo_wine {
2410     EXPECT_REF(unk, 5);
2411     EXPECT_REF(unk2, 5);
2412 }
2413     EXPECT_REF(element, 2);
2414     EXPECT_REF(elem2, 2);
2415
2416     todo_wine ok(unk == unk2, "got %p and %p\n", unk, unk2);
2417
2418     IUnknown_Release(unk);
2419     IUnknown_Release(unk2);
2420
2421     /* IUnknown refcount is not affected by node refcount */
2422     todo_wine EXPECT_REF(unk2, 3);
2423     IXMLDOMElement_AddRef(elem2);
2424     todo_wine EXPECT_REF(unk2, 3);
2425     IXMLDOMElement_Release(elem2);
2426
2427     IXMLDOMElement_Release(elem2);
2428     todo_wine EXPECT_REF(unk2, 2);
2429
2430     hr = IXMLDOMElement_get_childNodes( element, &node_list );
2431     EXPECT_HR(hr, S_OK);
2432
2433     todo_wine EXPECT_REF(element, 2);
2434     EXPECT_REF(node_list, 1);
2435
2436     hr = IXMLDOMNodeList_get_item( node_list, 0, &node );
2437     EXPECT_HR(hr, S_OK);
2438     EXPECT_REF(node_list, 1);
2439     EXPECT_REF(node, 1);
2440
2441     hr = IXMLDOMNodeList_get_item( node_list, 0, &node2 );
2442     EXPECT_HR(hr, S_OK);
2443     EXPECT_REF(node_list, 1);
2444     EXPECT_REF(node2, 1);
2445
2446     ref = IXMLDOMNode_Release( node );
2447     ok( ref == 0, "ref %d\n", ref );
2448     ref = IXMLDOMNode_Release( node2 );
2449     ok( ref == 0, "ref %d\n", ref );
2450
2451     ref = IXMLDOMNodeList_Release( node_list );
2452     ok( ref == 0, "ref %d\n", ref );
2453
2454     ok( node != node2, "node %p node2 %p\n", node, node2 );
2455
2456     ref = IXMLDOMDocument_Release( doc );
2457     todo_wine ok( ref == 0, "ref %d\n", ref );
2458
2459     todo_wine EXPECT_REF(element, 2);
2460
2461     /* IUnknown must be unique however we obtain it */
2462     hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2463     EXPECT_HR(hr, S_OK);
2464     EXPECT_REF(element, 2);
2465     hr = IXMLDOMElement_QueryInterface(element, &IID_IXMLDOMNode, (void**)&node);
2466     EXPECT_HR(hr, S_OK);
2467     todo_wine EXPECT_REF(element, 2);
2468     hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk2);
2469     EXPECT_HR(hr, S_OK);
2470     todo_wine EXPECT_REF(element, 2);
2471     ok(unk == unk2, "unk %p unk2 %p\n", unk, unk2);
2472     todo_wine ok(element != (void*)node, "node %p element %p\n", node, element);
2473
2474     IUnknown_Release( unk2 );
2475     IUnknown_Release( unk );
2476     IXMLDOMNode_Release( node );
2477     todo_wine EXPECT_REF(element, 2);
2478
2479     IXMLDOMElement_Release( element );
2480
2481     free_bstrs();
2482 }
2483
2484 static void test_create(void)
2485 {
2486     static const WCHAR szOne[] = {'1',0};
2487     static const WCHAR szOneGarbage[] = {'1','G','a','r','b','a','g','e',0};
2488     HRESULT r;
2489     VARIANT var;
2490     BSTR str, name;
2491     IXMLDOMDocument *doc;
2492     IXMLDOMElement *element;
2493     IXMLDOMComment *comment;
2494     IXMLDOMText *text;
2495     IXMLDOMCDATASection *cdata;
2496     IXMLDOMNode *root, *node, *child;
2497     IXMLDOMNamedNodeMap *attr_map;
2498     IUnknown *unk;
2499     LONG ref;
2500     LONG num;
2501
2502     doc = create_document(&IID_IXMLDOMDocument);
2503     if (!doc) return;
2504
2505     EXPECT_REF(doc, 1);
2506
2507     /* types not supported for creation */
2508     V_VT(&var) = VT_I1;
2509     V_I1(&var) = NODE_DOCUMENT;
2510     node = (IXMLDOMNode*)0x1;
2511     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2512     ok( r == E_INVALIDARG, "returns %08x\n", r );
2513     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2514
2515     V_VT(&var) = VT_I1;
2516     V_I1(&var) = NODE_DOCUMENT_TYPE;
2517     node = (IXMLDOMNode*)0x1;
2518     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2519     ok( r == E_INVALIDARG, "returns %08x\n", r );
2520     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2521
2522     V_VT(&var) = VT_I1;
2523     V_I1(&var) = NODE_ENTITY;
2524     node = (IXMLDOMNode*)0x1;
2525     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2526     ok( r == E_INVALIDARG, "returns %08x\n", r );
2527     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2528
2529     V_VT(&var) = VT_I1;
2530     V_I1(&var) = NODE_NOTATION;
2531     node = (IXMLDOMNode*)0x1;
2532     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2533     ok( r == E_INVALIDARG, "returns %08x\n", r );
2534     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2535
2536     /* NODE_COMMENT */
2537     V_VT(&var) = VT_I1;
2538     V_I1(&var) = NODE_COMMENT;
2539     node = NULL;
2540     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2541     ok( r == S_OK, "returns %08x\n", r );
2542     ok( node != NULL, "\n");
2543
2544     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2545     ok( r == S_OK, "returns %08x\n", r );
2546     IXMLDOMNode_Release(node);
2547
2548     str = NULL;
2549     r = IXMLDOMComment_get_data(comment, &str);
2550     ok( r == S_OK, "returns %08x\n", r );
2551     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2552     IXMLDOMComment_Release(comment);
2553     SysFreeString(str);
2554
2555     node = (IXMLDOMNode*)0x1;
2556     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2557     ok( r == S_OK, "returns %08x\n", r );
2558
2559     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2560     ok( r == S_OK, "returns %08x\n", r );
2561     IXMLDOMNode_Release(node);
2562
2563     str = NULL;
2564     r = IXMLDOMComment_get_data(comment, &str);
2565     ok( r == S_OK, "returns %08x\n", r );
2566     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2567     IXMLDOMComment_Release(comment);
2568     SysFreeString(str);
2569
2570     node = (IXMLDOMNode*)0x1;
2571     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2572     ok( r == S_OK, "returns %08x\n", r );
2573
2574     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2575     ok( r == S_OK, "returns %08x\n", r );
2576     IXMLDOMNode_Release(node);
2577
2578     str = NULL;
2579     r = IXMLDOMComment_get_data(comment, &str);
2580     ok( r == S_OK, "returns %08x\n", r );
2581     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2582     IXMLDOMComment_Release(comment);
2583     SysFreeString(str);
2584
2585     /* NODE_TEXT */
2586     V_VT(&var) = VT_I1;
2587     V_I1(&var) = NODE_TEXT;
2588     node = NULL;
2589     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2590     ok( r == S_OK, "returns %08x\n", r );
2591     ok( node != NULL, "\n");
2592
2593     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2594     ok( r == S_OK, "returns %08x\n", r );
2595     IXMLDOMNode_Release(node);
2596
2597     str = NULL;
2598     r = IXMLDOMText_get_data(text, &str);
2599     ok( r == S_OK, "returns %08x\n", r );
2600     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2601     IXMLDOMText_Release(text);
2602     SysFreeString(str);
2603
2604     node = (IXMLDOMNode*)0x1;
2605     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2606     ok( r == S_OK, "returns %08x\n", r );
2607
2608     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2609     ok( r == S_OK, "returns %08x\n", r );
2610     IXMLDOMNode_Release(node);
2611
2612     str = NULL;
2613     r = IXMLDOMText_get_data(text, &str);
2614     ok( r == S_OK, "returns %08x\n", r );
2615     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2616     IXMLDOMText_Release(text);
2617     SysFreeString(str);
2618
2619     node = (IXMLDOMNode*)0x1;
2620     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2621     ok( r == S_OK, "returns %08x\n", r );
2622
2623     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2624     ok( r == S_OK, "returns %08x\n", r );
2625     IXMLDOMNode_Release(node);
2626
2627     str = NULL;
2628     r = IXMLDOMText_get_data(text, &str);
2629     ok( r == S_OK, "returns %08x\n", r );
2630     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2631     IXMLDOMText_Release(text);
2632     SysFreeString(str);
2633
2634     /* NODE_CDATA_SECTION */
2635     V_VT(&var) = VT_I1;
2636     V_I1(&var) = NODE_CDATA_SECTION;
2637     node = NULL;
2638     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2639     ok( r == S_OK, "returns %08x\n", r );
2640     ok( node != NULL, "\n");
2641
2642     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2643     ok( r == S_OK, "returns %08x\n", r );
2644     IXMLDOMNode_Release(node);
2645
2646     str = NULL;
2647     r = IXMLDOMCDATASection_get_data(cdata, &str);
2648     ok( r == S_OK, "returns %08x\n", r );
2649     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2650     IXMLDOMCDATASection_Release(cdata);
2651     SysFreeString(str);
2652
2653     node = (IXMLDOMNode*)0x1;
2654     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2655     ok( r == S_OK, "returns %08x\n", r );
2656
2657     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2658     ok( r == S_OK, "returns %08x\n", r );
2659     IXMLDOMNode_Release(node);
2660
2661     str = NULL;
2662     r = IXMLDOMCDATASection_get_data(cdata, &str);
2663     ok( r == S_OK, "returns %08x\n", r );
2664     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2665     IXMLDOMCDATASection_Release(cdata);
2666     SysFreeString(str);
2667
2668     node = (IXMLDOMNode*)0x1;
2669     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2670     ok( r == S_OK, "returns %08x\n", r );
2671
2672     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2673     ok( r == S_OK, "returns %08x\n", r );
2674     IXMLDOMNode_Release(node);
2675
2676     str = NULL;
2677     r = IXMLDOMCDATASection_get_data(cdata, &str);
2678     ok( r == S_OK, "returns %08x\n", r );
2679     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2680     IXMLDOMCDATASection_Release(cdata);
2681     SysFreeString(str);
2682
2683     /* NODE_ATTRIBUTE */
2684     V_VT(&var) = VT_I1;
2685     V_I1(&var) = NODE_ATTRIBUTE;
2686     node = (IXMLDOMNode*)0x1;
2687     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2688     ok( r == E_FAIL, "returns %08x\n", r );
2689     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2690
2691     V_VT(&var) = VT_I1;
2692     V_I1(&var) = NODE_ATTRIBUTE;
2693     node = (IXMLDOMNode*)0x1;
2694     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2695     ok( r == E_FAIL, "returns %08x\n", r );
2696     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2697
2698     V_VT(&var) = VT_I1;
2699     V_I1(&var) = NODE_ATTRIBUTE;
2700     str = SysAllocString( szlc );
2701     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2702     ok( r == S_OK, "returns %08x\n", r );
2703     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2704     SysFreeString(str);
2705
2706     /* a name is required for attribute, try a BSTR with first null wchar */
2707     V_VT(&var) = VT_I1;
2708     V_I1(&var) = NODE_ATTRIBUTE;
2709     str = SysAllocString( szstr1 );
2710     str[0] = 0;
2711     node = (IXMLDOMNode*)0x1;
2712     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2713     ok( r == E_FAIL, "returns %08x\n", r );
2714     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2715     SysFreeString(str);
2716
2717     /* NODE_PROCESSING_INSTRUCTION */
2718     V_VT(&var) = VT_I1;
2719     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2720     node = (IXMLDOMNode*)0x1;
2721     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2722     ok( r == E_FAIL, "returns %08x\n", r );
2723     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2724
2725     V_VT(&var) = VT_I1;
2726     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2727     node = (IXMLDOMNode*)0x1;
2728     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2729     ok( r == E_FAIL, "returns %08x\n", r );
2730     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2731
2732     V_VT(&var) = VT_I1;
2733     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2734     r = IXMLDOMDocument_createNode( doc, var, _bstr_("pi"), NULL, NULL );
2735     ok( r == E_INVALIDARG, "returns %08x\n", r );
2736
2737     /* NODE_ENTITY_REFERENCE */
2738     V_VT(&var) = VT_I1;
2739     V_I1(&var) = NODE_ENTITY_REFERENCE;
2740     node = (IXMLDOMNode*)0x1;
2741     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2742     ok( r == E_FAIL, "returns %08x\n", r );
2743     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2744
2745     V_VT(&var) = VT_I1;
2746     V_I1(&var) = NODE_ENTITY_REFERENCE;
2747     node = (IXMLDOMNode*)0x1;
2748     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2749     ok( r == E_FAIL, "returns %08x\n", r );
2750     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2751
2752     /* NODE_ELEMENT */
2753     V_VT(&var) = VT_I1;
2754     V_I1(&var) = NODE_ELEMENT;
2755     node = (IXMLDOMNode*)0x1;
2756     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2757     ok( r == E_FAIL, "returns %08x\n", r );
2758     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2759
2760     V_VT(&var) = VT_I1;
2761     V_I1(&var) = NODE_ELEMENT;
2762     node = (IXMLDOMNode*)0x1;
2763     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2764     ok( r == E_FAIL, "returns %08x\n", r );
2765     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2766
2767     V_VT(&var) = VT_I1;
2768     V_I1(&var) = NODE_ELEMENT;
2769     str = SysAllocString( szlc );
2770     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2771     ok( r == S_OK, "returns %08x\n", r );
2772     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2773
2774     V_VT(&var) = VT_I1;
2775     V_I1(&var) = NODE_ELEMENT;
2776     r = IXMLDOMDocument_createNode( doc, var, str, NULL, NULL );
2777     ok( r == E_INVALIDARG, "returns %08x\n", r );
2778
2779     V_VT(&var) = VT_R4;
2780     V_R4(&var) = NODE_ELEMENT;
2781     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2782     ok( r == S_OK, "returns %08x\n", r );
2783     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2784
2785     V_VT(&var) = VT_BSTR;
2786     V_BSTR(&var) = SysAllocString( szOne );
2787     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2788     ok( r == S_OK, "returns %08x\n", r );
2789     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2790     VariantClear(&var);
2791
2792     V_VT(&var) = VT_BSTR;
2793     V_BSTR(&var) = SysAllocString( szOneGarbage );
2794     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2795     ok( r == E_INVALIDARG, "returns %08x\n", r );
2796     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2797     VariantClear(&var);
2798
2799     V_VT(&var) = VT_I4;
2800     V_I4(&var) = NODE_ELEMENT;
2801     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2802     ok( r == S_OK, "returns %08x\n", r );
2803
2804     EXPECT_REF(doc, 1);
2805     r = IXMLDOMDocument_appendChild( doc, node, &root );
2806     ok( r == S_OK, "returns %08x\n", r );
2807     ok( node == root, "%p %p\n", node, root );
2808     EXPECT_REF(doc, 1);
2809
2810     EXPECT_REF(node, 2);
2811
2812     ref = IXMLDOMNode_Release( node );
2813     ok(ref == 1, "ref %d\n", ref);
2814     SysFreeString( str );
2815
2816     V_VT(&var) = VT_I4;
2817     V_I4(&var) = NODE_ELEMENT;
2818     str = SysAllocString( szbs );
2819     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2820     ok( r == S_OK, "returns %08x\n", r );
2821     SysFreeString( str );
2822
2823     EXPECT_REF(node, 1);
2824
2825     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk );
2826     ok( r == S_OK, "returns %08x\n", r );
2827
2828     EXPECT_REF(unk, 2);
2829
2830     V_VT(&var) = VT_EMPTY;
2831     child = NULL;
2832     r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
2833     ok( r == S_OK, "returns %08x\n", r );
2834     ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
2835
2836     todo_wine EXPECT_REF(unk, 4);
2837
2838     IXMLDOMNode_Release( child );
2839     IUnknown_Release( unk );
2840
2841     V_VT(&var) = VT_NULL;
2842     V_DISPATCH(&var) = (IDispatch*)node;
2843     r = IXMLDOMNode_insertBefore( root, node, var, &child );
2844     ok( r == S_OK, "returns %08x\n", r );
2845     ok( node == child, "%p %p\n", node, child );
2846     IXMLDOMNode_Release( child );
2847
2848     V_VT(&var) = VT_NULL;
2849     V_DISPATCH(&var) = (IDispatch*)node;
2850     r = IXMLDOMNode_insertBefore( root, node, var, NULL );
2851     ok( r == S_OK, "returns %08x\n", r );
2852     IXMLDOMNode_Release( node );
2853
2854     r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (void**)&element );
2855     ok( r == S_OK, "returns %08x\n", r );
2856
2857     r = IXMLDOMElement_get_attributes( element, &attr_map );
2858     ok( r == S_OK, "returns %08x\n", r );
2859     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2860     ok( r == S_OK, "returns %08x\n", r );
2861     ok( num == 0, "num %d\n", num );
2862     IXMLDOMNamedNodeMap_Release( attr_map );
2863
2864     V_VT(&var) = VT_BSTR;
2865     V_BSTR(&var) = SysAllocString( szstr1 );
2866     name = SysAllocString( szdl );
2867     r = IXMLDOMElement_setAttribute( element, name, var );
2868     ok( r == S_OK, "returns %08x\n", r );
2869     r = IXMLDOMElement_get_attributes( element, &attr_map );
2870     ok( r == S_OK, "returns %08x\n", r );
2871     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2872     ok( r == S_OK, "returns %08x\n", r );
2873     ok( num == 1, "num %d\n", num );
2874     IXMLDOMNamedNodeMap_Release( attr_map );
2875     VariantClear(&var);
2876
2877     V_VT(&var) = VT_BSTR;
2878     V_BSTR(&var) = SysAllocString( szstr2 );
2879     r = IXMLDOMElement_setAttribute( element, name, var );
2880     ok( r == S_OK, "returns %08x\n", r );
2881     r = IXMLDOMElement_get_attributes( element, &attr_map );
2882     ok( r == S_OK, "returns %08x\n", r );
2883     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2884     ok( r == S_OK, "returns %08x\n", r );
2885     ok( num == 1, "num %d\n", num );
2886     IXMLDOMNamedNodeMap_Release( attr_map );
2887     VariantClear(&var);
2888     r = IXMLDOMElement_getAttribute( element, name, &var );
2889     ok( r == S_OK, "returns %08x\n", r );
2890     ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
2891     VariantClear(&var);
2892     SysFreeString(name);
2893
2894     V_VT(&var) = VT_BSTR;
2895     V_BSTR(&var) = SysAllocString( szstr1 );
2896     name = SysAllocString( szlc );
2897     r = IXMLDOMElement_setAttribute( element, name, var );
2898     ok( r == S_OK, "returns %08x\n", r );
2899     r = IXMLDOMElement_get_attributes( element, &attr_map );
2900     ok( r == S_OK, "returns %08x\n", r );
2901     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2902     ok( r == S_OK, "returns %08x\n", r );
2903     ok( num == 2, "num %d\n", num );
2904     IXMLDOMNamedNodeMap_Release( attr_map );
2905     VariantClear(&var);
2906     SysFreeString(name);
2907
2908     V_VT(&var) = VT_I4;
2909     V_I4(&var) = 10;
2910     name = SysAllocString( szbs );
2911     r = IXMLDOMElement_setAttribute( element, name, var );
2912     ok( r == S_OK, "returns %08x\n", r );
2913     VariantClear(&var);
2914     r = IXMLDOMElement_getAttribute( element, name, &var );
2915     ok( r == S_OK, "returns %08x\n", r );
2916     ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
2917     VariantClear(&var);
2918     SysFreeString(name);
2919
2920     /* Create an Attribute */
2921     V_VT(&var) = VT_I4;
2922     V_I4(&var) = NODE_ATTRIBUTE;
2923     str = SysAllocString( szAttribute );
2924     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2925     ok( r == S_OK, "returns %08x\n", r );
2926     ok( node != NULL, "node was null\n");
2927     SysFreeString(str);
2928
2929     IXMLDOMElement_Release( element );
2930     IXMLDOMNode_Release( root );
2931     IXMLDOMDocument_Release( doc );
2932 }
2933
2934 static void test_getElementsByTagName(void)
2935 {
2936     IXMLDOMNodeList *node_list;
2937     IXMLDOMDocument *doc;
2938     IXMLDOMElement *elem;
2939     WCHAR buff[100];
2940     VARIANT_BOOL b;
2941     HRESULT r;
2942     LONG len;
2943     BSTR str;
2944
2945     doc = create_document(&IID_IXMLDOMDocument);
2946     if (!doc) return;
2947
2948     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
2949     ok( r == S_OK, "loadXML failed\n");
2950     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2951
2952     str = SysAllocString( szstar );
2953
2954     /* null arguments cases */
2955     r = IXMLDOMDocument_getElementsByTagName(doc, NULL, &node_list);
2956     ok( r == E_INVALIDARG, "ret %08x\n", r );
2957     r = IXMLDOMDocument_getElementsByTagName(doc, str, NULL);
2958     ok( r == E_INVALIDARG, "ret %08x\n", r );
2959
2960     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2961     ok( r == S_OK, "ret %08x\n", r );
2962     r = IXMLDOMNodeList_get_length( node_list, &len );
2963     ok( r == S_OK, "ret %08x\n", r );
2964     ok( len == 6, "len %d\n", len );
2965
2966     IXMLDOMNodeList_Release( node_list );
2967     SysFreeString( str );
2968
2969     /* broken query BSTR */
2970     memcpy(&buff[2], szstar, sizeof(szstar));
2971     /* just a big length */
2972     *(DWORD*)buff = 0xf0f0;
2973     r = IXMLDOMDocument_getElementsByTagName(doc, &buff[2], &node_list);
2974     ok( r == S_OK, "ret %08x\n", r );
2975     r = IXMLDOMNodeList_get_length( node_list, &len );
2976     ok( r == S_OK, "ret %08x\n", r );
2977     ok( len == 6, "len %d\n", len );
2978     IXMLDOMNodeList_Release( node_list );
2979
2980     str = SysAllocString( szbs );
2981     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2982     ok( r == S_OK, "ret %08x\n", r );
2983     r = IXMLDOMNodeList_get_length( node_list, &len );
2984     ok( r == S_OK, "ret %08x\n", r );
2985     ok( len == 1, "len %d\n", len );
2986     IXMLDOMNodeList_Release( node_list );
2987     SysFreeString( str );
2988
2989     str = SysAllocString( szdl );
2990     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
2991     ok( r == S_OK, "ret %08x\n", r );
2992     r = IXMLDOMNodeList_get_length( node_list, &len );
2993     ok( r == S_OK, "ret %08x\n", r );
2994     ok( len == 0, "len %d\n", len );
2995     IXMLDOMNodeList_Release( node_list );
2996     SysFreeString( str );
2997
2998     str = SysAllocString( szstr1 );
2999     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
3000     ok( r == S_OK, "ret %08x\n", r );
3001     r = IXMLDOMNodeList_get_length( node_list, &len );
3002     ok( r == S_OK, "ret %08x\n", r );
3003     ok( len == 0, "len %d\n", len );
3004     IXMLDOMNodeList_Release( node_list );
3005     SysFreeString( str );
3006
3007     /* test for element */
3008     r = IXMLDOMDocument_get_documentElement(doc, &elem);
3009     ok( r == S_OK, "ret %08x\n", r );
3010
3011     str = SysAllocString( szstar );
3012
3013     /* null arguments cases */
3014     r = IXMLDOMElement_getElementsByTagName(elem, NULL, &node_list);
3015     ok( r == E_INVALIDARG, "ret %08x\n", r );
3016     r = IXMLDOMElement_getElementsByTagName(elem, str, NULL);
3017     ok( r == E_INVALIDARG, "ret %08x\n", r );
3018
3019     r = IXMLDOMElement_getElementsByTagName(elem, str, &node_list);
3020     ok( r == S_OK, "ret %08x\n", r );
3021     r = IXMLDOMNodeList_get_length( node_list, &len );
3022     ok( r == S_OK, "ret %08x\n", r );
3023     ok( len == 5, "len %d\n", len );
3024     expect_list_and_release(node_list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1 E1.E4.E2.D1");
3025     SysFreeString( str );
3026
3027     /* broken query BSTR */
3028     memcpy(&buff[2], szstar, sizeof(szstar));
3029     /* just a big length */
3030     *(DWORD*)buff = 0xf0f0;
3031     r = IXMLDOMElement_getElementsByTagName(elem, &buff[2], &node_list);
3032     ok( r == S_OK, "ret %08x\n", r );
3033     r = IXMLDOMNodeList_get_length( node_list, &len );
3034     ok( r == S_OK, "ret %08x\n", r );
3035     ok( len == 5, "len %d\n", len );
3036     IXMLDOMNodeList_Release( node_list );
3037
3038     IXMLDOMElement_Release(elem);
3039
3040     IXMLDOMDocument_Release( doc );
3041
3042     free_bstrs();
3043 }
3044
3045 static void test_get_text(void)
3046 {
3047     HRESULT r;
3048     BSTR str;
3049     VARIANT_BOOL b;
3050     IXMLDOMDocument *doc;
3051     IXMLDOMNode *node, *node2, *node3;
3052     IXMLDOMNode *nodeRoot;
3053     IXMLDOMNodeList *node_list;
3054     IXMLDOMNamedNodeMap *node_map;
3055     LONG len;
3056
3057     doc = create_document(&IID_IXMLDOMDocument);
3058     if (!doc) return;
3059
3060     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3061     ok( r == S_OK, "loadXML failed\n");
3062     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3063
3064     str = SysAllocString( szbs );
3065     r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
3066     ok( r == S_OK, "ret %08x\n", r );
3067     SysFreeString(str);
3068
3069     /* Test to get all child node text. */
3070     r = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&nodeRoot);
3071     ok( r == S_OK, "ret %08x\n", r );
3072     if(r == S_OK)
3073     {
3074         r = IXMLDOMNode_get_text( nodeRoot, &str );
3075         ok( r == S_OK, "ret %08x\n", r );
3076         ok( compareIgnoreReturns(str, _bstr_("fn1.txt\n\n fn2.txt \n\nf1\n")), "wrong get_text: %s\n", wine_dbgstr_w(str));
3077         SysFreeString(str);
3078
3079         IXMLDOMNode_Release(nodeRoot);
3080     }
3081
3082     r = IXMLDOMNodeList_get_length( node_list, NULL );
3083     ok( r == E_INVALIDARG, "ret %08x\n", r );
3084
3085     r = IXMLDOMNodeList_get_length( node_list, &len );
3086     ok( r == S_OK, "ret %08x\n", r );
3087     ok( len == 1, "expect 1 got %d\n", len );
3088
3089     r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
3090     ok( r == E_INVALIDARG, "ret %08x\n", r );
3091
3092     r = IXMLDOMNodeList_nextNode( node_list, NULL );
3093     ok( r == E_INVALIDARG, "ret %08x\n", r );
3094
3095     r = IXMLDOMNodeList_get_item( node_list, 0, &node );
3096     ok( r == S_OK, "ret %08x\n", r );
3097     IXMLDOMNodeList_Release( node_list );
3098
3099     /* Invalid output parameter*/
3100     r = IXMLDOMNode_get_text( node, NULL );
3101     ok( r == E_INVALIDARG, "ret %08x\n", r );
3102
3103     r = IXMLDOMNode_get_text( node, &str );
3104     ok( r == S_OK, "ret %08x\n", r );
3105     ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
3106     SysFreeString(str);
3107
3108     r = IXMLDOMNode_get_attributes( node, &node_map );
3109     ok( r == S_OK, "ret %08x\n", r );
3110
3111     str = SysAllocString( szvr );
3112     r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
3113     ok( r == S_OK, "ret %08x\n", r );
3114     SysFreeString(str);
3115
3116     r = IXMLDOMNode_get_text( node2, &str );
3117     ok( r == S_OK, "ret %08x\n", r );
3118     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3119     SysFreeString(str);
3120
3121     r = IXMLDOMNode_get_firstChild( node2, &node3 );
3122     ok( r == S_OK, "ret %08x\n", r );
3123
3124     r = IXMLDOMNode_get_text( node3, &str );
3125     ok( r == S_OK, "ret %08x\n", r );
3126     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3127     SysFreeString(str);
3128
3129
3130     IXMLDOMNode_Release( node3 );
3131     IXMLDOMNode_Release( node2 );
3132     IXMLDOMNamedNodeMap_Release( node_map );
3133     IXMLDOMNode_Release( node );
3134     IXMLDOMDocument_Release( doc );
3135
3136     free_bstrs();
3137 }
3138
3139 static void test_get_childNodes(void)
3140 {
3141     IXMLDOMNodeList *node_list, *node_list2;
3142     IEnumVARIANT *enum1, *enum2, *enum3;
3143     VARIANT_BOOL b;
3144     IXMLDOMDocument *doc;
3145     IXMLDOMNode *node, *node2;
3146     IXMLDOMElement *element;
3147     IUnknown *unk1, *unk2;
3148     HRESULT hr;
3149     VARIANT v;
3150     BSTR str;
3151     LONG len;
3152
3153     doc = create_document(&IID_IXMLDOMDocument);
3154     if (!doc) return;
3155
3156     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3157     EXPECT_HR(hr, S_OK);
3158     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3159
3160     hr = IXMLDOMDocument_get_documentElement( doc, &element );
3161     EXPECT_HR(hr, S_OK);
3162
3163     hr = IXMLDOMElement_get_childNodes( element, &node_list );
3164     EXPECT_HR(hr, S_OK);
3165
3166     hr = IXMLDOMNodeList_get_length( node_list, &len );
3167     EXPECT_HR(hr, S_OK);
3168     ok( len == 4, "len %d\n", len);
3169
3170     /* refcount tests for IEnumVARIANT support */
3171     EXPECT_REF(node_list, 1);
3172     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum1);
3173     EXPECT_HR(hr, S_OK);
3174     EXPECT_REF(node_list, 1);
3175     EXPECT_REF(enum1, 2);
3176
3177     EXPECT_REF(node_list, 1);
3178     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum2);
3179     EXPECT_HR(hr, S_OK);
3180     EXPECT_REF(node_list, 1);
3181     ok(enum2 == enum1, "got %p, %p\n", enum2, enum1);
3182     IEnumVARIANT_Release(enum2);
3183
3184     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3185     EXPECT_HR(hr, S_OK);
3186     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
3187     EXPECT_HR(hr, S_OK);
3188     EXPECT_REF(node_list, 3);
3189     EXPECT_REF(enum1, 2);
3190     ok(unk1 == unk2, "got %p, %p\n", unk1, unk2);
3191     IUnknown_Release(unk1);
3192     IUnknown_Release(unk2);
3193
3194     EXPECT_REF(node_list, 1);
3195     hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum2);
3196     EXPECT_HR(hr, S_OK);
3197     EXPECT_REF(node_list, 2);
3198     EXPECT_REF(enum2, 1);
3199     ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
3200
3201     /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
3202     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3203     EXPECT_HR(hr, S_OK);
3204     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
3205     EXPECT_HR(hr, S_OK);
3206     EXPECT_REF(node_list, 3);
3207     EXPECT_REF(enum2, 2);
3208     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
3209     IUnknown_Release(unk1);
3210     IUnknown_Release(unk2);
3211
3212     hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum3);
3213     EXPECT_HR(hr, S_OK);
3214     ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
3215     IEnumVARIANT_Release(enum3);
3216     IEnumVARIANT_Release(enum2);
3217
3218     /* iteration tests */
3219     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
3220     EXPECT_HR(hr, S_OK);
3221     hr = IXMLDOMNode_get_nodeName(node, &str);
3222     EXPECT_HR(hr, S_OK);
3223     ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3224     SysFreeString(str);
3225     IXMLDOMNode_Release(node);
3226
3227     hr = IXMLDOMNodeList_nextNode(node_list, &node);
3228     EXPECT_HR(hr, S_OK);
3229     hr = IXMLDOMNode_get_nodeName(node, &str);
3230     EXPECT_HR(hr, S_OK);
3231     ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3232     SysFreeString(str);
3233     IXMLDOMNode_Release(node);
3234
3235     V_VT(&v) = VT_EMPTY;
3236     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
3237     EXPECT_HR(hr, S_OK);
3238     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
3239     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
3240     EXPECT_HR(hr, S_OK);
3241     hr = IXMLDOMNode_get_nodeName(node, &str);
3242     EXPECT_HR(hr, S_OK);
3243     ok(!lstrcmpW(str, _bstr_("bs")), "got node name %s\n", wine_dbgstr_w(str));
3244     SysFreeString(str);
3245     IXMLDOMNode_Release(node);
3246     VariantClear(&v);
3247
3248     hr = IXMLDOMNodeList_nextNode(node_list, &node);
3249     EXPECT_HR(hr, S_OK);
3250     hr = IXMLDOMNode_get_nodeName(node, &str);
3251     EXPECT_HR(hr, S_OK);
3252     ok(!lstrcmpW(str, _bstr_("pr")), "got %s\n", wine_dbgstr_w(str));
3253     SysFreeString(str);
3254     IXMLDOMNode_Release(node);
3255
3256     IEnumVARIANT_Release(enum1);
3257
3258     hr = IXMLDOMNodeList_get_item( node_list, 2, &node );
3259     EXPECT_HR(hr, S_OK);
3260
3261     hr = IXMLDOMNode_get_childNodes( node, &node_list2 );
3262     EXPECT_HR(hr, S_OK);
3263
3264     hr = IXMLDOMNodeList_get_length( node_list2, &len );
3265     EXPECT_HR(hr, S_OK);
3266     ok( len == 0, "len %d\n", len);
3267
3268     hr = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
3269     EXPECT_HR(hr, S_FALSE);
3270
3271     IXMLDOMNodeList_Release( node_list2 );
3272     IXMLDOMNode_Release( node );
3273     IXMLDOMNodeList_Release( node_list );
3274     IXMLDOMElement_Release( element );
3275
3276     /* test for children of <?xml ..?> node */
3277     hr = IXMLDOMDocument_get_firstChild(doc, &node);
3278     EXPECT_HR(hr, S_OK);
3279
3280     str = NULL;
3281     hr = IXMLDOMNode_get_nodeName(node, &str);
3282     EXPECT_HR(hr, S_OK);
3283     ok(!lstrcmpW(str, _bstr_("xml")), "got %s\n", wine_dbgstr_w(str));
3284     SysFreeString(str);
3285
3286     /* it returns empty but valid node list */
3287     node_list = (void*)0xdeadbeef;
3288     hr = IXMLDOMNode_get_childNodes(node, &node_list);
3289     EXPECT_HR(hr, S_OK);
3290
3291     len = -1;
3292     hr = IXMLDOMNodeList_get_length(node_list, &len);
3293     EXPECT_HR(hr, S_OK);
3294     ok(len == 0, "got %d\n", len);
3295
3296     IXMLDOMNodeList_Release( node_list );
3297     IXMLDOMNode_Release(node);
3298
3299     IXMLDOMDocument_Release( doc );
3300     free_bstrs();
3301 }
3302
3303 static void test_get_firstChild(void)
3304 {
3305     static WCHAR xmlW[] = {'x','m','l',0};
3306     IXMLDOMDocument *doc;
3307     IXMLDOMNode *node;
3308     VARIANT_BOOL b;
3309     HRESULT r;
3310     BSTR str;
3311
3312     doc = create_document(&IID_IXMLDOMDocument);
3313     if (!doc) return;
3314
3315     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3316     ok( r == S_OK, "loadXML failed\n");
3317     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3318
3319     r = IXMLDOMDocument_get_firstChild( doc, &node );
3320     ok( r == S_OK, "ret %08x\n", r);
3321
3322     r = IXMLDOMNode_get_nodeName( node, &str );
3323     ok( r == S_OK, "ret %08x\n", r);
3324
3325     ok(!lstrcmpW(str, xmlW), "expected \"xml\" node name, got %s\n", wine_dbgstr_w(str));
3326
3327     SysFreeString(str);
3328     IXMLDOMNode_Release( node );
3329     IXMLDOMDocument_Release( doc );
3330
3331     free_bstrs();
3332 }
3333
3334 static void test_get_lastChild(void)
3335 {
3336     static WCHAR lcW[] = {'l','c',0};
3337     static WCHAR foW[] = {'f','o',0};
3338     IXMLDOMDocument *doc;
3339     IXMLDOMNode *node, *child;
3340     VARIANT_BOOL b;
3341     HRESULT r;
3342     BSTR str;
3343
3344     doc = create_document(&IID_IXMLDOMDocument);
3345     if (!doc) return;
3346
3347     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3348     ok( r == S_OK, "loadXML failed\n");
3349     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3350
3351     r = IXMLDOMDocument_get_lastChild( doc, &node );
3352     ok( r == S_OK, "ret %08x\n", r);
3353
3354     r = IXMLDOMNode_get_nodeName( node, &str );
3355     ok( r == S_OK, "ret %08x\n", r);
3356
3357     ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
3358     SysFreeString(str);
3359
3360     r = IXMLDOMNode_get_lastChild( node, &child );
3361     ok( r == S_OK, "ret %08x\n", r);
3362
3363     r = IXMLDOMNode_get_nodeName( child, &str );
3364     ok( r == S_OK, "ret %08x\n", r);
3365
3366     ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
3367     SysFreeString(str);
3368
3369     IXMLDOMNode_Release( child );
3370     IXMLDOMNode_Release( node );
3371     IXMLDOMDocument_Release( doc );
3372
3373     free_bstrs();
3374 }
3375
3376 static void test_removeChild(void)
3377 {
3378     HRESULT r;
3379     VARIANT_BOOL b;
3380     IXMLDOMDocument *doc;
3381     IXMLDOMElement *element, *lc_element;
3382     IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
3383     IXMLDOMNodeList *root_list, *fo_list;
3384
3385     doc = create_document(&IID_IXMLDOMDocument);
3386     if (!doc) return;
3387
3388     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3389     ok( r == S_OK, "loadXML failed\n");
3390     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3391
3392     r = IXMLDOMDocument_get_documentElement( doc, &element );
3393     ok( r == S_OK, "ret %08x\n", r);
3394     todo_wine EXPECT_REF(element, 2);
3395
3396     r = IXMLDOMElement_get_childNodes( element, &root_list );
3397     ok( r == S_OK, "ret %08x\n", r);
3398     EXPECT_REF(root_list, 1);
3399
3400     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3401     ok( r == S_OK, "ret %08x\n", r);
3402     EXPECT_REF(fo_node, 1);
3403
3404     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3405     ok( r == S_OK, "ret %08x\n", r);
3406     EXPECT_REF(fo_list, 1);
3407
3408     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3409     ok( r == S_OK, "ret %08x\n", r);
3410     EXPECT_REF(ba_node, 1);
3411
3412     /* invalid parameter: NULL ptr */
3413     removed_node = (void*)0xdeadbeef;
3414     r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
3415     ok( r == E_INVALIDARG, "ret %08x\n", r );
3416     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3417
3418     /* ba_node is a descendant of element, but not a direct child. */
3419     removed_node = (void*)0xdeadbeef;
3420     EXPECT_REF(ba_node, 1);
3421     EXPECT_CHILDREN(fo_node);
3422     r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
3423     ok( r == E_INVALIDARG, "ret %08x\n", r );
3424     ok( removed_node == NULL, "%p\n", removed_node );
3425     EXPECT_REF(ba_node, 1);
3426     EXPECT_CHILDREN(fo_node);
3427
3428     EXPECT_REF(ba_node, 1);
3429     EXPECT_REF(fo_node, 1);
3430     r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
3431     ok( r == S_OK, "ret %08x\n", r);
3432     ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
3433     EXPECT_REF(fo_node, 2);
3434     EXPECT_REF(ba_node, 1);
3435
3436     /* try removing already removed child */
3437     temp_node = (void*)0xdeadbeef;
3438     r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
3439     ok( r == E_INVALIDARG, "ret %08x\n", r);
3440     ok( temp_node == NULL, "%p\n", temp_node );
3441     IXMLDOMNode_Release( fo_node );
3442
3443     /* the removed node has no parent anymore */
3444     r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
3445     ok( r == S_FALSE, "ret %08x\n", r);
3446     ok( temp_node == NULL, "%p\n", temp_node );
3447
3448     IXMLDOMNode_Release( removed_node );
3449     IXMLDOMNode_Release( ba_node );
3450     IXMLDOMNodeList_Release( fo_list );
3451
3452     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3453     ok( r == S_OK, "ret %08x\n", r);
3454
3455     r = IXMLDOMNode_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
3456     ok( r == S_OK, "ret %08x\n", r);
3457
3458     /* MS quirk: passing wrong interface pointer works, too */
3459     r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
3460     ok( r == S_OK, "ret %08x\n", r);
3461     IXMLDOMElement_Release( lc_element );
3462
3463     temp_node = (void*)0xdeadbeef;
3464     r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
3465     ok( r == S_FALSE, "ret %08x\n", r);
3466     ok( temp_node == NULL, "%p\n", temp_node );
3467
3468     IXMLDOMNode_Release( lc_node );
3469     IXMLDOMNodeList_Release( root_list );
3470     IXMLDOMElement_Release( element );
3471     IXMLDOMDocument_Release( doc );
3472
3473     free_bstrs();
3474 }
3475
3476 static void test_replaceChild(void)
3477 {
3478     HRESULT r;
3479     VARIANT_BOOL b;
3480     IXMLDOMDocument *doc;
3481     IXMLDOMElement *element, *ba_element;
3482     IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
3483     IXMLDOMNodeList *root_list, *fo_list;
3484     IUnknown * unk1, *unk2;
3485     LONG len;
3486
3487     doc = create_document(&IID_IXMLDOMDocument);
3488     if (!doc) return;
3489
3490     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3491     ok( r == S_OK, "loadXML failed\n");
3492     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3493
3494     r = IXMLDOMDocument_get_documentElement( doc, &element );
3495     ok( r == S_OK, "ret %08x\n", r);
3496
3497     r = IXMLDOMElement_get_childNodes( element, &root_list );
3498     ok( r == S_OK, "ret %08x\n", r);
3499
3500     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3501     ok( r == S_OK, "ret %08x\n", r);
3502
3503     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3504     ok( r == S_OK, "ret %08x\n", r);
3505
3506     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3507     ok( r == S_OK, "ret %08x\n", r);
3508
3509     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3510     ok( r == S_OK, "ret %08x\n", r);
3511
3512     IXMLDOMNodeList_Release( fo_list );
3513
3514     /* invalid parameter: NULL ptr for element to remove */
3515     removed_node = (void*)0xdeadbeef;
3516     r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3517     ok( r == E_INVALIDARG, "ret %08x\n", r );
3518     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3519
3520     /* invalid parameter: NULL for replacement element. (Sic!) */
3521     removed_node = (void*)0xdeadbeef;
3522     r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3523     ok( r == E_INVALIDARG, "ret %08x\n", r );
3524     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3525
3526     /* invalid parameter: OldNode is not a child */
3527     removed_node = (void*)0xdeadbeef;
3528     r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3529     ok( r == E_INVALIDARG, "ret %08x\n", r );
3530     ok( removed_node == NULL, "%p\n", removed_node );
3531     IXMLDOMNode_Release( lc_node );
3532
3533     /* invalid parameter: would create loop */
3534     removed_node = (void*)0xdeadbeef;
3535     r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3536     ok( r == E_FAIL, "ret %08x\n", r );
3537     ok( removed_node == NULL, "%p\n", removed_node );
3538
3539     r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3540     ok( r == S_OK, "ret %08x\n", r );
3541
3542     r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3543     ok( r == S_OK, "ret %08x\n", r );
3544
3545     /* ba_node and temp_node refer to the same node, yet they
3546        are different interface pointers */
3547     ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3548     r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3549     ok( r == S_OK, "ret %08x\n", r );
3550     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3551     ok( r == S_OK, "ret %08x\n", r );
3552     todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3553
3554     IUnknown_Release( unk1 );
3555     IUnknown_Release( unk2 );
3556
3557     /* ba_node should have been removed from below fo_node */
3558     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3559     ok( r == S_OK, "ret %08x\n", r );
3560
3561     /* MS quirk: replaceChild also accepts elements instead of nodes */
3562     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3563     ok( r == S_OK, "ret %08x\n", r );
3564     EXPECT_REF(ba_element, 2);
3565
3566     removed_node = NULL;
3567     r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3568     ok( r == S_OK, "ret %08x\n", r );
3569     ok( removed_node != NULL, "got %p\n", removed_node);
3570     EXPECT_REF(ba_element, 3);
3571     IXMLDOMElement_Release( ba_element );
3572
3573     r = IXMLDOMNodeList_get_length( fo_list, &len);
3574     ok( r == S_OK, "ret %08x\n", r );
3575     ok( len == 0, "len %d\n", len);
3576
3577     IXMLDOMNodeList_Release( fo_list );
3578
3579     IXMLDOMNode_Release(ba_node);
3580     IXMLDOMNode_Release(fo_node);
3581     IXMLDOMNode_Release(temp_node);
3582     IXMLDOMNodeList_Release( root_list );
3583     IXMLDOMElement_Release( element );
3584     IXMLDOMDocument_Release( doc );
3585
3586     free_bstrs();
3587 }
3588
3589 static void test_removeNamedItem(void)
3590 {
3591     IXMLDOMDocument *doc;
3592     IXMLDOMElement *element;
3593     IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3594     IXMLDOMNodeList *root_list;
3595     IXMLDOMNamedNodeMap * pr_attrs;
3596     VARIANT_BOOL b;
3597     BSTR str;
3598     LONG len;
3599     HRESULT r;
3600
3601     doc = create_document(&IID_IXMLDOMDocument);
3602     if (!doc) return;
3603
3604     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3605     ok( r == S_OK, "loadXML failed\n");
3606     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3607
3608     r = IXMLDOMDocument_get_documentElement( doc, &element );
3609     ok( r == S_OK, "ret %08x\n", r);
3610
3611     r = IXMLDOMElement_get_childNodes( element, &root_list );
3612     ok( r == S_OK, "ret %08x\n", r);
3613
3614     r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3615     ok( r == S_OK, "ret %08x\n", r);
3616
3617     r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3618     ok( r == S_OK, "ret %08x\n", r);
3619
3620     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3621     ok( r == S_OK, "ret %08x\n", r);
3622     ok( len == 3, "length %d\n", len);
3623
3624     removed_node = (void*)0xdeadbeef;
3625     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3626     ok ( r == E_INVALIDARG, "ret %08x\n", r);
3627     ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3628
3629     removed_node = (void*)0xdeadbeef;
3630     str = SysAllocString(szvr);
3631     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3632     ok ( r == S_OK, "ret %08x\n", r);
3633
3634     removed_node2 = (void*)0xdeadbeef;
3635     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3636     ok ( r == S_FALSE, "ret %08x\n", r);
3637     ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3638
3639     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3640     ok( r == S_OK, "ret %08x\n", r);
3641     ok( len == 2, "length %d\n", len);
3642
3643     r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3644     ok ( r == S_OK, "ret %08x\n", r);
3645     IXMLDOMNode_Release(removed_node);
3646
3647     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3648     ok( r == S_OK, "ret %08x\n", r);
3649     ok( len == 3, "length %d\n", len);
3650
3651     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3652     ok ( r == S_OK, "ret %08x\n", r);
3653
3654     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3655     ok( r == S_OK, "ret %08x\n", r);
3656     ok( len == 2, "length %d\n", len);
3657
3658     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3659     ok ( r == S_FALSE, "ret %08x\n", r);
3660
3661     SysFreeString(str);
3662
3663     IXMLDOMNamedNodeMap_Release( pr_attrs );
3664     IXMLDOMNode_Release( pr_node );
3665     IXMLDOMNodeList_Release( root_list );
3666     IXMLDOMElement_Release( element );
3667     IXMLDOMDocument_Release( doc );
3668
3669     free_bstrs();
3670 }
3671
3672 #define test_IObjectSafety_set(p, r, r2, s, m, e, e2) _test_IObjectSafety_set(__LINE__,p, r, r2, s, m, e, e2)
3673 static void _test_IObjectSafety_set(unsigned line, IObjectSafety *safety, HRESULT result,
3674                                     HRESULT result2, DWORD set, DWORD mask, DWORD expected,
3675                                     DWORD expected2)
3676 {
3677     DWORD enabled, supported;
3678     HRESULT hr;
3679
3680     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
3681     if (result == result2)
3682         ok_(__FILE__,line)(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
3683     else
3684         ok_(__FILE__,line)(broken(hr == result) || hr == result2,
3685            "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
3686
3687     supported = enabled = 0xCAFECAFE;
3688     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3689     ok(hr == S_OK, "ret %08x\n", hr );
3690     if (expected == expected2)
3691         ok_(__FILE__,line)(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
3692     else
3693         ok_(__FILE__,line)(broken(enabled == expected) || enabled == expected2,
3694            "Expected %08x, got %08x\n", expected2, enabled);
3695
3696     /* reset the safety options */
3697
3698     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3699             INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
3700             0);
3701     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3702
3703     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3704     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3705     ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3706 }
3707
3708 #define test_IObjectSafety_common(s) _test_IObjectSafety_common(__LINE__,s)
3709 static void _test_IObjectSafety_common(unsigned line, IObjectSafety *safety)
3710 {
3711     DWORD enabled = 0, supported = 0;
3712     HRESULT hr;
3713
3714     /* get */
3715     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
3716     ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3717     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
3718     ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3719
3720     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3721     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3722     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3723        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3724         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3725              "got %08x\n", supported);
3726     ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3727
3728     /* set -- individual flags */
3729
3730     test_IObjectSafety_set(safety, S_OK, S_OK,
3731         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3732         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3733
3734     test_IObjectSafety_set(safety, S_OK, S_OK,
3735         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
3736         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
3737
3738     test_IObjectSafety_set(safety, S_OK, S_OK,
3739         INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
3740         0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
3741
3742     /* set INTERFACE_USES_DISPEX  */
3743
3744     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3745         INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
3746         0, 0);
3747
3748     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3749         INTERFACE_USES_DISPEX, 0,
3750         0, 0);
3751
3752     test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
3753         0, INTERFACE_USES_DISPEX,
3754         0, 0);
3755
3756     /* set option masking */
3757
3758     test_IObjectSafety_set(safety, S_OK, S_OK,
3759         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3760         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3761         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3762         INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3763
3764     test_IObjectSafety_set(safety, S_OK, S_OK,
3765         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3766         INTERFACESAFE_FOR_UNTRUSTED_DATA,
3767         INTERFACESAFE_FOR_UNTRUSTED_DATA,
3768         INTERFACESAFE_FOR_UNTRUSTED_DATA);
3769
3770     test_IObjectSafety_set(safety, S_OK, S_OK,
3771         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3772         INTERFACE_USES_SECURITY_MANAGER,
3773         0,
3774         0);
3775
3776     /* set -- inheriting previous settings */
3777
3778     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3779                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3780                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3781     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3782     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3783     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3784     ok_(__FILE__,line)(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER, "Expected INTERFACESAFE_FOR_UNTRUSTED_CALLER got %08x\n", enabled);
3785     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3786        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3787         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3788              "got %08x\n", supported);
3789
3790     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3791                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA,
3792                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA);
3793     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3794     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3795     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3796     ok_(__FILE__,line)(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
3797                        enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA),
3798                        "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) got %08x\n", enabled);
3799     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3800        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3801         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3802              "got %08x\n", supported);
3803 }
3804
3805 static void test_IXMLDOMDocument2(void)
3806 {
3807     static const WCHAR emptyW[] = {0};
3808     IXMLDOMDocument2 *doc2, *dtddoc2;
3809     IXMLDOMDocument *doc;
3810     IXMLDOMParseError* err;
3811     IDispatchEx *dispex;
3812     VARIANT_BOOL b;
3813     VARIANT var;
3814     HRESULT r;
3815     LONG res;
3816
3817     doc = create_document(&IID_IXMLDOMDocument);
3818     if (!doc) return;
3819
3820     dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3821     if (!dtddoc2)
3822     {
3823         IXMLDOMDocument_Release(doc);
3824         return;
3825     }
3826
3827     r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3828     ok( r == S_OK, "ret %08x\n", r );
3829     ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3830
3831     ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3832     ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3833     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3834
3835     err = NULL;
3836     ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3837     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3838     ok(err != NULL, "expected a pointer\n");
3839     if (err)
3840     {
3841         res = 0;
3842         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3843         /* XML_E_NOTWF */
3844         ok(res == E_XML_NOTWF, "got %08x\n", res);
3845         IXMLDOMParseError_Release(err);
3846     }
3847
3848     r = IXMLDOMDocument2_loadXML( doc2, _bstr_(complete4A), &b );
3849     ok( r == S_OK, "loadXML failed\n");
3850     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3851
3852     ole_check(IXMLDOMDocument_get_readyState(doc, &res));
3853     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3854
3855     err = NULL;
3856     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3857     ok(err != NULL, "expected a pointer\n");
3858     if (err)
3859     {
3860         res = 0;
3861         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3862         /* XML_E_NODTD */
3863         ok(res == E_XML_NODTD, "got %08x\n", res);
3864         IXMLDOMParseError_Release(err);
3865     }
3866
3867     r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3868     ok( r == S_OK, "ret %08x\n", r );
3869     if(r == S_OK)
3870     {
3871         IDispatchEx_Release(dispex);
3872     }
3873
3874     /* we will check if the variant got cleared */
3875     IXMLDOMDocument2_AddRef(doc2);
3876     EXPECT_REF(doc2, 3); /* doc, doc2, AddRef*/
3877
3878     V_VT(&var) = VT_UNKNOWN;
3879     V_UNKNOWN(&var) = (IUnknown *)doc2;
3880
3881     /* invalid calls */
3882     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3883     expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3884     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3885
3886     /* valid call */
3887     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3888     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3889     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3890     V_VT(&var) = VT_R4;
3891
3892     /* the variant didn't get cleared*/
3893     expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3894
3895     /* setProperty tests */
3896     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3897     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3898     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3899     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3900     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3901     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3902
3903     V_VT(&var) = VT_BSTR;
3904     V_BSTR(&var) = SysAllocString(emptyW);
3905     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3906     ok(r == S_OK, "got 0x%08x\n", r);
3907     VariantClear(&var);
3908
3909     V_VT(&var) = VT_I2;
3910     V_I2(&var) = 0;
3911     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3912     ok(r == E_FAIL, "got 0x%08x\n", r);
3913
3914     /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3915     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3916     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3917     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3918
3919     IXMLDOMDocument2_Release( doc2 );
3920     IXMLDOMDocument_Release( doc );
3921
3922     /* DTD validation */
3923     ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3924     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3925     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3926     err = NULL;
3927     ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
3928     ok(err != NULL, "expected pointer\n");
3929     if (err)
3930     {
3931         res = 0;
3932         ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
3933         ok(res == 0, "got %08x\n", res);
3934         IXMLDOMParseError_Release(err);
3935     }
3936
3937     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
3938     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3939     err = NULL;
3940     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3941     ok(err != NULL, "expected pointer\n");
3942     if (err)
3943     {
3944         res = 0;
3945         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3946         /* XML_ELEMENT_UNDECLARED */
3947         todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
3948         IXMLDOMParseError_Release(err);
3949     }
3950
3951     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
3952     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3953     err = NULL;
3954     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3955     ok(err != NULL, "expected pointer\n");
3956     if (err)
3957     {
3958         res = 0;
3959         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3960         /* XML_ELEMENT_ID_NOT_FOUND */
3961         todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
3962         IXMLDOMParseError_Release(err);
3963     }
3964
3965     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
3966     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3967     err = NULL;
3968     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3969     ok(err != NULL, "expected pointer\n");
3970     if (err)
3971     {
3972         res = 0;
3973         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3974         /* XML_EMPTY_NOT_ALLOWED */
3975         todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
3976         IXMLDOMParseError_Release(err);
3977     }
3978
3979     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
3980     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3981     err = NULL;
3982     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3983     ok(err != NULL, "expected pointer\n");
3984     if (err)
3985     {
3986         res = 0;
3987         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3988         /* XML_ROOT_NAME_MISMATCH */
3989         todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
3990         IXMLDOMParseError_Release(err);
3991     }
3992
3993     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
3994     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3995     err = NULL;
3996     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
3997     ok(err != NULL, "expected pointer\n");
3998     if (err)
3999     {
4000         res = 0;
4001         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4002         /* XML_INVALID_CONTENT */
4003         todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
4004         IXMLDOMParseError_Release(err);
4005     }
4006
4007     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
4008     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4009     err = NULL;
4010     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4011     ok(err != NULL, "expected pointer\n");
4012     if (err)
4013     {
4014         res = 0;
4015         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4016         /* XML_ATTRIBUTE_NOT_DEFINED */
4017         todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
4018         IXMLDOMParseError_Release(err);
4019     }
4020
4021     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
4022     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4023     err = NULL;
4024     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4025     ok(err != NULL, "expected pointer\n");
4026     if (err)
4027     {
4028         res = 0;
4029         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4030         /* XML_ATTRIBUTE_FIXED */
4031         todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
4032         IXMLDOMParseError_Release(err);
4033     }
4034
4035     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
4036     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4037     err = NULL;
4038     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4039     ok(err != NULL, "expected pointer\n");
4040     if (err)
4041     {
4042         res = 0;
4043         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4044         /* XML_ATTRIBUTE_VALUE */
4045         todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
4046         IXMLDOMParseError_Release(err);
4047     }
4048
4049     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
4050     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4051     err = NULL;
4052     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4053     ok(err != NULL, "expected pointer\n");
4054     if (err)
4055     {
4056         res = 0;
4057         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4058         /* XML_ILLEGAL_TEXT */
4059         todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
4060         IXMLDOMParseError_Release(err);
4061     }
4062
4063     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
4064     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4065     err = NULL;
4066     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4067     ok(err != NULL, "expected pointer\n");
4068     if (err)
4069     {
4070         res = 0;
4071         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4072         /* XML_REQUIRED_ATTRIBUTE_MISSING */
4073         todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
4074         IXMLDOMParseError_Release(err);
4075     }
4076
4077     IXMLDOMDocument2_Release( dtddoc2 );
4078     free_bstrs();
4079 }
4080
4081 #define helper_ole_check(expr) { \
4082     HRESULT r = expr; \
4083     ok_(__FILE__, line)(r == S_OK, "=> %i: " #expr " returned %08x\n", __LINE__, r); \
4084 }
4085
4086 #define helper_expect_list_and_release(list, expstr) { \
4087     char *str = list_to_string(list); \
4088     ok_(__FILE__, line)(strcmp(str, expstr)==0, "=> %i: Invalid node list: %s, expected %s\n", __LINE__, str, expstr); \
4089     if (list) IXMLDOMNodeList_Release(list); \
4090 }
4091
4092 #define helper_expect_bstr_and_release(bstr, str) { \
4093     ok_(__FILE__, line)(lstrcmpW(bstr, _bstr_(str)) == 0, \
4094        "=> %i: got %s\n", __LINE__, wine_dbgstr_w(bstr)); \
4095     SysFreeString(bstr); \
4096 }
4097
4098 #define check_ws_ignored(doc, str) _check_ws_ignored(__LINE__, doc, str)
4099 static inline void _check_ws_ignored(int line, IXMLDOMDocument2* doc, char const* str)
4100 {
4101     IXMLDOMNode *node1, *node2;
4102     IXMLDOMNodeList *list;
4103     BSTR bstr;
4104
4105     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4106     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4107     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4108     helper_ole_check(IXMLDOMNodeList_reset(list));
4109     helper_expect_list_and_release(list, "E1.E5.E1.E2.D1 E2.E5.E1.E2.D1");
4110
4111     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4112     helper_expect_list_and_release(list, "T1.E1.E5.E1.E2.D1 E2.E1.E5.E1.E2.D1 E3.E1.E5.E1.E2.D1 T4.E1.E5.E1.E2.D1 E5.E1.E5.E1.E2.D1");
4113     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4114     if (str)
4115     {
4116         helper_expect_bstr_and_release(bstr, str);
4117     }
4118     else
4119     {
4120         helper_expect_bstr_and_release(bstr, "This is a description.");
4121     }
4122     IXMLDOMNode_Release(node1);
4123
4124     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4125     helper_expect_list_and_release(list, "T1.E2.E5.E1.E2.D1 E2.E2.E5.E1.E2.D1 T3.E2.E5.E1.E2.D1 E4.E2.E5.E1.E2.D1 T5.E2.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1 T7.E2.E5.E1.E2.D1");
4126     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4127     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4128     IXMLDOMNode_Release(node2);
4129 }
4130
4131 #define check_ws_preserved(doc, str) _check_ws_preserved(__LINE__, doc, str)
4132 static inline void _check_ws_preserved(int line, IXMLDOMDocument2* doc, char const* str)
4133 {
4134     IXMLDOMNode *node1, *node2;
4135     IXMLDOMNodeList *list;
4136     BSTR bstr;
4137
4138     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4139     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4140     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4141     helper_ole_check(IXMLDOMNodeList_reset(list));
4142     helper_expect_list_and_release(list, "E2.E10.E2.E2.D1 E4.E10.E2.E2.D1");
4143
4144     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4145     helper_expect_list_and_release(list, "T1.E2.E10.E2.E2.D1 E2.E2.E10.E2.E2.D1 T3.E2.E10.E2.E2.D1 E4.E2.E10.E2.E2.D1 T5.E2.E10.E2.E2.D1 E6.E2.E10.E2.E2.D1 T7.E2.E10.E2.E2.D1");
4146     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4147     if (str)
4148     {
4149         helper_expect_bstr_and_release(bstr, str);
4150     }
4151     else
4152     {
4153         helper_expect_bstr_and_release(bstr, "\n                This is a description. \n            ");
4154     }
4155     IXMLDOMNode_Release(node1);
4156
4157     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4158     helper_expect_list_and_release(list, "T1.E4.E10.E2.E2.D1 E2.E4.E10.E2.E2.D1 T3.E4.E10.E2.E2.D1 E4.E4.E10.E2.E2.D1 T5.E4.E10.E2.E2.D1 E6.E4.E10.E2.E2.D1 T7.E4.E10.E2.E2.D1");
4159     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4160     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4161     IXMLDOMNode_Release(node2);
4162 }
4163
4164 static void test_preserve_charref(IXMLDOMDocument2 *doc, VARIANT_BOOL preserve)
4165 {
4166     static const WCHAR b1_p[] = {' ','T','e','x','t',' ','A',' ','e','n','d',' ',0};
4167     static const WCHAR b1_i[] = {'T','e','x','t',' ','A',' ','e','n','d',0};
4168     static const WCHAR b2_p[] = {'A','B',' ','C',' ',0};
4169     static const WCHAR b2_i[] = {'A','B',' ','C',0};
4170     IXMLDOMNodeList *list;
4171     IXMLDOMElement *root;
4172     IXMLDOMNode *node;
4173     const WCHAR *text;
4174     VARIANT_BOOL b;
4175     HRESULT hr;
4176     BSTR s;
4177
4178     hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc, preserve);
4179     ok(hr == S_OK, "got 0x%08x\n", hr);
4180
4181     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(charrefsxml), &b);
4182     ok(hr == S_OK, "got 0x%08x\n", hr);
4183
4184     hr = IXMLDOMDocument2_get_documentElement(doc, &root);
4185     ok(hr == S_OK, "got 0x%08x\n", hr);
4186
4187     hr = IXMLDOMElement_get_childNodes(root, &list);
4188     ok(hr == S_OK, "got 0x%08x\n", hr);
4189     IXMLDOMElement_Release(root);
4190
4191     text = preserve == VARIANT_TRUE ? b1_p : b1_i;
4192     hr = IXMLDOMNodeList_get_item(list, 0, &node);
4193     ok(hr == S_OK, "got 0x%08x\n", hr);
4194     hr = IXMLDOMNode_get_text(node, &s);
4195     ok(hr == S_OK, "got 0x%08x\n", hr);
4196     ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4197     SysFreeString(s);
4198     IXMLDOMNode_Release(node);
4199
4200     text = preserve == VARIANT_TRUE ? b2_p : b2_i;
4201     hr = IXMLDOMNodeList_get_item(list, 1, &node);
4202     ok(hr == S_OK, "got 0x%08x\n", hr);
4203     hr = IXMLDOMNode_get_text(node, &s);
4204     ok(hr == S_OK, "got 0x%08x\n", hr);
4205     ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4206     SysFreeString(s);
4207     IXMLDOMNode_Release(node);
4208
4209     IXMLDOMNodeList_Release(list);
4210 }
4211
4212 static void test_whitespace(void)
4213 {
4214     IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
4215     VARIANT_BOOL b;
4216
4217     doc1 = create_document(&IID_IXMLDOMDocument2);
4218     doc2 = create_document(&IID_IXMLDOMDocument2);
4219     if (!doc1 || !doc2) return;
4220
4221     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
4222     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4223     ok(b == VARIANT_FALSE, "expected false\n");
4224     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4225     ok(b == VARIANT_TRUE, "expected true\n");
4226
4227     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4228     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4229     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4230     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4231
4232     /* switch to XPath */
4233     ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4234     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4235
4236     check_ws_ignored(doc1, NULL);
4237     check_ws_preserved(doc2, NULL);
4238
4239     /* new instances copy the property */
4240     ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
4241     ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
4242
4243     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4244     ok(b == VARIANT_FALSE, "expected false\n");
4245     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4246     ok(b == VARIANT_TRUE, "expected true\n");
4247
4248     check_ws_ignored(doc3, NULL);
4249     check_ws_preserved(doc4, NULL);
4250
4251     /* setting after loading xml affects trimming of leading/trailing ws only */
4252     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
4253     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
4254
4255     /* the trailing "\n            " isn't there, because it was ws-only node */
4256     check_ws_ignored(doc1, "\n                This is a description. ");
4257     check_ws_preserved(doc2, "This is a description.");
4258
4259     /* it takes effect on reload */
4260     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4261     ok(b == VARIANT_TRUE, "expected true\n");
4262     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4263     ok(b == VARIANT_FALSE, "expected false\n");
4264
4265     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4266     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4267     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4268     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4269
4270     check_ws_preserved(doc1, NULL);
4271     check_ws_ignored(doc2, NULL);
4272
4273     /* other instances follow suit */
4274     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4275     ok(b == VARIANT_TRUE, "expected true\n");
4276     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4277     ok(b == VARIANT_FALSE, "expected false\n");
4278
4279     check_ws_preserved(doc3, NULL);
4280     check_ws_ignored(doc4, NULL);
4281
4282     IXMLDOMDocument2_Release(doc2);
4283     IXMLDOMDocument2_Release(doc3);
4284     IXMLDOMDocument2_Release(doc4);
4285
4286     /* text with char references */
4287     test_preserve_charref(doc1, VARIANT_TRUE);
4288     test_preserve_charref(doc1, VARIANT_FALSE);
4289     IXMLDOMDocument2_Release(doc1);
4290
4291     free_bstrs();
4292 }
4293
4294 typedef struct {
4295     const GUID *clsid;
4296     const char *name;
4297     const char *ns;
4298     HRESULT hr;
4299 } selection_ns_t;
4300
4301 /* supposed to be tested with szExampleXML */
4302 static const selection_ns_t selection_ns_data[] = {
4303     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4304     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4305     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4306     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4307
4308     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4309     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4310     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4311     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4312
4313     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4314     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4315     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4316     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4317
4318     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4319     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4320     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4321     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4322
4323     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4324     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4325     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4326     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4327
4328     { NULL }
4329 };
4330
4331 static void test_XPath(void)
4332 {
4333     const selection_ns_t *ptr = selection_ns_data;
4334     VARIANT var;
4335     VARIANT_BOOL b;
4336     IXMLDOMDocument2 *doc;
4337     IXMLDOMDocument *doc2;
4338     IXMLDOMNode *rootNode;
4339     IXMLDOMNode *elem1Node;
4340     IXMLDOMNode *node;
4341     IXMLDOMNodeList *list;
4342     IXMLDOMElement *elem;
4343     IXMLDOMAttribute *attr;
4344     DOMNodeType type;
4345     HRESULT hr;
4346     LONG len;
4347     BSTR str;
4348
4349     doc = create_document(&IID_IXMLDOMDocument2);
4350     if (!doc) return;
4351
4352     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4353     EXPECT_HR(hr, S_OK);
4354     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4355
4356     /* switch to XPath */
4357     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4358
4359     /* some simple queries*/
4360     EXPECT_REF(doc, 1);
4361     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4362     EXPECT_HR(hr, S_OK);
4363     EXPECT_REF(doc, 1);
4364     EXPECT_LIST_LEN(list, 1);
4365
4366     EXPECT_REF(list, 1);
4367     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4368     EXPECT_HR(hr, S_OK);
4369     EXPECT_REF(list, 1);
4370     EXPECT_REF(rootNode, 1);
4371
4372     hr = IXMLDOMNodeList_reset(list);
4373     EXPECT_HR(hr, S_OK);
4374     expect_list_and_release(list, "E2.D1");
4375
4376 if (0)
4377 {
4378     /* namespace:: axis test is disabled until namespace definitions
4379        are supported as attribute nodes, currently it's another node type */
4380     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("/root/namespace::*"), &list);
4381     EXPECT_HR(hr, S_OK);
4382     len = -1;
4383     hr = IXMLDOMNodeList_get_length(list, &len);
4384     EXPECT_HR(hr, S_OK);
4385     ok(len == 2, "got %d\n", len);
4386
4387     hr = IXMLDOMNodeList_nextNode(list, &node);
4388     EXPECT_HR(hr, S_OK);
4389     type = NODE_INVALID;
4390     hr = IXMLDOMNode_get_nodeType(node, &type);
4391     EXPECT_HR(hr, S_OK);
4392     ok(type == NODE_ATTRIBUTE, "got %d\n", type);
4393     IXMLDOMNode_Release(node);
4394
4395     IXMLDOMNodeList_Release(list);
4396 }
4397
4398     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//c"), &list));
4399     expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
4400
4401     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//c[@type]"), &list));
4402     expect_list_and_release(list, "E3.E2.E2.D1");
4403
4404     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
4405     /* using get_item for query results advances the position */
4406     ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
4407     expect_node(node, "E2.E2.D1");
4408     IXMLDOMNode_Release(node);
4409     ole_check(IXMLDOMNodeList_nextNode(list, &node));
4410     expect_node(node, "E4.E2.D1");
4411     IXMLDOMNode_Release(node);
4412     ole_check(IXMLDOMNodeList_reset(list));
4413     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
4414
4415     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
4416     expect_list_and_release(list, "E2.D1");
4417
4418     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
4419     ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
4420     ole_check(IXMLDOMNodeList_reset(list));
4421     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
4422
4423     /* select an attribute */
4424     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
4425     expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
4426
4427     /* would evaluate to a number */
4428     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
4429     /* would evaluate to a boolean */
4430     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
4431     /* would evaluate to a string */
4432     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
4433
4434     /* no results */
4435     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
4436     expect_list_and_release(list, "");
4437     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("elem//c"), &list));
4438     expect_list_and_release(list, "");
4439     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem[4]"), &list));
4440     expect_list_and_release(list, "");
4441     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
4442     expect_list_and_release(list, "");
4443
4444     /* foo undeclared in document node */
4445     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4446     /* undeclared in <root> node */
4447     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
4448     /* undeclared in <elem> node */
4449     ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
4450     /* but this trick can be used */
4451     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
4452     expect_list_and_release(list, "E3.E4.E2.D1");
4453
4454     /* it has to be declared in SelectionNamespaces */
4455     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4456         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
4457
4458     /* now the namespace can be used */
4459     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list));
4460     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4461     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
4462     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4463     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
4464     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4465     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
4466     expect_list_and_release(list, "E5.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1");
4467
4468     /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
4469     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4470         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
4471
4472     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4473
4474     VariantInit(&var);
4475     ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
4476     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
4477     if (V_VT(&var) == VT_BSTR)
4478         expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
4479
4480     /* extra attributes - same thing*/
4481     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4482         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
4483     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4484
4485     IXMLDOMNode_Release(rootNode);
4486     IXMLDOMNode_Release(elem1Node);
4487
4488     /* alter document with already built list */
4489     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4490     EXPECT_HR(hr, S_OK);
4491     EXPECT_LIST_LEN(list, 1);
4492
4493     hr = IXMLDOMDocument2_get_lastChild(doc, &rootNode);
4494     EXPECT_HR(hr, S_OK);
4495     EXPECT_REF(rootNode, 1);
4496     EXPECT_REF(doc, 1);
4497
4498     hr = IXMLDOMDocument2_removeChild(doc, rootNode, NULL);
4499     EXPECT_HR(hr, S_OK);
4500     IXMLDOMNode_Release(rootNode);
4501
4502     EXPECT_LIST_LEN(list, 1);
4503
4504     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4505     EXPECT_HR(hr, S_OK);
4506     EXPECT_REF(rootNode, 1);
4507
4508     IXMLDOMNodeList_Release(list);
4509
4510     hr = IXMLDOMNode_get_nodeName(rootNode, &str);
4511     EXPECT_HR(hr, S_OK);
4512     ok(!lstrcmpW(str, _bstr_("root")), "got %s\n", wine_dbgstr_w(str));
4513     SysFreeString(str);
4514     IXMLDOMNode_Release(rootNode);
4515
4516     /* alter node from list and get it another time */
4517     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4518     EXPECT_HR(hr, S_OK);
4519     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4520
4521     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4522     EXPECT_HR(hr, S_OK);
4523     EXPECT_LIST_LEN(list, 1);
4524
4525     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4526     EXPECT_HR(hr, S_OK);
4527
4528     hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4529     EXPECT_HR(hr, S_OK);
4530
4531     V_VT(&var) = VT_I2;
4532     V_I2(&var) = 1;
4533     hr = IXMLDOMElement_setAttribute(elem, _bstr_("attrtest"), var);
4534     EXPECT_HR(hr, S_OK);
4535     IXMLDOMElement_Release(elem);
4536     IXMLDOMNode_Release(rootNode);
4537
4538     /* now check attribute to be present */
4539     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4540     EXPECT_HR(hr, S_OK);
4541
4542     hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4543     EXPECT_HR(hr, S_OK);
4544
4545     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4546     EXPECT_HR(hr, S_OK);
4547     IXMLDOMAttribute_Release(attr);
4548
4549     IXMLDOMElement_Release(elem);
4550     IXMLDOMNode_Release(rootNode);
4551
4552     /* and now check for attribute in original document */
4553     hr = IXMLDOMDocument2_get_documentElement(doc, &elem);
4554     EXPECT_HR(hr, S_OK);
4555
4556     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4557     EXPECT_HR(hr, S_OK);
4558     IXMLDOMAttribute_Release(attr);
4559
4560     IXMLDOMElement_Release(elem);
4561
4562     /* attach node from list to another document */
4563     doc2 = create_document(&IID_IXMLDOMDocument);
4564
4565     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4566     EXPECT_HR(hr, S_OK);
4567     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4568
4569     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4570     EXPECT_HR(hr, S_OK);
4571     EXPECT_LIST_LEN(list, 1);
4572
4573     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4574     EXPECT_HR(hr, S_OK);
4575     EXPECT_REF(rootNode, 1);
4576
4577     hr = IXMLDOMDocument_appendChild(doc2, rootNode, NULL);
4578     EXPECT_HR(hr, S_OK);
4579     EXPECT_REF(rootNode, 1);
4580     EXPECT_REF(doc2, 1);
4581     EXPECT_REF(list, 1);
4582
4583     EXPECT_LIST_LEN(list, 1);
4584
4585     IXMLDOMNode_Release(rootNode);
4586     IXMLDOMNodeList_Release(list);
4587     IXMLDOMDocument_Release(doc2);
4588     IXMLDOMDocument2_Release(doc);
4589
4590     while (ptr->clsid)
4591     {
4592         hr = CoCreateInstance(ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
4593         if (hr != S_OK)
4594         {
4595             win_skip("can't create instance of %s\n", ptr->name);
4596             ptr++;
4597             continue;
4598         }
4599
4600         hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4601         EXPECT_HR(hr, S_OK);
4602         ok(b == VARIANT_TRUE, "failed to load, %s\n", ptr->name);
4603
4604         hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
4605         EXPECT_HR(hr, S_OK);
4606
4607         V_VT(&var) = VT_BSTR;
4608         V_BSTR(&var) = _bstr_(ptr->ns);
4609
4610         hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), var);
4611         ok(hr == ptr->hr, "got 0x%08x, for %s, %s\n", hr, ptr->name, ptr->ns);
4612
4613         V_VT(&var) = VT_EMPTY;
4614         hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
4615         EXPECT_HR(hr, S_OK);
4616         ok(V_VT(&var) == VT_BSTR, "got wrong property type %d\n", V_VT(&var));
4617         ok(!lstrcmpW(V_BSTR(&var), _bstr_(ptr->ns)), "got wrong value %s\n", wine_dbgstr_w(V_BSTR(&var)));
4618         VariantClear(&var);
4619
4620         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list);
4621         EXPECT_HR(hr, S_OK);
4622         if (hr == S_OK)
4623             expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4624
4625         IXMLDOMDocument2_Release(doc);
4626         ptr++;
4627         free_bstrs();
4628     }
4629
4630     free_bstrs();
4631 }
4632
4633 static void test_cloneNode(void )
4634 {
4635     IXMLDOMDocument *doc, *doc2;
4636     VARIANT_BOOL b;
4637     IXMLDOMNodeList *pList;
4638     IXMLDOMNamedNodeMap *mapAttr;
4639     LONG length, length1;
4640     LONG attr_cnt, attr_cnt1;
4641     IXMLDOMNode *node, *attr;
4642     IXMLDOMNode *node_clone;
4643     IXMLDOMNode *node_first;
4644     HRESULT hr;
4645
4646     doc = create_document(&IID_IXMLDOMDocument);
4647     if (!doc) return;
4648
4649     ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b));
4650     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4651
4652     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc/pr"), &node);
4653     ok( hr == S_OK, "ret %08x\n", hr );
4654     ok( node != NULL, "node %p\n", node );
4655
4656     /* Check invalid parameter */
4657     hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
4658     ok( hr == E_INVALIDARG, "ret %08x\n", hr );
4659
4660     /* All Children */
4661     hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
4662     ok( hr == S_OK, "ret %08x\n", hr );
4663     ok( node_clone != NULL, "node %p\n", node );
4664
4665     hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4666     ok( hr == S_OK, "ret %08x\n", hr );
4667     hr = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4668     ok( hr == S_OK, "ret %08x\n", hr );
4669     IXMLDOMDocument_Release(doc2);
4670     IXMLDOMNode_Release(node_first);
4671
4672     hr = IXMLDOMNode_get_childNodes(node, &pList);
4673     ok( hr == S_OK, "ret %08x\n", hr );
4674     length = 0;
4675     hr = IXMLDOMNodeList_get_length(pList, &length);
4676     ok( hr == S_OK, "ret %08x\n", hr );
4677     ok(length == 1, "got %d\n", length);
4678     IXMLDOMNodeList_Release(pList);
4679
4680     hr = IXMLDOMNode_get_attributes(node, &mapAttr);
4681     ok( hr == S_OK, "ret %08x\n", hr );
4682     attr_cnt = 0;
4683     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt);
4684     ok( hr == S_OK, "ret %08x\n", hr );
4685     ok(attr_cnt == 3, "got %d\n", attr_cnt);
4686     IXMLDOMNamedNodeMap_Release(mapAttr);
4687
4688     hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4689     ok( hr == S_OK, "ret %08x\n", hr );
4690     length1 = 0;
4691     hr = IXMLDOMNodeList_get_length(pList, &length1);
4692     ok(length1 == 1, "got %d\n", length1);
4693     ok( hr == S_OK, "ret %08x\n", hr );
4694     IXMLDOMNodeList_Release(pList);
4695
4696     hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4697     ok( hr == S_OK, "ret %08x\n", hr );
4698     attr_cnt1 = 0;
4699     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4700     ok( hr == S_OK, "ret %08x\n", hr );
4701     ok(attr_cnt1 == 3, "got %d\n", attr_cnt1);
4702     /* now really get some attributes from cloned element */
4703     attr = NULL;
4704     hr = IXMLDOMNamedNodeMap_getNamedItem(mapAttr, _bstr_("id"), &attr);
4705     ok(hr == S_OK, "ret %08x\n", hr);
4706     IXMLDOMNode_Release(attr);
4707     IXMLDOMNamedNodeMap_Release(mapAttr);
4708
4709     ok(length == length1, "wrong Child count (%d, %d)\n", length, length1);
4710     ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4711     IXMLDOMNode_Release(node_clone);
4712
4713     /* No Children */
4714     hr = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4715     ok( hr == S_OK, "ret %08x\n", hr );
4716     ok( node_clone != NULL, "node %p\n", node );
4717
4718     hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4719     ok(hr == S_FALSE, "ret %08x\n", hr );
4720
4721     hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4722     ok(hr == S_OK, "ret %08x\n", hr );
4723     hr = IXMLDOMNodeList_get_length(pList, &length1);
4724     ok(hr == S_OK, "ret %08x\n", hr );
4725     ok( length1 == 0, "Length should be 0 (%d)\n", length1);
4726     IXMLDOMNodeList_Release(pList);
4727
4728     hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4729     ok(hr == S_OK, "ret %08x\n", hr );
4730     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4731     ok(hr == S_OK, "ret %08x\n", hr );
4732     ok(attr_cnt1 == 3, "Attribute count should be 3 (%d)\n", attr_cnt1);
4733     IXMLDOMNamedNodeMap_Release(mapAttr);
4734
4735     ok(length != length1, "wrong Child count (%d, %d)\n", length, length1);
4736     ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4737     IXMLDOMNode_Release(node_clone);
4738
4739     IXMLDOMNode_Release(node);
4740     IXMLDOMDocument_Release(doc);
4741     free_bstrs();
4742 }
4743
4744 static void test_xmlTypes(void)
4745 {
4746     IXMLDOMDocument *doc;
4747     IXMLDOMElement *pRoot;
4748     HRESULT hr;
4749     IXMLDOMComment *pComment;
4750     IXMLDOMElement *pElement;
4751     IXMLDOMAttribute *pAttribute;
4752     IXMLDOMNamedNodeMap *pAttribs;
4753     IXMLDOMCDATASection *pCDataSec;
4754     IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4755     IXMLDOMDocumentFragment *pDocFrag = NULL;
4756     IXMLDOMEntityReference *pEntityRef = NULL;
4757     BSTR str;
4758     IXMLDOMNode *pNextChild;
4759     VARIANT v;
4760     LONG len = 0;
4761
4762     doc = create_document(&IID_IXMLDOMDocument);
4763     if (!doc) return;
4764
4765     pNextChild = (void*)0xdeadbeef;
4766     hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4767     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4768
4769     pNextChild = (void*)0xdeadbeef;
4770     hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4771     ok(hr == S_FALSE, "ret %08x\n", hr );
4772     ok(pNextChild == NULL, "pDocChild not NULL\n");
4773
4774     /* test previous Sibling */
4775     hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4776     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4777
4778     pNextChild = (void*)0xdeadbeef;
4779     hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4780     ok(hr == S_FALSE, "ret %08x\n", hr );
4781     ok(pNextChild == NULL, "pNextChild not NULL\n");
4782
4783     /* test get_dataType */
4784     V_VT(&v) = VT_EMPTY;
4785     hr = IXMLDOMDocument_get_dataType(doc, &v);
4786     ok(hr == S_FALSE, "ret %08x\n", hr );
4787     ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4788     VariantClear(&v);
4789
4790     /* test implementation */
4791     hr = IXMLDOMDocument_get_implementation(doc, NULL);
4792     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4793
4794     hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4795     ok(hr == S_OK, "ret %08x\n", hr );
4796     if(hr == S_OK)
4797     {
4798         VARIANT_BOOL hasFeature = VARIANT_TRUE;
4799         BSTR sEmpty = SysAllocStringLen(NULL, 0);
4800
4801         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4802         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4803
4804         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4805         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4806
4807         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4808         ok(hr == S_OK, "ret %08x\n", hr );
4809         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4810
4811         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4812         ok(hr == S_OK, "ret %08x\n", hr );
4813         ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4814
4815         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4816         ok(hr == S_OK, "ret %08x\n", hr );
4817         ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4818
4819         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4820         ok(hr == S_OK, "ret %08x\n", hr );
4821         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4822
4823         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4824         ok(hr == S_OK, "ret %08x\n", hr );
4825         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4826
4827         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4828         ok(hr == S_OK, "ret %08x\n", hr );
4829         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4830
4831         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4832         ok(hr == S_OK, "ret %08x\n", hr );
4833         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4834
4835         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4836         ok(hr == S_OK, "ret %08x\n", hr );
4837         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4838
4839         SysFreeString(sEmpty);
4840         IXMLDOMImplementation_Release(pIXMLDOMImplementation);
4841     }
4842
4843     pRoot = (IXMLDOMElement*)0x1;
4844     hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
4845     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4846     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4847
4848     pRoot = (IXMLDOMElement*)0x1;
4849     hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
4850     ok(hr == E_FAIL, "ret %08x\n", hr );
4851     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
4852
4853     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
4854     ok(hr == S_OK, "ret %08x\n", hr );
4855     if(hr == S_OK)
4856     {
4857         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
4858         ok(hr == S_OK, "ret %08x\n", hr );
4859         if(hr == S_OK)
4860         {
4861             /* Comment */
4862             str = SysAllocString(szComment);
4863             hr = IXMLDOMDocument_createComment(doc, str, &pComment);
4864             SysFreeString(str);
4865             ok(hr == S_OK, "ret %08x\n", hr );
4866             if(hr == S_OK)
4867             {
4868                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
4869                 ok(hr == S_OK, "ret %08x\n", hr );
4870
4871                 hr = IXMLDOMComment_get_nodeName(pComment, &str);
4872                 ok(hr == S_OK, "ret %08x\n", hr );
4873                 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
4874                 SysFreeString(str);
4875
4876                 hr = IXMLDOMComment_get_xml(pComment, &str);
4877                 ok(hr == S_OK, "ret %08x\n", hr );
4878                 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
4879                 SysFreeString(str);
4880
4881                 /* put data Tests */
4882                 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
4883                 ok(hr == S_OK, "ret %08x\n", hr );
4884
4885                 /* get data Tests */
4886                 hr = IXMLDOMComment_get_data(pComment, &str);
4887                 ok(hr == S_OK, "ret %08x\n", hr );
4888                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
4889                 SysFreeString(str);
4890
4891                 /* Confirm XML text is good */
4892                 hr = IXMLDOMComment_get_xml(pComment, &str);
4893                 ok(hr == S_OK, "ret %08x\n", hr );
4894                 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
4895                 SysFreeString(str);
4896
4897                 /* Confirm we get the put_data Text back */
4898                 hr = IXMLDOMComment_get_text(pComment, &str);
4899                 ok(hr == S_OK, "ret %08x\n", hr );
4900                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
4901                 SysFreeString(str);
4902
4903                 /* test length property */
4904                 hr = IXMLDOMComment_get_length(pComment, &len);
4905                 ok(hr == S_OK, "ret %08x\n", hr );
4906                 ok(len == 21, "expected 21 got %d\n", len);
4907
4908                 /* test substringData */
4909                 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
4910                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4911
4912                 /* test substringData - Invalid offset */
4913                 str = (BSTR)&szElement;
4914                 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
4915                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4916                 ok( str == NULL, "incorrect string\n");
4917
4918                 /* test substringData - Invalid offset */
4919                 str = (BSTR)&szElement;
4920                 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
4921                 ok(hr == S_FALSE, "ret %08x\n", hr );
4922                 ok( str == NULL, "incorrect string\n");
4923
4924                 /* test substringData - Invalid size */
4925                 str = (BSTR)&szElement;
4926                 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
4927                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4928                 ok( str == NULL, "incorrect string\n");
4929
4930                 /* test substringData - Invalid size */
4931                 str = (BSTR)&szElement;
4932                 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
4933                 ok(hr == S_FALSE, "ret %08x\n", hr );
4934                 ok( str == NULL, "incorrect string\n");
4935
4936                 /* test substringData - Start of string */
4937                 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
4938                 ok(hr == S_OK, "ret %08x\n", hr );
4939                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
4940                 SysFreeString(str);
4941
4942                 /* test substringData - Middle of string */
4943                 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
4944                 ok(hr == S_OK, "ret %08x\n", hr );
4945                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
4946                 SysFreeString(str);
4947
4948                 /* test substringData - End of string */
4949                 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
4950                 ok(hr == S_OK, "ret %08x\n", hr );
4951                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
4952                 SysFreeString(str);
4953
4954                 /* test appendData */
4955                 hr = IXMLDOMComment_appendData(pComment, NULL);
4956                 ok(hr == S_OK, "ret %08x\n", hr );
4957
4958                 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
4959                 ok(hr == S_OK, "ret %08x\n", hr );
4960
4961                 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
4962                 ok(hr == S_OK, "ret %08x\n", hr );
4963
4964                 hr = IXMLDOMComment_get_text(pComment, &str);
4965                 ok(hr == S_OK, "ret %08x\n", hr );
4966                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
4967                 SysFreeString(str);
4968
4969                 /* test insertData */
4970                 str = SysAllocStringLen(NULL, 0);
4971                 hr = IXMLDOMComment_insertData(pComment, -1, str);
4972                 ok(hr == S_OK, "ret %08x\n", hr );
4973
4974                 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
4975                 ok(hr == S_OK, "ret %08x\n", hr );
4976
4977                 hr = IXMLDOMComment_insertData(pComment, 1000, str);
4978                 ok(hr == S_OK, "ret %08x\n", hr );
4979
4980                 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
4981                 ok(hr == S_OK, "ret %08x\n", hr );
4982
4983                 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
4984                 ok(hr == S_OK, "ret %08x\n", hr );
4985
4986                 hr = IXMLDOMComment_insertData(pComment, 0, str);
4987                 ok(hr == S_OK, "ret %08x\n", hr );
4988                 SysFreeString(str);
4989
4990                 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
4991                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4992
4993                 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
4994                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4995
4996                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
4997                 ok(hr == S_OK, "ret %08x\n", hr );
4998
4999                 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
5000                 ok(hr == S_OK, "ret %08x\n", hr );
5001
5002                 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
5003                 ok(hr == S_OK, "ret %08x\n", hr );
5004
5005                 hr = IXMLDOMComment_get_text(pComment, &str);
5006                 ok(hr == S_OK, "ret %08x\n", hr );
5007                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5008                 SysFreeString(str);
5009
5010                 /* delete data */
5011                 /* invalid arguments */
5012                 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
5013                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5014
5015                 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
5016                 ok(hr == S_OK, "ret %08x\n", hr );
5017
5018                 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
5019                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5020
5021                 hr = IXMLDOMComment_get_length(pComment, &len);
5022                 ok(hr == S_OK, "ret %08x\n", hr );
5023                 ok(len == 43, "expected 43 got %d\n", len);
5024
5025                 hr = IXMLDOMComment_deleteData(pComment, len, 1);
5026                 ok(hr == S_OK, "ret %08x\n", hr );
5027
5028                 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
5029                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5030
5031                 /* delete from start */
5032                 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
5033                 ok(hr == S_OK, "ret %08x\n", hr );
5034
5035                 hr = IXMLDOMComment_get_length(pComment, &len);
5036                 ok(hr == S_OK, "ret %08x\n", hr );
5037                 ok(len == 38, "expected 38 got %d\n", len);
5038
5039                 hr = IXMLDOMComment_get_text(pComment, &str);
5040                 ok(hr == S_OK, "ret %08x\n", hr );
5041                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5042                 SysFreeString(str);
5043
5044                 /* delete from end */
5045                 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
5046                 ok(hr == S_OK, "ret %08x\n", hr );
5047
5048                 hr = IXMLDOMComment_get_length(pComment, &len);
5049                 ok(hr == S_OK, "ret %08x\n", hr );
5050                 ok(len == 35, "expected 35 got %d\n", len);
5051
5052                 hr = IXMLDOMComment_get_text(pComment, &str);
5053                 ok(hr == S_OK, "ret %08x\n", hr );
5054                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5055                 SysFreeString(str);
5056
5057                 /* delete from inside */
5058                 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
5059                 ok(hr == S_OK, "ret %08x\n", hr );
5060
5061                 hr = IXMLDOMComment_get_length(pComment, &len);
5062                 ok(hr == S_OK, "ret %08x\n", hr );
5063                 ok(len == 2, "expected 2 got %d\n", len);
5064
5065                 hr = IXMLDOMComment_get_text(pComment, &str);
5066                 ok(hr == S_OK, "ret %08x\n", hr );
5067                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5068                 SysFreeString(str);
5069
5070                 /* delete whole data ... */
5071                 hr = IXMLDOMComment_get_length(pComment, &len);
5072                 ok(hr == S_OK, "ret %08x\n", hr );
5073
5074                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5075                 ok(hr == S_OK, "ret %08x\n", hr );
5076                 /* ... and try again with empty string */
5077                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5078                 ok(hr == S_OK, "ret %08x\n", hr );
5079
5080                 /* ::replaceData() */
5081                 V_VT(&v) = VT_BSTR;
5082                 V_BSTR(&v) = SysAllocString(szstr1);
5083                 hr = IXMLDOMComment_put_nodeValue(pComment, v);
5084                 ok(hr == S_OK, "ret %08x\n", hr );
5085                 VariantClear(&v);
5086
5087                 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
5088                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5089                 hr = IXMLDOMComment_get_text(pComment, &str);
5090                 ok(hr == S_OK, "ret %08x\n", hr );
5091                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5092                 SysFreeString(str);
5093
5094                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
5095                 ok(hr == S_OK, "ret %08x\n", hr );
5096                 hr = IXMLDOMComment_get_text(pComment, &str);
5097                 ok(hr == S_OK, "ret %08x\n", hr );
5098                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5099                 SysFreeString(str);
5100
5101                 /* NULL pointer means delete */
5102                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
5103                 ok(hr == S_OK, "ret %08x\n", hr );
5104                 hr = IXMLDOMComment_get_text(pComment, &str);
5105                 ok(hr == S_OK, "ret %08x\n", hr );
5106                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5107                 SysFreeString(str);
5108
5109                 /* empty string means delete */
5110                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
5111                 ok(hr == S_OK, "ret %08x\n", hr );
5112                 hr = IXMLDOMComment_get_text(pComment, &str);
5113                 ok(hr == S_OK, "ret %08x\n", hr );
5114                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5115                 SysFreeString(str);
5116
5117                 /* zero count means insert */
5118                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
5119                 ok(hr == S_OK, "ret %08x\n", hr );
5120                 hr = IXMLDOMComment_get_text(pComment, &str);
5121                 ok(hr == S_OK, "ret %08x\n", hr );
5122                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5123                 SysFreeString(str);
5124
5125                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
5126                 ok(hr == S_OK, "ret %08x\n", hr );
5127
5128                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
5129                 ok(hr == S_OK, "ret %08x\n", hr );
5130                 hr = IXMLDOMComment_get_text(pComment, &str);
5131                 ok(hr == S_OK, "ret %08x\n", hr );
5132                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5133                 SysFreeString(str);
5134
5135                 /* nonempty string, count greater than its length */
5136                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
5137                 ok(hr == S_OK, "ret %08x\n", hr );
5138                 hr = IXMLDOMComment_get_text(pComment, &str);
5139                 ok(hr == S_OK, "ret %08x\n", hr );
5140                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5141                 SysFreeString(str);
5142
5143                 /* nonempty string, count less than its length */
5144                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
5145                 ok(hr == S_OK, "ret %08x\n", hr );
5146                 hr = IXMLDOMComment_get_text(pComment, &str);
5147                 ok(hr == S_OK, "ret %08x\n", hr );
5148                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5149                 SysFreeString(str);
5150
5151                 IXMLDOMComment_Release(pComment);
5152             }
5153
5154             /* Element */
5155             str = SysAllocString(szElement);
5156             hr = IXMLDOMDocument_createElement(doc, str, &pElement);
5157             SysFreeString(str);
5158             ok(hr == S_OK, "ret %08x\n", hr );
5159             if(hr == S_OK)
5160             {
5161                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5162                 ok(hr == S_OK, "ret %08x\n", hr );
5163
5164                 hr = IXMLDOMElement_get_nodeName(pElement, &str);
5165                 ok(hr == S_OK, "ret %08x\n", hr );
5166                 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
5167                 SysFreeString(str);
5168
5169                 hr = IXMLDOMElement_get_xml(pElement, &str);
5170                 ok(hr == S_OK, "ret %08x\n", hr );
5171                 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
5172                 SysFreeString(str);
5173
5174                 /* Attribute */
5175                 pAttribute = (IXMLDOMAttribute*)0x1;
5176                 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
5177                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5178                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5179
5180                 pAttribute = (IXMLDOMAttribute*)0x1;
5181                 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
5182                 ok(hr == E_FAIL, "ret %08x\n", hr );
5183                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5184
5185                 str = SysAllocString(szAttribute);
5186                 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
5187                 SysFreeString(str);
5188                 ok(hr == S_OK, "ret %08x\n", hr );
5189                 if(hr == S_OK)
5190                 {
5191                     IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
5192
5193                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
5194                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5195
5196                     pNextChild = (IXMLDOMNode *)0x1;
5197                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
5198                     ok(hr == S_FALSE, "ret %08x\n", hr );
5199                     ok(pNextChild == NULL, "pNextChild not NULL\n");
5200
5201                     /* test Previous Sibling*/
5202                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
5203                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5204
5205                     pNextChild = (IXMLDOMNode *)0x1;
5206                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
5207                     ok(hr == S_FALSE, "ret %08x\n", hr );
5208                     ok(pNextChild == NULL, "pNextChild not NULL\n");
5209
5210                     hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
5211                     ok(hr == E_FAIL, "ret %08x\n", hr );
5212                     ok(pNewChild == NULL, "pNewChild not NULL\n");
5213
5214                     hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
5215                     ok(hr == S_OK, "ret %08x\n", hr );
5216                     if ( hr == S_OK )
5217                     {
5218                         hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
5219                         ok(hr == S_OK, "ret %08x\n", hr );
5220
5221                         IXMLDOMNamedNodeMap_Release(pAttribs);
5222                     }
5223
5224                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5225                     ok(hr == S_OK, "ret %08x\n", hr );
5226                     ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
5227                     SysFreeString(str);
5228
5229                     /* test nodeName */
5230                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5231                     ok(hr == S_OK, "ret %08x\n", hr );
5232                     ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
5233                     SysFreeString(str);
5234
5235                     /* test name property */
5236                     hr = IXMLDOMAttribute_get_name(pAttribute, &str);
5237                     ok(hr == S_OK, "ret %08x\n", hr );
5238                     ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
5239                     SysFreeString(str);
5240
5241                     hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
5242                     ok(hr == S_OK, "ret %08x\n", hr );
5243                     ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
5244                     SysFreeString(str);
5245
5246                     IXMLDOMAttribute_Release(pAttribute);
5247
5248                     /* Check Element again with the Add Attribute*/
5249                     hr = IXMLDOMElement_get_xml(pElement, &str);
5250                     ok(hr == S_OK, "ret %08x\n", hr );
5251                     ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
5252                     SysFreeString(str);
5253                 }
5254
5255                 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
5256                 ok(hr == S_OK, "ret %08x\n", hr );
5257
5258                 hr = IXMLDOMElement_get_xml(pElement, &str);
5259                 ok(hr == S_OK, "ret %08x\n", hr );
5260                 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
5261                 SysFreeString(str);
5262
5263                 /* Test for reversible escaping */
5264                 str = SysAllocString( szStrangeChars );
5265                 hr = IXMLDOMElement_put_text(pElement, str);
5266                 ok(hr == S_OK, "ret %08x\n", hr );
5267                 SysFreeString( str );
5268
5269                 hr = IXMLDOMElement_get_xml(pElement, &str);
5270                 ok(hr == S_OK, "ret %08x\n", hr );
5271                 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
5272                 SysFreeString(str);
5273
5274                 hr = IXMLDOMElement_get_text(pElement, &str);
5275                 ok(hr == S_OK, "ret %08x\n", hr );
5276                 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
5277                 SysFreeString(str);
5278
5279                 IXMLDOMElement_Release(pElement);
5280             }
5281
5282             /* CData Section */
5283             str = SysAllocString(szCData);
5284             hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
5285             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5286
5287             hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
5288             SysFreeString(str);
5289             ok(hr == S_OK, "ret %08x\n", hr );
5290             if(hr == S_OK)
5291             {
5292                 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
5293                 VARIANT var;
5294
5295                 VariantInit(&var);
5296
5297                 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
5298                 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
5299
5300                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
5301                 ok(hr == S_OK, "ret %08x\n", hr );
5302
5303                 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
5304                 ok(hr == S_OK, "ret %08x\n", hr );
5305                 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
5306                 SysFreeString(str);
5307
5308                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5309                 ok(hr == S_OK, "ret %08x\n", hr );
5310                 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
5311                 SysFreeString(str);
5312
5313                 /* test lastChild */
5314                 pNextChild = (IXMLDOMNode*)0x1;
5315                 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
5316                 ok(hr == S_FALSE, "ret %08x\n", hr );
5317                 ok(pNextChild == NULL, "pNextChild not NULL\n");
5318
5319                 /* put data Tests */
5320                 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
5321                 ok(hr == S_OK, "ret %08x\n", hr );
5322
5323                 /* Confirm XML text is good */
5324                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5325                 ok(hr == S_OK, "ret %08x\n", hr );
5326                 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
5327                 SysFreeString(str);
5328
5329                 /* Confirm we get the put_data Text back */
5330                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5331                 ok(hr == S_OK, "ret %08x\n", hr );
5332                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5333                 SysFreeString(str);
5334
5335                 /* test length property */
5336                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5337                 ok(hr == S_OK, "ret %08x\n", hr );
5338                 ok(len == 21, "expected 21 got %d\n", len);
5339
5340                 /* test get data */
5341                 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
5342                 ok(hr == S_OK, "ret %08x\n", hr );
5343                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5344                 SysFreeString(str);
5345
5346                 /* test substringData */
5347                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
5348                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5349
5350                 /* test substringData - Invalid offset */
5351                 str = (BSTR)&szElement;
5352                 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
5353                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5354                 ok( str == NULL, "incorrect string\n");
5355
5356                 /* test substringData - Invalid offset */
5357                 str = (BSTR)&szElement;
5358                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
5359                 ok(hr == S_FALSE, "ret %08x\n", hr );
5360                 ok( str == NULL, "incorrect string\n");
5361
5362                 /* test substringData - Invalid size */
5363                 str = (BSTR)&szElement;
5364                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
5365                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5366                 ok( str == NULL, "incorrect string\n");
5367
5368                 /* test substringData - Invalid size */
5369                 str = (BSTR)&szElement;
5370                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
5371                 ok(hr == S_FALSE, "ret %08x\n", hr );
5372                 ok( str == NULL, "incorrect string\n");
5373
5374                 /* test substringData - Start of string */
5375                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
5376                 ok(hr == S_OK, "ret %08x\n", hr );
5377                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5378                 SysFreeString(str);
5379
5380                 /* test substringData - Middle of string */
5381                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
5382                 ok(hr == S_OK, "ret %08x\n", hr );
5383                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5384                 SysFreeString(str);
5385
5386                 /* test substringData - End of string */
5387                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
5388                 ok(hr == S_OK, "ret %08x\n", hr );
5389                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5390                 SysFreeString(str);
5391
5392                 /* test appendData */
5393                 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
5394                 ok(hr == S_OK, "ret %08x\n", hr );
5395
5396                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
5397                 ok(hr == S_OK, "ret %08x\n", hr );
5398
5399                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
5400                 ok(hr == S_OK, "ret %08x\n", hr );
5401
5402                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5403                 ok(hr == S_OK, "ret %08x\n", hr );
5404                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5405                 SysFreeString(str);
5406
5407                 /* test insertData */
5408                 str = SysAllocStringLen(NULL, 0);
5409                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
5410                 ok(hr == S_OK, "ret %08x\n", hr );
5411
5412                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
5413                 ok(hr == S_OK, "ret %08x\n", hr );
5414
5415                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
5416                 ok(hr == S_OK, "ret %08x\n", hr );
5417
5418                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
5419                 ok(hr == S_OK, "ret %08x\n", hr );
5420
5421                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
5422                 ok(hr == S_OK, "ret %08x\n", hr );
5423
5424                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
5425                 ok(hr == S_OK, "ret %08x\n", hr );
5426                 SysFreeString(str);
5427
5428                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
5429                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5430
5431                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
5432                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5433
5434                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
5435                 ok(hr == S_OK, "ret %08x\n", hr );
5436
5437                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
5438                 ok(hr == S_OK, "ret %08x\n", hr );
5439
5440                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
5441                 ok(hr == S_OK, "ret %08x\n", hr );
5442
5443                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5444                 ok(hr == S_OK, "ret %08x\n", hr );
5445                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5446                 SysFreeString(str);
5447
5448                 /* delete data */
5449                 /* invalid arguments */
5450                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
5451                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5452
5453                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
5454                 ok(hr == S_OK, "ret %08x\n", hr );
5455
5456                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
5457                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5458
5459                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5460                 ok(hr == S_OK, "ret %08x\n", hr );
5461                 ok(len == 43, "expected 43 got %d\n", len);
5462
5463                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
5464                 ok(hr == S_OK, "ret %08x\n", hr );
5465
5466                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
5467                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5468
5469                 /* delete from start */
5470                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
5471                 ok(hr == S_OK, "ret %08x\n", hr );
5472
5473                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5474                 ok(hr == S_OK, "ret %08x\n", hr );
5475                 ok(len == 38, "expected 38 got %d\n", len);
5476
5477                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5478                 ok(hr == S_OK, "ret %08x\n", hr );
5479                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5480                 SysFreeString(str);
5481
5482                 /* delete from end */
5483                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
5484                 ok(hr == S_OK, "ret %08x\n", hr );
5485
5486                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5487                 ok(hr == S_OK, "ret %08x\n", hr );
5488                 ok(len == 35, "expected 35 got %d\n", len);
5489
5490                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5491                 ok(hr == S_OK, "ret %08x\n", hr );
5492                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5493                 SysFreeString(str);
5494
5495                 /* delete from inside */
5496                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
5497                 ok(hr == S_OK, "ret %08x\n", hr );
5498
5499                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5500                 ok(hr == S_OK, "ret %08x\n", hr );
5501                 ok(len == 2, "expected 2 got %d\n", len);
5502
5503                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5504                 ok(hr == S_OK, "ret %08x\n", hr );
5505                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5506                 SysFreeString(str);
5507
5508                 /* delete whole data ... */
5509                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5510                 ok(hr == S_OK, "ret %08x\n", hr );
5511
5512                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5513                 ok(hr == S_OK, "ret %08x\n", hr );
5514
5515                 /* ... and try again with empty string */
5516                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5517                 ok(hr == S_OK, "ret %08x\n", hr );
5518
5519                 /* ::replaceData() */
5520                 V_VT(&v) = VT_BSTR;
5521                 V_BSTR(&v) = SysAllocString(szstr1);
5522                 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
5523                 ok(hr == S_OK, "ret %08x\n", hr );
5524                 VariantClear(&v);
5525
5526                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
5527                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5528                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5529                 ok(hr == S_OK, "ret %08x\n", hr );
5530                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5531                 SysFreeString(str);
5532
5533                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
5534                 ok(hr == S_OK, "ret %08x\n", hr );
5535                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5536                 ok(hr == S_OK, "ret %08x\n", hr );
5537                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5538                 SysFreeString(str);
5539
5540                 /* NULL pointer means delete */
5541                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
5542                 ok(hr == S_OK, "ret %08x\n", hr );
5543                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5544                 ok(hr == S_OK, "ret %08x\n", hr );
5545                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5546                 SysFreeString(str);
5547
5548                 /* empty string means delete */
5549                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5550                 ok(hr == S_OK, "ret %08x\n", hr );
5551                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5552                 ok(hr == S_OK, "ret %08x\n", hr );
5553                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5554                 SysFreeString(str);
5555
5556                 /* zero count means insert */
5557                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5558                 ok(hr == S_OK, "ret %08x\n", hr );
5559                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5560                 ok(hr == S_OK, "ret %08x\n", hr );
5561                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5562                 SysFreeString(str);
5563
5564                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5565                 ok(hr == S_OK, "ret %08x\n", hr );
5566
5567                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5568                 ok(hr == S_OK, "ret %08x\n", hr );
5569                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5570                 ok(hr == S_OK, "ret %08x\n", hr );
5571                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5572                 SysFreeString(str);
5573
5574                 /* nonempty string, count greater than its length */
5575                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5576                 ok(hr == S_OK, "ret %08x\n", hr );
5577                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5578                 ok(hr == S_OK, "ret %08x\n", hr );
5579                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5580                 SysFreeString(str);
5581
5582                 /* nonempty string, count less than its length */
5583                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5584                 ok(hr == S_OK, "ret %08x\n", hr );
5585                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5586                 ok(hr == S_OK, "ret %08x\n", hr );
5587                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5588                 SysFreeString(str);
5589
5590                 IXMLDOMCDATASection_Release(pCDataSec);
5591             }
5592
5593             /* Document Fragments */
5594             hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5595             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5596
5597             hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5598             ok(hr == S_OK, "ret %08x\n", hr );
5599             if(hr == S_OK)
5600             {
5601                 IXMLDOMNode *node;
5602
5603                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5604                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5605
5606                 node = (IXMLDOMNode *)0x1;
5607                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5608                 ok(hr == S_FALSE, "ret %08x\n", hr );
5609                 ok(node == NULL, "expected NULL, got %p\n", node);
5610
5611                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5612                 ok(hr == S_OK, "ret %08x\n", hr );
5613
5614                 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5615                 ok(hr == S_OK, "ret %08x\n", hr );
5616                 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5617                 SysFreeString(str);
5618
5619                 /* test next Sibling*/
5620                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5621                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5622
5623                 node = (IXMLDOMNode *)0x1;
5624                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5625                 ok(hr == S_FALSE, "ret %08x\n", hr );
5626                 ok(node == NULL, "next sibling not NULL\n");
5627
5628                 /* test Previous Sibling*/
5629                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5630                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5631
5632                 node = (IXMLDOMNode *)0x1;
5633                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5634                 ok(hr == S_FALSE, "ret %08x\n", hr );
5635                 ok(node == NULL, "previous sibling not NULL\n");
5636
5637                 IXMLDOMDocumentFragment_Release(pDocFrag);
5638             }
5639
5640             /* Entity References */
5641             hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5642             ok(hr == E_FAIL, "ret %08x\n", hr );
5643             hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5644             ok(hr == E_FAIL, "ret %08x\n", hr );
5645
5646             str = SysAllocString(szEntityRef);
5647             hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5648             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5649
5650             hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5651             SysFreeString(str);
5652             ok(hr == S_OK, "ret %08x\n", hr );
5653             if(hr == S_OK)
5654             {
5655                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5656                 ok(hr == S_OK, "ret %08x\n", hr );
5657
5658                 /* test get_xml*/
5659                 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5660                 ok(hr == S_OK, "ret %08x\n", hr );
5661                 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5662                 SysFreeString(str);
5663
5664                 IXMLDOMEntityReference_Release(pEntityRef);
5665             }
5666
5667             IXMLDOMElement_Release( pRoot );
5668         }
5669     }
5670
5671     IXMLDOMDocument_Release(doc);
5672
5673     free_bstrs();
5674 }
5675
5676 typedef struct {
5677     const char *name;
5678     const char *type;
5679     HRESULT hr;
5680 } put_datatype_t;
5681
5682 /* Type test for elements only. Name passed into put_dataType is case-insensitive.
5683    So many of the names have been changed to reflect this. */
5684 static put_datatype_t put_datatype_data[] = {
5685     { "test_inval",      "abcdefg",     E_FAIL },
5686     { "test_bool",       "Boolean",     S_OK },
5687     { "test_string",     "String",      S_OK },
5688     { "test_number",     "number",      S_OK },
5689     { "test_int",        "InT",         S_OK },
5690     { "test_fixed",      "fixed.14.4",  S_OK },
5691     { "test_datetime",   "DateTime",    S_OK },
5692     { "test_datetimetz", "DateTime.tz", S_OK },
5693     { "test_date",       "Date",        S_OK },
5694     { "test_time",       "Time",        S_OK },
5695     { "test_timetz",     "Time.tz",     S_OK },
5696     { "test_I1",         "I1",          S_OK },
5697     { "test_I2",         "I2",          S_OK },
5698     { "test_I4",         "I4",          S_OK },
5699     { "test_UI1",        "UI1",         S_OK },
5700     { "test_UI2",        "UI2",         S_OK },
5701     { "test_UI4",        "UI4",         S_OK },
5702     { "test_r4",         "r4",          S_OK },
5703     { "test_r8",         "r8",          S_OK },
5704     { "test_float",      "float",       S_OK },
5705     { "test_uuid",       "UuId",        S_OK },
5706     { "test_binhex",     "bin.hex",     S_OK },
5707     { "test_binbase64",  "bin.base64",  S_OK },
5708     { NULL }
5709 };
5710
5711 typedef struct {
5712     DOMNodeType type;
5713     HRESULT hr;
5714 } put_datatype_notype_t;
5715
5716 static put_datatype_notype_t put_dt_notype[] = {
5717     { NODE_PROCESSING_INSTRUCTION, E_FAIL },
5718     { NODE_DOCUMENT_FRAGMENT,      E_FAIL },
5719     { NODE_ENTITY_REFERENCE,       E_FAIL },
5720     { NODE_CDATA_SECTION,          E_FAIL },
5721     { NODE_COMMENT,                E_FAIL },
5722     { NODE_INVALID }
5723 };
5724
5725 static void test_put_dataType( void )
5726 {
5727     const put_datatype_notype_t *ptr2 = put_dt_notype;
5728     const put_datatype_t *ptr = put_datatype_data;
5729     IXMLDOMElement *root, *element;
5730     BSTR nameW, type1W, type2W;
5731     IXMLDOMDocument *doc;
5732     HRESULT hr;
5733
5734     doc = create_document(&IID_IXMLDOMDocument);
5735     if (!doc) return;
5736
5737     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5738     EXPECT_HR(hr, E_INVALIDARG);
5739
5740     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5741     EXPECT_HR(hr, S_OK);
5742
5743     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5744     EXPECT_HR(hr, S_OK);
5745
5746     hr = IXMLDOMElement_put_dataType(root, NULL);
5747     EXPECT_HR(hr, E_INVALIDARG);
5748
5749     while (ptr->name)
5750     {
5751         hr = IXMLDOMDocument_createElement(doc, _bstr_(ptr->name), &element);
5752         EXPECT_HR(hr, S_OK);
5753         if(hr == S_OK)
5754         {
5755             hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5756             EXPECT_HR(hr, S_OK);
5757
5758             hr = IXMLDOMElement_put_dataType(element, _bstr_(ptr->type));
5759             ok(hr == ptr->hr, "failed for %s:%s, 0x%08x\n", ptr->name, ptr->type, ptr->hr);
5760
5761             IXMLDOMElement_Release(element);
5762         }
5763         ptr++;
5764     }
5765
5766     /* check changing types */
5767     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &element);
5768     EXPECT_HR(hr, S_OK);
5769
5770     hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5771     EXPECT_HR(hr, S_OK);
5772
5773     hr = IXMLDOMElement_put_dataType(element, _bstr_("DateTime.tz"));
5774     EXPECT_HR(hr, S_OK);
5775
5776     hr = IXMLDOMElement_put_dataType(element, _bstr_("string"));
5777     EXPECT_HR(hr, S_OK);
5778
5779     IXMLDOMElement_Release(element);
5780
5781     /* try to set type for node without a type */
5782     nameW  = _bstr_("testname");
5783     type1W = _bstr_("string");
5784     type2W = _bstr_("number");
5785     while (ptr2->type != NODE_INVALID)
5786     {
5787         IXMLDOMNode *node;
5788         VARIANT type;
5789
5790         V_VT(&type) = VT_I2;
5791         V_I2(&type) = ptr2->type;
5792
5793         hr = IXMLDOMDocument_createNode(doc, type, nameW, NULL, &node);
5794         EXPECT_HR(hr, S_OK);
5795         if(hr == S_OK)
5796         {
5797             hr = IXMLDOMElement_appendChild(root, node, NULL);
5798             EXPECT_HR(hr, S_OK);
5799
5800             hr = IXMLDOMNode_put_dataType(node, NULL);
5801             EXPECT_HR(hr, E_INVALIDARG);
5802
5803             hr = IXMLDOMNode_put_dataType(node, type1W);
5804             ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5805             hr = IXMLDOMNode_put_dataType(node, type2W);
5806             ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5807
5808             IXMLDOMNode_Release(node);
5809         }
5810         ptr2++;
5811     }
5812
5813     IXMLDOMElement_Release(root);
5814     IXMLDOMDocument_Release(doc);
5815     free_bstrs();
5816 }
5817
5818 static void test_save(void)
5819 {
5820     IXMLDOMDocument *doc, *doc2;
5821     IXMLDOMElement *root;
5822     BSTR sOrig, sNew, filename;
5823     char buffer[100];
5824     IStream *stream;
5825     HGLOBAL global;
5826     VARIANT_BOOL b;
5827     DWORD read = 0;
5828     VARIANT dest;
5829     HANDLE hfile;
5830     HRESULT hr;
5831     char *ptr;
5832
5833     doc = create_document(&IID_IXMLDOMDocument);
5834     if (!doc) return;
5835
5836     doc2 = create_document(&IID_IXMLDOMDocument);
5837     if (!doc2)
5838     {
5839         IXMLDOMDocument_Release(doc);
5840         return;
5841     }
5842
5843     /* save to IXMLDOMDocument */
5844     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5845     EXPECT_HR(hr, S_OK);
5846
5847     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5848     EXPECT_HR(hr, S_OK);
5849
5850     V_VT(&dest) = VT_UNKNOWN;
5851     V_UNKNOWN(&dest) = (IUnknown*)doc2;
5852
5853     hr = IXMLDOMDocument_save(doc, dest);
5854     EXPECT_HR(hr, S_OK);
5855
5856     hr = IXMLDOMDocument_get_xml(doc, &sOrig);
5857     EXPECT_HR(hr, S_OK);
5858
5859     hr = IXMLDOMDocument_get_xml(doc2, &sNew);
5860     EXPECT_HR(hr, S_OK);
5861
5862     ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as original\n");
5863
5864     SysFreeString(sOrig);
5865     SysFreeString(sNew);
5866
5867     IXMLDOMElement_Release(root);
5868     IXMLDOMDocument_Release(doc2);
5869
5870     /* save to path */
5871     V_VT(&dest) = VT_BSTR;
5872     V_BSTR(&dest) = _bstr_("test.xml");
5873
5874     hr = IXMLDOMDocument_save(doc, dest);
5875     EXPECT_HR(hr, S_OK);
5876
5877     hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
5878     ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
5879     if(hfile == INVALID_HANDLE_VALUE) return;
5880
5881     ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
5882     ok(read != 0, "could not read file\n");
5883     ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
5884
5885     CloseHandle(hfile);
5886     DeleteFile("test.xml");
5887
5888     /* save to path VT_BSTR | VT_BYREF */
5889     filename = _bstr_("test.xml");
5890     V_VT(&dest) = VT_BSTR | VT_BYREF;
5891     V_BSTRREF(&dest) = &filename;
5892
5893     hr = IXMLDOMDocument_save(doc, dest);
5894     EXPECT_HR(hr, S_OK);
5895
5896     hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
5897     ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
5898     if(hfile == INVALID_HANDLE_VALUE) return;
5899
5900     if (hfile != INVALID_HANDLE_VALUE)
5901     {
5902        ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
5903        ok(read != 0, "could not read file\n");
5904        ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
5905
5906        CloseHandle(hfile);
5907        DeleteFile("test.xml");
5908     }
5909
5910     /* save to stream */
5911     V_VT(&dest) = VT_UNKNOWN;
5912     V_UNKNOWN(&dest) = (IUnknown*)&savestream;
5913
5914     hr = IXMLDOMDocument_save(doc, dest);
5915     EXPECT_HR(hr, S_OK);
5916
5917     /* loaded data contains xml declaration */
5918     hr = IXMLDOMDocument_loadXML(doc, _bstr_(win1252xml), &b);
5919     EXPECT_HR(hr, S_OK);
5920
5921     CreateStreamOnHGlobal(NULL, TRUE, &stream);
5922     V_VT(&dest) = VT_UNKNOWN;
5923     V_UNKNOWN(&dest) = (IUnknown*)stream;
5924     hr = IXMLDOMDocument_save(doc, dest);
5925     EXPECT_HR(hr, S_OK);
5926
5927     hr = GetHGlobalFromStream(stream, &global);
5928     EXPECT_HR(hr, S_OK);
5929     ptr = GlobalLock(global);
5930     ok(!memcmp(ptr, win1252decl, strlen(win1252decl)), "got wrong xml declaration\n");
5931     GlobalUnlock(global);
5932     IStream_Release(stream);
5933
5934     /* loaded data without xml declaration */
5935     hr = IXMLDOMDocument_loadXML(doc, _bstr_("<a/>"), &b);
5936     EXPECT_HR(hr, S_OK);
5937
5938     CreateStreamOnHGlobal(NULL, TRUE, &stream);
5939     V_VT(&dest) = VT_UNKNOWN;
5940     V_UNKNOWN(&dest) = (IUnknown*)stream;
5941     hr = IXMLDOMDocument_save(doc, dest);
5942     EXPECT_HR(hr, S_OK);
5943
5944     hr = GetHGlobalFromStream(stream, &global);
5945     EXPECT_HR(hr, S_OK);
5946     ptr = GlobalLock(global);
5947     ok(ptr[0] == '<' && ptr[1] != '?', "got wrong start tag %c%c\n", ptr[0], ptr[1]);
5948     GlobalUnlock(global);
5949     IStream_Release(stream);
5950
5951     IXMLDOMDocument_Release(doc);
5952     free_bstrs();
5953 }
5954
5955 static void test_testTransforms(void)
5956 {
5957     IXMLDOMDocument *doc, *docSS;
5958     IXMLDOMNode *pNode;
5959     VARIANT_BOOL bSucc;
5960
5961     HRESULT hr;
5962
5963     doc = create_document(&IID_IXMLDOMDocument);
5964     if (!doc) return;
5965
5966     docSS = create_document(&IID_IXMLDOMDocument);
5967     if (!docSS)
5968     {
5969         IXMLDOMDocument_Release(doc);
5970         return;
5971     }
5972
5973     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
5974     ok(hr == S_OK, "ret %08x\n", hr );
5975
5976     hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
5977     ok(hr == S_OK, "ret %08x\n", hr );
5978
5979     hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
5980     ok(hr == S_OK, "ret %08x\n", hr );
5981     if(hr == S_OK)
5982     {
5983         BSTR bOut;
5984
5985         hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
5986         ok(hr == S_OK, "ret %08x\n", hr );
5987         if(hr == S_OK)
5988         {
5989             ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "Stylesheet output not correct\n");
5990             SysFreeString(bOut);
5991         }
5992
5993         IXMLDOMNode_Release(pNode);
5994     }
5995
5996     IXMLDOMDocument_Release(docSS);
5997     IXMLDOMDocument_Release(doc);
5998
5999     free_bstrs();
6000 }
6001
6002 struct namespaces_change_t {
6003     const CLSID *clsid;
6004     const char *name;
6005 };
6006
6007 static const struct namespaces_change_t namespaces_change_test_data[] = {
6008     { &CLSID_DOMDocument,   "CLSID_DOMDocument"   },
6009     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2"  },
6010     { &CLSID_DOMDocument26, "CLSID_DOMDocument26" },
6011     { &CLSID_DOMDocument30, "CLSID_DOMDocument30" },
6012     { &CLSID_DOMDocument40, "CLSID_DOMDocument40" },
6013     { &CLSID_DOMDocument60, "CLSID_DOMDocument60" },
6014     { 0 }
6015 };
6016
6017 static void test_namespaces_change(void)
6018 {
6019     const struct namespaces_change_t *class_ptr = namespaces_change_test_data;
6020
6021     while (class_ptr->clsid)
6022     {
6023         IXMLDOMDocument *doc = NULL;
6024         IXMLDOMElement *elem = NULL;
6025         IXMLDOMNode *node = NULL;
6026
6027         VARIANT var;
6028         HRESULT hr;
6029         BSTR str;
6030
6031         hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
6032                               &IID_IXMLDOMDocument, (void**)&doc);
6033         if (hr != S_OK)
6034         {
6035             win_skip("failed to create class instance for %s\n", class_ptr->name);
6036             class_ptr++;
6037             continue;
6038         }
6039
6040         V_VT(&var) = VT_I2;
6041         V_I2(&var) = NODE_ELEMENT;
6042
6043         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("ns:elem"), _bstr_("ns/uri"), &node);
6044         EXPECT_HR(hr, S_OK);
6045
6046         hr = IXMLDOMDocument_appendChild(doc, node, NULL);
6047         EXPECT_HR(hr, S_OK);
6048
6049         hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6050         EXPECT_HR(hr, S_OK);
6051
6052         /* try same prefix, different uri */
6053         V_VT(&var) = VT_BSTR;
6054         V_BSTR(&var) = _bstr_("ns/uri2");
6055
6056         hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6057         EXPECT_HR(hr, E_INVALIDARG);
6058
6059         /* try same prefix and uri */
6060         V_VT(&var) = VT_BSTR;
6061         V_BSTR(&var) = _bstr_("ns/uri");
6062
6063         hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6064         EXPECT_HR(hr, S_OK);
6065
6066         hr = IXMLDOMElement_get_xml(elem, &str);
6067         EXPECT_HR(hr, S_OK);
6068         ok(!lstrcmpW(str, _bstr_("<ns:elem xmlns:ns=\"ns/uri\"/>")), "got element %s for %s\n",
6069            wine_dbgstr_w(str), class_ptr->name);
6070         SysFreeString(str);
6071
6072         IXMLDOMElement_Release(elem);
6073         IXMLDOMDocument_Release(doc);
6074
6075         free_bstrs();
6076
6077         class_ptr++;
6078     }
6079 }
6080
6081 static void test_namespaces_basic(void)
6082 {
6083     static const CHAR namespaces_xmlA[] =
6084         "<?xml version=\"1.0\"?>\n"
6085         "<XMI xmi.version=\"1.1\" xmlns:Model=\"http://omg.org/mof.Model/1.3\">"
6086         "  <XMI.content>"
6087         "    <Model:Package name=\"WinePackage\" Model:name2=\"name2 attr\" />"
6088         "  </XMI.content>"
6089         "</XMI>";
6090
6091     IXMLDOMDocument *doc;
6092     IXMLDOMElement *elem;
6093     IXMLDOMNode *node;
6094
6095     VARIANT_BOOL b;
6096     HRESULT hr;
6097     BSTR str;
6098
6099     doc = create_document(&IID_IXMLDOMDocument);
6100     if (!doc) return;
6101
6102     hr = IXMLDOMDocument_loadXML(doc, _bstr_(namespaces_xmlA), &b);
6103     EXPECT_HR(hr, S_OK);
6104     ok(b == VARIANT_TRUE, "got %d\n", b);
6105
6106     str = (BSTR)0xdeadbeef;
6107     hr = IXMLDOMDocument_get_namespaceURI(doc, &str);
6108     EXPECT_HR(hr, S_FALSE);
6109     ok(str == NULL, "got %p\n", str);
6110
6111     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("//XMI.content"), &node );
6112     EXPECT_HR(hr, S_OK);
6113     if(hr == S_OK)
6114     {
6115         IXMLDOMAttribute *attr;
6116         IXMLDOMNode *node2;
6117
6118         hr = IXMLDOMNode_get_firstChild(node, &node2);
6119         EXPECT_HR(hr, S_OK);
6120         ok(node2 != NULL, "got %p\n", node2);
6121
6122         /* Test get_prefix */
6123         hr = IXMLDOMNode_get_prefix(node2, NULL);
6124         EXPECT_HR(hr, E_INVALIDARG);
6125         /* NOTE: Need to test that arg2 gets cleared on Error. */
6126
6127         hr = IXMLDOMNode_get_prefix(node2, &str);
6128         EXPECT_HR(hr, S_OK);
6129         ok( !lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6130         SysFreeString(str);
6131
6132         hr = IXMLDOMNode_get_nodeName(node2, &str);
6133         EXPECT_HR(hr, S_OK);
6134         ok(!lstrcmpW( str, _bstr_("Model:Package")), "got %s\n", wine_dbgstr_w(str));
6135         SysFreeString(str);
6136
6137         /* Test get_namespaceURI */
6138         hr = IXMLDOMNode_get_namespaceURI(node2, NULL);
6139         EXPECT_HR(hr, E_INVALIDARG);
6140         /* NOTE: Need to test that arg2 gets cleared on Error. */
6141
6142         hr = IXMLDOMNode_get_namespaceURI(node2, &str);
6143         EXPECT_HR(hr, S_OK);
6144         ok(!lstrcmpW( str, _bstr_("http://omg.org/mof.Model/1.3")), "got %s\n", wine_dbgstr_w(str));
6145         SysFreeString(str);
6146
6147         hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&elem);
6148         EXPECT_HR(hr, S_OK);
6149
6150         hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("Model:name2"), &attr);
6151         EXPECT_HR(hr, S_OK);
6152
6153         hr = IXMLDOMAttribute_get_nodeName(attr, &str);
6154         EXPECT_HR(hr, S_OK);
6155         ok(!lstrcmpW( str, _bstr_("Model:name2")), "got %s\n", wine_dbgstr_w(str));
6156         SysFreeString(str);
6157
6158         hr = IXMLDOMAttribute_get_prefix(attr, &str);
6159         EXPECT_HR(hr, S_OK);
6160         ok(!lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6161         SysFreeString(str);
6162
6163         IXMLDOMAttribute_Release(attr);
6164         IXMLDOMElement_Release(elem);
6165
6166         IXMLDOMNode_Release(node2);
6167         IXMLDOMNode_Release(node);
6168     }
6169
6170     IXMLDOMDocument_Release(doc);
6171
6172     free_bstrs();
6173 }
6174
6175 static void test_FormattingXML(void)
6176 {
6177     IXMLDOMDocument *doc;
6178     IXMLDOMElement *pElement;
6179     VARIANT_BOOL bSucc;
6180     HRESULT hr;
6181     BSTR str;
6182     static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
6183     static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
6184
6185     doc = create_document(&IID_IXMLDOMDocument);
6186     if (!doc) return;
6187
6188     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
6189     ok(hr == S_OK, "ret %08x\n", hr );
6190     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6191
6192     if(bSucc == VARIANT_TRUE)
6193     {
6194         hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
6195         ok(hr == S_OK, "ret %08x\n", hr );
6196         if(hr == S_OK)
6197         {
6198             hr = IXMLDOMElement_get_xml(pElement, &str);
6199             ok(hr == S_OK, "ret %08x\n", hr );
6200             ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
6201             SysFreeString(str);
6202
6203             IXMLDOMElement_Release(pElement);
6204         }
6205     }
6206
6207     IXMLDOMDocument_Release(doc);
6208
6209     free_bstrs();
6210 }
6211
6212 typedef struct _nodetypedvalue_t {
6213     const char *name;
6214     VARTYPE type;
6215     const char *value; /* value in string format */
6216 } nodetypedvalue_t;
6217
6218 static const nodetypedvalue_t get_nodetypedvalue[] = {
6219     { "root/string",    VT_BSTR, "Wine" },
6220     { "root/string2",   VT_BSTR, "String" },
6221     { "root/number",    VT_BSTR, "12.44" },
6222     { "root/number2",   VT_BSTR, "-3.71e3" },
6223     { "root/int",       VT_I4,   "-13" },
6224     { "root/fixed",     VT_CY,   "7322.9371" },
6225     { "root/bool",      VT_BOOL, "-1" },
6226     { "root/datetime",  VT_DATE, "40135.14" },
6227     { "root/datetimetz",VT_DATE, "37813.59" },
6228     { "root/date",      VT_DATE, "665413" },
6229     { "root/time",      VT_DATE, "0.5813889" },
6230     { "root/timetz",    VT_DATE, "1.112512" },
6231     { "root/i1",        VT_I1,   "-13" },
6232     { "root/i2",        VT_I2,   "31915" },
6233     { "root/i4",        VT_I4,   "-312232" },
6234     { "root/ui1",       VT_UI1,  "123" },
6235     { "root/ui2",       VT_UI2,  "48282" },
6236     { "root/ui4",       VT_UI4,  "949281" },
6237     { "root/r4",        VT_R4,   "213124" },
6238     { "root/r8",        VT_R8,   "0.412" },
6239     { "root/float",     VT_R8,   "41221.421" },
6240     { "root/uuid",      VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
6241     { "root/binbase64", VT_ARRAY|VT_UI1, "base64 test" },
6242     { "root/binbase64_1", VT_ARRAY|VT_UI1, "base64 test" },
6243     { "root/binbase64_2", VT_ARRAY|VT_UI1, "base64 test" },
6244     { 0 }
6245 };
6246
6247 static void test_nodeTypedValue(void)
6248 {
6249     const nodetypedvalue_t *entry = get_nodetypedvalue;
6250     IXMLDOMDocumentType *doctype, *doctype2;
6251     IXMLDOMProcessingInstruction *pi;
6252     IXMLDOMDocumentFragment *frag;
6253     IXMLDOMDocument *doc, *doc2;
6254     IXMLDOMCDATASection *cdata;
6255     IXMLDOMComment *comment;
6256     IXMLDOMNode *node;
6257     VARIANT_BOOL b;
6258     VARIANT value;
6259     HRESULT hr;
6260
6261     doc = create_document(&IID_IXMLDOMDocument);
6262     if (!doc) return;
6263
6264     b = VARIANT_FALSE;
6265     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
6266     ok(hr == S_OK, "ret %08x\n", hr );
6267     ok(b == VARIANT_TRUE, "got %d\n", b);
6268
6269     hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
6270     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6271
6272     V_VT(&value) = VT_BSTR;
6273     V_BSTR(&value) = NULL;
6274     hr = IXMLDOMDocument_get_nodeValue(doc, &value);
6275     ok(hr == S_FALSE, "ret %08x\n", hr );
6276     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6277
6278     hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
6279     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6280
6281     V_VT(&value) = VT_EMPTY;
6282     hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
6283     ok(hr == S_FALSE, "ret %08x\n", hr );
6284     ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6285
6286     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
6287     ok(hr == S_OK, "ret %08x\n", hr );
6288
6289     V_VT(&value) = VT_BSTR;
6290     V_BSTR(&value) = NULL;
6291     hr = IXMLDOMNode_get_nodeValue(node, &value);
6292     ok(hr == S_FALSE, "ret %08x\n", hr );
6293     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6294
6295     hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
6296     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6297
6298     IXMLDOMNode_Release(node);
6299
6300     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
6301     ok(hr == S_OK, "ret %08x\n", hr );
6302     {
6303         BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
6304
6305         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6306         ok(hr == S_OK, "ret %08x\n", hr );
6307         ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6308         ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
6309         if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
6310             ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6311         VariantClear(&value);
6312         IXMLDOMNode_Release(node);
6313     }
6314
6315     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("foo"), _bstr_("value"), &pi);
6316     ok(hr == S_OK, "ret %08x\n", hr );
6317     {
6318         V_VT(&value) = VT_NULL;
6319         V_BSTR(&value) = (void*)0xdeadbeef;
6320         hr = IXMLDOMProcessingInstruction_get_nodeTypedValue(pi, &value);
6321         ok(hr == S_OK, "ret %08x\n", hr );
6322         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6323         ok(!lstrcmpW(V_BSTR(&value), _bstr_("value")), "got wrong value\n");
6324         IXMLDOMProcessingInstruction_Release(pi);
6325         VariantClear(&value);
6326     }
6327
6328     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("[1]*2=3; &gee that's not right!"), &cdata);
6329     ok(hr == S_OK, "ret %08x\n", hr );
6330     {
6331         V_VT(&value) = VT_NULL;
6332         V_BSTR(&value) = (void*)0xdeadbeef;
6333         hr = IXMLDOMCDATASection_get_nodeTypedValue(cdata, &value);
6334         ok(hr == S_OK, "ret %08x\n", hr );
6335         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6336         ok(!lstrcmpW(V_BSTR(&value), _bstr_("[1]*2=3; &gee that's not right!")), "got wrong value\n");
6337         IXMLDOMCDATASection_Release(cdata);
6338         VariantClear(&value);
6339     }
6340
6341     hr = IXMLDOMDocument_createComment(doc, _bstr_("comment"), &comment);
6342     ok(hr == S_OK, "ret %08x\n", hr );
6343     {
6344         V_VT(&value) = VT_NULL;
6345         V_BSTR(&value) = (void*)0xdeadbeef;
6346         hr = IXMLDOMComment_get_nodeTypedValue(comment, &value);
6347         ok(hr == S_OK, "ret %08x\n", hr );
6348         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6349         ok(!lstrcmpW(V_BSTR(&value), _bstr_("comment")), "got wrong value\n");
6350         IXMLDOMComment_Release(comment);
6351         VariantClear(&value);
6352     }
6353
6354     hr = IXMLDOMDocument_createDocumentFragment(doc, &frag);
6355     ok(hr == S_OK, "ret %08x\n", hr );
6356     {
6357         V_VT(&value) = VT_EMPTY;
6358         hr = IXMLDOMDocumentFragment_get_nodeTypedValue(frag, &value);
6359         ok(hr == S_FALSE, "ret %08x\n", hr );
6360         ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6361         IXMLDOMDocumentFragment_Release(frag);
6362     }
6363
6364     doc2 = create_document(&IID_IXMLDOMDocument);
6365
6366     b = VARIANT_FALSE;
6367     hr = IXMLDOMDocument_loadXML(doc2, _bstr_(szEmailXML), &b);
6368     ok(hr == S_OK, "ret %08x\n", hr );
6369     ok(b == VARIANT_TRUE, "got %d\n", b);
6370
6371     EXPECT_REF(doc2, 1);
6372
6373     hr = IXMLDOMDocument_get_doctype(doc2, &doctype);
6374     ok(hr == S_OK, "ret %08x\n", hr );
6375
6376     EXPECT_REF(doc2, 1);
6377     todo_wine EXPECT_REF(doctype, 2);
6378
6379     {
6380         V_VT(&value) = VT_EMPTY;
6381         hr = IXMLDOMDocumentType_get_nodeTypedValue(doctype, &value);
6382         ok(hr == S_FALSE, "ret %08x\n", hr );
6383         ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6384     }
6385
6386     hr = IXMLDOMDocument_get_doctype(doc2, &doctype2);
6387     ok(hr == S_OK, "ret %08x\n", hr );
6388     ok(doctype != doctype2, "got %p, was %p\n", doctype2, doctype);
6389
6390     IXMLDOMDocumentType_Release(doctype2);
6391     IXMLDOMDocumentType_Release(doctype);
6392
6393     IXMLDOMDocument_Release(doc2);
6394
6395     while (entry->name)
6396     {
6397         hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
6398         ok(hr == S_OK, "ret %08x\n", hr );
6399
6400         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6401         ok(hr == S_OK, "ret %08x\n", hr );
6402         ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
6403
6404         if (entry->type == (VT_ARRAY|VT_UI1))
6405         {
6406             ok(V_ARRAY(&value)->rgsabound[0].cElements == strlen(entry->value),
6407                "incorrect array size %d\n", V_ARRAY(&value)->rgsabound[0].cElements);
6408         }
6409
6410         if (entry->type != VT_BSTR)
6411         {
6412            if (entry->type == VT_DATE ||
6413                entry->type == VT_R8 ||
6414                entry->type == VT_CY)
6415            {
6416                if (entry->type == VT_DATE)
6417                {
6418                    hr = VariantChangeType(&value, &value, 0, VT_R4);
6419                    ok(hr == S_OK, "ret %08x\n", hr );
6420                }
6421                hr = VariantChangeTypeEx(&value, &value,
6422                                         MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
6423                                         VARIANT_NOUSEROVERRIDE, VT_BSTR);
6424                ok(hr == S_OK, "ret %08x\n", hr );
6425            }
6426            else
6427            {
6428                hr = VariantChangeType(&value, &value, 0, VT_BSTR);
6429                ok(hr == S_OK, "ret %08x\n", hr );
6430            }
6431
6432            /* for byte array from VT_ARRAY|VT_UI1 it's not a WCHAR buffer */
6433            if (entry->type == (VT_ARRAY|VT_UI1))
6434            {
6435                ok(!memcmp( V_BSTR(&value), entry->value, strlen(entry->value)),
6436                   "expected %s\n", entry->value);
6437            }
6438            else
6439                ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6440                   "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6441         }
6442         else
6443            ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6444                "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6445
6446         VariantClear( &value );
6447         IXMLDOMNode_Release(node);
6448
6449         entry++;
6450     }
6451
6452     IXMLDOMDocument_Release(doc);
6453     free_bstrs();
6454 }
6455
6456 static void test_TransformWithLoadingLocalFile(void)
6457 {
6458     IXMLDOMDocument *doc;
6459     IXMLDOMDocument *xsl;
6460     IXMLDOMNode *pNode;
6461     VARIANT_BOOL bSucc;
6462     HRESULT hr;
6463     HANDLE file;
6464     DWORD dwWritten;
6465     char lpPathBuffer[MAX_PATH];
6466     int i;
6467
6468     /* Create a Temp File. */
6469     GetTempPathA(MAX_PATH, lpPathBuffer);
6470     strcat(lpPathBuffer, "customers.xml" );
6471
6472     file = CreateFileA(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
6473     ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
6474     if(file == INVALID_HANDLE_VALUE)
6475         return;
6476
6477     WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
6478     CloseHandle(file);
6479
6480     /* Correct path to not include a escape character. */
6481     for(i=0; i < strlen(lpPathBuffer); i++)
6482     {
6483         if(lpPathBuffer[i] == '\\')
6484             lpPathBuffer[i] = '/';
6485     }
6486
6487     doc = create_document(&IID_IXMLDOMDocument);
6488     if (!doc) return;
6489
6490     xsl = create_document(&IID_IXMLDOMDocument);
6491     if (!xsl)
6492     {
6493         IXMLDOMDocument_Release(doc);
6494         return;
6495     }
6496
6497     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
6498     ok(hr == S_OK, "ret %08x\n", hr );
6499     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6500     if(bSucc == VARIANT_TRUE)
6501     {
6502         BSTR sXSL;
6503         BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
6504         BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
6505         BSTR sFileName = _bstr_(lpPathBuffer);
6506         int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
6507
6508         sXSL = SysAllocStringLen(NULL, nLegnth);
6509         lstrcpyW(sXSL, sPart1);
6510         lstrcatW(sXSL, sFileName);
6511         lstrcatW(sXSL, sPart2);
6512
6513         hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
6514         ok(hr == S_OK, "ret %08x\n", hr );
6515         ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6516         if(bSucc == VARIANT_TRUE)
6517         {
6518             BSTR sResult;
6519
6520             hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
6521             ok(hr == S_OK, "ret %08x\n", hr );
6522             if(hr == S_OK)
6523             {
6524                 /* This will load the temp file via the XSL */
6525                 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
6526                 ok(hr == S_OK, "ret %08x\n", hr );
6527                 if(hr == S_OK)
6528                 {
6529                     ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
6530                     SysFreeString(sResult);
6531                 }
6532
6533                 IXMLDOMNode_Release(pNode);
6534             }
6535         }
6536
6537         SysFreeString(sXSL);
6538     }
6539
6540     IXMLDOMDocument_Release(doc);
6541     IXMLDOMDocument_Release(xsl);
6542
6543     DeleteFile(lpPathBuffer);
6544     free_bstrs();
6545 }
6546
6547 static void test_put_nodeValue(void)
6548 {
6549     static const WCHAR jeevesW[] = {'J','e','e','v','e','s',' ','&',' ','W','o','o','s','t','e','r',0};
6550     IXMLDOMDocument *doc;
6551     IXMLDOMText *text;
6552     IXMLDOMEntityReference *entityref;
6553     IXMLDOMAttribute *attr;
6554     IXMLDOMNode *node;
6555     HRESULT hr;
6556     VARIANT data, type;
6557
6558     doc = create_document(&IID_IXMLDOMDocument);
6559     if (!doc) return;
6560
6561     /* test for unsupported types */
6562     /* NODE_DOCUMENT */
6563     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6564     ok(hr == S_OK, "ret %08x\n", hr );
6565     V_VT(&data) = VT_BSTR;
6566     V_BSTR(&data) = _bstr_("one two three");
6567     hr = IXMLDOMNode_put_nodeValue(node, data);
6568     ok(hr == E_FAIL, "ret %08x\n", hr );
6569     IXMLDOMNode_Release(node);
6570
6571     /* NODE_DOCUMENT_FRAGMENT */
6572     V_VT(&type) = VT_I1;
6573     V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6574     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6575     ok(hr == S_OK, "ret %08x\n", hr );
6576     V_VT(&data) = VT_BSTR;
6577     V_BSTR(&data) = _bstr_("one two three");
6578     hr = IXMLDOMNode_put_nodeValue(node, data);
6579     ok(hr == E_FAIL, "ret %08x\n", hr );
6580     IXMLDOMNode_Release(node);
6581
6582     /* NODE_ELEMENT */
6583     V_VT(&type) = VT_I1;
6584     V_I1(&type) = NODE_ELEMENT;
6585     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6586     ok(hr == S_OK, "ret %08x\n", hr );
6587     V_VT(&data) = VT_BSTR;
6588     V_BSTR(&data) = _bstr_("one two three");
6589     hr = IXMLDOMNode_put_nodeValue(node, data);
6590     ok(hr == E_FAIL, "ret %08x\n", hr );
6591     IXMLDOMNode_Release(node);
6592
6593     /* NODE_ENTITY_REFERENCE */
6594     hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6595     ok(hr == S_OK, "ret %08x\n", hr );
6596
6597     V_VT(&data) = VT_BSTR;
6598     V_BSTR(&data) = _bstr_("one two three");
6599     hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6600     ok(hr == E_FAIL, "ret %08x\n", hr );
6601
6602     hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6603     ok(hr == S_OK, "ret %08x\n", hr );
6604     V_VT(&data) = VT_BSTR;
6605     V_BSTR(&data) = _bstr_("one two three");
6606     hr = IXMLDOMNode_put_nodeValue(node, data);
6607     ok(hr == E_FAIL, "ret %08x\n", hr );
6608     IXMLDOMNode_Release(node);
6609     IXMLDOMEntityReference_Release(entityref);
6610
6611     /* supported types */
6612     hr = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &text);
6613     ok(hr == S_OK, "ret %08x\n", hr );
6614     V_VT(&data) = VT_BSTR;
6615     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6616     hr = IXMLDOMText_put_nodeValue(text, data);
6617     ok(hr == S_OK, "ret %08x\n", hr );
6618     IXMLDOMText_Release(text);
6619
6620     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6621     ok(hr == S_OK, "ret %08x\n", hr );
6622     V_VT(&data) = VT_BSTR;
6623     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6624     hr = IXMLDOMAttribute_put_nodeValue(attr, data);
6625     ok(hr == S_OK, "ret %08x\n", hr );
6626     hr = IXMLDOMAttribute_get_nodeValue(attr, &data);
6627     ok(hr == S_OK, "ret %08x\n", hr );
6628     ok(memcmp(V_BSTR(&data), jeevesW, sizeof(jeevesW)) == 0, "got %s\n",
6629         wine_dbgstr_w(V_BSTR(&data)));
6630     VariantClear(&data);
6631     IXMLDOMAttribute_Release(attr);
6632
6633     free_bstrs();
6634
6635     IXMLDOMDocument_Release(doc);
6636 }
6637
6638 static void test_IObjectSafety(void)
6639 {
6640     IXMLDOMDocument *doc;
6641     IObjectSafety *safety;
6642     HRESULT hr;
6643
6644     doc = create_document(&IID_IXMLDOMDocument);
6645     if (!doc) return;
6646
6647     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6648     ok(hr == S_OK, "ret %08x\n", hr );
6649
6650     test_IObjectSafety_common(safety);
6651
6652     IObjectSafety_Release(safety);
6653     IXMLDOMDocument_Release(doc);
6654
6655     hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
6656         &IID_IObjectSafety, (void**)&safety);
6657     ok(hr == S_OK, "Could not create XMLHTTPRequest instance: %08x\n", hr);
6658
6659     test_IObjectSafety_common(safety);
6660
6661     IObjectSafety_Release(safety);
6662
6663 }
6664
6665 typedef struct _property_test_t {
6666     const GUID *guid;
6667     const char *clsid;
6668     const char *property;
6669     const char *value;
6670 } property_test_t;
6671
6672 static const property_test_t properties_test_data[] = {
6673     { &CLSID_DOMDocument,  "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6674     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6675     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6676     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6677     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6678     { 0 }
6679 };
6680
6681 static void test_default_properties(void)
6682 {
6683     const property_test_t *entry = properties_test_data;
6684
6685     while (entry->guid)
6686     {
6687         IXMLDOMDocument2 *doc;
6688         VARIANT var;
6689         HRESULT hr;
6690
6691         hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6692         if (hr != S_OK)
6693         {
6694             win_skip("can't create %s instance\n", entry->clsid);
6695             entry++;
6696             continue;
6697         }
6698
6699         hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6700         ok(hr == S_OK, "got 0x%08x\n", hr);
6701         ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6702            entry->value, entry->clsid);
6703         VariantClear(&var);
6704
6705         IXMLDOMDocument2_Release(doc);
6706
6707         entry++;
6708     }
6709 }
6710
6711 typedef struct {
6712     const char *query;
6713     const char *list;
6714 } xslpattern_test_t;
6715
6716 static const xslpattern_test_t xslpattern_test[] = {
6717     { "root//elem[0]", "E1.E2.D1" },
6718     { "root//elem[index()=1]", "E2.E2.D1" },
6719     { "root//elem[index() $eq$ 1]", "E2.E2.D1" },
6720     { "root//elem[end()]", "E4.E2.D1" },
6721     { "root//elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6722     { "root//elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6723     { "root//elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6724     { "root//elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6725     { "root//elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6726     { "root//elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6727     { "root//elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6728     { "root//elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6729     { "root//elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6730     { "root//elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6731     { "root//elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6732     { "root//elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6733     { "root//elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6734     { "root//elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6735     { "root//elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6736     { "root//elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6737     { "root//elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6738     { "root//elem[$any$ *='B2 field']", "E2.E2.D1" },
6739     { "root//elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6740     { "root//elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6741     { "root//elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6742     { "root//elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6743     { "root//elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6744     { "root//elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6745     { "root//elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6746     { "root/elem[0]", "E1.E2.D1" },
6747     { "root/elem[index()=1]", "E2.E2.D1" },
6748     { "root/elem[index() $eq$ 1]", "E2.E2.D1" },
6749     { "root/elem[end()]", "E4.E2.D1" },
6750     { "root/elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6751     { "root/elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6752     { "root/elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6753     { "root/elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6754     { "root/elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6755     { "root/elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6756     { "root/elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6757     { "root/elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6758     { "root/elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6759     { "root/elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6760     { "root/elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6761     { "root/elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6762     { "root/elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6763     { "root/elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6764     { "root/elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6765     { "root/elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6766     { "root/elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6767     { "root/elem[$any$ *='B2 field']", "E2.E2.D1" },
6768     { "root/elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6769     { "root/elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6770     { "root/elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6771     { "root/elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6772     { "root/elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6773     { "root/elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6774     { "root/elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6775     { "root/elem[d]", "E1.E2.D1 E2.E2.D1 E4.E2.D1" },
6776     { NULL }
6777 };
6778
6779 static const xslpattern_test_t xslpattern_test_no_ns[] = {
6780     /* prefixes don't need to be registered, you may use them as they are in the doc */
6781     { "//bar:x", "E5.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1" },
6782     /* prefixes must be explicitly specified in the name */
6783     { "//foo:elem", "" },
6784     { "//foo:c", "E3.E4.E2.D1" },
6785     { NULL }
6786 };
6787
6788 static const xslpattern_test_t xslpattern_test_func[] = {
6789     { "attribute()", "" },
6790     { "attribute('depth')", "" },
6791     { "root/attribute('depth')", "A'depth'.E3.D1" },
6792     { "//x/attribute()", "A'id'.E3.E3.D1 A'depth'.E3.E3.D1" },
6793     { "//x//attribute(id)", NULL },
6794     { "//x//attribute('id')", "A'id'.E3.E3.D1 A'id'.E4.E3.E3.D1 A'id'.E5.E3.E3.D1 A'id'.E6.E3.E3.D1" },
6795     { "comment()", "C2.D1" },
6796     { "//comment()", "C2.D1 C1.E3.D1 C2.E3.E3.D1 C2.E4.E3.D1" },
6797     { "element()", "E3.D1" },
6798     { "root/y/element()", "E4.E4.E3.D1 E5.E4.E3.D1 E6.E4.E3.D1" },
6799     { "//element(a)", NULL },
6800     { "//element('a')", "E4.E3.E3.D1 E4.E4.E3.D1" },
6801     { "node()", "P1.D1 C2.D1 E3.D1" },
6802     { "//x/node()", "P1.E3.E3.D1 C2.E3.E3.D1 T3.E3.E3.D1 E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
6803     { "//x/node()[nodeType()=1]", "E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
6804     { "//x/node()[nodeType()=3]", "T3.E3.E3.D1" },
6805     { "//x/node()[nodeType()=7]", "P1.E3.E3.D1" },
6806     { "//x/node()[nodeType()=8]", "C2.E3.E3.D1" },
6807     { "pi()", "P1.D1" },
6808     { "//y/pi()", "P1.E4.E3.D1" },
6809     { "root/textnode()", "T2.E3.D1" },
6810     { "root/element()/textnode()", "T3.E3.E3.D1 T3.E4.E3.D1" },
6811     { NULL }
6812 };
6813
6814 static void test_XSLPattern(void)
6815 {
6816     const xslpattern_test_t *ptr = xslpattern_test;
6817     IXMLDOMDocument2 *doc;
6818     IXMLDOMNodeList *list;
6819     VARIANT_BOOL b;
6820     HRESULT hr;
6821     LONG len;
6822
6823     doc = create_document(&IID_IXMLDOMDocument2);
6824     if (!doc) return;
6825
6826     b = VARIANT_FALSE;
6827     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
6828     EXPECT_HR(hr, S_OK);
6829     ok(b == VARIANT_TRUE, "failed to load XML string\n");
6830
6831     /* switch to XSLPattern */
6832     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern"));
6833     EXPECT_HR(hr, S_OK);
6834
6835     /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6836     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list);
6837     EXPECT_HR(hr, S_OK);
6838
6839     len = 0;
6840     hr = IXMLDOMNodeList_get_length(list, &len);
6841     EXPECT_HR(hr, S_OK);
6842     /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6843     ok(len == 3, "expected 3 entries in list, got %d\n", len);
6844     IXMLDOMNodeList_Release(list);
6845
6846     while (ptr->query)
6847     {
6848         list = NULL;
6849         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6850         ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6851         len = 0;
6852         hr = IXMLDOMNodeList_get_length(list, &len);
6853         ok(len != 0, "query=%s, empty list\n", ptr->query);
6854         if (len)
6855             expect_list_and_release(list, ptr->list);
6856
6857         ptr++;
6858     }
6859
6860     /* namespace handling */
6861     /* no registered namespaces */
6862     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_(""));
6863     EXPECT_HR(hr, S_OK);
6864
6865     ptr = xslpattern_test_no_ns;
6866     while (ptr->query)
6867     {
6868         list = NULL;
6869         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6870         ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6871
6872         if (*ptr->list)
6873         {
6874             len = 0;
6875             hr = IXMLDOMNodeList_get_length(list, &len);
6876             EXPECT_HR(hr, S_OK);
6877             ok(len != 0, "query=%s, empty list\n", ptr->query);
6878         }
6879         else
6880         {
6881             len = 1;
6882             hr = IXMLDOMNodeList_get_length(list, &len);
6883             EXPECT_HR(hr, S_OK);
6884             ok(len == 0, "query=%s, empty list\n", ptr->query);
6885         }
6886         if (len)
6887             expect_list_and_release(list, ptr->list);
6888
6889         ptr++;
6890     }
6891
6892     /* explicitly register prefix foo */
6893     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
6894
6895     /* now we get the same behavior as XPath */
6896     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
6897     EXPECT_HR(hr, S_OK);
6898     len = 0;
6899     hr = IXMLDOMNodeList_get_length(list, &len);
6900     EXPECT_HR(hr, S_OK);
6901     ok(len != 0, "expected filled list\n");
6902     if (len)
6903         expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
6904
6905     /* set prefix foo to some nonexistent namespace */
6906     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:nonexistent-foo'"));
6907     EXPECT_HR(hr, S_OK);
6908
6909     /* the registered prefix takes precedence */
6910     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
6911     EXPECT_HR(hr, S_OK);
6912     len = 0;
6913     hr = IXMLDOMNodeList_get_length(list, &len);
6914     EXPECT_HR(hr, S_OK);
6915     ok(len == 0, "expected empty list\n");
6916     IXMLDOMNodeList_Release(list);
6917
6918     IXMLDOMDocument2_Release(doc);
6919
6920     doc = create_document(&IID_IXMLDOMDocument2);
6921     if (!doc) return;
6922
6923     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szNodeTypesXML), &b);
6924     EXPECT_HR(hr, S_OK);
6925     ok(b == VARIANT_TRUE, "failed to load XML string\n");
6926
6927     ptr = xslpattern_test_func;
6928     while (ptr->query)
6929     {
6930         list = NULL;
6931         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6932         if (ptr->list)
6933         {
6934             ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6935             len = 0;
6936             hr = IXMLDOMNodeList_get_length(list, &len);
6937             if (*ptr->list)
6938             {
6939                 ok(len != 0, "query=%s, empty list\n", ptr->query);
6940                 if (len)
6941                     expect_list_and_release(list, ptr->list);
6942             }
6943             else
6944                 ok(len == 0, "query=%s, filled list\n", ptr->query);
6945         }
6946         else
6947             ok(hr == E_FAIL, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6948
6949         ptr++;
6950     }
6951
6952     IXMLDOMDocument2_Release(doc);
6953     free_bstrs();
6954 }
6955
6956 static void test_splitText(void)
6957 {
6958     IXMLDOMCDATASection *cdata;
6959     IXMLDOMElement *root;
6960     IXMLDOMDocument *doc;
6961     IXMLDOMText *text, *text2;
6962     IXMLDOMNode *node;
6963     VARIANT var;
6964     VARIANT_BOOL success;
6965     LONG length;
6966     HRESULT hr;
6967
6968     doc = create_document(&IID_IXMLDOMDocument);
6969     if (!doc) return;
6970
6971     hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
6972     ok(hr == S_OK, "got 0x%08x\n", hr);
6973
6974     hr = IXMLDOMDocument_get_documentElement(doc, &root);
6975     ok(hr == S_OK, "got 0x%08x\n", hr);
6976
6977     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
6978     ok(hr == S_OK, "got 0x%08x\n", hr);
6979
6980     V_VT(&var) = VT_EMPTY;
6981     hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
6982     ok(hr == S_OK, "got 0x%08x\n", hr);
6983
6984     length = 0;
6985     hr = IXMLDOMCDATASection_get_length(cdata, &length);
6986     ok(hr == S_OK, "got 0x%08x\n", hr);
6987     ok(length > 0, "got %d\n", length);
6988
6989     hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
6990     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6991
6992     text = (void*)0xdeadbeef;
6993     /* negative offset */
6994     hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
6995     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
6996     ok(text == (void*)0xdeadbeef, "got %p\n", text);
6997
6998     text = (void*)0xdeadbeef;
6999     /* offset outside data */
7000     hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
7001     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7002     ok(text == 0, "got %p\n", text);
7003
7004     text = (void*)0xdeadbeef;
7005     /* offset outside data */
7006     hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
7007     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7008     ok(text == 0, "got %p\n", text);
7009
7010     /* no empty node created */
7011     node = (void*)0xdeadbeef;
7012     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7013     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7014     ok(node == 0, "got %p\n", text);
7015
7016     hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
7017     ok(hr == S_OK, "got 0x%08x\n", hr);
7018
7019     length = 0;
7020     hr = IXMLDOMText_get_length(text, &length);
7021     ok(hr == S_OK, "got 0x%08x\n", hr);
7022     ok(length == 7, "got %d\n", length);
7023
7024     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7025     ok(hr == S_OK, "got 0x%08x\n", hr);
7026     IXMLDOMNode_Release(node);
7027
7028     /* split new text node */
7029     hr = IXMLDOMText_get_length(text, &length);
7030     ok(hr == S_OK, "got 0x%08x\n", hr);
7031
7032     node = (void*)0xdeadbeef;
7033     hr = IXMLDOMText_get_nextSibling(text, &node);
7034     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7035     ok(node == 0, "got %p\n", text);
7036
7037     hr = IXMLDOMText_splitText(text, 0, NULL);
7038     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7039
7040     text2 = (void*)0xdeadbeef;
7041     /* negative offset */
7042     hr = IXMLDOMText_splitText(text, -1, &text2);
7043     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7044     ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
7045
7046     text2 = (void*)0xdeadbeef;
7047     /* offset outside data */
7048     hr = IXMLDOMText_splitText(text, length + 1, &text2);
7049     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7050     ok(text2 == 0, "got %p\n", text2);
7051
7052     text2 = (void*)0xdeadbeef;
7053     /* offset outside data */
7054     hr = IXMLDOMText_splitText(text, length, &text2);
7055     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7056     ok(text2 == 0, "got %p\n", text);
7057
7058     text2 = 0;
7059     hr = IXMLDOMText_splitText(text, 4, &text2);
7060     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7061     if (text2) IXMLDOMText_Release(text2);
7062
7063     node = 0;
7064     hr = IXMLDOMText_get_nextSibling(text, &node);
7065     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7066     if (node) IXMLDOMNode_Release(node);
7067
7068     IXMLDOMText_Release(text);
7069     IXMLDOMElement_Release(root);
7070     IXMLDOMCDATASection_Release(cdata);
7071     free_bstrs();
7072 }
7073
7074 typedef struct {
7075     const char *name;
7076     const char *uri;
7077     HRESULT hr;
7078 } ns_item_t;
7079
7080 /* default_ns_doc used */
7081 static const ns_item_t qualified_item_tests[] = {
7082     { "xml:lang", NULL, S_FALSE },
7083     { "xml:lang", "http://www.w3.org/XML/1998/namespace", S_FALSE },
7084     { "lang", "http://www.w3.org/XML/1998/namespace", S_OK },
7085     { "ns:b", NULL, S_FALSE },
7086     { "ns:b", "nshref", S_FALSE },
7087     { "b", "nshref", S_OK },
7088     { "d", NULL, S_OK },
7089     { NULL }
7090 };
7091
7092 static const ns_item_t named_item_tests[] = {
7093     { "xml:lang", NULL, S_OK },
7094     { "lang", NULL, S_FALSE },
7095     { "ns:b", NULL, S_OK },
7096     { "b", NULL, S_FALSE },
7097     { "d", NULL, S_OK },
7098     { NULL }
7099 };
7100
7101 static void test_getQualifiedItem(void)
7102 {
7103     IXMLDOMNode *pr_node, *node;
7104     IXMLDOMNodeList *root_list;
7105     IXMLDOMNamedNodeMap *map;
7106     IXMLDOMElement *element;
7107     const ns_item_t* ptr;
7108     IXMLDOMDocument *doc;
7109     VARIANT_BOOL b;
7110     HRESULT hr;
7111     LONG len;
7112
7113     doc = create_document(&IID_IXMLDOMDocument);
7114     if (!doc) return;
7115
7116     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7117     EXPECT_HR(hr, S_OK);
7118     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7119
7120     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7121     EXPECT_HR(hr, S_OK);
7122
7123     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7124     EXPECT_HR(hr, S_OK);
7125
7126     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7127     EXPECT_HR(hr, S_OK);
7128     IXMLDOMNodeList_Release(root_list);
7129
7130     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7131     EXPECT_HR(hr, S_OK);
7132     IXMLDOMNode_Release(pr_node);
7133
7134     len = 0;
7135     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7136     EXPECT_HR(hr, S_OK);
7137     ok( len == 3, "length %d\n", len);
7138
7139     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
7140     EXPECT_HR(hr, E_INVALIDARG);
7141
7142     node = (void*)0xdeadbeef;
7143     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
7144     EXPECT_HR(hr, E_INVALIDARG);
7145     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7146
7147     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
7148     EXPECT_HR(hr, E_INVALIDARG);
7149
7150     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
7151     EXPECT_HR(hr, S_OK);
7152
7153     IXMLDOMNode_Release(node);
7154     IXMLDOMNamedNodeMap_Release(map);
7155     IXMLDOMElement_Release(element);
7156
7157     hr = IXMLDOMDocument_loadXML(doc, _bstr_(default_ns_doc), &b);
7158     EXPECT_HR(hr, S_OK);
7159
7160     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("a"), &node);
7161     EXPECT_HR(hr, S_OK);
7162
7163     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7164     EXPECT_HR(hr, S_OK);
7165     IXMLDOMNode_Release(node);
7166
7167     hr = IXMLDOMElement_get_attributes(element, &map);
7168     EXPECT_HR(hr, S_OK);
7169
7170     ptr = qualified_item_tests;
7171     while (ptr->name)
7172     {
7173        node = (void*)0xdeadbeef;
7174        hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
7175        ok(hr == ptr->hr, "%s, %s: got 0x%08x, expected 0x%08x\n", ptr->name, ptr->uri, hr, ptr->hr);
7176        if (hr == S_OK)
7177            IXMLDOMNode_Release(node);
7178        else
7179            ok(node == NULL, "%s, %s: got %p\n", ptr->name, ptr->uri, node);
7180        ptr++;
7181     }
7182
7183     ptr = named_item_tests;
7184     while (ptr->name)
7185     {
7186        node = (void*)0xdeadbeef;
7187        hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_(ptr->name), &node);
7188        ok(hr == ptr->hr, "%s: got 0x%08x, expected 0x%08x\n", ptr->name, hr, ptr->hr);
7189        if (hr == S_OK)
7190            IXMLDOMNode_Release(node);
7191        else
7192            ok(node == NULL, "%s: got %p\n", ptr->name, node);
7193        ptr++;
7194     }
7195
7196     IXMLDOMNamedNodeMap_Release(map);
7197
7198     IXMLDOMElement_Release(element);
7199     IXMLDOMDocument_Release(doc);
7200     free_bstrs();
7201 }
7202
7203 static void test_removeQualifiedItem(void)
7204 {
7205     IXMLDOMDocument *doc;
7206     IXMLDOMElement *element;
7207     IXMLDOMNode *pr_node, *node;
7208     IXMLDOMNodeList *root_list;
7209     IXMLDOMNamedNodeMap *map;
7210     VARIANT_BOOL b;
7211     LONG len;
7212     HRESULT hr;
7213
7214     doc = create_document(&IID_IXMLDOMDocument);
7215     if (!doc) return;
7216
7217     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7218     ok( hr == S_OK, "loadXML failed\n");
7219     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7220
7221     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7222     ok( hr == S_OK, "ret %08x\n", hr);
7223
7224     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7225     ok( hr == S_OK, "ret %08x\n", hr);
7226
7227     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7228     ok( hr == S_OK, "ret %08x\n", hr);
7229     IXMLDOMNodeList_Release(root_list);
7230
7231     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7232     ok( hr == S_OK, "ret %08x\n", hr);
7233     IXMLDOMNode_Release(pr_node);
7234
7235     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7236     ok( hr == S_OK, "ret %08x\n", hr);
7237     ok( len == 3, "length %d\n", len);
7238
7239     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
7240     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7241
7242     node = (void*)0xdeadbeef;
7243     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
7244     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7245     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7246
7247     /* out pointer is optional */
7248     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7249     ok( hr == S_OK, "ret %08x\n", hr);
7250
7251     /* already removed */
7252     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7253     ok( hr == S_FALSE, "ret %08x\n", hr);
7254
7255     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
7256     ok( hr == S_OK, "ret %08x\n", hr);
7257     IXMLDOMNode_Release(node);
7258
7259     IXMLDOMNamedNodeMap_Release( map );
7260     IXMLDOMElement_Release( element );
7261     IXMLDOMDocument_Release( doc );
7262     free_bstrs();
7263 }
7264
7265 #define check_default_props(doc) _check_default_props(__LINE__, doc)
7266 static inline void _check_default_props(int line, IXMLDOMDocument2* doc)
7267 {
7268     VARIANT_BOOL b;
7269     VARIANT var;
7270     HRESULT hr;
7271
7272     VariantInit(&var);
7273     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7274     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
7275     VariantClear(&var);
7276
7277     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7278     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("")) == 0, "expected empty string\n");
7279     VariantClear(&var);
7280
7281     helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7282     ok_(__FILE__, line)(b == VARIANT_FALSE, "expected FALSE\n");
7283
7284     hr = IXMLDOMDocument2_get_schemas(doc, &var);
7285     ok_(__FILE__, line)(hr == S_FALSE, "got %08x\n", hr);
7286     VariantClear(&var);
7287 }
7288
7289 #define check_set_props(doc) _check_set_props(__LINE__, doc)
7290 static inline void _check_set_props(int line, IXMLDOMDocument2* doc)
7291 {
7292     VARIANT_BOOL b;
7293     VARIANT var;
7294
7295     VariantInit(&var);
7296     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7297     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7298     VariantClear(&var);
7299
7300     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7301     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
7302     VariantClear(&var);
7303
7304     helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7305     ok_(__FILE__, line)(b == VARIANT_TRUE, "expected TRUE\n");
7306
7307     helper_ole_check(IXMLDOMDocument2_get_schemas(doc, &var));
7308     ok_(__FILE__, line)(V_VT(&var) != VT_NULL, "expected pointer\n");
7309     VariantClear(&var);
7310 }
7311
7312 #define set_props(doc, cache) _set_props(__LINE__, doc, cache)
7313 static inline void _set_props(int line, IXMLDOMDocument2* doc, IXMLDOMSchemaCollection* cache)
7314 {
7315     VARIANT var;
7316
7317     VariantInit(&var);
7318     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
7319     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'")));
7320     helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_TRUE));
7321     V_VT(&var) = VT_DISPATCH;
7322     V_DISPATCH(&var) = NULL;
7323     helper_ole_check(IXMLDOMSchemaCollection_QueryInterface(cache, &IID_IDispatch, (void**)&V_DISPATCH(&var)));
7324     ok_(__FILE__, line)(V_DISPATCH(&var) != NULL, "expected pointer\n");
7325     helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7326     VariantClear(&var);
7327 }
7328
7329 #define unset_props(doc) _unset_props(__LINE__, doc)
7330 static inline void _unset_props(int line, IXMLDOMDocument2* doc)
7331 {
7332     VARIANT var;
7333
7334     VariantInit(&var);
7335     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
7336     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("")));
7337     helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_FALSE));
7338     V_VT(&var) = VT_NULL;
7339     helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7340     VariantClear(&var);
7341 }
7342
7343 static void test_get_ownerDocument(void)
7344 {
7345     IXMLDOMDocument *doc1, *doc2, *doc3;
7346     IXMLDOMDocument2 *doc, *doc_owner;
7347     IXMLDOMNode *node;
7348     IXMLDOMSchemaCollection *cache;
7349     VARIANT_BOOL b;
7350     VARIANT var;
7351
7352     doc = create_document(&IID_IXMLDOMDocument2);
7353     cache = create_cache(&IID_IXMLDOMSchemaCollection);
7354     if (!doc || !cache)
7355     {
7356         if (doc) IXMLDOMDocument2_Release(doc);
7357         if (cache) IXMLDOMSchemaCollection_Release(cache);
7358         return;
7359     }
7360
7361     VariantInit(&var);
7362
7363     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7364     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7365
7366     check_default_props(doc);
7367
7368     /* set properties and check that new instances use them */
7369     set_props(doc, cache);
7370     check_set_props(doc);
7371
7372     ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7373     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc1));
7374
7375     /* new interface keeps props */
7376     ole_check(IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7377     ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
7378     check_set_props(doc_owner);
7379     IXMLDOMDocument2_Release(doc_owner);
7380
7381     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc2));
7382     IXMLDOMNode_Release(node);
7383
7384     ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
7385
7386     /* reload */
7387     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7388     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7389
7390     /* properties retained even after reload */
7391     check_set_props(doc);
7392
7393     ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7394     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc3));
7395     IXMLDOMNode_Release(node);
7396
7397     ole_check(IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7398     ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
7399     check_set_props(doc_owner);
7400
7401     /* changing properties for one instance changes them for all */
7402     unset_props(doc_owner);
7403     check_default_props(doc_owner);
7404     check_default_props(doc);
7405
7406     IXMLDOMSchemaCollection_Release(cache);
7407     IXMLDOMDocument_Release(doc1);
7408     IXMLDOMDocument_Release(doc2);
7409     IXMLDOMDocument_Release(doc3);
7410     IXMLDOMDocument2_Release(doc);
7411     IXMLDOMDocument2_Release(doc_owner);
7412     free_bstrs();
7413 }
7414
7415 static void test_setAttributeNode(void)
7416 {
7417     IXMLDOMDocument *doc, *doc2;
7418     IXMLDOMElement *elem, *elem2;
7419     IXMLDOMAttribute *attr, *attr2, *ret_attr;
7420     VARIANT_BOOL b;
7421     HRESULT hr;
7422     VARIANT v;
7423     BSTR str;
7424     ULONG ref1, ref2;
7425
7426     doc = create_document(&IID_IXMLDOMDocument);
7427     if (!doc) return;
7428
7429     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7430     ok( hr == S_OK, "loadXML failed\n");
7431     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7432
7433     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7434     ok( hr == S_OK, "got 0x%08x\n", hr);
7435
7436     hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
7437     ok( hr == S_OK, "got 0x%08x\n", hr);
7438     ok( elem2 != elem, "got same instance\n");
7439
7440     ret_attr = (void*)0xdeadbeef;
7441     hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
7442     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7443     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7444
7445     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7446     ok( hr == S_OK, "got 0x%08x\n", hr);
7447
7448     ref1 = IXMLDOMElement_AddRef(elem);
7449     IXMLDOMElement_Release(elem);
7450
7451     ret_attr = (void*)0xdeadbeef;
7452     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7453     ok( hr == S_OK, "got 0x%08x\n", hr);
7454     ok( ret_attr == NULL, "got %p\n", ret_attr);
7455
7456     /* no reference added */
7457     ref2 = IXMLDOMElement_AddRef(elem);
7458     IXMLDOMElement_Release(elem);
7459     ok(ref2 == ref1, "got %d, expected %d\n", ref2, ref1);
7460
7461     EXPECT_CHILDREN(elem);
7462     EXPECT_CHILDREN(elem2);
7463
7464     IXMLDOMElement_Release(elem2);
7465
7466     attr2 = NULL;
7467     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
7468     ok( hr == S_OK, "got 0x%08x\n", hr);
7469     ok( attr2 != attr, "got same instance %p\n", attr2);
7470     IXMLDOMAttribute_Release(attr2);
7471
7472     /* try to add it another time */
7473     ret_attr = (void*)0xdeadbeef;
7474     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7475     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7476     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7477
7478     IXMLDOMElement_Release(elem);
7479
7480     /* initially used element is released, attribute still 'has' a container */
7481     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7482     ok( hr == S_OK, "got 0x%08x\n", hr);
7483     ret_attr = (void*)0xdeadbeef;
7484     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7485     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7486     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7487     IXMLDOMElement_Release(elem);
7488
7489     /* add attribute already attached to another document */
7490     doc2 = create_document(&IID_IXMLDOMDocument);
7491
7492     hr = IXMLDOMDocument_loadXML( doc2, _bstr_(complete4A), &b );
7493     ok( hr == S_OK, "loadXML failed\n");
7494     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7495
7496     hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
7497     ok( hr == S_OK, "got 0x%08x\n", hr);
7498     hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
7499     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7500     IXMLDOMElement_Release(elem);
7501
7502     IXMLDOMAttribute_Release(attr);
7503
7504     /* create element, add attribute, see if it's copied or linked */
7505     hr = IXMLDOMDocument_createElement(doc, _bstr_("test"), &elem);
7506     ok( hr == S_OK, "got 0x%08x\n", hr);
7507
7508     attr = NULL;
7509     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7510     ok(hr == S_OK, "got 0x%08x\n", hr);
7511     ok(attr != NULL, "got %p\n", attr);
7512
7513     ref1 = IXMLDOMAttribute_AddRef(attr);
7514     IXMLDOMAttribute_Release(attr);
7515
7516     V_VT(&v) = VT_BSTR;
7517     V_BSTR(&v) = _bstr_("attrvalue1");
7518     hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7519     ok( hr == S_OK, "got 0x%08x\n", hr);
7520
7521     str = NULL;
7522     hr = IXMLDOMAttribute_get_xml(attr, &str);
7523     ok( hr == S_OK, "got 0x%08x\n", hr);
7524     ok( lstrcmpW(str, _bstr_("attr=\"attrvalue1\"")) == 0,
7525         "got %s\n", wine_dbgstr_w(str));
7526     SysFreeString(str);
7527
7528     ret_attr = (void*)0xdeadbeef;
7529     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7530     ok(hr == S_OK, "got 0x%08x\n", hr);
7531     ok(ret_attr == NULL, "got %p\n", ret_attr);
7532
7533     /* attribute reference increased */
7534     ref2 = IXMLDOMAttribute_AddRef(attr);
7535     IXMLDOMAttribute_Release(attr);
7536     ok(ref1 == ref2, "got %d, expected %d\n", ref2, ref1);
7537
7538     hr = IXMLDOMElement_get_xml(elem, &str);
7539     ok( hr == S_OK, "got 0x%08x\n", hr);
7540     ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue1\"/>")) == 0,
7541         "got %s\n", wine_dbgstr_w(str));
7542     SysFreeString(str);
7543
7544     V_VT(&v) = VT_BSTR;
7545     V_BSTR(&v) = _bstr_("attrvalue2");
7546     hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7547     ok( hr == S_OK, "got 0x%08x\n", hr);
7548
7549     hr = IXMLDOMElement_get_xml(elem, &str);
7550     ok( hr == S_OK, "got 0x%08x\n", hr);
7551     todo_wine ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue2\"/>")) == 0,
7552         "got %s\n", wine_dbgstr_w(str));
7553     SysFreeString(str);
7554
7555     IXMLDOMElement_Release(elem);
7556     IXMLDOMAttribute_Release(attr);
7557     IXMLDOMDocument_Release(doc2);
7558     IXMLDOMDocument_Release(doc);
7559     free_bstrs();
7560 }
7561
7562 static void test_createNode(void)
7563 {
7564     IXMLDOMDocument *doc;
7565     IXMLDOMElement *elem;
7566     IXMLDOMNode *node;
7567     VARIANT v, var;
7568     BSTR prefix, str;
7569     HRESULT hr;
7570     ULONG ref;
7571
7572     doc = create_document(&IID_IXMLDOMDocument);
7573     if (!doc) return;
7574
7575     EXPECT_REF(doc, 1);
7576
7577     /* reference count tests */
7578     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7579     ok( hr == S_OK, "got 0x%08x\n", hr);
7580
7581     /* initial reference is 2 */
7582 todo_wine {
7583     EXPECT_REF(elem, 2);
7584     ref = IXMLDOMElement_Release(elem);
7585     ok(ref == 1, "got %d\n", ref);
7586     /* it's released already, attempt to release now will crash it */
7587 }
7588
7589     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7590     ok( hr == S_OK, "got 0x%08x\n", hr);
7591     todo_wine EXPECT_REF(elem, 2);
7592     IXMLDOMDocument_Release(doc);
7593     todo_wine EXPECT_REF(elem, 2);
7594     IXMLDOMElement_Release(elem);
7595
7596     doc = create_document(&IID_IXMLDOMDocument);
7597
7598     /* NODE_ELEMENT nodes */
7599     /* 1. specified namespace */
7600     V_VT(&v) = VT_I4;
7601     V_I4(&v) = NODE_ELEMENT;
7602
7603     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
7604     ok( hr == S_OK, "got 0x%08x\n", hr);
7605     prefix = NULL;
7606     hr = IXMLDOMNode_get_prefix(node, &prefix);
7607     ok( hr == S_OK, "got 0x%08x\n", hr);
7608     ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
7609     SysFreeString(prefix);
7610     IXMLDOMNode_Release(node);
7611
7612     /* 2. default namespace */
7613     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
7614     ok( hr == S_OK, "got 0x%08x\n", hr);
7615     prefix = (void*)0xdeadbeef;
7616     hr = IXMLDOMNode_get_prefix(node, &prefix);
7617     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7618     ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
7619     /* check dump */
7620     hr = IXMLDOMNode_get_xml(node, &str);
7621     ok( hr == S_OK, "got 0x%08x\n", hr);
7622     ok( lstrcmpW(str, _bstr_("<test xmlns=\"http://winehq.org/default\"/>")) == 0,
7623         "got %s\n", wine_dbgstr_w(str));
7624     SysFreeString(str);
7625
7626     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
7627     ok( hr == S_OK, "got 0x%08x\n", hr);
7628
7629     V_VT(&var) = VT_BSTR;
7630     hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
7631     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7632     ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
7633
7634     str = NULL;
7635     hr = IXMLDOMElement_get_namespaceURI(elem, &str);
7636     ok( hr == S_OK, "got 0x%08x\n", hr);
7637     ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
7638     SysFreeString(str);
7639
7640     IXMLDOMElement_Release(elem);
7641     IXMLDOMNode_Release(node);
7642
7643     IXMLDOMDocument_Release(doc);
7644     free_bstrs();
7645 }
7646
7647 static const char get_prefix_doc[] =
7648     "<?xml version=\"1.0\" ?>"
7649     "<a xmlns:ns1=\"ns1 href\" />";
7650
7651 static void test_get_prefix(void)
7652 {
7653     IXMLDOMDocumentFragment *fragment;
7654     IXMLDOMCDATASection *cdata;
7655     IXMLDOMElement *element;
7656     IXMLDOMComment *comment;
7657     IXMLDOMDocument *doc;
7658     VARIANT_BOOL b;
7659     HRESULT hr;
7660     BSTR str;
7661
7662     doc = create_document(&IID_IXMLDOMDocument);
7663     if (!doc) return;
7664
7665     /* nodes that can't support prefix */
7666     /* 1. document */
7667     str = (void*)0xdeadbeef;
7668     hr = IXMLDOMDocument_get_prefix(doc, &str);
7669     EXPECT_HR(hr, S_FALSE);
7670     ok(str == NULL, "got %p\n", str);
7671
7672     hr = IXMLDOMDocument_get_prefix(doc, NULL);
7673     EXPECT_HR(hr, E_INVALIDARG);
7674
7675     /* 2. cdata */
7676     hr = IXMLDOMDocument_createCDATASection(doc, NULL, &cdata);
7677     ok(hr == S_OK, "got %08x\n", hr );
7678
7679     str = (void*)0xdeadbeef;
7680     hr = IXMLDOMCDATASection_get_prefix(cdata, &str);
7681     ok(hr == S_FALSE, "got %08x\n", hr);
7682     ok( str == 0, "got %p\n", str);
7683
7684     hr = IXMLDOMCDATASection_get_prefix(cdata, NULL);
7685     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7686     IXMLDOMCDATASection_Release(cdata);
7687
7688     /* 3. comment */
7689     hr = IXMLDOMDocument_createComment(doc, NULL, &comment);
7690     ok(hr == S_OK, "got %08x\n", hr );
7691
7692     str = (void*)0xdeadbeef;
7693     hr = IXMLDOMComment_get_prefix(comment, &str);
7694     ok(hr == S_FALSE, "got %08x\n", hr);
7695     ok( str == 0, "got %p\n", str);
7696
7697     hr = IXMLDOMComment_get_prefix(comment, NULL);
7698     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7699     IXMLDOMComment_Release(comment);
7700
7701     /* 4. fragment */
7702     hr = IXMLDOMDocument_createDocumentFragment(doc, &fragment);
7703     ok(hr == S_OK, "got %08x\n", hr );
7704
7705     str = (void*)0xdeadbeef;
7706     hr = IXMLDOMDocumentFragment_get_prefix(fragment, &str);
7707     ok(hr == S_FALSE, "got %08x\n", hr);
7708     ok( str == 0, "got %p\n", str);
7709
7710     hr = IXMLDOMDocumentFragment_get_prefix(fragment, NULL);
7711     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7712     IXMLDOMDocumentFragment_Release(fragment);
7713
7714     /* no prefix */
7715     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
7716     ok( hr == S_OK, "got 0x%08x\n", hr);
7717
7718     hr = IXMLDOMElement_get_prefix(element, NULL);
7719     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7720
7721     str = (void*)0xdeadbeef;
7722     hr = IXMLDOMElement_get_prefix(element, &str);
7723     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7724     ok( str == 0, "got %p\n", str);
7725
7726     IXMLDOMElement_Release(element);
7727
7728     /* with prefix */
7729     hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
7730     ok( hr == S_OK, "got 0x%08x\n", hr);
7731
7732     str = (void*)0xdeadbeef;
7733     hr = IXMLDOMElement_get_prefix(element, &str);
7734     ok( hr == S_OK, "got 0x%08x\n", hr);
7735     ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
7736     SysFreeString(str);
7737
7738     str = (void*)0xdeadbeef;
7739     hr = IXMLDOMElement_get_namespaceURI(element, &str);
7740     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7741     ok( str == 0, "got %p\n", str);
7742
7743     IXMLDOMElement_Release(element);
7744
7745     hr = IXMLDOMDocument_loadXML(doc, _bstr_(get_prefix_doc), &b);
7746     EXPECT_HR(hr, S_OK);
7747
7748     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7749     EXPECT_HR(hr, S_OK);
7750
7751     str = (void*)0xdeadbeef;
7752     hr = IXMLDOMElement_get_prefix(element, &str);
7753     EXPECT_HR(hr, S_FALSE);
7754     ok(str == NULL, "got %p\n", str);
7755
7756     str = (void*)0xdeadbeef;
7757     hr = IXMLDOMElement_get_namespaceURI(element, &str);
7758     EXPECT_HR(hr, S_FALSE);
7759     ok(str == NULL, "got %s\n", wine_dbgstr_w(str));
7760
7761     IXMLDOMDocument_Release(doc);
7762     free_bstrs();
7763 }
7764
7765 static void test_selectSingleNode(void)
7766 {
7767     IXMLDOMDocument *doc;
7768     IXMLDOMNodeList *list;
7769     IXMLDOMNode *node;
7770     VARIANT_BOOL b;
7771     HRESULT hr;
7772     LONG len;
7773
7774     doc = create_document(&IID_IXMLDOMDocument);
7775     if (!doc) return;
7776
7777     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7778     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7779
7780     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7781     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7782
7783     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7784     ok( hr == S_OK, "loadXML failed\n");
7785     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7786
7787     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7788     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7789
7790     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7791     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7792
7793     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
7794     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7795
7796     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
7797     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7798
7799     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
7800     ok(hr == S_OK, "got 0x%08x\n", hr);
7801     IXMLDOMNode_Release(node);
7802
7803     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
7804     ok(hr == S_OK, "got 0x%08x\n", hr);
7805     IXMLDOMNodeList_Release(list);
7806
7807     list = (void*)0xdeadbeef;
7808     hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
7809     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7810     ok(list == (void*)0xdeadbeef, "got %p\n", list);
7811
7812     node = (void*)0xdeadbeef;
7813     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
7814     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7815     ok(node == 0, "got %p\n", node);
7816
7817     list = (void*)0xdeadbeef;
7818     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
7819     ok(hr == S_OK, "got 0x%08x\n", hr);
7820     len = 1;
7821     hr = IXMLDOMNodeList_get_length(list, &len);
7822     ok(hr == S_OK, "got 0x%08x\n", hr);
7823     ok(len == 0, "got %d\n", len);
7824     IXMLDOMNodeList_Release(list);
7825
7826     IXMLDOMDocument_Release(doc);
7827     free_bstrs();
7828 }
7829
7830 static void test_events(void)
7831 {
7832     IConnectionPointContainer *conn;
7833     IConnectionPoint *point;
7834     IXMLDOMDocument *doc;
7835     HRESULT hr;
7836     VARIANT v;
7837     IDispatch *event;
7838
7839     doc = create_document(&IID_IXMLDOMDocument);
7840     if (!doc) return;
7841
7842     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&conn);
7843     ok(hr == S_OK, "got 0x%08x\n", hr);
7844
7845     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IDispatch, &point);
7846     ok(hr == S_OK, "got 0x%08x\n", hr);
7847     IConnectionPoint_Release(point);
7848     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IPropertyNotifySink, &point);
7849     ok(hr == S_OK, "got 0x%08x\n", hr);
7850     IConnectionPoint_Release(point);
7851     hr = IConnectionPointContainer_FindConnectionPoint(conn, &DIID_XMLDOMDocumentEvents, &point);
7852     ok(hr == S_OK, "got 0x%08x\n", hr);
7853     IConnectionPoint_Release(point);
7854
7855     IConnectionPointContainer_Release(conn);
7856
7857     /* ready state callback */
7858     VariantInit(&v);
7859     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7860     ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
7861
7862     event = create_dispevent();
7863     V_VT(&v) = VT_UNKNOWN;
7864     V_UNKNOWN(&v) = (IUnknown*)event;
7865
7866     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7867     ok(hr == S_OK, "got 0x%08x\n", hr);
7868     EXPECT_REF(event, 2);
7869
7870     V_VT(&v) = VT_DISPATCH;
7871     V_DISPATCH(&v) = event;
7872
7873     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7874     ok(hr == S_OK, "got 0x%08x\n", hr);
7875     EXPECT_REF(event, 2);
7876
7877     /* VT_NULL doesn't reset event handler */
7878     V_VT(&v) = VT_NULL;
7879     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7880     ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
7881     EXPECT_REF(event, 2);
7882
7883     V_VT(&v) = VT_DISPATCH;
7884     V_DISPATCH(&v) = NULL;
7885
7886     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7887     ok(hr == S_OK, "got 0x%08x\n", hr);
7888     EXPECT_REF(event, 1);
7889
7890     V_VT(&v) = VT_UNKNOWN;
7891     V_DISPATCH(&v) = NULL;
7892     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7893     ok(hr == S_OK, "got 0x%08x\n", hr);
7894
7895     IDispatch_Release(event);
7896
7897     IXMLDOMDocument_Release(doc);
7898 }
7899
7900 static void test_createProcessingInstruction(void)
7901 {
7902     static const WCHAR bodyW[] = {'t','e','s','t',0};
7903     IXMLDOMProcessingInstruction *pi;
7904     IXMLDOMDocument *doc;
7905     WCHAR buff[10];
7906     HRESULT hr;
7907
7908     doc = create_document(&IID_IXMLDOMDocument);
7909     if (!doc) return;
7910
7911     /* test for BSTR handling, pass broken BSTR */
7912     memcpy(&buff[2], bodyW, sizeof(bodyW));
7913     /* just a big length */
7914     *(DWORD*)buff = 0xf0f0;
7915     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("test"), &buff[2], &pi);
7916     ok(hr == S_OK, "got 0x%08x\n", hr);
7917
7918     IXMLDOMProcessingInstruction_Release(pi);
7919     IXMLDOMDocument_Release(doc);
7920 }
7921
7922 static void test_put_nodeTypedValue(void)
7923 {
7924     static const BYTE binhexdata[16] =
7925         {0,1,2,3,4,5,6,7,8,9,0xa,0xb,0xc,0xd,0xe,0xf};
7926     IXMLDOMDocument *doc;
7927     IXMLDOMElement *elem;
7928     VARIANT type, value;
7929     LONG ubound, lbound;
7930     IXMLDOMNode *node;
7931     SAFEARRAY *array;
7932     HRESULT hr;
7933     BYTE *ptr;
7934     BSTR str;
7935
7936     doc = create_document(&IID_IXMLDOMDocument);
7937     if (!doc) return;
7938
7939     hr = IXMLDOMDocument_createElement(doc, _bstr_("Element"), &elem);
7940     EXPECT_HR(hr, S_OK);
7941
7942     V_VT(&type) = VT_EMPTY;
7943     hr = IXMLDOMElement_get_dataType(elem, &type);
7944     EXPECT_HR(hr, S_FALSE);
7945     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
7946
7947     /* set typed value for untyped node */
7948     V_VT(&type) = VT_I1;
7949     V_I1(&type) = 1;
7950     hr = IXMLDOMElement_put_nodeTypedValue(elem, type);
7951     EXPECT_HR(hr, S_OK);
7952
7953     V_VT(&type) = VT_EMPTY;
7954     hr = IXMLDOMElement_get_dataType(elem, &type);
7955     EXPECT_HR(hr, S_FALSE);
7956     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
7957
7958     /* no type info stored */
7959     V_VT(&type) = VT_EMPTY;
7960     hr = IXMLDOMElement_get_nodeTypedValue(elem, &type);
7961     EXPECT_HR(hr, S_OK);
7962     ok(V_VT(&type) == VT_BSTR, "got %d, expected VT_BSTR\n", V_VT(&type));
7963     ok(memcmp(V_BSTR(&type), _bstr_("1"), 2*sizeof(WCHAR)) == 0,
7964        "got %s, expected \"1\"\n", wine_dbgstr_w(V_BSTR(&type)));
7965     VariantClear(&type);
7966
7967     hr = IXMLDOMElement_get_firstChild(elem, &node);
7968     EXPECT_HR(hr, S_OK);
7969     hr = IXMLDOMElement_removeChild(elem, node, NULL);
7970     EXPECT_HR(hr, S_OK);
7971     IXMLDOMNode_Release(node);
7972
7973     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)elem, NULL);
7974     EXPECT_HR(hr, S_OK);
7975
7976     /* bin.base64 */
7977     hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.base64"));
7978     EXPECT_HR(hr, S_OK);
7979
7980     V_VT(&value) = VT_BSTR;
7981     V_BSTR(&value) = _bstr_("ABCD");
7982     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
7983     EXPECT_HR(hr, S_OK);
7984
7985     V_VT(&value) = VT_EMPTY;
7986     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
7987     EXPECT_HR(hr, S_OK);
7988     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
7989     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
7990     ubound = 0;
7991     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
7992     EXPECT_HR(hr, S_OK);
7993     ok(ubound == 2, "got %d\n", ubound);
7994     lbound = 0;
7995     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
7996     EXPECT_HR(hr, S_OK);
7997     ok(lbound == 0, "got %d\n", lbound);
7998     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
7999     EXPECT_HR(hr, S_OK);
8000     ok(ptr[0] == 0, "got %x\n", ptr[0]);
8001     ok(ptr[1] == 0x10, "got %x\n", ptr[1]);
8002     ok(ptr[2] == 0x83, "got %x\n", ptr[2]);
8003     SafeArrayUnaccessData(V_ARRAY(&value));
8004     VariantClear(&value);
8005
8006     /* when set as VT_BSTR it's stored as is */
8007     hr = IXMLDOMElement_get_firstChild(elem, &node);
8008     EXPECT_HR(hr, S_OK);
8009     hr = IXMLDOMNode_get_text(node, &str);
8010     EXPECT_HR(hr, S_OK);
8011     ok(!lstrcmpW(str, _bstr_("ABCD")), "%s\n", wine_dbgstr_w(str));
8012     IXMLDOMNode_Release(node);
8013
8014     array = SafeArrayCreateVector(VT_UI1, 0, 7);
8015     hr = SafeArrayAccessData(array, (void*)&ptr);
8016     EXPECT_HR(hr, S_OK);
8017     memcpy(ptr, "dGVzdA=", strlen("dGVzdA="));
8018     SafeArrayUnaccessData(array);
8019
8020     V_VT(&value) = VT_UI1|VT_ARRAY;
8021     V_ARRAY(&value) = array;
8022     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8023     EXPECT_HR(hr, S_OK);
8024
8025     V_VT(&value) = VT_EMPTY;
8026     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8027     EXPECT_HR(hr, S_OK);
8028     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8029     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8030     ubound = 0;
8031     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8032     EXPECT_HR(hr, S_OK);
8033     ok(ubound == 6, "got %d\n", ubound);
8034     lbound = 0;
8035     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8036     EXPECT_HR(hr, S_OK);
8037     ok(lbound == 0, "got %d\n", lbound);
8038     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8039     EXPECT_HR(hr, S_OK);
8040     ok(!memcmp(ptr, "dGVzdA=", strlen("dGVzdA=")), "got wrong data, %s\n", ptr);
8041     SafeArrayUnaccessData(V_ARRAY(&value));
8042     VariantClear(&value);
8043
8044     /* if set with VT_UI1|VT_ARRAY it's encoded */
8045     hr = IXMLDOMElement_get_firstChild(elem, &node);
8046     EXPECT_HR(hr, S_OK);
8047     hr = IXMLDOMNode_get_text(node, &str);
8048     EXPECT_HR(hr, S_OK);
8049     ok(!lstrcmpW(str, _bstr_("ZEdWemRBPQ==")), "%s\n", wine_dbgstr_w(str));
8050     IXMLDOMNode_Release(node);
8051     SafeArrayDestroyData(array);
8052
8053     /* bin.hex */
8054     V_VT(&value) = VT_BSTR;
8055     V_BSTR(&value) = _bstr_("");
8056     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8057     EXPECT_HR(hr, S_OK);
8058
8059     hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.hex"));
8060     EXPECT_HR(hr, S_OK);
8061
8062     array = SafeArrayCreateVector(VT_UI1, 0, 16);
8063     hr = SafeArrayAccessData(array, (void*)&ptr);
8064     EXPECT_HR(hr, S_OK);
8065     memcpy(ptr, binhexdata, sizeof(binhexdata));
8066     SafeArrayUnaccessData(array);
8067
8068     V_VT(&value) = VT_UI1|VT_ARRAY;
8069     V_ARRAY(&value) = array;
8070     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8071     EXPECT_HR(hr, S_OK);
8072
8073     V_VT(&value) = VT_EMPTY;
8074     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8075     EXPECT_HR(hr, S_OK);
8076     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8077     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8078     ubound = 0;
8079     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8080     EXPECT_HR(hr, S_OK);
8081     ok(ubound == 15, "got %d\n", ubound);
8082     lbound = 0;
8083     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8084     EXPECT_HR(hr, S_OK);
8085     ok(lbound == 0, "got %d\n", lbound);
8086     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8087     EXPECT_HR(hr, S_OK);
8088     ok(!memcmp(ptr, binhexdata, sizeof(binhexdata)), "got wrong data\n");
8089     SafeArrayUnaccessData(V_ARRAY(&value));
8090     VariantClear(&value);
8091
8092     /* if set with VT_UI1|VT_ARRAY it's encoded */
8093     hr = IXMLDOMElement_get_firstChild(elem, &node);
8094     EXPECT_HR(hr, S_OK);
8095     hr = IXMLDOMNode_get_text(node, &str);
8096     EXPECT_HR(hr, S_OK);
8097     ok(!lstrcmpW(str, _bstr_("000102030405060708090a0b0c0d0e0f")), "%s\n", wine_dbgstr_w(str));
8098     IXMLDOMNode_Release(node);
8099     SafeArrayDestroyData(array);
8100
8101     IXMLDOMElement_Release(elem);
8102     IXMLDOMDocument_Release(doc);
8103     free_bstrs();
8104 }
8105
8106 static void test_get_xml(void)
8107 {
8108     static const char xmlA[] = "<?xml version=\"1.0\" encoding=\"UTF-16\"?>\r\n<a>test</a>\r\n";
8109     static const char attrA[] = "attr=\"&quot;a &amp; b&quot;\"";
8110     static const char attr2A[] = "\"a & b\"";
8111     static const char attr3A[] = "attr=\"&amp;quot;a\"";
8112     static const char attr4A[] = "&quot;a";
8113     static const char fooA[] = "<foo/>";
8114     IXMLDOMProcessingInstruction *pi;
8115     IXMLDOMNode *first;
8116     IXMLDOMElement *elem = NULL;
8117     IXMLDOMAttribute *attr;
8118     IXMLDOMDocument *doc;
8119     VARIANT_BOOL b;
8120     VARIANT v;
8121     BSTR xml;
8122     HRESULT hr;
8123
8124     doc = create_document(&IID_IXMLDOMDocument);
8125     if (!doc) return;
8126
8127     b = VARIANT_TRUE;
8128     hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8129     ok(hr == S_OK, "got 0x%08x\n", hr);
8130     ok( b == VARIANT_TRUE, "got %d\n", b);
8131
8132     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"),
8133                              _bstr_("version=\"1.0\" encoding=\"UTF-16\""), &pi);
8134     ok(hr == S_OK, "got 0x%08x\n", hr);
8135
8136     hr = IXMLDOMDocument_get_firstChild(doc, &first);
8137     ok(hr == S_OK, "got 0x%08x\n", hr);
8138
8139     V_UNKNOWN(&v) = (IUnknown*)first;
8140     V_VT(&v) = VT_UNKNOWN;
8141
8142     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)pi, v, NULL);
8143     ok(hr == S_OK, "got 0x%08x\n", hr);
8144
8145     IXMLDOMProcessingInstruction_Release(pi);
8146     IXMLDOMNode_Release(first);
8147
8148     hr = IXMLDOMDocument_get_xml(doc, &xml);
8149     ok(hr == S_OK, "got 0x%08x\n", hr);
8150
8151     ok(memcmp(xml, _bstr_(xmlA), sizeof(xmlA)*sizeof(WCHAR)) == 0,
8152         "got %s, expected %s\n", wine_dbgstr_w(xml), xmlA);
8153     SysFreeString(xml);
8154
8155     IXMLDOMDocument_Release(doc);
8156
8157     doc = create_document(&IID_IXMLDOMDocument);
8158
8159     hr = IXMLDOMDocument_createElement(doc, _bstr_("foo"), &elem);
8160     ok(hr == S_OK, "got 0x%08x\n", hr);
8161
8162     hr = IXMLDOMDocument_putref_documentElement(doc, elem);
8163     ok(hr == S_OK, "got 0x%08x\n", hr);
8164
8165     hr = IXMLDOMDocument_get_xml(doc, &xml);
8166     ok(hr == S_OK, "got 0x%08x\n", hr);
8167
8168     ok(memcmp(xml, _bstr_(fooA), (sizeof(fooA)-1)*sizeof(WCHAR)) == 0,
8169         "got %s, expected %s\n", wine_dbgstr_w(xml), fooA);
8170     SysFreeString(xml);
8171
8172     IXMLDOMElement_Release(elem);
8173
8174     /* attribute node */
8175     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
8176     ok(hr == S_OK, "got 0x%08x\n", hr);
8177
8178     V_VT(&v) = VT_BSTR;
8179     V_BSTR(&v) = _bstr_("\"a & b\"");
8180     hr = IXMLDOMAttribute_put_value(attr, v);
8181     ok(hr == S_OK, "got 0x%08x\n", hr);
8182
8183     xml = NULL;
8184     hr = IXMLDOMAttribute_get_xml(attr, &xml);
8185     ok(hr == S_OK, "got 0x%08x\n", hr);
8186     ok(!memcmp(xml, _bstr_(attrA), (sizeof(attrA)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8187     SysFreeString(xml);
8188
8189     VariantInit(&v);
8190     hr = IXMLDOMAttribute_get_value(attr, &v);
8191     ok(hr == S_OK, "got 0x%08x\n", hr);
8192     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8193     ok(!memcmp(V_BSTR(&v), _bstr_(attr2A), (sizeof(attr2A)-1)*sizeof(WCHAR)),
8194         "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8195     VariantClear(&v);
8196
8197     V_VT(&v) = VT_BSTR;
8198     V_BSTR(&v) = _bstr_("&quot;a");
8199     hr = IXMLDOMAttribute_put_value(attr, v);
8200     ok(hr == S_OK, "got 0x%08x\n", hr);
8201
8202     xml = NULL;
8203     hr = IXMLDOMAttribute_get_xml(attr, &xml);
8204     ok(hr == S_OK, "got 0x%08x\n", hr);
8205     ok(!memcmp(xml, _bstr_(attr3A), (sizeof(attr3A)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8206     SysFreeString(xml);
8207
8208     VariantInit(&v);
8209     hr = IXMLDOMAttribute_get_value(attr, &v);
8210     ok(hr == S_OK, "got 0x%08x\n", hr);
8211     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8212     ok(!memcmp(V_BSTR(&v), _bstr_(attr4A), (sizeof(attr4A)-1)*sizeof(WCHAR)),
8213         "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8214     VariantClear(&v);
8215
8216     IXMLDOMAttribute_Release(attr);
8217
8218     IXMLDOMDocument_Release(doc);
8219
8220     free_bstrs();
8221 }
8222
8223 static void test_xsltemplate(void)
8224 {
8225     IXSLTemplate *template;
8226     IXSLProcessor *processor;
8227     IXMLDOMDocument *doc, *doc2;
8228     IStream *stream;
8229     VARIANT_BOOL b;
8230     HRESULT hr;
8231     ULONG ref1, ref2;
8232     VARIANT v;
8233
8234     template = create_xsltemplate(&IID_IXSLTemplate);
8235     if (!template) return;
8236
8237     /* works as reset */
8238     hr = IXSLTemplate_putref_stylesheet(template, NULL);
8239     ok(hr == S_OK, "got 0x%08x\n", hr);
8240
8241     doc = create_document(&IID_IXMLDOMDocument);
8242
8243     b = VARIANT_TRUE;
8244     hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8245     ok(hr == S_OK, "got 0x%08x\n", hr);
8246     ok( b == VARIANT_TRUE, "got %d\n", b);
8247
8248     /* putref with non-xsl document */
8249     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8250     todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8251
8252     b = VARIANT_TRUE;
8253     hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8254     ok(hr == S_OK, "got 0x%08x\n", hr);
8255     ok( b == VARIANT_TRUE, "got %d\n", b);
8256
8257     /* not a freethreaded document */
8258     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8259     todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8260
8261     IXMLDOMDocument_Release(doc);
8262
8263     hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
8264     if (hr != S_OK)
8265     {
8266         win_skip("failed to create free threaded document instance: 0x%08x\n", hr);
8267         IXSLTemplate_Release(template);
8268         return;
8269     }
8270
8271     b = VARIANT_TRUE;
8272     hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8273     ok(hr == S_OK, "got 0x%08x\n", hr);
8274     ok( b == VARIANT_TRUE, "got %d\n", b);
8275
8276     /* freethreaded document */
8277     ref1 = IXMLDOMDocument_AddRef(doc);
8278     IXMLDOMDocument_Release(doc);
8279     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8280     ok(hr == S_OK, "got 0x%08x\n", hr);
8281     ref2 = IXMLDOMDocument_AddRef(doc);
8282     IXMLDOMDocument_Release(doc);
8283     ok(ref2 > ref1, "got %d\n", ref2);
8284
8285     /* processor */
8286     hr = IXSLTemplate_createProcessor(template, NULL);
8287     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8288
8289     EXPECT_REF(template, 1);
8290     hr = IXSLTemplate_createProcessor(template, &processor);
8291     ok(hr == S_OK, "got 0x%08x\n", hr);
8292     EXPECT_REF(template, 2);
8293
8294     /* input no set yet */
8295     V_VT(&v) = VT_BSTR;
8296     V_BSTR(&v) = NULL;
8297     hr = IXSLProcessor_get_input(processor, &v);
8298 todo_wine {
8299     ok(hr == S_OK, "got 0x%08x\n", hr);
8300     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
8301 }
8302
8303     hr = IXSLProcessor_get_output(processor, NULL);
8304     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8305
8306     /* reset before it was set */
8307     V_VT(&v) = VT_EMPTY;
8308     hr = IXSLProcessor_put_output(processor, v);
8309     ok(hr == S_OK, "got 0x%08x\n", hr);
8310
8311     CreateStreamOnHGlobal(NULL, TRUE, &stream);
8312     EXPECT_REF(stream, 1);
8313
8314     V_VT(&v) = VT_UNKNOWN;
8315     V_UNKNOWN(&v) = (IUnknown*)stream;
8316     hr = IXSLProcessor_put_output(processor, v);
8317     ok(hr == S_OK, "got 0x%08x\n", hr);
8318
8319     /* it seems processor grabs 2 references */
8320     todo_wine EXPECT_REF(stream, 3);
8321
8322     V_VT(&v) = VT_EMPTY;
8323     hr = IXSLProcessor_get_output(processor, &v);
8324     ok(hr == S_OK, "got 0x%08x\n", hr);
8325     ok(V_VT(&v) == VT_UNKNOWN, "got type %d\n", V_VT(&v));
8326     ok(V_UNKNOWN(&v) == (IUnknown*)stream, "got %p\n", V_UNKNOWN(&v));
8327
8328     todo_wine EXPECT_REF(stream, 4);
8329     VariantClear(&v);
8330
8331     hr = IXSLProcessor_transform(processor, NULL);
8332     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8333
8334     /* reset and check stream refcount */
8335     V_VT(&v) = VT_EMPTY;
8336     hr = IXSLProcessor_put_output(processor, v);
8337     ok(hr == S_OK, "got 0x%08x\n", hr);
8338
8339     EXPECT_REF(stream, 1);
8340
8341     IStream_Release(stream);
8342
8343     /* no output interface set, check output */
8344     doc2 = create_document(&IID_IXMLDOMDocument);
8345
8346     b = VARIANT_TRUE;
8347     hr = IXMLDOMDocument_loadXML( doc2, _bstr_("<a>test</a>"), &b );
8348     ok(hr == S_OK, "got 0x%08x\n", hr);
8349     ok( b == VARIANT_TRUE, "got %d\n", b);
8350
8351     V_VT(&v) = VT_UNKNOWN;
8352     V_UNKNOWN(&v) = (IUnknown*)doc2;
8353     hr = IXSLProcessor_put_input(processor, v);
8354     ok(hr == S_OK, "got 0x%08x\n", hr);
8355
8356     hr = IXSLProcessor_transform(processor, &b);
8357     ok(hr == S_OK, "got 0x%08x\n", hr);
8358
8359     V_VT(&v) = VT_EMPTY;
8360     hr = IXSLProcessor_get_output(processor, &v);
8361     ok(hr == S_OK, "got 0x%08x\n", hr);
8362     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8363     ok(lstrcmpW(V_BSTR(&v), _bstr_("")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8364     IXMLDOMDocument_Release(doc2);
8365     VariantClear(&v);
8366
8367     IXSLProcessor_Release(processor);
8368
8369     /* drop reference */
8370     hr = IXSLTemplate_putref_stylesheet(template, NULL);
8371     ok(hr == S_OK, "got 0x%08x\n", hr);
8372     ref2 = IXMLDOMDocument_AddRef(doc);
8373     IXMLDOMDocument_Release(doc);
8374     ok(ref2 == ref1, "got %d\n", ref2);
8375
8376     IXMLDOMDocument_Release(doc);
8377     IXSLTemplate_Release(template);
8378     free_bstrs();
8379 }
8380
8381 static void test_insertBefore(void)
8382 {
8383     IXMLDOMDocument *doc, *doc2, *doc3;
8384     IXMLDOMAttribute *attr;
8385     IXMLDOMElement *elem1, *elem2, *elem3, *elem4, *elem5;
8386     IXMLDOMNode *node, *newnode, *cdata;
8387     HRESULT hr;
8388     VARIANT v;
8389     BSTR p;
8390
8391     doc = create_document(&IID_IXMLDOMDocument);
8392     doc3 = create_document(&IID_IXMLDOMDocument);
8393
8394     /* document to document */
8395     V_VT(&v) = VT_NULL;
8396     node = (void*)0xdeadbeef;
8397     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc3, v, &node);
8398     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8399     ok(node == NULL, "got %p\n", node);
8400
8401     /* document to itself */
8402     V_VT(&v) = VT_NULL;
8403     node = (void*)0xdeadbeef;
8404     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc, v, &node);
8405     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8406     ok(node == NULL, "got %p\n", node);
8407
8408     /* insertBefore behaviour for attribute node */
8409     V_VT(&v) = VT_I4;
8410     V_I4(&v) = NODE_ATTRIBUTE;
8411
8412     attr = NULL;
8413     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr"), NULL, (IXMLDOMNode**)&attr);
8414     ok(hr == S_OK, "got 0x%08x\n", hr);
8415     ok(attr != NULL, "got %p\n", attr);
8416
8417     /* attribute to document */
8418     V_VT(&v) = VT_NULL;
8419     node = (void*)0xdeadbeef;
8420     hr = IXMLDOMDocument_insertBefore(doc3, (IXMLDOMNode*)attr, v, &node);
8421     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8422     ok(node == NULL, "got %p\n", node);
8423
8424     /* cdata to document */
8425     V_VT(&v) = VT_I4;
8426     V_I4(&v) = NODE_CDATA_SECTION;
8427
8428     cdata = NULL;
8429     hr = IXMLDOMDocument_createNode(doc3, v, _bstr_("cdata"), NULL, &cdata);
8430     ok(hr == S_OK, "got 0x%08x\n", hr);
8431     ok(cdata != NULL, "got %p\n", cdata);
8432
8433     EXPECT_NO_CHILDREN(cdata);
8434
8435     /* attribute to cdata */
8436     V_VT(&v) = VT_NULL;
8437     node = (void*)0xdeadbeef;
8438     hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)attr, v, &node);
8439     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8440     ok(node == NULL, "got %p\n", node);
8441
8442     /* document to cdata */
8443     V_VT(&v) = VT_NULL;
8444     node = (void*)0xdeadbeef;
8445     hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)doc, v, &node);
8446     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8447     ok(node == NULL, "got %p\n", node);
8448
8449     V_VT(&v) = VT_NULL;
8450     node = (void*)0xdeadbeef;
8451     hr = IXMLDOMDocument_insertBefore(doc3, cdata, v, &node);
8452     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8453     ok(node == NULL, "got %p\n", node);
8454
8455     IXMLDOMNode_Release(cdata);
8456     IXMLDOMDocument_Release(doc3);
8457
8458     /* attribute to attribute */
8459     V_VT(&v) = VT_I4;
8460     V_I4(&v) = NODE_ATTRIBUTE;
8461     newnode = NULL;
8462     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr2"), NULL, &newnode);
8463     ok(hr == S_OK, "got 0x%08x\n", hr);
8464     ok(newnode != NULL, "got %p\n", newnode);
8465
8466     V_VT(&v) = VT_NULL;
8467     node = (void*)0xdeadbeef;
8468     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8469     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8470     ok(node == NULL, "got %p\n", node);
8471
8472     V_VT(&v) = VT_UNKNOWN;
8473     V_UNKNOWN(&v) = (IUnknown*)attr;
8474     node = (void*)0xdeadbeef;
8475     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8476     todo_wine ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8477     ok(node == NULL, "got %p\n", node);
8478     IXMLDOMNode_Release(newnode);
8479
8480     /* cdata to attribute */
8481     V_VT(&v) = VT_I4;
8482     V_I4(&v) = NODE_CDATA_SECTION;
8483     newnode = NULL;
8484     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8485     ok(hr == S_OK, "got 0x%08x\n", hr);
8486     ok(newnode != NULL, "got %p\n", newnode);
8487
8488     V_VT(&v) = VT_NULL;
8489     node = (void*)0xdeadbeef;
8490     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8491     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8492     ok(node == NULL, "got %p\n", node);
8493     IXMLDOMNode_Release(newnode);
8494
8495     /* comment to attribute */
8496     V_VT(&v) = VT_I4;
8497     V_I4(&v) = NODE_COMMENT;
8498     newnode = NULL;
8499     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8500     ok(hr == S_OK, "got 0x%08x\n", hr);
8501     ok(newnode != NULL, "got %p\n", newnode);
8502
8503     V_VT(&v) = VT_NULL;
8504     node = (void*)0xdeadbeef;
8505     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8506     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8507     ok(node == NULL, "got %p\n", node);
8508     IXMLDOMNode_Release(newnode);
8509
8510     /* element to attribute */
8511     V_VT(&v) = VT_I4;
8512     V_I4(&v) = NODE_ELEMENT;
8513     newnode = NULL;
8514     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8515     ok(hr == S_OK, "got 0x%08x\n", hr);
8516     ok(newnode != NULL, "got %p\n", newnode);
8517
8518     V_VT(&v) = VT_NULL;
8519     node = (void*)0xdeadbeef;
8520     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8521     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8522     ok(node == NULL, "got %p\n", node);
8523     IXMLDOMNode_Release(newnode);
8524
8525     /* pi to attribute */
8526     V_VT(&v) = VT_I4;
8527     V_I4(&v) = NODE_PROCESSING_INSTRUCTION;
8528     newnode = NULL;
8529     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8530     ok(hr == S_OK, "got 0x%08x\n", hr);
8531     ok(newnode != NULL, "got %p\n", newnode);
8532
8533     V_VT(&v) = VT_NULL;
8534     node = (void*)0xdeadbeef;
8535     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8536     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8537     ok(node == NULL, "got %p\n", node);
8538     IXMLDOMNode_Release(newnode);
8539     IXMLDOMAttribute_Release(attr);
8540
8541     /* insertBefore for elements */
8542     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem1);
8543     ok(hr == S_OK, "got 0x%08x\n", hr);
8544
8545     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem2"), &elem2);
8546     ok(hr == S_OK, "got 0x%08x\n", hr);
8547
8548     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8549     ok(hr == S_OK, "got 0x%08x\n", hr);
8550
8551     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8552     ok(hr == S_OK, "got 0x%08x\n", hr);
8553
8554     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem4"), &elem4);
8555     ok(hr == S_OK, "got 0x%08x\n", hr);
8556
8557     EXPECT_NO_CHILDREN(elem1);
8558     EXPECT_NO_CHILDREN(elem2);
8559     EXPECT_NO_CHILDREN(elem3);
8560
8561     todo_wine EXPECT_REF(elem2, 2);
8562
8563     /* document to element */
8564     V_VT(&v) = VT_DISPATCH;
8565     V_DISPATCH(&v) = NULL;
8566     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)doc, v, NULL);
8567     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8568
8569     V_VT(&v) = VT_DISPATCH;
8570     V_DISPATCH(&v) = NULL;
8571     node = NULL;
8572     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem4, v, &node);
8573     ok(hr == S_OK, "got 0x%08x\n", hr);
8574     ok(node == (void*)elem4, "got %p\n", node);
8575
8576     EXPECT_CHILDREN(elem1);
8577     hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem4, NULL);
8578     EXPECT_HR(hr, S_OK);
8579     IXMLDOMElement_Release(elem4);
8580
8581     EXPECT_NO_CHILDREN(elem1);
8582
8583     V_VT(&v) = VT_NULL;
8584     node = NULL;
8585     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8586     ok(hr == S_OK, "got 0x%08x\n", hr);
8587     ok(node == (void*)elem2, "got %p\n", node);
8588
8589     EXPECT_CHILDREN(elem1);
8590     todo_wine EXPECT_REF(elem2, 3);
8591     IXMLDOMNode_Release(node);
8592
8593     /* again for already linked node */
8594     V_VT(&v) = VT_NULL;
8595     node = NULL;
8596     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8597     ok(hr == S_OK, "got 0x%08x\n", hr);
8598     ok(node == (void*)elem2, "got %p\n", node);
8599
8600     EXPECT_CHILDREN(elem1);
8601
8602     /* increments each time */
8603     todo_wine EXPECT_REF(elem2, 3);
8604     IXMLDOMNode_Release(node);
8605
8606     /* try to add to another element */
8607     V_VT(&v) = VT_NULL;
8608     node = (void*)0xdeadbeef;
8609     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem2, v, &node);
8610     ok(hr == S_OK, "got 0x%08x\n", hr);
8611     ok(node == (void*)elem2, "got %p\n", node);
8612
8613     EXPECT_CHILDREN(elem3);
8614     EXPECT_NO_CHILDREN(elem1);
8615
8616     IXMLDOMNode_Release(node);
8617
8618     /* cross document case - try to add as child to a node created with other doc */
8619     doc2 = create_document(&IID_IXMLDOMDocument);
8620
8621     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem4);
8622     ok(hr == S_OK, "got 0x%08x\n", hr);
8623     todo_wine EXPECT_REF(elem4, 2);
8624
8625     /* same name, another instance */
8626     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem5);
8627     ok(hr == S_OK, "got 0x%08x\n", hr);
8628     todo_wine EXPECT_REF(elem5, 2);
8629
8630     todo_wine EXPECT_REF(elem3, 2);
8631     V_VT(&v) = VT_NULL;
8632     node = NULL;
8633     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem4, v, &node);
8634     ok(hr == S_OK, "got 0x%08x\n", hr);
8635     ok(node == (void*)elem4, "got %p\n", node);
8636     todo_wine EXPECT_REF(elem4, 3);
8637     todo_wine EXPECT_REF(elem3, 2);
8638     IXMLDOMNode_Release(node);
8639
8640     V_VT(&v) = VT_NULL;
8641     node = NULL;
8642     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem5, v, &node);
8643     ok(hr == S_OK, "got 0x%08x\n", hr);
8644     ok(node == (void*)elem5, "got %p\n", node);
8645     todo_wine EXPECT_REF(elem4, 2);
8646     todo_wine EXPECT_REF(elem5, 3);
8647     IXMLDOMNode_Release(node);
8648
8649     IXMLDOMDocument_Release(doc2);
8650
8651     IXMLDOMElement_Release(elem1);
8652     IXMLDOMElement_Release(elem2);
8653     IXMLDOMElement_Release(elem3);
8654     IXMLDOMElement_Release(elem4);
8655     IXMLDOMElement_Release(elem5);
8656
8657     /* elements with same default namespace */
8658     V_VT(&v) = VT_I4;
8659     V_I4(&v) = NODE_ELEMENT;
8660     elem1 = NULL;
8661     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8662     ok(hr == S_OK, "got 0x%08x\n", hr);
8663     ok(elem1 != NULL, "got %p\n", elem1);
8664
8665     V_VT(&v) = VT_I4;
8666     V_I4(&v) = NODE_ELEMENT;
8667     elem2 = NULL;
8668     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem2);
8669     ok(hr == S_OK, "got 0x%08x\n", hr);
8670     ok(elem2 != NULL, "got %p\n", elem2);
8671
8672     /* check contents so far */
8673     p = NULL;
8674     hr = IXMLDOMElement_get_xml(elem1, &p);
8675     ok(hr == S_OK, "got 0x%08x\n", hr);
8676     ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8677     SysFreeString(p);
8678
8679     p = NULL;
8680     hr = IXMLDOMElement_get_xml(elem2, &p);
8681     ok(hr == S_OK, "got 0x%08x\n", hr);
8682     ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8683     SysFreeString(p);
8684
8685     V_VT(&v) = VT_NULL;
8686     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8687     ok(hr == S_OK, "got 0x%08x\n", hr);
8688
8689     /* get_xml depends on context, for top node it omits child namespace attribute,
8690        but at child level it's still returned */
8691     p = NULL;
8692     hr = IXMLDOMElement_get_xml(elem1, &p);
8693     ok(hr == S_OK, "got 0x%08x\n", hr);
8694     todo_wine ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"><elem2/></elem1>")),
8695         "got %s\n", wine_dbgstr_w(p));
8696     SysFreeString(p);
8697
8698     p = NULL;
8699     hr = IXMLDOMElement_get_xml(elem2, &p);
8700     ok(hr == S_OK, "got 0x%08x\n", hr);
8701     ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8702     SysFreeString(p);
8703
8704     IXMLDOMElement_Release(elem1);
8705     IXMLDOMElement_Release(elem2);
8706
8707     /* child without default namespace added to node with default namespace */
8708     V_VT(&v) = VT_I4;
8709     V_I4(&v) = NODE_ELEMENT;
8710     elem1 = NULL;
8711     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8712     ok(hr == S_OK, "got 0x%08x\n", hr);
8713     ok(elem1 != NULL, "got %p\n", elem1);
8714
8715     V_VT(&v) = VT_I4;
8716     V_I4(&v) = NODE_ELEMENT;
8717     elem2 = NULL;
8718     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), NULL, (IXMLDOMNode**)&elem2);
8719     ok(hr == S_OK, "got 0x%08x\n", hr);
8720     ok(elem2 != NULL, "got %p\n", elem2);
8721
8722     EXPECT_REF(elem2, 1);
8723     V_VT(&v) = VT_NULL;
8724     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8725     ok(hr == S_OK, "got 0x%08x\n", hr);
8726     EXPECT_REF(elem2, 1);
8727
8728     p = NULL;
8729     hr = IXMLDOMElement_get_xml(elem2, &p);
8730     ok(hr == S_OK, "got 0x%08x\n", hr);
8731     ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8732     SysFreeString(p);
8733
8734     hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem2, NULL);
8735     ok(hr == S_OK, "got 0x%08x\n", hr);
8736
8737     p = NULL;
8738     hr = IXMLDOMElement_get_xml(elem2, &p);
8739     ok(hr == S_OK, "got 0x%08x\n", hr);
8740     ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8741     SysFreeString(p);
8742
8743     IXMLDOMElement_Release(elem1);
8744     IXMLDOMElement_Release(elem2);
8745     IXMLDOMDocument_Release(doc);
8746 }
8747
8748 static void test_appendChild(void)
8749 {
8750     IXMLDOMDocument *doc, *doc2;
8751     IXMLDOMElement *elem, *elem2;
8752     HRESULT hr;
8753
8754     doc = create_document(&IID_IXMLDOMDocument);
8755     doc2 = create_document(&IID_IXMLDOMDocument);
8756
8757     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
8758     ok(hr == S_OK, "got 0x%08x\n", hr);
8759
8760     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem2"), &elem2);
8761     ok(hr == S_OK, "got 0x%08x\n", hr);
8762
8763     EXPECT_REF(doc, 1);
8764     todo_wine EXPECT_REF(elem, 2);
8765     EXPECT_REF(doc2, 1);
8766     todo_wine EXPECT_REF(elem2, 2);
8767     EXPECT_NO_CHILDREN(doc);
8768     EXPECT_NO_CHILDREN(doc2);
8769
8770     /* append from another document */
8771     hr = IXMLDOMDocument_appendChild(doc2, (IXMLDOMNode*)elem, NULL);
8772     ok(hr == S_OK, "got 0x%08x\n", hr);
8773
8774     EXPECT_REF(doc, 1);
8775     todo_wine EXPECT_REF(elem, 2);
8776     EXPECT_REF(doc2, 1);
8777     todo_wine EXPECT_REF(elem2, 2);
8778     EXPECT_NO_CHILDREN(doc);
8779     EXPECT_CHILDREN(doc2);
8780
8781     IXMLDOMElement_Release(elem);
8782     IXMLDOMElement_Release(elem2);
8783     IXMLDOMDocument_Release(doc);
8784     IXMLDOMDocument_Release(doc2);
8785 }
8786
8787 static void test_get_doctype(void)
8788 {
8789     IXMLDOMDocumentType *doctype;
8790     IXMLDOMDocument *doc;
8791     HRESULT hr;
8792
8793     doc = create_document(&IID_IXMLDOMDocument);
8794
8795     hr = IXMLDOMDocument_get_doctype(doc, NULL);
8796     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8797
8798     doctype = (void*)0xdeadbeef;
8799     hr = IXMLDOMDocument_get_doctype(doc, &doctype);
8800     ok(hr == S_FALSE, "got 0x%08x\n", hr);
8801     ok(doctype == NULL, "got %p\n", doctype);
8802
8803     IXMLDOMDocument_Release(doc);
8804 }
8805
8806 static void test_get_tagName(void)
8807 {
8808     IXMLDOMDocument *doc;
8809     IXMLDOMElement *elem, *elem2;
8810     HRESULT hr;
8811     BSTR str;
8812
8813     doc = create_document(&IID_IXMLDOMDocument);
8814
8815     hr = IXMLDOMDocument_createElement(doc, _bstr_("element"), &elem);
8816     ok(hr == S_OK, "got 0x%08x\n", hr);
8817
8818     hr = IXMLDOMElement_get_tagName(elem, NULL);
8819     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8820
8821     str = NULL;
8822     hr = IXMLDOMElement_get_tagName(elem, &str);
8823     ok(hr == S_OK, "got 0x%08x\n", hr);
8824     ok(!lstrcmpW(str, _bstr_("element")), "got %s\n", wine_dbgstr_w(str));
8825     SysFreeString(str);
8826
8827     hr = IXMLDOMDocument_createElement(doc, _bstr_("s:element"), &elem2);
8828     ok(hr == S_OK, "got 0x%08x\n", hr);
8829
8830     str = NULL;
8831     hr = IXMLDOMElement_get_tagName(elem2, &str);
8832     ok(hr == S_OK, "got 0x%08x\n", hr);
8833     ok(!lstrcmpW(str, _bstr_("s:element")), "got %s\n", wine_dbgstr_w(str));
8834     SysFreeString(str);
8835
8836     IXMLDOMElement_Release(elem);
8837     IXMLDOMElement_Release(elem2);
8838     IXMLDOMDocument_Release(doc);
8839     free_bstrs();
8840 }
8841
8842 typedef struct {
8843     DOMNodeType type;
8844     const char *name;
8845     VARTYPE vt;
8846     HRESULT hr;
8847 } node_type_t;
8848
8849 static const node_type_t get_datatype[] = {
8850     { NODE_ELEMENT,                "element",   VT_NULL, S_FALSE },
8851     { NODE_ATTRIBUTE,              "attr",      VT_NULL, S_FALSE },
8852     { NODE_TEXT,                   "text",      VT_NULL, S_FALSE },
8853     { NODE_CDATA_SECTION ,         "cdata",     VT_NULL, S_FALSE },
8854     { NODE_ENTITY_REFERENCE,       "entityref", VT_NULL, S_FALSE },
8855     { NODE_PROCESSING_INSTRUCTION, "pi",        VT_NULL, S_FALSE },
8856     { NODE_COMMENT,                "comment",   VT_NULL, S_FALSE },
8857     { NODE_DOCUMENT_FRAGMENT,      "docfrag",   VT_NULL, S_FALSE },
8858     { 0 }
8859 };
8860
8861 static void test_get_dataType(void)
8862 {
8863     const node_type_t *entry = get_datatype;
8864     IXMLDOMDocument *doc;
8865
8866     doc = create_document(&IID_IXMLDOMDocument);
8867
8868     while (entry->type)
8869     {
8870         IXMLDOMNode *node = NULL;
8871         VARIANT var, type;
8872         HRESULT hr;
8873
8874         V_VT(&var) = VT_I4;
8875         V_I4(&var) = entry->type;
8876         hr = IXMLDOMDocument_createNode(doc, var, _bstr_(entry->name), NULL, &node);
8877         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
8878
8879         hr = IXMLDOMNode_get_dataType(node, NULL);
8880         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8881
8882         VariantInit(&type);
8883         hr = IXMLDOMNode_get_dataType(node, &type);
8884         ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
8885             hr, entry->hr, entry->type);
8886         ok(V_VT(&type) == entry->vt, "got %d, expected %d. node type %d\n",
8887             V_VT(&type), entry->vt, entry->type);
8888         VariantClear(&type);
8889
8890         IXMLDOMNode_Release(node);
8891
8892         entry++;
8893     }
8894
8895     IXMLDOMDocument_Release(doc);
8896     free_bstrs();
8897 }
8898
8899 typedef struct _get_node_typestring_t {
8900     DOMNodeType type;
8901     const char *string;
8902 } get_node_typestring_t;
8903
8904 static const get_node_typestring_t get_node_typestring[] = {
8905     { NODE_ELEMENT,                "element"               },
8906     { NODE_ATTRIBUTE,              "attribute"             },
8907     { NODE_TEXT,                   "text"                  },
8908     { NODE_CDATA_SECTION ,         "cdatasection"          },
8909     { NODE_ENTITY_REFERENCE,       "entityreference"       },
8910     { NODE_PROCESSING_INSTRUCTION, "processinginstruction" },
8911     { NODE_COMMENT,                "comment"               },
8912     { NODE_DOCUMENT_FRAGMENT,      "documentfragment"      },
8913     { 0 }
8914 };
8915
8916 static void test_get_nodeTypeString(void)
8917 {
8918     const get_node_typestring_t *entry = get_node_typestring;
8919     IXMLDOMDocument *doc;
8920     HRESULT hr;
8921     BSTR str;
8922
8923     doc = create_document(&IID_IXMLDOMDocument);
8924
8925     hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
8926     ok(hr == S_OK, "got 0x%08x\n", hr);
8927     ok(!lstrcmpW(str, _bstr_("document")), "got string %s\n", wine_dbgstr_w(str));
8928     SysFreeString(str);
8929
8930     while (entry->type)
8931     {
8932         IXMLDOMNode *node = NULL;
8933         VARIANT var;
8934
8935         V_VT(&var) = VT_I4;
8936         V_I4(&var) = entry->type;
8937         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
8938         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
8939
8940         hr = IXMLDOMNode_get_nodeTypeString(node, NULL);
8941         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8942
8943         hr = IXMLDOMNode_get_nodeTypeString(node, &str);
8944         ok(hr == S_OK, "got 0x%08x\n", hr);
8945         ok(!lstrcmpW(str, _bstr_(entry->string)), "got string %s, expected %s. node type %d\n",
8946             wine_dbgstr_w(str), entry->string, entry->type);
8947         SysFreeString(str);
8948         IXMLDOMNode_Release(node);
8949
8950         entry++;
8951     }
8952
8953     IXMLDOMDocument_Release(doc);
8954     free_bstrs();
8955 }
8956
8957 typedef struct _get_attributes_t {
8958     DOMNodeType type;
8959     HRESULT hr;
8960 } get_attributes_t;
8961
8962 static const get_attributes_t get_attributes[] = {
8963     { NODE_ATTRIBUTE,              S_FALSE },
8964     { NODE_TEXT,                   S_FALSE },
8965     { NODE_CDATA_SECTION ,         S_FALSE },
8966     { NODE_ENTITY_REFERENCE,       S_FALSE },
8967     { NODE_PROCESSING_INSTRUCTION, S_FALSE },
8968     { NODE_COMMENT,                S_FALSE },
8969     { NODE_DOCUMENT_FRAGMENT,      S_FALSE },
8970     { 0 }
8971 };
8972
8973 static void test_get_attributes(void)
8974 {
8975     const get_attributes_t *entry = get_attributes;
8976     IXMLDOMNamedNodeMap *map;
8977     IXMLDOMDocument *doc;
8978     IXMLDOMNode *node, *node2;
8979     VARIANT_BOOL b;
8980     HRESULT hr;
8981     BSTR str;
8982     LONG length;
8983
8984     doc = create_document(&IID_IXMLDOMDocument);
8985
8986     hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
8987     ok(hr == S_OK, "got %08x\n", hr);
8988
8989     hr = IXMLDOMDocument_get_attributes(doc, NULL);
8990     ok(hr == E_INVALIDARG, "got %08x\n", hr);
8991
8992     map = (void*)0xdeadbeef;
8993     hr = IXMLDOMDocument_get_attributes(doc, &map);
8994     ok(hr == S_FALSE, "got %08x\n", hr);
8995     ok(map == NULL, "got %p\n", map);
8996
8997     /* first child is <?xml ?> */
8998     hr = IXMLDOMDocument_get_firstChild(doc, &node);
8999     ok(hr == S_OK, "got %08x\n", hr);
9000
9001     hr = IXMLDOMNode_get_attributes(node, &map);
9002     ok(hr == S_OK, "got %08x\n", hr);
9003
9004     length = -1;
9005     hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9006     EXPECT_HR(hr, S_OK);
9007     todo_wine ok(length == 1, "got %d\n", length);
9008
9009     if (hr == S_OK && length == 1)
9010     {
9011         IXMLDOMAttribute *attr;
9012         DOMNodeType type;
9013         VARIANT v;
9014
9015         node2 = NULL;
9016         hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9017         EXPECT_HR(hr, S_OK);
9018         ok(node != NULL, "got %p\n", node2);
9019
9020         hr = IXMLDOMNode_get_nodeName(node2, &str);
9021         EXPECT_HR(hr, S_OK);
9022         ok(!lstrcmpW(str, _bstr_("version")), "got %s\n", wine_dbgstr_w(str));
9023         SysFreeString(str);
9024
9025         length = -1;
9026         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9027         EXPECT_HR(hr, S_OK);
9028         ok(length == 1, "got %d\n", length);
9029
9030         type = -1;
9031         hr = IXMLDOMNode_get_nodeType(node2, &type);
9032         EXPECT_HR(hr, S_OK);
9033         ok(type == NODE_ATTRIBUTE, "got %d\n", type);
9034
9035         hr = IXMLDOMNode_get_xml(node, &str);
9036         EXPECT_HR(hr, S_OK);
9037         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9038         SysFreeString(str);
9039
9040         hr = IXMLDOMNode_get_text(node, &str);
9041         EXPECT_HR(hr, S_OK);
9042         ok(!lstrcmpW(str, _bstr_("version=\"1.0\"")), "got %s\n", wine_dbgstr_w(str));
9043         SysFreeString(str);
9044
9045         hr = IXMLDOMNamedNodeMap_removeNamedItem(map, _bstr_("version"), NULL);
9046         EXPECT_HR(hr, S_OK);
9047
9048         length = -1;
9049         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9050         EXPECT_HR(hr, S_OK);
9051         ok(length == 0, "got %d\n", length);
9052
9053         hr = IXMLDOMNode_get_xml(node, &str);
9054         EXPECT_HR(hr, S_OK);
9055         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9056         SysFreeString(str);
9057
9058         hr = IXMLDOMNode_get_text(node, &str);
9059         EXPECT_HR(hr, S_OK);
9060         ok(!lstrcmpW(str, _bstr_("")), "got %s\n", wine_dbgstr_w(str));
9061         SysFreeString(str);
9062
9063         IXMLDOMNamedNodeMap_Release(map);
9064
9065         hr = IXMLDOMNode_get_attributes(node, &map);
9066         ok(hr == S_OK, "got %08x\n", hr);
9067
9068         length = -1;
9069         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9070         EXPECT_HR(hr, S_OK);
9071         ok(length == 0, "got %d\n", length);
9072
9073         hr = IXMLDOMDocument_createAttribute(doc, _bstr_("encoding"), &attr);
9074         EXPECT_HR(hr, S_OK);
9075
9076         V_VT(&v) = VT_BSTR;
9077         V_BSTR(&v) = _bstr_("UTF-8");
9078         hr = IXMLDOMAttribute_put_nodeValue(attr, v);
9079         EXPECT_HR(hr, S_OK);
9080
9081         EXPECT_REF(attr, 2);
9082         hr = IXMLDOMNamedNodeMap_setNamedItem(map, (IXMLDOMNode*)attr, NULL);
9083         EXPECT_HR(hr, S_OK);
9084         EXPECT_REF(attr, 2);
9085
9086         hr = IXMLDOMNode_get_attributes(node, &map);
9087         ok(hr == S_OK, "got %08x\n", hr);
9088
9089         length = -1;
9090         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9091         EXPECT_HR(hr, S_OK);
9092         ok(length == 1, "got %d\n", length);
9093
9094         hr = IXMLDOMNode_get_xml(node, &str);
9095         EXPECT_HR(hr, S_OK);
9096         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9097         SysFreeString(str);
9098
9099         hr = IXMLDOMNode_get_text(node, &str);
9100         EXPECT_HR(hr, S_OK);
9101         ok(!lstrcmpW(str, _bstr_("encoding=\"UTF-8\"")), "got %s\n", wine_dbgstr_w(str));
9102         SysFreeString(str);
9103
9104         IXMLDOMNamedNodeMap_Release(map);
9105         IXMLDOMNode_Release(node2);
9106     }
9107
9108     IXMLDOMNode_Release(node);
9109
9110     /* last child is element */
9111     EXPECT_REF(doc, 1);
9112     hr = IXMLDOMDocument_get_lastChild(doc, &node);
9113     ok(hr == S_OK, "got %08x\n", hr);
9114     EXPECT_REF(doc, 1);
9115
9116     EXPECT_REF(node, 1);
9117     hr = IXMLDOMNode_get_attributes(node, &map);
9118     ok(hr == S_OK, "got %08x\n", hr);
9119     EXPECT_REF(node, 1);
9120     EXPECT_REF(doc, 1);
9121
9122     EXPECT_REF(map, 1);
9123     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9124     ok(hr == S_OK, "got %08x\n", hr);
9125     EXPECT_REF(node, 1);
9126     EXPECT_REF(node2, 1);
9127     EXPECT_REF(map, 1);
9128     EXPECT_REF(doc, 1);
9129     IXMLDOMNode_Release(node2);
9130
9131     /* release node before map release, map still works */
9132     IXMLDOMNode_Release(node);
9133
9134     length = 0;
9135     hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9136     ok(hr == S_OK, "got %08x\n", hr);
9137     ok(length == 1, "got %d\n", length);
9138
9139     node2 = NULL;
9140     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9141     ok(hr == S_OK, "got %08x\n", hr);
9142     EXPECT_REF(node2, 1);
9143     IXMLDOMNode_Release(node2);
9144
9145     IXMLDOMNamedNodeMap_Release(map);
9146
9147     while (entry->type)
9148     {
9149         VARIANT var;
9150
9151         node = NULL;
9152
9153         V_VT(&var) = VT_I4;
9154         V_I4(&var) = entry->type;
9155         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9156         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9157
9158         hr = IXMLDOMNode_get_attributes(node, NULL);
9159         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9160
9161         map = (void*)0xdeadbeef;
9162         hr = IXMLDOMNode_get_attributes(node, &map);
9163         ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9164             hr, entry->hr, entry->type);
9165         ok(map == NULL, "got %p\n", map);
9166
9167         IXMLDOMNode_Release(node);
9168
9169         entry++;
9170     }
9171
9172     IXMLDOMDocument_Release(doc);
9173     free_bstrs();
9174 }
9175
9176 static void test_selection(void)
9177 {
9178     IXMLDOMSelection *selection, *selection2;
9179     IEnumVARIANT *enum1, *enum2, *enum3;
9180     IXMLDOMNodeList *list;
9181     IUnknown *unk1, *unk2;
9182     IXMLDOMDocument *doc;
9183     IDispatchEx *dispex;
9184     IXMLDOMNode *node;
9185     IDispatch *disp;
9186     VARIANT_BOOL b;
9187     HRESULT hr;
9188     DISPID did;
9189     VARIANT v;
9190     BSTR name;
9191     ULONG ret;
9192     LONG len;
9193
9194     doc = create_document(&IID_IXMLDOMDocument);
9195
9196     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9197     EXPECT_HR(hr, S_OK);
9198
9199     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list);
9200     EXPECT_HR(hr, S_OK);
9201
9202     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9203     EXPECT_HR(hr, S_OK);
9204     IXMLDOMSelection_Release(selection);
9205
9206     /* collection disp id */
9207     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IDispatchEx, (void**)&dispex);
9208     EXPECT_HR(hr, S_OK);
9209     did = 0;
9210     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
9211     EXPECT_HR(hr, S_OK);
9212     ok(did == DISPID_DOM_COLLECTION_BASE, "got %d\n", did);
9213     len = 0;
9214     hr = IXMLDOMSelection_get_length(selection, &len);
9215     EXPECT_HR(hr, S_OK);
9216     ok(len == 1, "got %d\n", len);
9217     hr = IDispatchEx_GetDispID(dispex, _bstr_("10"), 0, &did);
9218     EXPECT_HR(hr, S_OK);
9219     ok(did == DISPID_DOM_COLLECTION_BASE+10, "got %d\n", did);
9220     IDispatchEx_Release(dispex);
9221
9222     /* IEnumVARIANT tests */
9223     enum1 = NULL;
9224     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum1);
9225     EXPECT_HR(hr, S_OK);
9226     ok(enum1 != NULL, "got %p\n", enum1);
9227     EXPECT_REF(enum1, 2);
9228
9229     EXPECT_REF(selection, 1);
9230     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IUnknown, (void**)&unk1);
9231     EXPECT_HR(hr, S_OK);
9232     EXPECT_REF(selection, 2);
9233     EXPECT_REF(enum1, 2);
9234
9235     /* enumerator and selection object return same IUnknown* */
9236     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
9237     EXPECT_HR(hr, S_OK);
9238     EXPECT_REF(selection, 3);
9239     EXPECT_REF(enum1, 2);
9240     ok(unk2 == unk1, "got %p, %p\n", unk1, unk2);
9241     IUnknown_Release(unk2);
9242
9243     EXPECT_REF(selection, 2);
9244     IEnumVARIANT_AddRef(enum1);
9245     EXPECT_REF(selection, 2);
9246     IEnumVARIANT_Release(enum1);
9247
9248     enum3 = NULL;
9249     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum3);
9250     EXPECT_HR(hr, S_OK);
9251     ok(enum3 != NULL, "got %p\n", enum3);
9252     ok(enum1 == enum3, "got %p and %p\n", enum1, enum3);
9253     EXPECT_REF(enum1, 3);
9254     IEnumVARIANT_Release(enum3);
9255
9256     EXPECT_REF(selection, 2);
9257     EXPECT_REF(enum1, 2);
9258
9259     enum2 = NULL;
9260     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9261     EXPECT_HR(hr, S_OK);
9262     ok(enum2 != NULL, "got %p\n", enum2);
9263
9264     EXPECT_REF(selection, 3);
9265     EXPECT_REF(enum1, 2);
9266     EXPECT_REF(enum2, 1);
9267
9268     ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9269
9270     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
9271     EXPECT_HR(hr, S_OK);
9272     EXPECT_REF(selection, 3);
9273     EXPECT_REF(enum2, 2);
9274     ok(unk2 != unk1, "got %p, %p\n", unk1, unk2);
9275     IUnknown_Release(unk2);
9276     IUnknown_Release(unk1);
9277
9278     selection2 = NULL;
9279     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IXMLDOMSelection, (void**)&selection2);
9280     EXPECT_HR(hr, S_OK);
9281     ok(selection2 == selection, "got %p and %p\n", selection, selection2);
9282     EXPECT_REF(selection, 3);
9283     EXPECT_REF(enum1, 2);
9284
9285     IXMLDOMSelection_Release(selection2);
9286
9287     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IDispatch, (void**)&disp);
9288     EXPECT_HR(hr, S_OK);
9289     EXPECT_REF(selection, 3);
9290     IDispatch_Release(disp);
9291
9292     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IEnumVARIANT, (void**)&enum3);
9293     EXPECT_HR(hr, S_OK);
9294     ok(enum3 == enum1, "got %p and %p\n", enum3, enum1);
9295     EXPECT_REF(selection, 2);
9296     EXPECT_REF(enum1, 3);
9297
9298     IEnumVARIANT_Release(enum1);
9299     IEnumVARIANT_Release(enum2);
9300
9301     enum1 = NULL;
9302     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9303     EXPECT_HR(hr, S_OK);
9304     ok(enum1 != NULL, "got %p\n", enum1);
9305     EXPECT_REF(enum1, 1);
9306     EXPECT_REF(selection, 2);
9307
9308     enum2 = NULL;
9309     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9310     EXPECT_HR(hr, S_OK);
9311     ok(enum2 != NULL, "got %p\n", enum2);
9312     EXPECT_REF(enum2, 1);
9313     EXPECT_REF(selection, 3);
9314
9315     ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9316
9317     IEnumVARIANT_AddRef(enum1);
9318     EXPECT_REF(selection, 3);
9319     EXPECT_REF(enum1, 2);
9320     EXPECT_REF(enum2, 1);
9321     IEnumVARIANT_Release(enum1);
9322
9323     IEnumVARIANT_Release(enum1);
9324     IEnumVARIANT_Release(enum2);
9325
9326     EXPECT_REF(selection, 1);
9327
9328     IXMLDOMNodeList_Release(list);
9329
9330     hr = IXMLDOMDocument_get_childNodes(doc, &list);
9331     EXPECT_HR(hr, S_OK);
9332
9333     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9334     EXPECT_HR(hr, E_NOINTERFACE);
9335
9336     IXMLDOMNodeList_Release(list);
9337
9338     /* test if IEnumVARIANT touches selection context */
9339     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
9340     EXPECT_HR(hr, S_OK);
9341
9342     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/*"), &list);
9343     EXPECT_HR(hr, S_OK);
9344
9345     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9346     EXPECT_HR(hr, S_OK);
9347
9348     len = 0;
9349     hr = IXMLDOMSelection_get_length(selection, &len);
9350     EXPECT_HR(hr, S_OK);
9351     ok(len == 4, "got %d\n", len);
9352
9353     enum1 = NULL;
9354     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9355     EXPECT_HR(hr, S_OK);
9356
9357     /* no-op if zero count */
9358     V_VT(&v) = VT_I2;
9359     hr = IEnumVARIANT_Next(enum1, 0, &v, NULL);
9360     EXPECT_HR(hr, S_OK);
9361     ok(V_VT(&v) == VT_I2, "got var type %d\n", V_VT(&v));
9362
9363     /* positive count, null array pointer */
9364     hr = IEnumVARIANT_Next(enum1, 1, NULL, NULL);
9365     EXPECT_HR(hr, E_INVALIDARG);
9366
9367     ret = 1;
9368     hr = IEnumVARIANT_Next(enum1, 1, NULL, &ret);
9369     EXPECT_HR(hr, E_INVALIDARG);
9370     ok(ret == 0, "got %d\n", ret);
9371
9372     V_VT(&v) = VT_I2;
9373     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9374     EXPECT_HR(hr, S_OK);
9375     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9376
9377     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9378     EXPECT_HR(hr, S_OK);
9379     hr = IXMLDOMNode_get_nodeName(node, &name);
9380     EXPECT_HR(hr, S_OK);
9381     ok(!lstrcmpW(name, _bstr_("a")), "got node name %s\n", wine_dbgstr_w(name));
9382     SysFreeString(name);
9383     IXMLDOMNode_Release(node);
9384     VariantClear(&v);
9385
9386     /* list cursor is updated */
9387     hr = IXMLDOMSelection_nextNode(selection, &node);
9388     EXPECT_HR(hr, S_OK);
9389     hr = IXMLDOMNode_get_nodeName(node, &name);
9390     EXPECT_HR(hr, S_OK);
9391     ok(!lstrcmpW(name, _bstr_("c")), "got node name %s\n", wine_dbgstr_w(name));
9392     IXMLDOMNode_Release(node);
9393
9394     V_VT(&v) = VT_I2;
9395     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9396     EXPECT_HR(hr, S_OK);
9397     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9398     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9399     EXPECT_HR(hr, S_OK);
9400     hr = IXMLDOMNode_get_nodeName(node, &name);
9401     EXPECT_HR(hr, S_OK);
9402     ok(!lstrcmpW(name, _bstr_("b")), "got node name %s\n", wine_dbgstr_w(name));
9403     SysFreeString(name);
9404     IXMLDOMNode_Release(node);
9405     VariantClear(&v);
9406     IEnumVARIANT_Release(enum1);
9407
9408     hr = IXMLDOMSelection_nextNode(selection, &node);
9409     EXPECT_HR(hr, S_OK);
9410     hr = IXMLDOMNode_get_nodeName(node, &name);
9411     EXPECT_HR(hr, S_OK);
9412     ok(!lstrcmpW(name, _bstr_("d")), "got node name %s\n", wine_dbgstr_w(name));
9413     IXMLDOMNode_Release(node);
9414
9415     IXMLDOMSelection_Release(selection);
9416     IXMLDOMNodeList_Release(list);
9417     IXMLDOMDocument_Release(doc);
9418
9419     free_bstrs();
9420 }
9421
9422 static void test_load(void)
9423 {
9424     IXMLDOMDocument *doc;
9425     IXMLDOMNodeList *list;
9426     VARIANT_BOOL b;
9427     HANDLE hfile;
9428     VARIANT src;
9429     HRESULT hr;
9430     BOOL ret;
9431     BSTR path, bstr1, bstr2;
9432     DWORD written;
9433     void* ptr;
9434
9435     /* prepare a file */
9436     hfile = CreateFileA("test.xml", GENERIC_WRITE|GENERIC_READ, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
9437     ok(hfile != INVALID_HANDLE_VALUE, "failed to create test file\n");
9438     if(hfile == INVALID_HANDLE_VALUE) return;
9439
9440     ret = WriteFile(hfile, win1252xml, strlen(win1252xml), &written, NULL);
9441     ok(ret, "WriteFile failed\n");
9442
9443     CloseHandle(hfile);
9444
9445     doc = create_document(&IID_IXMLDOMDocument);
9446
9447     /* null pointer as input */
9448     V_VT(&src) = VT_UNKNOWN;
9449     V_UNKNOWN(&src) = NULL;
9450     hr = IXMLDOMDocument_load(doc, src, &b);
9451     EXPECT_HR(hr, E_INVALIDARG);
9452     ok(b == VARIANT_FALSE, "got %d\n", b);
9453
9454     path = _bstr_("test.xml");
9455
9456     /* load from path: VT_BSTR */
9457     V_VT(&src) = VT_BSTR;
9458     V_BSTR(&src) = path;
9459     hr = IXMLDOMDocument_load(doc, src, &b);
9460     EXPECT_HR(hr, S_OK);
9461     ok(b == VARIANT_TRUE, "got %d\n", b);
9462
9463     /* load from a path: VT_BSTR|VT_BYREF */
9464     V_VT(&src) = VT_BSTR | VT_BYREF;
9465     V_BSTRREF(&src) = &path;
9466     hr = IXMLDOMDocument_load(doc, src, &b);
9467     EXPECT_HR(hr, S_OK);
9468     ok(b == VARIANT_TRUE, "got %d\n", b);
9469
9470     /* load from a path: VT_BSTR|VT_BYREF, null ptr */
9471     V_VT(&src) = VT_BSTR | VT_BYREF;
9472     V_BSTRREF(&src) = NULL;
9473     hr = IXMLDOMDocument_load(doc, src, &b);
9474     EXPECT_HR(hr, E_INVALIDARG);
9475     ok(b == VARIANT_FALSE, "got %d\n", b);
9476
9477     IXMLDOMDocument_Release(doc);
9478
9479     DeleteFileA("test.xml");
9480
9481     doc = create_document(&IID_IXMLDOMDocument);
9482
9483     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9484     EXPECT_HR(hr, S_OK);
9485     ok(b == VARIANT_TRUE, "got %d\n", b);
9486
9487     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9488     EXPECT_HR(hr, S_OK);
9489     bstr1 = _bstr_(list_to_string(list));
9490
9491     hr = IXMLDOMNodeList_reset(list);
9492     EXPECT_HR(hr, S_OK);
9493
9494     IXMLDOMDocument_Release(doc);
9495
9496     doc = create_document(&IID_IXMLDOMDocument);
9497
9498     VariantInit(&src);
9499     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenA(szExampleXML));
9500     V_VT(&src) = VT_ARRAY|VT_UI1;
9501     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9502     ptr = NULL;
9503     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9504     EXPECT_HR(hr, S_OK);
9505     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9506
9507     memcpy(ptr, szExampleXML, lstrlenA(szExampleXML));
9508     hr = SafeArrayUnlock(V_ARRAY(&src));
9509     EXPECT_HR(hr, S_OK);
9510
9511     hr = IXMLDOMDocument_load(doc, src, &b);
9512     EXPECT_HR(hr, S_OK);
9513     ok(b == VARIANT_TRUE, "got %d\n", b);
9514
9515     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9516     EXPECT_HR(hr, S_OK);
9517     bstr2 = _bstr_(list_to_string(list));
9518
9519     hr = IXMLDOMNodeList_reset(list);
9520     EXPECT_HR(hr, S_OK);
9521
9522     ok(lstrcmpW(bstr1, bstr2) == 0, "strings not equal: %s : %s\n",
9523        wine_dbgstr_w(bstr1), wine_dbgstr_w(bstr2));
9524
9525     IXMLDOMDocument_Release(doc);
9526     IXMLDOMNodeList_Release(list);
9527     VariantClear(&src);
9528
9529     /* UTF-16 isn't accepted */
9530     doc = create_document(&IID_IXMLDOMDocument);
9531
9532     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenW(szComplete1) * sizeof(WCHAR));
9533     V_VT(&src) = VT_ARRAY|VT_UI1;
9534     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9535     ptr = NULL;
9536     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9537     EXPECT_HR(hr, S_OK);
9538     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9539
9540     memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9541     hr = SafeArrayUnlock(V_ARRAY(&src));
9542     EXPECT_HR(hr, S_OK);
9543
9544     hr = IXMLDOMDocument_load(doc, src, &b);
9545     todo_wine EXPECT_HR(hr, S_FALSE);
9546     todo_wine ok(b == VARIANT_FALSE, "got %d\n", b);
9547
9548     VariantClear(&src);
9549
9550     /* it doesn't like it as a VT_ARRAY|VT_UI2 either */
9551     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI2, 0, lstrlenW(szComplete1));
9552     V_VT(&src) = VT_ARRAY|VT_UI2;
9553     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9554     ptr = NULL;
9555     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9556     EXPECT_HR(hr, S_OK);
9557     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9558
9559     memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9560     hr = SafeArrayUnlock(V_ARRAY(&src));
9561     EXPECT_HR(hr, S_OK);
9562
9563     hr = IXMLDOMDocument_load(doc, src, &b);
9564     todo_wine EXPECT_HR(hr, E_INVALIDARG);
9565     ok(b == VARIANT_FALSE, "got %d\n", b);
9566
9567     VariantClear(&src);
9568     IXMLDOMDocument_Release(doc);
9569
9570     free_bstrs();
9571 }
9572
9573 static void test_domobj_dispex(IUnknown *obj)
9574 {
9575     DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
9576     IDispatchEx *dispex;
9577     IUnknown *unk;
9578     DWORD props;
9579     UINT ticnt;
9580     HRESULT hr;
9581     BSTR name;
9582
9583     hr = IUnknown_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
9584     EXPECT_HR(hr, S_OK);
9585     if (FAILED(hr)) return;
9586
9587     ticnt = 0;
9588     hr = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
9589     EXPECT_HR(hr, S_OK);
9590     ok(ticnt == 1, "ticnt=%u\n", ticnt);
9591
9592     name = SysAllocString(szstar);
9593     hr = IDispatchEx_DeleteMemberByName(dispex, name, fdexNameCaseSensitive);
9594     EXPECT_HR(hr, E_NOTIMPL);
9595     SysFreeString(name);
9596
9597     hr = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
9598     EXPECT_HR(hr, E_NOTIMPL);
9599
9600     props = 0;
9601     hr = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &props);
9602     EXPECT_HR(hr, E_NOTIMPL);
9603     ok(props == 0, "expected 0 got %d\n", props);
9604
9605     hr = IDispatchEx_GetMemberName(dispex, dispid, &name);
9606     EXPECT_HR(hr, E_NOTIMPL);
9607     if (SUCCEEDED(hr)) SysFreeString(name);
9608
9609     hr = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
9610     EXPECT_HR(hr, E_NOTIMPL);
9611
9612     hr = IDispatchEx_GetNameSpaceParent(dispex, &unk);
9613     EXPECT_HR(hr, E_NOTIMPL);
9614     if (hr == S_OK && unk) IUnknown_Release(unk);
9615
9616     IDispatchEx_Release(dispex);
9617 }
9618
9619 static void test_mxnamespacemanager(void)
9620 {
9621     static const char xmluriA[] = "http://www.w3.org/XML/1998/namespace";
9622     IMXNamespacePrefixes *prefixes;
9623     IVBMXNamespaceManager *mgr2;
9624     IMXNamespaceManager *nsmgr;
9625     IUnknown *unk1, *unk2;
9626     WCHAR buffW[250];
9627     IDispatch *disp;
9628     IUnknown *unk;
9629     HRESULT hr;
9630     INT len;
9631
9632     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9633         &IID_IMXNamespaceManager, (void**)&nsmgr);
9634     EXPECT_HR(hr, S_OK);
9635
9636     /* IMXNamespaceManager inherits from IUnknown */
9637     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IDispatch, (void**)&disp);
9638     EXPECT_HR(hr, S_OK);
9639     IDispatch_Release(disp);
9640
9641     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IVBMXNamespaceManager, (void**)&mgr2);
9642     EXPECT_HR(hr, S_OK);
9643
9644     EXPECT_REF(nsmgr, 2);
9645     EXPECT_REF(mgr2, 2);
9646     prefixes = NULL;
9647     hr = IVBMXNamespaceManager_getDeclaredPrefixes(mgr2, &prefixes);
9648     if (hr == S_OK)
9649     {
9650         IDispatchEx *dispex;
9651         VARIANT arg, ret;
9652         DISPPARAMS dispparams;
9653
9654         ok(prefixes != NULL, "got %p\n", prefixes);
9655         EXPECT_REF(nsmgr, 2);
9656         EXPECT_REF(mgr2, 2);
9657         EXPECT_REF(prefixes, 1);
9658
9659         IVBMXNamespaceManager_QueryInterface(mgr2, &IID_IUnknown, (void**)&unk1);
9660         IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IUnknown, (void**)&unk2);
9661
9662         EXPECT_REF(mgr2, 3);
9663         EXPECT_REF(prefixes, 2);
9664
9665         IUnknown_Release(unk1);
9666         IUnknown_Release(unk2);
9667
9668         hr = IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IDispatchEx, (void**)&dispex);
9669         ok(hr == S_OK, "got 0x%08x\n", hr);
9670
9671         V_VT(&arg) = VT_I4;
9672         V_I4(&arg) = 0;
9673         dispparams.cArgs = 1;
9674         dispparams.cNamedArgs = 0;
9675         dispparams.rgdispidNamedArgs = NULL;
9676         dispparams.rgvarg = &arg;
9677
9678         V_VT(&ret) = VT_EMPTY;
9679         V_DISPATCH(&ret) = (void*)0x1;
9680         hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
9681         ok(hr == S_OK, "got 0x%08x\n", hr);
9682         ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
9683         ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
9684
9685         IDispatchEx_Release(dispex);
9686         IMXNamespacePrefixes_Release(prefixes);
9687     }
9688     IVBMXNamespaceManager_Release(mgr2);
9689
9690     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
9691     EXPECT_HR(hr, S_OK);
9692
9693     /* prefix already added */
9694     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
9695     EXPECT_HR(hr, S_FALSE);
9696
9697     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), NULL);
9698     EXPECT_HR(hr, E_INVALIDARG);
9699
9700     /* "xml" and "xmlns" are not allowed here */
9701     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xml"), _bstr_("uri1"));
9702     EXPECT_HR(hr, E_INVALIDARG);
9703
9704     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xmlns"), _bstr_("uri1"));
9705     EXPECT_HR(hr, E_INVALIDARG);
9706 todo_wine {
9707     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, -1, NULL, NULL);
9708     EXPECT_HR(hr, E_FAIL);
9709 }
9710     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, NULL);
9711     EXPECT_HR(hr, E_POINTER);
9712
9713     len = -1;
9714     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, &len);
9715     EXPECT_HR(hr, S_OK);
9716     ok(len == 3, "got %d\n", len);
9717
9718     len = -1;
9719     buffW[0] = 0x1;
9720     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
9721     EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
9722     ok(len == -1, "got %d\n", len);
9723     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9724
9725     len = 10;
9726     buffW[0] = 0x1;
9727     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
9728     EXPECT_HR(hr, S_OK);
9729     ok(len == 3, "got %d\n", len);
9730     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
9731
9732     /* getURI */
9733     hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, NULL);
9734     EXPECT_HR(hr, E_INVALIDARG);
9735
9736     len = -1;
9737     hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, &len);
9738     EXPECT_HR(hr, E_INVALIDARG);
9739     ok(len == -1, "got %d\n", len);
9740
9741     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, NULL);
9742     EXPECT_HR(hr, E_POINTER);
9743
9744     len = -1;
9745     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, &len);
9746     EXPECT_HR(hr, S_OK);
9747     /* length of "xml" uri is constant */
9748     ok(len == strlen(xmluriA), "got %d\n", len);
9749
9750     len = 100;
9751     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
9752     EXPECT_HR(hr, S_OK);
9753     ok(len == strlen(xmluriA), "got %d\n", len);
9754     ok(!lstrcmpW(buffW, _bstr_(xmluriA)), "got prefix %s\n", wine_dbgstr_w(buffW));
9755
9756     len = strlen(xmluriA)-1;
9757     buffW[0] = 0x1;
9758     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
9759     EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
9760     ok(len == strlen(xmluriA)-1, "got %d\n", len);
9761     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9762
9763     /* prefix xml1 not defined */
9764     len = -1;
9765     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, NULL, &len);
9766     EXPECT_HR(hr, S_FALSE);
9767     ok(len == 0, "got %d\n", len);
9768
9769     len = 100;
9770     buffW[0] = 0x1;
9771     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, buffW, &len);
9772     EXPECT_HR(hr, S_FALSE);
9773     ok(buffW[0] == 0, "got %x\n", buffW[0]);
9774     ok(len == 0, "got %d\n", len);
9775
9776     /* IDispatchEx tests */
9777     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IUnknown, (void**)&unk);
9778     EXPECT_HR(hr, S_OK);
9779     test_domobj_dispex(unk);
9780     IUnknown_Release(unk);
9781
9782     IMXNamespaceManager_Release(nsmgr);
9783
9784     /* ::getPrefix() */
9785     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9786         &IID_IMXNamespaceManager, (void**)&nsmgr);
9787     EXPECT_HR(hr, S_OK);
9788
9789     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, NULL);
9790     EXPECT_HR(hr, E_INVALIDARG);
9791
9792     len = -1;
9793     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, &len);
9794     EXPECT_HR(hr, E_INVALIDARG);
9795     ok(len == -1, "got %d\n", len);
9796
9797     len = 100;
9798     buffW[0] = 0x1;
9799     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
9800     EXPECT_HR(hr, E_FAIL);
9801     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9802     ok(len == 100, "got %d\n", len);
9803
9804     len = 0;
9805     buffW[0] = 0x1;
9806     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
9807     EXPECT_HR(hr, E_FAIL);
9808     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9809     ok(len == 0, "got %d\n", len);
9810
9811     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
9812     EXPECT_HR(hr, S_OK);
9813
9814     len = 100;
9815     buffW[0] = 0x1;
9816     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9817     EXPECT_HR(hr, S_OK);
9818     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9819     ok(len == 3, "got %d\n", len);
9820
9821     len = 100;
9822     buffW[0] = 0x1;
9823     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, buffW, &len);
9824     EXPECT_HR(hr, S_OK);
9825     ok(!lstrcmpW(buffW, _bstr_("xml")), "got %s\n", wine_dbgstr_w(buffW));
9826     ok(len == 3, "got %d\n", len);
9827
9828     /* with null buffer it's possible to get required length */
9829     len = 100;
9830     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
9831     EXPECT_HR(hr, S_OK);
9832     ok(len == 3, "got %d\n", len);
9833
9834     len = 0;
9835     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
9836     EXPECT_HR(hr, S_OK);
9837     ok(len == 3, "got %d\n", len);
9838
9839     len = 100;
9840     buffW[0] = 0x1;
9841     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 1, buffW, &len);
9842     EXPECT_HR(hr, E_FAIL);
9843     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9844     ok(len == 100, "got %d\n", len);
9845
9846     len = 100;
9847     buffW[0] = 0x1;
9848     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 2, buffW, &len);
9849     EXPECT_HR(hr, E_FAIL);
9850     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9851     ok(len == 100, "got %d\n", len);
9852
9853     len = 100;
9854     buffW[0] = 0x1;
9855     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 0, buffW, &len);
9856     EXPECT_HR(hr, E_INVALIDARG);
9857     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9858     ok(len == 100, "got %d\n", len);
9859
9860     len = 100;
9861     buffW[0] = 0x1;
9862     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
9863     EXPECT_HR(hr, E_INVALIDARG);
9864     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9865     ok(len == 100, "got %d\n", len);
9866
9867     len = 100;
9868     buffW[0] = 0x1;
9869     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, buffW, &len);
9870     EXPECT_HR(hr, E_INVALIDARG);
9871     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9872     ok(len == 100, "got %d\n", len);
9873
9874     len = 100;
9875     buffW[0] = 0x1;
9876     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 1, buffW, &len);
9877     EXPECT_HR(hr, E_FAIL);
9878     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9879     ok(len == 100, "got %d\n", len);
9880
9881     len = 100;
9882     buffW[0] = 0x1;
9883     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
9884     EXPECT_HR(hr, E_INVALIDARG);
9885     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9886     ok(len == 100, "got %d\n", len);
9887
9888     /* declare another one, indices are shifted */
9889     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
9890     EXPECT_HR(hr, S_OK);
9891
9892     len = 100;
9893     buffW[0] = 0x1;
9894     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9895     EXPECT_HR(hr, S_OK);
9896     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9897     ok(len == 3, "got %d\n", len);
9898
9899     len = 100;
9900     buffW[0] = 0x1;
9901     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
9902     EXPECT_HR(hr, S_OK);
9903     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
9904     ok(len == 3, "got %d\n", len);
9905
9906     len = 100;
9907     buffW[0] = 0x1;
9908     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 1, buffW, &len);
9909     EXPECT_HR(hr, E_FAIL);
9910     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9911     ok(len == 100, "got %d\n", len);
9912
9913     len = 100;
9914     buffW[0] = 0x1;
9915     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
9916     EXPECT_HR(hr, E_INVALIDARG);
9917     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9918     ok(len == 100, "got %d\n", len);
9919
9920     IMXNamespaceManager_Release(nsmgr);
9921
9922     /* push/pop tests */
9923     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9924         &IID_IMXNamespaceManager, (void**)&nsmgr);
9925     EXPECT_HR(hr, S_OK);
9926
9927     /* pop with empty stack */
9928     hr = IMXNamespaceManager_popContext(nsmgr);
9929     EXPECT_HR(hr, E_FAIL);
9930
9931     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
9932     EXPECT_HR(hr, S_OK);
9933
9934     len = 100;
9935     buffW[0] = 0x1;
9936     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9937     EXPECT_HR(hr, S_OK);
9938     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9939     ok(len == 3, "got %d\n", len);
9940
9941     hr = IMXNamespaceManager_pushContext(nsmgr);
9942     EXPECT_HR(hr, S_OK);
9943
9944     len = 100;
9945     buffW[0] = 0x1;
9946     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9947     EXPECT_HR(hr, S_OK);
9948     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9949     ok(len == 3, "got %d\n", len);
9950
9951     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
9952     EXPECT_HR(hr, S_OK);
9953
9954     len = 100;
9955     buffW[0] = 0x1;
9956     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
9957     EXPECT_HR(hr, S_OK);
9958     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
9959     ok(len == 3, "got %d\n", len);
9960
9961     hr = IMXNamespaceManager_pushContext(nsmgr);
9962     EXPECT_HR(hr, S_OK);
9963     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns3"), _bstr_("ns3 uri"));
9964     EXPECT_HR(hr, S_OK);
9965
9966     len = 100;
9967     buffW[0] = 0x1;
9968     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
9969     EXPECT_HR(hr, S_OK);
9970     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
9971     ok(len == 3, "got %d\n", len);
9972
9973     len = 100;
9974     buffW[0] = 0x1;
9975     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9976     EXPECT_HR(hr, S_OK);
9977     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9978     ok(len == 3, "got %d\n", len);
9979
9980     hr = IMXNamespaceManager_popContext(nsmgr);
9981     EXPECT_HR(hr, S_OK);
9982
9983     hr = IMXNamespaceManager_popContext(nsmgr);
9984     EXPECT_HR(hr, S_OK);
9985
9986     len = 100;
9987     buffW[0] = 0x1;
9988     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
9989     EXPECT_HR(hr, E_FAIL);
9990     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9991     ok(len == 100, "got %d\n", len);
9992
9993     len = 100;
9994     buffW[0] = 0x1;
9995     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9996     EXPECT_HR(hr, S_OK);
9997     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9998     ok(len == 3, "got %d\n", len);
9999
10000     IMXNamespaceManager_Release(nsmgr);
10001
10002     free_bstrs();
10003 }
10004
10005 static void test_mxnamespacemanager_override(void)
10006 {
10007     IMXNamespaceManager *nsmgr;
10008     WCHAR buffW[250];
10009     VARIANT_BOOL b;
10010     HRESULT hr;
10011     INT len;
10012
10013     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10014         &IID_IMXNamespaceManager, (void**)&nsmgr);
10015     EXPECT_HR(hr, S_OK);
10016
10017     len = sizeof(buffW)/sizeof(WCHAR);
10018     buffW[0] = 0;
10019     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10020     EXPECT_HR(hr, S_OK);
10021     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10022
10023     len = sizeof(buffW)/sizeof(WCHAR);
10024     buffW[0] = 0;
10025     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10026     EXPECT_HR(hr, E_FAIL);
10027
10028     hr = IMXNamespaceManager_getAllowOverride(nsmgr, NULL);
10029     EXPECT_HR(hr, E_POINTER);
10030
10031     b = VARIANT_FALSE;
10032     hr = IMXNamespaceManager_getAllowOverride(nsmgr, &b);
10033     EXPECT_HR(hr, S_OK);
10034     ok(b == VARIANT_TRUE, "got %d\n", b);
10035
10036     hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_FALSE);
10037     EXPECT_HR(hr, S_OK);
10038
10039     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10040     EXPECT_HR(hr, S_OK);
10041
10042     len = sizeof(buffW)/sizeof(WCHAR);
10043     buffW[0] = 0;
10044     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10045     EXPECT_HR(hr, S_OK);
10046     ok(!lstrcmpW(buffW, _bstr_("ns0 uri")), "got uri %s\n", wine_dbgstr_w(buffW));
10047
10048     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), _bstr_("ns0 uri"));
10049     EXPECT_HR(hr, S_OK);
10050
10051     len = sizeof(buffW)/sizeof(WCHAR);
10052     buffW[0] = 0;
10053     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10054     EXPECT_HR(hr, S_OK);
10055     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10056
10057     len = sizeof(buffW)/sizeof(WCHAR);
10058     buffW[0] = 0;
10059     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10060     EXPECT_HR(hr, S_OK);
10061     ok(!lstrcmpW(buffW, _bstr_("ns0")), "got prefix %s\n", wine_dbgstr_w(buffW));
10062
10063     len = sizeof(buffW)/sizeof(WCHAR);
10064     buffW[0] = 0;
10065     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 2, buffW, &len);
10066     EXPECT_HR(hr, S_OK);
10067     ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10068
10069     /* new prefix placed at index 1 always */
10070     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10071     EXPECT_HR(hr, S_OK);
10072
10073     len = sizeof(buffW)/sizeof(WCHAR);
10074     buffW[0] = 0;
10075     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10076     EXPECT_HR(hr, S_OK);
10077     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got prefix %s\n", wine_dbgstr_w(buffW));
10078
10079     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_(""), NULL);
10080     todo_wine EXPECT_HR(hr, E_FAIL);
10081
10082     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
10083     EXPECT_HR(hr, E_FAIL);
10084
10085     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10086     EXPECT_HR(hr, E_FAIL);
10087
10088     hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_TRUE);
10089     EXPECT_HR(hr, S_OK);
10090
10091     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri override"));
10092     EXPECT_HR(hr, S_FALSE);
10093
10094     len = sizeof(buffW)/sizeof(WCHAR);
10095     buffW[0] = 0;
10096     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10097     EXPECT_HR(hr, S_OK);
10098     ok(!lstrcmpW(buffW, _bstr_("ns0 uri override")), "got uri %s\n", wine_dbgstr_w(buffW));
10099
10100     len = sizeof(buffW)/sizeof(WCHAR);
10101     buffW[0] = 0;
10102     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 3, buffW, &len);
10103     EXPECT_HR(hr, S_OK);
10104     ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10105
10106     IMXNamespaceManager_Release(nsmgr);
10107
10108     free_bstrs();
10109 }
10110
10111 static const DOMNodeType nodetypes_test[] =
10112 {
10113     NODE_ELEMENT,
10114     NODE_ATTRIBUTE,
10115     NODE_TEXT,
10116     NODE_CDATA_SECTION,
10117     NODE_ENTITY_REFERENCE,
10118     NODE_PROCESSING_INSTRUCTION,
10119     NODE_COMMENT,
10120     NODE_DOCUMENT_FRAGMENT,
10121     NODE_INVALID
10122 };
10123
10124 static void test_dispex(void)
10125 {
10126     const DOMNodeType *type = nodetypes_test;
10127     IXMLDOMImplementation *impl;
10128     IXMLDOMNodeList *node_list;
10129     IXMLDOMParseError *error;
10130     IXMLDOMNamedNodeMap *map;
10131     IXSLProcessor *processor;
10132     IXSLTemplate *template;
10133     IXMLDOMDocument *doc;
10134     IXMLHTTPRequest *req;
10135     IXMLDOMElement *elem;
10136     IDispatchEx *dispex;
10137     DISPPARAMS dispparams;
10138     IXMLDOMNode *node;
10139     VARIANT arg, ret;
10140     VARIANT_BOOL b;
10141     IUnknown *unk;
10142     HRESULT hr;
10143     DISPID did;
10144
10145     doc = create_document(&IID_IXMLDOMDocument);
10146
10147     IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
10148     test_domobj_dispex(unk);
10149     IUnknown_Release(unk);
10150
10151     for(; *type != NODE_INVALID; type++)
10152     {
10153         IXMLDOMNode *node;
10154         VARIANT v;
10155
10156         V_VT(&v) = VT_I2;
10157         V_I2(&v) = *type;
10158
10159         hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
10160         ok(hr == S_OK, "failed to create node type %d\n", *type);
10161
10162         IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
10163
10164         test_domobj_dispex(unk);
10165         IUnknown_Release(unk);
10166         IXMLDOMNode_Release(node);
10167     }
10168
10169     /* IXMLDOMNodeList */
10170     hr = IXMLDOMDocument_getElementsByTagName(doc, _bstr_("*"), &node_list);
10171     EXPECT_HR(hr, S_OK);
10172     IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10173     test_domobj_dispex(unk);
10174     IUnknown_Release(unk);
10175     IXMLDOMNodeList_Release(node_list);
10176
10177     /* IXMLDOMNodeList for children list */
10178     hr = IXMLDOMDocument_get_childNodes(doc, &node_list);
10179     EXPECT_HR(hr, S_OK);
10180     IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10181     test_domobj_dispex(unk);
10182     IUnknown_Release(unk);
10183
10184     /* collection dispex test, empty collection */
10185     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatchEx, (void**)&dispex);
10186     EXPECT_HR(hr, S_OK);
10187     did = 0;
10188     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10189     EXPECT_HR(hr, S_OK);
10190     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10191     hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10192     EXPECT_HR(hr, S_OK);
10193     ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10194     IDispatchEx_Release(dispex);
10195
10196     did = -1;
10197     hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10198     ok(hr == S_OK, "got 0x%08x\n", hr);
10199     ok(did == DISPID_VALUE, "got %d\n", did);
10200
10201     V_VT(&arg) = VT_I4;
10202     V_I4(&arg) = 0;
10203     dispparams.cArgs = 0;
10204     dispparams.cNamedArgs = 0;
10205     dispparams.rgdispidNamedArgs = NULL;
10206     dispparams.rgvarg = &arg;
10207
10208     V_VT(&ret) = VT_EMPTY;
10209     V_DISPATCH(&ret) = (void*)0x1;
10210     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10211     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10212     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10213     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10214
10215     V_VT(&arg) = VT_I4;
10216     V_I4(&arg) = 0;
10217     dispparams.cArgs = 2;
10218     dispparams.cNamedArgs = 0;
10219     dispparams.rgdispidNamedArgs = NULL;
10220     dispparams.rgvarg = &arg;
10221
10222     V_VT(&ret) = VT_EMPTY;
10223     V_DISPATCH(&ret) = (void*)0x1;
10224     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10225     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10226     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10227     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10228
10229     V_VT(&arg) = VT_I4;
10230     V_I4(&arg) = 0;
10231     dispparams.cArgs = 1;
10232     dispparams.cNamedArgs = 0;
10233     dispparams.rgdispidNamedArgs = NULL;
10234     dispparams.rgvarg = &arg;
10235
10236     V_VT(&ret) = VT_EMPTY;
10237     V_DISPATCH(&ret) = (void*)0x1;
10238     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10239     ok(hr == S_OK, "got 0x%08x\n", hr);
10240     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10241     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10242
10243     V_VT(&ret) = VT_EMPTY;
10244     V_DISPATCH(&ret) = (void*)0x1;
10245     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10246     ok(hr == S_OK, "got 0x%08x\n", hr);
10247     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10248     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10249
10250     V_VT(&ret) = VT_EMPTY;
10251     V_DISPATCH(&ret) = (void*)0x1;
10252     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10253     ok(hr == S_OK, "got 0x%08x\n", hr);
10254     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10255     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10256
10257     dispparams.cArgs = 0;
10258     dispparams.cNamedArgs = 0;
10259     dispparams.rgdispidNamedArgs = NULL;
10260     dispparams.rgvarg = NULL;
10261
10262     V_VT(&ret) = VT_EMPTY;
10263     V_I4(&ret) = 1;
10264     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10265     ok(hr == S_OK, "got 0x%08x\n", hr);
10266     ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10267     ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10268
10269     dispparams.cArgs = 0;
10270     dispparams.cNamedArgs = 0;
10271     dispparams.rgdispidNamedArgs = NULL;
10272     dispparams.rgvarg = NULL;
10273
10274     V_VT(&ret) = VT_EMPTY;
10275     V_I4(&ret) = 1;
10276     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10277     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10278     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10279     ok(V_I4(&ret) == 1, "got %d\n", V_I4(&ret));
10280
10281     IXMLDOMNodeList_Release(node_list);
10282
10283     /* IXMLDOMParseError */
10284     hr = IXMLDOMDocument_get_parseError(doc, &error);
10285     EXPECT_HR(hr, S_OK);
10286     IXMLDOMParseError_QueryInterface(error, &IID_IUnknown, (void**)&unk);
10287     test_domobj_dispex(unk);
10288
10289     hr = IXMLDOMParseError_QueryInterface(error, &IID_IDispatchEx, (void**)&dispex);
10290     ok(hr == S_OK, "got 0x%08x\n", hr);
10291
10292     V_VT(&arg) = VT_I4;
10293     V_I4(&arg) = 0;
10294     dispparams.cArgs = 1;
10295     dispparams.cNamedArgs = 0;
10296     dispparams.rgdispidNamedArgs = NULL;
10297     dispparams.rgvarg = &arg;
10298
10299     V_VT(&ret) = VT_EMPTY;
10300     V_DISPATCH(&ret) = (void*)0x1;
10301     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10302     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10303     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10304     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10305
10306     IDispatchEx_Release(dispex);
10307
10308     IUnknown_Release(unk);
10309     IXMLDOMParseError_Release(error);
10310
10311     /* IXMLDOMNamedNodeMap */
10312     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
10313     EXPECT_HR(hr, S_OK);
10314
10315     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/a"), &node_list);
10316     EXPECT_HR(hr, S_OK);
10317     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10318     EXPECT_HR(hr, S_OK);
10319     IXMLDOMNodeList_Release(node_list);
10320
10321     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10322     EXPECT_HR(hr, S_OK);
10323     IXMLDOMNode_Release(node);
10324     hr = IXMLDOMElement_get_attributes(elem, &map);
10325     EXPECT_HR(hr, S_OK);
10326     IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk);
10327     test_domobj_dispex(unk);
10328     IUnknown_Release(unk);
10329     /* collection dispex test */
10330     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10331     EXPECT_HR(hr, S_OK);
10332     did = 0;
10333     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10334     EXPECT_HR(hr, S_OK);
10335     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10336     IDispatchEx_Release(dispex);
10337
10338     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/b"), &node_list);
10339     EXPECT_HR(hr, S_OK);
10340     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10341     EXPECT_HR(hr, S_OK);
10342     IXMLDOMNodeList_Release(node_list);
10343     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10344     EXPECT_HR(hr, S_OK);
10345     IXMLDOMNode_Release(node);
10346     hr = IXMLDOMElement_get_attributes(elem, &map);
10347     EXPECT_HR(hr, S_OK);
10348     /* collection dispex test, empty collection */
10349     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10350     EXPECT_HR(hr, S_OK);
10351     did = 0;
10352     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10353     EXPECT_HR(hr, S_OK);
10354     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10355     hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10356     EXPECT_HR(hr, S_OK);
10357     ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10358     IDispatchEx_Release(dispex);
10359
10360     did = -1;
10361     hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10362     ok(hr == S_OK, "got 0x%08x\n", hr);
10363     ok(did == DISPID_VALUE, "got %d\n", did);
10364
10365     V_VT(&arg) = VT_I4;
10366     V_I4(&arg) = 0;
10367     dispparams.cArgs = 0;
10368     dispparams.cNamedArgs = 0;
10369     dispparams.rgdispidNamedArgs = NULL;
10370     dispparams.rgvarg = &arg;
10371
10372     V_VT(&ret) = VT_EMPTY;
10373     V_DISPATCH(&ret) = (void*)0x1;
10374     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10375 todo_wine {
10376     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10377     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10378     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10379 }
10380     V_VT(&arg) = VT_I4;
10381     V_I4(&arg) = 0;
10382     dispparams.cArgs = 2;
10383     dispparams.cNamedArgs = 0;
10384     dispparams.rgdispidNamedArgs = NULL;
10385     dispparams.rgvarg = &arg;
10386
10387     V_VT(&ret) = VT_EMPTY;
10388     V_DISPATCH(&ret) = (void*)0x1;
10389     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10390 todo_wine {
10391     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10392     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10393     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10394 }
10395     V_VT(&arg) = VT_I4;
10396     V_I4(&arg) = 0;
10397     dispparams.cArgs = 1;
10398     dispparams.cNamedArgs = 0;
10399     dispparams.rgdispidNamedArgs = NULL;
10400     dispparams.rgvarg = &arg;
10401
10402     V_VT(&ret) = VT_EMPTY;
10403     V_DISPATCH(&ret) = (void*)0x1;
10404     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10405 todo_wine
10406     ok(hr == S_OK, "got 0x%08x\n", hr);
10407     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10408     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10409
10410     V_VT(&ret) = VT_EMPTY;
10411     V_DISPATCH(&ret) = (void*)0x1;
10412     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10413     ok(hr == S_OK, "got 0x%08x\n", hr);
10414     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10415     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10416
10417     V_VT(&ret) = VT_EMPTY;
10418     V_DISPATCH(&ret) = (void*)0x1;
10419     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10420     ok(hr == S_OK, "got 0x%08x\n", hr);
10421     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10422     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10423
10424     dispparams.cArgs = 0;
10425     dispparams.cNamedArgs = 0;
10426     dispparams.rgdispidNamedArgs = NULL;
10427     dispparams.rgvarg = NULL;
10428
10429     V_VT(&ret) = VT_EMPTY;
10430     V_I4(&ret) = 1;
10431     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10432     ok(hr == S_OK, "got 0x%08x\n", hr);
10433     ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10434     ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10435
10436     dispparams.cArgs = 0;
10437     dispparams.cNamedArgs = 0;
10438     dispparams.rgdispidNamedArgs = NULL;
10439     dispparams.rgvarg = NULL;
10440
10441     V_VT(&ret) = VT_EMPTY;
10442     V_I4(&ret) = 1;
10443     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10444     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10445 todo_wine {
10446     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10447     ok(V_I4(&ret) == 1, "got %d\n", V_I4(&ret));
10448 }
10449     IXMLDOMNamedNodeMap_Release(map);
10450     IXMLDOMElement_Release(elem);
10451
10452     /* IXMLDOMImplementation */
10453     hr = IXMLDOMDocument_get_implementation(doc, &impl);
10454     EXPECT_HR(hr, S_OK);
10455
10456     hr = IXMLDOMImplementation_QueryInterface(impl, &IID_IDispatchEx, (void**)&dispex);
10457     EXPECT_HR(hr, S_OK);
10458     IDispatchEx_Release(dispex);
10459     IXMLDOMImplementation_Release(impl);
10460
10461     IXMLDOMDocument_Release(doc);
10462
10463     /* IXMLHTTPRequest */
10464     hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
10465         &IID_IXMLHttpRequest, (void**)&req);
10466     if (hr == S_OK)
10467     {
10468         hr = IXMLHTTPRequest_QueryInterface(req, &IID_IDispatchEx, (void**)&dispex);
10469         EXPECT_HR(hr, E_NOINTERFACE);
10470         IXMLHTTPRequest_Release(req);
10471     }
10472
10473     /* IXSLTemplate */
10474     template = create_xsltemplate(&IID_IXSLTemplate);
10475     hr = IXSLTemplate_QueryInterface(template, &IID_IDispatchEx, (void**)&dispex);
10476     EXPECT_HR(hr, S_OK);
10477     hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10478     EXPECT_HR(hr, S_OK);
10479     test_domobj_dispex(unk);
10480     IUnknown_Release(unk);
10481     IDispatchEx_Release(dispex);
10482
10483     /* IXSLProcessor */
10484     hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
10485     EXPECT_HR(hr, S_OK);
10486     b = VARIANT_FALSE;
10487     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformSSXML), &b);
10488     EXPECT_HR(hr, S_OK);
10489     ok(b == VARIANT_TRUE, "got %d\n", b);
10490
10491     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
10492     EXPECT_HR(hr, S_OK);
10493     IXMLDOMDocument_Release(doc);
10494
10495     hr = IXSLTemplate_createProcessor(template, &processor);
10496     EXPECT_HR(hr, S_OK);
10497     hr = IXSLProcessor_QueryInterface(processor, &IID_IDispatchEx, (void**)&dispex);
10498     EXPECT_HR(hr, S_OK);
10499     hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10500     EXPECT_HR(hr, S_OK);
10501     test_domobj_dispex(unk);
10502     IUnknown_Release(unk);
10503     IDispatchEx_Release(dispex);
10504
10505     IXSLProcessor_Release(processor);
10506     IXSLTemplate_Release(template);
10507
10508     free_bstrs();
10509 }
10510
10511 static void test_parseerror(void)
10512 {
10513     IXMLDOMParseError2 *error2;
10514     IXMLDOMParseError *error;
10515     IXMLDOMDocument *doc;
10516     HRESULT hr;
10517
10518     doc = create_document(&IID_IXMLDOMDocument);
10519
10520     hr = IXMLDOMDocument_get_parseError(doc, &error);
10521     EXPECT_HR(hr, S_OK);
10522
10523     hr = IXMLDOMParseError_get_line(error, NULL);
10524     EXPECT_HR(hr, E_INVALIDARG);
10525
10526     hr = IXMLDOMParseError_get_srcText(error, NULL);
10527     EXPECT_HR(hr, E_INVALIDARG);
10528
10529     hr = IXMLDOMParseError_get_linepos(error, NULL);
10530     EXPECT_HR(hr, E_INVALIDARG);
10531
10532     IXMLDOMParseError_Release(error);
10533     IXMLDOMDocument_Release(doc);
10534
10535     doc = create_document_version(60, &IID_IXMLDOMDocument);
10536     if (!doc) return;
10537     hr = IXMLDOMDocument_get_parseError(doc, &error);
10538     EXPECT_HR(hr, S_OK);
10539     hr = IXMLDOMParseError_QueryInterface(error, &IID_IXMLDOMParseError2, (void**)&error2);
10540     EXPECT_HR(hr, S_OK);
10541     IXMLDOMParseError2_Release(error2);
10542     IXMLDOMParseError_Release(error);
10543     IXMLDOMDocument_Release(doc);
10544 }
10545
10546 static void test_getAttributeNode(void)
10547 {
10548     IXMLDOMAttribute *attr;
10549     IXMLDOMDocument *doc;
10550     IXMLDOMElement *elem;
10551     VARIANT_BOOL v;
10552     HRESULT hr;
10553     BSTR str;
10554
10555     doc = create_document(&IID_IXMLDOMDocument);
10556
10557     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
10558     EXPECT_HR(hr, S_OK);
10559
10560     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10561     EXPECT_HR(hr, S_OK);
10562
10563     str = SysAllocString(nonexistent_fileW);
10564     hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10565     EXPECT_HR(hr, E_FAIL);
10566
10567     attr = (IXMLDOMAttribute*)0xdeadbeef;
10568     hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10569     EXPECT_HR(hr, E_FAIL);
10570     ok(attr == NULL, "got %p\n", attr);
10571     SysFreeString(str);
10572
10573     str = SysAllocString(nonexistent_attrW);
10574     hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10575     EXPECT_HR(hr, S_FALSE);
10576
10577     attr = (IXMLDOMAttribute*)0xdeadbeef;
10578     hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10579     EXPECT_HR(hr, S_FALSE);
10580     ok(attr == NULL, "got %p\n", attr);
10581     SysFreeString(str);
10582
10583     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("foo:b"), &attr);
10584     EXPECT_HR(hr, S_OK);
10585     IXMLDOMAttribute_Release(attr);
10586
10587     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("b"), &attr);
10588     EXPECT_HR(hr, S_FALSE);
10589
10590     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("a"), &attr);
10591     EXPECT_HR(hr, S_OK);
10592     IXMLDOMAttribute_Release(attr);
10593
10594     IXMLDOMElement_Release(elem);
10595     IXMLDOMDocument_Release(doc);
10596     free_bstrs();
10597 }
10598
10599 typedef struct {
10600     DOMNodeType type;
10601     const char *name;
10602     REFIID iids[3];
10603 } supporterror_t;
10604
10605 static const supporterror_t supporterror_test[] = {
10606     { NODE_ELEMENT,                "element",   { &IID_IXMLDOMNode, &IID_IXMLDOMElement } },
10607     { NODE_ATTRIBUTE,              "attribute", { &IID_IXMLDOMNode, &IID_IXMLDOMAttribute } },
10608     { NODE_CDATA_SECTION,          "cdata",     { &IID_IXMLDOMNode, &IID_IXMLDOMCDATASection } },
10609     { NODE_ENTITY_REFERENCE,       "entityref", { &IID_IXMLDOMNode, &IID_IXMLDOMEntityReference } },
10610     { NODE_PROCESSING_INSTRUCTION, "pi",        { &IID_IXMLDOMNode, &IID_IXMLDOMProcessingInstruction } },
10611     { NODE_COMMENT,                "comment",   { &IID_IXMLDOMNode, &IID_IXMLDOMComment } },
10612     { NODE_DOCUMENT_FRAGMENT,      "fragment",  { &IID_IXMLDOMNode, &IID_IXMLDOMDocumentFragment } },
10613     { NODE_INVALID }
10614 };
10615
10616 static void test_supporterrorinfo(void)
10617 {
10618     static REFIID iids[5] = { &IID_IXMLDOMNode, &IID_IXMLDOMDocument,
10619                               &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3 };
10620     const supporterror_t *ptr = supporterror_test;
10621     ISupportErrorInfo *errorinfo, *info2;
10622     IXMLDOMNamedNodeMap *map, *map2;
10623     IXMLDOMDocument *doc;
10624     IXMLDOMElement *elem;
10625     VARIANT_BOOL b;
10626     IUnknown *unk;
10627     REFIID *iid;
10628     void *dummy;
10629     HRESULT hr;
10630
10631     doc = create_document_version(60, &IID_IXMLDOMDocument3);
10632     if (!doc) return;
10633
10634     EXPECT_REF(doc, 1);
10635     hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&errorinfo);
10636     EXPECT_HR(hr, S_OK);
10637     EXPECT_REF(doc, 1);
10638     ISupportErrorInfo_AddRef(errorinfo);
10639     EXPECT_REF(errorinfo, 2);
10640     EXPECT_REF(doc, 1);
10641     ISupportErrorInfo_Release(errorinfo);
10642
10643     hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&info2);
10644     EXPECT_HR(hr, S_OK);
10645     ok(errorinfo != info2, "got %p, %p\n", info2, errorinfo);
10646
10647     /* error interface can't be queried back for DOM interface */
10648     hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMDocument, &dummy);
10649     EXPECT_HR(hr, E_NOINTERFACE);
10650     hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMNode, &dummy);
10651     EXPECT_HR(hr, E_NOINTERFACE);
10652
10653     ISupportErrorInfo_Release(info2);
10654
10655     iid = iids;
10656     while (*iid)
10657     {
10658         hr = IXMLDOMDocument_QueryInterface(doc, *iid, (void**)&unk);
10659         EXPECT_HR(hr, S_OK);
10660         if (hr == S_OK)
10661         {
10662             hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
10663             ok(hr == S_OK, "got 0x%08x for %s\n", hr, debugstr_guid(*iid));
10664             IUnknown_Release(unk);
10665         }
10666
10667         iid++;
10668     }
10669
10670     ISupportErrorInfo_Release(errorinfo);
10671
10672     while (ptr->type != NODE_INVALID)
10673     {
10674         IXMLDOMNode *node;
10675         VARIANT type;
10676
10677         V_VT(&type) = VT_I1;
10678         V_I1(&type) = ptr->type;
10679
10680         hr = IXMLDOMDocument_createNode(doc, type, _bstr_(ptr->name), NULL, &node);
10681         ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
10682
10683         EXPECT_REF(node, 1);
10684         hr = IXMLDOMNode_QueryInterface(node, &IID_ISupportErrorInfo, (void**)&errorinfo);
10685         ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
10686         EXPECT_REF(node, 1);
10687
10688         hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNode, &dummy);
10689         ok(hr == E_NOINTERFACE, "%d: got 0x%08x\n", ptr->type, hr);
10690
10691         iid = ptr->iids;
10692
10693         while (*iid)
10694         {
10695             hr = IXMLDOMNode_QueryInterface(node, *iid, (void**)&unk);
10696             if (hr == S_OK)
10697             {
10698                 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
10699                 ok(hr == S_OK, "%d: got 0x%08x for %s\n", ptr->type, hr, debugstr_guid(*iid));
10700                 IUnknown_Release(unk);
10701             }
10702
10703             iid++;
10704         }
10705
10706         ISupportErrorInfo_Release(errorinfo);
10707         IXMLDOMNode_Release(node);
10708         ptr++;
10709     }
10710
10711     /* IXMLDOMNamedNodeMap */
10712     b = VARIANT_FALSE;
10713     hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
10714     EXPECT_HR(hr, S_OK);
10715     ok(b == VARIANT_TRUE, "got %d\n", b);
10716
10717     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10718     EXPECT_HR(hr, S_OK);
10719
10720     hr = IXMLDOMElement_get_attributes(elem, &map);
10721     EXPECT_HR(hr, S_OK);
10722
10723     EXPECT_REF(map, 1);
10724     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_ISupportErrorInfo, (void**)&errorinfo);
10725     EXPECT_HR(hr, S_OK);
10726     EXPECT_REF(map, 2);
10727
10728     hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMNamedNodeMap);
10729     EXPECT_HR(hr, S_OK);
10730
10731     hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNamedNodeMap, (void**)&map2);
10732     EXPECT_HR(hr, S_OK);
10733     ok(map == map2, "got %p\n", map2);
10734     IXMLDOMNamedNodeMap_Release(map2);
10735
10736     EXPECT_REF(errorinfo, 2);
10737     hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IUnknown, (void**)&unk);
10738     EXPECT_HR(hr, S_OK);
10739     EXPECT_REF(errorinfo, 3);
10740     EXPECT_REF(map, 3);
10741     IUnknown_Release(unk);
10742
10743     ISupportErrorInfo_Release(errorinfo);
10744     IXMLDOMNamedNodeMap_Release(map);
10745     IXMLDOMElement_Release(elem);
10746
10747     IXMLDOMDocument_Release(doc);
10748     free_bstrs();
10749 }
10750
10751 typedef struct {
10752     DOMNodeType type;
10753     const char *name;
10754     const char *put_content;
10755     HRESULT put_hr;
10756     VARTYPE get_vt;
10757     HRESULT get_hr;
10758 } node_value_t;
10759
10760 static const node_value_t nodevalue_test[] = {
10761     { NODE_ELEMENT,                "element",   "",             E_FAIL, VT_NULL, S_FALSE },
10762     { NODE_ATTRIBUTE,              "attr",      "value",        S_OK,   VT_BSTR, S_OK },
10763     { NODE_TEXT,                   "text",      "textdata",     S_OK,   VT_BSTR, S_OK },
10764     { NODE_CDATA_SECTION ,         "cdata",     "cdata data",   S_OK,   VT_BSTR, S_OK },
10765     { NODE_ENTITY_REFERENCE,       "entityref", "ref",          E_FAIL, VT_NULL, S_FALSE },
10766     { NODE_PROCESSING_INSTRUCTION, "pi",        "instr",        S_OK,   VT_BSTR, S_OK },
10767     { NODE_COMMENT,                "comment",   "comment data", S_OK,   VT_BSTR, S_OK },
10768     { NODE_DOCUMENT_FRAGMENT,      "docfrag",   "",             E_FAIL, VT_NULL, S_FALSE },
10769     { NODE_INVALID }
10770 };
10771
10772 static void test_nodeValue(void)
10773 {
10774     const node_value_t *ptr = nodevalue_test;
10775     IXMLDOMDocument *doc;
10776     HRESULT hr;
10777
10778     doc = create_document(&IID_IXMLDOMDocument);
10779     if (!doc) return;
10780
10781     while (ptr->type != NODE_INVALID)
10782     {
10783         IXMLDOMNode *node;
10784         VARIANT v;
10785
10786         V_VT(&v) = VT_I2;
10787         V_I2(&v) = ptr->type;
10788
10789         hr = IXMLDOMDocument_createNode(doc, v, _bstr_(ptr->name), NULL, &node);
10790         ok(hr == S_OK, "failed to create node type %d\n", ptr->type);
10791
10792         hr = IXMLDOMNode_get_nodeValue(node, NULL);
10793         ok(hr == E_INVALIDARG, "%d: got 0x%08x\n", ptr->type, hr);
10794
10795         V_VT(&v) = VT_BSTR;
10796         V_BSTR(&v) = _bstr_(ptr->put_content);
10797         hr = IXMLDOMNode_put_nodeValue(node, v);
10798         ok(hr == ptr->put_hr, "%d: got 0x%08x\n", ptr->type, hr);
10799
10800         V_VT(&v) = VT_EMPTY;
10801         hr = IXMLDOMNode_get_nodeValue(node, &v);
10802         ok(hr == ptr->get_hr, "%d: got 0x%08x, expected 0x%08x\n", ptr->type, hr, ptr->get_hr);
10803         ok(V_VT(&v) == ptr->get_vt, "%d: got %d, expected %d\n", ptr->type, V_VT(&v), ptr->get_vt);
10804         if (hr == S_OK)
10805             ok(!lstrcmpW(V_BSTR(&v), _bstr_(ptr->put_content)), "%d: got %s\n", ptr->type,
10806                 wine_dbgstr_w(V_BSTR(&v)));
10807         VariantClear(&v);
10808
10809         IXMLDOMNode_Release(node);
10810
10811         ptr++;
10812     }
10813
10814     IXMLDOMDocument_Release(doc);
10815 }
10816
10817 static void test_xmlns_attribute(void)
10818 {
10819     BSTR str;
10820     IXMLDOMDocument *doc;
10821     IXMLDOMElement *root;
10822     IXMLDOMAttribute *pAttribute;
10823     IXMLDOMElement *elem;
10824     HRESULT hr;
10825
10826     doc = create_document(&IID_IXMLDOMDocument);
10827     if (!doc) return;
10828
10829     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
10830     EXPECT_HR(hr, S_OK);
10831
10832     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
10833     EXPECT_HR(hr, S_OK);
10834
10835     str = SysAllocString(szAttribute);
10836     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("xmlns:dt"), &pAttribute);
10837     ok( hr == S_OK, "returns %08x\n", hr );
10838     if(hr == S_OK)
10839     {
10840         VARIANT v;
10841
10842         V_VT(&v) = VT_BSTR;
10843         V_BSTR(&v) = _bstr_("urn:schemas-microsoft-com:datatypes");
10844         hr = IXMLDOMAttribute_put_nodeValue(pAttribute, v);
10845
10846         hr = IXMLDOMElement_setAttributeNode(root, pAttribute, NULL);
10847         ok(hr == S_OK, "ret %08x\n", hr );
10848
10849         hr = IXMLDOMNode_put_dataType((IXMLDOMNode*)root, _bstr_("bin.base64"));
10850         ok(hr == S_OK, "ret %08x\n", hr );
10851
10852         hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10853         EXPECT_HR(hr, S_OK);
10854
10855         hr = IXMLDOMElement_get_xml(elem, &str);
10856         ok( hr == S_OK, "got 0x%08x\n", hr);
10857         todo_wine ok( lstrcmpW(str, _bstr_("<Testing xmlns:dt=\"urn:schemas-microsoft-com:datatypes\" dt:dt=\"bin.base64\"/>")) == 0,
10858         "got %s\n", wine_dbgstr_w(str));
10859         SysFreeString(str);
10860
10861         IXMLDOMElement_Release(elem);
10862         IXMLDOMAttribute_Release( pAttribute);
10863     }
10864
10865     SysFreeString(str);
10866
10867     IXMLDOMDocument_Release(doc);
10868
10869     free_bstrs();
10870 }
10871
10872 static const char namespacesA[] =
10873 "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>"
10874 "   <ns1:elem1 xmlns:ns1=\"http://blah.org\" b='1' >"
10875 "     <ns2:elem2 xmlns:ns2=\"http://blah.org\"/>"
10876 "     <ns1:elem3/>"
10877 "     <ns1:elem4/>"
10878 "     <elem5 xmlns=\"http://blahblah.org\"/>"
10879 "     <ns1:elem6>true</ns1:elem6>"
10880 "   </ns1:elem1>";
10881
10882 static const char xsd_schema1_uri[] = "x-schema:test1.xsd";
10883 static const char xsd_schema1_xml[] =
10884 "<?xml version='1.0'?>"
10885 "<schema xmlns='http://www.w3.org/2001/XMLSchema'"
10886 "            targetNamespace='x-schema:test1.xsd'>"
10887 "   <element name='root'>"
10888 "       <complexType>"
10889 "           <sequence maxOccurs='unbounded'>"
10890 "               <any/>"
10891 "           </sequence>"
10892 "       </complexType>"
10893 "   </element>"
10894 "</schema>";
10895
10896 static void test_get_namespaces(void)
10897 {
10898     IXMLDOMSchemaCollection *collection, *collection2;
10899     IXMLDOMDocument2 *doc, *doc2;
10900     IEnumVARIANT *enumv, *enum2;
10901     IUnknown *unk1, *unk2;
10902     IXMLDOMNode *node;
10903     VARIANT_BOOL b;
10904     HRESULT hr;
10905     VARIANT v;
10906     LONG len;
10907     BSTR s;
10908
10909     doc = create_document(&IID_IXMLDOMDocument2);
10910     if (!doc) return;
10911
10912     /* null pointer */
10913     hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
10914     EXPECT_HR(hr, E_POINTER);
10915
10916     /* no document loaded */
10917     collection = (void*)0xdeadbeef;
10918     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
10919     EXPECT_HR(hr, S_OK);
10920     if (hr != S_OK)
10921     {
10922         IXMLDOMDocument2_Release(doc);
10923         return;
10924     }
10925     EXPECT_REF(collection, 2);
10926
10927     collection2 = (void*)0xdeadbeef;
10928     hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
10929     EXPECT_HR(hr, S_OK);
10930     ok(collection == collection2, "got %p\n", collection2);
10931     EXPECT_REF(collection, 3);
10932     IXMLDOMSchemaCollection_Release(collection);
10933
10934     len = -1;
10935     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
10936     EXPECT_HR(hr, S_OK);
10937     ok(len == 0, "got %d\n", len);
10938     IXMLDOMSchemaCollection_Release(collection);
10939
10940     /* now with document */
10941     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
10942     EXPECT_HR(hr, S_OK);
10943
10944     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
10945     EXPECT_HR(hr, S_OK);
10946
10947     len = -1;
10948     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
10949     EXPECT_HR(hr, S_OK);
10950     ok(len == 2, "got %d\n", len);
10951
10952     /* try to lookup some uris */
10953     node = (void*)0xdeadbeef;
10954     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
10955     EXPECT_HR(hr, S_OK);
10956     ok(node == NULL, "got %p\n", node);
10957
10958     node = (void*)0xdeadbeef;
10959     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah1.org"), &node);
10960     EXPECT_HR(hr, S_OK);
10961     ok(node == NULL, "got %p\n", node);
10962
10963     /* load schema and try to add it */
10964     doc2 = create_document(&IID_IXMLDOMDocument2);
10965     hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
10966     EXPECT_HR(hr, S_OK);
10967
10968     V_VT(&v) = VT_DISPATCH;
10969     V_DISPATCH(&v) = (IDispatch*)doc2;
10970     hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
10971     EXPECT_HR(hr, E_FAIL);
10972
10973     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
10974     EXPECT_HR(hr, S_OK);
10975     ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
10976     SysFreeString(s);
10977
10978     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
10979     EXPECT_HR(hr, S_OK);
10980     ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
10981     SysFreeString(s);
10982
10983     s = (void*)0xdeadbeef;
10984     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
10985     EXPECT_HR(hr, E_FAIL);
10986     ok(s == (void*)0xdeadbeef, "got %p\n", s);
10987
10988     /* enumerate */
10989     enumv = (void*)0xdeadbeef;
10990     EXPECT_REF(collection, 2);
10991     hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
10992     EXPECT_HR(hr, S_OK);
10993     EXPECT_REF(collection, 3);
10994     ok(enumv != NULL, "got %p\n", enumv);
10995
10996     hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IUnknown, (void**)&unk1);
10997     EXPECT_HR(hr, S_OK);
10998     hr = IEnumVARIANT_QueryInterface(enumv, &IID_IUnknown, (void**)&unk2);
10999     EXPECT_HR(hr, S_OK);
11000     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11001     IUnknown_Release(unk1);
11002     IUnknown_Release(unk2);
11003
11004     hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IEnumVARIANT, (void**)&enum2);
11005     EXPECT_HR(hr, E_NOINTERFACE);
11006
11007     V_VT(&v) = VT_EMPTY;
11008     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11009     EXPECT_HR(hr, S_OK);
11010     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11011     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11012     VariantClear(&v);
11013
11014     V_VT(&v) = VT_EMPTY;
11015     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11016     EXPECT_HR(hr, S_OK);
11017     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11018     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11019     VariantClear(&v);
11020
11021     V_VT(&v) = VT_NULL;
11022     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11023     EXPECT_HR(hr, S_FALSE);
11024     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11025
11026     IEnumVARIANT_Release(enumv);
11027     IXMLDOMSchemaCollection_Release(collection);
11028
11029     IXMLDOMDocument2_Release(doc);
11030
11031     /* now with CLSID_DOMDocument60 */
11032     doc = create_document_version(60, &IID_IXMLDOMDocument2);
11033     if (!doc) return;
11034
11035     /* null pointer */
11036     hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11037     EXPECT_HR(hr, E_POINTER);
11038
11039     /* no document loaded */
11040     collection = (void*)0xdeadbeef;
11041     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11042     EXPECT_HR(hr, S_OK);
11043     if (hr != S_OK)
11044     {
11045         IXMLDOMDocument2_Release(doc);
11046         return;
11047     }
11048     EXPECT_REF(collection, 2);
11049
11050     collection2 = (void*)0xdeadbeef;
11051     hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11052     EXPECT_HR(hr, S_OK);
11053     ok(collection == collection2, "got %p\n", collection2);
11054     EXPECT_REF(collection, 3);
11055     IXMLDOMSchemaCollection_Release(collection);
11056
11057     len = -1;
11058     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11059     EXPECT_HR(hr, S_OK);
11060     ok(len == 0, "got %d\n", len);
11061     IXMLDOMSchemaCollection_Release(collection);
11062
11063     /* now with document */
11064     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11065     EXPECT_HR(hr, S_OK);
11066
11067     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11068     EXPECT_HR(hr, S_OK);
11069
11070     len = -1;
11071     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11072     EXPECT_HR(hr, S_OK);
11073     ok(len == 2, "got %d\n", len);
11074
11075     /* try to lookup some uris */
11076     node = (void*)0xdeadbeef;
11077     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11078     EXPECT_HR(hr, E_NOTIMPL);
11079     ok(node == (void*)0xdeadbeef, "got %p\n", node);
11080
11081     /* load schema and try to add it */
11082     doc2 = create_document(&IID_IXMLDOMDocument2);
11083     hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11084     EXPECT_HR(hr, S_OK);
11085
11086     V_VT(&v) = VT_DISPATCH;
11087     V_DISPATCH(&v) = (IDispatch*)doc2;
11088     hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11089     EXPECT_HR(hr, E_FAIL);
11090     IXMLDOMDocument2_Release(doc2);
11091
11092     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11093     EXPECT_HR(hr, S_OK);
11094     ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11095     SysFreeString(s);
11096
11097     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11098     EXPECT_HR(hr, S_OK);
11099     ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11100     SysFreeString(s);
11101
11102     s = (void*)0xdeadbeef;
11103     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11104     EXPECT_HR(hr, E_FAIL);
11105     ok(s == (void*)0xdeadbeef, "got %p\n", s);
11106
11107     /* enumerate */
11108     enumv = (void*)0xdeadbeef;
11109     hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11110     EXPECT_HR(hr, S_OK);
11111     ok(enumv != NULL, "got %p\n", enumv);
11112
11113     V_VT(&v) = VT_EMPTY;
11114     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11115     EXPECT_HR(hr, S_OK);
11116     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11117     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11118     VariantClear(&v);
11119
11120     V_VT(&v) = VT_EMPTY;
11121     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11122     EXPECT_HR(hr, S_OK);
11123     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11124     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11125     VariantClear(&v);
11126
11127     V_VT(&v) = VT_NULL;
11128     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11129     EXPECT_HR(hr, S_FALSE);
11130     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11131
11132     IEnumVARIANT_Release(enumv);
11133     IXMLDOMSchemaCollection_Release(collection);
11134     IXMLDOMDocument2_Release(doc);
11135     free_bstrs();
11136 }
11137
11138 static DOMNodeType put_data_types[] = {
11139     NODE_TEXT,
11140     NODE_CDATA_SECTION,
11141     NODE_PROCESSING_INSTRUCTION,
11142     NODE_COMMENT,
11143     NODE_INVALID
11144 };
11145
11146 static void test_put_data(void)
11147 {
11148     static const WCHAR test_data[] = {'t','e','s','t',' ','n','o','d','e',' ','d','a','t','a',0};
11149     WCHAR buff[100], *data;
11150     IXMLDOMDocument *doc;
11151     DOMNodeType *type;
11152     IXMLDOMText *text;
11153     IXMLDOMNode *node;
11154     VARIANT v;
11155     BSTR get_data;
11156     HRESULT hr;
11157
11158     doc = create_document(&IID_IXMLDOMDocument);
11159     if (!doc) return;
11160
11161     memcpy(&buff[2], test_data, sizeof(test_data));
11162     /* just a big length */
11163     *(DWORD*)buff = 0xf0f0;
11164     data = &buff[2];
11165
11166     type = put_data_types;
11167     while (*type != NODE_INVALID)
11168     {
11169        V_VT(&v) = VT_I2;
11170        V_I2(&v) = *type;
11171
11172        hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11173        EXPECT_HR(hr, S_OK);
11174
11175        /* put_data() is interface-specific */
11176        switch (*type)
11177        {
11178            case NODE_TEXT:
11179            {
11180               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11181               EXPECT_HR(hr, S_OK);
11182               hr = IXMLDOMText_put_data(text, data);
11183               EXPECT_HR(hr, S_OK);
11184
11185               hr = IXMLDOMText_get_data(text, &get_data);
11186               EXPECT_HR(hr, S_OK);
11187
11188               IXMLDOMText_Release(text);
11189               break;
11190            }
11191            case NODE_CDATA_SECTION:
11192            {
11193               IXMLDOMCDATASection *cdata;
11194
11195               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
11196               EXPECT_HR(hr, S_OK);
11197               hr = IXMLDOMCDATASection_put_data(cdata, data);
11198               EXPECT_HR(hr, S_OK);
11199
11200               hr = IXMLDOMCDATASection_get_data(cdata, &get_data);
11201               EXPECT_HR(hr, S_OK);
11202
11203               IXMLDOMCDATASection_Release(cdata);
11204               break;
11205            }
11206            case NODE_PROCESSING_INSTRUCTION:
11207            {
11208               IXMLDOMProcessingInstruction *pi;
11209
11210               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMProcessingInstruction, (void**)&pi);
11211               EXPECT_HR(hr, S_OK);
11212               hr = IXMLDOMProcessingInstruction_put_data(pi, data);
11213               EXPECT_HR(hr, S_OK);
11214
11215               hr = IXMLDOMProcessingInstruction_get_data(pi, &get_data);
11216               EXPECT_HR(hr, S_OK);
11217
11218               IXMLDOMProcessingInstruction_Release(pi);
11219               break;
11220            }
11221            case NODE_COMMENT:
11222            {
11223               IXMLDOMComment *comment;
11224
11225               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
11226               EXPECT_HR(hr, S_OK);
11227               hr = IXMLDOMComment_put_data(comment, data);
11228               EXPECT_HR(hr, S_OK);
11229
11230               hr = IXMLDOMComment_get_data(comment, &get_data);
11231               EXPECT_HR(hr, S_OK);
11232
11233               IXMLDOMComment_Release(comment);
11234               break;
11235            }
11236            default:
11237               break;
11238        }
11239
11240        /* compare */
11241        ok(!lstrcmpW(data, get_data), "%d: got wrong data %s, expected %s\n", *type, wine_dbgstr_w(get_data),
11242            wine_dbgstr_w(data));
11243        SysFreeString(get_data);
11244
11245        IXMLDOMNode_Release(node);
11246        type++;
11247     }
11248
11249     /* \r\n sequence is never escaped */
11250     V_VT(&v) = VT_I2;
11251     V_I2(&v) = NODE_TEXT;
11252
11253     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11254     ok(hr == S_OK, "got 0x%08x\n", hr);
11255
11256     IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11257
11258     hr = IXMLDOMText_put_data(text, _bstr_("\r\n"));
11259     ok(hr == S_OK, "got 0x%08x\n", hr);
11260
11261     hr = IXMLDOMText_get_data(text, &get_data);
11262     ok(hr == S_OK, "got 0x%08x\n", hr);
11263 todo_wine
11264     ok(!lstrcmpW(get_data, _bstr_("\n")), "got %s\n", wine_dbgstr_w(get_data));
11265     SysFreeString(get_data);
11266
11267     hr = IXMLDOMText_get_xml(text, &get_data);
11268     ok(hr == S_OK, "got 0x%08x\n", hr);
11269     ok(!lstrcmpW(get_data, _bstr_("\r\n")), "got %s\n", wine_dbgstr_w(get_data));
11270     SysFreeString(get_data);
11271
11272     IXMLDOMText_Release(text);
11273     IXMLDOMNode_Release(node);
11274
11275     IXMLDOMDocument_Release(doc);
11276     free_bstrs();
11277 }
11278
11279 static void test_putref_schemas(void)
11280 {
11281     IXMLDOMSchemaCollection *cache;
11282     IXMLDOMDocument2 *doc;
11283     VARIANT schema;
11284     HRESULT hr;
11285
11286     doc = create_document(&IID_IXMLDOMDocument2);
11287     if (!doc) return;
11288     cache = create_cache(&IID_IXMLDOMSchemaCollection);
11289
11290     /* set to NULL iface when no schema is set */
11291     V_VT(&schema) = VT_DISPATCH;
11292     V_DISPATCH(&schema) = NULL;
11293     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11294     EXPECT_HR(hr, S_OK);
11295
11296     V_VT(&schema) = VT_UNKNOWN;
11297     V_UNKNOWN(&schema) = NULL;
11298     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11299     EXPECT_HR(hr, S_OK);
11300
11301     /* set as VT_DISPATCH, reset with it */
11302     V_VT(&schema) = VT_DISPATCH;
11303     V_DISPATCH(&schema) = (IDispatch*)cache;
11304     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11305     EXPECT_HR(hr, S_OK);
11306
11307     V_DISPATCH(&schema) = NULL;
11308     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11309     EXPECT_HR(hr, S_OK);
11310     ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11311
11312     V_VT(&schema) = VT_DISPATCH;
11313     V_DISPATCH(&schema) = NULL;
11314     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11315     EXPECT_HR(hr, S_OK);
11316
11317     V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11318     V_VT(&schema) = VT_I2;
11319     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11320     EXPECT_HR(hr, S_FALSE);
11321     ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11322     ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11323
11324     /* set as VT_UNKNOWN, reset with it */
11325     V_VT(&schema) = VT_UNKNOWN;
11326     V_UNKNOWN(&schema) = (IUnknown*)cache;
11327     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11328     EXPECT_HR(hr, S_OK);
11329
11330     V_DISPATCH(&schema) = NULL;
11331     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11332     EXPECT_HR(hr, S_OK);
11333     ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11334
11335     V_VT(&schema) = VT_UNKNOWN;
11336     V_UNKNOWN(&schema) = NULL;
11337     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11338     EXPECT_HR(hr, S_OK);
11339
11340     V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11341     V_VT(&schema) = VT_I2;
11342     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11343     EXPECT_HR(hr, S_FALSE);
11344     ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11345     ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11346
11347     IXMLDOMSchemaCollection_Release(cache);
11348     IXMLDOMDocument2_Release(doc);
11349 }
11350
11351 static void test_namedmap_newenum(void)
11352 {
11353     IEnumVARIANT *enum1, *enum2, *enum3;
11354     IXMLDOMNamedNodeMap *map;
11355     IUnknown *unk1, *unk2;
11356     IXMLDOMDocument *doc;
11357     IXMLDOMElement *elem;
11358     IXMLDOMNode *node;
11359     VARIANT_BOOL b;
11360     HRESULT hr;
11361     VARIANT v;
11362     BSTR str;
11363
11364     doc = create_document(&IID_IXMLDOMDocument);
11365
11366     hr = IXMLDOMDocument_loadXML(doc, _bstr_(attributes_map), &b);
11367     EXPECT_HR(hr, S_OK);
11368
11369     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11370     EXPECT_HR(hr, S_OK);
11371
11372     hr = IXMLDOMElement_get_attributes(elem, &map);
11373     EXPECT_HR(hr, S_OK);
11374     IXMLDOMElement_Release(elem);
11375
11376     enum1 = NULL;
11377     EXPECT_REF(map, 1);
11378     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum1);
11379     EXPECT_HR(hr, S_OK);
11380     ok(enum1 != NULL, "got %p\n", enum1);
11381     EXPECT_REF(map, 1);
11382     EXPECT_REF(enum1, 2);
11383
11384     enum2 = NULL;
11385     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum2);
11386     EXPECT_HR(hr, S_OK);
11387     ok(enum2 == enum1, "got %p\n", enum2);
11388
11389     IEnumVARIANT_Release(enum2);
11390
11391     EXPECT_REF(map, 1);
11392     hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum2);
11393     EXPECT_HR(hr, S_OK);
11394     EXPECT_REF(map, 2);
11395     EXPECT_REF(enum2, 1);
11396     ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
11397
11398     IEnumVARIANT_Release(enum1);
11399
11400     /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
11401     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk1);
11402     EXPECT_HR(hr, S_OK);
11403     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
11404     EXPECT_HR(hr, S_OK);
11405     EXPECT_REF(map, 3);
11406     EXPECT_REF(enum2, 2);
11407     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11408     IUnknown_Release(unk1);
11409     IUnknown_Release(unk2);
11410
11411     hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum3);
11412     EXPECT_HR(hr, S_OK);
11413     ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
11414     IEnumVARIANT_Release(enum3);
11415
11416     /* iteration tests */
11417     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node);
11418     EXPECT_HR(hr, S_OK);
11419     hr = IXMLDOMNode_get_nodeName(node, &str);
11420     EXPECT_HR(hr, S_OK);
11421     ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11422     SysFreeString(str);
11423     IXMLDOMNode_Release(node);
11424
11425     hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11426     EXPECT_HR(hr, S_OK);
11427     hr = IXMLDOMNode_get_nodeName(node, &str);
11428     EXPECT_HR(hr, S_OK);
11429     ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11430     SysFreeString(str);
11431     IXMLDOMNode_Release(node);
11432
11433     V_VT(&v) = VT_EMPTY;
11434     hr = IEnumVARIANT_Next(enum2, 1, &v, NULL);
11435     EXPECT_HR(hr, S_OK);
11436     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
11437     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
11438     EXPECT_HR(hr, S_OK);
11439     hr = IXMLDOMNode_get_nodeName(node, &str);
11440     EXPECT_HR(hr, S_OK);
11441     ok(!lstrcmpW(str, _bstr_("attr1")), "got node name %s\n", wine_dbgstr_w(str));
11442     SysFreeString(str);
11443     IXMLDOMNode_Release(node);
11444     VariantClear(&v);
11445
11446     hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11447     EXPECT_HR(hr, S_OK);
11448     hr = IXMLDOMNode_get_nodeName(node, &str);
11449     EXPECT_HR(hr, S_OK);
11450     ok(!lstrcmpW(str, _bstr_("attr2")), "got %s\n", wine_dbgstr_w(str));
11451     SysFreeString(str);
11452     IXMLDOMNode_Release(node);
11453
11454     IEnumVARIANT_Release(enum2);
11455     IXMLDOMNamedNodeMap_Release(map);
11456     IXMLDOMDocument_Release(doc);
11457 }
11458
11459 static const char xsltext_xsl[] =
11460 "<?xml version=\"1.0\"?>"
11461 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11462 "<xsl:output method=\"html\" encoding=\"us-ascii\"/>"
11463 "<xsl:template match=\"/\">"
11464 "    <xsl:choose>"
11465 "        <xsl:when test=\"testkey\">"
11466 "            <xsl:text>testdata</xsl:text>"
11467 "        </xsl:when>"
11468 "    </xsl:choose>"
11469 "</xsl:template>"
11470 "</xsl:stylesheet>";
11471
11472 static void test_xsltext(void)
11473 {
11474     IXMLDOMDocument *doc, *doc2;
11475     VARIANT_BOOL b;
11476     HRESULT hr;
11477     BSTR ret;
11478
11479     doc = create_document(&IID_IXMLDOMDocument);
11480     if (!doc) return;
11481
11482     doc2 = create_document(&IID_IXMLDOMDocument);
11483
11484     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xsltext_xsl), &b);
11485     EXPECT_HR(hr, S_OK);
11486
11487     hr = IXMLDOMDocument_loadXML(doc2, _bstr_("<testkey/>"), &b);
11488     EXPECT_HR(hr, S_OK);
11489
11490     hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11491     EXPECT_HR(hr, S_OK);
11492     ok(!lstrcmpW(ret, _bstr_("testdata")), "transform result %s\n", wine_dbgstr_w(ret));
11493     SysFreeString(ret);
11494
11495     IXMLDOMDocument_Release(doc2);
11496     IXMLDOMDocument_Release(doc);
11497     free_bstrs();
11498 }
11499
11500 START_TEST(domdoc)
11501 {
11502     IXMLDOMDocument *doc;
11503     IUnknown *unk;
11504     HRESULT hr;
11505
11506     hr = CoInitialize( NULL );
11507     ok( hr == S_OK, "failed to init com\n");
11508     if (hr != S_OK) return;
11509
11510     hr = CoCreateInstance( &CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc );
11511     if (hr != S_OK)
11512     {
11513         win_skip("IXMLDOMDocument is not available (0x%08x)\n", hr);
11514         return;
11515     }
11516
11517     IXMLDOMDocument_Release(doc);
11518
11519     test_domdoc();
11520     test_persiststreaminit();
11521     test_domnode();
11522     test_refs();
11523     test_create();
11524     test_getElementsByTagName();
11525     test_get_text();
11526     test_get_childNodes();
11527     test_get_firstChild();
11528     test_get_lastChild();
11529     test_removeChild();
11530     test_replaceChild();
11531     test_removeNamedItem();
11532     test_IXMLDOMDocument2();
11533     test_whitespace();
11534     test_XPath();
11535     test_XSLPattern();
11536     test_cloneNode();
11537     test_xmlTypes();
11538     test_save();
11539     test_testTransforms();
11540     test_namespaces_basic();
11541     test_namespaces_change();
11542     test_FormattingXML();
11543     test_nodeTypedValue();
11544     test_TransformWithLoadingLocalFile();
11545     test_put_nodeValue();
11546     test_IObjectSafety();
11547     test_splitText();
11548     test_getQualifiedItem();
11549     test_removeQualifiedItem();
11550     test_get_ownerDocument();
11551     test_setAttributeNode();
11552     test_put_dataType();
11553     test_createNode();
11554     test_get_prefix();
11555     test_default_properties();
11556     test_selectSingleNode();
11557     test_events();
11558     test_createProcessingInstruction();
11559     test_put_nodeTypedValue();
11560     test_get_xml();
11561     test_insertBefore();
11562     test_appendChild();
11563     test_get_doctype();
11564     test_get_tagName();
11565     test_get_dataType();
11566     test_get_nodeTypeString();
11567     test_get_attributes();
11568     test_selection();
11569     test_load();
11570     test_dispex();
11571     test_parseerror();
11572     test_getAttributeNode();
11573     test_supporterrorinfo();
11574     test_nodeValue();
11575     test_get_namespaces();
11576     test_put_data();
11577     test_putref_schemas();
11578     test_namedmap_newenum();
11579     test_xmlns_attribute();
11580
11581     test_xsltemplate();
11582     test_xsltext();
11583
11584     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
11585         &IID_IMXNamespaceManager, (void**)&unk);
11586     if (hr == S_OK)
11587     {
11588         test_mxnamespacemanager();
11589         test_mxnamespacemanager_override();
11590
11591         IUnknown_Release(unk);
11592     }
11593     else
11594         win_skip("MXNamespaceManager is not available\n");
11595
11596     CoUninitialize();
11597 }