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 struct msxmlsupported_data_t
  65 {
  66     const GUID *clsid;
  67     const char *name;
  68     const IID  *ifaces[3];
  69     BOOL        supported[3];
  70 };
  71
  72 static struct msxmlsupported_data_t domdoc_support_data[] =
  73 {
  74     { &CLSID_DOMDocument,   "DOMDocument",   {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
  75     { &CLSID_DOMDocument2,  "DOMDocument2",  {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
  76     { &CLSID_DOMDocument30, "DOMDocument30", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
  77     { &CLSID_DOMDocument40, "DOMDocument40", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
  78     { &CLSID_DOMDocument60, "DOMDocument60", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3} },
  79     { &CLSID_FreeThreadedDOMDocument, "FreeThreadedDOMDocument", {&IID_IXMLDOMDocument, &IID_IXMLDOMDocument2} },
  80     { &CLSID_XMLSchemaCache, "XMLSchemaCache", {&IID_IXMLDOMSchemaCollection} },
  81     { &CLSID_XSLTemplate,    "XSLTemplate", {&IID_IXSLTemplate} },
  82     { &CLSID_MXNamespaceManager40, "MXNamespaceManager40", {&IID_IMXNamespaceManager} },
  83     { NULL }
  84 };
  85
  86 static const char *debugstr_msxml_guid(REFIID riid)
  87 {
  88     if(!riid)
  89         return "(null)";
  90
  91     if (IsEqualIID(&IID_IXMLDOMDocument, riid))
  92         return "IXMLDOMDocument";
  93     else if (IsEqualIID(&IID_IXMLDOMDocument2, riid))
  94         return "IXMLDOMDocument2";
  95     else if (IsEqualIID(&IID_IXMLDOMDocument3, riid))
  96         return "IXMLDOMDocument3";
  97     else if (IsEqualIID(&IID_IXMLDOMSchemaCollection, riid))
  98         return "IXMLDOMSchemaCollection";
  99     else if (IsEqualIID(&IID_IXSLTemplate, riid))
 100         return "IXSLTemplate";
 101     else if (IsEqualIID(&IID_IMXNamespaceManager, riid))
 102         return "IMXNamespaceManager";
 103     else
 104         return debugstr_guid(riid);
 105 }
 106
 107 static void get_class_support_data(struct msxmlsupported_data_t *table)
 108 {
 109     while (table->clsid)
 110     {
 111         IUnknown *unk;
 112         HRESULT hr;
 113         int i;
 114
 115         for (i = 0; i < sizeof(table->ifaces)/sizeof(table->ifaces[0]) && table->ifaces[i] != NULL; i++)
 116         {
 117             hr = CoCreateInstance(table->clsid, NULL, CLSCTX_INPROC_SERVER, table->ifaces[i], (void**)&unk);
 118             if (hr == S_OK) IUnknown_Release(unk);
 119
 120             table->supported[i] = hr == S_OK;
 121             if (hr != S_OK) win_skip("class %s, iface %s not supported\n", table->name, debugstr_msxml_guid(table->ifaces[i]));
 122         }
 123
 124         table++;
 125     }
 126 }
 127
 128 static BOOL is_clsid_supported(const GUID *clsid, REFIID riid)
 129 {
 130     const struct msxmlsupported_data_t *table = domdoc_support_data;
 131     while (table->clsid)
 132     {
 133         if (table->clsid == clsid)
 134         {
 135             int i;
 136
 137             for (i = 0; i < sizeof(table->ifaces)/sizeof(table->ifaces[0]) && table->ifaces[i] != NULL; i++)
 138                 if (table->ifaces[i] == riid) return table->supported[i];
 139         }
 140
 141         table++;
 142     }
 143     return FALSE;
 144 }
 145
 146 typedef struct
 147 {
 148     IDispatch IDispatch_iface;
 149     LONG ref;
 150 } dispevent;
 151
 152 static inline dispevent *impl_from_IDispatch( IDispatch *iface )
 153 {
 154     return CONTAINING_RECORD(iface, dispevent, IDispatch_iface);
 155 }
 156
 157 static HRESULT WINAPI dispevent_QueryInterface(IDispatch *iface, REFIID riid, void **ppvObject)
 158 {
 159     *ppvObject = NULL;
 160
 161     if ( IsEqualGUID( riid, &IID_IDispatch) ||
 162          IsEqualGUID( riid, &IID_IUnknown) )
 163     {
 164         *ppvObject = iface;
 165     }
 166     else
 167         return E_NOINTERFACE;
 168
 169     IDispatch_AddRef( iface );
 170
 171     return S_OK;
 172 }
 173
 174 static ULONG WINAPI dispevent_AddRef(IDispatch *iface)
 175 {
 176     dispevent *This = impl_from_IDispatch( iface );
 177     return InterlockedIncrement( &This->ref );
 178 }
 179
 180 static ULONG WINAPI dispevent_Release(IDispatch *iface)
 181 {
 182     dispevent *This = impl_from_IDispatch( iface );
 183     ULONG ref = InterlockedDecrement( &This->ref );
 184
 185     if (ref == 0)
 186         HeapFree(GetProcessHeap(), 0, This);
 187
 188     return ref;
 189 }
 190
 191 static HRESULT WINAPI dispevent_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 192 {
 193     g_unexpectedcall++;
 194     *pctinfo = 0;
 195     return S_OK;
 196 }
 197
 198 static HRESULT WINAPI dispevent_GetTypeInfo(IDispatch *iface, UINT iTInfo,
 199         LCID lcid, ITypeInfo **ppTInfo)
 200 {
 201     g_unexpectedcall++;
 202     return S_OK;
 203 }
 204
 205 static HRESULT WINAPI dispevent_GetIDsOfNames(IDispatch *iface, REFIID riid,
 206         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 207 {
 208     g_unexpectedcall++;
 209     return S_OK;
 210 }
 211
 212 static HRESULT WINAPI dispevent_Invoke(IDispatch *iface, DISPID member, REFIID riid,
 213         LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result,
 214         EXCEPINFO *excepInfo, UINT *argErr)
 215 {
 216     ok(member == 0, "expected 0 member, got %d\n", member);
 217     ok(lcid == LOCALE_SYSTEM_DEFAULT, "expected LOCALE_SYSTEM_DEFAULT, got lcid %x\n", lcid);
 218     ok(flags == DISPATCH_METHOD, "expected DISPATCH_METHOD, got %d\n", flags);
 219
 220     ok(params->cArgs == 0, "got %d\n", params->cArgs);
 221     ok(params->cNamedArgs == 0, "got %d\n", params->cNamedArgs);
 222     ok(params->rgvarg == NULL, "got %p\n", params->rgvarg);
 223     ok(params->rgdispidNamedArgs == NULL, "got %p\n", params->rgdispidNamedArgs);
 224
 225     ok(result == NULL, "got %p\n", result);
 226     ok(excepInfo == NULL, "got %p\n", excepInfo);
 227     ok(argErr == NULL, "got %p\n", argErr);
 228
 229     g_expectedcall++;
 230     return E_FAIL;
 231 }
 232
 233 static const IDispatchVtbl dispeventVtbl =
 234 {
 235     dispevent_QueryInterface,
 236     dispevent_AddRef,
 237     dispevent_Release,
 238     dispevent_GetTypeInfoCount,
 239     dispevent_GetTypeInfo,
 240     dispevent_GetIDsOfNames,
 241     dispevent_Invoke
 242 };
 243
 244 static IDispatch* create_dispevent(void)
 245 {
 246     dispevent *event = HeapAlloc(GetProcessHeap(), 0, sizeof(*event));
 247
 248     event->IDispatch_iface.lpVtbl = &dispeventVtbl;
 249     event->ref = 1;
 250
 251     return (IDispatch*)&event->IDispatch_iface;
 252 }
 253
 254 /* IStream */
 255 static HRESULT WINAPI istream_QueryInterface(IStream *iface, REFIID riid, void **ppvObject)
 256 {
 257     *ppvObject = NULL;
 258
 259     if (IsEqualGUID(riid, &IID_IStream) ||
 260         IsEqualGUID(riid, &IID_IUnknown))
 261         *ppvObject = iface;
 262     else
 263         return E_NOINTERFACE;
 264
 265     return S_OK;
 266 }
 267
 268 static ULONG WINAPI istream_AddRef(IStream *iface)
 269 {
 270     return 2;
 271 }
 272
 273 static ULONG WINAPI istream_Release(IStream *iface)
 274 {
 275     return 1;
 276 }
 277
 278 static HRESULT WINAPI istream_Read(IStream *iface, void *ptr, ULONG len, ULONG *pread)
 279 {
 280     ok(0, "unexpected call\n");
 281     return E_NOTIMPL;
 282 }
 283
 284 static HRESULT WINAPI istream_Write(IStream *iface, const void *ptr, ULONG len, ULONG *written)
 285 {
 286     *written = len/2;
 287     return S_OK;
 288 }
 289
 290 static HRESULT WINAPI istream_Seek(IStream *iface, LARGE_INTEGER move, DWORD origin, ULARGE_INTEGER *new_pos)
 291 {
 292     ok(0, "unexpected call\n");
 293     return E_NOTIMPL;
 294 }
 295
 296 static HRESULT WINAPI istream_SetSize(IStream *iface, ULARGE_INTEGER size)
 297 {
 298     ok(0, "unexpected call\n");
 299     return E_NOTIMPL;
 300 }
 301
 302 static HRESULT WINAPI istream_CopyTo(IStream *iface, IStream *stream, ULARGE_INTEGER len,
 303         ULARGE_INTEGER *pread, ULARGE_INTEGER *written)
 304 {
 305     ok(0, "unexpected call\n");
 306     return E_NOTIMPL;
 307 }
 308
 309 static HRESULT WINAPI istream_Commit(IStream *iface, DWORD flags)
 310 {
 311     ok(0, "unexpected call\n");
 312     return E_NOTIMPL;
 313 }
 314
 315 static HRESULT WINAPI istream_Revert(IStream *iface)
 316 {
 317     ok(0, "unexpected call\n");
 318     return E_NOTIMPL;
 319 }
 320
 321 static HRESULT WINAPI istream_LockRegion(IStream *iface, ULARGE_INTEGER offset,
 322         ULARGE_INTEGER len, DWORD locktype)
 323 {
 324     ok(0, "unexpected call\n");
 325     return E_NOTIMPL;
 326 }
 327
 328 static HRESULT WINAPI istream_UnlockRegion(IStream *iface, ULARGE_INTEGER offset,
 329         ULARGE_INTEGER len, DWORD locktype)
 330 {
 331     ok(0, "unexpected call\n");
 332     return E_NOTIMPL;
 333 }
 334
 335 static HRESULT WINAPI istream_Stat(IStream *iface, STATSTG *pstatstg, DWORD flag)
 336 {
 337     ok(0, "unexpected call\n");
 338     return E_NOTIMPL;
 339 }
 340
 341 static HRESULT WINAPI istream_Clone(IStream *iface, IStream **stream)
 342 {
 343     ok(0, "unexpected call\n");
 344     return E_NOTIMPL;
 345 }
 346
 347 static const IStreamVtbl StreamVtbl = {
 348     istream_QueryInterface,
 349     istream_AddRef,
 350     istream_Release,
 351     istream_Read,
 352     istream_Write,
 353     istream_Seek,
 354     istream_SetSize,
 355     istream_CopyTo,
 356     istream_Commit,
 357     istream_Revert,
 358     istream_LockRegion,
 359     istream_UnlockRegion,
 360     istream_Stat,
 361     istream_Clone
 362 };
 363
 364 static IStream savestream = { &StreamVtbl };
 365
 366 #define EXPECT_CHILDREN(node) _expect_children((IXMLDOMNode*)node, __LINE__)
 367 static void _expect_children(IXMLDOMNode *node, int line)
 368 {
 369     VARIANT_BOOL b;
 370     HRESULT hr;
 371
 372     b = VARIANT_FALSE;
 373     hr = IXMLDOMNode_hasChildNodes(node, &b);
 374     ok_(__FILE__,line)(hr == S_OK, "hasChildNodes() failed, 0x%08x\n", hr);
 375     ok_(__FILE__,line)(b == VARIANT_TRUE, "no children, %d\n", b);
 376 }
 377
 378 #define EXPECT_NO_CHILDREN(node) _expect_no_children((IXMLDOMNode*)node, __LINE__)
 379 static void _expect_no_children(IXMLDOMNode *node, int line)
 380 {
 381     VARIANT_BOOL b;
 382     HRESULT hr;
 383
 384     b = VARIANT_TRUE;
 385     hr = IXMLDOMNode_hasChildNodes(node, &b);
 386     ok_(__FILE__,line)(hr == S_FALSE, "hasChildNodes() failed, 0x%08x\n", hr);
 387     ok_(__FILE__,line)(b == VARIANT_FALSE, "no children, %d\n", b);
 388 }
 389
 390 #define EXPECT_REF(node,ref) _expect_ref((IUnknown*)node, ref, __LINE__)
 391 static void _expect_ref(IUnknown* obj, ULONG ref, int line)
 392 {
 393     ULONG rc = IUnknown_AddRef(obj);
 394     IUnknown_Release(obj);
 395     ok_(__FILE__,line)(rc-1 == ref, "expected refcount %d, got %d\n", ref, rc-1);
 396 }
 397
 398 #define EXPECT_LIST_LEN(list,len) _expect_list_len(list, len, __LINE__)
 399 static void _expect_list_len(IXMLDOMNodeList *list, LONG len, int line)
 400 {
 401     LONG length;
 402     HRESULT hr;
 403
 404     length = 0;
 405     hr = IXMLDOMNodeList_get_length(list, &length);
 406     ok_(__FILE__,line)(hr == S_OK, "got 0x%08x\n", hr);
 407     ok_(__FILE__,line)(length == len, "got %d, expected %d\n", length, len);
 408 }
 409
 410 #define EXPECT_HR(hr,hr_exp) \
 411     ok(hr == hr_exp, "got 0x%08x, expected 0x%08x\n", hr, hr_exp)
 412
 413 static const WCHAR szEmpty[] = { 0 };
 414 static const WCHAR szIncomplete[] = {
 415     '<','?','x','m','l',' ',
 416     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
 417 };
 418 static const WCHAR szComplete1[] = {
 419     '<','?','x','m','l',' ',
 420     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 421     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
 422 };
 423 static const WCHAR szComplete2[] = {
 424     '<','?','x','m','l',' ',
 425     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 426     '<','o','>','<','/','o','>','\n',0
 427 };
 428 static const WCHAR szComplete3[] = {
 429     '<','?','x','m','l',' ',
 430     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
 431     '<','a','>','<','/','a','>','\n',0
 432 };
 433 static const char complete4A[] =
 434     "<?xml version=\'1.0\'?>\n"
 435     "<lc dl=\'str1\'>\n"
 436         "<bs vr=\'str2\' sz=\'1234\'>"
 437             "fn1.txt\n"
 438         "</bs>\n"
 439         "<pr id=\'str3\' vr=\'1.2.3\' pn=\'wine 20050804\'>\n"
 440             "fn2.txt\n"
 441         "</pr>\n"
 442         "<empty></empty>\n"
 443         "<fo>\n"
 444             "<ba>\n"
 445                 "f1\n"
 446             "</ba>\n"
 447         "</fo>\n"
 448     "</lc>\n";
 449
 450 static const WCHAR szComplete5[] = {
 451     '<','S',':','s','e','a','r','c','h',' ','x','m','l','n','s',':','D','=','"','D','A','V',':','"',' ',
 452     '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','"',
 453     ' ','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','"','>',
 454         '<','S',':','s','c','o','p','e','>',
 455             '<','S',':','d','e','e','p','>','/','<','/','S',':','d','e','e','p','>',
 456         '<','/','S',':','s','c','o','p','e','>',
 457         '<','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
 458             '<','C',':','t','e','x','t','o','r','p','r','o','p','e','r','t','y','/','>',
 459             'c','o','m','p','u','t','e','r',
 460         '<','/','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
 461     '<','/','S',':','s','e','a','r','c','h','>',0
 462 };
 463
 464 static const WCHAR szComplete6[] = {
 465     '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'',' ',
 466     'e','n','c','o','d','i','n','g','=','\'','W','i','n','d','o','w','s','-','1','2','5','2','\'','?','>','\n',
 467     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
 468 };
 469
 470 static const char complete7[] = {
 471     "<?xml version=\"1.0\"?>\n\t"
 472     "<root>\n"
 473     "\t<a/>\n"
 474     "\t<b/>\n"
 475     "\t<c/>\n"
 476     "</root>"
 477 };
 478
 479 #define DECL_WIN_1252 \
 480 "<?xml version=\"1.0\" encoding=\"Windows-1252\"?>"
 481
 482 static const char win1252xml[] =
 483 DECL_WIN_1252
 484 "<open></open>";
 485
 486 static const char win1252decl[] =
 487 DECL_WIN_1252
 488 ;
 489
 490 static const char nocontent[] = "no xml content here";
 491
 492 static const char szExampleXML[] =
 493 "<?xml version='1.0' encoding='utf-8'?>\n"
 494 "<root xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' a=\"attr a\" foo:b=\"attr b\" >\n"
 495 "    <elem>\n"
 496 "        <a>A1 field</a>\n"
 497 "        <b>B1 field</b>\n"
 498 "        <c>C1 field</c>\n"
 499 "        <d>D1 field</d>\n"
 500 "        <description xmlns:foo='http://www.winehq.org' xmlns:bar='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
 501 "            <html xmlns='http://www.w3.org/1999/xhtml'>\n"
 502 "                This is <strong>a</strong> <i>description</i>. <bar:x/>\n"
 503 "            </html>\n"
 504 "            <html xml:space='preserve' xmlns='http://www.w3.org/1999/xhtml'>\n"
 505 "                This is <strong>a</strong> <i>description</i> with preserved whitespace. <bar:x/>\n"
 506 "            </html>\n"
 507 "        </description>\n"
 508 "    </elem>\n"
 509 "\n"
 510 "    <elem>\n"
 511 "        <a>A2 field</a>\n"
 512 "        <b>B2 field</b>\n"
 513 "        <c type=\"old\">C2 field</c>\n"
 514 "        <d>D2 field</d>\n"
 515 "    </elem>\n"
 516 "\n"
 517 "    <elem xmlns='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'>\n"
 518 "        <a>A3 field</a>\n"
 519 "        <b>B3 field</b>\n"
 520 "        <c>C3 field</c>\n"
 521 "    </elem>\n"
 522 "\n"
 523 "    <elem>\n"
 524 "        <a>A4 field</a>\n"
 525 "        <b>B4 field</b>\n"
 526 "        <foo:c>C4 field</foo:c>\n"
 527 "        <d>D4 field</d>\n"
 528 "    </elem>\n"
 529 "</root>\n";
 530
 531 static const char charrefsxml[] =
 532 "<?xml version='1.0'?>"
 533 "<a>"
 534 "<b1> Text &#65; end </b1>"
 535 "<b2>&#65;&#66; &#67; </b2>"
 536 "</a>";
 537
 538 static const CHAR szNodeTypesXML[] =
 539 "<?xml version='1.0'?>"
 540 "<!-- comment node 0 -->"
 541 "<root id='0' depth='0'>"
 542 "   <!-- comment node 1 -->"
 543 "   text node 0"
 544 "   <x id='1' depth='1'>"
 545 "       <?foo value='PI for x'?>"
 546 "       <!-- comment node 2 -->"
 547 "       text node 1"
 548 "       <a id='3' depth='2'/>"
 549 "       <b id='4' depth='2'/>"
 550 "       <c id='5' depth='2'/>"
 551 "   </x>"
 552 "   <y id='2' depth='1'>"
 553 "       <?bar value='PI for y'?>"
 554 "       <!-- comment node 3 -->"
 555 "       text node 2"
 556 "       <a id='6' depth='2'/>"
 557 "       <b id='7' depth='2'/>"
 558 "       <c id='8' depth='2'/>"
 559 "   </y>"
 560 "</root>";
 561
 562 static const CHAR szTransformXML[] =
 563 "<?xml version=\"1.0\"?>\n"
 564 "<greeting>\n"
 565 "Hello World\n"
 566 "</greeting>";
 567
 568 static  const CHAR szTransformSSXML[] =
 569 "<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">\n"
 570 "   <xsl:output method=\"html\"/>\n"
 571 "   <xsl:template match=\"/\">\n"
 572 "       <xsl:apply-templates select=\"greeting\"/>\n"
 573 "   </xsl:template>\n"
 574 "   <xsl:template match=\"greeting\">\n"
 575 "       <html>\n"
 576 "           <body>\n"
 577 "               <h1>\n"
 578 "                   <xsl:value-of select=\".\"/>\n"
 579 "               </h1>\n"
 580 "           </body>\n"
 581 "       </html>\n"
 582 "   </xsl:template>\n"
 583 "</xsl:stylesheet>";
 584
 585 static  const CHAR szTransformOutput[] =
 586 "<html><body><h1>"
 587 "Hello World"
 588 "</h1></body></html>";
 589
 590 static const CHAR szTypeValueXML[] =
 591 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
 592 "<root xmlns:dt=\"urn:schemas-microsoft-com:datatypes\">\n"
 593 "   <string>Wine</string>\n"
 594 "   <string2 dt:dt=\"string\">String</string2>\n"
 595 "   <number dt:dt=\"number\">12.44</number>\n"
 596 "   <number2 dt:dt=\"NUMbEr\">-3.71e3</number2>\n"
 597 "   <int dt:dt=\"int\">-13</int>\n"
 598 "   <fixed dt:dt=\"fixed.14.4\">7322.9371</fixed>\n"
 599 "   <bool dt:dt=\"boolean\">1</bool>\n"
 600 "   <datetime dt:dt=\"datetime\">2009-11-18T03:21:33.12</datetime>\n"
 601 "   <datetimetz dt:dt=\"datetime.tz\">2003-07-11T11:13:57+03:00</datetimetz>\n"
 602 "   <date dt:dt=\"date\">3721-11-01</date>\n"
 603 "   <time dt:dt=\"time\">13:57:12.31321</time>\n"
 604 "   <timetz dt:dt=\"time.tz\">23:21:01.13+03:21</timetz>\n"
 605 "   <i1 dt:dt=\"i1\">-13</i1>\n"
 606 "   <i2 dt:dt=\"i2\">31915</i2>\n"
 607 "   <i4 dt:dt=\"i4\">-312232</i4>\n"
 608 "   <ui1 dt:dt=\"ui1\">123</ui1>\n"
 609 "   <ui2 dt:dt=\"ui2\">48282</ui2>\n"
 610 "   <ui4 dt:dt=\"ui4\">949281</ui4>\n"
 611 "   <r4 dt:dt=\"r4\">213124.0</r4>\n"
 612 "   <r8 dt:dt=\"r8\">0.412</r8>\n"
 613 "   <float dt:dt=\"float\">41221.421</float>\n"
 614 "   <uuid dt:dt=\"uuid\">333C7BC4-460F-11D0-BC04-0080C7055a83</uuid>\n"
 615 "   <binhex dt:dt=\"bin.hex\">fffca012003c</binhex>\n"
 616 "   <binbase64 dt:dt=\"bin.base64\">YmFzZTY0IHRlc3Q=</binbase64>\n"
 617 "   <binbase64_1 dt:dt=\"bin.base64\">\nYmFzZTY0\nIHRlc3Q=\n</binbase64_1>\n"
 618 "   <binbase64_2 dt:dt=\"bin.base64\">\nYmF\r\t z  ZTY0\nIHRlc3Q=\n</binbase64_2>\n"
 619 "</root>";
 620
 621 static const CHAR szBasicTransformSSXMLPart1[] =
 622 "<?xml version=\"1.0\"?>"
 623 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
 624 "<xsl:output method=\"html\"/>\n"
 625 "<xsl:template match=\"/\">"
 626 "<HTML><BODY><TABLE>"
 627 "        <xsl:apply-templates select='document(\"";
 628
 629 static const CHAR szBasicTransformSSXMLPart2[] =
 630 "\")/bottle/wine'>"
 631 "           <xsl:sort select=\"cost\"/><xsl:sort select=\"name\"/>"
 632 "        </xsl:apply-templates>"
 633 "</TABLE></BODY></HTML>"
 634 "</xsl:template>"
 635 "<xsl:template match=\"bottle\">"
 636 "   <TR><xsl:apply-templates select=\"name\" /><xsl:apply-templates select=\"cost\" /></TR>"
 637 "</xsl:template>"
 638 "<xsl:template match=\"name\">"
 639 "   <TD><xsl:apply-templates /></TD>"
 640 "</xsl:template>"
 641 "<xsl:template match=\"cost\">"
 642 "   <TD><xsl:apply-templates /></TD>"
 643 "</xsl:template>"
 644 "</xsl:stylesheet>";
 645
 646 static const CHAR szBasicTransformXML[] =
 647 "<?xml version=\"1.0\"?><bottle><wine><name>Wine</name><cost>$25.00</cost></wine></bottle>";
 648
 649 static const CHAR szBasicTransformOutput[] =
 650 "<HTML><BODY><TABLE><TD>Wine</TD><TD>$25.00</TD></TABLE></BODY></HTML>";
 651
 652 #define SZ_EMAIL_DTD \
 653 "<!DOCTYPE email ["\
 654 "   <!ELEMENT email         (recipients,from,reply-to?,subject,body,attachment*)>"\
 655 "       <!ATTLIST email attachments IDREFS #REQUIRED>"\
 656 "       <!ATTLIST email sent (yes|no) \"no\">"\
 657 "   <!ELEMENT recipients    (to+,cc*)>"\
 658 "   <!ELEMENT to            (#PCDATA)>"\
 659 "       <!ATTLIST to name CDATA #IMPLIED>"\
 660 "   <!ELEMENT cc            (#PCDATA)>"\
 661 "       <!ATTLIST cc name CDATA #IMPLIED>"\
 662 "   <!ELEMENT from          (#PCDATA)>"\
 663 "       <!ATTLIST from name CDATA #IMPLIED>"\
 664 "   <!ELEMENT reply-to      (#PCDATA)>"\
 665 "       <!ATTLIST reply-to name CDATA #IMPLIED>"\
 666 "   <!ELEMENT subject       ANY>"\
 667 "   <!ELEMENT body          ANY>"\
 668 "       <!ATTLIST body enc CDATA #FIXED \"UTF-8\">"\
 669 "   <!ELEMENT attachment    (#PCDATA)>"\
 670 "       <!ATTLIST attachment id ID #REQUIRED>"\
 671 "]>"
 672
 673 static const CHAR szEmailXML[] =
 674 "<?xml version=\"1.0\"?>"
 675 SZ_EMAIL_DTD
 676 "<email attachments=\"patch1\">"
 677 "   <recipients>"
 678 "       <to>wine-patches@winehq.org</to>"
 679 "   </recipients>"
 680 "   <from name=\"Anonymous\">user@localhost</from>"
 681 "   <subject>msxml3/tests: DTD validation (try 87)</subject>"
 682 "   <body>"
 683 "       It no longer causes spontaneous combustion..."
 684 "   </body>"
 685 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 686 "</email>";
 687
 688 static const CHAR szEmailXML_0D[] =
 689 "<?xml version=\"1.0\"?>"
 690 SZ_EMAIL_DTD
 691 "<email attachments=\"patch1\">"
 692 "   <recipients>"
 693 "       <to>wine-patches@winehq.org</to>"
 694 "   </recipients>"
 695 "   <from name=\"Anonymous\">user@localhost</from>"
 696 "   <subject>msxml3/tests: DTD validation (try 88)</subject>"
 697 "   <body>"
 698 "       <undecl />"
 699 "       XML_ELEMENT_UNDECLARED 0xC00CE00D"
 700 "   </body>"
 701 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 702 "</email>";
 703
 704 static const CHAR szEmailXML_0E[] =
 705 "<?xml version=\"1.0\"?>"
 706 SZ_EMAIL_DTD
 707 "<email attachments=\"patch1\">"
 708 "   <recipients>"
 709 "       <to>wine-patches@winehq.org</to>"
 710 "   </recipients>"
 711 "   <from name=\"Anonymous\">user@localhost</from>"
 712 "   <subject>msxml3/tests: DTD validation (try 89)</subject>"
 713 "   <body>"
 714 "       XML_ELEMENT_ID_NOT_FOUND 0xC00CE00E"
 715 "   </body>"
 716 "   <attachment id=\"patch\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 717 "</email>";
 718
 719 static const CHAR szEmailXML_11[] =
 720 "<?xml version=\"1.0\"?>"
 721 SZ_EMAIL_DTD
 722 "<email attachments=\"patch1\">"
 723 "   <recipients>"
 724 "   </recipients>"
 725 "   <from name=\"Anonymous\">user@localhost</from>"
 726 "   <subject>msxml3/tests: DTD validation (try 90)</subject>"
 727 "   <body>"
 728 "       XML_EMPTY_NOT_ALLOWED 0xC00CE011"
 729 "   </body>"
 730 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 731 "</email>";
 732
 733 static const CHAR szEmailXML_13[] =
 734 "<?xml version=\"1.0\"?>"
 735 SZ_EMAIL_DTD
 736 "<msg attachments=\"patch1\">"
 737 "   <recipients>"
 738 "       <to>wine-patches@winehq.org</to>"
 739 "   </recipients>"
 740 "   <from name=\"Anonymous\">user@localhost</from>"
 741 "   <subject>msxml3/tests: DTD validation (try 91)</subject>"
 742 "   <body>"
 743 "       XML_ROOT_NAME_MISMATCH 0xC00CE013"
 744 "   </body>"
 745 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 746 "</msg>";
 747
 748 static const CHAR szEmailXML_14[] =
 749 "<?xml version=\"1.0\"?>"
 750 SZ_EMAIL_DTD
 751 "<email attachments=\"patch1\">"
 752 "   <to>wine-patches@winehq.org</to>"
 753 "   <from name=\"Anonymous\">user@localhost</from>"
 754 "   <subject>msxml3/tests: DTD validation (try 92)</subject>"
 755 "   <body>"
 756 "       XML_INVALID_CONTENT 0xC00CE014"
 757 "   </body>"
 758 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 759 "</email>";
 760
 761 static const CHAR szEmailXML_15[] =
 762 "<?xml version=\"1.0\"?>"
 763 SZ_EMAIL_DTD
 764 "<email attachments=\"patch1\" ip=\"127.0.0.1\">"
 765 "   <recipients>"
 766 "       <to>wine-patches@winehq.org</to>"
 767 "   </recipients>"
 768 "   <from name=\"Anonymous\">user@localhost</from>"
 769 "   <subject>msxml3/tests: DTD validation (try 93)</subject>"
 770 "   <body>"
 771 "       XML_ATTRIBUTE_NOT_DEFINED 0xC00CE015"
 772 "   </body>"
 773 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 774 "</email>";
 775
 776 static const CHAR szEmailXML_16[] =
 777 "<?xml version=\"1.0\"?>"
 778 SZ_EMAIL_DTD
 779 "<email attachments=\"patch1\">"
 780 "   <recipients>"
 781 "       <to>wine-patches@winehq.org</to>"
 782 "   </recipients>"
 783 "   <from name=\"Anonymous\">user@localhost</from>"
 784 "   <subject>msxml3/tests: DTD validation (try 94)</subject>"
 785 "   <body enc=\"ASCII\">"
 786 "       XML_ATTRIBUTE_FIXED 0xC00CE016"
 787 "   </body>"
 788 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 789 "</email>";
 790
 791 static const CHAR szEmailXML_17[] =
 792 "<?xml version=\"1.0\"?>"
 793 SZ_EMAIL_DTD
 794 "<email attachments=\"patch1\" sent=\"true\">"
 795 "   <recipients>"
 796 "       <to>wine-patches@winehq.org</to>"
 797 "   </recipients>"
 798 "   <from name=\"Anonymous\">user@localhost</from>"
 799 "   <subject>msxml3/tests: DTD validation (try 95)</subject>"
 800 "   <body>"
 801 "       XML_ATTRIBUTE_VALUE 0xC00CE017"
 802 "   </body>"
 803 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 804 "</email>";
 805
 806 static const CHAR szEmailXML_18[] =
 807 "<?xml version=\"1.0\"?>"
 808 SZ_EMAIL_DTD
 809 "<email attachments=\"patch1\">"
 810 "   oops"
 811 "   <recipients>"
 812 "       <to>wine-patches@winehq.org</to>"
 813 "   </recipients>"
 814 "   <from name=\"Anonymous\">user@localhost</from>"
 815 "   <subject>msxml3/tests: DTD validation (try 96)</subject>"
 816 "   <body>"
 817 "       XML_ILLEGAL_TEXT 0xC00CE018"
 818 "   </body>"
 819 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 820 "</email>";
 821
 822 static const CHAR szEmailXML_20[] =
 823 "<?xml version=\"1.0\"?>"
 824 SZ_EMAIL_DTD
 825 "<email>"
 826 "   <recipients>"
 827 "       <to>wine-patches@winehq.org</to>"
 828 "   </recipients>"
 829 "   <from name=\"Anonymous\">user@localhost</from>"
 830 "   <subject>msxml3/tests: DTD validation (try 97)</subject>"
 831 "   <body>"
 832 "       XML_REQUIRED_ATTRIBUTE_MISSING 0xC00CE020"
 833 "   </body>"
 834 "   <attachment id=\"patch1\">0001-msxml3-tests-DTD-validation.patch</attachment>"
 835 "</email>";
 836
 837 static const char xpath_simple_list[] =
 838 "<?xml version=\"1.0\"?>"
 839 "<root>"
 840 "   <a attr1=\"1\" attr2=\"2\" />"
 841 "   <b/>"
 842 "   <c/>"
 843 "   <d/>"
 844 "</root>";
 845
 846 static const char default_ns_doc[] = {
 847     "<?xml version=\"1.0\"?>"
 848     "<a xmlns:ns=\"nshref\" xml:lang=\"ru\" ns:b=\"b attr\" xml:c=\"c attr\" "
 849     "    d=\"d attr\" />"
 850 };
 851
 852 static const char attributes_map[] = {
 853     "<?xml version=\"1.0\"?>"
 854     "<a attr1=\"value1\" attr2=\"value2\" attr3=\"value3\" attr4=\"value4\" />"
 855 };
 856
 857 static const WCHAR nonexistent_fileW[] = {
 858     'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
 859 };
 860 static const WCHAR nonexistent_attrW[] = {
 861     'n','o','n','E','x','i','s','i','t','i','n','g','A','t','t','r','i','b','u','t','e',0
 862 };
 863 static const WCHAR szDocument[] = {
 864     '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
 865 };
 866
 867 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
 868 static WCHAR szdl[] = { 'd','l',0 };
 869 static const WCHAR szvr[] = { 'v','r',0 };
 870 static const WCHAR szlc[] = { 'l','c',0 };
 871 static WCHAR szbs[] = { 'b','s',0 };
 872 static const WCHAR szstr1[] = { 's','t','r','1',0 };
 873 static const WCHAR szstr2[] = { 's','t','r','2',0 };
 874 static const WCHAR szstar[] = { '*',0 };
 875 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
 876
 877 static WCHAR szComment[] = {'A',' ','C','o','m','m','e','n','t',0 };
 878 static WCHAR szCommentXML[] = {'<','!','-','-','A',' ','C','o','m','m','e','n','t','-','-','>',0 };
 879 static WCHAR szCommentNodeText[] = {'#','c','o','m','m','e','n','t',0 };
 880
 881 static WCHAR szElement[] = {'E','l','e','T','e','s','t', 0 };
 882 static WCHAR szElementXML[]  = {'<','E','l','e','T','e','s','t','/','>',0 };
 883 static WCHAR szElementXML2[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','/','>',0 };
 884 static WCHAR szElementXML3[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 885                                 'T','e','s','t','i','n','g','N','o','d','e','<','/','E','l','e','T','e','s','t','>',0 };
 886 static WCHAR szElementXML4[] = {'<','E','l','e','T','e','s','t',' ','A','t','t','r','=','"','"','>',
 887                                 '&','a','m','p',';','x',' ',0x2103,'<','/','E','l','e','T','e','s','t','>',0 };
 888
 889 static WCHAR szAttribute[] = {'A','t','t','r',0 };
 890 static WCHAR szAttributeXML[] = {'A','t','t','r','=','"','"',0 };
 891
 892 static WCHAR szCData[] = {'[','1',']','*','2','=','3',';',' ','&','g','e','e',' ','t','h','a','t','s',
 893                           ' ','n','o','t',' ','r','i','g','h','t','!', 0};
 894 static WCHAR szCDataXML[] = {'<','!','[','C','D','A','T','A','[','[','1',']','*','2','=','3',';',' ','&',
 895                              'g','e','e',' ','t','h','a','t','s',' ','n','o','t',' ','r','i','g','h','t',
 896                              '!',']',']','>',0};
 897 static WCHAR szCDataNodeText[] = {'#','c','d','a','t','a','-','s','e','c','t','i','o','n',0 };
 898 static WCHAR szDocFragmentText[] = {'#','d','o','c','u','m','e','n','t','-','f','r','a','g','m','e','n','t',0 };
 899
 900 static WCHAR szEntityRef[] = {'e','n','t','i','t','y','r','e','f',0 };
 901 static WCHAR szEntityRefXML[] = {'&','e','n','t','i','t','y','r','e','f',';',0 };
 902 static WCHAR szStrangeChars[] = {'&','x',' ',0x2103, 0};
 903
 904 #define expect_bstr_eq_and_free(bstr, expect) { \
 905     BSTR bstrExp = alloc_str_from_narrow(expect); \
 906     ok(lstrcmpW(bstr, bstrExp) == 0, "String differs\n"); \
 907     SysFreeString(bstr); \
 908     SysFreeString(bstrExp); \
 909 }
 910
 911 #define expect_eq(expr, value, type, format) { type ret = (expr); ok((value) == ret, #expr " expected " format " got " format "\n", value, ret); }
 912
 913 #define ole_check(expr) { \
 914     HRESULT r = expr; \
 915     ok(r == S_OK, #expr " returned %x\n", r); \
 916 }
 917
 918 #define ole_expect(expr, expect) { \
 919     HRESULT r = expr; \
 920     ok(r == (expect), #expr " returned %x, expected %x\n", r, expect); \
 921 }
 922
 923 #define double_eq(x, y) ok((x)-(y)<=1e-14*(x) && (x)-(y)>=-1e-14*(x), "expected %.16g, got %.16g\n", x, y)
 924
 925 static void* _create_object(const GUID *clsid, const char *name, const IID *iid, int line)
 926 {
 927     void *obj = NULL;
 928     HRESULT hr;
 929
 930     hr = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER, iid, &obj);
 931     ok(hr == S_OK, "failed to create %s instance: 0x%08x\n", name, hr);
 932
 933     return obj;
 934 }
 935
 936 #define _create(cls) cls, #cls
 937
 938 #define create_document(iid) _create_object(&_create(CLSID_DOMDocument2), iid, __LINE__)
 939 #define create_document_version(v, iid) _create_object(&_create(CLSID_DOMDocument ## v), iid, __LINE__)
 940 #define create_cache(iid) _create_object(&_create(CLSID_XMLSchemaCache), iid, __LINE__)
 941 #define create_xsltemplate(iid) _create_object(&_create(CLSID_XSLTemplate), iid, __LINE__)
 942
 943 static BSTR alloc_str_from_narrow(const char *str)
 944 {
 945     int len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 946     BSTR ret = SysAllocStringLen(NULL, len - 1);  /* NUL character added automatically */
 947     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 948     return ret;
 949 }
 950
 951 static BSTR alloced_bstrs[256];
 952 static int alloced_bstrs_count;
 953
 954 static BSTR _bstr_(const char *str)
 955 {
 956     assert(alloced_bstrs_count < sizeof(alloced_bstrs)/sizeof(alloced_bstrs[0]));
 957     alloced_bstrs[alloced_bstrs_count] = alloc_str_from_narrow(str);
 958     return alloced_bstrs[alloced_bstrs_count++];
 959 }
 960
 961 static void free_bstrs(void)
 962 {
 963     int i;
 964     for (i = 0; i < alloced_bstrs_count; i++)
 965         SysFreeString(alloced_bstrs[i]);
 966     alloced_bstrs_count = 0;
 967 }
 968
 969 static VARIANT _variantbstr_(const char *str)
 970 {
 971     VARIANT v;
 972     V_VT(&v) = VT_BSTR;
 973     V_BSTR(&v) = _bstr_(str);
 974     return v;
 975 }
 976
 977 static BOOL compareIgnoreReturns(BSTR sLeft, BSTR sRight)
 978 {
 979     for (;;)
 980     {
 981         while (*sLeft == '\r' || *sLeft == '\n') sLeft++;
 982         while (*sRight == '\r' || *sRight == '\n') sRight++;
 983         if (*sLeft != *sRight) return FALSE;
 984         if (!*sLeft) return TRUE;
 985         sLeft++;
 986         sRight++;
 987     }
 988 }
 989
 990 static void get_str_for_type(DOMNodeType type, char *buf)
 991 {
 992     switch (type)
 993     {
 994         case NODE_ATTRIBUTE:
 995             strcpy(buf, "A");
 996             break;
 997         case NODE_ELEMENT:
 998             strcpy(buf, "E");
 999             break;
1000         case NODE_DOCUMENT:
1001             strcpy(buf, "D");
1002             break;
1003         case NODE_TEXT:
1004             strcpy(buf, "T");
1005             break;
1006         case NODE_COMMENT:
1007             strcpy(buf, "C");
1008             break;
1009         case NODE_PROCESSING_INSTRUCTION:
1010             strcpy(buf, "P");
1011             break;
1012         default:
1013             wsprintfA(buf, "[%d]", type);
1014     }
1015 }
1016
1017 static int get_node_position(IXMLDOMNode *node)
1018 {
1019     HRESULT r;
1020     int pos = 0;
1021
1022     IXMLDOMNode_AddRef(node);
1023     do
1024     {
1025         IXMLDOMNode *new_node;
1026
1027         pos++;
1028         r = IXMLDOMNode_get_previousSibling(node, &new_node);
1029         ok(SUCCEEDED(r), "get_previousSibling failed\n");
1030         IXMLDOMNode_Release(node);
1031         node = new_node;
1032     } while (r == S_OK);
1033     return pos;
1034 }
1035
1036 static void node_to_string(IXMLDOMNode *node, char *buf)
1037 {
1038     HRESULT r = S_OK;
1039     DOMNodeType type;
1040
1041     if (node == NULL)
1042     {
1043         lstrcpyA(buf, "(null)");
1044         return;
1045     }
1046
1047     IXMLDOMNode_AddRef(node);
1048     while (r == S_OK)
1049     {
1050         IXMLDOMNode *new_node;
1051
1052         ole_check(IXMLDOMNode_get_nodeType(node, &type));
1053         get_str_for_type(type, buf);
1054         buf+=strlen(buf);
1055
1056         if (type == NODE_ATTRIBUTE)
1057         {
1058             BSTR bstr;
1059             ole_check(IXMLDOMNode_get_nodeName(node, &bstr));
1060             *(buf++) = '\'';
1061             wsprintfA(buf, "%ws", bstr);
1062             buf += strlen(buf);
1063             *(buf++) = '\'';
1064             SysFreeString(bstr);
1065
1066             r = IXMLDOMNode_selectSingleNode(node, _bstr_(".."), &new_node);
1067         }
1068         else
1069         {
1070             r = IXMLDOMNode_get_parentNode(node, &new_node);
1071             wsprintf(buf, "%d", get_node_position(node));
1072             buf += strlen(buf);
1073         }
1074
1075         ok(SUCCEEDED(r), "get_parentNode failed (%08x)\n", r);
1076         IXMLDOMNode_Release(node);
1077         node = new_node;
1078         if (r == S_OK)
1079             *(buf++) = '.';
1080     }
1081
1082     *buf = 0;
1083 }
1084
1085 static char *list_to_string(IXMLDOMNodeList *list)
1086 {
1087     static char buf[4096];
1088     char *pos = buf;
1089     LONG len = 0;
1090     int i;
1091
1092     if (list == NULL)
1093     {
1094         lstrcpyA(buf, "(null)");
1095         return buf;
1096     }
1097     ole_check(IXMLDOMNodeList_get_length(list, &len));
1098     for (i = 0; i < len; i++)
1099     {
1100         IXMLDOMNode *node;
1101         if (i > 0)
1102             *(pos++) = ' ';
1103         ole_check(IXMLDOMNodeList_nextNode(list, &node));
1104         node_to_string(node, pos);
1105         pos += strlen(pos);
1106         IXMLDOMNode_Release(node);
1107     }
1108     *pos = 0;
1109     return buf;
1110 }
1111
1112 #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); }
1113 #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); }
1114
1115 struct docload_ret_t {
1116     VARIANT_BOOL b;
1117     HRESULT hr;
1118 };
1119
1120 struct leading_spaces_t {
1121     const CLSID *clsid;
1122     const char *name;
1123     struct docload_ret_t ret[2]; /* 0 - ::load(), 1 - ::loadXML() */
1124 };
1125
1126 static const struct leading_spaces_t leading_spaces_classdata[] = {
1127     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE,  S_OK } }},
1128     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1129     { &CLSID_DOMDocument26, "CLSID_DOMDocument26", {{VARIANT_FALSE, S_FALSE }, {VARIANT_TRUE,  S_OK } }},
1130     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1131     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1132     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", {{VARIANT_FALSE, S_FALSE }, {VARIANT_FALSE, S_FALSE } }},
1133     { NULL }
1134 };
1135
1136 static const char* leading_spaces_xmldata[] = {
1137     "\n<?xml version=\"1.0\" encoding=\"UTF-16\" ?><root/>",
1138     " <?xml version=\"1.0\"?><root/>",
1139     "\n<?xml version=\"1.0\"?><root/>",
1140     "\t<?xml version=\"1.0\"?><root/>",
1141     "\r\n<?xml version=\"1.0\"?><root/>",
1142     "\r<?xml version=\"1.0\"?><root/>",
1143     "\r\r\r\r\t\t \n\n <?xml version=\"1.0\"?><root/>",
1144     0
1145 };
1146
1147 static void test_domdoc( void )
1148 {
1149     HRESULT r, hr;
1150     IXMLDOMDocument *doc;
1151     IXMLDOMParseError *error;
1152     IXMLDOMElement *element = NULL;
1153     IXMLDOMNode *node;
1154     IXMLDOMText *nodetext = NULL;
1155     IXMLDOMComment *node_comment = NULL;
1156     IXMLDOMAttribute *node_attr = NULL;
1157     IXMLDOMNode *nodeChild = NULL;
1158     IXMLDOMProcessingInstruction *nodePI = NULL;
1159     const struct leading_spaces_t *class_ptr;
1160     const char **data_ptr;
1161     VARIANT_BOOL b;
1162     VARIANT var;
1163     BSTR str;
1164     LONG code, ref;
1165     LONG nLength = 0;
1166     WCHAR buff[100];
1167     char path[MAX_PATH];
1168     int index;
1169
1170     GetTempPathA(MAX_PATH, path);
1171     strcat(path, "leading_spaces.xml");
1172
1173     /* Load document with leading spaces
1174      *
1175      * Test all CLSIDs with all test data XML strings
1176      */
1177     class_ptr = leading_spaces_classdata;
1178     index = 0;
1179     while (class_ptr->clsid)
1180     {
1181         HRESULT hr;
1182         int i;
1183
1184         if (is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument))
1185         {
1186             hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
1187         }
1188         else
1189         {
1190             class_ptr++;
1191             index++;
1192             continue;
1193         }
1194
1195         data_ptr = leading_spaces_xmldata;
1196         i = 0;
1197         while (*data_ptr) {
1198             BSTR data = _bstr_(*data_ptr);
1199             DWORD written;
1200             HANDLE file;
1201
1202             file = CreateFileA(path, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
1203             ok(file != INVALID_HANDLE_VALUE, "can't create file %s: %u\n", path, GetLastError());
1204
1205             WriteFile(file, data, lstrlenW(data)*sizeof(WCHAR), &written, NULL);
1206             CloseHandle(file);
1207
1208             b = 0xc;
1209             V_VT(&var) = VT_BSTR;
1210             V_BSTR(&var) = _bstr_(path);
1211             hr = IXMLDOMDocument_load(doc, var, &b);
1212             EXPECT_HR(hr, class_ptr->ret[0].hr);
1213             ok(b == class_ptr->ret[0].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[0].b);
1214
1215             DeleteFileA(path);
1216
1217             b = 0xc;
1218             hr = IXMLDOMDocument_loadXML(doc, data, &b);
1219             EXPECT_HR(hr, class_ptr->ret[1].hr);
1220             ok(b == class_ptr->ret[1].b, "%d:%d, got %d, expected %d\n", index, i, b, class_ptr->ret[1].b);
1221
1222             data_ptr++;
1223             i++;
1224         }
1225
1226         class_ptr++;
1227         index++;
1228         free_bstrs();
1229     }
1230
1231     doc = create_document(&IID_IXMLDOMDocument);
1232     if (!doc) return;
1233
1234 if (0)
1235 {
1236     /* crashes on native */
1237     IXMLDOMDocument_loadXML( doc, (BSTR)0x1, NULL );
1238 }
1239
1240     /* try some stupid things */
1241     hr = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1242     EXPECT_HR(hr, S_FALSE);
1243
1244     b = VARIANT_TRUE;
1245     hr = IXMLDOMDocument_loadXML( doc, NULL, &b );
1246     EXPECT_HR(hr, S_FALSE);
1247     ok( b == VARIANT_FALSE, "failed to load XML string\n");
1248
1249     /* try to load a document from a nonexistent file */
1250     b = VARIANT_TRUE;
1251     str = SysAllocString( nonexistent_fileW );
1252     VariantInit(&var);
1253     V_VT(&var) = VT_BSTR;
1254     V_BSTR(&var) = str;
1255
1256     r = IXMLDOMDocument_load( doc, var, &b);
1257     ok( r == S_FALSE, "loadXML succeeded\n");
1258     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1259     SysFreeString( str );
1260
1261     /* try load an empty document */
1262     b = VARIANT_TRUE;
1263     str = SysAllocString( szEmpty );
1264     r = IXMLDOMDocument_loadXML( doc, str, &b );
1265     ok( r == S_FALSE, "loadXML succeeded\n");
1266     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1267     SysFreeString( str );
1268
1269     r = IXMLDOMDocument_get_async( doc, &b );
1270     ok( r == S_OK, "get_async failed (%08x)\n", r);
1271     ok( b == VARIANT_TRUE, "Wrong default value\n");
1272
1273     /* check that there's no document element */
1274     element = NULL;
1275     r = IXMLDOMDocument_get_documentElement( doc, &element );
1276     ok( r == S_FALSE, "should be no document element\n");
1277
1278     /* try finding a node */
1279     node = NULL;
1280     str = SysAllocString( szstr1 );
1281     r = IXMLDOMDocument_selectSingleNode( doc, str, &node );
1282     ok( r == S_FALSE, "ret %08x\n", r );
1283     SysFreeString( str );
1284
1285     b = VARIANT_TRUE;
1286     str = SysAllocString( szIncomplete );
1287     r = IXMLDOMDocument_loadXML( doc, str, &b );
1288     ok( r == S_FALSE, "loadXML succeeded\n");
1289     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1290     SysFreeString( str );
1291
1292     /* check that there's no document element */
1293     element = (IXMLDOMElement*)1;
1294     r = IXMLDOMDocument_get_documentElement( doc, &element );
1295     ok( r == S_FALSE, "should be no document element\n");
1296     ok( element == NULL, "Element should be NULL\n");
1297
1298     /* test for BSTR handling, pass broken BSTR */
1299     memcpy(&buff[2], szComplete1, sizeof(szComplete1));
1300     /* just a big length */
1301     *(DWORD*)buff = 0xf0f0;
1302     b = VARIANT_FALSE;
1303     r = IXMLDOMDocument_loadXML( doc, &buff[2], &b );
1304     ok( r == S_OK, "loadXML failed\n");
1305     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1306
1307     /* loadXML ignores the encoding attribute and always expects Unicode */
1308     b = VARIANT_FALSE;
1309     str = SysAllocString( szComplete6 );
1310     r = IXMLDOMDocument_loadXML( doc, str, &b );
1311     ok( r == S_OK, "loadXML failed\n");
1312     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1313     SysFreeString( str );
1314
1315     /* try a BSTR containing a Windows-1252 document */
1316     b = VARIANT_TRUE;
1317     str = SysAllocStringByteLen( win1252xml, strlen(win1252xml) );
1318     r = IXMLDOMDocument_loadXML( doc, str, &b );
1319     ok( r == S_FALSE, "loadXML succeeded\n");
1320     ok( b == VARIANT_FALSE, "succeeded in loading XML string\n");
1321     SysFreeString( str );
1322
1323     /* try to load something valid */
1324     b = VARIANT_FALSE;
1325     str = SysAllocString( szComplete1 );
1326     r = IXMLDOMDocument_loadXML( doc, str, &b );
1327     ok( r == S_OK, "loadXML failed\n");
1328     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1329     SysFreeString( str );
1330
1331     /* check if nodename is correct */
1332     r = IXMLDOMDocument_get_nodeName( doc, NULL );
1333     ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1334
1335     str = (BSTR)0xdeadbeef;
1336     r = IXMLDOMDocument_get_baseName( doc, &str );
1337     ok ( r == S_FALSE, "got 0x%08x\n", r);
1338     ok (str == NULL, "got %p\n", str);
1339
1340     /* content doesn't matter here */
1341     str = NULL;
1342     r = IXMLDOMDocument_get_nodeName( doc, &str );
1343     ok ( r == S_OK, "get_nodeName wrong code\n");
1344     ok ( str != NULL, "str is null\n");
1345     ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
1346     SysFreeString( str );
1347
1348     /* test put_text */
1349     r = IXMLDOMDocument_put_text( doc, _bstr_("Should Fail") );
1350     ok( r == E_FAIL, "ret %08x\n", r );
1351
1352     /* check that there's a document element */
1353     element = NULL;
1354     r = IXMLDOMDocument_get_documentElement( doc, &element );
1355     ok( r == S_OK, "should be a document element\n");
1356     if( element )
1357     {
1358         IObjectIdentity *ident;
1359
1360         r = IXMLDOMElement_QueryInterface( element, &IID_IObjectIdentity, (void**)&ident );
1361         ok( r == E_NOINTERFACE, "ret %08x\n", r);
1362
1363         IXMLDOMElement_Release( element );
1364         element = NULL;
1365     }
1366
1367     /* as soon as we call loadXML again, the document element will disappear */
1368     b = 2;
1369     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
1370     ok( r == S_FALSE, "loadXML failed\n");
1371     ok( b == 2, "variant modified\n");
1372     r = IXMLDOMDocument_get_documentElement( doc, &element );
1373     ok( r == S_FALSE, "should be no document element\n");
1374
1375     /* try to load something else simple and valid */
1376     b = VARIANT_FALSE;
1377     str = SysAllocString( szComplete3 );
1378     r = IXMLDOMDocument_loadXML( doc, str, &b );
1379     ok( r == S_OK, "loadXML failed\n");
1380     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1381     SysFreeString( str );
1382
1383     /* try something a little more complicated */
1384     b = FALSE;
1385     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1386     ok( r == S_OK, "loadXML failed\n");
1387     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1388
1389     r = IXMLDOMDocument_get_parseError( doc, &error );
1390     ok( r == S_OK, "returns %08x\n", r );
1391
1392     r = IXMLDOMParseError_get_errorCode( error, &code );
1393     ok( r == S_FALSE, "returns %08x\n", r );
1394     ok( code == 0, "code %d\n", code );
1395     IXMLDOMParseError_Release( error );
1396
1397     /* test createTextNode */
1398     r = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &nodetext);
1399     ok( r == S_OK, "returns %08x\n", r );
1400     IXMLDOMText_Release(nodetext);
1401
1402     str = SysAllocString( szOpen );
1403     r = IXMLDOMDocument_createTextNode(doc, str, NULL);
1404     ok( r == E_INVALIDARG, "returns %08x\n", r );
1405     r = IXMLDOMDocument_createTextNode(doc, str, &nodetext);
1406     ok( r == S_OK, "returns %08x\n", r );
1407     SysFreeString( str );
1408     if(nodetext)
1409     {
1410         r = IXMLDOMText_QueryInterface(nodetext, &IID_IXMLDOMElement, (void**)&element);
1411         ok(r == E_NOINTERFACE, "ret %08x\n", r );
1412
1413         /* Text Last Child Checks */
1414         r = IXMLDOMText_get_lastChild(nodetext, NULL);
1415         ok(r == E_INVALIDARG, "ret %08x\n", r );
1416
1417         nodeChild = (IXMLDOMNode*)0x1;
1418         r = IXMLDOMText_get_lastChild(nodetext, &nodeChild);
1419         ok(r == S_FALSE, "ret %08x\n", r );
1420         ok(nodeChild == NULL, "nodeChild not NULL\n");
1421
1422         /* test length property */
1423         r = IXMLDOMText_get_length(nodetext, NULL);
1424         ok(r == E_INVALIDARG, "ret %08x\n", r );
1425
1426         r = IXMLDOMText_get_length(nodetext, &nLength);
1427         ok(r == S_OK, "ret %08x\n", r );
1428         ok(nLength == 4, "expected 4 got %d\n", nLength);
1429
1430         /* put data Tests */
1431         r = IXMLDOMText_put_data(nodetext, _bstr_("This &is a ; test <>\\"));
1432         ok(r == S_OK, "ret %08x\n", r );
1433
1434         /* get data Tests */
1435         r = IXMLDOMText_get_data(nodetext, &str);
1436         ok(r == S_OK, "ret %08x\n", r );
1437         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect put_data string\n");
1438         SysFreeString(str);
1439
1440         /* Confirm XML text is good */
1441         r = IXMLDOMText_get_xml(nodetext, &str);
1442         ok(r == S_OK, "ret %08x\n", r );
1443         ok( !lstrcmpW( str, _bstr_("This &amp;is a ; test &lt;&gt;\\") ), "incorrect xml string\n");
1444         SysFreeString(str);
1445
1446         /* Confirm we get the put_data Text back */
1447         r = IXMLDOMText_get_text(nodetext, &str);
1448         ok(r == S_OK, "ret %08x\n", r );
1449         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
1450         SysFreeString(str);
1451
1452         /* test substringData */
1453         r = IXMLDOMText_substringData(nodetext, 0, 4, NULL);
1454         ok(r == E_INVALIDARG, "ret %08x\n", r );
1455
1456         /* test substringData - Invalid offset */
1457         str = (BSTR)&szElement;
1458         r = IXMLDOMText_substringData(nodetext, -1, 4, &str);
1459         ok(r == E_INVALIDARG, "ret %08x\n", r );
1460         ok( str == NULL, "incorrect string\n");
1461
1462         /* test substringData - Invalid offset */
1463         str = (BSTR)&szElement;
1464         r = IXMLDOMText_substringData(nodetext, 30, 0, &str);
1465         ok(r == S_FALSE, "ret %08x\n", r );
1466         ok( str == NULL, "incorrect string\n");
1467
1468         /* test substringData - Invalid size */
1469         str = (BSTR)&szElement;
1470         r = IXMLDOMText_substringData(nodetext, 0, -1, &str);
1471         ok(r == E_INVALIDARG, "ret %08x\n", r );
1472         ok( str == NULL, "incorrect string\n");
1473
1474         /* test substringData - Invalid size */
1475         str = (BSTR)&szElement;
1476         r = IXMLDOMText_substringData(nodetext, 2, 0, &str);
1477         ok(r == S_FALSE, "ret %08x\n", r );
1478         ok( str == NULL, "incorrect string\n");
1479
1480         /* test substringData - Start of string */
1481         r = IXMLDOMText_substringData(nodetext, 0, 4, &str);
1482         ok(r == S_OK, "ret %08x\n", r );
1483         ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
1484         SysFreeString(str);
1485
1486         /* test substringData - Middle of string */
1487         r = IXMLDOMText_substringData(nodetext, 13, 4, &str);
1488         ok(r == S_OK, "ret %08x\n", r );
1489         ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
1490         SysFreeString(str);
1491
1492         /* test substringData - End of string */
1493         r = IXMLDOMText_substringData(nodetext, 20, 4, &str);
1494         ok(r == S_OK, "ret %08x\n", r );
1495         ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
1496         SysFreeString(str);
1497
1498         /* test appendData */
1499         r = IXMLDOMText_appendData(nodetext, NULL);
1500         ok(r == S_OK, "ret %08x\n", r );
1501
1502         r = IXMLDOMText_appendData(nodetext, _bstr_(""));
1503         ok(r == S_OK, "ret %08x\n", r );
1504
1505         r = IXMLDOMText_appendData(nodetext, _bstr_("Append"));
1506         ok(r == S_OK, "ret %08x\n", r );
1507
1508         r = IXMLDOMText_get_text(nodetext, &str);
1509         ok(r == S_OK, "ret %08x\n", r );
1510         ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1511         SysFreeString(str);
1512
1513         /* test insertData */
1514         str = SysAllocStringLen(NULL, 0);
1515         r = IXMLDOMText_insertData(nodetext, -1, str);
1516         ok(r == S_OK, "ret %08x\n", r );
1517
1518         r = IXMLDOMText_insertData(nodetext, -1, NULL);
1519         ok(r == S_OK, "ret %08x\n", r );
1520
1521         r = IXMLDOMText_insertData(nodetext, 1000, str);
1522         ok(r == S_OK, "ret %08x\n", r );
1523
1524         r = IXMLDOMText_insertData(nodetext, 1000, NULL);
1525         ok(r == S_OK, "ret %08x\n", r );
1526
1527         r = IXMLDOMText_insertData(nodetext, 0, NULL);
1528         ok(r == S_OK, "ret %08x\n", r );
1529
1530         r = IXMLDOMText_insertData(nodetext, 0, str);
1531         ok(r == S_OK, "ret %08x\n", r );
1532         SysFreeString(str);
1533
1534         r = IXMLDOMText_insertData(nodetext, -1, _bstr_("Inserting"));
1535         ok(r == E_INVALIDARG, "ret %08x\n", r );
1536
1537         r = IXMLDOMText_insertData(nodetext, 1000, _bstr_("Inserting"));
1538         ok(r == E_INVALIDARG, "ret %08x\n", r );
1539
1540         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("Begin "));
1541         ok(r == S_OK, "ret %08x\n", r );
1542
1543         r = IXMLDOMText_insertData(nodetext, 17, _bstr_("Middle"));
1544         ok(r == S_OK, "ret %08x\n", r );
1545
1546         r = IXMLDOMText_insertData(nodetext, 39, _bstr_(" End"));
1547         ok(r == S_OK, "ret %08x\n", r );
1548
1549         r = IXMLDOMText_get_text(nodetext, &str);
1550         ok(r == S_OK, "ret %08x\n", r );
1551         ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1552         SysFreeString(str);
1553
1554         /* delete data */
1555         /* invalid arguments */
1556         r = IXMLDOMText_deleteData(nodetext, -1, 1);
1557         ok(r == E_INVALIDARG, "ret %08x\n", r );
1558
1559         r = IXMLDOMText_deleteData(nodetext, 0, 0);
1560         ok(r == S_OK, "ret %08x\n", r );
1561
1562         r = IXMLDOMText_deleteData(nodetext, 0, -1);
1563         ok(r == E_INVALIDARG, "ret %08x\n", r );
1564
1565         r = IXMLDOMText_get_length(nodetext, &nLength);
1566         ok(r == S_OK, "ret %08x\n", r );
1567         ok(nLength == 43, "expected 43 got %d\n", nLength);
1568
1569         r = IXMLDOMText_deleteData(nodetext, nLength, 1);
1570         ok(r == S_OK, "ret %08x\n", r );
1571
1572         r = IXMLDOMText_deleteData(nodetext, nLength+1, 1);
1573         ok(r == E_INVALIDARG, "ret %08x\n", r );
1574
1575         /* delete from start */
1576         r = IXMLDOMText_deleteData(nodetext, 0, 5);
1577         ok(r == S_OK, "ret %08x\n", r );
1578
1579         r = IXMLDOMText_get_length(nodetext, &nLength);
1580         ok(r == S_OK, "ret %08x\n", r );
1581         ok(nLength == 38, "expected 38 got %d\n", nLength);
1582
1583         r = IXMLDOMText_get_text(nodetext, &str);
1584         ok(r == S_OK, "ret %08x\n", r );
1585         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1586         SysFreeString(str);
1587
1588         /* delete from end */
1589         r = IXMLDOMText_deleteData(nodetext, 35, 3);
1590         ok(r == S_OK, "ret %08x\n", r );
1591
1592         r = IXMLDOMText_get_length(nodetext, &nLength);
1593         ok(r == S_OK, "ret %08x\n", r );
1594         ok(nLength == 35, "expected 35 got %d\n", nLength);
1595
1596         r = IXMLDOMText_get_text(nodetext, &str);
1597         ok(r == S_OK, "ret %08x\n", r );
1598         ok( !lstrcmpW( str, _bstr_("This &is a Middle; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1599         SysFreeString(str);
1600
1601         /* delete from inside */
1602         r = IXMLDOMText_deleteData(nodetext, 1, 33);
1603         ok(r == S_OK, "ret %08x\n", r );
1604
1605         r = IXMLDOMText_get_length(nodetext, &nLength);
1606         ok(r == S_OK, "ret %08x\n", r );
1607         ok(nLength == 2, "expected 2 got %d\n", nLength);
1608
1609         r = IXMLDOMText_get_text(nodetext, &str);
1610         ok(r == S_OK, "ret %08x\n", r );
1611         ok( !lstrcmpW( str, _bstr_("") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1612         SysFreeString(str);
1613
1614         /* delete whole data ... */
1615         r = IXMLDOMText_get_length(nodetext, &nLength);
1616         ok(r == S_OK, "ret %08x\n", r );
1617
1618         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1619         ok(r == S_OK, "ret %08x\n", r );
1620         /* ... and try again with empty string */
1621         r = IXMLDOMText_deleteData(nodetext, 0, nLength);
1622         ok(r == S_OK, "ret %08x\n", r );
1623
1624         /* test put_data */
1625         V_VT(&var) = VT_BSTR;
1626         V_BSTR(&var) = SysAllocString(szstr1);
1627         r = IXMLDOMText_put_nodeValue(nodetext, var);
1628         ok(r == S_OK, "ret %08x\n", r );
1629         VariantClear(&var);
1630
1631         r = IXMLDOMText_get_text(nodetext, &str);
1632         ok(r == S_OK, "ret %08x\n", r );
1633         ok( !lstrcmpW( str, szstr1 ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1634         SysFreeString(str);
1635
1636         /* test put_data */
1637         V_VT(&var) = VT_I4;
1638         V_I4(&var) = 99;
1639         r = IXMLDOMText_put_nodeValue(nodetext, var);
1640         ok(r == S_OK, "ret %08x\n", r );
1641         VariantClear(&var);
1642
1643         r = IXMLDOMText_get_text(nodetext, &str);
1644         ok(r == S_OK, "ret %08x\n", r );
1645         ok( !lstrcmpW( str, _bstr_("99") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1646         SysFreeString(str);
1647
1648         /* ::replaceData() */
1649         V_VT(&var) = VT_BSTR;
1650         V_BSTR(&var) = SysAllocString(szstr1);
1651         r = IXMLDOMText_put_nodeValue(nodetext, var);
1652         ok(r == S_OK, "ret %08x\n", r );
1653         VariantClear(&var);
1654
1655         r = IXMLDOMText_replaceData(nodetext, 6, 0, NULL);
1656         ok(r == E_INVALIDARG, "ret %08x\n", r );
1657         r = IXMLDOMText_get_text(nodetext, &str);
1658         ok(r == S_OK, "ret %08x\n", r );
1659         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1660         SysFreeString(str);
1661
1662         r = IXMLDOMText_replaceData(nodetext, 0, 0, NULL);
1663         ok(r == S_OK, "ret %08x\n", r );
1664         r = IXMLDOMText_get_text(nodetext, &str);
1665         ok(r == S_OK, "ret %08x\n", r );
1666         ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1667         SysFreeString(str);
1668
1669         /* NULL pointer means delete */
1670         r = IXMLDOMText_replaceData(nodetext, 0, 1, NULL);
1671         ok(r == S_OK, "ret %08x\n", r );
1672         r = IXMLDOMText_get_text(nodetext, &str);
1673         ok(r == S_OK, "ret %08x\n", r );
1674         ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1675         SysFreeString(str);
1676
1677         /* empty string means delete */
1678         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_(""));
1679         ok(r == S_OK, "ret %08x\n", r );
1680         r = IXMLDOMText_get_text(nodetext, &str);
1681         ok(r == S_OK, "ret %08x\n", r );
1682         ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1683         SysFreeString(str);
1684
1685         /* zero count means insert */
1686         r = IXMLDOMText_replaceData(nodetext, 0, 0, _bstr_("a"));
1687         ok(r == S_OK, "ret %08x\n", r );
1688         r = IXMLDOMText_get_text(nodetext, &str);
1689         ok(r == S_OK, "ret %08x\n", r );
1690         ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1691         SysFreeString(str);
1692
1693         r = IXMLDOMText_replaceData(nodetext, 0, 2, NULL);
1694         ok(r == S_OK, "ret %08x\n", r );
1695
1696         r = IXMLDOMText_insertData(nodetext, 0, _bstr_("m"));
1697         ok(r == S_OK, "ret %08x\n", r );
1698         r = IXMLDOMText_get_text(nodetext, &str);
1699         ok(r == S_OK, "ret %08x\n", r );
1700         ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1701         SysFreeString(str);
1702
1703         /* nonempty string, count greater than its length */
1704         r = IXMLDOMText_replaceData(nodetext, 0, 2, _bstr_("a1.2"));
1705         ok(r == S_OK, "ret %08x\n", r );
1706         r = IXMLDOMText_get_text(nodetext, &str);
1707         ok(r == S_OK, "ret %08x\n", r );
1708         ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1709         SysFreeString(str);
1710
1711         /* nonempty string, count less than its length */
1712         r = IXMLDOMText_replaceData(nodetext, 0, 1, _bstr_("wine"));
1713         ok(r == S_OK, "ret %08x\n", r );
1714         r = IXMLDOMText_get_text(nodetext, &str);
1715         ok(r == S_OK, "ret %08x\n", r );
1716         ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
1717         SysFreeString(str);
1718
1719         IXMLDOMText_Release( nodetext );
1720     }
1721
1722     /* test Create Comment */
1723     r = IXMLDOMDocument_createComment(doc, NULL, NULL);
1724     ok( r == E_INVALIDARG, "returns %08x\n", r );
1725     node_comment = (IXMLDOMComment*)0x1;
1726
1727     /* empty comment */
1728     r = IXMLDOMDocument_createComment(doc, _bstr_(""), &node_comment);
1729     ok( r == S_OK, "returns %08x\n", r );
1730     str = (BSTR)0x1;
1731     r = IXMLDOMComment_get_data(node_comment, &str);
1732     ok( r == S_OK, "returns %08x\n", r );
1733     ok( str && SysStringLen(str) == 0, "expected empty string data\n");
1734     IXMLDOMComment_Release(node_comment);
1735     SysFreeString(str);
1736
1737     r = IXMLDOMDocument_createComment(doc, NULL, &node_comment);
1738     ok( r == S_OK, "returns %08x\n", r );
1739     str = (BSTR)0x1;
1740     r = IXMLDOMComment_get_data(node_comment, &str);
1741     ok( r == S_OK, "returns %08x\n", r );
1742     ok( str && (SysStringLen(str) == 0), "expected empty string data\n");
1743     IXMLDOMComment_Release(node_comment);
1744     SysFreeString(str);
1745
1746     str = SysAllocString(szComment);
1747     r = IXMLDOMDocument_createComment(doc, str, &node_comment);
1748     SysFreeString(str);
1749     ok( r == S_OK, "returns %08x\n", r );
1750     if(node_comment)
1751     {
1752         /* Last Child Checks */
1753         r = IXMLDOMComment_get_lastChild(node_comment, NULL);
1754         ok(r == E_INVALIDARG, "ret %08x\n", r );
1755
1756         nodeChild = (IXMLDOMNode*)0x1;
1757         r = IXMLDOMComment_get_lastChild(node_comment, &nodeChild);
1758         ok(r == S_FALSE, "ret %08x\n", r );
1759         ok(nodeChild == NULL, "pLastChild not NULL\n");
1760
1761         /* baseName */
1762         str = (BSTR)0xdeadbeef;
1763         r = IXMLDOMComment_get_baseName(node_comment, &str);
1764         ok(r == S_FALSE, "ret %08x\n", r );
1765         ok(str == NULL, "Expected NULL\n");
1766
1767         IXMLDOMComment_Release( node_comment );
1768     }
1769
1770     /* test Create Attribute */
1771     str = SysAllocString(szAttribute);
1772     r = IXMLDOMDocument_createAttribute(doc, NULL, NULL);
1773     ok( r == E_INVALIDARG, "returns %08x\n", r );
1774     r = IXMLDOMDocument_createAttribute(doc, str, &node_attr);
1775     ok( r == S_OK, "returns %08x\n", r );
1776     IXMLDOMAttribute_Release( node_attr);
1777     SysFreeString(str);
1778
1779     /* test Processing Instruction */
1780     str = SysAllocStringLen(NULL, 0);
1781     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, NULL);
1782     ok( r == E_INVALIDARG, "returns %08x\n", r );
1783     r = IXMLDOMDocument_createProcessingInstruction(doc, NULL, str, &nodePI);
1784     ok( r == E_FAIL, "returns %08x\n", r );
1785     r = IXMLDOMDocument_createProcessingInstruction(doc, str, str, &nodePI);
1786     ok( r == E_FAIL, "returns %08x\n", r );
1787     SysFreeString(str);
1788
1789     r = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"), _bstr_("version=\"1.0\""), &nodePI);
1790     ok( r == S_OK, "returns %08x\n", r );
1791     if(nodePI)
1792     {
1793         /* Last Child Checks */
1794         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, NULL);
1795         ok(r == E_INVALIDARG, "ret %08x\n", r );
1796
1797         nodeChild = (IXMLDOMNode*)0x1;
1798         r = IXMLDOMProcessingInstruction_get_lastChild(nodePI, &nodeChild);
1799         ok(r == S_FALSE, "ret %08x\n", r );
1800         ok(nodeChild == NULL, "nodeChild not NULL\n");
1801
1802         /* test nodeName */
1803         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1804         ok(r == S_OK, "ret %08x\n", r );
1805         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1806         SysFreeString(str);
1807
1808         /* test baseName */
1809         str = (BSTR)0x1;
1810         r = IXMLDOMProcessingInstruction_get_baseName(nodePI, &str);
1811         ok(r == S_OK, "ret %08x\n", r );
1812         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1813         SysFreeString(str);
1814
1815         /* test Target */
1816         r = IXMLDOMProcessingInstruction_get_target(nodePI, &str);
1817         ok(r == S_OK, "ret %08x\n", r );
1818         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect target string\n");
1819         SysFreeString(str);
1820
1821         /* test get_data */
1822         r = IXMLDOMProcessingInstruction_get_data(nodePI, &str);
1823         ok(r == S_OK, "ret %08x\n", r );
1824         ok( !lstrcmpW( str, _bstr_("version=\"1.0\"") ), "incorrect data string\n");
1825         SysFreeString(str);
1826
1827         /* test put_data */
1828         r = IXMLDOMProcessingInstruction_put_data(nodePI, _bstr_("version=\"1.0\" encoding=\"UTF-8\""));
1829         ok(r == E_FAIL, "ret %08x\n", r );
1830
1831         /* test put_data */
1832         V_VT(&var) = VT_BSTR;
1833         V_BSTR(&var) = SysAllocString(szOpen);  /* Doesn't matter what the string is, cannot set an xml node. */
1834         r = IXMLDOMProcessingInstruction_put_nodeValue(nodePI, var);
1835         ok(r == E_FAIL, "ret %08x\n", r );
1836         VariantClear(&var);
1837
1838         /* test get nodeName */
1839         r = IXMLDOMProcessingInstruction_get_nodeName(nodePI, &str);
1840         ok( !lstrcmpW( str, _bstr_("xml") ), "incorrect nodeName string\n");
1841         ok(r == S_OK, "ret %08x\n", r );
1842         SysFreeString(str);
1843
1844         IXMLDOMProcessingInstruction_Release(nodePI);
1845     }
1846
1847     ref = IXMLDOMDocument_Release( doc );
1848     ok( ref == 0, "got %d\n", ref);
1849
1850     free_bstrs();
1851 }
1852
1853 static void test_persiststreaminit(void)
1854 {
1855     IXMLDOMDocument *doc;
1856     IPersistStreamInit *streaminit;
1857     ULARGE_INTEGER size;
1858     HRESULT hr;
1859
1860     doc = create_document(&IID_IXMLDOMDocument);
1861
1862     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&streaminit);
1863     ok(hr == S_OK, "got 0x%08x\n", hr);
1864
1865     hr = IPersistStreamInit_InitNew(streaminit);
1866     ok(hr == S_OK, "got 0x%08x\n", hr);
1867
1868     hr = IPersistStreamInit_GetSizeMax(streaminit, &size);
1869     ok(hr == E_NOTIMPL, "got 0x%08x\n", hr);
1870
1871     IXMLDOMDocument_Release(doc);
1872 }
1873
1874 static void test_domnode( void )
1875 {
1876     HRESULT r;
1877     IXMLDOMDocument *doc, *owner = NULL;
1878     IXMLDOMElement *element = NULL;
1879     IXMLDOMNamedNodeMap *map = NULL;
1880     IXMLDOMNode *node = NULL, *next = NULL;
1881     IXMLDOMNodeList *list = NULL;
1882     IXMLDOMAttribute *attr = NULL;
1883     DOMNodeType type = NODE_INVALID;
1884     VARIANT_BOOL b;
1885     BSTR str;
1886     VARIANT var;
1887     LONG count;
1888
1889     doc = create_document(&IID_IXMLDOMDocument);
1890
1891     b = FALSE;
1892     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
1893     ok( r == S_OK, "loadXML failed\n");
1894     ok( b == VARIANT_TRUE, "failed to load XML string\n");
1895
1896     EXPECT_CHILDREN(doc);
1897
1898     r = IXMLDOMDocument_get_documentElement( doc, &element );
1899     ok( r == S_OK, "should be a document element\n");
1900     ok( element != NULL, "should be an element\n");
1901
1902     VariantInit(&var);
1903     ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
1904
1905     r = IXMLDOMDocument_get_nodeValue( doc, NULL );
1906     ok(r == E_INVALIDARG, "get_nodeValue ret %08x\n", r );
1907
1908     r = IXMLDOMDocument_get_nodeValue( doc, &var );
1909     ok( r == S_FALSE, "nextNode returned wrong code\n");
1910     ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
1911     ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
1912
1913     if (element)
1914     {
1915         owner = NULL;
1916         r = IXMLDOMElement_get_ownerDocument( element, &owner );
1917         ok( r == S_OK, "get_ownerDocument return code\n");
1918         ok( owner != doc, "get_ownerDocument return\n");
1919         IXMLDOMDocument_Release(owner);
1920
1921         type = NODE_INVALID;
1922         r = IXMLDOMElement_get_nodeType( element, &type);
1923         ok( r == S_OK, "got %08x\n", r);
1924         ok( type == NODE_ELEMENT, "node not an element\n");
1925
1926         str = NULL;
1927         r = IXMLDOMElement_get_baseName( element, &str );
1928         ok( r == S_OK, "get_baseName returned wrong code\n");
1929         ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
1930         SysFreeString(str);
1931
1932         /* check if nodename is correct */
1933         r = IXMLDOMElement_get_nodeName( element, NULL );
1934         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
1935
1936         /* content doesn't matter here */
1937         str = NULL;
1938         r = IXMLDOMElement_get_nodeName( element, &str );
1939         ok ( r == S_OK, "get_nodeName wrong code\n");
1940         ok ( str != NULL, "str is null\n");
1941         ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
1942         SysFreeString( str );
1943
1944         str = SysAllocString( nonexistent_fileW );
1945         V_VT(&var) = VT_I4;
1946         V_I4(&var) = 0x1234;
1947         r = IXMLDOMElement_getAttribute( element, str, &var );
1948         ok( r == E_FAIL, "getAttribute ret %08x\n", r );
1949         ok( V_VT(&var) == VT_NULL || V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
1950         VariantClear(&var);
1951
1952         str = SysAllocString( szdl );
1953         V_VT(&var) = VT_I4;
1954         V_I4(&var) = 0x1234;
1955         r = IXMLDOMElement_getAttribute( element, str, &var );
1956         ok( r == S_OK, "getAttribute ret %08x\n", r );
1957         ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
1958         ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
1959         VariantClear( &var );
1960
1961         r = IXMLDOMElement_getAttribute( element, NULL, &var );
1962         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1963
1964         r = IXMLDOMElement_getAttribute( element, str, NULL );
1965         ok( r == E_INVALIDARG, "getAttribute ret %08x\n", r );
1966
1967         attr = NULL;
1968         r = IXMLDOMElement_getAttributeNode( element, str, &attr);
1969         ok( r == S_OK, "GetAttributeNode ret %08x\n", r );
1970         ok( attr != NULL, "getAttributeNode returned NULL\n" );
1971         if (attr)
1972         {
1973             r = IXMLDOMAttribute_get_parentNode( attr, NULL );
1974             ok( r == E_INVALIDARG, "Expected E_INVALIDARG, ret %08x\n", r );
1975
1976             /* attribute doesn't have a parent in msxml interpretation */
1977             node = (IXMLDOMNode*)0xdeadbeef;
1978             r = IXMLDOMAttribute_get_parentNode( attr, &node );
1979             ok( r == S_FALSE, "Expected S_FALSE, ret %08x\n", r );
1980             ok( node == NULL, "Expected NULL, got %p\n", node );
1981
1982             IXMLDOMAttribute_Release(attr);
1983         }
1984
1985         SysFreeString( str );
1986
1987         r = IXMLDOMElement_get_attributes( element, &map );
1988         ok( r == S_OK, "get_attributes returned wrong code\n");
1989         ok( map != NULL, "should be attributes\n");
1990
1991         EXPECT_CHILDREN(element);
1992     }
1993     else
1994         ok( FALSE, "no element\n");
1995
1996     if (map)
1997     {
1998         str = SysAllocString( szdl );
1999         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
2000         ok( r == S_OK, "getNamedItem returned wrong code\n");
2001         ok( node != NULL, "should be attributes\n");
2002         IXMLDOMNode_Release(node);
2003         SysFreeString( str );
2004
2005         str = SysAllocString( szdl );
2006         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, NULL );
2007         ok( r == E_INVALIDARG, "getNamedItem should return E_INVALIDARG\n");
2008         SysFreeString( str );
2009
2010         /* something that isn't in complete4A */
2011         str = SysAllocString( szOpen );
2012         node = (IXMLDOMNode *) 1;
2013         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
2014         ok( r == S_FALSE, "getNamedItem found a node that wasn't there\n");
2015         ok( node == NULL, "getNamedItem should have returned NULL\n");
2016         SysFreeString( str );
2017
2018         /* test indexed access of attributes */
2019         r = IXMLDOMNamedNodeMap_get_length( map, NULL );
2020         ok ( r == E_INVALIDARG, "get_length should return E_INVALIDARG\n");
2021
2022         r = IXMLDOMNamedNodeMap_get_length( map, &count );
2023         ok ( r == S_OK, "get_length wrong code\n");
2024         ok ( count == 1, "get_length != 1\n");
2025
2026         node = NULL;
2027         r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
2028         ok ( r == S_FALSE, "get_item (-1) wrong code\n");
2029         ok ( node == NULL, "there is no node\n");
2030
2031         node = NULL;
2032         r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
2033         ok ( r == S_FALSE, "get_item (1) wrong code\n");
2034         ok ( node == NULL, "there is no attribute\n");
2035
2036         node = NULL;
2037         r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
2038         ok ( r == S_OK, "get_item (0) wrong code\n");
2039         ok ( node != NULL, "should be attribute\n");
2040
2041         r = IXMLDOMNode_get_nodeName( node, NULL );
2042         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
2043
2044         /* content doesn't matter here */
2045         str = NULL;
2046         r = IXMLDOMNode_get_nodeName( node, &str );
2047         ok ( r == S_OK, "get_nodeName wrong code\n");
2048         ok ( str != NULL, "str is null\n");
2049         ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
2050         SysFreeString( str );
2051         IXMLDOMNode_Release( node );
2052
2053         /* test sequential access of attributes */
2054         node = NULL;
2055         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2056         ok ( r == S_OK, "nextNode (first time) wrong code\n");
2057         ok ( node != NULL, "nextNode, should be attribute\n");
2058         IXMLDOMNode_Release( node );
2059
2060         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2061         ok ( r != S_OK, "nextNode (second time) wrong code\n");
2062         ok ( node == NULL, "nextNode, there is no attribute\n");
2063
2064         r = IXMLDOMNamedNodeMap_reset( map );
2065         ok ( r == S_OK, "reset should return S_OK\n");
2066
2067         r = IXMLDOMNamedNodeMap_nextNode( map, &node );
2068         ok ( r == S_OK, "nextNode (third time) wrong code\n");
2069         ok ( node != NULL, "nextNode, should be attribute\n");
2070     }
2071     else
2072         ok( FALSE, "no map\n");
2073
2074     if (node)
2075     {
2076         type = NODE_INVALID;
2077         r = IXMLDOMNode_get_nodeType( node, &type);
2078         ok( r == S_OK, "getNamedItem returned wrong code\n");
2079         ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
2080
2081         str = NULL;
2082         r = IXMLDOMNode_get_baseName( node, NULL );
2083         ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
2084
2085         str = NULL;
2086         r = IXMLDOMNode_get_baseName( node, &str );
2087         ok( r == S_OK, "get_baseName returned wrong code\n");
2088         ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
2089         SysFreeString( str );
2090
2091         r = IXMLDOMNode_get_childNodes( node, NULL );
2092         ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
2093
2094         r = IXMLDOMNode_get_childNodes( node, &list );
2095         ok( r == S_OK, "get_childNodes returned wrong code\n");
2096
2097         if (list)
2098         {
2099             r = IXMLDOMNodeList_nextNode( list, &next );
2100             ok( r == S_OK, "nextNode returned wrong code\n");
2101         }
2102         else
2103             ok( FALSE, "no childlist\n");
2104
2105         if (next)
2106         {
2107             EXPECT_NO_CHILDREN(next);
2108
2109             type = NODE_INVALID;
2110             r = IXMLDOMNode_get_nodeType( next, &type);
2111             ok( r == S_OK, "getNamedItem returned wrong code\n");
2112             ok( type == NODE_TEXT, "node not text\n");
2113
2114             str = (BSTR) 1;
2115             r = IXMLDOMNode_get_baseName( next, &str );
2116             ok( r == S_FALSE, "get_baseName returned wrong code\n");
2117             ok( str == NULL, "basename was wrong\n");
2118             SysFreeString(str);
2119         }
2120         else
2121             ok( FALSE, "no next\n");
2122
2123         if (next)
2124             IXMLDOMNode_Release( next );
2125         next = NULL;
2126         if (list)
2127             IXMLDOMNodeList_Release( list );
2128         list = NULL;
2129         if (node)
2130             IXMLDOMNode_Release( node );
2131     }
2132     else
2133         ok( FALSE, "no node\n");
2134     node = NULL;
2135
2136     if (map)
2137         IXMLDOMNamedNodeMap_Release( map );
2138
2139     /* now traverse the tree from the root element */
2140     if (element)
2141     {
2142         r = IXMLDOMElement_get_childNodes( element, &list );
2143         ok( r == S_OK, "get_childNodes returned wrong code\n");
2144
2145         /* using get_item for child list doesn't advance the position */
2146         ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
2147         expect_node(node, "E2.E2.D1");
2148         IXMLDOMNode_Release(node);
2149         ole_check(IXMLDOMNodeList_nextNode(list, &node));
2150         expect_node(node, "E1.E2.D1");
2151         IXMLDOMNode_Release(node);
2152         ole_check(IXMLDOMNodeList_reset(list));
2153
2154         IXMLDOMNodeList_AddRef(list);
2155         expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1");
2156         ole_check(IXMLDOMNodeList_reset(list));
2157
2158         node = (void*)0xdeadbeef;
2159         str = SysAllocString(szdl);
2160         r = IXMLDOMElement_selectSingleNode( element, str, &node );
2161         SysFreeString(str);
2162         ok( r == S_FALSE, "ret %08x\n", r );
2163         ok( node == NULL, "node %p\n", node );
2164
2165         str = SysAllocString(szbs);
2166         r = IXMLDOMElement_selectSingleNode( element, str, &node );
2167         SysFreeString(str);
2168         ok( r == S_OK, "ret %08x\n", r );
2169         r = IXMLDOMNode_Release( node );
2170         ok( r == 0, "ret %08x\n", r );
2171     }
2172     else
2173         ok( FALSE, "no element\n");
2174
2175     if (list)
2176     {
2177         r = IXMLDOMNodeList_get_item(list, 0, NULL);
2178         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2179
2180         r = IXMLDOMNodeList_get_length(list, NULL);
2181         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2182
2183         r = IXMLDOMNodeList_get_length( list, &count );
2184         ok( r == S_OK, "get_length returns %08x\n", r );
2185         ok( count == 4, "get_length got %d\n", count );
2186
2187         r = IXMLDOMNodeList_nextNode(list, NULL);
2188         ok(r == E_INVALIDARG, "Expected E_INVALIDARG got %08x\n", r);
2189
2190         r = IXMLDOMNodeList_nextNode( list, &node );
2191         ok( r == S_OK, "nextNode returned wrong code\n");
2192     }
2193     else
2194         ok( FALSE, "no list\n");
2195
2196     if (node)
2197     {
2198         type = NODE_INVALID;
2199         r = IXMLDOMNode_get_nodeType( node, &type);
2200         ok( r == S_OK, "getNamedItem returned wrong code\n");
2201         ok( type == NODE_ELEMENT, "node not text\n");
2202
2203         r = IXMLDOMNode_hasChildNodes( node, NULL );
2204         ok( r == E_INVALIDARG, "hasChildNodes bad return\n");
2205
2206         EXPECT_CHILDREN(node);
2207
2208         str = NULL;
2209         r = IXMLDOMNode_get_baseName( node, &str );
2210         ok( r == S_OK, "get_baseName returned wrong code\n");
2211         ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
2212         SysFreeString(str);
2213     }
2214     else
2215         ok( FALSE, "no node\n");
2216
2217     if (node)
2218         IXMLDOMNode_Release( node );
2219     if (list)
2220         IXMLDOMNodeList_Release( list );
2221     if (element)
2222         IXMLDOMElement_Release( element );
2223
2224     b = FALSE;
2225     str = SysAllocString( szComplete5 );
2226     r = IXMLDOMDocument_loadXML( doc, str, &b );
2227     ok( r == S_OK, "loadXML failed\n");
2228     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2229     SysFreeString( str );
2230
2231     EXPECT_CHILDREN(doc);
2232
2233     r = IXMLDOMDocument_get_documentElement( doc, &element );
2234     ok( r == S_OK, "should be a document element\n");
2235     ok( element != NULL, "should be an element\n");
2236
2237     if (element)
2238     {
2239         static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
2240         BSTR tag = NULL;
2241
2242         /* check if the tag is correct */
2243         r = IXMLDOMElement_get_tagName( element, &tag );
2244         ok( r == S_OK, "couldn't get tag name\n");
2245         ok( tag != NULL, "tag was null\n");
2246         ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
2247         SysFreeString( tag );
2248     }
2249
2250     if (element)
2251         IXMLDOMElement_Release( element );
2252     ok(IXMLDOMDocument_Release( doc ) == 0, "document is not destroyed\n");
2253
2254     free_bstrs();
2255 }
2256
2257 typedef struct {
2258     DOMNodeType type;
2259     REFIID iid;
2260 } refcount_test_t;
2261
2262 static const refcount_test_t refcount_test[] = {
2263     { NODE_ELEMENT,                &IID_IXMLDOMElement },
2264     { NODE_ATTRIBUTE,              &IID_IXMLDOMAttribute },
2265     { NODE_TEXT,                   &IID_IXMLDOMText },
2266     { NODE_CDATA_SECTION,          &IID_IXMLDOMCDATASection },
2267     { NODE_ENTITY_REFERENCE,       &IID_IXMLDOMEntityReference },
2268     { NODE_PROCESSING_INSTRUCTION, &IID_IXMLDOMProcessingInstruction },
2269     { NODE_COMMENT,                &IID_IXMLDOMComment },
2270     { NODE_DOCUMENT_FRAGMENT,      &IID_IXMLDOMDocumentFragment },
2271     { NODE_INVALID,                &IID_NULL }
2272 };
2273
2274 static void test_refs(void)
2275 {
2276     IXMLDOMImplementation *impl, *impl2;
2277     IXMLDOMElement *element, *elem2;
2278     IXMLDOMNodeList *node_list = NULL;
2279     IXMLDOMNode *node, *node2, *node3;
2280     const refcount_test_t *ptr;
2281     IXMLDOMDocument *doc;
2282     IUnknown *unk, *unk2;
2283     VARIANT_BOOL b;
2284     HRESULT hr;
2285     LONG ref;
2286
2287     doc = create_document(&IID_IXMLDOMDocument);
2288
2289     ptr = refcount_test;
2290     while (ptr->type != NODE_INVALID)
2291     {
2292         IUnknown *node_typed, *node_typed2;
2293         IDispatchEx *dispex, *dispex2;
2294         IDispatch *disp, *disp2;
2295         VARIANT type;
2296
2297         V_VT(&type) = VT_I1;
2298         V_I1(&type) = ptr->type;
2299
2300         EXPECT_REF(doc, 1);
2301         hr = IXMLDOMDocument_createNode(doc, type, _bstr_("name"), NULL, &node);
2302         EXPECT_HR(hr, S_OK);
2303         EXPECT_REF(doc, 1);
2304         EXPECT_REF(node, 1);
2305
2306         /* try IDispatch and IUnknown from IXMLDOMNode */
2307         hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
2308         EXPECT_HR(hr, S_OK);
2309         EXPECT_REF(unk, 2);
2310 todo_wine {
2311         EXPECT_REF(node, 1);
2312         ok(unk != (IUnknown*)node, "%d: got %p and %p\n", ptr->type, unk, node);
2313 }
2314         EXPECT_REF(unk, 2);
2315         hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
2316         EXPECT_HR(hr, S_OK);
2317         todo_wine ok(unk != (IUnknown*)disp, "%d: got %p and %p\n", ptr->type, unk, disp);
2318         EXPECT_REF(unk, 3);
2319         todo_wine EXPECT_REF(disp, 1);
2320
2321         EXPECT_REF(unk, 3);
2322         hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp2);
2323         EXPECT_HR(hr, S_OK);
2324         todo_wine ok(disp != disp2, "%d: got %p and %p\n", ptr->type, disp, disp2);
2325         EXPECT_REF(unk, 4);
2326         todo_wine EXPECT_REF(disp2, 1);
2327
2328         IDispatch_Release(disp);
2329         IDispatch_Release(disp2);
2330
2331         /* get IXMLDOMNode from this IUnknown */
2332         EXPECT_REF(unk, 2);
2333         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node2);
2334         EXPECT_HR(hr, S_OK);
2335         todo_wine ok(unk != (IUnknown*)node2, "%d: got %p and %p\n", ptr->type, unk, node2);
2336         EXPECT_REF(unk, 3);
2337         todo_wine EXPECT_REF(node2, 1);
2338
2339         EXPECT_REF(unk, 3);
2340         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMNode, (void**)&node3);
2341         EXPECT_HR(hr, S_OK);
2342         todo_wine ok(node2 != node3, "%d: got %p and %p\n", ptr->type, node2, node3);
2343         EXPECT_REF(unk, 4);
2344         todo_wine EXPECT_REF(node3, 1);
2345
2346         IXMLDOMNode_Release(node2);
2347         IXMLDOMNode_Release(node3);
2348
2349         /* try IDispatchEx from IUnknown */
2350         EXPECT_REF(unk, 2);
2351         hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
2352         EXPECT_HR(hr, S_OK);
2353         ok(unk != (IUnknown*)dispex, "%d: got %p and %p\n", ptr->type, unk, dispex);
2354         EXPECT_REF(unk, 3);
2355         todo_wine EXPECT_REF(dispex, 1);
2356
2357         EXPECT_REF(unk, 3);
2358         hr = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex2);
2359         EXPECT_HR(hr, S_OK);
2360         todo_wine ok(dispex != dispex2, "%d: got %p and %p\n", ptr->type, dispex, dispex2);
2361         EXPECT_REF(unk, 4);
2362         todo_wine EXPECT_REF(dispex2, 1);
2363
2364         IDispatchEx_Release(dispex);
2365         IDispatchEx_Release(dispex2);
2366
2367         /* try corresponding IXMLDOM* */
2368         EXPECT_REF(unk, 2);
2369         hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed);
2370         EXPECT_HR(hr, S_OK);
2371         EXPECT_REF(unk, 3);
2372         hr = IUnknown_QueryInterface(unk, ptr->iid, (void**)&node_typed2);
2373         EXPECT_HR(hr, S_OK);
2374         EXPECT_REF(unk, 4);
2375         todo_wine ok(node_typed != node_typed2, "%d: got %p and %p\n", ptr->type, node_typed, node_typed2);
2376         IUnknown_Release(node_typed);
2377         IUnknown_Release(node_typed2);
2378
2379         /* try invalid IXMLDOM* */
2380         hr = IUnknown_QueryInterface(unk, (ptr+1)->iid, (void**)&node_typed);
2381         EXPECT_HR(hr, E_NOINTERFACE);
2382
2383         IUnknown_Release(unk);
2384
2385         EXPECT_REF(node, 1);
2386         hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMNode, (void**)&node2);
2387         EXPECT_HR(hr, S_OK);
2388         EXPECT_REF(node, 2);
2389         ok(node == node2, "%d: got %p and %p\n", ptr->type, node, node2);
2390
2391         EXPECT_REF(node, 2);
2392         hr = IXMLDOMNode_QueryInterface(node, ptr->iid, (void**)&node_typed);
2393         EXPECT_HR(hr, S_OK);
2394         EXPECT_REF(node, 3);
2395 todo_wine {
2396         EXPECT_REF(node_typed, 2);
2397         ok((IUnknown*)node != node_typed, "%d: got %p and %p\n", ptr->type, node, node_typed);
2398 }
2399         IUnknown_Release(node_typed);
2400
2401         IXMLDOMNode_Release(node2);
2402         IXMLDOMNode_Release(node);
2403
2404         ptr++;
2405     }
2406
2407     EXPECT_REF(doc, 1);
2408     ref = IXMLDOMDocument_Release(doc);
2409     ok( ref == 0, "ref %d\n", ref);
2410
2411     /* check IUnknown after releasing DOM iface */
2412     doc = create_document(&IID_IXMLDOMDocument);
2413     EXPECT_REF(doc, 1);
2414     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2415     EXPECT_HR(hr, S_OK);
2416 todo_wine {
2417     EXPECT_REF(unk, 3);
2418     EXPECT_REF(doc, 1);
2419 }
2420     IXMLDOMDocument_Release(doc);
2421     EXPECT_REF(unk, 1);
2422     IUnknown_Release(unk);
2423
2424     doc = create_document(&IID_IXMLDOMDocument);
2425
2426     EXPECT_REF(doc, 1);
2427     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2428     EXPECT_HR(hr, S_OK);
2429 todo_wine {
2430     EXPECT_REF(unk, 3);
2431     EXPECT_REF(doc, 1);
2432 }
2433     IUnknown_Release(unk);
2434
2435     /* IXMLDOMImplementation */
2436     EXPECT_REF(doc, 1);
2437     hr = IXMLDOMDocument_get_implementation(doc, &impl);
2438     EXPECT_HR(hr, S_OK);
2439     EXPECT_REF(doc, 1);
2440     EXPECT_REF(impl, 1);
2441     hr = IXMLDOMDocument_get_implementation(doc, &impl2);
2442     EXPECT_HR(hr, S_OK);
2443     EXPECT_REF(doc, 1);
2444     EXPECT_REF(impl2, 1);
2445     ok(impl != impl2, "got %p, %p\n", impl, impl2);
2446     IXMLDOMImplementation_Release(impl);
2447     IXMLDOMImplementation_Release(impl2);
2448
2449     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
2450     EXPECT_HR(hr, S_OK);
2451     ok( b == VARIANT_TRUE, "failed to load XML string\n");
2452
2453     EXPECT_REF(doc, 1);
2454     IXMLDOMDocument_AddRef( doc );
2455     EXPECT_REF(doc, 2);
2456     IXMLDOMDocument_AddRef( doc );
2457     EXPECT_REF(doc, 3);
2458
2459     IXMLDOMDocument_Release( doc );
2460     IXMLDOMDocument_Release( doc );
2461
2462     EXPECT_REF(doc, 1);
2463     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
2464     EXPECT_HR(hr, S_OK);
2465 todo_wine {
2466     EXPECT_REF(unk, 3);
2467     EXPECT_REF(doc, 1);
2468 }
2469     hr = IXMLDOMDocument_get_documentElement(doc, &element);
2470     EXPECT_HR(hr, S_OK);
2471 todo_wine {
2472     EXPECT_REF(doc, 1);
2473     EXPECT_REF(element, 2);
2474 }
2475     hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
2476     EXPECT_HR(hr, S_OK);
2477
2478 todo_wine {
2479     EXPECT_REF(doc, 1);
2480     EXPECT_REF(element, 2);
2481     EXPECT_REF(elem2, 2);
2482 }
2483     IXMLDOMElement_AddRef(element);
2484     todo_wine EXPECT_REF(element, 3);
2485     IXMLDOMElement_Release(element);
2486
2487     /* get IUnknown from a node doesn't touch node instance refcount */
2488     hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2489     EXPECT_HR(hr, S_OK);
2490     EXPECT_REF(element, 2);
2491 todo_wine {
2492     EXPECT_REF(unk, 4);
2493     EXPECT_REF(elem2, 2);
2494 }
2495     hr = IXMLDOMElement_QueryInterface(elem2, &IID_IUnknown, (void**)&unk2);
2496     EXPECT_HR(hr, S_OK);
2497 todo_wine {
2498     EXPECT_REF(unk, 5);
2499     EXPECT_REF(unk2, 5);
2500 }
2501     EXPECT_REF(element, 2);
2502     EXPECT_REF(elem2, 2);
2503
2504     todo_wine ok(unk == unk2, "got %p and %p\n", unk, unk2);
2505
2506     IUnknown_Release(unk);
2507     IUnknown_Release(unk2);
2508
2509     /* IUnknown refcount is not affected by node refcount */
2510     todo_wine EXPECT_REF(unk2, 3);
2511     IXMLDOMElement_AddRef(elem2);
2512     todo_wine EXPECT_REF(unk2, 3);
2513     IXMLDOMElement_Release(elem2);
2514
2515     IXMLDOMElement_Release(elem2);
2516     todo_wine EXPECT_REF(unk2, 2);
2517
2518     hr = IXMLDOMElement_get_childNodes( element, &node_list );
2519     EXPECT_HR(hr, S_OK);
2520
2521     todo_wine EXPECT_REF(element, 2);
2522     EXPECT_REF(node_list, 1);
2523
2524     hr = IXMLDOMNodeList_get_item( node_list, 0, &node );
2525     EXPECT_HR(hr, S_OK);
2526     EXPECT_REF(node_list, 1);
2527     EXPECT_REF(node, 1);
2528
2529     hr = IXMLDOMNodeList_get_item( node_list, 0, &node2 );
2530     EXPECT_HR(hr, S_OK);
2531     EXPECT_REF(node_list, 1);
2532     EXPECT_REF(node2, 1);
2533
2534     ref = IXMLDOMNode_Release( node );
2535     ok( ref == 0, "ref %d\n", ref );
2536     ref = IXMLDOMNode_Release( node2 );
2537     ok( ref == 0, "ref %d\n", ref );
2538
2539     ref = IXMLDOMNodeList_Release( node_list );
2540     ok( ref == 0, "ref %d\n", ref );
2541
2542     ok( node != node2, "node %p node2 %p\n", node, node2 );
2543
2544     ref = IXMLDOMDocument_Release( doc );
2545     todo_wine ok( ref == 0, "ref %d\n", ref );
2546
2547     todo_wine EXPECT_REF(element, 2);
2548
2549     /* IUnknown must be unique however we obtain it */
2550     hr = IXMLDOMElement_QueryInterface(element, &IID_IUnknown, (void**)&unk);
2551     EXPECT_HR(hr, S_OK);
2552     EXPECT_REF(element, 2);
2553     hr = IXMLDOMElement_QueryInterface(element, &IID_IXMLDOMNode, (void**)&node);
2554     EXPECT_HR(hr, S_OK);
2555     todo_wine EXPECT_REF(element, 2);
2556     hr = IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk2);
2557     EXPECT_HR(hr, S_OK);
2558     todo_wine EXPECT_REF(element, 2);
2559     ok(unk == unk2, "unk %p unk2 %p\n", unk, unk2);
2560     todo_wine ok(element != (void*)node, "node %p element %p\n", node, element);
2561
2562     IUnknown_Release( unk2 );
2563     IUnknown_Release( unk );
2564     IXMLDOMNode_Release( node );
2565     todo_wine EXPECT_REF(element, 2);
2566
2567     IXMLDOMElement_Release( element );
2568
2569     free_bstrs();
2570 }
2571
2572 static void test_create(void)
2573 {
2574     static const WCHAR szOne[] = {'1',0};
2575     static const WCHAR szOneGarbage[] = {'1','G','a','r','b','a','g','e',0};
2576     HRESULT r;
2577     VARIANT var;
2578     BSTR str, name;
2579     IXMLDOMDocument *doc;
2580     IXMLDOMElement *element;
2581     IXMLDOMComment *comment;
2582     IXMLDOMText *text;
2583     IXMLDOMCDATASection *cdata;
2584     IXMLDOMNode *root, *node, *child;
2585     IXMLDOMNamedNodeMap *attr_map;
2586     IUnknown *unk;
2587     LONG ref;
2588     LONG num;
2589
2590     doc = create_document(&IID_IXMLDOMDocument);
2591
2592     EXPECT_REF(doc, 1);
2593
2594     /* types not supported for creation */
2595     V_VT(&var) = VT_I1;
2596     V_I1(&var) = NODE_DOCUMENT;
2597     node = (IXMLDOMNode*)0x1;
2598     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2599     ok( r == E_INVALIDARG, "returns %08x\n", r );
2600     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2601
2602     V_VT(&var) = VT_I1;
2603     V_I1(&var) = NODE_DOCUMENT_TYPE;
2604     node = (IXMLDOMNode*)0x1;
2605     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2606     ok( r == E_INVALIDARG, "returns %08x\n", r );
2607     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2608
2609     V_VT(&var) = VT_I1;
2610     V_I1(&var) = NODE_ENTITY;
2611     node = (IXMLDOMNode*)0x1;
2612     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2613     ok( r == E_INVALIDARG, "returns %08x\n", r );
2614     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2615
2616     V_VT(&var) = VT_I1;
2617     V_I1(&var) = NODE_NOTATION;
2618     node = (IXMLDOMNode*)0x1;
2619     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2620     ok( r == E_INVALIDARG, "returns %08x\n", r );
2621     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2622
2623     /* NODE_COMMENT */
2624     V_VT(&var) = VT_I1;
2625     V_I1(&var) = NODE_COMMENT;
2626     node = NULL;
2627     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2628     ok( r == S_OK, "returns %08x\n", r );
2629     ok( node != NULL, "\n");
2630
2631     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2632     ok( r == S_OK, "returns %08x\n", r );
2633     IXMLDOMNode_Release(node);
2634
2635     str = NULL;
2636     r = IXMLDOMComment_get_data(comment, &str);
2637     ok( r == S_OK, "returns %08x\n", r );
2638     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2639     IXMLDOMComment_Release(comment);
2640     SysFreeString(str);
2641
2642     node = (IXMLDOMNode*)0x1;
2643     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2644     ok( r == S_OK, "returns %08x\n", r );
2645
2646     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2647     ok( r == S_OK, "returns %08x\n", r );
2648     IXMLDOMNode_Release(node);
2649
2650     str = NULL;
2651     r = IXMLDOMComment_get_data(comment, &str);
2652     ok( r == S_OK, "returns %08x\n", r );
2653     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2654     IXMLDOMComment_Release(comment);
2655     SysFreeString(str);
2656
2657     node = (IXMLDOMNode*)0x1;
2658     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2659     ok( r == S_OK, "returns %08x\n", r );
2660
2661     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
2662     ok( r == S_OK, "returns %08x\n", r );
2663     IXMLDOMNode_Release(node);
2664
2665     str = NULL;
2666     r = IXMLDOMComment_get_data(comment, &str);
2667     ok( r == S_OK, "returns %08x\n", r );
2668     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2669     IXMLDOMComment_Release(comment);
2670     SysFreeString(str);
2671
2672     /* NODE_TEXT */
2673     V_VT(&var) = VT_I1;
2674     V_I1(&var) = NODE_TEXT;
2675     node = NULL;
2676     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2677     ok( r == S_OK, "returns %08x\n", r );
2678     ok( node != NULL, "\n");
2679
2680     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2681     ok( r == S_OK, "returns %08x\n", r );
2682     IXMLDOMNode_Release(node);
2683
2684     str = NULL;
2685     r = IXMLDOMText_get_data(text, &str);
2686     ok( r == S_OK, "returns %08x\n", r );
2687     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2688     IXMLDOMText_Release(text);
2689     SysFreeString(str);
2690
2691     node = (IXMLDOMNode*)0x1;
2692     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2693     ok( r == S_OK, "returns %08x\n", r );
2694
2695     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2696     ok( r == S_OK, "returns %08x\n", r );
2697     IXMLDOMNode_Release(node);
2698
2699     str = NULL;
2700     r = IXMLDOMText_get_data(text, &str);
2701     ok( r == S_OK, "returns %08x\n", r );
2702     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2703     IXMLDOMText_Release(text);
2704     SysFreeString(str);
2705
2706     node = (IXMLDOMNode*)0x1;
2707     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2708     ok( r == S_OK, "returns %08x\n", r );
2709
2710     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
2711     ok( r == S_OK, "returns %08x\n", r );
2712     IXMLDOMNode_Release(node);
2713
2714     str = NULL;
2715     r = IXMLDOMText_get_data(text, &str);
2716     ok( r == S_OK, "returns %08x\n", r );
2717     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2718     IXMLDOMText_Release(text);
2719     SysFreeString(str);
2720
2721     /* NODE_CDATA_SECTION */
2722     V_VT(&var) = VT_I1;
2723     V_I1(&var) = NODE_CDATA_SECTION;
2724     node = NULL;
2725     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2726     ok( r == S_OK, "returns %08x\n", r );
2727     ok( node != NULL, "\n");
2728
2729     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2730     ok( r == S_OK, "returns %08x\n", r );
2731     IXMLDOMNode_Release(node);
2732
2733     str = NULL;
2734     r = IXMLDOMCDATASection_get_data(cdata, &str);
2735     ok( r == S_OK, "returns %08x\n", r );
2736     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2737     IXMLDOMCDATASection_Release(cdata);
2738     SysFreeString(str);
2739
2740     node = (IXMLDOMNode*)0x1;
2741     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2742     ok( r == S_OK, "returns %08x\n", r );
2743
2744     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2745     ok( r == S_OK, "returns %08x\n", r );
2746     IXMLDOMNode_Release(node);
2747
2748     str = NULL;
2749     r = IXMLDOMCDATASection_get_data(cdata, &str);
2750     ok( r == S_OK, "returns %08x\n", r );
2751     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2752     IXMLDOMCDATASection_Release(cdata);
2753     SysFreeString(str);
2754
2755     node = (IXMLDOMNode*)0x1;
2756     r = IXMLDOMDocument_createNode( doc, var, _bstr_("blah"), NULL, &node );
2757     ok( r == S_OK, "returns %08x\n", r );
2758
2759     r = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
2760     ok( r == S_OK, "returns %08x\n", r );
2761     IXMLDOMNode_Release(node);
2762
2763     str = NULL;
2764     r = IXMLDOMCDATASection_get_data(cdata, &str);
2765     ok( r == S_OK, "returns %08x\n", r );
2766     ok( str && SysStringLen(str) == 0, "expected empty comment, %p\n", str);
2767     IXMLDOMCDATASection_Release(cdata);
2768     SysFreeString(str);
2769
2770     /* NODE_ATTRIBUTE */
2771     V_VT(&var) = VT_I1;
2772     V_I1(&var) = NODE_ATTRIBUTE;
2773     node = (IXMLDOMNode*)0x1;
2774     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2775     ok( r == E_FAIL, "returns %08x\n", r );
2776     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2777
2778     V_VT(&var) = VT_I1;
2779     V_I1(&var) = NODE_ATTRIBUTE;
2780     node = (IXMLDOMNode*)0x1;
2781     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2782     ok( r == E_FAIL, "returns %08x\n", r );
2783     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2784
2785     V_VT(&var) = VT_I1;
2786     V_I1(&var) = NODE_ATTRIBUTE;
2787     str = SysAllocString( szlc );
2788     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2789     ok( r == S_OK, "returns %08x\n", r );
2790     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2791     SysFreeString(str);
2792
2793     /* a name is required for attribute, try a BSTR with first null wchar */
2794     V_VT(&var) = VT_I1;
2795     V_I1(&var) = NODE_ATTRIBUTE;
2796     str = SysAllocString( szstr1 );
2797     str[0] = 0;
2798     node = (IXMLDOMNode*)0x1;
2799     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2800     ok( r == E_FAIL, "returns %08x\n", r );
2801     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2802     SysFreeString(str);
2803
2804     /* NODE_PROCESSING_INSTRUCTION */
2805     V_VT(&var) = VT_I1;
2806     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2807     node = (IXMLDOMNode*)0x1;
2808     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2809     ok( r == E_FAIL, "returns %08x\n", r );
2810     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2811
2812     V_VT(&var) = VT_I1;
2813     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2814     node = (IXMLDOMNode*)0x1;
2815     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2816     ok( r == E_FAIL, "returns %08x\n", r );
2817     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2818
2819     V_VT(&var) = VT_I1;
2820     V_I1(&var) = NODE_PROCESSING_INSTRUCTION;
2821     r = IXMLDOMDocument_createNode( doc, var, _bstr_("pi"), NULL, NULL );
2822     ok( r == E_INVALIDARG, "returns %08x\n", r );
2823
2824     /* NODE_ENTITY_REFERENCE */
2825     V_VT(&var) = VT_I1;
2826     V_I1(&var) = NODE_ENTITY_REFERENCE;
2827     node = (IXMLDOMNode*)0x1;
2828     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2829     ok( r == E_FAIL, "returns %08x\n", r );
2830     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2831
2832     V_VT(&var) = VT_I1;
2833     V_I1(&var) = NODE_ENTITY_REFERENCE;
2834     node = (IXMLDOMNode*)0x1;
2835     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2836     ok( r == E_FAIL, "returns %08x\n", r );
2837     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2838
2839     /* NODE_ELEMENT */
2840     V_VT(&var) = VT_I1;
2841     V_I1(&var) = NODE_ELEMENT;
2842     node = (IXMLDOMNode*)0x1;
2843     r = IXMLDOMDocument_createNode( doc, var, NULL, NULL, &node );
2844     ok( r == E_FAIL, "returns %08x\n", r );
2845     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2846
2847     V_VT(&var) = VT_I1;
2848     V_I1(&var) = NODE_ELEMENT;
2849     node = (IXMLDOMNode*)0x1;
2850     r = IXMLDOMDocument_createNode( doc, var, _bstr_(""), NULL, &node );
2851     ok( r == E_FAIL, "returns %08x\n", r );
2852     ok( node == (void*)0x1, "expected same ptr, got %p\n", node);
2853
2854     V_VT(&var) = VT_I1;
2855     V_I1(&var) = NODE_ELEMENT;
2856     str = SysAllocString( szlc );
2857     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2858     ok( r == S_OK, "returns %08x\n", r );
2859     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2860
2861     V_VT(&var) = VT_I1;
2862     V_I1(&var) = NODE_ELEMENT;
2863     r = IXMLDOMDocument_createNode( doc, var, str, NULL, NULL );
2864     ok( r == E_INVALIDARG, "returns %08x\n", r );
2865
2866     V_VT(&var) = VT_R4;
2867     V_R4(&var) = NODE_ELEMENT;
2868     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2869     ok( r == S_OK, "returns %08x\n", r );
2870     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2871
2872     V_VT(&var) = VT_BSTR;
2873     V_BSTR(&var) = SysAllocString( szOne );
2874     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2875     ok( r == S_OK, "returns %08x\n", r );
2876     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2877     VariantClear(&var);
2878
2879     V_VT(&var) = VT_BSTR;
2880     V_BSTR(&var) = SysAllocString( szOneGarbage );
2881     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2882     ok( r == E_INVALIDARG, "returns %08x\n", r );
2883     if( SUCCEEDED(r) ) IXMLDOMNode_Release( node );
2884     VariantClear(&var);
2885
2886     V_VT(&var) = VT_I4;
2887     V_I4(&var) = NODE_ELEMENT;
2888     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2889     ok( r == S_OK, "returns %08x\n", r );
2890
2891     EXPECT_REF(doc, 1);
2892     r = IXMLDOMDocument_appendChild( doc, node, &root );
2893     ok( r == S_OK, "returns %08x\n", r );
2894     ok( node == root, "%p %p\n", node, root );
2895     EXPECT_REF(doc, 1);
2896
2897     EXPECT_REF(node, 2);
2898
2899     ref = IXMLDOMNode_Release( node );
2900     ok(ref == 1, "ref %d\n", ref);
2901     SysFreeString( str );
2902
2903     V_VT(&var) = VT_I4;
2904     V_I4(&var) = NODE_ELEMENT;
2905     str = SysAllocString( szbs );
2906     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
2907     ok( r == S_OK, "returns %08x\n", r );
2908     SysFreeString( str );
2909
2910     EXPECT_REF(node, 1);
2911
2912     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (void**)&unk );
2913     ok( r == S_OK, "returns %08x\n", r );
2914
2915     EXPECT_REF(unk, 2);
2916
2917     V_VT(&var) = VT_EMPTY;
2918     child = NULL;
2919     r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
2920     ok( r == S_OK, "returns %08x\n", r );
2921     ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
2922
2923     todo_wine EXPECT_REF(unk, 4);
2924
2925     IXMLDOMNode_Release( child );
2926     IUnknown_Release( unk );
2927
2928     V_VT(&var) = VT_NULL;
2929     V_DISPATCH(&var) = (IDispatch*)node;
2930     r = IXMLDOMNode_insertBefore( root, node, var, &child );
2931     ok( r == S_OK, "returns %08x\n", r );
2932     ok( node == child, "%p %p\n", node, child );
2933     IXMLDOMNode_Release( child );
2934
2935     V_VT(&var) = VT_NULL;
2936     V_DISPATCH(&var) = (IDispatch*)node;
2937     r = IXMLDOMNode_insertBefore( root, node, var, NULL );
2938     ok( r == S_OK, "returns %08x\n", r );
2939     IXMLDOMNode_Release( node );
2940
2941     r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (void**)&element );
2942     ok( r == S_OK, "returns %08x\n", r );
2943
2944     r = IXMLDOMElement_get_attributes( element, &attr_map );
2945     ok( r == S_OK, "returns %08x\n", r );
2946     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2947     ok( r == S_OK, "returns %08x\n", r );
2948     ok( num == 0, "num %d\n", num );
2949     IXMLDOMNamedNodeMap_Release( attr_map );
2950
2951     V_VT(&var) = VT_BSTR;
2952     V_BSTR(&var) = SysAllocString( szstr1 );
2953     name = SysAllocString( szdl );
2954     r = IXMLDOMElement_setAttribute( element, name, var );
2955     ok( r == S_OK, "returns %08x\n", r );
2956     r = IXMLDOMElement_get_attributes( element, &attr_map );
2957     ok( r == S_OK, "returns %08x\n", r );
2958     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2959     ok( r == S_OK, "returns %08x\n", r );
2960     ok( num == 1, "num %d\n", num );
2961     IXMLDOMNamedNodeMap_Release( attr_map );
2962     VariantClear(&var);
2963
2964     V_VT(&var) = VT_BSTR;
2965     V_BSTR(&var) = SysAllocString( szstr2 );
2966     r = IXMLDOMElement_setAttribute( element, name, var );
2967     ok( r == S_OK, "returns %08x\n", r );
2968     r = IXMLDOMElement_get_attributes( element, &attr_map );
2969     ok( r == S_OK, "returns %08x\n", r );
2970     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2971     ok( r == S_OK, "returns %08x\n", r );
2972     ok( num == 1, "num %d\n", num );
2973     IXMLDOMNamedNodeMap_Release( attr_map );
2974     VariantClear(&var);
2975     r = IXMLDOMElement_getAttribute( element, name, &var );
2976     ok( r == S_OK, "returns %08x\n", r );
2977     ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
2978     VariantClear(&var);
2979     SysFreeString(name);
2980
2981     V_VT(&var) = VT_BSTR;
2982     V_BSTR(&var) = SysAllocString( szstr1 );
2983     name = SysAllocString( szlc );
2984     r = IXMLDOMElement_setAttribute( element, name, var );
2985     ok( r == S_OK, "returns %08x\n", r );
2986     r = IXMLDOMElement_get_attributes( element, &attr_map );
2987     ok( r == S_OK, "returns %08x\n", r );
2988     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
2989     ok( r == S_OK, "returns %08x\n", r );
2990     ok( num == 2, "num %d\n", num );
2991     IXMLDOMNamedNodeMap_Release( attr_map );
2992     VariantClear(&var);
2993     SysFreeString(name);
2994
2995     V_VT(&var) = VT_I4;
2996     V_I4(&var) = 10;
2997     name = SysAllocString( szbs );
2998     r = IXMLDOMElement_setAttribute( element, name, var );
2999     ok( r == S_OK, "returns %08x\n", r );
3000     VariantClear(&var);
3001     r = IXMLDOMElement_getAttribute( element, name, &var );
3002     ok( r == S_OK, "returns %08x\n", r );
3003     ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
3004     VariantClear(&var);
3005     SysFreeString(name);
3006
3007     /* Create an Attribute */
3008     V_VT(&var) = VT_I4;
3009     V_I4(&var) = NODE_ATTRIBUTE;
3010     str = SysAllocString( szAttribute );
3011     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
3012     ok( r == S_OK, "returns %08x\n", r );
3013     ok( node != NULL, "node was null\n");
3014     SysFreeString(str);
3015
3016     IXMLDOMElement_Release( element );
3017     IXMLDOMNode_Release( root );
3018     IXMLDOMDocument_Release( doc );
3019 }
3020
3021 static void test_getElementsByTagName(void)
3022 {
3023     IXMLDOMNodeList *node_list;
3024     IXMLDOMDocument *doc;
3025     IXMLDOMElement *elem;
3026     WCHAR buff[100];
3027     VARIANT_BOOL b;
3028     HRESULT r;
3029     LONG len;
3030     BSTR str;
3031
3032     doc = create_document(&IID_IXMLDOMDocument);
3033
3034     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3035     ok( r == S_OK, "loadXML failed\n");
3036     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3037
3038     str = SysAllocString( szstar );
3039
3040     /* null arguments cases */
3041     r = IXMLDOMDocument_getElementsByTagName(doc, NULL, &node_list);
3042     ok( r == E_INVALIDARG, "ret %08x\n", r );
3043     r = IXMLDOMDocument_getElementsByTagName(doc, str, NULL);
3044     ok( r == E_INVALIDARG, "ret %08x\n", r );
3045
3046     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
3047     ok( r == S_OK, "ret %08x\n", r );
3048     r = IXMLDOMNodeList_get_length( node_list, &len );
3049     ok( r == S_OK, "ret %08x\n", r );
3050     ok( len == 6, "len %d\n", len );
3051
3052     IXMLDOMNodeList_Release( node_list );
3053     SysFreeString( str );
3054
3055     /* broken query BSTR */
3056     memcpy(&buff[2], szstar, sizeof(szstar));
3057     /* just a big length */
3058     *(DWORD*)buff = 0xf0f0;
3059     r = IXMLDOMDocument_getElementsByTagName(doc, &buff[2], &node_list);
3060     ok( r == S_OK, "ret %08x\n", r );
3061     r = IXMLDOMNodeList_get_length( node_list, &len );
3062     ok( r == S_OK, "ret %08x\n", r );
3063     ok( len == 6, "len %d\n", len );
3064     IXMLDOMNodeList_Release( node_list );
3065
3066     str = SysAllocString( szbs );
3067     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
3068     ok( r == S_OK, "ret %08x\n", r );
3069     r = IXMLDOMNodeList_get_length( node_list, &len );
3070     ok( r == S_OK, "ret %08x\n", r );
3071     ok( len == 1, "len %d\n", len );
3072     IXMLDOMNodeList_Release( node_list );
3073     SysFreeString( str );
3074
3075     str = SysAllocString( szdl );
3076     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
3077     ok( r == S_OK, "ret %08x\n", r );
3078     r = IXMLDOMNodeList_get_length( node_list, &len );
3079     ok( r == S_OK, "ret %08x\n", r );
3080     ok( len == 0, "len %d\n", len );
3081     IXMLDOMNodeList_Release( node_list );
3082     SysFreeString( str );
3083
3084     str = SysAllocString( szstr1 );
3085     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
3086     ok( r == S_OK, "ret %08x\n", r );
3087     r = IXMLDOMNodeList_get_length( node_list, &len );
3088     ok( r == S_OK, "ret %08x\n", r );
3089     ok( len == 0, "len %d\n", len );
3090     IXMLDOMNodeList_Release( node_list );
3091     SysFreeString( str );
3092
3093     /* test for element */
3094     r = IXMLDOMDocument_get_documentElement(doc, &elem);
3095     ok( r == S_OK, "ret %08x\n", r );
3096
3097     str = SysAllocString( szstar );
3098
3099     /* null arguments cases */
3100     r = IXMLDOMElement_getElementsByTagName(elem, NULL, &node_list);
3101     ok( r == E_INVALIDARG, "ret %08x\n", r );
3102     r = IXMLDOMElement_getElementsByTagName(elem, str, NULL);
3103     ok( r == E_INVALIDARG, "ret %08x\n", r );
3104
3105     r = IXMLDOMElement_getElementsByTagName(elem, str, &node_list);
3106     ok( r == S_OK, "ret %08x\n", r );
3107     r = IXMLDOMNodeList_get_length( node_list, &len );
3108     ok( r == S_OK, "ret %08x\n", r );
3109     ok( len == 5, "len %d\n", len );
3110     expect_list_and_release(node_list, "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1 E1.E4.E2.D1");
3111     SysFreeString( str );
3112
3113     /* broken query BSTR */
3114     memcpy(&buff[2], szstar, sizeof(szstar));
3115     /* just a big length */
3116     *(DWORD*)buff = 0xf0f0;
3117     r = IXMLDOMElement_getElementsByTagName(elem, &buff[2], &node_list);
3118     ok( r == S_OK, "ret %08x\n", r );
3119     r = IXMLDOMNodeList_get_length( node_list, &len );
3120     ok( r == S_OK, "ret %08x\n", r );
3121     ok( len == 5, "len %d\n", len );
3122     IXMLDOMNodeList_Release( node_list );
3123
3124     IXMLDOMElement_Release(elem);
3125
3126     IXMLDOMDocument_Release( doc );
3127
3128     free_bstrs();
3129 }
3130
3131 static void test_get_text(void)
3132 {
3133     HRESULT r;
3134     BSTR str;
3135     VARIANT_BOOL b;
3136     IXMLDOMDocument *doc;
3137     IXMLDOMNode *node, *node2, *node3;
3138     IXMLDOMNode *nodeRoot;
3139     IXMLDOMNodeList *node_list;
3140     IXMLDOMNamedNodeMap *node_map;
3141     LONG len;
3142
3143     doc = create_document(&IID_IXMLDOMDocument);
3144
3145     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3146     ok( r == S_OK, "loadXML failed\n");
3147     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3148
3149     str = SysAllocString( szbs );
3150     r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
3151     ok( r == S_OK, "ret %08x\n", r );
3152     SysFreeString(str);
3153
3154     /* Test to get all child node text. */
3155     r = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&nodeRoot);
3156     ok( r == S_OK, "ret %08x\n", r );
3157     if(r == S_OK)
3158     {
3159         r = IXMLDOMNode_get_text( nodeRoot, &str );
3160         ok( r == S_OK, "ret %08x\n", r );
3161         ok( compareIgnoreReturns(str, _bstr_("fn1.txt\n\n fn2.txt \n\nf1\n")), "wrong get_text: %s\n", wine_dbgstr_w(str));
3162         SysFreeString(str);
3163
3164         IXMLDOMNode_Release(nodeRoot);
3165     }
3166
3167     r = IXMLDOMNodeList_get_length( node_list, NULL );
3168     ok( r == E_INVALIDARG, "ret %08x\n", r );
3169
3170     r = IXMLDOMNodeList_get_length( node_list, &len );
3171     ok( r == S_OK, "ret %08x\n", r );
3172     ok( len == 1, "expect 1 got %d\n", len );
3173
3174     r = IXMLDOMNodeList_get_item( node_list, 0, NULL );
3175     ok( r == E_INVALIDARG, "ret %08x\n", r );
3176
3177     r = IXMLDOMNodeList_nextNode( node_list, NULL );
3178     ok( r == E_INVALIDARG, "ret %08x\n", r );
3179
3180     r = IXMLDOMNodeList_get_item( node_list, 0, &node );
3181     ok( r == S_OK, "ret %08x\n", r );
3182     IXMLDOMNodeList_Release( node_list );
3183
3184     /* Invalid output parameter*/
3185     r = IXMLDOMNode_get_text( node, NULL );
3186     ok( r == E_INVALIDARG, "ret %08x\n", r );
3187
3188     r = IXMLDOMNode_get_text( node, &str );
3189     ok( r == S_OK, "ret %08x\n", r );
3190     ok( !memcmp(str, szfn1_txt, lstrlenW(szfn1_txt) ), "wrong string\n" );
3191     SysFreeString(str);
3192
3193     r = IXMLDOMNode_get_attributes( node, &node_map );
3194     ok( r == S_OK, "ret %08x\n", r );
3195
3196     str = SysAllocString( szvr );
3197     r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
3198     ok( r == S_OK, "ret %08x\n", r );
3199     SysFreeString(str);
3200
3201     r = IXMLDOMNode_get_text( node2, &str );
3202     ok( r == S_OK, "ret %08x\n", r );
3203     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3204     SysFreeString(str);
3205
3206     r = IXMLDOMNode_get_firstChild( node2, &node3 );
3207     ok( r == S_OK, "ret %08x\n", r );
3208
3209     r = IXMLDOMNode_get_text( node3, &str );
3210     ok( r == S_OK, "ret %08x\n", r );
3211     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
3212     SysFreeString(str);
3213
3214
3215     IXMLDOMNode_Release( node3 );
3216     IXMLDOMNode_Release( node2 );
3217     IXMLDOMNamedNodeMap_Release( node_map );
3218     IXMLDOMNode_Release( node );
3219     IXMLDOMDocument_Release( doc );
3220
3221     free_bstrs();
3222 }
3223
3224 static void test_get_childNodes(void)
3225 {
3226     IXMLDOMNodeList *node_list, *node_list2;
3227     IEnumVARIANT *enum1, *enum2, *enum3;
3228     VARIANT_BOOL b;
3229     IXMLDOMDocument *doc;
3230     IXMLDOMNode *node, *node2;
3231     IXMLDOMElement *element;
3232     IUnknown *unk1, *unk2;
3233     HRESULT hr;
3234     VARIANT v;
3235     BSTR str;
3236     LONG len;
3237
3238     doc = create_document(&IID_IXMLDOMDocument);
3239
3240     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3241     EXPECT_HR(hr, S_OK);
3242     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3243
3244     hr = IXMLDOMDocument_get_documentElement( doc, &element );
3245     EXPECT_HR(hr, S_OK);
3246
3247     hr = IXMLDOMElement_get_childNodes( element, &node_list );
3248     EXPECT_HR(hr, S_OK);
3249
3250     hr = IXMLDOMNodeList_get_length( node_list, &len );
3251     EXPECT_HR(hr, S_OK);
3252     ok( len == 4, "len %d\n", len);
3253
3254     /* refcount tests for IEnumVARIANT support */
3255     EXPECT_REF(node_list, 1);
3256     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum1);
3257     EXPECT_HR(hr, S_OK);
3258     EXPECT_REF(node_list, 1);
3259     EXPECT_REF(enum1, 2);
3260
3261     EXPECT_REF(node_list, 1);
3262     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IEnumVARIANT, (void**)&enum2);
3263     EXPECT_HR(hr, S_OK);
3264     EXPECT_REF(node_list, 1);
3265     ok(enum2 == enum1, "got %p, %p\n", enum2, enum1);
3266     IEnumVARIANT_Release(enum2);
3267
3268     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3269     EXPECT_HR(hr, S_OK);
3270     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
3271     EXPECT_HR(hr, S_OK);
3272     EXPECT_REF(node_list, 3);
3273     EXPECT_REF(enum1, 2);
3274     ok(unk1 == unk2, "got %p, %p\n", unk1, unk2);
3275     IUnknown_Release(unk1);
3276     IUnknown_Release(unk2);
3277
3278     EXPECT_REF(node_list, 1);
3279     hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum2);
3280     EXPECT_HR(hr, S_OK);
3281     EXPECT_REF(node_list, 2);
3282     EXPECT_REF(enum2, 1);
3283     ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
3284
3285     /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
3286     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk1);
3287     EXPECT_HR(hr, S_OK);
3288     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
3289     EXPECT_HR(hr, S_OK);
3290     EXPECT_REF(node_list, 3);
3291     EXPECT_REF(enum2, 2);
3292     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
3293     IUnknown_Release(unk1);
3294     IUnknown_Release(unk2);
3295
3296     hr = IXMLDOMNodeList__newEnum(node_list, (IUnknown**)&enum3);
3297     EXPECT_HR(hr, S_OK);
3298     ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
3299     IEnumVARIANT_Release(enum3);
3300     IEnumVARIANT_Release(enum2);
3301
3302     /* iteration tests */
3303     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
3304     EXPECT_HR(hr, S_OK);
3305     hr = IXMLDOMNode_get_nodeName(node, &str);
3306     EXPECT_HR(hr, S_OK);
3307     ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3308     SysFreeString(str);
3309     IXMLDOMNode_Release(node);
3310
3311     hr = IXMLDOMNodeList_nextNode(node_list, &node);
3312     EXPECT_HR(hr, S_OK);
3313     hr = IXMLDOMNode_get_nodeName(node, &str);
3314     EXPECT_HR(hr, S_OK);
3315     ok(!lstrcmpW(str, _bstr_("bs")), "got %s\n", wine_dbgstr_w(str));
3316     SysFreeString(str);
3317     IXMLDOMNode_Release(node);
3318
3319     V_VT(&v) = VT_EMPTY;
3320     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
3321     EXPECT_HR(hr, S_OK);
3322     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
3323     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
3324     EXPECT_HR(hr, S_OK);
3325     hr = IXMLDOMNode_get_nodeName(node, &str);
3326     EXPECT_HR(hr, S_OK);
3327     ok(!lstrcmpW(str, _bstr_("bs")), "got node name %s\n", wine_dbgstr_w(str));
3328     SysFreeString(str);
3329     IXMLDOMNode_Release(node);
3330     VariantClear(&v);
3331
3332     hr = IXMLDOMNodeList_nextNode(node_list, &node);
3333     EXPECT_HR(hr, S_OK);
3334     hr = IXMLDOMNode_get_nodeName(node, &str);
3335     EXPECT_HR(hr, S_OK);
3336     ok(!lstrcmpW(str, _bstr_("pr")), "got %s\n", wine_dbgstr_w(str));
3337     SysFreeString(str);
3338     IXMLDOMNode_Release(node);
3339
3340     IEnumVARIANT_Release(enum1);
3341
3342     hr = IXMLDOMNodeList_get_item( node_list, 2, &node );
3343     EXPECT_HR(hr, S_OK);
3344
3345     hr = IXMLDOMNode_get_childNodes( node, &node_list2 );
3346     EXPECT_HR(hr, S_OK);
3347
3348     hr = IXMLDOMNodeList_get_length( node_list2, &len );
3349     EXPECT_HR(hr, S_OK);
3350     ok( len == 0, "len %d\n", len);
3351
3352     hr = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
3353     EXPECT_HR(hr, S_FALSE);
3354
3355     IXMLDOMNodeList_Release( node_list2 );
3356     IXMLDOMNode_Release( node );
3357     IXMLDOMNodeList_Release( node_list );
3358     IXMLDOMElement_Release( element );
3359
3360     /* test for children of <?xml ..?> node */
3361     hr = IXMLDOMDocument_get_firstChild(doc, &node);
3362     EXPECT_HR(hr, S_OK);
3363
3364     str = NULL;
3365     hr = IXMLDOMNode_get_nodeName(node, &str);
3366     EXPECT_HR(hr, S_OK);
3367     ok(!lstrcmpW(str, _bstr_("xml")), "got %s\n", wine_dbgstr_w(str));
3368     SysFreeString(str);
3369
3370     /* it returns empty but valid node list */
3371     node_list = (void*)0xdeadbeef;
3372     hr = IXMLDOMNode_get_childNodes(node, &node_list);
3373     EXPECT_HR(hr, S_OK);
3374
3375     len = -1;
3376     hr = IXMLDOMNodeList_get_length(node_list, &len);
3377     EXPECT_HR(hr, S_OK);
3378     ok(len == 0, "got %d\n", len);
3379
3380     IXMLDOMNodeList_Release( node_list );
3381     IXMLDOMNode_Release(node);
3382
3383     IXMLDOMDocument_Release( doc );
3384     free_bstrs();
3385 }
3386
3387 static void test_get_firstChild(void)
3388 {
3389     static WCHAR xmlW[] = {'x','m','l',0};
3390     IXMLDOMDocument *doc;
3391     IXMLDOMNode *node;
3392     VARIANT_BOOL b;
3393     HRESULT r;
3394     BSTR str;
3395
3396     doc = create_document(&IID_IXMLDOMDocument);
3397
3398     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3399     ok( r == S_OK, "loadXML failed\n");
3400     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3401
3402     r = IXMLDOMDocument_get_firstChild( doc, &node );
3403     ok( r == S_OK, "ret %08x\n", r);
3404
3405     r = IXMLDOMNode_get_nodeName( node, &str );
3406     ok( r == S_OK, "ret %08x\n", r);
3407
3408     ok(!lstrcmpW(str, xmlW), "expected \"xml\" node name, got %s\n", wine_dbgstr_w(str));
3409
3410     SysFreeString(str);
3411     IXMLDOMNode_Release( node );
3412     IXMLDOMDocument_Release( doc );
3413
3414     free_bstrs();
3415 }
3416
3417 static void test_get_lastChild(void)
3418 {
3419     static WCHAR lcW[] = {'l','c',0};
3420     static WCHAR foW[] = {'f','o',0};
3421     IXMLDOMDocument *doc;
3422     IXMLDOMNode *node, *child;
3423     VARIANT_BOOL b;
3424     HRESULT r;
3425     BSTR str;
3426
3427     doc = create_document(&IID_IXMLDOMDocument);
3428
3429     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3430     ok( r == S_OK, "loadXML failed\n");
3431     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3432
3433     r = IXMLDOMDocument_get_lastChild( doc, &node );
3434     ok( r == S_OK, "ret %08x\n", r);
3435
3436     r = IXMLDOMNode_get_nodeName( node, &str );
3437     ok( r == S_OK, "ret %08x\n", r);
3438
3439     ok(memcmp(str, lcW, sizeof(lcW)) == 0, "expected \"lc\" node name\n");
3440     SysFreeString(str);
3441
3442     r = IXMLDOMNode_get_lastChild( node, &child );
3443     ok( r == S_OK, "ret %08x\n", r);
3444
3445     r = IXMLDOMNode_get_nodeName( child, &str );
3446     ok( r == S_OK, "ret %08x\n", r);
3447
3448     ok(memcmp(str, foW, sizeof(foW)) == 0, "expected \"fo\" node name\n");
3449     SysFreeString(str);
3450
3451     IXMLDOMNode_Release( child );
3452     IXMLDOMNode_Release( node );
3453     IXMLDOMDocument_Release( doc );
3454
3455     free_bstrs();
3456 }
3457
3458 static void test_removeChild(void)
3459 {
3460     HRESULT r;
3461     VARIANT_BOOL b;
3462     IXMLDOMDocument *doc;
3463     IXMLDOMElement *element, *lc_element;
3464     IXMLDOMNode *fo_node, *ba_node, *removed_node, *temp_node, *lc_node;
3465     IXMLDOMNodeList *root_list, *fo_list;
3466
3467     doc = create_document(&IID_IXMLDOMDocument);
3468
3469     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3470     ok( r == S_OK, "loadXML failed\n");
3471     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3472
3473     r = IXMLDOMDocument_get_documentElement( doc, &element );
3474     ok( r == S_OK, "ret %08x\n", r);
3475     todo_wine EXPECT_REF(element, 2);
3476
3477     r = IXMLDOMElement_get_childNodes( element, &root_list );
3478     ok( r == S_OK, "ret %08x\n", r);
3479     EXPECT_REF(root_list, 1);
3480
3481     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3482     ok( r == S_OK, "ret %08x\n", r);
3483     EXPECT_REF(fo_node, 1);
3484
3485     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3486     ok( r == S_OK, "ret %08x\n", r);
3487     EXPECT_REF(fo_list, 1);
3488
3489     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3490     ok( r == S_OK, "ret %08x\n", r);
3491     EXPECT_REF(ba_node, 1);
3492
3493     /* invalid parameter: NULL ptr */
3494     removed_node = (void*)0xdeadbeef;
3495     r = IXMLDOMElement_removeChild( element, NULL, &removed_node );
3496     ok( r == E_INVALIDARG, "ret %08x\n", r );
3497     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3498
3499     /* ba_node is a descendant of element, but not a direct child. */
3500     removed_node = (void*)0xdeadbeef;
3501     EXPECT_REF(ba_node, 1);
3502     EXPECT_CHILDREN(fo_node);
3503     r = IXMLDOMElement_removeChild( element, ba_node, &removed_node );
3504     ok( r == E_INVALIDARG, "ret %08x\n", r );
3505     ok( removed_node == NULL, "%p\n", removed_node );
3506     EXPECT_REF(ba_node, 1);
3507     EXPECT_CHILDREN(fo_node);
3508
3509     EXPECT_REF(ba_node, 1);
3510     EXPECT_REF(fo_node, 1);
3511     r = IXMLDOMElement_removeChild( element, fo_node, &removed_node );
3512     ok( r == S_OK, "ret %08x\n", r);
3513     ok( fo_node == removed_node, "node %p node2 %p\n", fo_node, removed_node );
3514     EXPECT_REF(fo_node, 2);
3515     EXPECT_REF(ba_node, 1);
3516
3517     /* try removing already removed child */
3518     temp_node = (void*)0xdeadbeef;
3519     r = IXMLDOMElement_removeChild( element, fo_node, &temp_node );
3520     ok( r == E_INVALIDARG, "ret %08x\n", r);
3521     ok( temp_node == NULL, "%p\n", temp_node );
3522     IXMLDOMNode_Release( fo_node );
3523
3524     /* the removed node has no parent anymore */
3525     r = IXMLDOMNode_get_parentNode( removed_node, &temp_node );
3526     ok( r == S_FALSE, "ret %08x\n", r);
3527     ok( temp_node == NULL, "%p\n", temp_node );
3528
3529     IXMLDOMNode_Release( removed_node );
3530     IXMLDOMNode_Release( ba_node );
3531     IXMLDOMNodeList_Release( fo_list );
3532
3533     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3534     ok( r == S_OK, "ret %08x\n", r);
3535
3536     r = IXMLDOMNode_QueryInterface( lc_node, &IID_IXMLDOMElement, (void**)&lc_element );
3537     ok( r == S_OK, "ret %08x\n", r);
3538
3539     /* MS quirk: passing wrong interface pointer works, too */
3540     r = IXMLDOMElement_removeChild( element, (IXMLDOMNode*)lc_element, NULL );
3541     ok( r == S_OK, "ret %08x\n", r);
3542     IXMLDOMElement_Release( lc_element );
3543
3544     temp_node = (void*)0xdeadbeef;
3545     r = IXMLDOMNode_get_parentNode( lc_node, &temp_node );
3546     ok( r == S_FALSE, "ret %08x\n", r);
3547     ok( temp_node == NULL, "%p\n", temp_node );
3548
3549     IXMLDOMNode_Release( lc_node );
3550     IXMLDOMNodeList_Release( root_list );
3551     IXMLDOMElement_Release( element );
3552     IXMLDOMDocument_Release( doc );
3553
3554     free_bstrs();
3555 }
3556
3557 static void test_replaceChild(void)
3558 {
3559     HRESULT r;
3560     VARIANT_BOOL b;
3561     IXMLDOMDocument *doc;
3562     IXMLDOMElement *element, *ba_element;
3563     IXMLDOMNode *fo_node, *ba_node, *lc_node, *removed_node, *temp_node;
3564     IXMLDOMNodeList *root_list, *fo_list;
3565     IUnknown * unk1, *unk2;
3566     LONG len;
3567
3568     doc = create_document(&IID_IXMLDOMDocument);
3569
3570     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3571     ok( r == S_OK, "loadXML failed\n");
3572     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3573
3574     r = IXMLDOMDocument_get_documentElement( doc, &element );
3575     ok( r == S_OK, "ret %08x\n", r);
3576
3577     r = IXMLDOMElement_get_childNodes( element, &root_list );
3578     ok( r == S_OK, "ret %08x\n", r);
3579
3580     r = IXMLDOMNodeList_get_item( root_list, 0, &lc_node );
3581     ok( r == S_OK, "ret %08x\n", r);
3582
3583     r = IXMLDOMNodeList_get_item( root_list, 3, &fo_node );
3584     ok( r == S_OK, "ret %08x\n", r);
3585
3586     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3587     ok( r == S_OK, "ret %08x\n", r);
3588
3589     r = IXMLDOMNodeList_get_item( fo_list, 0, &ba_node );
3590     ok( r == S_OK, "ret %08x\n", r);
3591
3592     IXMLDOMNodeList_Release( fo_list );
3593
3594     /* invalid parameter: NULL ptr for element to remove */
3595     removed_node = (void*)0xdeadbeef;
3596     r = IXMLDOMElement_replaceChild( element, ba_node, NULL, &removed_node );
3597     ok( r == E_INVALIDARG, "ret %08x\n", r );
3598     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3599
3600     /* invalid parameter: NULL for replacement element. (Sic!) */
3601     removed_node = (void*)0xdeadbeef;
3602     r = IXMLDOMElement_replaceChild( element, NULL, fo_node, &removed_node );
3603     ok( r == E_INVALIDARG, "ret %08x\n", r );
3604     ok( removed_node == (void*)0xdeadbeef, "%p\n", removed_node );
3605
3606     /* invalid parameter: OldNode is not a child */
3607     removed_node = (void*)0xdeadbeef;
3608     r = IXMLDOMElement_replaceChild( element, lc_node, ba_node, &removed_node );
3609     ok( r == E_INVALIDARG, "ret %08x\n", r );
3610     ok( removed_node == NULL, "%p\n", removed_node );
3611     IXMLDOMNode_Release( lc_node );
3612
3613     /* invalid parameter: would create loop */
3614     removed_node = (void*)0xdeadbeef;
3615     r = IXMLDOMNode_replaceChild( fo_node, fo_node, ba_node, &removed_node );
3616     ok( r == E_FAIL, "ret %08x\n", r );
3617     ok( removed_node == NULL, "%p\n", removed_node );
3618
3619     r = IXMLDOMElement_replaceChild( element, ba_node, fo_node, NULL );
3620     ok( r == S_OK, "ret %08x\n", r );
3621
3622     r = IXMLDOMNodeList_get_item( root_list, 3, &temp_node );
3623     ok( r == S_OK, "ret %08x\n", r );
3624
3625     /* ba_node and temp_node refer to the same node, yet they
3626        are different interface pointers */
3627     ok( ba_node != temp_node, "ba_node %p temp_node %p\n", ba_node, temp_node);
3628     r = IXMLDOMNode_QueryInterface( temp_node, &IID_IUnknown, (void**)&unk1);
3629     ok( r == S_OK, "ret %08x\n", r );
3630     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IUnknown, (void**)&unk2);
3631     ok( r == S_OK, "ret %08x\n", r );
3632     todo_wine ok( unk1 == unk2, "unk1 %p unk2 %p\n", unk1, unk2);
3633
3634     IUnknown_Release( unk1 );
3635     IUnknown_Release( unk2 );
3636
3637     /* ba_node should have been removed from below fo_node */
3638     r = IXMLDOMNode_get_childNodes( fo_node, &fo_list );
3639     ok( r == S_OK, "ret %08x\n", r );
3640
3641     /* MS quirk: replaceChild also accepts elements instead of nodes */
3642     r = IXMLDOMNode_QueryInterface( ba_node, &IID_IXMLDOMElement, (void**)&ba_element);
3643     ok( r == S_OK, "ret %08x\n", r );
3644     EXPECT_REF(ba_element, 2);
3645
3646     removed_node = NULL;
3647     r = IXMLDOMElement_replaceChild( element, ba_node, (IXMLDOMNode*)ba_element, &removed_node );
3648     ok( r == S_OK, "ret %08x\n", r );
3649     ok( removed_node != NULL, "got %p\n", removed_node);
3650     EXPECT_REF(ba_element, 3);
3651     IXMLDOMElement_Release( ba_element );
3652
3653     r = IXMLDOMNodeList_get_length( fo_list, &len);
3654     ok( r == S_OK, "ret %08x\n", r );
3655     ok( len == 0, "len %d\n", len);
3656
3657     IXMLDOMNodeList_Release( fo_list );
3658
3659     IXMLDOMNode_Release(ba_node);
3660     IXMLDOMNode_Release(fo_node);
3661     IXMLDOMNode_Release(temp_node);
3662     IXMLDOMNodeList_Release( root_list );
3663     IXMLDOMElement_Release( element );
3664     IXMLDOMDocument_Release( doc );
3665
3666     free_bstrs();
3667 }
3668
3669 static void test_removeNamedItem(void)
3670 {
3671     IXMLDOMDocument *doc;
3672     IXMLDOMElement *element;
3673     IXMLDOMNode *pr_node, *removed_node, *removed_node2;
3674     IXMLDOMNodeList *root_list;
3675     IXMLDOMNamedNodeMap * pr_attrs;
3676     VARIANT_BOOL b;
3677     BSTR str;
3678     LONG len;
3679     HRESULT r;
3680
3681     doc = create_document(&IID_IXMLDOMDocument);
3682
3683     r = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
3684     ok( r == S_OK, "loadXML failed\n");
3685     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3686
3687     r = IXMLDOMDocument_get_documentElement( doc, &element );
3688     ok( r == S_OK, "ret %08x\n", r);
3689
3690     r = IXMLDOMElement_get_childNodes( element, &root_list );
3691     ok( r == S_OK, "ret %08x\n", r);
3692
3693     r = IXMLDOMNodeList_get_item( root_list, 1, &pr_node );
3694     ok( r == S_OK, "ret %08x\n", r);
3695
3696     r = IXMLDOMNode_get_attributes( pr_node, &pr_attrs );
3697     ok( r == S_OK, "ret %08x\n", r);
3698
3699     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3700     ok( r == S_OK, "ret %08x\n", r);
3701     ok( len == 3, "length %d\n", len);
3702
3703     removed_node = (void*)0xdeadbeef;
3704     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, NULL, &removed_node);
3705     ok ( r == E_INVALIDARG, "ret %08x\n", r);
3706     ok ( removed_node == (void*)0xdeadbeef, "got %p\n", removed_node);
3707
3708     removed_node = (void*)0xdeadbeef;
3709     str = SysAllocString(szvr);
3710     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node);
3711     ok ( r == S_OK, "ret %08x\n", r);
3712
3713     removed_node2 = (void*)0xdeadbeef;
3714     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, &removed_node2);
3715     ok ( r == S_FALSE, "ret %08x\n", r);
3716     ok ( removed_node2 == NULL, "got %p\n", removed_node2 );
3717
3718     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3719     ok( r == S_OK, "ret %08x\n", r);
3720     ok( len == 2, "length %d\n", len);
3721
3722     r = IXMLDOMNamedNodeMap_setNamedItem( pr_attrs, removed_node, NULL);
3723     ok ( r == S_OK, "ret %08x\n", r);
3724     IXMLDOMNode_Release(removed_node);
3725
3726     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3727     ok( r == S_OK, "ret %08x\n", r);
3728     ok( len == 3, "length %d\n", len);
3729
3730     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3731     ok ( r == S_OK, "ret %08x\n", r);
3732
3733     r = IXMLDOMNamedNodeMap_get_length( pr_attrs, &len );
3734     ok( r == S_OK, "ret %08x\n", r);
3735     ok( len == 2, "length %d\n", len);
3736
3737     r = IXMLDOMNamedNodeMap_removeNamedItem( pr_attrs, str, NULL);
3738     ok ( r == S_FALSE, "ret %08x\n", r);
3739
3740     SysFreeString(str);
3741
3742     IXMLDOMNamedNodeMap_Release( pr_attrs );
3743     IXMLDOMNode_Release( pr_node );
3744     IXMLDOMNodeList_Release( root_list );
3745     IXMLDOMElement_Release( element );
3746     IXMLDOMDocument_Release( doc );
3747
3748     free_bstrs();
3749 }
3750
3751 #define test_IObjectSafety_set(p, r, r2, s, m, e, e2) _test_IObjectSafety_set(__LINE__,p, r, r2, s, m, e, e2)
3752 static void _test_IObjectSafety_set(unsigned line, IObjectSafety *safety, HRESULT result,
3753                                     HRESULT result2, DWORD set, DWORD mask, DWORD expected,
3754                                     DWORD expected2)
3755 {
3756     DWORD enabled, supported;
3757     HRESULT hr;
3758
3759     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL, set, mask);
3760     if (result == result2)
3761         ok_(__FILE__,line)(hr == result, "SetInterfaceSafetyOptions: expected %08x, returned %08x\n", result, hr );
3762     else
3763         ok_(__FILE__,line)(broken(hr == result) || hr == result2,
3764            "SetInterfaceSafetyOptions: expected %08x, got %08x\n", result2, hr );
3765
3766     supported = enabled = 0xCAFECAFE;
3767     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3768     ok(hr == S_OK, "ret %08x\n", hr );
3769     if (expected == expected2)
3770         ok_(__FILE__,line)(enabled == expected, "Expected %08x, got %08x\n", expected, enabled);
3771     else
3772         ok_(__FILE__,line)(broken(enabled == expected) || enabled == expected2,
3773            "Expected %08x, got %08x\n", expected2, enabled);
3774
3775     /* reset the safety options */
3776
3777     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3778             INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER,
3779             0);
3780     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3781
3782     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3783     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3784     ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3785 }
3786
3787 #define test_IObjectSafety_common(s) _test_IObjectSafety_common(__LINE__,s)
3788 static void _test_IObjectSafety_common(unsigned line, IObjectSafety *safety)
3789 {
3790     DWORD enabled = 0, supported = 0;
3791     HRESULT hr;
3792
3793     /* get */
3794     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, NULL, &enabled);
3795     ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3796     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, NULL);
3797     ok_(__FILE__,line)(hr == E_POINTER, "ret %08x\n", hr );
3798
3799     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3800     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3801     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3802        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3803         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3804              "got %08x\n", supported);
3805     ok_(__FILE__,line)(enabled == 0, "Expected 0, got %08x\n", enabled);
3806
3807     /* set -- individual flags */
3808
3809     test_IObjectSafety_set(safety, S_OK, S_OK,
3810         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3811         INTERFACESAFE_FOR_UNTRUSTED_CALLER, INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3812
3813     test_IObjectSafety_set(safety, S_OK, S_OK,
3814         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA,
3815         INTERFACESAFE_FOR_UNTRUSTED_DATA, INTERFACESAFE_FOR_UNTRUSTED_DATA);
3816
3817     test_IObjectSafety_set(safety, S_OK, S_OK,
3818         INTERFACE_USES_SECURITY_MANAGER, INTERFACE_USES_SECURITY_MANAGER,
3819         0, INTERFACE_USES_SECURITY_MANAGER /* msxml3 SP8+ */);
3820
3821     /* set INTERFACE_USES_DISPEX  */
3822
3823     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3824         INTERFACE_USES_DISPEX, INTERFACE_USES_DISPEX,
3825         0, 0);
3826
3827     test_IObjectSafety_set(safety, S_OK, E_FAIL /* msxml3 SP8+ */,
3828         INTERFACE_USES_DISPEX, 0,
3829         0, 0);
3830
3831     test_IObjectSafety_set(safety, S_OK, S_OK /* msxml3 SP8+ */,
3832         0, INTERFACE_USES_DISPEX,
3833         0, 0);
3834
3835     /* set option masking */
3836
3837     test_IObjectSafety_set(safety, S_OK, S_OK,
3838         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3839         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3840         INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3841         INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3842
3843     test_IObjectSafety_set(safety, S_OK, S_OK,
3844         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3845         INTERFACESAFE_FOR_UNTRUSTED_DATA,
3846         INTERFACESAFE_FOR_UNTRUSTED_DATA,
3847         INTERFACESAFE_FOR_UNTRUSTED_DATA);
3848
3849     test_IObjectSafety_set(safety, S_OK, S_OK,
3850         INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA,
3851         INTERFACE_USES_SECURITY_MANAGER,
3852         0,
3853         0);
3854
3855     /* set -- inheriting previous settings */
3856
3857     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3858                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER,
3859                                                          INTERFACESAFE_FOR_UNTRUSTED_CALLER);
3860     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3861     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3862     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3863     ok_(__FILE__,line)(enabled == INTERFACESAFE_FOR_UNTRUSTED_CALLER, "Expected INTERFACESAFE_FOR_UNTRUSTED_CALLER got %08x\n", enabled);
3864     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3865        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3866         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3867              "got %08x\n", supported);
3868
3869     hr = IObjectSafety_SetInterfaceSafetyOptions(safety, NULL,
3870                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA,
3871                                                          INTERFACESAFE_FOR_UNTRUSTED_DATA);
3872     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3873     hr = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
3874     ok_(__FILE__,line)(hr == S_OK, "ret %08x\n", hr );
3875     ok_(__FILE__,line)(broken(enabled == INTERFACESAFE_FOR_UNTRUSTED_DATA) ||
3876                        enabled == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA),
3877                        "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA) got %08x\n", enabled);
3878     ok_(__FILE__,line)(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
3879        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
3880         "Expected (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), "
3881              "got %08x\n", supported);
3882 }
3883
3884 static void test_IXMLDOMDocument2(void)
3885 {
3886     static const WCHAR emptyW[] = {0};
3887     IXMLDOMDocument2 *doc2, *dtddoc2;
3888     IXMLDOMDocument *doc;
3889     IXMLDOMParseError* err;
3890     IDispatchEx *dispex;
3891     VARIANT_BOOL b;
3892     VARIANT var;
3893     HRESULT r;
3894     LONG res;
3895
3896     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
3897
3898     doc = create_document(&IID_IXMLDOMDocument);
3899     dtddoc2 = create_document(&IID_IXMLDOMDocument2);
3900
3901     r = IXMLDOMDocument_QueryInterface( doc, &IID_IXMLDOMDocument2, (void**)&doc2 );
3902     ok( r == S_OK, "ret %08x\n", r );
3903     ok( doc == (IXMLDOMDocument*)doc2, "interfaces differ\n");
3904
3905     ole_expect(IXMLDOMDocument2_get_readyState(doc2, NULL), E_INVALIDARG);
3906     ole_check(IXMLDOMDocument2_get_readyState(doc2, &res));
3907     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3908
3909     err = NULL;
3910     ole_expect(IXMLDOMDocument2_validate(doc2, NULL), S_FALSE);
3911     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3912     ok(err != NULL, "expected a pointer\n");
3913     if (err)
3914     {
3915         res = 0;
3916         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3917         /* XML_E_NOTWF */
3918         ok(res == E_XML_NOTWF, "got %08x\n", res);
3919         IXMLDOMParseError_Release(err);
3920     }
3921
3922     r = IXMLDOMDocument2_loadXML( doc2, _bstr_(complete4A), &b );
3923     ok( r == S_OK, "loadXML failed\n");
3924     ok( b == VARIANT_TRUE, "failed to load XML string\n");
3925
3926     ole_check(IXMLDOMDocument_get_readyState(doc, &res));
3927     ok(res == READYSTATE_COMPLETE, "expected READYSTATE_COMPLETE (4), got %i\n", res);
3928
3929     err = NULL;
3930     ole_expect(IXMLDOMDocument2_validate(doc2, &err), S_FALSE);
3931     ok(err != NULL, "expected a pointer\n");
3932     if (err)
3933     {
3934         res = 0;
3935         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
3936         /* XML_E_NODTD */
3937         ok(res == E_XML_NODTD, "got %08x\n", res);
3938         IXMLDOMParseError_Release(err);
3939     }
3940
3941     r = IXMLDOMDocument_QueryInterface( doc, &IID_IDispatchEx, (void**)&dispex );
3942     ok( r == S_OK, "ret %08x\n", r );
3943     if(r == S_OK)
3944     {
3945         IDispatchEx_Release(dispex);
3946     }
3947
3948     /* we will check if the variant got cleared */
3949     IXMLDOMDocument2_AddRef(doc2);
3950     EXPECT_REF(doc2, 3); /* doc, doc2, AddRef*/
3951
3952     V_VT(&var) = VT_UNKNOWN;
3953     V_UNKNOWN(&var) = (IUnknown *)doc2;
3954
3955     /* invalid calls */
3956     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("askldhfaklsdf"), &var), E_FAIL);
3957     expect_eq(V_VT(&var), VT_UNKNOWN, int, "%x");
3958     ole_expect(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), NULL), E_INVALIDARG);
3959
3960     /* valid call */
3961     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3962     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3963     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3964     V_VT(&var) = VT_R4;
3965
3966     /* the variant didn't get cleared*/
3967     expect_eq(IXMLDOMDocument2_Release(doc2), 2, int, "%d");
3968
3969     /* setProperty tests */
3970     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("askldhfaklsdf"), var), E_FAIL);
3971     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), var), E_FAIL);
3972     ole_expect(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("alskjdh faklsjd hfk")), E_FAIL);
3973     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3974     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
3975     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
3976
3977     V_VT(&var) = VT_BSTR;
3978     V_BSTR(&var) = SysAllocString(emptyW);
3979     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3980     ok(r == S_OK, "got 0x%08x\n", r);
3981     VariantClear(&var);
3982
3983     V_VT(&var) = VT_I2;
3984     V_I2(&var) = 0;
3985     r = IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionNamespaces"), var);
3986     ok(r == E_FAIL, "got 0x%08x\n", r);
3987
3988     /* contrary to what MSDN claims you can switch back from XPath to XSLPattern */
3989     ole_check(IXMLDOMDocument2_getProperty(doc2, _bstr_("SelectionLanguage"), &var));
3990     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
3991     expect_bstr_eq_and_free(V_BSTR(&var), "XSLPattern");
3992
3993     IXMLDOMDocument2_Release( doc2 );
3994     IXMLDOMDocument_Release( doc );
3995
3996     /* DTD validation */
3997     ole_check(IXMLDOMDocument2_put_validateOnParse(dtddoc2, VARIANT_FALSE));
3998     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML), &b));
3999     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4000     err = NULL;
4001     ole_check(IXMLDOMDocument2_validate(dtddoc2, &err));
4002     ok(err != NULL, "expected pointer\n");
4003     if (err)
4004     {
4005         res = 0;
4006         ole_expect(IXMLDOMParseError_get_errorCode(err, &res), S_FALSE);
4007         ok(res == 0, "got %08x\n", res);
4008         IXMLDOMParseError_Release(err);
4009     }
4010
4011     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0D), &b));
4012     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4013     err = NULL;
4014     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4015     ok(err != NULL, "expected pointer\n");
4016     if (err)
4017     {
4018         res = 0;
4019         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4020         /* XML_ELEMENT_UNDECLARED */
4021         todo_wine ok(res == 0xC00CE00D, "got %08x\n", res);
4022         IXMLDOMParseError_Release(err);
4023     }
4024
4025     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_0E), &b));
4026     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4027     err = NULL;
4028     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4029     ok(err != NULL, "expected pointer\n");
4030     if (err)
4031     {
4032         res = 0;
4033         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4034         /* XML_ELEMENT_ID_NOT_FOUND */
4035         todo_wine ok(res == 0xC00CE00E, "got %08x\n", res);
4036         IXMLDOMParseError_Release(err);
4037     }
4038
4039     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_11), &b));
4040     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4041     err = NULL;
4042     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4043     ok(err != NULL, "expected pointer\n");
4044     if (err)
4045     {
4046         res = 0;
4047         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4048         /* XML_EMPTY_NOT_ALLOWED */
4049         todo_wine ok(res == 0xC00CE011, "got %08x\n", res);
4050         IXMLDOMParseError_Release(err);
4051     }
4052
4053     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_13), &b));
4054     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4055     err = NULL;
4056     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4057     ok(err != NULL, "expected pointer\n");
4058     if (err)
4059     {
4060         res = 0;
4061         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4062         /* XML_ROOT_NAME_MISMATCH */
4063         todo_wine ok(res == 0xC00CE013, "got %08x\n", res);
4064         IXMLDOMParseError_Release(err);
4065     }
4066
4067     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_14), &b));
4068     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4069     err = NULL;
4070     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4071     ok(err != NULL, "expected pointer\n");
4072     if (err)
4073     {
4074         res = 0;
4075         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4076         /* XML_INVALID_CONTENT */
4077         todo_wine ok(res == 0xC00CE014, "got %08x\n", res);
4078         IXMLDOMParseError_Release(err);
4079     }
4080
4081     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_15), &b));
4082     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4083     err = NULL;
4084     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4085     ok(err != NULL, "expected pointer\n");
4086     if (err)
4087     {
4088         res = 0;
4089         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4090         /* XML_ATTRIBUTE_NOT_DEFINED */
4091         todo_wine ok(res == 0xC00CE015, "got %08x\n", res);
4092         IXMLDOMParseError_Release(err);
4093     }
4094
4095     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_16), &b));
4096     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4097     err = NULL;
4098     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4099     ok(err != NULL, "expected pointer\n");
4100     if (err)
4101     {
4102         res = 0;
4103         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4104         /* XML_ATTRIBUTE_FIXED */
4105         todo_wine ok(res == 0xC00CE016, "got %08x\n", res);
4106         IXMLDOMParseError_Release(err);
4107     }
4108
4109     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_17), &b));
4110     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4111     err = NULL;
4112     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4113     ok(err != NULL, "expected pointer\n");
4114     if (err)
4115     {
4116         res = 0;
4117         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4118         /* XML_ATTRIBUTE_VALUE */
4119         todo_wine ok(res == 0xC00CE017, "got %08x\n", res);
4120         IXMLDOMParseError_Release(err);
4121     }
4122
4123     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_18), &b));
4124     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4125     err = NULL;
4126     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4127     ok(err != NULL, "expected pointer\n");
4128     if (err)
4129     {
4130         res = 0;
4131         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4132         /* XML_ILLEGAL_TEXT */
4133         todo_wine ok(res == 0xC00CE018, "got %08x\n", res);
4134         IXMLDOMParseError_Release(err);
4135     }
4136
4137     ole_check(IXMLDOMDocument2_loadXML(dtddoc2, _bstr_(szEmailXML_20), &b));
4138     ok( b == VARIANT_TRUE, "failed to load XML string\n");
4139     err = NULL;
4140     ole_expect(IXMLDOMDocument2_validate(dtddoc2, &err), S_FALSE);
4141     ok(err != NULL, "expected pointer\n");
4142     if (err)
4143     {
4144         res = 0;
4145         ole_check(IXMLDOMParseError_get_errorCode(err, &res));
4146         /* XML_REQUIRED_ATTRIBUTE_MISSING */
4147         todo_wine ok(res == 0xC00CE020, "got %08x\n", res);
4148         IXMLDOMParseError_Release(err);
4149     }
4150
4151     IXMLDOMDocument2_Release( dtddoc2 );
4152     free_bstrs();
4153 }
4154
4155 #define helper_ole_check(expr) { \
4156     HRESULT r = expr; \
4157     ok_(__FILE__, line)(r == S_OK, "=> %i: " #expr " returned %08x\n", __LINE__, r); \
4158 }
4159
4160 #define helper_expect_list_and_release(list, expstr) { \
4161     char *str = list_to_string(list); \
4162     ok_(__FILE__, line)(strcmp(str, expstr)==0, "=> %i: Invalid node list: %s, expected %s\n", __LINE__, str, expstr); \
4163     if (list) IXMLDOMNodeList_Release(list); \
4164 }
4165
4166 #define helper_expect_bstr_and_release(bstr, str) { \
4167     ok_(__FILE__, line)(lstrcmpW(bstr, _bstr_(str)) == 0, \
4168        "=> %i: got %s\n", __LINE__, wine_dbgstr_w(bstr)); \
4169     SysFreeString(bstr); \
4170 }
4171
4172 #define check_ws_ignored(doc, str) _check_ws_ignored(__LINE__, doc, str)
4173 static inline void _check_ws_ignored(int line, IXMLDOMDocument2* doc, char const* str)
4174 {
4175     IXMLDOMNode *node1, *node2;
4176     IXMLDOMNodeList *list;
4177     BSTR bstr;
4178
4179     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4180     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4181     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4182     helper_ole_check(IXMLDOMNodeList_reset(list));
4183     helper_expect_list_and_release(list, "E1.E5.E1.E2.D1 E2.E5.E1.E2.D1");
4184
4185     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4186     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");
4187     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4188     if (str)
4189     {
4190         helper_expect_bstr_and_release(bstr, str);
4191     }
4192     else
4193     {
4194         helper_expect_bstr_and_release(bstr, "This is a description.");
4195     }
4196     IXMLDOMNode_Release(node1);
4197
4198     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4199     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");
4200     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4201     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4202     IXMLDOMNode_Release(node2);
4203 }
4204
4205 #define check_ws_preserved(doc, str) _check_ws_preserved(__LINE__, doc, str)
4206 static inline void _check_ws_preserved(int line, IXMLDOMDocument2* doc, char const* str)
4207 {
4208     IXMLDOMNode *node1, *node2;
4209     IXMLDOMNodeList *list;
4210     BSTR bstr;
4211
4212     helper_ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//*[local-name()='html']"), &list));
4213     helper_ole_check(IXMLDOMNodeList_get_item(list, 0, &node1));
4214     helper_ole_check(IXMLDOMNodeList_get_item(list, 1, &node2));
4215     helper_ole_check(IXMLDOMNodeList_reset(list));
4216     helper_expect_list_and_release(list, "E2.E10.E2.E2.D1 E4.E10.E2.E2.D1");
4217
4218     helper_ole_check(IXMLDOMNode_get_childNodes(node1, &list));
4219     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");
4220     helper_ole_check(IXMLDOMNode_get_text(node1, &bstr));
4221     if (str)
4222     {
4223         helper_expect_bstr_and_release(bstr, str);
4224     }
4225     else
4226     {
4227         helper_expect_bstr_and_release(bstr, "\n                This is a description. \n            ");
4228     }
4229     IXMLDOMNode_Release(node1);
4230
4231     helper_ole_check(IXMLDOMNode_get_childNodes(node2, &list));
4232     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");
4233     helper_ole_check(IXMLDOMNode_get_text(node2, &bstr));
4234     helper_expect_bstr_and_release(bstr, "\n                This is a description with preserved whitespace. \n            ");
4235     IXMLDOMNode_Release(node2);
4236 }
4237
4238 static void test_preserve_charref(IXMLDOMDocument2 *doc, VARIANT_BOOL preserve)
4239 {
4240     static const WCHAR b1_p[] = {' ','T','e','x','t',' ','A',' ','e','n','d',' ',0};
4241     static const WCHAR b1_i[] = {'T','e','x','t',' ','A',' ','e','n','d',0};
4242     static const WCHAR b2_p[] = {'A','B',' ','C',' ',0};
4243     static const WCHAR b2_i[] = {'A','B',' ','C',0};
4244     IXMLDOMNodeList *list;
4245     IXMLDOMElement *root;
4246     IXMLDOMNode *node;
4247     const WCHAR *text;
4248     VARIANT_BOOL b;
4249     HRESULT hr;
4250     BSTR s;
4251
4252     hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc, preserve);
4253     ok(hr == S_OK, "got 0x%08x\n", hr);
4254
4255     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(charrefsxml), &b);
4256     ok(hr == S_OK, "got 0x%08x\n", hr);
4257
4258     hr = IXMLDOMDocument2_get_documentElement(doc, &root);
4259     ok(hr == S_OK, "got 0x%08x\n", hr);
4260
4261     hr = IXMLDOMElement_get_childNodes(root, &list);
4262     ok(hr == S_OK, "got 0x%08x\n", hr);
4263     IXMLDOMElement_Release(root);
4264
4265     text = preserve == VARIANT_TRUE ? b1_p : b1_i;
4266     hr = IXMLDOMNodeList_get_item(list, 0, &node);
4267     ok(hr == S_OK, "got 0x%08x\n", hr);
4268     hr = IXMLDOMNode_get_text(node, &s);
4269     ok(hr == S_OK, "got 0x%08x\n", hr);
4270     ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4271     SysFreeString(s);
4272     IXMLDOMNode_Release(node);
4273
4274     text = preserve == VARIANT_TRUE ? b2_p : b2_i;
4275     hr = IXMLDOMNodeList_get_item(list, 1, &node);
4276     ok(hr == S_OK, "got 0x%08x\n", hr);
4277     hr = IXMLDOMNode_get_text(node, &s);
4278     ok(hr == S_OK, "got 0x%08x\n", hr);
4279     ok(!lstrcmpW(s, text), "0x%x, got %s\n", preserve, wine_dbgstr_w(s));
4280     SysFreeString(s);
4281     IXMLDOMNode_Release(node);
4282
4283     IXMLDOMNodeList_Release(list);
4284 }
4285
4286 static void test_whitespace(void)
4287 {
4288     IXMLDOMDocument2 *doc1, *doc2, *doc3, *doc4;
4289     IXMLDOMNodeList *list;
4290     IXMLDOMElement *root;
4291     VARIANT_BOOL b;
4292     HRESULT hr;
4293     LONG len;
4294
4295     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
4296     doc1 = create_document(&IID_IXMLDOMDocument2);
4297     doc2 = create_document(&IID_IXMLDOMDocument2);
4298
4299     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_TRUE));
4300     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4301     ok(b == VARIANT_FALSE, "expected false\n");
4302     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4303     ok(b == VARIANT_TRUE, "expected true\n");
4304
4305     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4306     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4307     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4308     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4309
4310     /* switch to XPath */
4311     ole_check(IXMLDOMDocument2_setProperty(doc1, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4312     ole_check(IXMLDOMDocument2_setProperty(doc2, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4313
4314     check_ws_ignored(doc1, NULL);
4315     check_ws_preserved(doc2, NULL);
4316
4317     /* new instances copy the property */
4318     ole_check(IXMLDOMDocument2_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**) &doc3));
4319     ole_check(IXMLDOMDocument2_QueryInterface(doc2, &IID_IXMLDOMDocument2, (void**) &doc4));
4320
4321     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4322     ok(b == VARIANT_FALSE, "expected false\n");
4323     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4324     ok(b == VARIANT_TRUE, "expected true\n");
4325
4326     check_ws_ignored(doc3, NULL);
4327     check_ws_preserved(doc4, NULL);
4328
4329     /* setting after loading xml affects trimming of leading/trailing ws only */
4330     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_TRUE));
4331     ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc2, VARIANT_FALSE));
4332
4333     /* the trailing "\n            " isn't there, because it was ws-only node */
4334     check_ws_ignored(doc1, "\n                This is a description. ");
4335     check_ws_preserved(doc2, "This is a description.");
4336
4337     /* it takes effect on reload */
4338     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc1, &b));
4339     ok(b == VARIANT_TRUE, "expected true\n");
4340     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc2, &b));
4341     ok(b == VARIANT_FALSE, "expected false\n");
4342
4343     ole_check(IXMLDOMDocument2_loadXML(doc1, _bstr_(szExampleXML), &b));
4344     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4345     ole_check(IXMLDOMDocument2_loadXML(doc2, _bstr_(szExampleXML), &b));
4346     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4347
4348     check_ws_preserved(doc1, NULL);
4349     check_ws_ignored(doc2, NULL);
4350
4351     /* other instances follow suit */
4352     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc3, &b));
4353     ok(b == VARIANT_TRUE, "expected true\n");
4354     ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc4, &b));
4355     ok(b == VARIANT_FALSE, "expected false\n");
4356
4357     check_ws_preserved(doc3, NULL);
4358     check_ws_ignored(doc4, NULL);
4359
4360     IXMLDOMDocument2_Release(doc2);
4361     IXMLDOMDocument2_Release(doc3);
4362     IXMLDOMDocument2_Release(doc4);
4363
4364     /* text with char references */
4365     test_preserve_charref(doc1, VARIANT_TRUE);
4366     test_preserve_charref(doc1, VARIANT_FALSE);
4367
4368     /* formatting whitespaces */
4369     hr = IXMLDOMDocument2_put_preserveWhiteSpace(doc1, VARIANT_FALSE);
4370     ok(hr == S_OK, "got 0x%08x\n", hr);
4371
4372     hr = IXMLDOMDocument2_loadXML(doc1, _bstr_(complete7), &b);
4373     ok(hr == S_OK, "got 0x%08x\n", hr);
4374     ok(b == VARIANT_TRUE, "for %x\n", b);
4375
4376     hr = IXMLDOMDocument2_get_documentElement(doc1, &root);
4377     ok(hr == S_OK, "got 0x%08x\n", hr);
4378     hr = IXMLDOMElement_get_childNodes(root, &list);
4379     ok(hr == S_OK, "got 0x%08x\n", hr);
4380     len = 0;
4381     hr = IXMLDOMNodeList_get_length(list, &len);
4382     ok(hr == S_OK, "got 0x%08x\n", hr);
4383     ok(len == 3, "got %d\n", len);
4384     IXMLDOMNodeList_Release(list);
4385     IXMLDOMElement_Release(root);
4386
4387     IXMLDOMDocument2_Release(doc1);
4388
4389     free_bstrs();
4390 }
4391
4392 typedef struct {
4393     const GUID *clsid;
4394     const char *name;
4395     const char *ns;
4396     HRESULT hr;
4397 } selection_ns_t;
4398
4399 /* supposed to be tested with szExampleXML */
4400 static const selection_ns_t selection_ns_data[] = {
4401     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4402     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4403     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4404     { &CLSID_DOMDocument,   "CLSID_DOMDocument",   "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4405
4406     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4407     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4408     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4409     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2",  "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4410
4411     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4412     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4413     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4414     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4415
4416     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4417     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4418     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4419     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4420
4421     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\txmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4422     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "\n\rxmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4423     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", " xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'", S_OK },
4424     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' ", S_OK },
4425
4426     { NULL }
4427 };
4428
4429 typedef struct {
4430     const char *query;
4431     const char *list;
4432 } xpath_test_t;
4433
4434 static const xpath_test_t xpath_test[] = {
4435     { "*/a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4436     { "*/b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4437     { "*/c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4438     { "*/d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4439     { "//a", "E1.E1.E2.D1 E1.E2.E2.D1 E1.E4.E2.D1" },
4440     { "//b", "E2.E1.E2.D1 E2.E2.E2.D1 E2.E4.E2.D1" },
4441     { "//c", "E3.E1.E2.D1 E3.E2.E2.D1" },
4442     { "//d", "E4.E1.E2.D1 E4.E2.E2.D1 E4.E4.E2.D1" },
4443     { "//c[@type]", "E3.E2.E2.D1" },
4444     { "//c[@type]/ancestor::node()[1]", "E2.E2.D1" },
4445     { "//c[@type]/ancestor-or-self::node()[1]", "E3.E2.E2.D1" },
4446     { "//c[@type]/attribute::node()[1]", "A'type'.E3.E2.E2.D1" },
4447     { "//c[@type]/child::node()[1]", "T1.E3.E2.E2.D1"  },
4448     { "//c[@type]/descendant::node()[1]", "T1.E3.E2.E2.D1" },
4449     { "//c[@type]/descendant-or-self::node()[1]", "E3.E2.E2.D1" },
4450     { "//c[@type]/following::node()[1]", "E4.E2.E2.D1" },
4451     { "//c[@type]/following-sibling::node()[1]", "E4.E2.E2.D1" },
4452     { "//c[@type]/parent::node()[1]", "E2.E2.D1" },
4453     { "//c[@type]/preceding::node()[1]", "T1.E2.E2.E2.D1" },
4454     { "//c[@type]/self::node()[1]", "E3.E2.E2.D1" },
4455     { "child::*", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4456     { "child::node()", "E1.E2.D1 E2.E2.D1 E3.E2.D1 E4.E2.D1" },
4457     { "child::text()", "" },
4458     { "child::*/..", "E2.D1" },
4459     { "child::*//@*/..", "E2.E5.E1.E2.D1 E3.E2.E2.D1" },
4460     { "self::node()", "E2.D1" },
4461     { "ancestor::node()", "D1" },
4462     { "elem[c][last()]/a", "E1.E2.E2.D1"},
4463     { "ancestor-or-self::node()[1]", "E2.D1" },
4464     { "((//a)[1])[last()]", "E1.E1.E2.D1" },
4465     { NULL }
4466 };
4467
4468 static void test_XPath(void)
4469 {
4470     const selection_ns_t *ptr = selection_ns_data;
4471     const xpath_test_t *xptest = xpath_test;
4472     VARIANT var;
4473     VARIANT_BOOL b;
4474     IXMLDOMDocument2 *doc;
4475     IXMLDOMDocument *doc2;
4476     IXMLDOMNode *rootNode;
4477     IXMLDOMNode *elem1Node;
4478     IXMLDOMNode *node;
4479     IXMLDOMNodeList *list;
4480     IXMLDOMElement *elem;
4481     IXMLDOMAttribute *attr;
4482     DOMNodeType type;
4483     HRESULT hr;
4484     LONG len;
4485     BSTR str;
4486
4487     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
4488     doc = create_document(&IID_IXMLDOMDocument2);
4489
4490     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4491     EXPECT_HR(hr, S_OK);
4492     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4493
4494     /* switch to XPath */
4495     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
4496
4497     /* some simple queries*/
4498     EXPECT_REF(doc, 1);
4499     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4500     EXPECT_HR(hr, S_OK);
4501     EXPECT_REF(doc, 1);
4502     EXPECT_LIST_LEN(list, 1);
4503
4504     EXPECT_REF(list, 1);
4505     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4506     EXPECT_HR(hr, S_OK);
4507     EXPECT_REF(list, 1);
4508     EXPECT_REF(rootNode, 1);
4509
4510     hr = IXMLDOMNodeList_reset(list);
4511     EXPECT_HR(hr, S_OK);
4512     expect_list_and_release(list, "E2.D1");
4513
4514     /* peform xpath tests */
4515     for ( ; xptest->query ; xptest++ )
4516     {
4517         char *str;
4518
4519         hr = IXMLDOMNode_selectNodes(rootNode, _bstr_(xptest->query), &list);
4520         ok(hr == S_OK, "query evaluation failed for query=%s\n", xptest->query);
4521
4522         if (hr != S_OK)
4523             continue;
4524
4525         str = list_to_string(list);
4526
4527         ok(strcmp(str, xptest->list)==0, "query=%s, invalid node list: %s, expected %s\n",
4528             xptest->query, str, xptest->list);
4529
4530         if (list)
4531             IXMLDOMNodeList_Release(list);
4532     }
4533
4534 if (0)
4535 {
4536     /* namespace:: axis test is disabled until namespace definitions
4537        are supported as attribute nodes, currently it's another node type */
4538     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("/root/namespace::*"), &list);
4539     EXPECT_HR(hr, S_OK);
4540     len = -1;
4541     hr = IXMLDOMNodeList_get_length(list, &len);
4542     EXPECT_HR(hr, S_OK);
4543     ok(len == 2, "got %d\n", len);
4544
4545     hr = IXMLDOMNodeList_nextNode(list, &node);
4546     EXPECT_HR(hr, S_OK);
4547     type = NODE_INVALID;
4548     hr = IXMLDOMNode_get_nodeType(node, &type);
4549     EXPECT_HR(hr, S_OK);
4550     ok(type == NODE_ATTRIBUTE, "got %d\n", type);
4551     IXMLDOMNode_Release(node);
4552
4553     IXMLDOMNodeList_Release(list);
4554 }
4555
4556     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//c"), &list));
4557     expect_list_and_release(list, "E3.E1.E2.D1 E3.E2.E2.D1");
4558
4559     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//c[@type]"), &list));
4560     expect_list_and_release(list, "E3.E2.E2.D1");
4561
4562     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem"), &list));
4563     /* using get_item for query results advances the position */
4564     ole_check(IXMLDOMNodeList_get_item(list, 1, &node));
4565     expect_node(node, "E2.E2.D1");
4566     IXMLDOMNode_Release(node);
4567     ole_check(IXMLDOMNodeList_nextNode(list, &node));
4568     expect_node(node, "E4.E2.D1");
4569     IXMLDOMNode_Release(node);
4570     ole_check(IXMLDOMNodeList_reset(list));
4571     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E4.E2.D1");
4572
4573     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("."), &list));
4574     expect_list_and_release(list, "E2.D1");
4575
4576     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("elem[3]/preceding-sibling::*"), &list));
4577     ole_check(IXMLDOMNodeList_get_item(list, 0, &elem1Node));
4578     ole_check(IXMLDOMNodeList_reset(list));
4579     expect_list_and_release(list, "E1.E2.D1 E2.E2.D1 E3.E2.D1");
4580
4581     /* select an attribute */
4582     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//@type"), &list));
4583     expect_list_and_release(list, "A'type'.E3.E2.E2.D1");
4584
4585     /* would evaluate to a number */
4586     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("count(*)"), &list), E_FAIL);
4587     /* would evaluate to a boolean */
4588     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("position()>0"), &list), E_FAIL);
4589     /* would evaluate to a string */
4590     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_("name()"), &list), E_FAIL);
4591
4592     /* no results */
4593     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_("c"), &list));
4594     expect_list_and_release(list, "");
4595     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("elem//c"), &list));
4596     expect_list_and_release(list, "");
4597     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem[4]"), &list));
4598     expect_list_and_release(list, "");
4599     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//elem[0]"), &list));
4600     expect_list_and_release(list, "");
4601
4602     /* foo undeclared in document node */
4603     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4604     /* undeclared in <root> node */
4605     ole_expect(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//foo:c"), &list), E_FAIL);
4606     /* undeclared in <elem> node */
4607     ole_expect(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//foo:c"), &list), E_FAIL);
4608     /* but this trick can be used */
4609     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//*[name()='foo:c']"), &list));
4610     expect_list_and_release(list, "E3.E4.E2.D1");
4611
4612     /* it has to be declared in SelectionNamespaces */
4613     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4614         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
4615
4616     /* now the namespace can be used */
4617     ole_check(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list));
4618     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4619     ole_check(IXMLDOMNode_selectNodes(rootNode, _bstr_(".//test:c"), &list));
4620     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4621     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_("//test:c"), &list));
4622     expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4623     ole_check(IXMLDOMNode_selectNodes(elem1Node, _bstr_(".//test:x"), &list));
4624     expect_list_and_release(list, "E5.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1");
4625
4626     /* SelectionNamespaces syntax error - the namespaces doesn't work anymore but the value is stored */
4627     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4628         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###")), E_FAIL);
4629
4630     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4631
4632     VariantInit(&var);
4633     ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
4634     expect_eq(V_VT(&var), VT_BSTR, int, "%x");
4635     if (V_VT(&var) == VT_BSTR)
4636         expect_bstr_eq_and_free(V_BSTR(&var), "xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' xmlns:foo=###");
4637
4638     /* extra attributes - same thing*/
4639     ole_expect(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"),
4640         _variantbstr_("xmlns:test='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29' param='test'")), E_FAIL);
4641     ole_expect(IXMLDOMDocument2_selectNodes(doc, _bstr_("root//foo:c"), &list), E_FAIL);
4642
4643     IXMLDOMNode_Release(rootNode);
4644     IXMLDOMNode_Release(elem1Node);
4645
4646     /* alter document with already built list */
4647     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4648     EXPECT_HR(hr, S_OK);
4649     EXPECT_LIST_LEN(list, 1);
4650
4651     hr = IXMLDOMDocument2_get_lastChild(doc, &rootNode);
4652     EXPECT_HR(hr, S_OK);
4653     EXPECT_REF(rootNode, 1);
4654     EXPECT_REF(doc, 1);
4655
4656     hr = IXMLDOMDocument2_removeChild(doc, rootNode, NULL);
4657     EXPECT_HR(hr, S_OK);
4658     IXMLDOMNode_Release(rootNode);
4659
4660     EXPECT_LIST_LEN(list, 1);
4661
4662     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4663     EXPECT_HR(hr, S_OK);
4664     EXPECT_REF(rootNode, 1);
4665
4666     IXMLDOMNodeList_Release(list);
4667
4668     hr = IXMLDOMNode_get_nodeName(rootNode, &str);
4669     EXPECT_HR(hr, S_OK);
4670     ok(!lstrcmpW(str, _bstr_("root")), "got %s\n", wine_dbgstr_w(str));
4671     SysFreeString(str);
4672     IXMLDOMNode_Release(rootNode);
4673
4674     /* alter node from list and get it another time */
4675     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4676     EXPECT_HR(hr, S_OK);
4677     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4678
4679     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4680     EXPECT_HR(hr, S_OK);
4681     EXPECT_LIST_LEN(list, 1);
4682
4683     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4684     EXPECT_HR(hr, S_OK);
4685
4686     hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4687     EXPECT_HR(hr, S_OK);
4688
4689     V_VT(&var) = VT_I2;
4690     V_I2(&var) = 1;
4691     hr = IXMLDOMElement_setAttribute(elem, _bstr_("attrtest"), var);
4692     EXPECT_HR(hr, S_OK);
4693     IXMLDOMElement_Release(elem);
4694     IXMLDOMNode_Release(rootNode);
4695
4696     /* now check attribute to be present */
4697     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4698     EXPECT_HR(hr, S_OK);
4699
4700     hr = IXMLDOMNode_QueryInterface(rootNode, &IID_IXMLDOMElement, (void**)&elem);
4701     EXPECT_HR(hr, S_OK);
4702
4703     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4704     EXPECT_HR(hr, S_OK);
4705     IXMLDOMAttribute_Release(attr);
4706
4707     IXMLDOMElement_Release(elem);
4708     IXMLDOMNode_Release(rootNode);
4709
4710     /* and now check for attribute in original document */
4711     hr = IXMLDOMDocument2_get_documentElement(doc, &elem);
4712     EXPECT_HR(hr, S_OK);
4713
4714     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attrtest"), &attr);
4715     EXPECT_HR(hr, S_OK);
4716     IXMLDOMAttribute_Release(attr);
4717
4718     IXMLDOMElement_Release(elem);
4719
4720     /* attach node from list to another document */
4721     doc2 = create_document(&IID_IXMLDOMDocument);
4722
4723     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4724     EXPECT_HR(hr, S_OK);
4725     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4726
4727     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root"), &list);
4728     EXPECT_HR(hr, S_OK);
4729     EXPECT_LIST_LEN(list, 1);
4730
4731     hr = IXMLDOMNodeList_get_item(list, 0, &rootNode);
4732     EXPECT_HR(hr, S_OK);
4733     EXPECT_REF(rootNode, 1);
4734
4735     hr = IXMLDOMDocument_appendChild(doc2, rootNode, NULL);
4736     EXPECT_HR(hr, S_OK);
4737     EXPECT_REF(rootNode, 1);
4738     EXPECT_REF(doc2, 1);
4739     EXPECT_REF(list, 1);
4740
4741     EXPECT_LIST_LEN(list, 1);
4742
4743     IXMLDOMNode_Release(rootNode);
4744     IXMLDOMNodeList_Release(list);
4745     IXMLDOMDocument_Release(doc2);
4746     IXMLDOMDocument2_Release(doc);
4747
4748     while (ptr->clsid)
4749     {
4750         if (is_clsid_supported(ptr->clsid, &IID_IXMLDOMDocument2))
4751         {
4752             hr = CoCreateInstance(ptr->clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
4753             ok(hr == S_OK, "got 0x%08x\n", hr);
4754         }
4755         else
4756         {
4757             ptr++;
4758             continue;
4759         }
4760
4761         hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
4762         EXPECT_HR(hr, S_OK);
4763         ok(b == VARIANT_TRUE, "failed to load, %s\n", ptr->name);
4764
4765         hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath"));
4766         EXPECT_HR(hr, S_OK);
4767
4768         V_VT(&var) = VT_BSTR;
4769         V_BSTR(&var) = _bstr_(ptr->ns);
4770
4771         hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), var);
4772         ok(hr == ptr->hr, "got 0x%08x, for %s, %s\n", hr, ptr->name, ptr->ns);
4773
4774         V_VT(&var) = VT_EMPTY;
4775         hr = IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var);
4776         EXPECT_HR(hr, S_OK);
4777         ok(V_VT(&var) == VT_BSTR, "got wrong property type %d\n", V_VT(&var));
4778         ok(!lstrcmpW(V_BSTR(&var), _bstr_(ptr->ns)), "got wrong value %s\n", wine_dbgstr_w(V_BSTR(&var)));
4779         VariantClear(&var);
4780
4781         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("root//test:c"), &list);
4782         EXPECT_HR(hr, S_OK);
4783         if (hr == S_OK)
4784             expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
4785
4786         IXMLDOMDocument2_Release(doc);
4787         ptr++;
4788         free_bstrs();
4789     }
4790
4791     free_bstrs();
4792 }
4793
4794 static void test_cloneNode(void )
4795 {
4796     IXMLDOMDocument *doc, *doc2;
4797     VARIANT_BOOL b;
4798     IXMLDOMNodeList *pList;
4799     IXMLDOMNamedNodeMap *mapAttr;
4800     LONG length, length1;
4801     LONG attr_cnt, attr_cnt1;
4802     IXMLDOMNode *node, *attr;
4803     IXMLDOMNode *node_clone;
4804     IXMLDOMNode *node_first;
4805     HRESULT hr;
4806
4807     doc = create_document(&IID_IXMLDOMDocument);
4808
4809     ole_check(IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b));
4810     ok(b == VARIANT_TRUE, "failed to load XML string\n");
4811
4812     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc/pr"), &node);
4813     ok( hr == S_OK, "ret %08x\n", hr );
4814     ok( node != NULL, "node %p\n", node );
4815
4816     /* Check invalid parameter */
4817     hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, NULL);
4818     ok( hr == E_INVALIDARG, "ret %08x\n", hr );
4819
4820     /* All Children */
4821     hr = IXMLDOMNode_cloneNode(node, VARIANT_TRUE, &node_clone);
4822     ok( hr == S_OK, "ret %08x\n", hr );
4823     ok( node_clone != NULL, "node %p\n", node );
4824
4825     hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4826     ok( hr == S_OK, "ret %08x\n", hr );
4827     hr = IXMLDOMNode_get_ownerDocument(node_clone, &doc2);
4828     ok( hr == S_OK, "ret %08x\n", hr );
4829     IXMLDOMDocument_Release(doc2);
4830     IXMLDOMNode_Release(node_first);
4831
4832     hr = IXMLDOMNode_get_childNodes(node, &pList);
4833     ok( hr == S_OK, "ret %08x\n", hr );
4834     length = 0;
4835     hr = IXMLDOMNodeList_get_length(pList, &length);
4836     ok( hr == S_OK, "ret %08x\n", hr );
4837     ok(length == 1, "got %d\n", length);
4838     IXMLDOMNodeList_Release(pList);
4839
4840     hr = IXMLDOMNode_get_attributes(node, &mapAttr);
4841     ok( hr == S_OK, "ret %08x\n", hr );
4842     attr_cnt = 0;
4843     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt);
4844     ok( hr == S_OK, "ret %08x\n", hr );
4845     ok(attr_cnt == 3, "got %d\n", attr_cnt);
4846     IXMLDOMNamedNodeMap_Release(mapAttr);
4847
4848     hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4849     ok( hr == S_OK, "ret %08x\n", hr );
4850     length1 = 0;
4851     hr = IXMLDOMNodeList_get_length(pList, &length1);
4852     ok(length1 == 1, "got %d\n", length1);
4853     ok( hr == S_OK, "ret %08x\n", hr );
4854     IXMLDOMNodeList_Release(pList);
4855
4856     hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4857     ok( hr == S_OK, "ret %08x\n", hr );
4858     attr_cnt1 = 0;
4859     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4860     ok( hr == S_OK, "ret %08x\n", hr );
4861     ok(attr_cnt1 == 3, "got %d\n", attr_cnt1);
4862     /* now really get some attributes from cloned element */
4863     attr = NULL;
4864     hr = IXMLDOMNamedNodeMap_getNamedItem(mapAttr, _bstr_("id"), &attr);
4865     ok(hr == S_OK, "ret %08x\n", hr);
4866     IXMLDOMNode_Release(attr);
4867     IXMLDOMNamedNodeMap_Release(mapAttr);
4868
4869     ok(length == length1, "wrong Child count (%d, %d)\n", length, length1);
4870     ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4871     IXMLDOMNode_Release(node_clone);
4872
4873     /* No Children */
4874     hr = IXMLDOMNode_cloneNode(node, VARIANT_FALSE, &node_clone);
4875     ok( hr == S_OK, "ret %08x\n", hr );
4876     ok( node_clone != NULL, "node %p\n", node );
4877
4878     hr = IXMLDOMNode_get_firstChild(node_clone, &node_first);
4879     ok(hr == S_FALSE, "ret %08x\n", hr );
4880
4881     hr = IXMLDOMNode_get_childNodes(node_clone, &pList);
4882     ok(hr == S_OK, "ret %08x\n", hr );
4883     hr = IXMLDOMNodeList_get_length(pList, &length1);
4884     ok(hr == S_OK, "ret %08x\n", hr );
4885     ok( length1 == 0, "Length should be 0 (%d)\n", length1);
4886     IXMLDOMNodeList_Release(pList);
4887
4888     hr = IXMLDOMNode_get_attributes(node_clone, &mapAttr);
4889     ok(hr == S_OK, "ret %08x\n", hr );
4890     hr = IXMLDOMNamedNodeMap_get_length(mapAttr, &attr_cnt1);
4891     ok(hr == S_OK, "ret %08x\n", hr );
4892     ok(attr_cnt1 == 3, "Attribute count should be 3 (%d)\n", attr_cnt1);
4893     IXMLDOMNamedNodeMap_Release(mapAttr);
4894
4895     ok(length != length1, "wrong Child count (%d, %d)\n", length, length1);
4896     ok(attr_cnt == attr_cnt1, "wrong Attribute count (%d, %d)\n", attr_cnt, attr_cnt1);
4897     IXMLDOMNode_Release(node_clone);
4898
4899     IXMLDOMNode_Release(node);
4900     IXMLDOMDocument_Release(doc);
4901     free_bstrs();
4902 }
4903
4904 static void test_xmlTypes(void)
4905 {
4906     IXMLDOMDocument *doc;
4907     IXMLDOMElement *pRoot;
4908     HRESULT hr;
4909     IXMLDOMComment *pComment;
4910     IXMLDOMElement *pElement;
4911     IXMLDOMAttribute *pAttribute;
4912     IXMLDOMNamedNodeMap *pAttribs;
4913     IXMLDOMCDATASection *pCDataSec;
4914     IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
4915     IXMLDOMDocumentFragment *pDocFrag = NULL;
4916     IXMLDOMEntityReference *pEntityRef = NULL;
4917     BSTR str;
4918     IXMLDOMNode *pNextChild;
4919     VARIANT v;
4920     LONG len = 0;
4921
4922     doc = create_document(&IID_IXMLDOMDocument);
4923
4924     pNextChild = (void*)0xdeadbeef;
4925     hr = IXMLDOMDocument_get_nextSibling(doc, NULL);
4926     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4927
4928     pNextChild = (void*)0xdeadbeef;
4929     hr = IXMLDOMDocument_get_nextSibling(doc, &pNextChild);
4930     ok(hr == S_FALSE, "ret %08x\n", hr );
4931     ok(pNextChild == NULL, "pDocChild not NULL\n");
4932
4933     /* test previous Sibling */
4934     hr = IXMLDOMDocument_get_previousSibling(doc, NULL);
4935     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4936
4937     pNextChild = (void*)0xdeadbeef;
4938     hr = IXMLDOMDocument_get_previousSibling(doc, &pNextChild);
4939     ok(hr == S_FALSE, "ret %08x\n", hr );
4940     ok(pNextChild == NULL, "pNextChild not NULL\n");
4941
4942     /* test get_dataType */
4943     V_VT(&v) = VT_EMPTY;
4944     hr = IXMLDOMDocument_get_dataType(doc, &v);
4945     ok(hr == S_FALSE, "ret %08x\n", hr );
4946     ok( V_VT(&v) == VT_NULL, "incorrect dataType type\n");
4947     VariantClear(&v);
4948
4949     /* test implementation */
4950     hr = IXMLDOMDocument_get_implementation(doc, NULL);
4951     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4952
4953     hr = IXMLDOMDocument_get_implementation(doc, &pIXMLDOMImplementation);
4954     ok(hr == S_OK, "ret %08x\n", hr );
4955     if(hr == S_OK)
4956     {
4957         VARIANT_BOOL hasFeature = VARIANT_TRUE;
4958         BSTR sEmpty = SysAllocStringLen(NULL, 0);
4959
4960         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, NULL, sEmpty, &hasFeature);
4961         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4962
4963         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, NULL);
4964         ok(hr == E_INVALIDARG, "ret %08x\n", hr );
4965
4966         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4967         ok(hr == S_OK, "ret %08x\n", hr );
4968         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4969
4970         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, sEmpty, sEmpty, &hasFeature);
4971         ok(hr == S_OK, "ret %08x\n", hr );
4972         ok(hasFeature == VARIANT_FALSE, "hasFeature returned true\n");
4973
4974         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), NULL, &hasFeature);
4975         ok(hr == S_OK, "ret %08x\n", hr );
4976         ok(hasFeature == VARIANT_TRUE, "hasFeature returned false\n");
4977
4978         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), sEmpty, &hasFeature);
4979         ok(hr == S_OK, "ret %08x\n", hr );
4980         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4981
4982         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("DOM"), _bstr_("1.0"), &hasFeature);
4983         ok(hr == S_OK, "ret %08x\n", hr );
4984         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4985
4986         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("XML"), _bstr_("1.0"), &hasFeature);
4987         ok(hr == S_OK, "ret %08x\n", hr );
4988         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4989
4990         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("MS-DOM"), _bstr_("1.0"), &hasFeature);
4991         ok(hr == S_OK, "ret %08x\n", hr );
4992         ok(hasFeature == VARIANT_TRUE, "hasFeature returned true\n");
4993
4994         hr = IXMLDOMImplementation_hasFeature(pIXMLDOMImplementation, _bstr_("SSS"), NULL, &hasFeature);
4995         ok(hr == S_OK, "ret %08x\n", hr );
4996         ok(hasFeature == VARIANT_FALSE, "hasFeature returned false\n");
4997
4998         SysFreeString(sEmpty);
4999         IXMLDOMImplementation_Release(pIXMLDOMImplementation);
5000     }
5001
5002     pRoot = (IXMLDOMElement*)0x1;
5003     hr = IXMLDOMDocument_createElement(doc, NULL, &pRoot);
5004     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5005     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
5006
5007     pRoot = (IXMLDOMElement*)0x1;
5008     hr = IXMLDOMDocument_createElement(doc, _bstr_(""), &pRoot);
5009     ok(hr == E_FAIL, "ret %08x\n", hr );
5010     ok(pRoot == (void*)0x1, "Expect same ptr, got %p\n", pRoot);
5011
5012     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &pRoot);
5013     ok(hr == S_OK, "ret %08x\n", hr );
5014     if(hr == S_OK)
5015     {
5016         hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)pRoot, NULL);
5017         ok(hr == S_OK, "ret %08x\n", hr );
5018         if(hr == S_OK)
5019         {
5020             /* Comment */
5021             str = SysAllocString(szComment);
5022             hr = IXMLDOMDocument_createComment(doc, str, &pComment);
5023             SysFreeString(str);
5024             ok(hr == S_OK, "ret %08x\n", hr );
5025             if(hr == S_OK)
5026             {
5027                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pComment, NULL);
5028                 ok(hr == S_OK, "ret %08x\n", hr );
5029
5030                 hr = IXMLDOMComment_get_nodeName(pComment, &str);
5031                 ok(hr == S_OK, "ret %08x\n", hr );
5032                 ok( !lstrcmpW( str, szCommentNodeText ), "incorrect comment node Name\n");
5033                 SysFreeString(str);
5034
5035                 hr = IXMLDOMComment_get_xml(pComment, &str);
5036                 ok(hr == S_OK, "ret %08x\n", hr );
5037                 ok( !lstrcmpW( str, szCommentXML ), "incorrect comment xml\n");
5038                 SysFreeString(str);
5039
5040                 /* put data Tests */
5041                 hr = IXMLDOMComment_put_data(pComment, _bstr_("This &is a ; test <>\\"));
5042                 ok(hr == S_OK, "ret %08x\n", hr );
5043
5044                 /* get data Tests */
5045                 hr = IXMLDOMComment_get_data(pComment, &str);
5046                 ok(hr == S_OK, "ret %08x\n", hr );
5047                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect get_data string\n");
5048                 SysFreeString(str);
5049
5050                 /* Confirm XML text is good */
5051                 hr = IXMLDOMComment_get_xml(pComment, &str);
5052                 ok(hr == S_OK, "ret %08x\n", hr );
5053                 ok( !lstrcmpW( str, _bstr_("<!--This &is a ; test <>\\-->") ), "incorrect xml string\n");
5054                 SysFreeString(str);
5055
5056                 /* Confirm we get the put_data Text back */
5057                 hr = IXMLDOMComment_get_text(pComment, &str);
5058                 ok(hr == S_OK, "ret %08x\n", hr );
5059                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect xml string\n");
5060                 SysFreeString(str);
5061
5062                 /* test length property */
5063                 hr = IXMLDOMComment_get_length(pComment, &len);
5064                 ok(hr == S_OK, "ret %08x\n", hr );
5065                 ok(len == 21, "expected 21 got %d\n", len);
5066
5067                 /* test substringData */
5068                 hr = IXMLDOMComment_substringData(pComment, 0, 4, NULL);
5069                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5070
5071                 /* test substringData - Invalid offset */
5072                 str = (BSTR)&szElement;
5073                 hr = IXMLDOMComment_substringData(pComment, -1, 4, &str);
5074                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5075                 ok( str == NULL, "incorrect string\n");
5076
5077                 /* test substringData - Invalid offset */
5078                 str = (BSTR)&szElement;
5079                 hr = IXMLDOMComment_substringData(pComment, 30, 0, &str);
5080                 ok(hr == S_FALSE, "ret %08x\n", hr );
5081                 ok( str == NULL, "incorrect string\n");
5082
5083                 /* test substringData - Invalid size */
5084                 str = (BSTR)&szElement;
5085                 hr = IXMLDOMComment_substringData(pComment, 0, -1, &str);
5086                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5087                 ok( str == NULL, "incorrect string\n");
5088
5089                 /* test substringData - Invalid size */
5090                 str = (BSTR)&szElement;
5091                 hr = IXMLDOMComment_substringData(pComment, 2, 0, &str);
5092                 ok(hr == S_FALSE, "ret %08x\n", hr );
5093                 ok( str == NULL, "incorrect string\n");
5094
5095                 /* test substringData - Start of string */
5096                 hr = IXMLDOMComment_substringData(pComment, 0, 4, &str);
5097                 ok(hr == S_OK, "ret %08x\n", hr );
5098                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5099                 SysFreeString(str);
5100
5101                 /* test substringData - Middle of string */
5102                 hr = IXMLDOMComment_substringData(pComment, 13, 4, &str);
5103                 ok(hr == S_OK, "ret %08x\n", hr );
5104                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5105                 SysFreeString(str);
5106
5107                 /* test substringData - End of string */
5108                 hr = IXMLDOMComment_substringData(pComment, 20, 4, &str);
5109                 ok(hr == S_OK, "ret %08x\n", hr );
5110                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5111                 SysFreeString(str);
5112
5113                 /* test appendData */
5114                 hr = IXMLDOMComment_appendData(pComment, NULL);
5115                 ok(hr == S_OK, "ret %08x\n", hr );
5116
5117                 hr = IXMLDOMComment_appendData(pComment, _bstr_(""));
5118                 ok(hr == S_OK, "ret %08x\n", hr );
5119
5120                 hr = IXMLDOMComment_appendData(pComment, _bstr_("Append"));
5121                 ok(hr == S_OK, "ret %08x\n", hr );
5122
5123                 hr = IXMLDOMComment_get_text(pComment, &str);
5124                 ok(hr == S_OK, "ret %08x\n", hr );
5125                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5126                 SysFreeString(str);
5127
5128                 /* test insertData */
5129                 str = SysAllocStringLen(NULL, 0);
5130                 hr = IXMLDOMComment_insertData(pComment, -1, str);
5131                 ok(hr == S_OK, "ret %08x\n", hr );
5132
5133                 hr = IXMLDOMComment_insertData(pComment, -1, NULL);
5134                 ok(hr == S_OK, "ret %08x\n", hr );
5135
5136                 hr = IXMLDOMComment_insertData(pComment, 1000, str);
5137                 ok(hr == S_OK, "ret %08x\n", hr );
5138
5139                 hr = IXMLDOMComment_insertData(pComment, 1000, NULL);
5140                 ok(hr == S_OK, "ret %08x\n", hr );
5141
5142                 hr = IXMLDOMComment_insertData(pComment, 0, NULL);
5143                 ok(hr == S_OK, "ret %08x\n", hr );
5144
5145                 hr = IXMLDOMComment_insertData(pComment, 0, str);
5146                 ok(hr == S_OK, "ret %08x\n", hr );
5147                 SysFreeString(str);
5148
5149                 hr = IXMLDOMComment_insertData(pComment, -1, _bstr_("Inserting"));
5150                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5151
5152                 hr = IXMLDOMComment_insertData(pComment, 1000, _bstr_("Inserting"));
5153                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5154
5155                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("Begin "));
5156                 ok(hr == S_OK, "ret %08x\n", hr );
5157
5158                 hr = IXMLDOMComment_insertData(pComment, 17, _bstr_("Middle"));
5159                 ok(hr == S_OK, "ret %08x\n", hr );
5160
5161                 hr = IXMLDOMComment_insertData(pComment, 39, _bstr_(" End"));
5162                 ok(hr == S_OK, "ret %08x\n", hr );
5163
5164                 hr = IXMLDOMComment_get_text(pComment, &str);
5165                 ok(hr == S_OK, "ret %08x\n", hr );
5166                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5167                 SysFreeString(str);
5168
5169                 /* delete data */
5170                 /* invalid arguments */
5171                 hr = IXMLDOMComment_deleteData(pComment, -1, 1);
5172                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5173
5174                 hr = IXMLDOMComment_deleteData(pComment, 0, 0);
5175                 ok(hr == S_OK, "ret %08x\n", hr );
5176
5177                 hr = IXMLDOMComment_deleteData(pComment, 0, -1);
5178                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5179
5180                 hr = IXMLDOMComment_get_length(pComment, &len);
5181                 ok(hr == S_OK, "ret %08x\n", hr );
5182                 ok(len == 43, "expected 43 got %d\n", len);
5183
5184                 hr = IXMLDOMComment_deleteData(pComment, len, 1);
5185                 ok(hr == S_OK, "ret %08x\n", hr );
5186
5187                 hr = IXMLDOMComment_deleteData(pComment, len+1, 1);
5188                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5189
5190                 /* delete from start */
5191                 hr = IXMLDOMComment_deleteData(pComment, 0, 5);
5192                 ok(hr == S_OK, "ret %08x\n", hr );
5193
5194                 hr = IXMLDOMComment_get_length(pComment, &len);
5195                 ok(hr == S_OK, "ret %08x\n", hr );
5196                 ok(len == 38, "expected 38 got %d\n", len);
5197
5198                 hr = IXMLDOMComment_get_text(pComment, &str);
5199                 ok(hr == S_OK, "ret %08x\n", hr );
5200                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5201                 SysFreeString(str);
5202
5203                 /* delete from end */
5204                 hr = IXMLDOMComment_deleteData(pComment, 35, 3);
5205                 ok(hr == S_OK, "ret %08x\n", hr );
5206
5207                 hr = IXMLDOMComment_get_length(pComment, &len);
5208                 ok(hr == S_OK, "ret %08x\n", hr );
5209                 ok(len == 35, "expected 35 got %d\n", len);
5210
5211                 hr = IXMLDOMComment_get_text(pComment, &str);
5212                 ok(hr == S_OK, "ret %08x\n", hr );
5213                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5214                 SysFreeString(str);
5215
5216                 /* delete from inside */
5217                 hr = IXMLDOMComment_deleteData(pComment, 1, 33);
5218                 ok(hr == S_OK, "ret %08x\n", hr );
5219
5220                 hr = IXMLDOMComment_get_length(pComment, &len);
5221                 ok(hr == S_OK, "ret %08x\n", hr );
5222                 ok(len == 2, "expected 2 got %d\n", len);
5223
5224                 hr = IXMLDOMComment_get_text(pComment, &str);
5225                 ok(hr == S_OK, "ret %08x\n", hr );
5226                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5227                 SysFreeString(str);
5228
5229                 /* delete whole data ... */
5230                 hr = IXMLDOMComment_get_length(pComment, &len);
5231                 ok(hr == S_OK, "ret %08x\n", hr );
5232
5233                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5234                 ok(hr == S_OK, "ret %08x\n", hr );
5235                 /* ... and try again with empty string */
5236                 hr = IXMLDOMComment_deleteData(pComment, 0, len);
5237                 ok(hr == S_OK, "ret %08x\n", hr );
5238
5239                 /* ::replaceData() */
5240                 V_VT(&v) = VT_BSTR;
5241                 V_BSTR(&v) = SysAllocString(szstr1);
5242                 hr = IXMLDOMComment_put_nodeValue(pComment, v);
5243                 ok(hr == S_OK, "ret %08x\n", hr );
5244                 VariantClear(&v);
5245
5246                 hr = IXMLDOMComment_replaceData(pComment, 6, 0, NULL);
5247                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5248                 hr = IXMLDOMComment_get_text(pComment, &str);
5249                 ok(hr == S_OK, "ret %08x\n", hr );
5250                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5251                 SysFreeString(str);
5252
5253                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, NULL);
5254                 ok(hr == S_OK, "ret %08x\n", hr );
5255                 hr = IXMLDOMComment_get_text(pComment, &str);
5256                 ok(hr == S_OK, "ret %08x\n", hr );
5257                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5258                 SysFreeString(str);
5259
5260                 /* NULL pointer means delete */
5261                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, NULL);
5262                 ok(hr == S_OK, "ret %08x\n", hr );
5263                 hr = IXMLDOMComment_get_text(pComment, &str);
5264                 ok(hr == S_OK, "ret %08x\n", hr );
5265                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5266                 SysFreeString(str);
5267
5268                 /* empty string means delete */
5269                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_(""));
5270                 ok(hr == S_OK, "ret %08x\n", hr );
5271                 hr = IXMLDOMComment_get_text(pComment, &str);
5272                 ok(hr == S_OK, "ret %08x\n", hr );
5273                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5274                 SysFreeString(str);
5275
5276                 /* zero count means insert */
5277                 hr = IXMLDOMComment_replaceData(pComment, 0, 0, _bstr_("a"));
5278                 ok(hr == S_OK, "ret %08x\n", hr );
5279                 hr = IXMLDOMComment_get_text(pComment, &str);
5280                 ok(hr == S_OK, "ret %08x\n", hr );
5281                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5282                 SysFreeString(str);
5283
5284                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, NULL);
5285                 ok(hr == S_OK, "ret %08x\n", hr );
5286
5287                 hr = IXMLDOMComment_insertData(pComment, 0, _bstr_("m"));
5288                 ok(hr == S_OK, "ret %08x\n", hr );
5289                 hr = IXMLDOMComment_get_text(pComment, &str);
5290                 ok(hr == S_OK, "ret %08x\n", hr );
5291                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5292                 SysFreeString(str);
5293
5294                 /* nonempty string, count greater than its length */
5295                 hr = IXMLDOMComment_replaceData(pComment, 0, 2, _bstr_("a1.2"));
5296                 ok(hr == S_OK, "ret %08x\n", hr );
5297                 hr = IXMLDOMComment_get_text(pComment, &str);
5298                 ok(hr == S_OK, "ret %08x\n", hr );
5299                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5300                 SysFreeString(str);
5301
5302                 /* nonempty string, count less than its length */
5303                 hr = IXMLDOMComment_replaceData(pComment, 0, 1, _bstr_("wine"));
5304                 ok(hr == S_OK, "ret %08x\n", hr );
5305                 hr = IXMLDOMComment_get_text(pComment, &str);
5306                 ok(hr == S_OK, "ret %08x\n", hr );
5307                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5308                 SysFreeString(str);
5309
5310                 IXMLDOMComment_Release(pComment);
5311             }
5312
5313             /* Element */
5314             str = SysAllocString(szElement);
5315             hr = IXMLDOMDocument_createElement(doc, str, &pElement);
5316             SysFreeString(str);
5317             ok(hr == S_OK, "ret %08x\n", hr );
5318             if(hr == S_OK)
5319             {
5320                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pElement, NULL);
5321                 ok(hr == S_OK, "ret %08x\n", hr );
5322
5323                 hr = IXMLDOMElement_get_nodeName(pElement, &str);
5324                 ok(hr == S_OK, "ret %08x\n", hr );
5325                 ok( !lstrcmpW( str, szElement ), "incorrect element node Name\n");
5326                 SysFreeString(str);
5327
5328                 hr = IXMLDOMElement_get_xml(pElement, &str);
5329                 ok(hr == S_OK, "ret %08x\n", hr );
5330                 ok( !lstrcmpW( str, szElementXML ), "incorrect element xml\n");
5331                 SysFreeString(str);
5332
5333                 /* Attribute */
5334                 pAttribute = (IXMLDOMAttribute*)0x1;
5335                 hr = IXMLDOMDocument_createAttribute(doc, NULL, &pAttribute);
5336                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5337                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5338
5339                 pAttribute = (IXMLDOMAttribute*)0x1;
5340                 hr = IXMLDOMDocument_createAttribute(doc, _bstr_(""), &pAttribute);
5341                 ok(hr == E_FAIL, "ret %08x\n", hr );
5342                 ok(pAttribute == (void*)0x1, "Expect same ptr, got %p\n", pAttribute);
5343
5344                 str = SysAllocString(szAttribute);
5345                 hr = IXMLDOMDocument_createAttribute(doc, str, &pAttribute);
5346                 SysFreeString(str);
5347                 ok(hr == S_OK, "ret %08x\n", hr );
5348                 if(hr == S_OK)
5349                 {
5350                     IXMLDOMNode *pNewChild = (IXMLDOMNode *)0x1;
5351
5352                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, NULL);
5353                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5354
5355                     pNextChild = (IXMLDOMNode *)0x1;
5356                     hr = IXMLDOMAttribute_get_nextSibling(pAttribute, &pNextChild);
5357                     ok(hr == S_FALSE, "ret %08x\n", hr );
5358                     ok(pNextChild == NULL, "pNextChild not NULL\n");
5359
5360                     /* test Previous Sibling*/
5361                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, NULL);
5362                     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5363
5364                     pNextChild = (IXMLDOMNode *)0x1;
5365                     hr = IXMLDOMAttribute_get_previousSibling(pAttribute, &pNextChild);
5366                     ok(hr == S_FALSE, "ret %08x\n", hr );
5367                     ok(pNextChild == NULL, "pNextChild not NULL\n");
5368
5369                     hr = IXMLDOMElement_appendChild(pElement, (IXMLDOMNode*)pAttribute, &pNewChild);
5370                     ok(hr == E_FAIL, "ret %08x\n", hr );
5371                     ok(pNewChild == NULL, "pNewChild not NULL\n");
5372
5373                     hr = IXMLDOMElement_get_attributes(pElement, &pAttribs);
5374                     ok(hr == S_OK, "ret %08x\n", hr );
5375                     if ( hr == S_OK )
5376                     {
5377                         hr = IXMLDOMNamedNodeMap_setNamedItem(pAttribs, (IXMLDOMNode*)pAttribute, NULL );
5378                         ok(hr == S_OK, "ret %08x\n", hr );
5379
5380                         IXMLDOMNamedNodeMap_Release(pAttribs);
5381                     }
5382
5383                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5384                     ok(hr == S_OK, "ret %08x\n", hr );
5385                     ok( !lstrcmpW( str, szAttribute ), "incorrect attribute node Name\n");
5386                     SysFreeString(str);
5387
5388                     /* test nodeName */
5389                     hr = IXMLDOMAttribute_get_nodeName(pAttribute, &str);
5390                     ok(hr == S_OK, "ret %08x\n", hr );
5391                     ok( !lstrcmpW( str, szAttribute ), "incorrect nodeName string\n");
5392                     SysFreeString(str);
5393
5394                     /* test name property */
5395                     hr = IXMLDOMAttribute_get_name(pAttribute, &str);
5396                     ok(hr == S_OK, "ret %08x\n", hr );
5397                     ok( !lstrcmpW( str, szAttribute ), "incorrect name string\n");
5398                     SysFreeString(str);
5399
5400                     hr = IXMLDOMAttribute_get_xml(pAttribute, &str);
5401                     ok(hr == S_OK, "ret %08x\n", hr );
5402                     ok( !lstrcmpW( str, szAttributeXML ), "incorrect attribute xml\n");
5403                     SysFreeString(str);
5404
5405                     IXMLDOMAttribute_Release(pAttribute);
5406
5407                     /* Check Element again with the Add Attribute*/
5408                     hr = IXMLDOMElement_get_xml(pElement, &str);
5409                     ok(hr == S_OK, "ret %08x\n", hr );
5410                     ok( !lstrcmpW( str, szElementXML2 ), "incorrect element xml\n");
5411                     SysFreeString(str);
5412                 }
5413
5414                 hr = IXMLDOMElement_put_text(pElement, _bstr_("TestingNode"));
5415                 ok(hr == S_OK, "ret %08x\n", hr );
5416
5417                 hr = IXMLDOMElement_get_xml(pElement, &str);
5418                 ok(hr == S_OK, "ret %08x\n", hr );
5419                 ok( !lstrcmpW( str, szElementXML3 ), "incorrect element xml\n");
5420                 SysFreeString(str);
5421
5422                 /* Test for reversible escaping */
5423                 str = SysAllocString( szStrangeChars );
5424                 hr = IXMLDOMElement_put_text(pElement, str);
5425                 ok(hr == S_OK, "ret %08x\n", hr );
5426                 SysFreeString( str );
5427
5428                 hr = IXMLDOMElement_get_xml(pElement, &str);
5429                 ok(hr == S_OK, "ret %08x\n", hr );
5430                 ok( !lstrcmpW( str, szElementXML4 ), "incorrect element xml\n");
5431                 SysFreeString(str);
5432
5433                 hr = IXMLDOMElement_get_text(pElement, &str);
5434                 ok(hr == S_OK, "ret %08x\n", hr );
5435                 ok( !lstrcmpW( str, szStrangeChars ), "incorrect element text\n");
5436                 SysFreeString(str);
5437
5438                 IXMLDOMElement_Release(pElement);
5439             }
5440
5441             /* CData Section */
5442             str = SysAllocString(szCData);
5443             hr = IXMLDOMDocument_createCDATASection(doc, str, NULL);
5444             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5445
5446             hr = IXMLDOMDocument_createCDATASection(doc, str, &pCDataSec);
5447             SysFreeString(str);
5448             ok(hr == S_OK, "ret %08x\n", hr );
5449             if(hr == S_OK)
5450             {
5451                 IXMLDOMNode *pNextChild = (IXMLDOMNode *)0x1;
5452                 VARIANT var;
5453
5454                 VariantInit(&var);
5455
5456                 hr = IXMLDOMCDATASection_QueryInterface(pCDataSec, &IID_IXMLDOMElement, (void**)&pElement);
5457                 ok(hr == E_NOINTERFACE, "ret %08x\n", hr);
5458
5459                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pCDataSec, NULL);
5460                 ok(hr == S_OK, "ret %08x\n", hr );
5461
5462                 hr = IXMLDOMCDATASection_get_nodeName(pCDataSec, &str);
5463                 ok(hr == S_OK, "ret %08x\n", hr );
5464                 ok( !lstrcmpW( str, szCDataNodeText ), "incorrect cdata node Name\n");
5465                 SysFreeString(str);
5466
5467                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5468                 ok(hr == S_OK, "ret %08x\n", hr );
5469                 ok( !lstrcmpW( str, szCDataXML ), "incorrect cdata xml\n");
5470                 SysFreeString(str);
5471
5472                 /* test lastChild */
5473                 pNextChild = (IXMLDOMNode*)0x1;
5474                 hr = IXMLDOMCDATASection_get_lastChild(pCDataSec, &pNextChild);
5475                 ok(hr == S_FALSE, "ret %08x\n", hr );
5476                 ok(pNextChild == NULL, "pNextChild not NULL\n");
5477
5478                 /* put data Tests */
5479                 hr = IXMLDOMCDATASection_put_data(pCDataSec, _bstr_("This &is a ; test <>\\"));
5480                 ok(hr == S_OK, "ret %08x\n", hr );
5481
5482                 /* Confirm XML text is good */
5483                 hr = IXMLDOMCDATASection_get_xml(pCDataSec, &str);
5484                 ok(hr == S_OK, "ret %08x\n", hr );
5485                 ok( !lstrcmpW( str, _bstr_("<![CDATA[This &is a ; test <>\\]]>") ), "incorrect xml string\n");
5486                 SysFreeString(str);
5487
5488                 /* Confirm we get the put_data Text back */
5489                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5490                 ok(hr == S_OK, "ret %08x\n", hr );
5491                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5492                 SysFreeString(str);
5493
5494                 /* test length property */
5495                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5496                 ok(hr == S_OK, "ret %08x\n", hr );
5497                 ok(len == 21, "expected 21 got %d\n", len);
5498
5499                 /* test get data */
5500                 hr = IXMLDOMCDATASection_get_data(pCDataSec, &str);
5501                 ok(hr == S_OK, "ret %08x\n", hr );
5502                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\") ), "incorrect text string\n");
5503                 SysFreeString(str);
5504
5505                 /* test substringData */
5506                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, NULL);
5507                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5508
5509                 /* test substringData - Invalid offset */
5510                 str = (BSTR)&szElement;
5511                 hr = IXMLDOMCDATASection_substringData(pCDataSec, -1, 4, &str);
5512                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5513                 ok( str == NULL, "incorrect string\n");
5514
5515                 /* test substringData - Invalid offset */
5516                 str = (BSTR)&szElement;
5517                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 30, 0, &str);
5518                 ok(hr == S_FALSE, "ret %08x\n", hr );
5519                 ok( str == NULL, "incorrect string\n");
5520
5521                 /* test substringData - Invalid size */
5522                 str = (BSTR)&szElement;
5523                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, -1, &str);
5524                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5525                 ok( str == NULL, "incorrect string\n");
5526
5527                 /* test substringData - Invalid size */
5528                 str = (BSTR)&szElement;
5529                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 2, 0, &str);
5530                 ok(hr == S_FALSE, "ret %08x\n", hr );
5531                 ok( str == NULL, "incorrect string\n");
5532
5533                 /* test substringData - Start of string */
5534                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 0, 4, &str);
5535                 ok(hr == S_OK, "ret %08x\n", hr );
5536                 ok( !lstrcmpW( str, _bstr_("This") ), "incorrect substringData string\n");
5537                 SysFreeString(str);
5538
5539                 /* test substringData - Middle of string */
5540                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 13, 4, &str);
5541                 ok(hr == S_OK, "ret %08x\n", hr );
5542                 ok( !lstrcmpW( str, _bstr_("test") ), "incorrect substringData string\n");
5543                 SysFreeString(str);
5544
5545                 /* test substringData - End of string */
5546                 hr = IXMLDOMCDATASection_substringData(pCDataSec, 20, 4, &str);
5547                 ok(hr == S_OK, "ret %08x\n", hr );
5548                 ok( !lstrcmpW( str, _bstr_("\\") ), "incorrect substringData string\n");
5549                 SysFreeString(str);
5550
5551                 /* test appendData */
5552                 hr = IXMLDOMCDATASection_appendData(pCDataSec, NULL);
5553                 ok(hr == S_OK, "ret %08x\n", hr );
5554
5555                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_(""));
5556                 ok(hr == S_OK, "ret %08x\n", hr );
5557
5558                 hr = IXMLDOMCDATASection_appendData(pCDataSec, _bstr_("Append"));
5559                 ok(hr == S_OK, "ret %08x\n", hr );
5560
5561                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5562                 ok(hr == S_OK, "ret %08x\n", hr );
5563                 ok( !lstrcmpW( str, _bstr_("This &is a ; test <>\\Append") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5564                 SysFreeString(str);
5565
5566                 /* test insertData */
5567                 str = SysAllocStringLen(NULL, 0);
5568                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, str);
5569                 ok(hr == S_OK, "ret %08x\n", hr );
5570
5571                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, NULL);
5572                 ok(hr == S_OK, "ret %08x\n", hr );
5573
5574                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, str);
5575                 ok(hr == S_OK, "ret %08x\n", hr );
5576
5577                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, NULL);
5578                 ok(hr == S_OK, "ret %08x\n", hr );
5579
5580                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, NULL);
5581                 ok(hr == S_OK, "ret %08x\n", hr );
5582
5583                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, str);
5584                 ok(hr == S_OK, "ret %08x\n", hr );
5585                 SysFreeString(str);
5586
5587                 hr = IXMLDOMCDATASection_insertData(pCDataSec, -1, _bstr_("Inserting"));
5588                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5589
5590                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 1000, _bstr_("Inserting"));
5591                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5592
5593                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("Begin "));
5594                 ok(hr == S_OK, "ret %08x\n", hr );
5595
5596                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 17, _bstr_("Middle"));
5597                 ok(hr == S_OK, "ret %08x\n", hr );
5598
5599                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 39, _bstr_(" End"));
5600                 ok(hr == S_OK, "ret %08x\n", hr );
5601
5602                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5603                 ok(hr == S_OK, "ret %08x\n", hr );
5604                 ok( !lstrcmpW( str, _bstr_("Begin This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5605                 SysFreeString(str);
5606
5607                 /* delete data */
5608                 /* invalid arguments */
5609                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, -1, 1);
5610                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5611
5612                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 0);
5613                 ok(hr == S_OK, "ret %08x\n", hr );
5614
5615                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, -1);
5616                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5617
5618                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5619                 ok(hr == S_OK, "ret %08x\n", hr );
5620                 ok(len == 43, "expected 43 got %d\n", len);
5621
5622                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len, 1);
5623                 ok(hr == S_OK, "ret %08x\n", hr );
5624
5625                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, len+1, 1);
5626                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5627
5628                 /* delete from start */
5629                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, 5);
5630                 ok(hr == S_OK, "ret %08x\n", hr );
5631
5632                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5633                 ok(hr == S_OK, "ret %08x\n", hr );
5634                 ok(len == 38, "expected 38 got %d\n", len);
5635
5636                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5637                 ok(hr == S_OK, "ret %08x\n", hr );
5638                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append End") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5639                 SysFreeString(str);
5640
5641                 /* delete from end */
5642                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 35, 3);
5643                 ok(hr == S_OK, "ret %08x\n", hr );
5644
5645                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5646                 ok(hr == S_OK, "ret %08x\n", hr );
5647                 ok(len == 35, "expected 35 got %d\n", len);
5648
5649                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5650                 ok(hr == S_OK, "ret %08x\n", hr );
5651                 ok( !lstrcmpW( str, _bstr_(" This &is a Middle; test <>\\Append ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5652                 SysFreeString(str);
5653
5654                 /* delete from inside */
5655                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 1, 33);
5656                 ok(hr == S_OK, "ret %08x\n", hr );
5657
5658                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5659                 ok(hr == S_OK, "ret %08x\n", hr );
5660                 ok(len == 2, "expected 2 got %d\n", len);
5661
5662                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5663                 ok(hr == S_OK, "ret %08x\n", hr );
5664                 ok( !lstrcmpW( str, _bstr_("  ") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5665                 SysFreeString(str);
5666
5667                 /* delete whole data ... */
5668                 hr = IXMLDOMCDATASection_get_length(pCDataSec, &len);
5669                 ok(hr == S_OK, "ret %08x\n", hr );
5670
5671                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5672                 ok(hr == S_OK, "ret %08x\n", hr );
5673
5674                 /* ... and try again with empty string */
5675                 hr = IXMLDOMCDATASection_deleteData(pCDataSec, 0, len);
5676                 ok(hr == S_OK, "ret %08x\n", hr );
5677
5678                 /* ::replaceData() */
5679                 V_VT(&v) = VT_BSTR;
5680                 V_BSTR(&v) = SysAllocString(szstr1);
5681                 hr = IXMLDOMCDATASection_put_nodeValue(pCDataSec, v);
5682                 ok(hr == S_OK, "ret %08x\n", hr );
5683                 VariantClear(&v);
5684
5685                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 6, 0, NULL);
5686                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5687                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5688                 ok(hr == S_OK, "ret %08x\n", hr );
5689                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5690                 SysFreeString(str);
5691
5692                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, NULL);
5693                 ok(hr == S_OK, "ret %08x\n", hr );
5694                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5695                 ok(hr == S_OK, "ret %08x\n", hr );
5696                 ok( !lstrcmpW( str, _bstr_("str1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5697                 SysFreeString(str);
5698
5699                 /* NULL pointer means delete */
5700                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, NULL);
5701                 ok(hr == S_OK, "ret %08x\n", hr );
5702                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5703                 ok(hr == S_OK, "ret %08x\n", hr );
5704                 ok( !lstrcmpW( str, _bstr_("tr1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5705                 SysFreeString(str);
5706
5707                 /* empty string means delete */
5708                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_(""));
5709                 ok(hr == S_OK, "ret %08x\n", hr );
5710                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5711                 ok(hr == S_OK, "ret %08x\n", hr );
5712                 ok( !lstrcmpW( str, _bstr_("r1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5713                 SysFreeString(str);
5714
5715                 /* zero count means insert */
5716                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 0, _bstr_("a"));
5717                 ok(hr == S_OK, "ret %08x\n", hr );
5718                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5719                 ok(hr == S_OK, "ret %08x\n", hr );
5720                 ok( !lstrcmpW( str, _bstr_("ar1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5721                 SysFreeString(str);
5722
5723                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, NULL);
5724                 ok(hr == S_OK, "ret %08x\n", hr );
5725
5726                 hr = IXMLDOMCDATASection_insertData(pCDataSec, 0, _bstr_("m"));
5727                 ok(hr == S_OK, "ret %08x\n", hr );
5728                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5729                 ok(hr == S_OK, "ret %08x\n", hr );
5730                 ok( !lstrcmpW( str, _bstr_("m1") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5731                 SysFreeString(str);
5732
5733                 /* nonempty string, count greater than its length */
5734                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 2, _bstr_("a1.2"));
5735                 ok(hr == S_OK, "ret %08x\n", hr );
5736                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5737                 ok(hr == S_OK, "ret %08x\n", hr );
5738                 ok( !lstrcmpW( str, _bstr_("a1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5739                 SysFreeString(str);
5740
5741                 /* nonempty string, count less than its length */
5742                 hr = IXMLDOMCDATASection_replaceData(pCDataSec, 0, 1, _bstr_("wine"));
5743                 ok(hr == S_OK, "ret %08x\n", hr );
5744                 hr = IXMLDOMCDATASection_get_text(pCDataSec, &str);
5745                 ok(hr == S_OK, "ret %08x\n", hr );
5746                 ok( !lstrcmpW( str, _bstr_("wine1.2") ), "incorrect get_text string, got '%s'\n", wine_dbgstr_w(str) );
5747                 SysFreeString(str);
5748
5749                 IXMLDOMCDATASection_Release(pCDataSec);
5750             }
5751
5752             /* Document Fragments */
5753             hr = IXMLDOMDocument_createDocumentFragment(doc, NULL);
5754             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5755
5756             hr = IXMLDOMDocument_createDocumentFragment(doc, &pDocFrag);
5757             ok(hr == S_OK, "ret %08x\n", hr );
5758             if(hr == S_OK)
5759             {
5760                 IXMLDOMNode *node;
5761
5762                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, NULL);
5763                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5764
5765                 node = (IXMLDOMNode *)0x1;
5766                 hr = IXMLDOMDocumentFragment_get_parentNode(pDocFrag, &node);
5767                 ok(hr == S_FALSE, "ret %08x\n", hr );
5768                 ok(node == NULL, "expected NULL, got %p\n", node);
5769
5770                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pDocFrag, NULL);
5771                 ok(hr == S_OK, "ret %08x\n", hr );
5772
5773                 hr = IXMLDOMDocumentFragment_get_nodeName(pDocFrag, &str);
5774                 ok(hr == S_OK, "ret %08x\n", hr );
5775                 ok( !lstrcmpW( str, szDocFragmentText ), "incorrect docfragment node Name\n");
5776                 SysFreeString(str);
5777
5778                 /* test next Sibling*/
5779                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, NULL);
5780                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5781
5782                 node = (IXMLDOMNode *)0x1;
5783                 hr = IXMLDOMDocumentFragment_get_nextSibling(pDocFrag, &node);
5784                 ok(hr == S_FALSE, "ret %08x\n", hr );
5785                 ok(node == NULL, "next sibling not NULL\n");
5786
5787                 /* test Previous Sibling*/
5788                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, NULL);
5789                 ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5790
5791                 node = (IXMLDOMNode *)0x1;
5792                 hr = IXMLDOMDocumentFragment_get_previousSibling(pDocFrag, &node);
5793                 ok(hr == S_FALSE, "ret %08x\n", hr );
5794                 ok(node == NULL, "previous sibling not NULL\n");
5795
5796                 IXMLDOMDocumentFragment_Release(pDocFrag);
5797             }
5798
5799             /* Entity References */
5800             hr = IXMLDOMDocument_createEntityReference(doc, NULL, &pEntityRef);
5801             ok(hr == E_FAIL, "ret %08x\n", hr );
5802             hr = IXMLDOMDocument_createEntityReference(doc, _bstr_(""), &pEntityRef);
5803             ok(hr == E_FAIL, "ret %08x\n", hr );
5804
5805             str = SysAllocString(szEntityRef);
5806             hr = IXMLDOMDocument_createEntityReference(doc, str, NULL);
5807             ok(hr == E_INVALIDARG, "ret %08x\n", hr );
5808
5809             hr = IXMLDOMDocument_createEntityReference(doc, str, &pEntityRef);
5810             SysFreeString(str);
5811             ok(hr == S_OK, "ret %08x\n", hr );
5812             if(hr == S_OK)
5813             {
5814                 hr = IXMLDOMElement_appendChild(pRoot, (IXMLDOMNode*)pEntityRef, NULL);
5815                 ok(hr == S_OK, "ret %08x\n", hr );
5816
5817                 /* test get_xml*/
5818                 hr = IXMLDOMEntityReference_get_xml(pEntityRef, &str);
5819                 ok(hr == S_OK, "ret %08x\n", hr );
5820                 ok( !lstrcmpW( str, szEntityRefXML ), "incorrect xml string\n");
5821                 SysFreeString(str);
5822
5823                 IXMLDOMEntityReference_Release(pEntityRef);
5824             }
5825
5826             IXMLDOMElement_Release( pRoot );
5827         }
5828     }
5829
5830     IXMLDOMDocument_Release(doc);
5831
5832     free_bstrs();
5833 }
5834
5835 typedef struct {
5836     const char *name;
5837     const char *type;
5838     HRESULT hr;
5839 } put_datatype_t;
5840
5841 /* Type test for elements only. Name passed into put_dataType is case-insensitive.
5842    So many of the names have been changed to reflect this. */
5843 static put_datatype_t put_datatype_data[] = {
5844     { "test_inval",      "abcdefg",     E_FAIL },
5845     { "test_bool",       "Boolean",     S_OK },
5846     { "test_string",     "String",      S_OK },
5847     { "test_number",     "number",      S_OK },
5848     { "test_int",        "InT",         S_OK },
5849     { "test_fixed",      "fixed.14.4",  S_OK },
5850     { "test_datetime",   "DateTime",    S_OK },
5851     { "test_datetimetz", "DateTime.tz", S_OK },
5852     { "test_date",       "Date",        S_OK },
5853     { "test_time",       "Time",        S_OK },
5854     { "test_timetz",     "Time.tz",     S_OK },
5855     { "test_I1",         "I1",          S_OK },
5856     { "test_I2",         "I2",          S_OK },
5857     { "test_I4",         "I4",          S_OK },
5858     { "test_UI1",        "UI1",         S_OK },
5859     { "test_UI2",        "UI2",         S_OK },
5860     { "test_UI4",        "UI4",         S_OK },
5861     { "test_r4",         "r4",          S_OK },
5862     { "test_r8",         "r8",          S_OK },
5863     { "test_float",      "float",       S_OK },
5864     { "test_uuid",       "UuId",        S_OK },
5865     { "test_binhex",     "bin.hex",     S_OK },
5866     { "test_binbase64",  "bin.base64",  S_OK },
5867     { NULL }
5868 };
5869
5870 typedef struct {
5871     DOMNodeType type;
5872     HRESULT hr;
5873 } put_datatype_notype_t;
5874
5875 static put_datatype_notype_t put_dt_notype[] = {
5876     { NODE_PROCESSING_INSTRUCTION, E_FAIL },
5877     { NODE_DOCUMENT_FRAGMENT,      E_FAIL },
5878     { NODE_ENTITY_REFERENCE,       E_FAIL },
5879     { NODE_CDATA_SECTION,          E_FAIL },
5880     { NODE_COMMENT,                E_FAIL },
5881     { NODE_INVALID }
5882 };
5883
5884 static void test_put_dataType( void )
5885 {
5886     const put_datatype_notype_t *ptr2 = put_dt_notype;
5887     const put_datatype_t *ptr = put_datatype_data;
5888     IXMLDOMElement *root, *element;
5889     BSTR nameW, type1W, type2W;
5890     IXMLDOMDocument *doc;
5891     HRESULT hr;
5892
5893     doc = create_document(&IID_IXMLDOMDocument);
5894
5895     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), NULL);
5896     EXPECT_HR(hr, E_INVALIDARG);
5897
5898     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5899     EXPECT_HR(hr, S_OK);
5900
5901     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5902     EXPECT_HR(hr, S_OK);
5903
5904     hr = IXMLDOMElement_put_dataType(root, NULL);
5905     EXPECT_HR(hr, E_INVALIDARG);
5906
5907     while (ptr->name)
5908     {
5909         hr = IXMLDOMDocument_createElement(doc, _bstr_(ptr->name), &element);
5910         EXPECT_HR(hr, S_OK);
5911         if(hr == S_OK)
5912         {
5913             hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5914             EXPECT_HR(hr, S_OK);
5915
5916             hr = IXMLDOMElement_put_dataType(element, _bstr_(ptr->type));
5917             ok(hr == ptr->hr, "failed for %s:%s, 0x%08x\n", ptr->name, ptr->type, ptr->hr);
5918
5919             IXMLDOMElement_Release(element);
5920         }
5921         ptr++;
5922     }
5923
5924     /* check changing types */
5925     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing_Change"), &element);
5926     EXPECT_HR(hr, S_OK);
5927
5928     hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)element, NULL);
5929     EXPECT_HR(hr, S_OK);
5930
5931     hr = IXMLDOMElement_put_dataType(element, _bstr_("DateTime.tz"));
5932     EXPECT_HR(hr, S_OK);
5933
5934     hr = IXMLDOMElement_put_dataType(element, _bstr_("string"));
5935     EXPECT_HR(hr, S_OK);
5936
5937     IXMLDOMElement_Release(element);
5938
5939     /* try to set type for node without a type */
5940     nameW  = _bstr_("testname");
5941     type1W = _bstr_("string");
5942     type2W = _bstr_("number");
5943     while (ptr2->type != NODE_INVALID)
5944     {
5945         IXMLDOMNode *node;
5946         VARIANT type;
5947
5948         V_VT(&type) = VT_I2;
5949         V_I2(&type) = ptr2->type;
5950
5951         hr = IXMLDOMDocument_createNode(doc, type, nameW, NULL, &node);
5952         EXPECT_HR(hr, S_OK);
5953         if(hr == S_OK)
5954         {
5955             hr = IXMLDOMElement_appendChild(root, node, NULL);
5956             EXPECT_HR(hr, S_OK);
5957
5958             hr = IXMLDOMNode_put_dataType(node, NULL);
5959             EXPECT_HR(hr, E_INVALIDARG);
5960
5961             hr = IXMLDOMNode_put_dataType(node, type1W);
5962             ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5963             hr = IXMLDOMNode_put_dataType(node, type2W);
5964             ok(hr == ptr2->hr, "failed for type %d, 0x%08x\n", ptr2->type, ptr->hr);
5965
5966             IXMLDOMNode_Release(node);
5967         }
5968         ptr2++;
5969     }
5970
5971     IXMLDOMElement_Release(root);
5972     IXMLDOMDocument_Release(doc);
5973     free_bstrs();
5974 }
5975
5976 static void test_save(void)
5977 {
5978     IXMLDOMDocument *doc, *doc2;
5979     IXMLDOMElement *root;
5980     BSTR sOrig, sNew, filename;
5981     char buffer[100];
5982     IStream *stream;
5983     HGLOBAL global;
5984     VARIANT_BOOL b;
5985     DWORD read = 0;
5986     VARIANT dest;
5987     HANDLE hfile;
5988     HRESULT hr;
5989     char *ptr;
5990
5991     doc = create_document(&IID_IXMLDOMDocument);
5992     doc2 = create_document(&IID_IXMLDOMDocument);
5993
5994     /* save to IXMLDOMDocument */
5995     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
5996     EXPECT_HR(hr, S_OK);
5997
5998     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
5999     EXPECT_HR(hr, S_OK);
6000
6001     V_VT(&dest) = VT_UNKNOWN;
6002     V_UNKNOWN(&dest) = (IUnknown*)doc2;
6003
6004     hr = IXMLDOMDocument_save(doc, dest);
6005     EXPECT_HR(hr, S_OK);
6006
6007     hr = IXMLDOMDocument_get_xml(doc, &sOrig);
6008     EXPECT_HR(hr, S_OK);
6009
6010     hr = IXMLDOMDocument_get_xml(doc2, &sNew);
6011     EXPECT_HR(hr, S_OK);
6012
6013     ok( !lstrcmpW( sOrig, sNew ), "New document is not the same as original\n");
6014
6015     SysFreeString(sOrig);
6016     SysFreeString(sNew);
6017
6018     IXMLDOMElement_Release(root);
6019     IXMLDOMDocument_Release(doc2);
6020
6021     /* save to path */
6022     V_VT(&dest) = VT_BSTR;
6023     V_BSTR(&dest) = _bstr_("test.xml");
6024
6025     hr = IXMLDOMDocument_save(doc, dest);
6026     EXPECT_HR(hr, S_OK);
6027
6028     hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6029     ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6030     if(hfile == INVALID_HANDLE_VALUE) return;
6031
6032     ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6033     ok(read != 0, "could not read file\n");
6034     ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6035
6036     CloseHandle(hfile);
6037     DeleteFile("test.xml");
6038
6039     /* save to path VT_BSTR | VT_BYREF */
6040     filename = _bstr_("test.xml");
6041     V_VT(&dest) = VT_BSTR | VT_BYREF;
6042     V_BSTRREF(&dest) = &filename;
6043
6044     hr = IXMLDOMDocument_save(doc, dest);
6045     EXPECT_HR(hr, S_OK);
6046
6047     hfile = CreateFileA("test.xml", GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
6048     ok(hfile != INVALID_HANDLE_VALUE, "Could not open file: %u\n", GetLastError());
6049     if(hfile == INVALID_HANDLE_VALUE) return;
6050
6051     if (hfile != INVALID_HANDLE_VALUE)
6052     {
6053        ReadFile(hfile, buffer, sizeof(buffer), &read, NULL);
6054        ok(read != 0, "could not read file\n");
6055        ok(buffer[0] != '<' || buffer[1] != '?', "File contains processing instruction\n");
6056
6057        CloseHandle(hfile);
6058        DeleteFile("test.xml");
6059     }
6060
6061     /* save to stream */
6062     V_VT(&dest) = VT_UNKNOWN;
6063     V_UNKNOWN(&dest) = (IUnknown*)&savestream;
6064
6065     hr = IXMLDOMDocument_save(doc, dest);
6066     EXPECT_HR(hr, S_OK);
6067
6068     /* loaded data contains xml declaration */
6069     hr = IXMLDOMDocument_loadXML(doc, _bstr_(win1252xml), &b);
6070     EXPECT_HR(hr, S_OK);
6071
6072     CreateStreamOnHGlobal(NULL, TRUE, &stream);
6073     V_VT(&dest) = VT_UNKNOWN;
6074     V_UNKNOWN(&dest) = (IUnknown*)stream;
6075     hr = IXMLDOMDocument_save(doc, dest);
6076     EXPECT_HR(hr, S_OK);
6077
6078     hr = GetHGlobalFromStream(stream, &global);
6079     EXPECT_HR(hr, S_OK);
6080     ptr = GlobalLock(global);
6081     ok(!memcmp(ptr, win1252decl, strlen(win1252decl)), "got wrong xml declaration\n");
6082     GlobalUnlock(global);
6083     IStream_Release(stream);
6084
6085     /* loaded data without xml declaration */
6086     hr = IXMLDOMDocument_loadXML(doc, _bstr_("<a/>"), &b);
6087     EXPECT_HR(hr, S_OK);
6088
6089     CreateStreamOnHGlobal(NULL, TRUE, &stream);
6090     V_VT(&dest) = VT_UNKNOWN;
6091     V_UNKNOWN(&dest) = (IUnknown*)stream;
6092     hr = IXMLDOMDocument_save(doc, dest);
6093     EXPECT_HR(hr, S_OK);
6094
6095     hr = GetHGlobalFromStream(stream, &global);
6096     EXPECT_HR(hr, S_OK);
6097     ptr = GlobalLock(global);
6098     ok(ptr[0] == '<' && ptr[1] != '?', "got wrong start tag %c%c\n", ptr[0], ptr[1]);
6099     GlobalUnlock(global);
6100     IStream_Release(stream);
6101
6102     IXMLDOMDocument_Release(doc);
6103     free_bstrs();
6104 }
6105
6106 static void test_testTransforms(void)
6107 {
6108     IXMLDOMDocument *doc, *docSS;
6109     IXMLDOMNode *pNode;
6110     VARIANT_BOOL bSucc;
6111     HRESULT hr;
6112
6113     doc = create_document(&IID_IXMLDOMDocument);
6114     docSS = create_document(&IID_IXMLDOMDocument);
6115
6116     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformXML), &bSucc);
6117     ok(hr == S_OK, "ret %08x\n", hr );
6118
6119     hr = IXMLDOMDocument_loadXML(docSS, _bstr_(szTransformSSXML), &bSucc);
6120     ok(hr == S_OK, "ret %08x\n", hr );
6121
6122     hr = IXMLDOMDocument_QueryInterface(docSS, &IID_IXMLDOMNode, (void**)&pNode );
6123     ok(hr == S_OK, "ret %08x\n", hr );
6124     if(hr == S_OK)
6125     {
6126         BSTR bOut;
6127
6128         hr = IXMLDOMDocument_transformNode(doc, pNode, &bOut);
6129         ok(hr == S_OK, "ret %08x\n", hr );
6130         if(hr == S_OK)
6131         {
6132             ok( compareIgnoreReturns( bOut, _bstr_(szTransformOutput)), "Stylesheet output not correct\n");
6133             SysFreeString(bOut);
6134         }
6135
6136         IXMLDOMNode_Release(pNode);
6137     }
6138
6139     IXMLDOMDocument_Release(docSS);
6140     IXMLDOMDocument_Release(doc);
6141
6142     free_bstrs();
6143 }
6144
6145 struct namespaces_change_t {
6146     const CLSID *clsid;
6147     const char *name;
6148 };
6149
6150 static const struct namespaces_change_t namespaces_change_test_data[] = {
6151     { &CLSID_DOMDocument,   "CLSID_DOMDocument"   },
6152     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2"  },
6153     { &CLSID_DOMDocument26, "CLSID_DOMDocument26" },
6154     { &CLSID_DOMDocument30, "CLSID_DOMDocument30" },
6155     { &CLSID_DOMDocument40, "CLSID_DOMDocument40" },
6156     { &CLSID_DOMDocument60, "CLSID_DOMDocument60" },
6157     { 0 }
6158 };
6159
6160 static void test_namespaces_change(void)
6161 {
6162     const struct namespaces_change_t *class_ptr = namespaces_change_test_data;
6163
6164     while (class_ptr->clsid)
6165     {
6166         IXMLDOMDocument *doc = NULL;
6167         IXMLDOMElement *elem = NULL;
6168         IXMLDOMNode *node = NULL;
6169
6170         VARIANT var;
6171         HRESULT hr;
6172         BSTR str;
6173
6174         if (!is_clsid_supported(class_ptr->clsid, &IID_IXMLDOMDocument))
6175         {
6176             class_ptr++;
6177             continue;
6178         }
6179
6180         hr = CoCreateInstance(class_ptr->clsid, NULL, CLSCTX_INPROC_SERVER,
6181                               &IID_IXMLDOMDocument, (void**)&doc);
6182         ok(hr == S_OK, "got 0x%08x\n", hr);
6183
6184         V_VT(&var) = VT_I2;
6185         V_I2(&var) = NODE_ELEMENT;
6186
6187         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("ns:elem"), _bstr_("ns/uri"), &node);
6188         EXPECT_HR(hr, S_OK);
6189
6190         hr = IXMLDOMDocument_appendChild(doc, node, NULL);
6191         EXPECT_HR(hr, S_OK);
6192
6193         hr = IXMLDOMDocument_get_documentElement(doc, &elem);
6194         EXPECT_HR(hr, S_OK);
6195
6196         /* try same prefix, different uri */
6197         V_VT(&var) = VT_BSTR;
6198         V_BSTR(&var) = _bstr_("ns/uri2");
6199
6200         hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6201         EXPECT_HR(hr, E_INVALIDARG);
6202
6203         /* try same prefix and uri */
6204         V_VT(&var) = VT_BSTR;
6205         V_BSTR(&var) = _bstr_("ns/uri");
6206
6207         hr = IXMLDOMElement_setAttribute(elem, _bstr_("xmlns:ns"), var);
6208         EXPECT_HR(hr, S_OK);
6209
6210         hr = IXMLDOMElement_get_xml(elem, &str);
6211         EXPECT_HR(hr, S_OK);
6212         ok(!lstrcmpW(str, _bstr_("<ns:elem xmlns:ns=\"ns/uri\"/>")), "got element %s for %s\n",
6213            wine_dbgstr_w(str), class_ptr->name);
6214         SysFreeString(str);
6215
6216         IXMLDOMElement_Release(elem);
6217         IXMLDOMDocument_Release(doc);
6218
6219         free_bstrs();
6220
6221         class_ptr++;
6222     }
6223 }
6224
6225 static void test_namespaces_basic(void)
6226 {
6227     static const CHAR namespaces_xmlA[] =
6228         "<?xml version=\"1.0\"?>\n"
6229         "<XMI xmi.version=\"1.1\" xmlns:Model=\"http://omg.org/mof.Model/1.3\">"
6230         "  <XMI.content>"
6231         "    <Model:Package name=\"WinePackage\" Model:name2=\"name2 attr\" />"
6232         "  </XMI.content>"
6233         "</XMI>";
6234
6235     IXMLDOMDocument *doc;
6236     IXMLDOMElement *elem;
6237     IXMLDOMNode *node;
6238
6239     VARIANT_BOOL b;
6240     HRESULT hr;
6241     BSTR str;
6242
6243     doc = create_document(&IID_IXMLDOMDocument);
6244
6245     hr = IXMLDOMDocument_loadXML(doc, _bstr_(namespaces_xmlA), &b);
6246     EXPECT_HR(hr, S_OK);
6247     ok(b == VARIANT_TRUE, "got %d\n", b);
6248
6249     str = (BSTR)0xdeadbeef;
6250     hr = IXMLDOMDocument_get_namespaceURI(doc, &str);
6251     EXPECT_HR(hr, S_FALSE);
6252     ok(str == NULL, "got %p\n", str);
6253
6254     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("//XMI.content"), &node );
6255     EXPECT_HR(hr, S_OK);
6256     if(hr == S_OK)
6257     {
6258         IXMLDOMAttribute *attr;
6259         IXMLDOMNode *node2;
6260
6261         hr = IXMLDOMNode_get_firstChild(node, &node2);
6262         EXPECT_HR(hr, S_OK);
6263         ok(node2 != NULL, "got %p\n", node2);
6264
6265         /* Test get_prefix */
6266         hr = IXMLDOMNode_get_prefix(node2, NULL);
6267         EXPECT_HR(hr, E_INVALIDARG);
6268         /* NOTE: Need to test that arg2 gets cleared on Error. */
6269
6270         hr = IXMLDOMNode_get_prefix(node2, &str);
6271         EXPECT_HR(hr, S_OK);
6272         ok( !lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6273         SysFreeString(str);
6274
6275         hr = IXMLDOMNode_get_nodeName(node2, &str);
6276         EXPECT_HR(hr, S_OK);
6277         ok(!lstrcmpW( str, _bstr_("Model:Package")), "got %s\n", wine_dbgstr_w(str));
6278         SysFreeString(str);
6279
6280         /* Test get_namespaceURI */
6281         hr = IXMLDOMNode_get_namespaceURI(node2, NULL);
6282         EXPECT_HR(hr, E_INVALIDARG);
6283         /* NOTE: Need to test that arg2 gets cleared on Error. */
6284
6285         hr = IXMLDOMNode_get_namespaceURI(node2, &str);
6286         EXPECT_HR(hr, S_OK);
6287         ok(!lstrcmpW( str, _bstr_("http://omg.org/mof.Model/1.3")), "got %s\n", wine_dbgstr_w(str));
6288         SysFreeString(str);
6289
6290         hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&elem);
6291         EXPECT_HR(hr, S_OK);
6292
6293         hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("Model:name2"), &attr);
6294         EXPECT_HR(hr, S_OK);
6295
6296         hr = IXMLDOMAttribute_get_nodeName(attr, &str);
6297         EXPECT_HR(hr, S_OK);
6298         ok(!lstrcmpW( str, _bstr_("Model:name2")), "got %s\n", wine_dbgstr_w(str));
6299         SysFreeString(str);
6300
6301         hr = IXMLDOMAttribute_get_prefix(attr, &str);
6302         EXPECT_HR(hr, S_OK);
6303         ok(!lstrcmpW( str, _bstr_("Model")), "got %s\n", wine_dbgstr_w(str));
6304         SysFreeString(str);
6305
6306         IXMLDOMAttribute_Release(attr);
6307         IXMLDOMElement_Release(elem);
6308
6309         IXMLDOMNode_Release(node2);
6310         IXMLDOMNode_Release(node);
6311     }
6312
6313     IXMLDOMDocument_Release(doc);
6314
6315     free_bstrs();
6316 }
6317
6318 static void test_FormattingXML(void)
6319 {
6320     IXMLDOMDocument *doc;
6321     IXMLDOMElement *pElement;
6322     VARIANT_BOOL bSucc;
6323     HRESULT hr;
6324     BSTR str;
6325     static const CHAR szLinefeedXML[] = "<?xml version=\"1.0\"?>\n<Root>\n\t<Sub val=\"A\" />\n</Root>";
6326     static const CHAR szLinefeedRootXML[] = "<Root>\r\n\t<Sub val=\"A\"/>\r\n</Root>";
6327
6328     doc = create_document(&IID_IXMLDOMDocument);
6329
6330     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szLinefeedXML), &bSucc);
6331     ok(hr == S_OK, "ret %08x\n", hr );
6332     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6333
6334     if(bSucc == VARIANT_TRUE)
6335     {
6336         hr = IXMLDOMDocument_get_documentElement(doc, &pElement);
6337         ok(hr == S_OK, "ret %08x\n", hr );
6338         if(hr == S_OK)
6339         {
6340             hr = IXMLDOMElement_get_xml(pElement, &str);
6341             ok(hr == S_OK, "ret %08x\n", hr );
6342             ok( !lstrcmpW( str, _bstr_(szLinefeedRootXML) ), "incorrect element xml\n");
6343             SysFreeString(str);
6344
6345             IXMLDOMElement_Release(pElement);
6346         }
6347     }
6348
6349     IXMLDOMDocument_Release(doc);
6350
6351     free_bstrs();
6352 }
6353
6354 typedef struct _nodetypedvalue_t {
6355     const char *name;
6356     VARTYPE type;
6357     const char *value; /* value in string format */
6358 } nodetypedvalue_t;
6359
6360 static const nodetypedvalue_t get_nodetypedvalue[] = {
6361     { "root/string",    VT_BSTR, "Wine" },
6362     { "root/string2",   VT_BSTR, "String" },
6363     { "root/number",    VT_BSTR, "12.44" },
6364     { "root/number2",   VT_BSTR, "-3.71e3" },
6365     { "root/int",       VT_I4,   "-13" },
6366     { "root/fixed",     VT_CY,   "7322.9371" },
6367     { "root/bool",      VT_BOOL, "-1" },
6368     { "root/datetime",  VT_DATE, "40135.14" },
6369     { "root/datetimetz",VT_DATE, "37813.59" },
6370     { "root/date",      VT_DATE, "665413" },
6371     { "root/time",      VT_DATE, "0.5813889" },
6372     { "root/timetz",    VT_DATE, "1.112512" },
6373     { "root/i1",        VT_I1,   "-13" },
6374     { "root/i2",        VT_I2,   "31915" },
6375     { "root/i4",        VT_I4,   "-312232" },
6376     { "root/ui1",       VT_UI1,  "123" },
6377     { "root/ui2",       VT_UI2,  "48282" },
6378     { "root/ui4",       VT_UI4,  "949281" },
6379     { "root/r4",        VT_R4,   "213124" },
6380     { "root/r8",        VT_R8,   "0.412" },
6381     { "root/float",     VT_R8,   "41221.421" },
6382     { "root/uuid",      VT_BSTR, "333C7BC4-460F-11D0-BC04-0080C7055a83" },
6383     { "root/binbase64", VT_ARRAY|VT_UI1, "base64 test" },
6384     { "root/binbase64_1", VT_ARRAY|VT_UI1, "base64 test" },
6385     { "root/binbase64_2", VT_ARRAY|VT_UI1, "base64 test" },
6386     { 0 }
6387 };
6388
6389 static void test_nodeTypedValue(void)
6390 {
6391     const nodetypedvalue_t *entry = get_nodetypedvalue;
6392     IXMLDOMDocumentType *doctype, *doctype2;
6393     IXMLDOMProcessingInstruction *pi;
6394     IXMLDOMDocumentFragment *frag;
6395     IXMLDOMDocument *doc, *doc2;
6396     IXMLDOMCDATASection *cdata;
6397     IXMLDOMComment *comment;
6398     IXMLDOMNode *node;
6399     VARIANT_BOOL b;
6400     VARIANT value;
6401     HRESULT hr;
6402
6403     doc = create_document(&IID_IXMLDOMDocument);
6404
6405     b = VARIANT_FALSE;
6406     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &b);
6407     ok(hr == S_OK, "ret %08x\n", hr );
6408     ok(b == VARIANT_TRUE, "got %d\n", b);
6409
6410     hr = IXMLDOMDocument_get_nodeValue(doc, NULL);
6411     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6412
6413     V_VT(&value) = VT_BSTR;
6414     V_BSTR(&value) = NULL;
6415     hr = IXMLDOMDocument_get_nodeValue(doc, &value);
6416     ok(hr == S_FALSE, "ret %08x\n", hr );
6417     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6418
6419     hr = IXMLDOMDocument_get_nodeTypedValue(doc, NULL);
6420     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6421
6422     V_VT(&value) = VT_EMPTY;
6423     hr = IXMLDOMDocument_get_nodeTypedValue(doc, &value);
6424     ok(hr == S_FALSE, "ret %08x\n", hr );
6425     ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6426
6427     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/string"), &node);
6428     ok(hr == S_OK, "ret %08x\n", hr );
6429
6430     V_VT(&value) = VT_BSTR;
6431     V_BSTR(&value) = NULL;
6432     hr = IXMLDOMNode_get_nodeValue(node, &value);
6433     ok(hr == S_FALSE, "ret %08x\n", hr );
6434     ok(V_VT(&value) == VT_NULL, "expect VT_NULL got %d\n", V_VT(&value));
6435
6436     hr = IXMLDOMNode_get_nodeTypedValue(node, NULL);
6437     ok(hr == E_INVALIDARG, "ret %08x\n", hr );
6438
6439     IXMLDOMNode_Release(node);
6440
6441     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("root/binhex"), &node);
6442     ok(hr == S_OK, "ret %08x\n", hr );
6443     {
6444         BYTE bytes[] = {0xff,0xfc,0xa0,0x12,0x00,0x3c};
6445
6446         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6447         ok(hr == S_OK, "ret %08x\n", hr );
6448         ok(V_VT(&value) == (VT_ARRAY|VT_UI1), "incorrect type\n");
6449         ok(V_ARRAY(&value)->rgsabound[0].cElements == 6, "incorrect array size\n");
6450         if(V_ARRAY(&value)->rgsabound[0].cElements == 6)
6451             ok(!memcmp(bytes, V_ARRAY(&value)->pvData, sizeof(bytes)), "incorrect value\n");
6452         VariantClear(&value);
6453         IXMLDOMNode_Release(node);
6454     }
6455
6456     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("foo"), _bstr_("value"), &pi);
6457     ok(hr == S_OK, "ret %08x\n", hr );
6458     {
6459         V_VT(&value) = VT_NULL;
6460         V_BSTR(&value) = (void*)0xdeadbeef;
6461         hr = IXMLDOMProcessingInstruction_get_nodeTypedValue(pi, &value);
6462         ok(hr == S_OK, "ret %08x\n", hr );
6463         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6464         ok(!lstrcmpW(V_BSTR(&value), _bstr_("value")), "got wrong value\n");
6465         IXMLDOMProcessingInstruction_Release(pi);
6466         VariantClear(&value);
6467     }
6468
6469     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("[1]*2=3; &gee that's not right!"), &cdata);
6470     ok(hr == S_OK, "ret %08x\n", hr );
6471     {
6472         V_VT(&value) = VT_NULL;
6473         V_BSTR(&value) = (void*)0xdeadbeef;
6474         hr = IXMLDOMCDATASection_get_nodeTypedValue(cdata, &value);
6475         ok(hr == S_OK, "ret %08x\n", hr );
6476         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6477         ok(!lstrcmpW(V_BSTR(&value), _bstr_("[1]*2=3; &gee that's not right!")), "got wrong value\n");
6478         IXMLDOMCDATASection_Release(cdata);
6479         VariantClear(&value);
6480     }
6481
6482     hr = IXMLDOMDocument_createComment(doc, _bstr_("comment"), &comment);
6483     ok(hr == S_OK, "ret %08x\n", hr );
6484     {
6485         V_VT(&value) = VT_NULL;
6486         V_BSTR(&value) = (void*)0xdeadbeef;
6487         hr = IXMLDOMComment_get_nodeTypedValue(comment, &value);
6488         ok(hr == S_OK, "ret %08x\n", hr );
6489         ok(V_VT(&value) == VT_BSTR, "got %d\n", V_VT(&value));
6490         ok(!lstrcmpW(V_BSTR(&value), _bstr_("comment")), "got wrong value\n");
6491         IXMLDOMComment_Release(comment);
6492         VariantClear(&value);
6493     }
6494
6495     hr = IXMLDOMDocument_createDocumentFragment(doc, &frag);
6496     ok(hr == S_OK, "ret %08x\n", hr );
6497     {
6498         V_VT(&value) = VT_EMPTY;
6499         hr = IXMLDOMDocumentFragment_get_nodeTypedValue(frag, &value);
6500         ok(hr == S_FALSE, "ret %08x\n", hr );
6501         ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6502         IXMLDOMDocumentFragment_Release(frag);
6503     }
6504
6505     doc2 = create_document(&IID_IXMLDOMDocument);
6506
6507     b = VARIANT_FALSE;
6508     hr = IXMLDOMDocument_loadXML(doc2, _bstr_(szEmailXML), &b);
6509     ok(hr == S_OK, "ret %08x\n", hr );
6510     ok(b == VARIANT_TRUE, "got %d\n", b);
6511
6512     EXPECT_REF(doc2, 1);
6513
6514     hr = IXMLDOMDocument_get_doctype(doc2, &doctype);
6515     ok(hr == S_OK, "ret %08x\n", hr );
6516
6517     EXPECT_REF(doc2, 1);
6518     todo_wine EXPECT_REF(doctype, 2);
6519
6520     {
6521         V_VT(&value) = VT_EMPTY;
6522         hr = IXMLDOMDocumentType_get_nodeTypedValue(doctype, &value);
6523         ok(hr == S_FALSE, "ret %08x\n", hr );
6524         ok(V_VT(&value) == VT_NULL, "got %d\n", V_VT(&value));
6525     }
6526
6527     hr = IXMLDOMDocument_get_doctype(doc2, &doctype2);
6528     ok(hr == S_OK, "ret %08x\n", hr );
6529     ok(doctype != doctype2, "got %p, was %p\n", doctype2, doctype);
6530
6531     IXMLDOMDocumentType_Release(doctype2);
6532     IXMLDOMDocumentType_Release(doctype);
6533
6534     IXMLDOMDocument_Release(doc2);
6535
6536     while (entry->name)
6537     {
6538         hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_(entry->name), &node);
6539         ok(hr == S_OK, "ret %08x\n", hr );
6540
6541         hr = IXMLDOMNode_get_nodeTypedValue(node, &value);
6542         ok(hr == S_OK, "ret %08x\n", hr );
6543         ok(V_VT(&value) == entry->type, "incorrect type, expected %d, got %d\n", entry->type, V_VT(&value));
6544
6545         if (entry->type == (VT_ARRAY|VT_UI1))
6546         {
6547             ok(V_ARRAY(&value)->rgsabound[0].cElements == strlen(entry->value),
6548                "incorrect array size %d\n", V_ARRAY(&value)->rgsabound[0].cElements);
6549         }
6550
6551         if (entry->type != VT_BSTR)
6552         {
6553            if (entry->type == VT_DATE ||
6554                entry->type == VT_R8 ||
6555                entry->type == VT_CY)
6556            {
6557                if (entry->type == VT_DATE)
6558                {
6559                    hr = VariantChangeType(&value, &value, 0, VT_R4);
6560                    ok(hr == S_OK, "ret %08x\n", hr );
6561                }
6562                hr = VariantChangeTypeEx(&value, &value,
6563                                         MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), SORT_DEFAULT),
6564                                         VARIANT_NOUSEROVERRIDE, VT_BSTR);
6565                ok(hr == S_OK, "ret %08x\n", hr );
6566            }
6567            else
6568            {
6569                hr = VariantChangeType(&value, &value, 0, VT_BSTR);
6570                ok(hr == S_OK, "ret %08x\n", hr );
6571            }
6572
6573            /* for byte array from VT_ARRAY|VT_UI1 it's not a WCHAR buffer */
6574            if (entry->type == (VT_ARRAY|VT_UI1))
6575            {
6576                ok(!memcmp( V_BSTR(&value), entry->value, strlen(entry->value)),
6577                   "expected %s\n", entry->value);
6578            }
6579            else
6580                ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6581                   "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6582         }
6583         else
6584            ok(lstrcmpW( V_BSTR(&value), _bstr_(entry->value)) == 0,
6585                "expected %s, got %s\n", entry->value, wine_dbgstr_w(V_BSTR(&value)));
6586
6587         VariantClear( &value );
6588         IXMLDOMNode_Release(node);
6589
6590         entry++;
6591     }
6592
6593     IXMLDOMDocument_Release(doc);
6594     free_bstrs();
6595 }
6596
6597 static void test_TransformWithLoadingLocalFile(void)
6598 {
6599     IXMLDOMDocument *doc;
6600     IXMLDOMDocument *xsl;
6601     IXMLDOMNode *pNode;
6602     VARIANT_BOOL bSucc;
6603     HRESULT hr;
6604     HANDLE file;
6605     DWORD dwWritten;
6606     char lpPathBuffer[MAX_PATH];
6607     int i;
6608
6609     /* Create a Temp File. */
6610     GetTempPathA(MAX_PATH, lpPathBuffer);
6611     strcat(lpPathBuffer, "customers.xml" );
6612
6613     file = CreateFileA(lpPathBuffer, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
6614     ok(file != INVALID_HANDLE_VALUE, "Could not create file: %u\n", GetLastError());
6615     if(file == INVALID_HANDLE_VALUE)
6616         return;
6617
6618     WriteFile(file, szBasicTransformXML, strlen(szBasicTransformXML), &dwWritten, NULL);
6619     CloseHandle(file);
6620
6621     /* Correct path to not include a escape character. */
6622     for(i=0; i < strlen(lpPathBuffer); i++)
6623     {
6624         if(lpPathBuffer[i] == '\\')
6625             lpPathBuffer[i] = '/';
6626     }
6627
6628     doc = create_document(&IID_IXMLDOMDocument);
6629     xsl = create_document(&IID_IXMLDOMDocument);
6630
6631     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTypeValueXML), &bSucc);
6632     ok(hr == S_OK, "ret %08x\n", hr );
6633     ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6634     if(bSucc == VARIANT_TRUE)
6635     {
6636         BSTR sXSL;
6637         BSTR sPart1 = _bstr_(szBasicTransformSSXMLPart1);
6638         BSTR sPart2 = _bstr_(szBasicTransformSSXMLPart2);
6639         BSTR sFileName = _bstr_(lpPathBuffer);
6640         int nLegnth = lstrlenW(sPart1) + lstrlenW(sPart2) + lstrlenW(sFileName) + 1;
6641
6642         sXSL = SysAllocStringLen(NULL, nLegnth);
6643         lstrcpyW(sXSL, sPart1);
6644         lstrcatW(sXSL, sFileName);
6645         lstrcatW(sXSL, sPart2);
6646
6647         hr = IXMLDOMDocument_loadXML(xsl, sXSL, &bSucc);
6648         ok(hr == S_OK, "ret %08x\n", hr );
6649         ok(bSucc == VARIANT_TRUE, "Expected VARIANT_TRUE got VARIANT_FALSE\n");
6650         if(bSucc == VARIANT_TRUE)
6651         {
6652             BSTR sResult;
6653
6654             hr = IXMLDOMDocument_QueryInterface(xsl, &IID_IXMLDOMNode, (void**)&pNode );
6655             ok(hr == S_OK, "ret %08x\n", hr );
6656             if(hr == S_OK)
6657             {
6658                 /* This will load the temp file via the XSL */
6659                 hr = IXMLDOMDocument_transformNode(doc, pNode, &sResult);
6660                 ok(hr == S_OK, "ret %08x\n", hr );
6661                 if(hr == S_OK)
6662                 {
6663                     ok( compareIgnoreReturns( sResult, _bstr_(szBasicTransformOutput)), "Stylesheet output not correct\n");
6664                     SysFreeString(sResult);
6665                 }
6666
6667                 IXMLDOMNode_Release(pNode);
6668             }
6669         }
6670
6671         SysFreeString(sXSL);
6672     }
6673
6674     IXMLDOMDocument_Release(doc);
6675     IXMLDOMDocument_Release(xsl);
6676
6677     DeleteFile(lpPathBuffer);
6678     free_bstrs();
6679 }
6680
6681 static void test_put_nodeValue(void)
6682 {
6683     static const WCHAR jeevesW[] = {'J','e','e','v','e','s',' ','&',' ','W','o','o','s','t','e','r',0};
6684     IXMLDOMDocument *doc;
6685     IXMLDOMText *text;
6686     IXMLDOMEntityReference *entityref;
6687     IXMLDOMAttribute *attr;
6688     IXMLDOMNode *node;
6689     HRESULT hr;
6690     VARIANT data, type;
6691
6692     doc = create_document(&IID_IXMLDOMDocument);
6693
6694     /* test for unsupported types */
6695     /* NODE_DOCUMENT */
6696     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMNode, (void**)&node);
6697     ok(hr == S_OK, "ret %08x\n", hr );
6698     V_VT(&data) = VT_BSTR;
6699     V_BSTR(&data) = _bstr_("one two three");
6700     hr = IXMLDOMNode_put_nodeValue(node, data);
6701     ok(hr == E_FAIL, "ret %08x\n", hr );
6702     IXMLDOMNode_Release(node);
6703
6704     /* NODE_DOCUMENT_FRAGMENT */
6705     V_VT(&type) = VT_I1;
6706     V_I1(&type) = NODE_DOCUMENT_FRAGMENT;
6707     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6708     ok(hr == S_OK, "ret %08x\n", hr );
6709     V_VT(&data) = VT_BSTR;
6710     V_BSTR(&data) = _bstr_("one two three");
6711     hr = IXMLDOMNode_put_nodeValue(node, data);
6712     ok(hr == E_FAIL, "ret %08x\n", hr );
6713     IXMLDOMNode_Release(node);
6714
6715     /* NODE_ELEMENT */
6716     V_VT(&type) = VT_I1;
6717     V_I1(&type) = NODE_ELEMENT;
6718     hr = IXMLDOMDocument_createNode(doc, type, _bstr_("test"), NULL, &node);
6719     ok(hr == S_OK, "ret %08x\n", hr );
6720     V_VT(&data) = VT_BSTR;
6721     V_BSTR(&data) = _bstr_("one two three");
6722     hr = IXMLDOMNode_put_nodeValue(node, data);
6723     ok(hr == E_FAIL, "ret %08x\n", hr );
6724     IXMLDOMNode_Release(node);
6725
6726     /* NODE_ENTITY_REFERENCE */
6727     hr = IXMLDOMDocument_createEntityReference(doc, _bstr_("ref"), &entityref);
6728     ok(hr == S_OK, "ret %08x\n", hr );
6729
6730     V_VT(&data) = VT_BSTR;
6731     V_BSTR(&data) = _bstr_("one two three");
6732     hr = IXMLDOMEntityReference_put_nodeValue(entityref, data);
6733     ok(hr == E_FAIL, "ret %08x\n", hr );
6734
6735     hr = IXMLDOMEntityReference_QueryInterface(entityref, &IID_IXMLDOMNode, (void**)&node);
6736     ok(hr == S_OK, "ret %08x\n", hr );
6737     V_VT(&data) = VT_BSTR;
6738     V_BSTR(&data) = _bstr_("one two three");
6739     hr = IXMLDOMNode_put_nodeValue(node, data);
6740     ok(hr == E_FAIL, "ret %08x\n", hr );
6741     IXMLDOMNode_Release(node);
6742     IXMLDOMEntityReference_Release(entityref);
6743
6744     /* supported types */
6745     hr = IXMLDOMDocument_createTextNode(doc, _bstr_(""), &text);
6746     ok(hr == S_OK, "ret %08x\n", hr );
6747     V_VT(&data) = VT_BSTR;
6748     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6749     hr = IXMLDOMText_put_nodeValue(text, data);
6750     ok(hr == S_OK, "ret %08x\n", hr );
6751     IXMLDOMText_Release(text);
6752
6753     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
6754     ok(hr == S_OK, "ret %08x\n", hr );
6755     V_VT(&data) = VT_BSTR;
6756     V_BSTR(&data) = _bstr_("Jeeves & Wooster");
6757     hr = IXMLDOMAttribute_put_nodeValue(attr, data);
6758     ok(hr == S_OK, "ret %08x\n", hr );
6759     hr = IXMLDOMAttribute_get_nodeValue(attr, &data);
6760     ok(hr == S_OK, "ret %08x\n", hr );
6761     ok(memcmp(V_BSTR(&data), jeevesW, sizeof(jeevesW)) == 0, "got %s\n",
6762         wine_dbgstr_w(V_BSTR(&data)));
6763     VariantClear(&data);
6764     IXMLDOMAttribute_Release(attr);
6765
6766     free_bstrs();
6767
6768     IXMLDOMDocument_Release(doc);
6769 }
6770
6771 static void test_IObjectSafety(void)
6772 {
6773     IXMLDOMDocument *doc;
6774     IObjectSafety *safety;
6775     HRESULT hr;
6776
6777     doc = create_document(&IID_IXMLDOMDocument);
6778
6779     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IObjectSafety, (void**)&safety);
6780     ok(hr == S_OK, "ret %08x\n", hr );
6781
6782     test_IObjectSafety_common(safety);
6783
6784     IObjectSafety_Release(safety);
6785     IXMLDOMDocument_Release(doc);
6786
6787     hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
6788         &IID_IObjectSafety, (void**)&safety);
6789     ok(hr == S_OK, "Could not create XMLHTTPRequest instance: %08x\n", hr);
6790
6791     test_IObjectSafety_common(safety);
6792
6793     IObjectSafety_Release(safety);
6794
6795 }
6796
6797 typedef struct _property_test_t {
6798     const GUID *guid;
6799     const char *clsid;
6800     const char *property;
6801     const char *value;
6802 } property_test_t;
6803
6804 static const property_test_t properties_test_data[] = {
6805     { &CLSID_DOMDocument,  "CLSID_DOMDocument" , "SelectionLanguage", "XSLPattern" },
6806     { &CLSID_DOMDocument2,  "CLSID_DOMDocument2" , "SelectionLanguage", "XSLPattern" },
6807     { &CLSID_DOMDocument30, "CLSID_DOMDocument30", "SelectionLanguage", "XSLPattern" },
6808     { &CLSID_DOMDocument40, "CLSID_DOMDocument40", "SelectionLanguage", "XPath" },
6809     { &CLSID_DOMDocument60, "CLSID_DOMDocument60", "SelectionLanguage", "XPath" },
6810     { 0 }
6811 };
6812
6813 static void test_default_properties(void)
6814 {
6815     const property_test_t *entry = properties_test_data;
6816
6817     while (entry->guid)
6818     {
6819         IXMLDOMDocument2 *doc;
6820         VARIANT var;
6821         HRESULT hr;
6822
6823         if (!is_clsid_supported(entry->guid, &IID_IXMLDOMDocument2))
6824         {
6825             entry++;
6826             continue;
6827         }
6828
6829         hr = CoCreateInstance(entry->guid, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument2, (void**)&doc);
6830         ok(hr == S_OK, "got 0x%08x\n", hr);
6831
6832         hr = IXMLDOMDocument2_getProperty(doc, _bstr_(entry->property), &var);
6833         ok(hr == S_OK, "got 0x%08x\n", hr);
6834         ok(lstrcmpW(V_BSTR(&var), _bstr_(entry->value)) == 0, "expected %s, for %s\n",
6835            entry->value, entry->clsid);
6836         VariantClear(&var);
6837
6838         IXMLDOMDocument2_Release(doc);
6839
6840         entry++;
6841     }
6842 }
6843
6844 typedef struct {
6845     const char *query;
6846     const char *list;
6847 } xslpattern_test_t;
6848
6849 static const xslpattern_test_t xslpattern_test[] = {
6850     { "root//elem[0]", "E1.E2.D1" },
6851     { "root//elem[index()=1]", "E2.E2.D1" },
6852     { "root//elem[index() $eq$ 1]", "E2.E2.D1" },
6853     { "root//elem[end()]", "E4.E2.D1" },
6854     { "root//elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6855     { "root//elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6856     { "root//elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6857     { "root//elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6858     { "root//elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6859     { "root//elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6860     { "root//elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6861     { "root//elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6862     { "root//elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6863     { "root//elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6864     { "root//elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6865     { "root//elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6866     { "root//elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6867     { "root//elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6868     { "root//elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6869     { "root//elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6870     { "root//elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6871     { "root//elem[$any$ *='B2 field']", "E2.E2.D1" },
6872     { "root//elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6873     { "root//elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6874     { "root//elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6875     { "root//elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6876     { "root//elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6877     { "root//elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6878     { "root//elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6879     { "root/elem[0]", "E1.E2.D1" },
6880     { "root/elem[index()=1]", "E2.E2.D1" },
6881     { "root/elem[index() $eq$ 1]", "E2.E2.D1" },
6882     { "root/elem[end()]", "E4.E2.D1" },
6883     { "root/elem[$not$ end()]", "E1.E2.D1 E2.E2.D1 E3.E2.D1" },
6884     { "root/elem[index() != 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6885     { "root/elem[index() $ne$ 0]", "E2.E2.D1 E3.E2.D1 E4.E2.D1" },
6886     { "root/elem[index() < 2]", "E1.E2.D1 E2.E2.D1" },
6887     { "root/elem[index() $lt$ 2]", "E1.E2.D1 E2.E2.D1" },
6888     { "root/elem[index() <= 1]", "E1.E2.D1 E2.E2.D1" },
6889     { "root/elem[index() $le$ 1]", "E1.E2.D1 E2.E2.D1" },
6890     { "root/elem[index() > 1]", "E3.E2.D1 E4.E2.D1" },
6891     { "root/elem[index() $gt$ 1]", "E3.E2.D1 E4.E2.D1" },
6892     { "root/elem[index() >= 2]", "E3.E2.D1 E4.E2.D1" },
6893     { "root/elem[index() $ge$ 2]", "E3.E2.D1 E4.E2.D1" },
6894     { "root/elem[a $ieq$ 'a2 field']", "E2.E2.D1" },
6895     { "root/elem[a $ine$ 'a2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6896     { "root/elem[a $ilt$ 'a3 field']", "E1.E2.D1 E2.E2.D1" },
6897     { "root/elem[a $ile$ 'a2 field']", "E1.E2.D1 E2.E2.D1" },
6898     { "root/elem[a $igt$ 'a2 field']", "E3.E2.D1 E4.E2.D1" },
6899     { "root/elem[a $ige$ 'a3 field']", "E3.E2.D1 E4.E2.D1" },
6900     { "root/elem[$any$ *='B2 field']", "E2.E2.D1" },
6901     { "root/elem[$all$ *!='B2 field']", "E1.E2.D1 E3.E2.D1 E4.E2.D1" },
6902     { "root/elem[index()=0 or end()]", "E1.E2.D1 E4.E2.D1" },
6903     { "root/elem[index()=0 $or$ end()]", "E1.E2.D1 E4.E2.D1" },
6904     { "root/elem[index()=0 || end()]", "E1.E2.D1 E4.E2.D1" },
6905     { "root/elem[index()>0 and $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6906     { "root/elem[index()>0 $and$ $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6907     { "root/elem[index()>0 && $not$ end()]", "E2.E2.D1 E3.E2.D1" },
6908     { "root/elem[d]", "E1.E2.D1 E2.E2.D1 E4.E2.D1" },
6909     { NULL }
6910 };
6911
6912 static const xslpattern_test_t xslpattern_test_no_ns[] = {
6913     /* prefixes don't need to be registered, you may use them as they are in the doc */
6914     { "//bar:x", "E5.E1.E5.E1.E2.D1 E6.E2.E5.E1.E2.D1" },
6915     /* prefixes must be explicitly specified in the name */
6916     { "//foo:elem", "" },
6917     { "//foo:c", "E3.E4.E2.D1" },
6918     { NULL }
6919 };
6920
6921 static const xslpattern_test_t xslpattern_test_func[] = {
6922     { "attribute()", "" },
6923     { "attribute('depth')", "" },
6924     { "root/attribute('depth')", "A'depth'.E3.D1" },
6925     { "//x/attribute()", "A'id'.E3.E3.D1 A'depth'.E3.E3.D1" },
6926     { "//x//attribute(id)", NULL },
6927     { "//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" },
6928     { "comment()", "C2.D1" },
6929     { "//comment()", "C2.D1 C1.E3.D1 C2.E3.E3.D1 C2.E4.E3.D1" },
6930     { "element()", "E3.D1" },
6931     { "root/y/element()", "E4.E4.E3.D1 E5.E4.E3.D1 E6.E4.E3.D1" },
6932     { "//element(a)", NULL },
6933     { "//element('a')", "E4.E3.E3.D1 E4.E4.E3.D1" },
6934     { "node()", "P1.D1 C2.D1 E3.D1" },
6935     { "//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" },
6936     { "//x/node()[nodeType()=1]", "E4.E3.E3.D1 E5.E3.E3.D1 E6.E3.E3.D1" },
6937     { "//x/node()[nodeType()=3]", "T3.E3.E3.D1" },
6938     { "//x/node()[nodeType()=7]", "P1.E3.E3.D1" },
6939     { "//x/node()[nodeType()=8]", "C2.E3.E3.D1" },
6940     { "pi()", "P1.D1" },
6941     { "//y/pi()", "P1.E4.E3.D1" },
6942     { "root/textnode()", "T2.E3.D1" },
6943     { "root/element()/textnode()", "T3.E3.E3.D1 T3.E4.E3.D1" },
6944     { NULL }
6945 };
6946
6947 static void test_XSLPattern(void)
6948 {
6949     const xslpattern_test_t *ptr = xslpattern_test;
6950     IXMLDOMDocument2 *doc;
6951     IXMLDOMNodeList *list;
6952     VARIANT_BOOL b;
6953     HRESULT hr;
6954     LONG len;
6955
6956     doc = create_document(&IID_IXMLDOMDocument2);
6957
6958     b = VARIANT_FALSE;
6959     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szExampleXML), &b);
6960     EXPECT_HR(hr, S_OK);
6961     ok(b == VARIANT_TRUE, "failed to load XML string\n");
6962
6963     /* switch to XSLPattern */
6964     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern"));
6965     EXPECT_HR(hr, S_OK);
6966
6967     /* XPath doesn't select elements with non-null default namespace with unqualified selectors, XSLPattern does */
6968     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//elem/c"), &list);
6969     EXPECT_HR(hr, S_OK);
6970
6971     len = 0;
6972     hr = IXMLDOMNodeList_get_length(list, &len);
6973     EXPECT_HR(hr, S_OK);
6974     /* should select <elem><c> and <elem xmlns='...'><c> but not <elem><foo:c> */
6975     ok(len == 3, "expected 3 entries in list, got %d\n", len);
6976     IXMLDOMNodeList_Release(list);
6977
6978     while (ptr->query)
6979     {
6980         list = NULL;
6981         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
6982         ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
6983         len = 0;
6984         hr = IXMLDOMNodeList_get_length(list, &len);
6985         ok(len != 0, "query=%s, empty list\n", ptr->query);
6986         if (len)
6987             expect_list_and_release(list, ptr->list);
6988
6989         ptr++;
6990     }
6991
6992     /* namespace handling */
6993     /* no registered namespaces */
6994     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_(""));
6995     EXPECT_HR(hr, S_OK);
6996
6997     ptr = xslpattern_test_no_ns;
6998     while (ptr->query)
6999     {
7000         list = NULL;
7001         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7002         ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7003
7004         if (*ptr->list)
7005         {
7006             len = 0;
7007             hr = IXMLDOMNodeList_get_length(list, &len);
7008             EXPECT_HR(hr, S_OK);
7009             ok(len != 0, "query=%s, empty list\n", ptr->query);
7010         }
7011         else
7012         {
7013             len = 1;
7014             hr = IXMLDOMNodeList_get_length(list, &len);
7015             EXPECT_HR(hr, S_OK);
7016             ok(len == 0, "query=%s, empty list\n", ptr->query);
7017         }
7018         if (len)
7019             expect_list_and_release(list, ptr->list);
7020
7021         ptr++;
7022     }
7023
7024     /* explicitly register prefix foo */
7025     ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:uuid:86B2F87F-ACB6-45cd-8B77-9BDB92A01A29'")));
7026
7027     /* now we get the same behavior as XPath */
7028     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7029     EXPECT_HR(hr, S_OK);
7030     len = 0;
7031     hr = IXMLDOMNodeList_get_length(list, &len);
7032     EXPECT_HR(hr, S_OK);
7033     ok(len != 0, "expected filled list\n");
7034     if (len)
7035         expect_list_and_release(list, "E3.E3.E2.D1 E3.E4.E2.D1");
7036
7037     /* set prefix foo to some nonexistent namespace */
7038     hr = IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:foo='urn:nonexistent-foo'"));
7039     EXPECT_HR(hr, S_OK);
7040
7041     /* the registered prefix takes precedence */
7042     hr = IXMLDOMDocument2_selectNodes(doc, _bstr_("//foo:c"), &list);
7043     EXPECT_HR(hr, S_OK);
7044     len = 0;
7045     hr = IXMLDOMNodeList_get_length(list, &len);
7046     EXPECT_HR(hr, S_OK);
7047     ok(len == 0, "expected empty list\n");
7048     IXMLDOMNodeList_Release(list);
7049
7050     IXMLDOMDocument2_Release(doc);
7051
7052     doc = create_document(&IID_IXMLDOMDocument2);
7053
7054     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(szNodeTypesXML), &b);
7055     EXPECT_HR(hr, S_OK);
7056     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7057
7058     ptr = xslpattern_test_func;
7059     while (ptr->query)
7060     {
7061         list = NULL;
7062         hr = IXMLDOMDocument2_selectNodes(doc, _bstr_(ptr->query), &list);
7063         if (ptr->list)
7064         {
7065             ok(hr == S_OK, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7066             len = 0;
7067             hr = IXMLDOMNodeList_get_length(list, &len);
7068             if (*ptr->list)
7069             {
7070                 ok(len != 0, "query=%s, empty list\n", ptr->query);
7071                 if (len)
7072                     expect_list_and_release(list, ptr->list);
7073             }
7074             else
7075                 ok(len == 0, "query=%s, filled list\n", ptr->query);
7076         }
7077         else
7078             ok(hr == E_FAIL, "query=%s, failed with 0x%08x\n", ptr->query, hr);
7079
7080         ptr++;
7081     }
7082
7083     IXMLDOMDocument2_Release(doc);
7084     free_bstrs();
7085 }
7086
7087 static void test_splitText(void)
7088 {
7089     IXMLDOMCDATASection *cdata;
7090     IXMLDOMElement *root;
7091     IXMLDOMDocument *doc;
7092     IXMLDOMText *text, *text2;
7093     IXMLDOMNode *node;
7094     VARIANT var;
7095     VARIANT_BOOL success;
7096     LONG length;
7097     HRESULT hr;
7098
7099     doc = create_document(&IID_IXMLDOMDocument);
7100
7101     hr = IXMLDOMDocument_loadXML(doc, _bstr_("<root></root>"), &success);
7102     ok(hr == S_OK, "got 0x%08x\n", hr);
7103
7104     hr = IXMLDOMDocument_get_documentElement(doc, &root);
7105     ok(hr == S_OK, "got 0x%08x\n", hr);
7106
7107     hr = IXMLDOMDocument_createCDATASection(doc, _bstr_("beautiful plumage"), &cdata);
7108     ok(hr == S_OK, "got 0x%08x\n", hr);
7109
7110     V_VT(&var) = VT_EMPTY;
7111     hr = IXMLDOMElement_appendChild(root, (IXMLDOMNode*)cdata, NULL);
7112     ok(hr == S_OK, "got 0x%08x\n", hr);
7113
7114     length = 0;
7115     hr = IXMLDOMCDATASection_get_length(cdata, &length);
7116     ok(hr == S_OK, "got 0x%08x\n", hr);
7117     ok(length > 0, "got %d\n", length);
7118
7119     hr = IXMLDOMCDATASection_splitText(cdata, 0, NULL);
7120     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7121
7122     text = (void*)0xdeadbeef;
7123     /* negative offset */
7124     hr = IXMLDOMCDATASection_splitText(cdata, -1, &text);
7125     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7126     ok(text == (void*)0xdeadbeef, "got %p\n", text);
7127
7128     text = (void*)0xdeadbeef;
7129     /* offset outside data */
7130     hr = IXMLDOMCDATASection_splitText(cdata, length + 1, &text);
7131     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7132     ok(text == 0, "got %p\n", text);
7133
7134     text = (void*)0xdeadbeef;
7135     /* offset outside data */
7136     hr = IXMLDOMCDATASection_splitText(cdata, length, &text);
7137     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7138     ok(text == 0, "got %p\n", text);
7139
7140     /* no empty node created */
7141     node = (void*)0xdeadbeef;
7142     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7143     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7144     ok(node == 0, "got %p\n", text);
7145
7146     hr = IXMLDOMCDATASection_splitText(cdata, 10, &text);
7147     ok(hr == S_OK, "got 0x%08x\n", hr);
7148
7149     length = 0;
7150     hr = IXMLDOMText_get_length(text, &length);
7151     ok(hr == S_OK, "got 0x%08x\n", hr);
7152     ok(length == 7, "got %d\n", length);
7153
7154     hr = IXMLDOMCDATASection_get_nextSibling(cdata, &node);
7155     ok(hr == S_OK, "got 0x%08x\n", hr);
7156     IXMLDOMNode_Release(node);
7157
7158     /* split new text node */
7159     hr = IXMLDOMText_get_length(text, &length);
7160     ok(hr == S_OK, "got 0x%08x\n", hr);
7161
7162     node = (void*)0xdeadbeef;
7163     hr = IXMLDOMText_get_nextSibling(text, &node);
7164     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7165     ok(node == 0, "got %p\n", text);
7166
7167     hr = IXMLDOMText_splitText(text, 0, NULL);
7168     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7169
7170     text2 = (void*)0xdeadbeef;
7171     /* negative offset */
7172     hr = IXMLDOMText_splitText(text, -1, &text2);
7173     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7174     ok(text2 == (void*)0xdeadbeef, "got %p\n", text2);
7175
7176     text2 = (void*)0xdeadbeef;
7177     /* offset outside data */
7178     hr = IXMLDOMText_splitText(text, length + 1, &text2);
7179     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7180     ok(text2 == 0, "got %p\n", text2);
7181
7182     text2 = (void*)0xdeadbeef;
7183     /* offset outside data */
7184     hr = IXMLDOMText_splitText(text, length, &text2);
7185     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7186     ok(text2 == 0, "got %p\n", text);
7187
7188     text2 = 0;
7189     hr = IXMLDOMText_splitText(text, 4, &text2);
7190     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7191     if (text2) IXMLDOMText_Release(text2);
7192
7193     node = 0;
7194     hr = IXMLDOMText_get_nextSibling(text, &node);
7195     todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
7196     if (node) IXMLDOMNode_Release(node);
7197
7198     IXMLDOMText_Release(text);
7199     IXMLDOMElement_Release(root);
7200     IXMLDOMCDATASection_Release(cdata);
7201     free_bstrs();
7202 }
7203
7204 typedef struct {
7205     const char *name;
7206     const char *uri;
7207     HRESULT hr;
7208 } ns_item_t;
7209
7210 /* default_ns_doc used */
7211 static const ns_item_t qualified_item_tests[] = {
7212     { "xml:lang", NULL, S_FALSE },
7213     { "xml:lang", "http://www.w3.org/XML/1998/namespace", S_FALSE },
7214     { "lang", "http://www.w3.org/XML/1998/namespace", S_OK },
7215     { "ns:b", NULL, S_FALSE },
7216     { "ns:b", "nshref", S_FALSE },
7217     { "b", "nshref", S_OK },
7218     { "d", NULL, S_OK },
7219     { NULL }
7220 };
7221
7222 static const ns_item_t named_item_tests[] = {
7223     { "xml:lang", NULL, S_OK },
7224     { "lang", NULL, S_FALSE },
7225     { "ns:b", NULL, S_OK },
7226     { "b", NULL, S_FALSE },
7227     { "d", NULL, S_OK },
7228     { NULL }
7229 };
7230
7231 static void test_getQualifiedItem(void)
7232 {
7233     IXMLDOMNode *pr_node, *node;
7234     IXMLDOMNodeList *root_list;
7235     IXMLDOMNamedNodeMap *map;
7236     IXMLDOMElement *element;
7237     const ns_item_t* ptr;
7238     IXMLDOMDocument *doc;
7239     VARIANT_BOOL b;
7240     HRESULT hr;
7241     LONG len;
7242
7243     doc = create_document(&IID_IXMLDOMDocument);
7244
7245     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7246     EXPECT_HR(hr, S_OK);
7247     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7248
7249     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7250     EXPECT_HR(hr, S_OK);
7251
7252     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7253     EXPECT_HR(hr, S_OK);
7254
7255     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7256     EXPECT_HR(hr, S_OK);
7257     IXMLDOMNodeList_Release(root_list);
7258
7259     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7260     EXPECT_HR(hr, S_OK);
7261     IXMLDOMNode_Release(pr_node);
7262
7263     len = 0;
7264     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7265     EXPECT_HR(hr, S_OK);
7266     ok( len == 3, "length %d\n", len);
7267
7268     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, NULL);
7269     EXPECT_HR(hr, E_INVALIDARG);
7270
7271     node = (void*)0xdeadbeef;
7272     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, NULL, NULL, &node);
7273     EXPECT_HR(hr, E_INVALIDARG);
7274     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7275
7276     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, NULL);
7277     EXPECT_HR(hr, E_INVALIDARG);
7278
7279     hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_("id"), NULL, &node);
7280     EXPECT_HR(hr, S_OK);
7281
7282     IXMLDOMNode_Release(node);
7283     IXMLDOMNamedNodeMap_Release(map);
7284     IXMLDOMElement_Release(element);
7285
7286     hr = IXMLDOMDocument_loadXML(doc, _bstr_(default_ns_doc), &b);
7287     EXPECT_HR(hr, S_OK);
7288
7289     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("a"), &node);
7290     EXPECT_HR(hr, S_OK);
7291
7292     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&element);
7293     EXPECT_HR(hr, S_OK);
7294     IXMLDOMNode_Release(node);
7295
7296     hr = IXMLDOMElement_get_attributes(element, &map);
7297     EXPECT_HR(hr, S_OK);
7298
7299     ptr = qualified_item_tests;
7300     while (ptr->name)
7301     {
7302        node = (void*)0xdeadbeef;
7303        hr = IXMLDOMNamedNodeMap_getQualifiedItem(map, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
7304        ok(hr == ptr->hr, "%s, %s: got 0x%08x, expected 0x%08x\n", ptr->name, ptr->uri, hr, ptr->hr);
7305        if (hr == S_OK)
7306            IXMLDOMNode_Release(node);
7307        else
7308            ok(node == NULL, "%s, %s: got %p\n", ptr->name, ptr->uri, node);
7309        ptr++;
7310     }
7311
7312     ptr = named_item_tests;
7313     while (ptr->name)
7314     {
7315        node = (void*)0xdeadbeef;
7316        hr = IXMLDOMNamedNodeMap_getNamedItem(map, _bstr_(ptr->name), &node);
7317        ok(hr == ptr->hr, "%s: got 0x%08x, expected 0x%08x\n", ptr->name, hr, ptr->hr);
7318        if (hr == S_OK)
7319            IXMLDOMNode_Release(node);
7320        else
7321            ok(node == NULL, "%s: got %p\n", ptr->name, node);
7322        ptr++;
7323     }
7324
7325     IXMLDOMNamedNodeMap_Release(map);
7326
7327     IXMLDOMElement_Release(element);
7328     IXMLDOMDocument_Release(doc);
7329     free_bstrs();
7330 }
7331
7332 static void test_removeQualifiedItem(void)
7333 {
7334     IXMLDOMDocument *doc;
7335     IXMLDOMElement *element;
7336     IXMLDOMNode *pr_node, *node;
7337     IXMLDOMNodeList *root_list;
7338     IXMLDOMNamedNodeMap *map;
7339     VARIANT_BOOL b;
7340     LONG len;
7341     HRESULT hr;
7342
7343     doc = create_document(&IID_IXMLDOMDocument);
7344
7345     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7346     ok( hr == S_OK, "loadXML failed\n");
7347     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7348
7349     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7350     ok( hr == S_OK, "ret %08x\n", hr);
7351
7352     hr = IXMLDOMElement_get_childNodes(element, &root_list);
7353     ok( hr == S_OK, "ret %08x\n", hr);
7354
7355     hr = IXMLDOMNodeList_get_item(root_list, 1, &pr_node);
7356     ok( hr == S_OK, "ret %08x\n", hr);
7357     IXMLDOMNodeList_Release(root_list);
7358
7359     hr = IXMLDOMNode_get_attributes(pr_node, &map);
7360     ok( hr == S_OK, "ret %08x\n", hr);
7361     IXMLDOMNode_Release(pr_node);
7362
7363     hr = IXMLDOMNamedNodeMap_get_length(map, &len);
7364     ok( hr == S_OK, "ret %08x\n", hr);
7365     ok( len == 3, "length %d\n", len);
7366
7367     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, NULL);
7368     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7369
7370     node = (void*)0xdeadbeef;
7371     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, NULL, NULL, &node);
7372     ok( hr == E_INVALIDARG, "ret %08x\n", hr);
7373     ok( node == (void*)0xdeadbeef, "got %p\n", node);
7374
7375     /* out pointer is optional */
7376     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7377     ok( hr == S_OK, "ret %08x\n", hr);
7378
7379     /* already removed */
7380     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("id"), NULL, NULL);
7381     ok( hr == S_FALSE, "ret %08x\n", hr);
7382
7383     hr = IXMLDOMNamedNodeMap_removeQualifiedItem(map, _bstr_("vr"), NULL, &node);
7384     ok( hr == S_OK, "ret %08x\n", hr);
7385     IXMLDOMNode_Release(node);
7386
7387     IXMLDOMNamedNodeMap_Release( map );
7388     IXMLDOMElement_Release( element );
7389     IXMLDOMDocument_Release( doc );
7390     free_bstrs();
7391 }
7392
7393 #define check_default_props(doc) _check_default_props(__LINE__, doc)
7394 static inline void _check_default_props(int line, IXMLDOMDocument2* doc)
7395 {
7396     VARIANT_BOOL b;
7397     VARIANT var;
7398     HRESULT hr;
7399
7400     VariantInit(&var);
7401     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7402     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XSLPattern")) == 0, "expected XSLPattern\n");
7403     VariantClear(&var);
7404
7405     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7406     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("")) == 0, "expected empty string\n");
7407     VariantClear(&var);
7408
7409     helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7410     ok_(__FILE__, line)(b == VARIANT_FALSE, "expected FALSE\n");
7411
7412     hr = IXMLDOMDocument2_get_schemas(doc, &var);
7413     ok_(__FILE__, line)(hr == S_FALSE, "got %08x\n", hr);
7414     VariantClear(&var);
7415 }
7416
7417 #define check_set_props(doc) _check_set_props(__LINE__, doc)
7418 static inline void _check_set_props(int line, IXMLDOMDocument2* doc)
7419 {
7420     VARIANT_BOOL b;
7421     VARIANT var;
7422
7423     VariantInit(&var);
7424     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionLanguage"), &var));
7425     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("XPath")) == 0, "expected XPath\n");
7426     VariantClear(&var);
7427
7428     helper_ole_check(IXMLDOMDocument2_getProperty(doc, _bstr_("SelectionNamespaces"), &var));
7429     ok_(__FILE__, line)(lstrcmpW(V_BSTR(&var), _bstr_("xmlns:wi=\'www.winehq.org\'")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&var)));
7430     VariantClear(&var);
7431
7432     helper_ole_check(IXMLDOMDocument2_get_preserveWhiteSpace(doc, &b));
7433     ok_(__FILE__, line)(b == VARIANT_TRUE, "expected TRUE\n");
7434
7435     helper_ole_check(IXMLDOMDocument2_get_schemas(doc, &var));
7436     ok_(__FILE__, line)(V_VT(&var) != VT_NULL, "expected pointer\n");
7437     VariantClear(&var);
7438 }
7439
7440 #define set_props(doc, cache) _set_props(__LINE__, doc, cache)
7441 static inline void _set_props(int line, IXMLDOMDocument2* doc, IXMLDOMSchemaCollection* cache)
7442 {
7443     VARIANT var;
7444
7445     VariantInit(&var);
7446     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XPath")));
7447     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("xmlns:wi=\'www.winehq.org\'")));
7448     helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_TRUE));
7449     V_VT(&var) = VT_DISPATCH;
7450     V_DISPATCH(&var) = NULL;
7451     helper_ole_check(IXMLDOMSchemaCollection_QueryInterface(cache, &IID_IDispatch, (void**)&V_DISPATCH(&var)));
7452     ok_(__FILE__, line)(V_DISPATCH(&var) != NULL, "expected pointer\n");
7453     helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7454     VariantClear(&var);
7455 }
7456
7457 #define unset_props(doc) _unset_props(__LINE__, doc)
7458 static inline void _unset_props(int line, IXMLDOMDocument2* doc)
7459 {
7460     VARIANT var;
7461
7462     VariantInit(&var);
7463     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionLanguage"), _variantbstr_("XSLPattern")));
7464     helper_ole_check(IXMLDOMDocument2_setProperty(doc, _bstr_("SelectionNamespaces"), _variantbstr_("")));
7465     helper_ole_check(IXMLDOMDocument2_put_preserveWhiteSpace(doc, VARIANT_FALSE));
7466     V_VT(&var) = VT_NULL;
7467     helper_ole_check(IXMLDOMDocument2_putref_schemas(doc, var));
7468     VariantClear(&var);
7469 }
7470
7471 static void test_get_ownerDocument(void)
7472 {
7473     IXMLDOMDocument *doc1, *doc2, *doc3;
7474     IXMLDOMDocument2 *doc, *doc_owner;
7475     IXMLDOMNode *node;
7476     IXMLDOMSchemaCollection *cache;
7477     VARIANT_BOOL b;
7478     VARIANT var;
7479
7480     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
7481     if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
7482
7483     doc = create_document(&IID_IXMLDOMDocument2);
7484     cache = create_cache(&IID_IXMLDOMSchemaCollection);
7485
7486     VariantInit(&var);
7487
7488     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7489     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7490
7491     check_default_props(doc);
7492
7493     /* set properties and check that new instances use them */
7494     set_props(doc, cache);
7495     check_set_props(doc);
7496
7497     ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7498     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc1));
7499
7500     /* new interface keeps props */
7501     ole_check(IXMLDOMDocument_QueryInterface(doc1, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7502     ok( doc_owner != doc, "got %p, doc %p\n", doc_owner, doc);
7503     check_set_props(doc_owner);
7504     IXMLDOMDocument2_Release(doc_owner);
7505
7506     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc2));
7507     IXMLDOMNode_Release(node);
7508
7509     ok(doc1 != doc2, "got %p, expected %p. original %p\n", doc2, doc1, doc);
7510
7511     /* reload */
7512     ole_check(IXMLDOMDocument2_loadXML(doc, _bstr_(complete4A), &b));
7513     ok(b == VARIANT_TRUE, "failed to load XML string\n");
7514
7515     /* properties retained even after reload */
7516     check_set_props(doc);
7517
7518     ole_check(IXMLDOMDocument2_get_firstChild(doc, &node));
7519     ole_check(IXMLDOMNode_get_ownerDocument(node, &doc3));
7520     IXMLDOMNode_Release(node);
7521
7522     ole_check(IXMLDOMDocument_QueryInterface(doc3, &IID_IXMLDOMDocument2, (void**)&doc_owner));
7523     ok(doc3 != doc1 && doc3 != doc2 && doc_owner != doc, "got %p, (%p, %p, %p)\n", doc3, doc, doc1, doc2);
7524     check_set_props(doc_owner);
7525
7526     /* changing properties for one instance changes them for all */
7527     unset_props(doc_owner);
7528     check_default_props(doc_owner);
7529     check_default_props(doc);
7530
7531     IXMLDOMSchemaCollection_Release(cache);
7532     IXMLDOMDocument_Release(doc1);
7533     IXMLDOMDocument_Release(doc2);
7534     IXMLDOMDocument_Release(doc3);
7535     IXMLDOMDocument2_Release(doc);
7536     IXMLDOMDocument2_Release(doc_owner);
7537     free_bstrs();
7538 }
7539
7540 static void test_setAttributeNode(void)
7541 {
7542     IXMLDOMDocument *doc, *doc2;
7543     IXMLDOMElement *elem, *elem2;
7544     IXMLDOMAttribute *attr, *attr2, *ret_attr;
7545     VARIANT_BOOL b;
7546     HRESULT hr;
7547     VARIANT v;
7548     BSTR str;
7549     ULONG ref1, ref2;
7550
7551     doc = create_document(&IID_IXMLDOMDocument);
7552
7553     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7554     ok( hr == S_OK, "loadXML failed\n");
7555     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7556
7557     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7558     ok( hr == S_OK, "got 0x%08x\n", hr);
7559
7560     hr = IXMLDOMDocument_get_documentElement(doc, &elem2);
7561     ok( hr == S_OK, "got 0x%08x\n", hr);
7562     ok( elem2 != elem, "got same instance\n");
7563
7564     ret_attr = (void*)0xdeadbeef;
7565     hr = IXMLDOMElement_setAttributeNode(elem, NULL, &ret_attr);
7566     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7567     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7568
7569     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7570     ok( hr == S_OK, "got 0x%08x\n", hr);
7571
7572     ref1 = IXMLDOMElement_AddRef(elem);
7573     IXMLDOMElement_Release(elem);
7574
7575     ret_attr = (void*)0xdeadbeef;
7576     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7577     ok( hr == S_OK, "got 0x%08x\n", hr);
7578     ok( ret_attr == NULL, "got %p\n", ret_attr);
7579
7580     /* no reference added */
7581     ref2 = IXMLDOMElement_AddRef(elem);
7582     IXMLDOMElement_Release(elem);
7583     ok(ref2 == ref1, "got %d, expected %d\n", ref2, ref1);
7584
7585     EXPECT_CHILDREN(elem);
7586     EXPECT_CHILDREN(elem2);
7587
7588     IXMLDOMElement_Release(elem2);
7589
7590     attr2 = NULL;
7591     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("attr"), &attr2);
7592     ok( hr == S_OK, "got 0x%08x\n", hr);
7593     ok( attr2 != attr, "got same instance %p\n", attr2);
7594     IXMLDOMAttribute_Release(attr2);
7595
7596     /* try to add it another time */
7597     ret_attr = (void*)0xdeadbeef;
7598     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7599     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7600     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7601
7602     IXMLDOMElement_Release(elem);
7603
7604     /* initially used element is released, attribute still 'has' a container */
7605     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
7606     ok( hr == S_OK, "got 0x%08x\n", hr);
7607     ret_attr = (void*)0xdeadbeef;
7608     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7609     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7610     ok( ret_attr == (void*)0xdeadbeef, "got %p\n", ret_attr);
7611     IXMLDOMElement_Release(elem);
7612
7613     /* add attribute already attached to another document */
7614     doc2 = create_document(&IID_IXMLDOMDocument);
7615
7616     hr = IXMLDOMDocument_loadXML( doc2, _bstr_(complete4A), &b );
7617     ok( hr == S_OK, "loadXML failed\n");
7618     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7619
7620     hr = IXMLDOMDocument_get_documentElement(doc2, &elem);
7621     ok( hr == S_OK, "got 0x%08x\n", hr);
7622     hr = IXMLDOMElement_setAttributeNode(elem, attr, NULL);
7623     ok( hr == E_FAIL, "got 0x%08x\n", hr);
7624     IXMLDOMElement_Release(elem);
7625
7626     IXMLDOMAttribute_Release(attr);
7627
7628     /* create element, add attribute, see if it's copied or linked */
7629     hr = IXMLDOMDocument_createElement(doc, _bstr_("test"), &elem);
7630     ok( hr == S_OK, "got 0x%08x\n", hr);
7631
7632     attr = NULL;
7633     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
7634     ok(hr == S_OK, "got 0x%08x\n", hr);
7635     ok(attr != NULL, "got %p\n", attr);
7636
7637     ref1 = IXMLDOMAttribute_AddRef(attr);
7638     IXMLDOMAttribute_Release(attr);
7639
7640     V_VT(&v) = VT_BSTR;
7641     V_BSTR(&v) = _bstr_("attrvalue1");
7642     hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7643     ok( hr == S_OK, "got 0x%08x\n", hr);
7644
7645     str = NULL;
7646     hr = IXMLDOMAttribute_get_xml(attr, &str);
7647     ok( hr == S_OK, "got 0x%08x\n", hr);
7648     ok( lstrcmpW(str, _bstr_("attr=\"attrvalue1\"")) == 0,
7649         "got %s\n", wine_dbgstr_w(str));
7650     SysFreeString(str);
7651
7652     ret_attr = (void*)0xdeadbeef;
7653     hr = IXMLDOMElement_setAttributeNode(elem, attr, &ret_attr);
7654     ok(hr == S_OK, "got 0x%08x\n", hr);
7655     ok(ret_attr == NULL, "got %p\n", ret_attr);
7656
7657     /* attribute reference increased */
7658     ref2 = IXMLDOMAttribute_AddRef(attr);
7659     IXMLDOMAttribute_Release(attr);
7660     ok(ref1 == ref2, "got %d, expected %d\n", ref2, ref1);
7661
7662     hr = IXMLDOMElement_get_xml(elem, &str);
7663     ok( hr == S_OK, "got 0x%08x\n", hr);
7664     ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue1\"/>")) == 0,
7665         "got %s\n", wine_dbgstr_w(str));
7666     SysFreeString(str);
7667
7668     V_VT(&v) = VT_BSTR;
7669     V_BSTR(&v) = _bstr_("attrvalue2");
7670     hr = IXMLDOMAttribute_put_nodeValue(attr, v);
7671     ok( hr == S_OK, "got 0x%08x\n", hr);
7672
7673     hr = IXMLDOMElement_get_xml(elem, &str);
7674     ok( hr == S_OK, "got 0x%08x\n", hr);
7675     todo_wine ok( lstrcmpW(str, _bstr_("<test attr=\"attrvalue2\"/>")) == 0,
7676         "got %s\n", wine_dbgstr_w(str));
7677     SysFreeString(str);
7678
7679     IXMLDOMElement_Release(elem);
7680     IXMLDOMAttribute_Release(attr);
7681     IXMLDOMDocument_Release(doc2);
7682     IXMLDOMDocument_Release(doc);
7683     free_bstrs();
7684 }
7685
7686 static void test_createNode(void)
7687 {
7688     IXMLDOMDocument *doc;
7689     IXMLDOMElement *elem;
7690     IXMLDOMNode *node;
7691     VARIANT v, var;
7692     BSTR prefix, str;
7693     HRESULT hr;
7694     ULONG ref;
7695
7696     doc = create_document(&IID_IXMLDOMDocument);
7697
7698     EXPECT_REF(doc, 1);
7699
7700     /* reference count tests */
7701     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7702     ok( hr == S_OK, "got 0x%08x\n", hr);
7703
7704     /* initial reference is 2 */
7705 todo_wine {
7706     EXPECT_REF(elem, 2);
7707     ref = IXMLDOMElement_Release(elem);
7708     ok(ref == 1, "got %d\n", ref);
7709     /* it's released already, attempt to release now will crash it */
7710 }
7711
7712     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
7713     ok( hr == S_OK, "got 0x%08x\n", hr);
7714     todo_wine EXPECT_REF(elem, 2);
7715     IXMLDOMDocument_Release(doc);
7716     todo_wine EXPECT_REF(elem, 2);
7717     IXMLDOMElement_Release(elem);
7718
7719     doc = create_document(&IID_IXMLDOMDocument);
7720
7721     /* NODE_ELEMENT nodes */
7722     /* 1. specified namespace */
7723     V_VT(&v) = VT_I4;
7724     V_I4(&v) = NODE_ELEMENT;
7725
7726     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("ns1:test"), _bstr_("http://winehq.org"), &node);
7727     ok( hr == S_OK, "got 0x%08x\n", hr);
7728     prefix = NULL;
7729     hr = IXMLDOMNode_get_prefix(node, &prefix);
7730     ok( hr == S_OK, "got 0x%08x\n", hr);
7731     ok(lstrcmpW(prefix, _bstr_("ns1")) == 0, "wrong prefix\n");
7732     SysFreeString(prefix);
7733     IXMLDOMNode_Release(node);
7734
7735     /* 2. default namespace */
7736     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("test"), _bstr_("http://winehq.org/default"), &node);
7737     ok( hr == S_OK, "got 0x%08x\n", hr);
7738     prefix = (void*)0xdeadbeef;
7739     hr = IXMLDOMNode_get_prefix(node, &prefix);
7740     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7741     ok(prefix == 0, "expected empty prefix, got %p\n", prefix);
7742     /* check dump */
7743     hr = IXMLDOMNode_get_xml(node, &str);
7744     ok( hr == S_OK, "got 0x%08x\n", hr);
7745     ok( lstrcmpW(str, _bstr_("<test xmlns=\"http://winehq.org/default\"/>")) == 0,
7746         "got %s\n", wine_dbgstr_w(str));
7747     SysFreeString(str);
7748
7749     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
7750     ok( hr == S_OK, "got 0x%08x\n", hr);
7751
7752     V_VT(&var) = VT_BSTR;
7753     hr = IXMLDOMElement_getAttribute(elem, _bstr_("xmlns"), &var);
7754     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7755     ok( V_VT(&var) == VT_NULL, "got %d\n", V_VT(&var));
7756
7757     str = NULL;
7758     hr = IXMLDOMElement_get_namespaceURI(elem, &str);
7759     ok( hr == S_OK, "got 0x%08x\n", hr);
7760     ok( lstrcmpW(str, _bstr_("http://winehq.org/default")) == 0, "expected default namespace\n");
7761     SysFreeString(str);
7762
7763     IXMLDOMElement_Release(elem);
7764     IXMLDOMNode_Release(node);
7765
7766     IXMLDOMDocument_Release(doc);
7767     free_bstrs();
7768 }
7769
7770 static const char get_prefix_doc[] =
7771     "<?xml version=\"1.0\" ?>"
7772     "<a xmlns:ns1=\"ns1 href\" />";
7773
7774 static void test_get_prefix(void)
7775 {
7776     IXMLDOMDocumentFragment *fragment;
7777     IXMLDOMCDATASection *cdata;
7778     IXMLDOMElement *element;
7779     IXMLDOMComment *comment;
7780     IXMLDOMDocument *doc;
7781     VARIANT_BOOL b;
7782     HRESULT hr;
7783     BSTR str;
7784
7785     doc = create_document(&IID_IXMLDOMDocument);
7786
7787     /* nodes that can't support prefix */
7788     /* 1. document */
7789     str = (void*)0xdeadbeef;
7790     hr = IXMLDOMDocument_get_prefix(doc, &str);
7791     EXPECT_HR(hr, S_FALSE);
7792     ok(str == NULL, "got %p\n", str);
7793
7794     hr = IXMLDOMDocument_get_prefix(doc, NULL);
7795     EXPECT_HR(hr, E_INVALIDARG);
7796
7797     /* 2. cdata */
7798     hr = IXMLDOMDocument_createCDATASection(doc, NULL, &cdata);
7799     ok(hr == S_OK, "got %08x\n", hr );
7800
7801     str = (void*)0xdeadbeef;
7802     hr = IXMLDOMCDATASection_get_prefix(cdata, &str);
7803     ok(hr == S_FALSE, "got %08x\n", hr);
7804     ok( str == 0, "got %p\n", str);
7805
7806     hr = IXMLDOMCDATASection_get_prefix(cdata, NULL);
7807     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7808     IXMLDOMCDATASection_Release(cdata);
7809
7810     /* 3. comment */
7811     hr = IXMLDOMDocument_createComment(doc, NULL, &comment);
7812     ok(hr == S_OK, "got %08x\n", hr );
7813
7814     str = (void*)0xdeadbeef;
7815     hr = IXMLDOMComment_get_prefix(comment, &str);
7816     ok(hr == S_FALSE, "got %08x\n", hr);
7817     ok( str == 0, "got %p\n", str);
7818
7819     hr = IXMLDOMComment_get_prefix(comment, NULL);
7820     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7821     IXMLDOMComment_Release(comment);
7822
7823     /* 4. fragment */
7824     hr = IXMLDOMDocument_createDocumentFragment(doc, &fragment);
7825     ok(hr == S_OK, "got %08x\n", hr );
7826
7827     str = (void*)0xdeadbeef;
7828     hr = IXMLDOMDocumentFragment_get_prefix(fragment, &str);
7829     ok(hr == S_FALSE, "got %08x\n", hr);
7830     ok( str == 0, "got %p\n", str);
7831
7832     hr = IXMLDOMDocumentFragment_get_prefix(fragment, NULL);
7833     ok(hr == E_INVALIDARG, "got %08x\n", hr);
7834     IXMLDOMDocumentFragment_Release(fragment);
7835
7836     /* no prefix */
7837     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &element);
7838     ok( hr == S_OK, "got 0x%08x\n", hr);
7839
7840     hr = IXMLDOMElement_get_prefix(element, NULL);
7841     ok( hr == E_INVALIDARG, "got 0x%08x\n", hr);
7842
7843     str = (void*)0xdeadbeef;
7844     hr = IXMLDOMElement_get_prefix(element, &str);
7845     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7846     ok( str == 0, "got %p\n", str);
7847
7848     IXMLDOMElement_Release(element);
7849
7850     /* with prefix */
7851     hr = IXMLDOMDocument_createElement(doc, _bstr_("a:elem"), &element);
7852     ok( hr == S_OK, "got 0x%08x\n", hr);
7853
7854     str = (void*)0xdeadbeef;
7855     hr = IXMLDOMElement_get_prefix(element, &str);
7856     ok( hr == S_OK, "got 0x%08x\n", hr);
7857     ok( lstrcmpW(str, _bstr_("a")) == 0, "expected prefix \"a\"\n");
7858     SysFreeString(str);
7859
7860     str = (void*)0xdeadbeef;
7861     hr = IXMLDOMElement_get_namespaceURI(element, &str);
7862     ok( hr == S_FALSE, "got 0x%08x\n", hr);
7863     ok( str == 0, "got %p\n", str);
7864
7865     IXMLDOMElement_Release(element);
7866
7867     hr = IXMLDOMDocument_loadXML(doc, _bstr_(get_prefix_doc), &b);
7868     EXPECT_HR(hr, S_OK);
7869
7870     hr = IXMLDOMDocument_get_documentElement(doc, &element);
7871     EXPECT_HR(hr, S_OK);
7872
7873     str = (void*)0xdeadbeef;
7874     hr = IXMLDOMElement_get_prefix(element, &str);
7875     EXPECT_HR(hr, S_FALSE);
7876     ok(str == NULL, "got %p\n", str);
7877
7878     str = (void*)0xdeadbeef;
7879     hr = IXMLDOMElement_get_namespaceURI(element, &str);
7880     EXPECT_HR(hr, S_FALSE);
7881     ok(str == NULL, "got %s\n", wine_dbgstr_w(str));
7882
7883     IXMLDOMDocument_Release(doc);
7884     free_bstrs();
7885 }
7886
7887 static void test_selectSingleNode(void)
7888 {
7889     IXMLDOMDocument *doc;
7890     IXMLDOMNodeList *list;
7891     IXMLDOMNode *node;
7892     VARIANT_BOOL b;
7893     HRESULT hr;
7894     LONG len;
7895
7896     doc = create_document(&IID_IXMLDOMDocument);
7897
7898     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7899     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7900
7901     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7902     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7903
7904     hr = IXMLDOMDocument_loadXML( doc, _bstr_(complete4A), &b );
7905     ok( hr == S_OK, "loadXML failed\n");
7906     ok( b == VARIANT_TRUE, "failed to load XML string\n");
7907
7908     hr = IXMLDOMDocument_selectSingleNode(doc, NULL, NULL);
7909     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7910
7911     hr = IXMLDOMDocument_selectNodes(doc, NULL, NULL);
7912     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7913
7914     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), NULL);
7915     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7916
7917     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), NULL);
7918     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7919
7920     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("lc"), &node);
7921     ok(hr == S_OK, "got 0x%08x\n", hr);
7922     IXMLDOMNode_Release(node);
7923
7924     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("lc"), &list);
7925     ok(hr == S_OK, "got 0x%08x\n", hr);
7926     IXMLDOMNodeList_Release(list);
7927
7928     list = (void*)0xdeadbeef;
7929     hr = IXMLDOMDocument_selectNodes(doc, NULL, &list);
7930     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
7931     ok(list == (void*)0xdeadbeef, "got %p\n", list);
7932
7933     node = (void*)0xdeadbeef;
7934     hr = IXMLDOMDocument_selectSingleNode(doc, _bstr_("nonexistent"), &node);
7935     ok(hr == S_FALSE, "got 0x%08x\n", hr);
7936     ok(node == 0, "got %p\n", node);
7937
7938     list = (void*)0xdeadbeef;
7939     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("nonexistent"), &list);
7940     ok(hr == S_OK, "got 0x%08x\n", hr);
7941     len = 1;
7942     hr = IXMLDOMNodeList_get_length(list, &len);
7943     ok(hr == S_OK, "got 0x%08x\n", hr);
7944     ok(len == 0, "got %d\n", len);
7945     IXMLDOMNodeList_Release(list);
7946
7947     IXMLDOMDocument_Release(doc);
7948     free_bstrs();
7949 }
7950
7951 static void test_events(void)
7952 {
7953     IConnectionPointContainer *conn;
7954     IConnectionPoint *point;
7955     IXMLDOMDocument *doc;
7956     HRESULT hr;
7957     VARIANT v;
7958     IDispatch *event;
7959
7960     doc = create_document(&IID_IXMLDOMDocument);
7961
7962     hr = IXMLDOMDocument_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&conn);
7963     ok(hr == S_OK, "got 0x%08x\n", hr);
7964
7965     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IDispatch, &point);
7966     ok(hr == S_OK, "got 0x%08x\n", hr);
7967     IConnectionPoint_Release(point);
7968     hr = IConnectionPointContainer_FindConnectionPoint(conn, &IID_IPropertyNotifySink, &point);
7969     ok(hr == S_OK, "got 0x%08x\n", hr);
7970     IConnectionPoint_Release(point);
7971     hr = IConnectionPointContainer_FindConnectionPoint(conn, &DIID_XMLDOMDocumentEvents, &point);
7972     ok(hr == S_OK, "got 0x%08x\n", hr);
7973     IConnectionPoint_Release(point);
7974
7975     IConnectionPointContainer_Release(conn);
7976
7977     /* ready state callback */
7978     VariantInit(&v);
7979     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7980     ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
7981
7982     event = create_dispevent();
7983     V_VT(&v) = VT_UNKNOWN;
7984     V_UNKNOWN(&v) = (IUnknown*)event;
7985
7986     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7987     ok(hr == S_OK, "got 0x%08x\n", hr);
7988     EXPECT_REF(event, 2);
7989
7990     V_VT(&v) = VT_DISPATCH;
7991     V_DISPATCH(&v) = event;
7992
7993     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
7994     ok(hr == S_OK, "got 0x%08x\n", hr);
7995     EXPECT_REF(event, 2);
7996
7997     /* VT_NULL doesn't reset event handler */
7998     V_VT(&v) = VT_NULL;
7999     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8000     ok(hr == DISP_E_TYPEMISMATCH, "got 0x%08x\n", hr);
8001     EXPECT_REF(event, 2);
8002
8003     V_VT(&v) = VT_DISPATCH;
8004     V_DISPATCH(&v) = NULL;
8005
8006     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8007     ok(hr == S_OK, "got 0x%08x\n", hr);
8008     EXPECT_REF(event, 1);
8009
8010     V_VT(&v) = VT_UNKNOWN;
8011     V_DISPATCH(&v) = NULL;
8012     hr = IXMLDOMDocument_put_onreadystatechange(doc, v);
8013     ok(hr == S_OK, "got 0x%08x\n", hr);
8014
8015     IDispatch_Release(event);
8016
8017     IXMLDOMDocument_Release(doc);
8018 }
8019
8020 static void test_createProcessingInstruction(void)
8021 {
8022     static const WCHAR bodyW[] = {'t','e','s','t',0};
8023     IXMLDOMProcessingInstruction *pi;
8024     IXMLDOMDocument *doc;
8025     WCHAR buff[10];
8026     HRESULT hr;
8027
8028     doc = create_document(&IID_IXMLDOMDocument);
8029
8030     /* test for BSTR handling, pass broken BSTR */
8031     memcpy(&buff[2], bodyW, sizeof(bodyW));
8032     /* just a big length */
8033     *(DWORD*)buff = 0xf0f0;
8034     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("test"), &buff[2], &pi);
8035     ok(hr == S_OK, "got 0x%08x\n", hr);
8036
8037     IXMLDOMProcessingInstruction_Release(pi);
8038     IXMLDOMDocument_Release(doc);
8039 }
8040
8041 static void test_put_nodeTypedValue(void)
8042 {
8043     static const BYTE binhexdata[16] =
8044         {0,1,2,3,4,5,6,7,8,9,0xa,0xb,0xc,0xd,0xe,0xf};
8045     IXMLDOMDocument *doc;
8046     IXMLDOMElement *elem;
8047     VARIANT type, value;
8048     LONG ubound, lbound;
8049     IXMLDOMNode *node;
8050     SAFEARRAY *array;
8051     HRESULT hr;
8052     BYTE *ptr;
8053     BSTR str;
8054
8055     doc = create_document(&IID_IXMLDOMDocument);
8056
8057     hr = IXMLDOMDocument_createElement(doc, _bstr_("Element"), &elem);
8058     EXPECT_HR(hr, S_OK);
8059
8060     V_VT(&type) = VT_EMPTY;
8061     hr = IXMLDOMElement_get_dataType(elem, &type);
8062     EXPECT_HR(hr, S_FALSE);
8063     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8064
8065     /* set typed value for untyped node */
8066     V_VT(&type) = VT_I1;
8067     V_I1(&type) = 1;
8068     hr = IXMLDOMElement_put_nodeTypedValue(elem, type);
8069     EXPECT_HR(hr, S_OK);
8070
8071     V_VT(&type) = VT_EMPTY;
8072     hr = IXMLDOMElement_get_dataType(elem, &type);
8073     EXPECT_HR(hr, S_FALSE);
8074     ok(V_VT(&type) == VT_NULL, "got %d, expected VT_NULL\n", V_VT(&type));
8075
8076     /* no type info stored */
8077     V_VT(&type) = VT_EMPTY;
8078     hr = IXMLDOMElement_get_nodeTypedValue(elem, &type);
8079     EXPECT_HR(hr, S_OK);
8080     ok(V_VT(&type) == VT_BSTR, "got %d, expected VT_BSTR\n", V_VT(&type));
8081     ok(memcmp(V_BSTR(&type), _bstr_("1"), 2*sizeof(WCHAR)) == 0,
8082        "got %s, expected \"1\"\n", wine_dbgstr_w(V_BSTR(&type)));
8083     VariantClear(&type);
8084
8085     hr = IXMLDOMElement_get_firstChild(elem, &node);
8086     EXPECT_HR(hr, S_OK);
8087     hr = IXMLDOMElement_removeChild(elem, node, NULL);
8088     EXPECT_HR(hr, S_OK);
8089     IXMLDOMNode_Release(node);
8090
8091     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)elem, NULL);
8092     EXPECT_HR(hr, S_OK);
8093
8094     /* bin.base64 */
8095     hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.base64"));
8096     EXPECT_HR(hr, S_OK);
8097
8098     V_VT(&value) = VT_BSTR;
8099     V_BSTR(&value) = _bstr_("ABCD");
8100     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8101     EXPECT_HR(hr, S_OK);
8102
8103     V_VT(&value) = VT_EMPTY;
8104     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8105     EXPECT_HR(hr, S_OK);
8106     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8107     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8108     ubound = 0;
8109     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8110     EXPECT_HR(hr, S_OK);
8111     ok(ubound == 2, "got %d\n", ubound);
8112     lbound = 0;
8113     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8114     EXPECT_HR(hr, S_OK);
8115     ok(lbound == 0, "got %d\n", lbound);
8116     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8117     EXPECT_HR(hr, S_OK);
8118     ok(ptr[0] == 0, "got %x\n", ptr[0]);
8119     ok(ptr[1] == 0x10, "got %x\n", ptr[1]);
8120     ok(ptr[2] == 0x83, "got %x\n", ptr[2]);
8121     SafeArrayUnaccessData(V_ARRAY(&value));
8122     VariantClear(&value);
8123
8124     /* when set as VT_BSTR it's stored as is */
8125     hr = IXMLDOMElement_get_firstChild(elem, &node);
8126     EXPECT_HR(hr, S_OK);
8127     hr = IXMLDOMNode_get_text(node, &str);
8128     EXPECT_HR(hr, S_OK);
8129     ok(!lstrcmpW(str, _bstr_("ABCD")), "%s\n", wine_dbgstr_w(str));
8130     IXMLDOMNode_Release(node);
8131
8132     array = SafeArrayCreateVector(VT_UI1, 0, 7);
8133     hr = SafeArrayAccessData(array, (void*)&ptr);
8134     EXPECT_HR(hr, S_OK);
8135     memcpy(ptr, "dGVzdA=", strlen("dGVzdA="));
8136     SafeArrayUnaccessData(array);
8137
8138     V_VT(&value) = VT_UI1|VT_ARRAY;
8139     V_ARRAY(&value) = array;
8140     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8141     EXPECT_HR(hr, S_OK);
8142
8143     V_VT(&value) = VT_EMPTY;
8144     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8145     EXPECT_HR(hr, S_OK);
8146     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8147     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8148     ubound = 0;
8149     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8150     EXPECT_HR(hr, S_OK);
8151     ok(ubound == 6, "got %d\n", ubound);
8152     lbound = 0;
8153     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8154     EXPECT_HR(hr, S_OK);
8155     ok(lbound == 0, "got %d\n", lbound);
8156     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8157     EXPECT_HR(hr, S_OK);
8158     ok(!memcmp(ptr, "dGVzdA=", strlen("dGVzdA=")), "got wrong data, %s\n", ptr);
8159     SafeArrayUnaccessData(V_ARRAY(&value));
8160     VariantClear(&value);
8161
8162     /* if set with VT_UI1|VT_ARRAY it's encoded */
8163     hr = IXMLDOMElement_get_firstChild(elem, &node);
8164     EXPECT_HR(hr, S_OK);
8165     hr = IXMLDOMNode_get_text(node, &str);
8166     EXPECT_HR(hr, S_OK);
8167     ok(!lstrcmpW(str, _bstr_("ZEdWemRBPQ==")), "%s\n", wine_dbgstr_w(str));
8168     IXMLDOMNode_Release(node);
8169     SafeArrayDestroyData(array);
8170
8171     /* bin.hex */
8172     V_VT(&value) = VT_BSTR;
8173     V_BSTR(&value) = _bstr_("");
8174     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8175     EXPECT_HR(hr, S_OK);
8176
8177     hr = IXMLDOMElement_put_dataType(elem, _bstr_("bin.hex"));
8178     EXPECT_HR(hr, S_OK);
8179
8180     array = SafeArrayCreateVector(VT_UI1, 0, 16);
8181     hr = SafeArrayAccessData(array, (void*)&ptr);
8182     EXPECT_HR(hr, S_OK);
8183     memcpy(ptr, binhexdata, sizeof(binhexdata));
8184     SafeArrayUnaccessData(array);
8185
8186     V_VT(&value) = VT_UI1|VT_ARRAY;
8187     V_ARRAY(&value) = array;
8188     hr = IXMLDOMElement_put_nodeTypedValue(elem, value);
8189     EXPECT_HR(hr, S_OK);
8190
8191     V_VT(&value) = VT_EMPTY;
8192     hr = IXMLDOMElement_get_nodeTypedValue(elem, &value);
8193     EXPECT_HR(hr, S_OK);
8194     ok(V_VT(&value) == (VT_UI1|VT_ARRAY), "got %d\n", V_VT(&value));
8195     ok(SafeArrayGetDim(V_ARRAY(&value)) == 1, "got wrong dimension\n");
8196     ubound = 0;
8197     hr = SafeArrayGetUBound(V_ARRAY(&value), 1, &ubound);
8198     EXPECT_HR(hr, S_OK);
8199     ok(ubound == 15, "got %d\n", ubound);
8200     lbound = 0;
8201     hr = SafeArrayGetLBound(V_ARRAY(&value), 1, &lbound);
8202     EXPECT_HR(hr, S_OK);
8203     ok(lbound == 0, "got %d\n", lbound);
8204     hr = SafeArrayAccessData(V_ARRAY(&value), (void*)&ptr);
8205     EXPECT_HR(hr, S_OK);
8206     ok(!memcmp(ptr, binhexdata, sizeof(binhexdata)), "got wrong data\n");
8207     SafeArrayUnaccessData(V_ARRAY(&value));
8208     VariantClear(&value);
8209
8210     /* if set with VT_UI1|VT_ARRAY it's encoded */
8211     hr = IXMLDOMElement_get_firstChild(elem, &node);
8212     EXPECT_HR(hr, S_OK);
8213     hr = IXMLDOMNode_get_text(node, &str);
8214     EXPECT_HR(hr, S_OK);
8215     ok(!lstrcmpW(str, _bstr_("000102030405060708090a0b0c0d0e0f")), "%s\n", wine_dbgstr_w(str));
8216     IXMLDOMNode_Release(node);
8217     SafeArrayDestroyData(array);
8218
8219     IXMLDOMElement_Release(elem);
8220     IXMLDOMDocument_Release(doc);
8221     free_bstrs();
8222 }
8223
8224 static void test_get_xml(void)
8225 {
8226     static const char xmlA[] = "<?xml version=\"1.0\" encoding=\"UTF-16\"?>\r\n<a>test</a>\r\n";
8227     static const char attrA[] = "attr=\"&quot;a &amp; b&quot;\"";
8228     static const char attr2A[] = "\"a & b\"";
8229     static const char attr3A[] = "attr=\"&amp;quot;a\"";
8230     static const char attr4A[] = "&quot;a";
8231     static const char fooA[] = "<foo/>";
8232     IXMLDOMProcessingInstruction *pi;
8233     IXMLDOMNode *first;
8234     IXMLDOMElement *elem = NULL;
8235     IXMLDOMAttribute *attr;
8236     IXMLDOMDocument *doc;
8237     VARIANT_BOOL b;
8238     VARIANT v;
8239     BSTR xml;
8240     HRESULT hr;
8241
8242     doc = create_document(&IID_IXMLDOMDocument);
8243
8244     b = VARIANT_TRUE;
8245     hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8246     ok(hr == S_OK, "got 0x%08x\n", hr);
8247     ok( b == VARIANT_TRUE, "got %d\n", b);
8248
8249     hr = IXMLDOMDocument_createProcessingInstruction(doc, _bstr_("xml"),
8250                              _bstr_("version=\"1.0\" encoding=\"UTF-16\""), &pi);
8251     ok(hr == S_OK, "got 0x%08x\n", hr);
8252
8253     hr = IXMLDOMDocument_get_firstChild(doc, &first);
8254     ok(hr == S_OK, "got 0x%08x\n", hr);
8255
8256     V_UNKNOWN(&v) = (IUnknown*)first;
8257     V_VT(&v) = VT_UNKNOWN;
8258
8259     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)pi, v, NULL);
8260     ok(hr == S_OK, "got 0x%08x\n", hr);
8261
8262     IXMLDOMProcessingInstruction_Release(pi);
8263     IXMLDOMNode_Release(first);
8264
8265     hr = IXMLDOMDocument_get_xml(doc, &xml);
8266     ok(hr == S_OK, "got 0x%08x\n", hr);
8267
8268     ok(memcmp(xml, _bstr_(xmlA), sizeof(xmlA)*sizeof(WCHAR)) == 0,
8269         "got %s, expected %s\n", wine_dbgstr_w(xml), xmlA);
8270     SysFreeString(xml);
8271
8272     IXMLDOMDocument_Release(doc);
8273
8274     doc = create_document(&IID_IXMLDOMDocument);
8275
8276     hr = IXMLDOMDocument_createElement(doc, _bstr_("foo"), &elem);
8277     ok(hr == S_OK, "got 0x%08x\n", hr);
8278
8279     hr = IXMLDOMDocument_putref_documentElement(doc, elem);
8280     ok(hr == S_OK, "got 0x%08x\n", hr);
8281
8282     hr = IXMLDOMDocument_get_xml(doc, &xml);
8283     ok(hr == S_OK, "got 0x%08x\n", hr);
8284
8285     ok(memcmp(xml, _bstr_(fooA), (sizeof(fooA)-1)*sizeof(WCHAR)) == 0,
8286         "got %s, expected %s\n", wine_dbgstr_w(xml), fooA);
8287     SysFreeString(xml);
8288
8289     IXMLDOMElement_Release(elem);
8290
8291     /* attribute node */
8292     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("attr"), &attr);
8293     ok(hr == S_OK, "got 0x%08x\n", hr);
8294
8295     V_VT(&v) = VT_BSTR;
8296     V_BSTR(&v) = _bstr_("\"a & b\"");
8297     hr = IXMLDOMAttribute_put_value(attr, v);
8298     ok(hr == S_OK, "got 0x%08x\n", hr);
8299
8300     xml = NULL;
8301     hr = IXMLDOMAttribute_get_xml(attr, &xml);
8302     ok(hr == S_OK, "got 0x%08x\n", hr);
8303     ok(!memcmp(xml, _bstr_(attrA), (sizeof(attrA)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8304     SysFreeString(xml);
8305
8306     VariantInit(&v);
8307     hr = IXMLDOMAttribute_get_value(attr, &v);
8308     ok(hr == S_OK, "got 0x%08x\n", hr);
8309     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8310     ok(!memcmp(V_BSTR(&v), _bstr_(attr2A), (sizeof(attr2A)-1)*sizeof(WCHAR)),
8311         "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8312     VariantClear(&v);
8313
8314     V_VT(&v) = VT_BSTR;
8315     V_BSTR(&v) = _bstr_("&quot;a");
8316     hr = IXMLDOMAttribute_put_value(attr, v);
8317     ok(hr == S_OK, "got 0x%08x\n", hr);
8318
8319     xml = NULL;
8320     hr = IXMLDOMAttribute_get_xml(attr, &xml);
8321     ok(hr == S_OK, "got 0x%08x\n", hr);
8322     ok(!memcmp(xml, _bstr_(attr3A), (sizeof(attr3A)-1)*sizeof(WCHAR)), "got %s\n", wine_dbgstr_w(xml));
8323     SysFreeString(xml);
8324
8325     VariantInit(&v);
8326     hr = IXMLDOMAttribute_get_value(attr, &v);
8327     ok(hr == S_OK, "got 0x%08x\n", hr);
8328     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8329     ok(!memcmp(V_BSTR(&v), _bstr_(attr4A), (sizeof(attr4A)-1)*sizeof(WCHAR)),
8330         "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8331     VariantClear(&v);
8332
8333     IXMLDOMAttribute_Release(attr);
8334
8335     IXMLDOMDocument_Release(doc);
8336
8337     free_bstrs();
8338 }
8339
8340 static void test_xsltemplate(void)
8341 {
8342     IXSLTemplate *template;
8343     IXSLProcessor *processor;
8344     IXMLDOMDocument *doc, *doc2;
8345     IStream *stream;
8346     VARIANT_BOOL b;
8347     HRESULT hr;
8348     ULONG ref1, ref2;
8349     VARIANT v;
8350
8351     if (!is_clsid_supported(&CLSID_XSLTemplate, &IID_IXSLTemplate)) return;
8352     template = create_xsltemplate(&IID_IXSLTemplate);
8353
8354     /* works as reset */
8355     hr = IXSLTemplate_putref_stylesheet(template, NULL);
8356     ok(hr == S_OK, "got 0x%08x\n", hr);
8357
8358     doc = create_document(&IID_IXMLDOMDocument);
8359
8360     b = VARIANT_TRUE;
8361     hr = IXMLDOMDocument_loadXML( doc, _bstr_("<a>test</a>"), &b );
8362     ok(hr == S_OK, "got 0x%08x\n", hr);
8363     ok( b == VARIANT_TRUE, "got %d\n", b);
8364
8365     /* putref with non-xsl document */
8366     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8367     todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8368
8369     b = VARIANT_TRUE;
8370     hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8371     ok(hr == S_OK, "got 0x%08x\n", hr);
8372     ok( b == VARIANT_TRUE, "got %d\n", b);
8373
8374     /* not a freethreaded document */
8375     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8376     todo_wine ok(hr == E_FAIL, "got 0x%08x\n", hr);
8377
8378     IXMLDOMDocument_Release(doc);
8379
8380     if (!is_clsid_supported(&CLSID_FreeThreadedDOMDocument, &IID_IXMLDOMDocument))
8381     {
8382         IXSLTemplate_Release(template);
8383         return;
8384     }
8385
8386     hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
8387     ok(hr == S_OK, "got 0x%08x\n", hr);
8388
8389     b = VARIANT_TRUE;
8390     hr = IXMLDOMDocument_loadXML( doc, _bstr_(szTransformSSXML), &b );
8391     ok(hr == S_OK, "got 0x%08x\n", hr);
8392     ok( b == VARIANT_TRUE, "got %d\n", b);
8393
8394     /* freethreaded document */
8395     ref1 = IXMLDOMDocument_AddRef(doc);
8396     IXMLDOMDocument_Release(doc);
8397     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
8398     ok(hr == S_OK, "got 0x%08x\n", hr);
8399     ref2 = IXMLDOMDocument_AddRef(doc);
8400     IXMLDOMDocument_Release(doc);
8401     ok(ref2 > ref1, "got %d\n", ref2);
8402
8403     /* processor */
8404     hr = IXSLTemplate_createProcessor(template, NULL);
8405     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8406
8407     EXPECT_REF(template, 1);
8408     hr = IXSLTemplate_createProcessor(template, &processor);
8409     ok(hr == S_OK, "got 0x%08x\n", hr);
8410     EXPECT_REF(template, 2);
8411
8412     /* input no set yet */
8413     V_VT(&v) = VT_BSTR;
8414     V_BSTR(&v) = NULL;
8415     hr = IXSLProcessor_get_input(processor, &v);
8416 todo_wine {
8417     ok(hr == S_OK, "got 0x%08x\n", hr);
8418     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
8419 }
8420
8421     hr = IXSLProcessor_get_output(processor, NULL);
8422     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8423
8424     /* reset before it was set */
8425     V_VT(&v) = VT_EMPTY;
8426     hr = IXSLProcessor_put_output(processor, v);
8427     ok(hr == S_OK, "got 0x%08x\n", hr);
8428
8429     CreateStreamOnHGlobal(NULL, TRUE, &stream);
8430     EXPECT_REF(stream, 1);
8431
8432     V_VT(&v) = VT_UNKNOWN;
8433     V_UNKNOWN(&v) = (IUnknown*)stream;
8434     hr = IXSLProcessor_put_output(processor, v);
8435     ok(hr == S_OK, "got 0x%08x\n", hr);
8436
8437     /* it seems processor grabs 2 references */
8438     todo_wine EXPECT_REF(stream, 3);
8439
8440     V_VT(&v) = VT_EMPTY;
8441     hr = IXSLProcessor_get_output(processor, &v);
8442     ok(hr == S_OK, "got 0x%08x\n", hr);
8443     ok(V_VT(&v) == VT_UNKNOWN, "got type %d\n", V_VT(&v));
8444     ok(V_UNKNOWN(&v) == (IUnknown*)stream, "got %p\n", V_UNKNOWN(&v));
8445
8446     todo_wine EXPECT_REF(stream, 4);
8447     VariantClear(&v);
8448
8449     hr = IXSLProcessor_transform(processor, NULL);
8450     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8451
8452     /* reset and check stream refcount */
8453     V_VT(&v) = VT_EMPTY;
8454     hr = IXSLProcessor_put_output(processor, v);
8455     ok(hr == S_OK, "got 0x%08x\n", hr);
8456
8457     EXPECT_REF(stream, 1);
8458
8459     IStream_Release(stream);
8460
8461     /* no output interface set, check output */
8462     doc2 = create_document(&IID_IXMLDOMDocument);
8463
8464     b = VARIANT_TRUE;
8465     hr = IXMLDOMDocument_loadXML( doc2, _bstr_("<a>test</a>"), &b );
8466     ok(hr == S_OK, "got 0x%08x\n", hr);
8467     ok( b == VARIANT_TRUE, "got %d\n", b);
8468
8469     V_VT(&v) = VT_UNKNOWN;
8470     V_UNKNOWN(&v) = (IUnknown*)doc2;
8471     hr = IXSLProcessor_put_input(processor, v);
8472     ok(hr == S_OK, "got 0x%08x\n", hr);
8473
8474     hr = IXSLProcessor_transform(processor, &b);
8475     ok(hr == S_OK, "got 0x%08x\n", hr);
8476
8477     V_VT(&v) = VT_EMPTY;
8478     hr = IXSLProcessor_get_output(processor, &v);
8479     ok(hr == S_OK, "got 0x%08x\n", hr);
8480     ok(V_VT(&v) == VT_BSTR, "got type %d\n", V_VT(&v));
8481     ok(lstrcmpW(V_BSTR(&v), _bstr_("")) == 0, "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
8482     IXMLDOMDocument_Release(doc2);
8483     VariantClear(&v);
8484
8485     IXSLProcessor_Release(processor);
8486
8487     /* drop reference */
8488     hr = IXSLTemplate_putref_stylesheet(template, NULL);
8489     ok(hr == S_OK, "got 0x%08x\n", hr);
8490     ref2 = IXMLDOMDocument_AddRef(doc);
8491     IXMLDOMDocument_Release(doc);
8492     ok(ref2 == ref1, "got %d\n", ref2);
8493
8494     IXMLDOMDocument_Release(doc);
8495     IXSLTemplate_Release(template);
8496     free_bstrs();
8497 }
8498
8499 static void test_insertBefore(void)
8500 {
8501     IXMLDOMDocument *doc, *doc2, *doc3;
8502     IXMLDOMAttribute *attr;
8503     IXMLDOMElement *elem1, *elem2, *elem3, *elem4, *elem5;
8504     IXMLDOMNode *node, *newnode, *cdata;
8505     HRESULT hr;
8506     VARIANT v;
8507     BSTR p;
8508
8509     doc = create_document(&IID_IXMLDOMDocument);
8510     doc3 = create_document(&IID_IXMLDOMDocument);
8511
8512     /* document to document */
8513     V_VT(&v) = VT_NULL;
8514     node = (void*)0xdeadbeef;
8515     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc3, v, &node);
8516     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8517     ok(node == NULL, "got %p\n", node);
8518
8519     /* document to itself */
8520     V_VT(&v) = VT_NULL;
8521     node = (void*)0xdeadbeef;
8522     hr = IXMLDOMDocument_insertBefore(doc, (IXMLDOMNode*)doc, v, &node);
8523     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8524     ok(node == NULL, "got %p\n", node);
8525
8526     /* insertBefore behaviour for attribute node */
8527     V_VT(&v) = VT_I4;
8528     V_I4(&v) = NODE_ATTRIBUTE;
8529
8530     attr = NULL;
8531     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr"), NULL, (IXMLDOMNode**)&attr);
8532     ok(hr == S_OK, "got 0x%08x\n", hr);
8533     ok(attr != NULL, "got %p\n", attr);
8534
8535     /* attribute to document */
8536     V_VT(&v) = VT_NULL;
8537     node = (void*)0xdeadbeef;
8538     hr = IXMLDOMDocument_insertBefore(doc3, (IXMLDOMNode*)attr, v, &node);
8539     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8540     ok(node == NULL, "got %p\n", node);
8541
8542     /* cdata to document */
8543     V_VT(&v) = VT_I4;
8544     V_I4(&v) = NODE_CDATA_SECTION;
8545
8546     cdata = NULL;
8547     hr = IXMLDOMDocument_createNode(doc3, v, _bstr_("cdata"), NULL, &cdata);
8548     ok(hr == S_OK, "got 0x%08x\n", hr);
8549     ok(cdata != NULL, "got %p\n", cdata);
8550
8551     EXPECT_NO_CHILDREN(cdata);
8552
8553     /* attribute to cdata */
8554     V_VT(&v) = VT_NULL;
8555     node = (void*)0xdeadbeef;
8556     hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)attr, v, &node);
8557     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8558     ok(node == NULL, "got %p\n", node);
8559
8560     /* document to cdata */
8561     V_VT(&v) = VT_NULL;
8562     node = (void*)0xdeadbeef;
8563     hr = IXMLDOMNode_insertBefore(cdata, (IXMLDOMNode*)doc, v, &node);
8564     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8565     ok(node == NULL, "got %p\n", node);
8566
8567     V_VT(&v) = VT_NULL;
8568     node = (void*)0xdeadbeef;
8569     hr = IXMLDOMDocument_insertBefore(doc3, cdata, v, &node);
8570     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8571     ok(node == NULL, "got %p\n", node);
8572
8573     IXMLDOMNode_Release(cdata);
8574     IXMLDOMDocument_Release(doc3);
8575
8576     /* attribute to attribute */
8577     V_VT(&v) = VT_I4;
8578     V_I4(&v) = NODE_ATTRIBUTE;
8579     newnode = NULL;
8580     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("attr2"), NULL, &newnode);
8581     ok(hr == S_OK, "got 0x%08x\n", hr);
8582     ok(newnode != NULL, "got %p\n", newnode);
8583
8584     V_VT(&v) = VT_NULL;
8585     node = (void*)0xdeadbeef;
8586     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8587     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8588     ok(node == NULL, "got %p\n", node);
8589
8590     V_VT(&v) = VT_UNKNOWN;
8591     V_UNKNOWN(&v) = (IUnknown*)attr;
8592     node = (void*)0xdeadbeef;
8593     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8594     todo_wine ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8595     ok(node == NULL, "got %p\n", node);
8596     IXMLDOMNode_Release(newnode);
8597
8598     /* cdata to attribute */
8599     V_VT(&v) = VT_I4;
8600     V_I4(&v) = NODE_CDATA_SECTION;
8601     newnode = NULL;
8602     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8603     ok(hr == S_OK, "got 0x%08x\n", hr);
8604     ok(newnode != NULL, "got %p\n", newnode);
8605
8606     V_VT(&v) = VT_NULL;
8607     node = (void*)0xdeadbeef;
8608     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8609     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8610     ok(node == NULL, "got %p\n", node);
8611     IXMLDOMNode_Release(newnode);
8612
8613     /* comment to attribute */
8614     V_VT(&v) = VT_I4;
8615     V_I4(&v) = NODE_COMMENT;
8616     newnode = NULL;
8617     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8618     ok(hr == S_OK, "got 0x%08x\n", hr);
8619     ok(newnode != NULL, "got %p\n", newnode);
8620
8621     V_VT(&v) = VT_NULL;
8622     node = (void*)0xdeadbeef;
8623     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8624     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8625     ok(node == NULL, "got %p\n", node);
8626     IXMLDOMNode_Release(newnode);
8627
8628     /* element to attribute */
8629     V_VT(&v) = VT_I4;
8630     V_I4(&v) = NODE_ELEMENT;
8631     newnode = NULL;
8632     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8633     ok(hr == S_OK, "got 0x%08x\n", hr);
8634     ok(newnode != NULL, "got %p\n", newnode);
8635
8636     V_VT(&v) = VT_NULL;
8637     node = (void*)0xdeadbeef;
8638     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8639     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8640     ok(node == NULL, "got %p\n", node);
8641     IXMLDOMNode_Release(newnode);
8642
8643     /* pi to attribute */
8644     V_VT(&v) = VT_I4;
8645     V_I4(&v) = NODE_PROCESSING_INSTRUCTION;
8646     newnode = NULL;
8647     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("cdata"), NULL, &newnode);
8648     ok(hr == S_OK, "got 0x%08x\n", hr);
8649     ok(newnode != NULL, "got %p\n", newnode);
8650
8651     V_VT(&v) = VT_NULL;
8652     node = (void*)0xdeadbeef;
8653     hr = IXMLDOMAttribute_insertBefore(attr, newnode, v, &node);
8654     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8655     ok(node == NULL, "got %p\n", node);
8656     IXMLDOMNode_Release(newnode);
8657     IXMLDOMAttribute_Release(attr);
8658
8659     /* insertBefore for elements */
8660     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem1);
8661     ok(hr == S_OK, "got 0x%08x\n", hr);
8662
8663     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem2"), &elem2);
8664     ok(hr == S_OK, "got 0x%08x\n", hr);
8665
8666     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8667     ok(hr == S_OK, "got 0x%08x\n", hr);
8668
8669     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem3"), &elem3);
8670     ok(hr == S_OK, "got 0x%08x\n", hr);
8671
8672     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem4"), &elem4);
8673     ok(hr == S_OK, "got 0x%08x\n", hr);
8674
8675     EXPECT_NO_CHILDREN(elem1);
8676     EXPECT_NO_CHILDREN(elem2);
8677     EXPECT_NO_CHILDREN(elem3);
8678
8679     todo_wine EXPECT_REF(elem2, 2);
8680
8681     /* document to element */
8682     V_VT(&v) = VT_DISPATCH;
8683     V_DISPATCH(&v) = NULL;
8684     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)doc, v, NULL);
8685     ok(hr == E_FAIL, "got 0x%08x\n", hr);
8686
8687     V_VT(&v) = VT_DISPATCH;
8688     V_DISPATCH(&v) = NULL;
8689     node = NULL;
8690     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem4, v, &node);
8691     ok(hr == S_OK, "got 0x%08x\n", hr);
8692     ok(node == (void*)elem4, "got %p\n", node);
8693
8694     EXPECT_CHILDREN(elem1);
8695     hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem4, NULL);
8696     EXPECT_HR(hr, S_OK);
8697     IXMLDOMElement_Release(elem4);
8698
8699     EXPECT_NO_CHILDREN(elem1);
8700
8701     V_VT(&v) = VT_NULL;
8702     node = NULL;
8703     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8704     ok(hr == S_OK, "got 0x%08x\n", hr);
8705     ok(node == (void*)elem2, "got %p\n", node);
8706
8707     EXPECT_CHILDREN(elem1);
8708     todo_wine EXPECT_REF(elem2, 3);
8709     IXMLDOMNode_Release(node);
8710
8711     /* again for already linked node */
8712     V_VT(&v) = VT_NULL;
8713     node = NULL;
8714     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, &node);
8715     ok(hr == S_OK, "got 0x%08x\n", hr);
8716     ok(node == (void*)elem2, "got %p\n", node);
8717
8718     EXPECT_CHILDREN(elem1);
8719
8720     /* increments each time */
8721     todo_wine EXPECT_REF(elem2, 3);
8722     IXMLDOMNode_Release(node);
8723
8724     /* try to add to another element */
8725     V_VT(&v) = VT_NULL;
8726     node = (void*)0xdeadbeef;
8727     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem2, v, &node);
8728     ok(hr == S_OK, "got 0x%08x\n", hr);
8729     ok(node == (void*)elem2, "got %p\n", node);
8730
8731     EXPECT_CHILDREN(elem3);
8732     EXPECT_NO_CHILDREN(elem1);
8733
8734     IXMLDOMNode_Release(node);
8735
8736     /* cross document case - try to add as child to a node created with other doc */
8737     doc2 = create_document(&IID_IXMLDOMDocument);
8738
8739     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem4);
8740     ok(hr == S_OK, "got 0x%08x\n", hr);
8741     todo_wine EXPECT_REF(elem4, 2);
8742
8743     /* same name, another instance */
8744     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem4"), &elem5);
8745     ok(hr == S_OK, "got 0x%08x\n", hr);
8746     todo_wine EXPECT_REF(elem5, 2);
8747
8748     todo_wine EXPECT_REF(elem3, 2);
8749     V_VT(&v) = VT_NULL;
8750     node = NULL;
8751     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem4, v, &node);
8752     ok(hr == S_OK, "got 0x%08x\n", hr);
8753     ok(node == (void*)elem4, "got %p\n", node);
8754     todo_wine EXPECT_REF(elem4, 3);
8755     todo_wine EXPECT_REF(elem3, 2);
8756     IXMLDOMNode_Release(node);
8757
8758     V_VT(&v) = VT_NULL;
8759     node = NULL;
8760     hr = IXMLDOMElement_insertBefore(elem3, (IXMLDOMNode*)elem5, v, &node);
8761     ok(hr == S_OK, "got 0x%08x\n", hr);
8762     ok(node == (void*)elem5, "got %p\n", node);
8763     todo_wine EXPECT_REF(elem4, 2);
8764     todo_wine EXPECT_REF(elem5, 3);
8765     IXMLDOMNode_Release(node);
8766
8767     IXMLDOMDocument_Release(doc2);
8768
8769     IXMLDOMElement_Release(elem1);
8770     IXMLDOMElement_Release(elem2);
8771     IXMLDOMElement_Release(elem3);
8772     IXMLDOMElement_Release(elem4);
8773     IXMLDOMElement_Release(elem5);
8774
8775     /* elements with same default namespace */
8776     V_VT(&v) = VT_I4;
8777     V_I4(&v) = NODE_ELEMENT;
8778     elem1 = NULL;
8779     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8780     ok(hr == S_OK, "got 0x%08x\n", hr);
8781     ok(elem1 != NULL, "got %p\n", elem1);
8782
8783     V_VT(&v) = VT_I4;
8784     V_I4(&v) = NODE_ELEMENT;
8785     elem2 = NULL;
8786     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem2);
8787     ok(hr == S_OK, "got 0x%08x\n", hr);
8788     ok(elem2 != NULL, "got %p\n", elem2);
8789
8790     /* check contents so far */
8791     p = NULL;
8792     hr = IXMLDOMElement_get_xml(elem1, &p);
8793     ok(hr == S_OK, "got 0x%08x\n", hr);
8794     ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8795     SysFreeString(p);
8796
8797     p = NULL;
8798     hr = IXMLDOMElement_get_xml(elem2, &p);
8799     ok(hr == S_OK, "got 0x%08x\n", hr);
8800     ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8801     SysFreeString(p);
8802
8803     V_VT(&v) = VT_NULL;
8804     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8805     ok(hr == S_OK, "got 0x%08x\n", hr);
8806
8807     /* get_xml depends on context, for top node it omits child namespace attribute,
8808        but at child level it's still returned */
8809     p = NULL;
8810     hr = IXMLDOMElement_get_xml(elem1, &p);
8811     ok(hr == S_OK, "got 0x%08x\n", hr);
8812     todo_wine ok(!lstrcmpW(p, _bstr_("<elem1 xmlns=\"http://winehq.org/default\"><elem2/></elem1>")),
8813         "got %s\n", wine_dbgstr_w(p));
8814     SysFreeString(p);
8815
8816     p = NULL;
8817     hr = IXMLDOMElement_get_xml(elem2, &p);
8818     ok(hr == S_OK, "got 0x%08x\n", hr);
8819     ok(!lstrcmpW(p, _bstr_("<elem2 xmlns=\"http://winehq.org/default\"/>")), "got %s\n", wine_dbgstr_w(p));
8820     SysFreeString(p);
8821
8822     IXMLDOMElement_Release(elem1);
8823     IXMLDOMElement_Release(elem2);
8824
8825     /* child without default namespace added to node with default namespace */
8826     V_VT(&v) = VT_I4;
8827     V_I4(&v) = NODE_ELEMENT;
8828     elem1 = NULL;
8829     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem1"), _bstr_("http://winehq.org/default"), (IXMLDOMNode**)&elem1);
8830     ok(hr == S_OK, "got 0x%08x\n", hr);
8831     ok(elem1 != NULL, "got %p\n", elem1);
8832
8833     V_VT(&v) = VT_I4;
8834     V_I4(&v) = NODE_ELEMENT;
8835     elem2 = NULL;
8836     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("elem2"), NULL, (IXMLDOMNode**)&elem2);
8837     ok(hr == S_OK, "got 0x%08x\n", hr);
8838     ok(elem2 != NULL, "got %p\n", elem2);
8839
8840     EXPECT_REF(elem2, 1);
8841     V_VT(&v) = VT_NULL;
8842     hr = IXMLDOMElement_insertBefore(elem1, (IXMLDOMNode*)elem2, v, NULL);
8843     ok(hr == S_OK, "got 0x%08x\n", hr);
8844     EXPECT_REF(elem2, 1);
8845
8846     p = NULL;
8847     hr = IXMLDOMElement_get_xml(elem2, &p);
8848     ok(hr == S_OK, "got 0x%08x\n", hr);
8849     ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8850     SysFreeString(p);
8851
8852     hr = IXMLDOMElement_removeChild(elem1, (IXMLDOMNode*)elem2, NULL);
8853     ok(hr == S_OK, "got 0x%08x\n", hr);
8854
8855     p = NULL;
8856     hr = IXMLDOMElement_get_xml(elem2, &p);
8857     ok(hr == S_OK, "got 0x%08x\n", hr);
8858     ok(!lstrcmpW(p, _bstr_("<elem2/>")), "got %s\n", wine_dbgstr_w(p));
8859     SysFreeString(p);
8860
8861     IXMLDOMElement_Release(elem1);
8862     IXMLDOMElement_Release(elem2);
8863     IXMLDOMDocument_Release(doc);
8864 }
8865
8866 static void test_appendChild(void)
8867 {
8868     IXMLDOMDocument *doc, *doc2;
8869     IXMLDOMElement *elem, *elem2;
8870     HRESULT hr;
8871
8872     doc = create_document(&IID_IXMLDOMDocument);
8873     doc2 = create_document(&IID_IXMLDOMDocument);
8874
8875     hr = IXMLDOMDocument_createElement(doc, _bstr_("elem"), &elem);
8876     ok(hr == S_OK, "got 0x%08x\n", hr);
8877
8878     hr = IXMLDOMDocument_createElement(doc2, _bstr_("elem2"), &elem2);
8879     ok(hr == S_OK, "got 0x%08x\n", hr);
8880
8881     EXPECT_REF(doc, 1);
8882     todo_wine EXPECT_REF(elem, 2);
8883     EXPECT_REF(doc2, 1);
8884     todo_wine EXPECT_REF(elem2, 2);
8885     EXPECT_NO_CHILDREN(doc);
8886     EXPECT_NO_CHILDREN(doc2);
8887
8888     /* append from another document */
8889     hr = IXMLDOMDocument_appendChild(doc2, (IXMLDOMNode*)elem, NULL);
8890     ok(hr == S_OK, "got 0x%08x\n", hr);
8891
8892     EXPECT_REF(doc, 1);
8893     todo_wine EXPECT_REF(elem, 2);
8894     EXPECT_REF(doc2, 1);
8895     todo_wine EXPECT_REF(elem2, 2);
8896     EXPECT_NO_CHILDREN(doc);
8897     EXPECT_CHILDREN(doc2);
8898
8899     IXMLDOMElement_Release(elem);
8900     IXMLDOMElement_Release(elem2);
8901     IXMLDOMDocument_Release(doc);
8902     IXMLDOMDocument_Release(doc2);
8903 }
8904
8905 static void test_get_doctype(void)
8906 {
8907     IXMLDOMDocumentType *doctype;
8908     IXMLDOMDocument *doc;
8909     HRESULT hr;
8910
8911     doc = create_document(&IID_IXMLDOMDocument);
8912
8913     hr = IXMLDOMDocument_get_doctype(doc, NULL);
8914     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8915
8916     doctype = (void*)0xdeadbeef;
8917     hr = IXMLDOMDocument_get_doctype(doc, &doctype);
8918     ok(hr == S_FALSE, "got 0x%08x\n", hr);
8919     ok(doctype == NULL, "got %p\n", doctype);
8920
8921     IXMLDOMDocument_Release(doc);
8922 }
8923
8924 static void test_get_tagName(void)
8925 {
8926     IXMLDOMDocument *doc;
8927     IXMLDOMElement *elem, *elem2;
8928     HRESULT hr;
8929     BSTR str;
8930
8931     doc = create_document(&IID_IXMLDOMDocument);
8932
8933     hr = IXMLDOMDocument_createElement(doc, _bstr_("element"), &elem);
8934     ok(hr == S_OK, "got 0x%08x\n", hr);
8935
8936     hr = IXMLDOMElement_get_tagName(elem, NULL);
8937     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8938
8939     str = NULL;
8940     hr = IXMLDOMElement_get_tagName(elem, &str);
8941     ok(hr == S_OK, "got 0x%08x\n", hr);
8942     ok(!lstrcmpW(str, _bstr_("element")), "got %s\n", wine_dbgstr_w(str));
8943     SysFreeString(str);
8944
8945     hr = IXMLDOMDocument_createElement(doc, _bstr_("s:element"), &elem2);
8946     ok(hr == S_OK, "got 0x%08x\n", hr);
8947
8948     str = NULL;
8949     hr = IXMLDOMElement_get_tagName(elem2, &str);
8950     ok(hr == S_OK, "got 0x%08x\n", hr);
8951     ok(!lstrcmpW(str, _bstr_("s:element")), "got %s\n", wine_dbgstr_w(str));
8952     SysFreeString(str);
8953
8954     IXMLDOMElement_Release(elem);
8955     IXMLDOMElement_Release(elem2);
8956     IXMLDOMDocument_Release(doc);
8957     free_bstrs();
8958 }
8959
8960 typedef struct {
8961     DOMNodeType type;
8962     const char *name;
8963     VARTYPE vt;
8964     HRESULT hr;
8965 } node_type_t;
8966
8967 static const node_type_t get_datatype[] = {
8968     { NODE_ELEMENT,                "element",   VT_NULL, S_FALSE },
8969     { NODE_ATTRIBUTE,              "attr",      VT_NULL, S_FALSE },
8970     { NODE_TEXT,                   "text",      VT_NULL, S_FALSE },
8971     { NODE_CDATA_SECTION ,         "cdata",     VT_NULL, S_FALSE },
8972     { NODE_ENTITY_REFERENCE,       "entityref", VT_NULL, S_FALSE },
8973     { NODE_PROCESSING_INSTRUCTION, "pi",        VT_NULL, S_FALSE },
8974     { NODE_COMMENT,                "comment",   VT_NULL, S_FALSE },
8975     { NODE_DOCUMENT_FRAGMENT,      "docfrag",   VT_NULL, S_FALSE },
8976     { 0 }
8977 };
8978
8979 static void test_get_dataType(void)
8980 {
8981     const node_type_t *entry = get_datatype;
8982     IXMLDOMDocument *doc;
8983
8984     doc = create_document(&IID_IXMLDOMDocument);
8985
8986     while (entry->type)
8987     {
8988         IXMLDOMNode *node = NULL;
8989         VARIANT var, type;
8990         HRESULT hr;
8991
8992         V_VT(&var) = VT_I4;
8993         V_I4(&var) = entry->type;
8994         hr = IXMLDOMDocument_createNode(doc, var, _bstr_(entry->name), NULL, &node);
8995         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
8996
8997         hr = IXMLDOMNode_get_dataType(node, NULL);
8998         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
8999
9000         VariantInit(&type);
9001         hr = IXMLDOMNode_get_dataType(node, &type);
9002         ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9003             hr, entry->hr, entry->type);
9004         ok(V_VT(&type) == entry->vt, "got %d, expected %d. node type %d\n",
9005             V_VT(&type), entry->vt, entry->type);
9006         VariantClear(&type);
9007
9008         IXMLDOMNode_Release(node);
9009
9010         entry++;
9011     }
9012
9013     IXMLDOMDocument_Release(doc);
9014     free_bstrs();
9015 }
9016
9017 typedef struct _get_node_typestring_t {
9018     DOMNodeType type;
9019     const char *string;
9020 } get_node_typestring_t;
9021
9022 static const get_node_typestring_t get_node_typestring[] = {
9023     { NODE_ELEMENT,                "element"               },
9024     { NODE_ATTRIBUTE,              "attribute"             },
9025     { NODE_TEXT,                   "text"                  },
9026     { NODE_CDATA_SECTION ,         "cdatasection"          },
9027     { NODE_ENTITY_REFERENCE,       "entityreference"       },
9028     { NODE_PROCESSING_INSTRUCTION, "processinginstruction" },
9029     { NODE_COMMENT,                "comment"               },
9030     { NODE_DOCUMENT_FRAGMENT,      "documentfragment"      },
9031     { 0 }
9032 };
9033
9034 static void test_get_nodeTypeString(void)
9035 {
9036     const get_node_typestring_t *entry = get_node_typestring;
9037     IXMLDOMDocument *doc;
9038     HRESULT hr;
9039     BSTR str;
9040
9041     doc = create_document(&IID_IXMLDOMDocument);
9042
9043     hr = IXMLDOMDocument_get_nodeTypeString(doc, &str);
9044     ok(hr == S_OK, "got 0x%08x\n", hr);
9045     ok(!lstrcmpW(str, _bstr_("document")), "got string %s\n", wine_dbgstr_w(str));
9046     SysFreeString(str);
9047
9048     while (entry->type)
9049     {
9050         IXMLDOMNode *node = NULL;
9051         VARIANT var;
9052
9053         V_VT(&var) = VT_I4;
9054         V_I4(&var) = entry->type;
9055         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9056         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9057
9058         hr = IXMLDOMNode_get_nodeTypeString(node, NULL);
9059         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9060
9061         hr = IXMLDOMNode_get_nodeTypeString(node, &str);
9062         ok(hr == S_OK, "got 0x%08x\n", hr);
9063         ok(!lstrcmpW(str, _bstr_(entry->string)), "got string %s, expected %s. node type %d\n",
9064             wine_dbgstr_w(str), entry->string, entry->type);
9065         SysFreeString(str);
9066         IXMLDOMNode_Release(node);
9067
9068         entry++;
9069     }
9070
9071     IXMLDOMDocument_Release(doc);
9072     free_bstrs();
9073 }
9074
9075 typedef struct _get_attributes_t {
9076     DOMNodeType type;
9077     HRESULT hr;
9078 } get_attributes_t;
9079
9080 static const get_attributes_t get_attributes[] = {
9081     { NODE_ATTRIBUTE,              S_FALSE },
9082     { NODE_TEXT,                   S_FALSE },
9083     { NODE_CDATA_SECTION ,         S_FALSE },
9084     { NODE_ENTITY_REFERENCE,       S_FALSE },
9085     { NODE_PROCESSING_INSTRUCTION, S_FALSE },
9086     { NODE_COMMENT,                S_FALSE },
9087     { NODE_DOCUMENT_FRAGMENT,      S_FALSE },
9088     { 0 }
9089 };
9090
9091 static void test_get_attributes(void)
9092 {
9093     const get_attributes_t *entry = get_attributes;
9094     IXMLDOMNamedNodeMap *map;
9095     IXMLDOMDocument *doc;
9096     IXMLDOMNode *node, *node2;
9097     VARIANT_BOOL b;
9098     HRESULT hr;
9099     BSTR str;
9100     LONG length;
9101
9102     doc = create_document(&IID_IXMLDOMDocument);
9103
9104     hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
9105     ok(hr == S_OK, "got %08x\n", hr);
9106
9107     hr = IXMLDOMDocument_get_attributes(doc, NULL);
9108     ok(hr == E_INVALIDARG, "got %08x\n", hr);
9109
9110     map = (void*)0xdeadbeef;
9111     hr = IXMLDOMDocument_get_attributes(doc, &map);
9112     ok(hr == S_FALSE, "got %08x\n", hr);
9113     ok(map == NULL, "got %p\n", map);
9114
9115     /* first child is <?xml ?> */
9116     hr = IXMLDOMDocument_get_firstChild(doc, &node);
9117     ok(hr == S_OK, "got %08x\n", hr);
9118
9119     hr = IXMLDOMNode_get_attributes(node, &map);
9120     ok(hr == S_OK, "got %08x\n", hr);
9121
9122     length = -1;
9123     hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9124     EXPECT_HR(hr, S_OK);
9125     todo_wine ok(length == 1, "got %d\n", length);
9126
9127     if (hr == S_OK && length == 1)
9128     {
9129         IXMLDOMAttribute *attr;
9130         DOMNodeType type;
9131         VARIANT v;
9132
9133         node2 = NULL;
9134         hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9135         EXPECT_HR(hr, S_OK);
9136         ok(node != NULL, "got %p\n", node2);
9137
9138         hr = IXMLDOMNode_get_nodeName(node2, &str);
9139         EXPECT_HR(hr, S_OK);
9140         ok(!lstrcmpW(str, _bstr_("version")), "got %s\n", wine_dbgstr_w(str));
9141         SysFreeString(str);
9142
9143         length = -1;
9144         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9145         EXPECT_HR(hr, S_OK);
9146         ok(length == 1, "got %d\n", length);
9147
9148         type = -1;
9149         hr = IXMLDOMNode_get_nodeType(node2, &type);
9150         EXPECT_HR(hr, S_OK);
9151         ok(type == NODE_ATTRIBUTE, "got %d\n", type);
9152
9153         hr = IXMLDOMNode_get_xml(node, &str);
9154         EXPECT_HR(hr, S_OK);
9155         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9156         SysFreeString(str);
9157
9158         hr = IXMLDOMNode_get_text(node, &str);
9159         EXPECT_HR(hr, S_OK);
9160         ok(!lstrcmpW(str, _bstr_("version=\"1.0\"")), "got %s\n", wine_dbgstr_w(str));
9161         SysFreeString(str);
9162
9163         hr = IXMLDOMNamedNodeMap_removeNamedItem(map, _bstr_("version"), NULL);
9164         EXPECT_HR(hr, S_OK);
9165
9166         length = -1;
9167         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9168         EXPECT_HR(hr, S_OK);
9169         ok(length == 0, "got %d\n", length);
9170
9171         hr = IXMLDOMNode_get_xml(node, &str);
9172         EXPECT_HR(hr, S_OK);
9173         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9174         SysFreeString(str);
9175
9176         hr = IXMLDOMNode_get_text(node, &str);
9177         EXPECT_HR(hr, S_OK);
9178         ok(!lstrcmpW(str, _bstr_("")), "got %s\n", wine_dbgstr_w(str));
9179         SysFreeString(str);
9180
9181         IXMLDOMNamedNodeMap_Release(map);
9182
9183         hr = IXMLDOMNode_get_attributes(node, &map);
9184         ok(hr == S_OK, "got %08x\n", hr);
9185
9186         length = -1;
9187         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9188         EXPECT_HR(hr, S_OK);
9189         ok(length == 0, "got %d\n", length);
9190
9191         hr = IXMLDOMDocument_createAttribute(doc, _bstr_("encoding"), &attr);
9192         EXPECT_HR(hr, S_OK);
9193
9194         V_VT(&v) = VT_BSTR;
9195         V_BSTR(&v) = _bstr_("UTF-8");
9196         hr = IXMLDOMAttribute_put_nodeValue(attr, v);
9197         EXPECT_HR(hr, S_OK);
9198
9199         EXPECT_REF(attr, 2);
9200         hr = IXMLDOMNamedNodeMap_setNamedItem(map, (IXMLDOMNode*)attr, NULL);
9201         EXPECT_HR(hr, S_OK);
9202         EXPECT_REF(attr, 2);
9203
9204         hr = IXMLDOMNode_get_attributes(node, &map);
9205         ok(hr == S_OK, "got %08x\n", hr);
9206
9207         length = -1;
9208         hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9209         EXPECT_HR(hr, S_OK);
9210         ok(length == 1, "got %d\n", length);
9211
9212         hr = IXMLDOMNode_get_xml(node, &str);
9213         EXPECT_HR(hr, S_OK);
9214         ok(!lstrcmpW(str, _bstr_("<?xml version=\"1.0\"?>")), "got %s\n", wine_dbgstr_w(str));
9215         SysFreeString(str);
9216
9217         hr = IXMLDOMNode_get_text(node, &str);
9218         EXPECT_HR(hr, S_OK);
9219         ok(!lstrcmpW(str, _bstr_("encoding=\"UTF-8\"")), "got %s\n", wine_dbgstr_w(str));
9220         SysFreeString(str);
9221
9222         IXMLDOMNamedNodeMap_Release(map);
9223         IXMLDOMNode_Release(node2);
9224     }
9225
9226     IXMLDOMNode_Release(node);
9227
9228     /* last child is element */
9229     EXPECT_REF(doc, 1);
9230     hr = IXMLDOMDocument_get_lastChild(doc, &node);
9231     ok(hr == S_OK, "got %08x\n", hr);
9232     EXPECT_REF(doc, 1);
9233
9234     EXPECT_REF(node, 1);
9235     hr = IXMLDOMNode_get_attributes(node, &map);
9236     ok(hr == S_OK, "got %08x\n", hr);
9237     EXPECT_REF(node, 1);
9238     EXPECT_REF(doc, 1);
9239
9240     EXPECT_REF(map, 1);
9241     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9242     ok(hr == S_OK, "got %08x\n", hr);
9243     EXPECT_REF(node, 1);
9244     EXPECT_REF(node2, 1);
9245     EXPECT_REF(map, 1);
9246     EXPECT_REF(doc, 1);
9247     IXMLDOMNode_Release(node2);
9248
9249     /* release node before map release, map still works */
9250     IXMLDOMNode_Release(node);
9251
9252     length = 0;
9253     hr = IXMLDOMNamedNodeMap_get_length(map, &length);
9254     ok(hr == S_OK, "got %08x\n", hr);
9255     ok(length == 1, "got %d\n", length);
9256
9257     node2 = NULL;
9258     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node2);
9259     ok(hr == S_OK, "got %08x\n", hr);
9260     EXPECT_REF(node2, 1);
9261     IXMLDOMNode_Release(node2);
9262
9263     IXMLDOMNamedNodeMap_Release(map);
9264
9265     while (entry->type)
9266     {
9267         VARIANT var;
9268
9269         node = NULL;
9270
9271         V_VT(&var) = VT_I4;
9272         V_I4(&var) = entry->type;
9273         hr = IXMLDOMDocument_createNode(doc, var, _bstr_("node"), NULL, &node);
9274         ok(hr == S_OK, "failed to create node, type %d\n", entry->type);
9275
9276         hr = IXMLDOMNode_get_attributes(node, NULL);
9277         ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
9278
9279         map = (void*)0xdeadbeef;
9280         hr = IXMLDOMNode_get_attributes(node, &map);
9281         ok(hr == entry->hr, "got 0x%08x, expected 0x%08x. node type %d\n",
9282             hr, entry->hr, entry->type);
9283         ok(map == NULL, "got %p\n", map);
9284
9285         IXMLDOMNode_Release(node);
9286
9287         entry++;
9288     }
9289
9290     IXMLDOMDocument_Release(doc);
9291     free_bstrs();
9292 }
9293
9294 static void test_selection(void)
9295 {
9296     IXMLDOMSelection *selection, *selection2;
9297     IEnumVARIANT *enum1, *enum2, *enum3;
9298     IXMLDOMNodeList *list;
9299     IUnknown *unk1, *unk2;
9300     IXMLDOMDocument *doc;
9301     IDispatchEx *dispex;
9302     IXMLDOMNode *node;
9303     IDispatch *disp;
9304     VARIANT_BOOL b;
9305     HRESULT hr;
9306     DISPID did;
9307     VARIANT v;
9308     BSTR name;
9309     ULONG ret;
9310     LONG len;
9311
9312     doc = create_document(&IID_IXMLDOMDocument);
9313
9314     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9315     EXPECT_HR(hr, S_OK);
9316
9317     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root"), &list);
9318     EXPECT_HR(hr, S_OK);
9319
9320     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9321     EXPECT_HR(hr, S_OK);
9322     IXMLDOMSelection_Release(selection);
9323
9324     /* collection disp id */
9325     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IDispatchEx, (void**)&dispex);
9326     EXPECT_HR(hr, S_OK);
9327     did = 0;
9328     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
9329     EXPECT_HR(hr, S_OK);
9330     ok(did == DISPID_DOM_COLLECTION_BASE, "got %d\n", did);
9331     len = 0;
9332     hr = IXMLDOMSelection_get_length(selection, &len);
9333     EXPECT_HR(hr, S_OK);
9334     ok(len == 1, "got %d\n", len);
9335     hr = IDispatchEx_GetDispID(dispex, _bstr_("10"), 0, &did);
9336     EXPECT_HR(hr, S_OK);
9337     ok(did == DISPID_DOM_COLLECTION_BASE+10, "got %d\n", did);
9338     IDispatchEx_Release(dispex);
9339
9340     /* IEnumVARIANT tests */
9341     enum1 = NULL;
9342     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum1);
9343     EXPECT_HR(hr, S_OK);
9344     ok(enum1 != NULL, "got %p\n", enum1);
9345     EXPECT_REF(enum1, 2);
9346
9347     EXPECT_REF(selection, 1);
9348     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IUnknown, (void**)&unk1);
9349     EXPECT_HR(hr, S_OK);
9350     EXPECT_REF(selection, 2);
9351     EXPECT_REF(enum1, 2);
9352
9353     /* enumerator and selection object return same IUnknown* */
9354     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IUnknown, (void**)&unk2);
9355     EXPECT_HR(hr, S_OK);
9356     EXPECT_REF(selection, 3);
9357     EXPECT_REF(enum1, 2);
9358     ok(unk2 == unk1, "got %p, %p\n", unk1, unk2);
9359     IUnknown_Release(unk2);
9360
9361     EXPECT_REF(selection, 2);
9362     IEnumVARIANT_AddRef(enum1);
9363     EXPECT_REF(selection, 2);
9364     IEnumVARIANT_Release(enum1);
9365
9366     enum3 = NULL;
9367     hr = IXMLDOMSelection_QueryInterface(selection, &IID_IEnumVARIANT, (void**)&enum3);
9368     EXPECT_HR(hr, S_OK);
9369     ok(enum3 != NULL, "got %p\n", enum3);
9370     ok(enum1 == enum3, "got %p and %p\n", enum1, enum3);
9371     EXPECT_REF(enum1, 3);
9372     IEnumVARIANT_Release(enum3);
9373
9374     EXPECT_REF(selection, 2);
9375     EXPECT_REF(enum1, 2);
9376
9377     enum2 = NULL;
9378     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9379     EXPECT_HR(hr, S_OK);
9380     ok(enum2 != NULL, "got %p\n", enum2);
9381
9382     EXPECT_REF(selection, 3);
9383     EXPECT_REF(enum1, 2);
9384     EXPECT_REF(enum2, 1);
9385
9386     ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9387
9388     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
9389     EXPECT_HR(hr, S_OK);
9390     EXPECT_REF(selection, 3);
9391     EXPECT_REF(enum2, 2);
9392     ok(unk2 != unk1, "got %p, %p\n", unk1, unk2);
9393     IUnknown_Release(unk2);
9394     IUnknown_Release(unk1);
9395
9396     selection2 = NULL;
9397     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IXMLDOMSelection, (void**)&selection2);
9398     EXPECT_HR(hr, S_OK);
9399     ok(selection2 == selection, "got %p and %p\n", selection, selection2);
9400     EXPECT_REF(selection, 3);
9401     EXPECT_REF(enum1, 2);
9402
9403     IXMLDOMSelection_Release(selection2);
9404
9405     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IDispatch, (void**)&disp);
9406     EXPECT_HR(hr, S_OK);
9407     EXPECT_REF(selection, 3);
9408     IDispatch_Release(disp);
9409
9410     hr = IEnumVARIANT_QueryInterface(enum1, &IID_IEnumVARIANT, (void**)&enum3);
9411     EXPECT_HR(hr, S_OK);
9412     ok(enum3 == enum1, "got %p and %p\n", enum3, enum1);
9413     EXPECT_REF(selection, 2);
9414     EXPECT_REF(enum1, 3);
9415
9416     IEnumVARIANT_Release(enum1);
9417     IEnumVARIANT_Release(enum2);
9418
9419     enum1 = NULL;
9420     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9421     EXPECT_HR(hr, S_OK);
9422     ok(enum1 != NULL, "got %p\n", enum1);
9423     EXPECT_REF(enum1, 1);
9424     EXPECT_REF(selection, 2);
9425
9426     enum2 = NULL;
9427     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum2);
9428     EXPECT_HR(hr, S_OK);
9429     ok(enum2 != NULL, "got %p\n", enum2);
9430     EXPECT_REF(enum2, 1);
9431     EXPECT_REF(selection, 3);
9432
9433     ok(enum1 != enum2, "got %p, %p\n", enum1, enum2);
9434
9435     IEnumVARIANT_AddRef(enum1);
9436     EXPECT_REF(selection, 3);
9437     EXPECT_REF(enum1, 2);
9438     EXPECT_REF(enum2, 1);
9439     IEnumVARIANT_Release(enum1);
9440
9441     IEnumVARIANT_Release(enum1);
9442     IEnumVARIANT_Release(enum2);
9443
9444     EXPECT_REF(selection, 1);
9445
9446     IXMLDOMNodeList_Release(list);
9447
9448     hr = IXMLDOMDocument_get_childNodes(doc, &list);
9449     EXPECT_HR(hr, S_OK);
9450
9451     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9452     EXPECT_HR(hr, E_NOINTERFACE);
9453
9454     IXMLDOMNodeList_Release(list);
9455
9456     /* test if IEnumVARIANT touches selection context */
9457     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
9458     EXPECT_HR(hr, S_OK);
9459
9460     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/*"), &list);
9461     EXPECT_HR(hr, S_OK);
9462
9463     hr = IXMLDOMNodeList_QueryInterface(list, &IID_IXMLDOMSelection, (void**)&selection);
9464     EXPECT_HR(hr, S_OK);
9465
9466     len = 0;
9467     hr = IXMLDOMSelection_get_length(selection, &len);
9468     EXPECT_HR(hr, S_OK);
9469     ok(len == 4, "got %d\n", len);
9470
9471     enum1 = NULL;
9472     hr = IXMLDOMSelection_get__newEnum(selection, (IUnknown**)&enum1);
9473     EXPECT_HR(hr, S_OK);
9474
9475     /* no-op if zero count */
9476     V_VT(&v) = VT_I2;
9477     hr = IEnumVARIANT_Next(enum1, 0, &v, NULL);
9478     EXPECT_HR(hr, S_OK);
9479     ok(V_VT(&v) == VT_I2, "got var type %d\n", V_VT(&v));
9480
9481     /* positive count, null array pointer */
9482     hr = IEnumVARIANT_Next(enum1, 1, NULL, NULL);
9483     EXPECT_HR(hr, E_INVALIDARG);
9484
9485     ret = 1;
9486     hr = IEnumVARIANT_Next(enum1, 1, NULL, &ret);
9487     EXPECT_HR(hr, E_INVALIDARG);
9488     ok(ret == 0, "got %d\n", ret);
9489
9490     V_VT(&v) = VT_I2;
9491     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9492     EXPECT_HR(hr, S_OK);
9493     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9494
9495     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9496     EXPECT_HR(hr, S_OK);
9497     hr = IXMLDOMNode_get_nodeName(node, &name);
9498     EXPECT_HR(hr, S_OK);
9499     ok(!lstrcmpW(name, _bstr_("a")), "got node name %s\n", wine_dbgstr_w(name));
9500     SysFreeString(name);
9501     IXMLDOMNode_Release(node);
9502     VariantClear(&v);
9503
9504     /* list cursor is updated */
9505     hr = IXMLDOMSelection_nextNode(selection, &node);
9506     EXPECT_HR(hr, S_OK);
9507     hr = IXMLDOMNode_get_nodeName(node, &name);
9508     EXPECT_HR(hr, S_OK);
9509     ok(!lstrcmpW(name, _bstr_("c")), "got node name %s\n", wine_dbgstr_w(name));
9510     IXMLDOMNode_Release(node);
9511
9512     V_VT(&v) = VT_I2;
9513     hr = IEnumVARIANT_Next(enum1, 1, &v, NULL);
9514     EXPECT_HR(hr, S_OK);
9515     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
9516     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
9517     EXPECT_HR(hr, S_OK);
9518     hr = IXMLDOMNode_get_nodeName(node, &name);
9519     EXPECT_HR(hr, S_OK);
9520     ok(!lstrcmpW(name, _bstr_("b")), "got node name %s\n", wine_dbgstr_w(name));
9521     SysFreeString(name);
9522     IXMLDOMNode_Release(node);
9523     VariantClear(&v);
9524     IEnumVARIANT_Release(enum1);
9525
9526     hr = IXMLDOMSelection_nextNode(selection, &node);
9527     EXPECT_HR(hr, S_OK);
9528     hr = IXMLDOMNode_get_nodeName(node, &name);
9529     EXPECT_HR(hr, S_OK);
9530     ok(!lstrcmpW(name, _bstr_("d")), "got node name %s\n", wine_dbgstr_w(name));
9531     IXMLDOMNode_Release(node);
9532
9533     IXMLDOMSelection_Release(selection);
9534     IXMLDOMNodeList_Release(list);
9535     IXMLDOMDocument_Release(doc);
9536
9537     free_bstrs();
9538 }
9539
9540 static void write_to_file(const char *name, const char *data)
9541 {
9542     DWORD written;
9543     HANDLE hfile;
9544     BOOL ret;
9545
9546     hfile = CreateFileA(name, GENERIC_WRITE|GENERIC_READ, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
9547     ok(hfile != INVALID_HANDLE_VALUE, "failed to create test file: %s\n", name);
9548
9549     ret = WriteFile(hfile, data, strlen(data), &written, NULL);
9550     ok(ret, "WriteFile failed: %s, %d\n", name, GetLastError());
9551
9552     CloseHandle(hfile);
9553 }
9554
9555 static void test_load(void)
9556 {
9557     IXMLDOMDocument *doc;
9558     IXMLDOMNodeList *list;
9559     VARIANT_BOOL b;
9560     VARIANT src;
9561     HRESULT hr;
9562     BSTR path, bstr1, bstr2;
9563     void* ptr;
9564
9565     /* prepare a file */
9566     write_to_file("test.xml", win1252xml);
9567
9568     doc = create_document(&IID_IXMLDOMDocument);
9569
9570     /* null pointer as input */
9571     V_VT(&src) = VT_UNKNOWN;
9572     V_UNKNOWN(&src) = NULL;
9573     hr = IXMLDOMDocument_load(doc, src, &b);
9574     EXPECT_HR(hr, E_INVALIDARG);
9575     ok(b == VARIANT_FALSE, "got %d\n", b);
9576
9577     path = _bstr_("test.xml");
9578
9579     /* load from path: VT_BSTR */
9580     V_VT(&src) = VT_BSTR;
9581     V_BSTR(&src) = path;
9582     hr = IXMLDOMDocument_load(doc, src, &b);
9583     EXPECT_HR(hr, S_OK);
9584     ok(b == VARIANT_TRUE, "got %d\n", b);
9585
9586     /* load from a path: VT_BSTR|VT_BYREF */
9587     V_VT(&src) = VT_BSTR | VT_BYREF;
9588     V_BSTRREF(&src) = &path;
9589     hr = IXMLDOMDocument_load(doc, src, &b);
9590     EXPECT_HR(hr, S_OK);
9591     ok(b == VARIANT_TRUE, "got %d\n", b);
9592
9593     /* load from a path: VT_BSTR|VT_BYREF, null ptr */
9594     V_VT(&src) = VT_BSTR | VT_BYREF;
9595     V_BSTRREF(&src) = NULL;
9596     hr = IXMLDOMDocument_load(doc, src, &b);
9597     EXPECT_HR(hr, E_INVALIDARG);
9598     ok(b == VARIANT_FALSE, "got %d\n", b);
9599
9600     DeleteFileA("test.xml");
9601
9602     /* load from existing path, no xml content */
9603     write_to_file("test.xml", nocontent);
9604
9605     V_VT(&src) = VT_BSTR;
9606     V_BSTR(&src) = path;
9607     b = VARIANT_TRUE;
9608     hr = IXMLDOMDocument_load(doc, src, &b);
9609     ok(hr == S_FALSE, "got 0x%08x\n", hr);
9610     ok(b == VARIANT_FALSE, "got %d\n", b);
9611
9612     DeleteFileA("test.xml");
9613     IXMLDOMDocument_Release(doc);
9614
9615     doc = create_document(&IID_IXMLDOMDocument);
9616
9617     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &b);
9618     EXPECT_HR(hr, S_OK);
9619     ok(b == VARIANT_TRUE, "got %d\n", b);
9620
9621     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9622     EXPECT_HR(hr, S_OK);
9623     bstr1 = _bstr_(list_to_string(list));
9624
9625     hr = IXMLDOMNodeList_reset(list);
9626     EXPECT_HR(hr, S_OK);
9627
9628     IXMLDOMDocument_Release(doc);
9629
9630     doc = create_document(&IID_IXMLDOMDocument);
9631
9632     VariantInit(&src);
9633     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenA(szExampleXML));
9634     V_VT(&src) = VT_ARRAY|VT_UI1;
9635     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9636     ptr = NULL;
9637     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9638     EXPECT_HR(hr, S_OK);
9639     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9640
9641     memcpy(ptr, szExampleXML, lstrlenA(szExampleXML));
9642     hr = SafeArrayUnlock(V_ARRAY(&src));
9643     EXPECT_HR(hr, S_OK);
9644
9645     hr = IXMLDOMDocument_load(doc, src, &b);
9646     EXPECT_HR(hr, S_OK);
9647     ok(b == VARIANT_TRUE, "got %d\n", b);
9648
9649     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("//*"), &list);
9650     EXPECT_HR(hr, S_OK);
9651     bstr2 = _bstr_(list_to_string(list));
9652
9653     hr = IXMLDOMNodeList_reset(list);
9654     EXPECT_HR(hr, S_OK);
9655
9656     ok(lstrcmpW(bstr1, bstr2) == 0, "strings not equal: %s : %s\n",
9657        wine_dbgstr_w(bstr1), wine_dbgstr_w(bstr2));
9658
9659     IXMLDOMDocument_Release(doc);
9660     IXMLDOMNodeList_Release(list);
9661     VariantClear(&src);
9662
9663     /* UTF-16 isn't accepted */
9664     doc = create_document(&IID_IXMLDOMDocument);
9665
9666     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI1, 0, lstrlenW(szComplete1) * sizeof(WCHAR));
9667     V_VT(&src) = VT_ARRAY|VT_UI1;
9668     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9669     ptr = NULL;
9670     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9671     EXPECT_HR(hr, S_OK);
9672     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9673
9674     memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9675     hr = SafeArrayUnlock(V_ARRAY(&src));
9676     EXPECT_HR(hr, S_OK);
9677
9678     hr = IXMLDOMDocument_load(doc, src, &b);
9679     todo_wine EXPECT_HR(hr, S_FALSE);
9680     todo_wine ok(b == VARIANT_FALSE, "got %d\n", b);
9681
9682     VariantClear(&src);
9683
9684     /* it doesn't like it as a VT_ARRAY|VT_UI2 either */
9685     V_ARRAY(&src) = SafeArrayCreateVector(VT_UI2, 0, lstrlenW(szComplete1));
9686     V_VT(&src) = VT_ARRAY|VT_UI2;
9687     ok(V_ARRAY(&src) != NULL, "SafeArrayCreateVector() returned NULL\n");
9688     ptr = NULL;
9689     hr = SafeArrayAccessData(V_ARRAY(&src), &ptr);
9690     EXPECT_HR(hr, S_OK);
9691     ok(ptr != NULL, "SafeArrayAccessData() returned NULL\n");
9692
9693     memcpy(ptr, szComplete1, lstrlenW(szComplete1) * sizeof(WCHAR));
9694     hr = SafeArrayUnlock(V_ARRAY(&src));
9695     EXPECT_HR(hr, S_OK);
9696
9697     hr = IXMLDOMDocument_load(doc, src, &b);
9698     todo_wine EXPECT_HR(hr, E_INVALIDARG);
9699     ok(b == VARIANT_FALSE, "got %d\n", b);
9700
9701     VariantClear(&src);
9702     IXMLDOMDocument_Release(doc);
9703
9704     free_bstrs();
9705 }
9706
9707 static void test_domobj_dispex(IUnknown *obj)
9708 {
9709     DISPID dispid = DISPID_XMLDOM_NODELIST_RESET;
9710     IDispatchEx *dispex;
9711     IUnknown *unk;
9712     DWORD props;
9713     UINT ticnt;
9714     HRESULT hr;
9715     BSTR name;
9716
9717     hr = IUnknown_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
9718     EXPECT_HR(hr, S_OK);
9719     if (FAILED(hr)) return;
9720
9721     ticnt = 0;
9722     hr = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
9723     EXPECT_HR(hr, S_OK);
9724     ok(ticnt == 1, "ticnt=%u\n", ticnt);
9725
9726     name = SysAllocString(szstar);
9727     hr = IDispatchEx_DeleteMemberByName(dispex, name, fdexNameCaseSensitive);
9728     EXPECT_HR(hr, E_NOTIMPL);
9729     SysFreeString(name);
9730
9731     hr = IDispatchEx_DeleteMemberByDispID(dispex, dispid);
9732     EXPECT_HR(hr, E_NOTIMPL);
9733
9734     props = 0;
9735     hr = IDispatchEx_GetMemberProperties(dispex, dispid, grfdexPropCanAll, &props);
9736     EXPECT_HR(hr, E_NOTIMPL);
9737     ok(props == 0, "expected 0 got %d\n", props);
9738
9739     hr = IDispatchEx_GetMemberName(dispex, dispid, &name);
9740     EXPECT_HR(hr, E_NOTIMPL);
9741     if (SUCCEEDED(hr)) SysFreeString(name);
9742
9743     hr = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, DISPID_XMLDOM_NODELIST_RESET, &dispid);
9744     EXPECT_HR(hr, E_NOTIMPL);
9745
9746     hr = IDispatchEx_GetNameSpaceParent(dispex, &unk);
9747     EXPECT_HR(hr, E_NOTIMPL);
9748     if (hr == S_OK && unk) IUnknown_Release(unk);
9749
9750     IDispatchEx_Release(dispex);
9751 }
9752
9753 static void test_mxnamespacemanager(void)
9754 {
9755     static const char xmluriA[] = "http://www.w3.org/XML/1998/namespace";
9756     IMXNamespacePrefixes *prefixes;
9757     IVBMXNamespaceManager *mgr2;
9758     IMXNamespaceManager *nsmgr;
9759     IUnknown *unk1, *unk2;
9760     WCHAR buffW[250];
9761     IDispatch *disp;
9762     IUnknown *unk;
9763     HRESULT hr;
9764     INT len;
9765
9766     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9767         &IID_IMXNamespaceManager, (void**)&nsmgr);
9768     EXPECT_HR(hr, S_OK);
9769
9770     /* IMXNamespaceManager inherits from IUnknown */
9771     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IDispatch, (void**)&disp);
9772     EXPECT_HR(hr, S_OK);
9773     IDispatch_Release(disp);
9774
9775     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IVBMXNamespaceManager, (void**)&mgr2);
9776     EXPECT_HR(hr, S_OK);
9777
9778     EXPECT_REF(nsmgr, 2);
9779     EXPECT_REF(mgr2, 2);
9780     prefixes = NULL;
9781     hr = IVBMXNamespaceManager_getDeclaredPrefixes(mgr2, &prefixes);
9782     if (hr == S_OK)
9783     {
9784         IDispatchEx *dispex;
9785         VARIANT arg, ret;
9786         DISPPARAMS dispparams;
9787
9788         ok(prefixes != NULL, "got %p\n", prefixes);
9789         EXPECT_REF(nsmgr, 2);
9790         EXPECT_REF(mgr2, 2);
9791         EXPECT_REF(prefixes, 1);
9792
9793         IVBMXNamespaceManager_QueryInterface(mgr2, &IID_IUnknown, (void**)&unk1);
9794         IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IUnknown, (void**)&unk2);
9795
9796         EXPECT_REF(mgr2, 3);
9797         EXPECT_REF(prefixes, 2);
9798
9799         IUnknown_Release(unk1);
9800         IUnknown_Release(unk2);
9801
9802         hr = IMXNamespacePrefixes_QueryInterface(prefixes, &IID_IDispatchEx, (void**)&dispex);
9803         ok(hr == S_OK, "got 0x%08x\n", hr);
9804
9805         V_VT(&arg) = VT_I4;
9806         V_I4(&arg) = 0;
9807         dispparams.cArgs = 1;
9808         dispparams.cNamedArgs = 0;
9809         dispparams.rgdispidNamedArgs = NULL;
9810         dispparams.rgvarg = &arg;
9811
9812         V_VT(&ret) = VT_EMPTY;
9813         V_DISPATCH(&ret) = (void*)0x1;
9814         hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
9815         ok(hr == S_OK, "got 0x%08x\n", hr);
9816         ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
9817         ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
9818
9819         IDispatchEx_Release(dispex);
9820         IMXNamespacePrefixes_Release(prefixes);
9821     }
9822     IVBMXNamespaceManager_Release(mgr2);
9823
9824     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
9825     EXPECT_HR(hr, S_OK);
9826
9827     /* prefix already added */
9828     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
9829     EXPECT_HR(hr, S_FALSE);
9830
9831     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), NULL);
9832     EXPECT_HR(hr, E_INVALIDARG);
9833
9834     /* "xml" and "xmlns" are not allowed here */
9835     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xml"), _bstr_("uri1"));
9836     EXPECT_HR(hr, E_INVALIDARG);
9837
9838     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("xmlns"), _bstr_("uri1"));
9839     EXPECT_HR(hr, E_INVALIDARG);
9840 todo_wine {
9841     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, -1, NULL, NULL);
9842     EXPECT_HR(hr, E_FAIL);
9843 }
9844     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, NULL);
9845     EXPECT_HR(hr, E_POINTER);
9846
9847     len = -1;
9848     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, NULL, &len);
9849     EXPECT_HR(hr, S_OK);
9850     ok(len == 3, "got %d\n", len);
9851
9852     len = -1;
9853     buffW[0] = 0x1;
9854     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
9855     EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
9856     ok(len == -1, "got %d\n", len);
9857     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9858
9859     len = 10;
9860     buffW[0] = 0x1;
9861     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
9862     EXPECT_HR(hr, S_OK);
9863     ok(len == 3, "got %d\n", len);
9864     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
9865
9866     /* getURI */
9867     hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, NULL);
9868     EXPECT_HR(hr, E_INVALIDARG);
9869
9870     len = -1;
9871     hr = IMXNamespaceManager_getURI(nsmgr, NULL, NULL, NULL, &len);
9872     EXPECT_HR(hr, E_INVALIDARG);
9873     ok(len == -1, "got %d\n", len);
9874
9875     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, NULL);
9876     EXPECT_HR(hr, E_POINTER);
9877
9878     len = -1;
9879     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, NULL, &len);
9880     EXPECT_HR(hr, S_OK);
9881     /* length of "xml" uri is constant */
9882     ok(len == strlen(xmluriA), "got %d\n", len);
9883
9884     len = 100;
9885     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
9886     EXPECT_HR(hr, S_OK);
9887     ok(len == strlen(xmluriA), "got %d\n", len);
9888     ok(!lstrcmpW(buffW, _bstr_(xmluriA)), "got prefix %s\n", wine_dbgstr_w(buffW));
9889
9890     len = strlen(xmluriA)-1;
9891     buffW[0] = 0x1;
9892     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml"), NULL, buffW, &len);
9893     EXPECT_HR(hr, E_XML_BUFFERTOOSMALL);
9894     ok(len == strlen(xmluriA)-1, "got %d\n", len);
9895     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9896
9897     /* prefix xml1 not defined */
9898     len = -1;
9899     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, NULL, &len);
9900     EXPECT_HR(hr, S_FALSE);
9901     ok(len == 0, "got %d\n", len);
9902
9903     len = 100;
9904     buffW[0] = 0x1;
9905     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_("xml1"), NULL, buffW, &len);
9906     EXPECT_HR(hr, S_FALSE);
9907     ok(buffW[0] == 0, "got %x\n", buffW[0]);
9908     ok(len == 0, "got %d\n", len);
9909
9910     /* IDispatchEx tests */
9911     hr = IMXNamespaceManager_QueryInterface(nsmgr, &IID_IUnknown, (void**)&unk);
9912     EXPECT_HR(hr, S_OK);
9913     test_domobj_dispex(unk);
9914     IUnknown_Release(unk);
9915
9916     IMXNamespaceManager_Release(nsmgr);
9917
9918     /* ::getPrefix() */
9919     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
9920         &IID_IMXNamespaceManager, (void**)&nsmgr);
9921     EXPECT_HR(hr, S_OK);
9922
9923     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, NULL);
9924     EXPECT_HR(hr, E_INVALIDARG);
9925
9926     len = -1;
9927     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, NULL, &len);
9928     EXPECT_HR(hr, E_INVALIDARG);
9929     ok(len == -1, "got %d\n", len);
9930
9931     len = 100;
9932     buffW[0] = 0x1;
9933     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
9934     EXPECT_HR(hr, E_FAIL);
9935     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9936     ok(len == 100, "got %d\n", len);
9937
9938     len = 0;
9939     buffW[0] = 0x1;
9940     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 0, buffW, &len);
9941     EXPECT_HR(hr, E_FAIL);
9942     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9943     ok(len == 0, "got %d\n", len);
9944
9945     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
9946     EXPECT_HR(hr, S_OK);
9947
9948     len = 100;
9949     buffW[0] = 0x1;
9950     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
9951     EXPECT_HR(hr, S_OK);
9952     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
9953     ok(len == 3, "got %d\n", len);
9954
9955     len = 100;
9956     buffW[0] = 0x1;
9957     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, buffW, &len);
9958     EXPECT_HR(hr, S_OK);
9959     ok(!lstrcmpW(buffW, _bstr_("xml")), "got %s\n", wine_dbgstr_w(buffW));
9960     ok(len == 3, "got %d\n", len);
9961
9962     /* with null buffer it's possible to get required length */
9963     len = 100;
9964     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
9965     EXPECT_HR(hr, S_OK);
9966     ok(len == 3, "got %d\n", len);
9967
9968     len = 0;
9969     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("http://www.w3.org/XML/1998/namespace"), 0, NULL, &len);
9970     EXPECT_HR(hr, S_OK);
9971     ok(len == 3, "got %d\n", len);
9972
9973     len = 100;
9974     buffW[0] = 0x1;
9975     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 1, buffW, &len);
9976     EXPECT_HR(hr, E_FAIL);
9977     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9978     ok(len == 100, "got %d\n", len);
9979
9980     len = 100;
9981     buffW[0] = 0x1;
9982     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 2, buffW, &len);
9983     EXPECT_HR(hr, E_FAIL);
9984     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9985     ok(len == 100, "got %d\n", len);
9986
9987     len = 100;
9988     buffW[0] = 0x1;
9989     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 0, buffW, &len);
9990     EXPECT_HR(hr, E_INVALIDARG);
9991     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9992     ok(len == 100, "got %d\n", len);
9993
9994     len = 100;
9995     buffW[0] = 0x1;
9996     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
9997     EXPECT_HR(hr, E_INVALIDARG);
9998     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
9999     ok(len == 100, "got %d\n", len);
10000
10001     len = 100;
10002     buffW[0] = 0x1;
10003     hr = IMXNamespaceManager_getPrefix(nsmgr, NULL, 0, buffW, &len);
10004     EXPECT_HR(hr, E_INVALIDARG);
10005     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10006     ok(len == 100, "got %d\n", len);
10007
10008     len = 100;
10009     buffW[0] = 0x1;
10010     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns0 uri"), 1, buffW, &len);
10011     EXPECT_HR(hr, E_FAIL);
10012     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10013     ok(len == 100, "got %d\n", len);
10014
10015     len = 100;
10016     buffW[0] = 0x1;
10017     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10018     EXPECT_HR(hr, E_INVALIDARG);
10019     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10020     ok(len == 100, "got %d\n", len);
10021
10022     /* declare another one, indices are shifted */
10023     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10024     EXPECT_HR(hr, S_OK);
10025
10026     len = 100;
10027     buffW[0] = 0x1;
10028     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10029     EXPECT_HR(hr, S_OK);
10030     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10031     ok(len == 3, "got %d\n", len);
10032
10033     len = 100;
10034     buffW[0] = 0x1;
10035     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10036     EXPECT_HR(hr, S_OK);
10037     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10038     ok(len == 3, "got %d\n", len);
10039
10040     len = 100;
10041     buffW[0] = 0x1;
10042     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 1, buffW, &len);
10043     EXPECT_HR(hr, E_FAIL);
10044     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10045     ok(len == 100, "got %d\n", len);
10046
10047     len = 100;
10048     buffW[0] = 0x1;
10049     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_(""), 1, buffW, &len);
10050     EXPECT_HR(hr, E_INVALIDARG);
10051     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10052     ok(len == 100, "got %d\n", len);
10053
10054     IMXNamespaceManager_Release(nsmgr);
10055
10056     /* push/pop tests */
10057     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10058         &IID_IMXNamespaceManager, (void**)&nsmgr);
10059     EXPECT_HR(hr, S_OK);
10060
10061     /* pop with empty stack */
10062     hr = IMXNamespaceManager_popContext(nsmgr);
10063     EXPECT_HR(hr, E_FAIL);
10064
10065     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10066     EXPECT_HR(hr, S_OK);
10067
10068     len = 100;
10069     buffW[0] = 0x1;
10070     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10071     EXPECT_HR(hr, S_OK);
10072     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10073     ok(len == 3, "got %d\n", len);
10074
10075     hr = IMXNamespaceManager_pushContext(nsmgr);
10076     EXPECT_HR(hr, S_OK);
10077
10078     len = 100;
10079     buffW[0] = 0x1;
10080     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10081     EXPECT_HR(hr, S_OK);
10082     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10083     ok(len == 3, "got %d\n", len);
10084
10085     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns2"), _bstr_("ns2 uri"));
10086     EXPECT_HR(hr, S_OK);
10087
10088     len = 100;
10089     buffW[0] = 0x1;
10090     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10091     EXPECT_HR(hr, S_OK);
10092     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10093     ok(len == 3, "got %d\n", len);
10094
10095     hr = IMXNamespaceManager_pushContext(nsmgr);
10096     EXPECT_HR(hr, S_OK);
10097     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns3"), _bstr_("ns3 uri"));
10098     EXPECT_HR(hr, S_OK);
10099
10100     len = 100;
10101     buffW[0] = 0x1;
10102     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10103     EXPECT_HR(hr, S_OK);
10104     ok(!lstrcmpW(buffW, _bstr_("ns2")), "got %s\n", wine_dbgstr_w(buffW));
10105     ok(len == 3, "got %d\n", len);
10106
10107     len = 100;
10108     buffW[0] = 0x1;
10109     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10110     EXPECT_HR(hr, S_OK);
10111     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10112     ok(len == 3, "got %d\n", len);
10113
10114     hr = IMXNamespaceManager_popContext(nsmgr);
10115     EXPECT_HR(hr, S_OK);
10116
10117     hr = IMXNamespaceManager_popContext(nsmgr);
10118     EXPECT_HR(hr, S_OK);
10119
10120     len = 100;
10121     buffW[0] = 0x1;
10122     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns2 uri"), 0, buffW, &len);
10123     EXPECT_HR(hr, E_FAIL);
10124     ok(buffW[0] == 0x1, "got %x\n", buffW[0]);
10125     ok(len == 100, "got %d\n", len);
10126
10127     len = 100;
10128     buffW[0] = 0x1;
10129     hr = IMXNamespaceManager_getPrefix(nsmgr, _bstr_("ns1 uri"), 0, buffW, &len);
10130     EXPECT_HR(hr, S_OK);
10131     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got %s\n", wine_dbgstr_w(buffW));
10132     ok(len == 3, "got %d\n", len);
10133
10134     IMXNamespaceManager_Release(nsmgr);
10135
10136     free_bstrs();
10137 }
10138
10139 static void test_mxnamespacemanager_override(void)
10140 {
10141     IMXNamespaceManager *nsmgr;
10142     WCHAR buffW[250];
10143     VARIANT_BOOL b;
10144     HRESULT hr;
10145     INT len;
10146
10147     hr = CoCreateInstance(&CLSID_MXNamespaceManager40, NULL, CLSCTX_INPROC_SERVER,
10148         &IID_IMXNamespaceManager, (void**)&nsmgr);
10149     EXPECT_HR(hr, S_OK);
10150
10151     len = sizeof(buffW)/sizeof(WCHAR);
10152     buffW[0] = 0;
10153     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10154     EXPECT_HR(hr, S_OK);
10155     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10156
10157     len = sizeof(buffW)/sizeof(WCHAR);
10158     buffW[0] = 0;
10159     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10160     EXPECT_HR(hr, E_FAIL);
10161
10162     hr = IMXNamespaceManager_getAllowOverride(nsmgr, NULL);
10163     EXPECT_HR(hr, E_POINTER);
10164
10165     b = VARIANT_FALSE;
10166     hr = IMXNamespaceManager_getAllowOverride(nsmgr, &b);
10167     EXPECT_HR(hr, S_OK);
10168     ok(b == VARIANT_TRUE, "got %d\n", b);
10169
10170     hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_FALSE);
10171     EXPECT_HR(hr, S_OK);
10172
10173     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10174     EXPECT_HR(hr, S_OK);
10175
10176     len = sizeof(buffW)/sizeof(WCHAR);
10177     buffW[0] = 0;
10178     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10179     EXPECT_HR(hr, S_OK);
10180     ok(!lstrcmpW(buffW, _bstr_("ns0 uri")), "got uri %s\n", wine_dbgstr_w(buffW));
10181
10182     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns0"), _bstr_("ns0 uri"));
10183     EXPECT_HR(hr, S_OK);
10184
10185     len = sizeof(buffW)/sizeof(WCHAR);
10186     buffW[0] = 0;
10187     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 0, buffW, &len);
10188     EXPECT_HR(hr, S_OK);
10189     ok(!lstrcmpW(buffW, _bstr_("xml")), "got prefix %s\n", wine_dbgstr_w(buffW));
10190
10191     len = sizeof(buffW)/sizeof(WCHAR);
10192     buffW[0] = 0;
10193     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10194     EXPECT_HR(hr, S_OK);
10195     ok(!lstrcmpW(buffW, _bstr_("ns0")), "got prefix %s\n", wine_dbgstr_w(buffW));
10196
10197     len = sizeof(buffW)/sizeof(WCHAR);
10198     buffW[0] = 0;
10199     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 2, buffW, &len);
10200     EXPECT_HR(hr, S_OK);
10201     ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10202
10203     /* new prefix placed at index 1 always */
10204     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_("ns1"), _bstr_("ns1 uri"));
10205     EXPECT_HR(hr, S_OK);
10206
10207     len = sizeof(buffW)/sizeof(WCHAR);
10208     buffW[0] = 0;
10209     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 1, buffW, &len);
10210     EXPECT_HR(hr, S_OK);
10211     ok(!lstrcmpW(buffW, _bstr_("ns1")), "got prefix %s\n", wine_dbgstr_w(buffW));
10212
10213     hr = IMXNamespaceManager_declarePrefix(nsmgr, _bstr_(""), NULL);
10214     todo_wine EXPECT_HR(hr, E_FAIL);
10215
10216     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, NULL);
10217     EXPECT_HR(hr, E_FAIL);
10218
10219     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri"));
10220     EXPECT_HR(hr, E_FAIL);
10221
10222     hr = IMXNamespaceManager_putAllowOverride(nsmgr, VARIANT_TRUE);
10223     EXPECT_HR(hr, S_OK);
10224
10225     hr = IMXNamespaceManager_declarePrefix(nsmgr, NULL, _bstr_("ns0 uri override"));
10226     EXPECT_HR(hr, S_FALSE);
10227
10228     len = sizeof(buffW)/sizeof(WCHAR);
10229     buffW[0] = 0;
10230     hr = IMXNamespaceManager_getURI(nsmgr, _bstr_(""), NULL, buffW, &len);
10231     EXPECT_HR(hr, S_OK);
10232     ok(!lstrcmpW(buffW, _bstr_("ns0 uri override")), "got uri %s\n", wine_dbgstr_w(buffW));
10233
10234     len = sizeof(buffW)/sizeof(WCHAR);
10235     buffW[0] = 0;
10236     hr = IMXNamespaceManager_getDeclaredPrefix(nsmgr, 3, buffW, &len);
10237     EXPECT_HR(hr, S_OK);
10238     ok(!lstrcmpW(buffW, _bstr_("")), "got prefix %s\n", wine_dbgstr_w(buffW));
10239
10240     IMXNamespaceManager_Release(nsmgr);
10241
10242     free_bstrs();
10243 }
10244
10245 static const DOMNodeType nodetypes_test[] =
10246 {
10247     NODE_ELEMENT,
10248     NODE_ATTRIBUTE,
10249     NODE_TEXT,
10250     NODE_CDATA_SECTION,
10251     NODE_ENTITY_REFERENCE,
10252     NODE_PROCESSING_INSTRUCTION,
10253     NODE_COMMENT,
10254     NODE_DOCUMENT_FRAGMENT,
10255     NODE_INVALID
10256 };
10257
10258 static void test_dispex(void)
10259 {
10260     const DOMNodeType *type = nodetypes_test;
10261     IXMLDOMImplementation *impl;
10262     IXMLDOMNodeList *node_list;
10263     IXMLDOMParseError *error;
10264     IXMLDOMNamedNodeMap *map;
10265     IXSLProcessor *processor;
10266     IXSLTemplate *template;
10267     IXMLDOMDocument *doc;
10268     IXMLHTTPRequest *req;
10269     IXMLDOMElement *elem;
10270     IDispatchEx *dispex;
10271     DISPPARAMS dispparams;
10272     IXMLDOMNode *node;
10273     VARIANT arg, ret;
10274     VARIANT_BOOL b;
10275     IUnknown *unk;
10276     HRESULT hr;
10277     DISPID did;
10278
10279     doc = create_document(&IID_IXMLDOMDocument);
10280
10281     IXMLDOMDocument_QueryInterface(doc, &IID_IUnknown, (void**)&unk);
10282     test_domobj_dispex(unk);
10283     IUnknown_Release(unk);
10284
10285     for(; *type != NODE_INVALID; type++)
10286     {
10287         IXMLDOMNode *node;
10288         VARIANT v;
10289
10290         V_VT(&v) = VT_I2;
10291         V_I2(&v) = *type;
10292
10293         hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
10294         ok(hr == S_OK, "failed to create node type %d\n", *type);
10295
10296         IXMLDOMNode_QueryInterface(node, &IID_IUnknown, (void**)&unk);
10297
10298         test_domobj_dispex(unk);
10299         IUnknown_Release(unk);
10300         IXMLDOMNode_Release(node);
10301     }
10302
10303     /* IXMLDOMNodeList */
10304     hr = IXMLDOMDocument_getElementsByTagName(doc, _bstr_("*"), &node_list);
10305     EXPECT_HR(hr, S_OK);
10306     IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10307     test_domobj_dispex(unk);
10308     IUnknown_Release(unk);
10309     IXMLDOMNodeList_Release(node_list);
10310
10311     /* IXMLDOMNodeList for children list */
10312     hr = IXMLDOMDocument_get_childNodes(doc, &node_list);
10313     EXPECT_HR(hr, S_OK);
10314     IXMLDOMNodeList_QueryInterface(node_list, &IID_IUnknown, (void**)&unk);
10315     test_domobj_dispex(unk);
10316     IUnknown_Release(unk);
10317
10318     /* collection dispex test, empty collection */
10319     hr = IXMLDOMNodeList_QueryInterface(node_list, &IID_IDispatchEx, (void**)&dispex);
10320     EXPECT_HR(hr, S_OK);
10321     did = 0;
10322     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10323     EXPECT_HR(hr, S_OK);
10324     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10325     hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10326     EXPECT_HR(hr, S_OK);
10327     ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10328     IDispatchEx_Release(dispex);
10329
10330     did = -1;
10331     hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10332     ok(hr == S_OK, "got 0x%08x\n", hr);
10333     ok(did == DISPID_VALUE, "got %d\n", did);
10334
10335     V_VT(&arg) = VT_I4;
10336     V_I4(&arg) = 0;
10337     dispparams.cArgs = 0;
10338     dispparams.cNamedArgs = 0;
10339     dispparams.rgdispidNamedArgs = NULL;
10340     dispparams.rgvarg = &arg;
10341
10342     V_VT(&ret) = VT_EMPTY;
10343     V_DISPATCH(&ret) = (void*)0x1;
10344     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10345     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10346     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10347     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10348
10349     V_VT(&arg) = VT_I4;
10350     V_I4(&arg) = 0;
10351     dispparams.cArgs = 2;
10352     dispparams.cNamedArgs = 0;
10353     dispparams.rgdispidNamedArgs = NULL;
10354     dispparams.rgvarg = &arg;
10355
10356     V_VT(&ret) = VT_EMPTY;
10357     V_DISPATCH(&ret) = (void*)0x1;
10358     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10359     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10360     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10361     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10362
10363     V_VT(&arg) = VT_I4;
10364     V_I4(&arg) = 0;
10365     dispparams.cArgs = 1;
10366     dispparams.cNamedArgs = 0;
10367     dispparams.rgdispidNamedArgs = NULL;
10368     dispparams.rgvarg = &arg;
10369
10370     V_VT(&ret) = VT_EMPTY;
10371     V_DISPATCH(&ret) = (void*)0x1;
10372     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10373     ok(hr == S_OK, "got 0x%08x\n", hr);
10374     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10375     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10376
10377     V_VT(&ret) = VT_EMPTY;
10378     V_DISPATCH(&ret) = (void*)0x1;
10379     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10380     ok(hr == S_OK, "got 0x%08x\n", hr);
10381     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10382     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10383
10384     V_VT(&ret) = VT_EMPTY;
10385     V_DISPATCH(&ret) = (void*)0x1;
10386     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10387     ok(hr == S_OK, "got 0x%08x\n", hr);
10388     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10389     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10390
10391     dispparams.cArgs = 0;
10392     dispparams.cNamedArgs = 0;
10393     dispparams.rgdispidNamedArgs = NULL;
10394     dispparams.rgvarg = NULL;
10395
10396     V_VT(&ret) = VT_EMPTY;
10397     V_I4(&ret) = 1;
10398     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10399     ok(hr == S_OK, "got 0x%08x\n", hr);
10400     ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10401     ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10402
10403     dispparams.cArgs = 0;
10404     dispparams.cNamedArgs = 0;
10405     dispparams.rgdispidNamedArgs = NULL;
10406     dispparams.rgvarg = NULL;
10407
10408     V_VT(&ret) = VT_EMPTY;
10409     V_I4(&ret) = 1;
10410     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10411     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10412     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10413     ok(V_I4(&ret) == 1, "got %d\n", V_I4(&ret));
10414
10415     IXMLDOMNodeList_Release(node_list);
10416
10417     /* IXMLDOMParseError */
10418     hr = IXMLDOMDocument_get_parseError(doc, &error);
10419     EXPECT_HR(hr, S_OK);
10420     IXMLDOMParseError_QueryInterface(error, &IID_IUnknown, (void**)&unk);
10421     test_domobj_dispex(unk);
10422
10423     hr = IXMLDOMParseError_QueryInterface(error, &IID_IDispatchEx, (void**)&dispex);
10424     ok(hr == S_OK, "got 0x%08x\n", hr);
10425
10426     V_VT(&arg) = VT_I4;
10427     V_I4(&arg) = 0;
10428     dispparams.cArgs = 1;
10429     dispparams.cNamedArgs = 0;
10430     dispparams.rgdispidNamedArgs = NULL;
10431     dispparams.rgvarg = &arg;
10432
10433     V_VT(&ret) = VT_EMPTY;
10434     V_DISPATCH(&ret) = (void*)0x1;
10435     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10436     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10437     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10438     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10439
10440     IDispatchEx_Release(dispex);
10441
10442     IUnknown_Release(unk);
10443     IXMLDOMParseError_Release(error);
10444
10445     /* IXMLDOMNamedNodeMap */
10446     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xpath_simple_list), &b);
10447     EXPECT_HR(hr, S_OK);
10448
10449     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/a"), &node_list);
10450     EXPECT_HR(hr, S_OK);
10451     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10452     EXPECT_HR(hr, S_OK);
10453     IXMLDOMNodeList_Release(node_list);
10454
10455     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10456     EXPECT_HR(hr, S_OK);
10457     IXMLDOMNode_Release(node);
10458     hr = IXMLDOMElement_get_attributes(elem, &map);
10459     EXPECT_HR(hr, S_OK);
10460     IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk);
10461     test_domobj_dispex(unk);
10462     IUnknown_Release(unk);
10463     /* collection dispex test */
10464     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10465     EXPECT_HR(hr, S_OK);
10466     did = 0;
10467     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10468     EXPECT_HR(hr, S_OK);
10469     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10470     IDispatchEx_Release(dispex);
10471
10472     hr = IXMLDOMDocument_selectNodes(doc, _bstr_("root/b"), &node_list);
10473     EXPECT_HR(hr, S_OK);
10474     hr = IXMLDOMNodeList_get_item(node_list, 0, &node);
10475     EXPECT_HR(hr, S_OK);
10476     IXMLDOMNodeList_Release(node_list);
10477     hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMElement, (void**)&elem);
10478     EXPECT_HR(hr, S_OK);
10479     IXMLDOMNode_Release(node);
10480     hr = IXMLDOMElement_get_attributes(elem, &map);
10481     EXPECT_HR(hr, S_OK);
10482     /* collection dispex test, empty collection */
10483     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IDispatchEx, (void**)&dispex);
10484     EXPECT_HR(hr, S_OK);
10485     did = 0;
10486     hr = IDispatchEx_GetDispID(dispex, _bstr_("0"), 0, &did);
10487     EXPECT_HR(hr, S_OK);
10488     ok(did == DISPID_DOM_COLLECTION_BASE, "got 0x%08x\n", did);
10489     hr = IDispatchEx_GetDispID(dispex, _bstr_("1"), 0, &did);
10490     EXPECT_HR(hr, S_OK);
10491     ok(did == DISPID_DOM_COLLECTION_BASE+1, "got 0x%08x\n", did);
10492     IDispatchEx_Release(dispex);
10493
10494     did = -1;
10495     hr = IDispatchEx_GetDispID(dispex, _bstr_("item"), 0, &did);
10496     ok(hr == S_OK, "got 0x%08x\n", hr);
10497     ok(did == DISPID_VALUE, "got %d\n", did);
10498
10499     V_VT(&arg) = VT_I4;
10500     V_I4(&arg) = 0;
10501     dispparams.cArgs = 0;
10502     dispparams.cNamedArgs = 0;
10503     dispparams.rgdispidNamedArgs = NULL;
10504     dispparams.rgvarg = &arg;
10505
10506     V_VT(&ret) = VT_EMPTY;
10507     V_DISPATCH(&ret) = (void*)0x1;
10508     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10509 todo_wine {
10510     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10511     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10512     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10513 }
10514     V_VT(&arg) = VT_I4;
10515     V_I4(&arg) = 0;
10516     dispparams.cArgs = 2;
10517     dispparams.cNamedArgs = 0;
10518     dispparams.rgdispidNamedArgs = NULL;
10519     dispparams.rgvarg = &arg;
10520
10521     V_VT(&ret) = VT_EMPTY;
10522     V_DISPATCH(&ret) = (void*)0x1;
10523     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10524 todo_wine {
10525     ok(hr == DISP_E_BADPARAMCOUNT, "got 0x%08x\n", hr);
10526     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10527     ok(V_DISPATCH(&ret) == (void*)0x1, "got %p\n", V_DISPATCH(&ret));
10528 }
10529     V_VT(&arg) = VT_I4;
10530     V_I4(&arg) = 0;
10531     dispparams.cArgs = 1;
10532     dispparams.cNamedArgs = 0;
10533     dispparams.rgdispidNamedArgs = NULL;
10534     dispparams.rgvarg = &arg;
10535
10536     V_VT(&ret) = VT_EMPTY;
10537     V_DISPATCH(&ret) = (void*)0x1;
10538     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10539 todo_wine
10540     ok(hr == S_OK, "got 0x%08x\n", hr);
10541     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10542     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10543
10544     V_VT(&ret) = VT_EMPTY;
10545     V_DISPATCH(&ret) = (void*)0x1;
10546     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10547     ok(hr == S_OK, "got 0x%08x\n", hr);
10548     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10549     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10550
10551     V_VT(&ret) = VT_EMPTY;
10552     V_DISPATCH(&ret) = (void*)0x1;
10553     hr = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10554     ok(hr == S_OK, "got 0x%08x\n", hr);
10555     ok(V_VT(&ret) == VT_DISPATCH, "got %d\n", V_VT(&ret));
10556     ok(V_DISPATCH(&ret) == NULL, "got %p\n", V_DISPATCH(&ret));
10557
10558     dispparams.cArgs = 0;
10559     dispparams.cNamedArgs = 0;
10560     dispparams.rgdispidNamedArgs = NULL;
10561     dispparams.rgvarg = NULL;
10562
10563     V_VT(&ret) = VT_EMPTY;
10564     V_I4(&ret) = 1;
10565     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &ret, NULL, NULL);
10566     ok(hr == S_OK, "got 0x%08x\n", hr);
10567     ok(V_VT(&ret) == VT_I4, "got %d\n", V_VT(&ret));
10568     ok(V_I4(&ret) == 0, "got %d\n", V_I4(&ret));
10569
10570     dispparams.cArgs = 0;
10571     dispparams.cNamedArgs = 0;
10572     dispparams.rgdispidNamedArgs = NULL;
10573     dispparams.rgvarg = NULL;
10574
10575     V_VT(&ret) = VT_EMPTY;
10576     V_I4(&ret) = 1;
10577     hr = IDispatchEx_Invoke(dispex, DISPID_DOM_NODELIST_LENGTH, &IID_NULL, 0, DISPATCH_METHOD, &dispparams, &ret, NULL, NULL);
10578     ok(hr == DISP_E_MEMBERNOTFOUND, "got 0x%08x\n", hr);
10579 todo_wine {
10580     ok(V_VT(&ret) == VT_EMPTY, "got %d\n", V_VT(&ret));
10581     ok(V_I4(&ret) == 1, "got %d\n", V_I4(&ret));
10582 }
10583     IXMLDOMNamedNodeMap_Release(map);
10584     IXMLDOMElement_Release(elem);
10585
10586     /* IXMLDOMImplementation */
10587     hr = IXMLDOMDocument_get_implementation(doc, &impl);
10588     EXPECT_HR(hr, S_OK);
10589
10590     hr = IXMLDOMImplementation_QueryInterface(impl, &IID_IDispatchEx, (void**)&dispex);
10591     EXPECT_HR(hr, S_OK);
10592     IDispatchEx_Release(dispex);
10593     IXMLDOMImplementation_Release(impl);
10594
10595     IXMLDOMDocument_Release(doc);
10596
10597     /* IXMLHTTPRequest */
10598     hr = CoCreateInstance(&CLSID_XMLHTTPRequest, NULL, CLSCTX_INPROC_SERVER,
10599         &IID_IXMLHttpRequest, (void**)&req);
10600     if (hr == S_OK)
10601     {
10602         hr = IXMLHTTPRequest_QueryInterface(req, &IID_IDispatchEx, (void**)&dispex);
10603         EXPECT_HR(hr, E_NOINTERFACE);
10604         IXMLHTTPRequest_Release(req);
10605     }
10606
10607     /* IXSLTemplate */
10608     template = create_xsltemplate(&IID_IXSLTemplate);
10609     hr = IXSLTemplate_QueryInterface(template, &IID_IDispatchEx, (void**)&dispex);
10610     EXPECT_HR(hr, S_OK);
10611     hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10612     EXPECT_HR(hr, S_OK);
10613     test_domobj_dispex(unk);
10614     IUnknown_Release(unk);
10615     IDispatchEx_Release(dispex);
10616
10617     /* IXSLProcessor */
10618     hr = CoCreateInstance(&CLSID_FreeThreadedDOMDocument, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (void**)&doc);
10619     EXPECT_HR(hr, S_OK);
10620     b = VARIANT_FALSE;
10621     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szTransformSSXML), &b);
10622     EXPECT_HR(hr, S_OK);
10623     ok(b == VARIANT_TRUE, "got %d\n", b);
10624
10625     hr = IXSLTemplate_putref_stylesheet(template, (IXMLDOMNode*)doc);
10626     EXPECT_HR(hr, S_OK);
10627     IXMLDOMDocument_Release(doc);
10628
10629     hr = IXSLTemplate_createProcessor(template, &processor);
10630     EXPECT_HR(hr, S_OK);
10631     hr = IXSLProcessor_QueryInterface(processor, &IID_IDispatchEx, (void**)&dispex);
10632     EXPECT_HR(hr, S_OK);
10633     hr = IDispatchEx_QueryInterface(dispex, &IID_IUnknown, (void**)&unk);
10634     EXPECT_HR(hr, S_OK);
10635     test_domobj_dispex(unk);
10636     IUnknown_Release(unk);
10637     IDispatchEx_Release(dispex);
10638
10639     IXSLProcessor_Release(processor);
10640     IXSLTemplate_Release(template);
10641
10642     free_bstrs();
10643 }
10644
10645 static void test_parseerror(void)
10646 {
10647     IXMLDOMParseError2 *error2;
10648     IXMLDOMParseError *error;
10649     IXMLDOMDocument *doc;
10650     HRESULT hr;
10651
10652     doc = create_document(&IID_IXMLDOMDocument);
10653
10654     hr = IXMLDOMDocument_get_parseError(doc, &error);
10655     EXPECT_HR(hr, S_OK);
10656
10657     hr = IXMLDOMParseError_get_line(error, NULL);
10658     EXPECT_HR(hr, E_INVALIDARG);
10659
10660     hr = IXMLDOMParseError_get_srcText(error, NULL);
10661     EXPECT_HR(hr, E_INVALIDARG);
10662
10663     hr = IXMLDOMParseError_get_linepos(error, NULL);
10664     EXPECT_HR(hr, E_INVALIDARG);
10665
10666     IXMLDOMParseError_Release(error);
10667     IXMLDOMDocument_Release(doc);
10668
10669     if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument)) return;
10670     doc = create_document_version(60, &IID_IXMLDOMDocument);
10671
10672     hr = IXMLDOMDocument_get_parseError(doc, &error);
10673     EXPECT_HR(hr, S_OK);
10674     hr = IXMLDOMParseError_QueryInterface(error, &IID_IXMLDOMParseError2, (void**)&error2);
10675     EXPECT_HR(hr, S_OK);
10676     IXMLDOMParseError2_Release(error2);
10677     IXMLDOMParseError_Release(error);
10678     IXMLDOMDocument_Release(doc);
10679 }
10680
10681 static void test_getAttributeNode(void)
10682 {
10683     IXMLDOMAttribute *attr;
10684     IXMLDOMDocument *doc;
10685     IXMLDOMElement *elem;
10686     VARIANT_BOOL v;
10687     HRESULT hr;
10688     BSTR str;
10689
10690     doc = create_document(&IID_IXMLDOMDocument);
10691
10692     hr = IXMLDOMDocument_loadXML(doc, _bstr_(szExampleXML), &v);
10693     EXPECT_HR(hr, S_OK);
10694
10695     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10696     EXPECT_HR(hr, S_OK);
10697
10698     str = SysAllocString(nonexistent_fileW);
10699     hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10700     EXPECT_HR(hr, E_FAIL);
10701
10702     attr = (IXMLDOMAttribute*)0xdeadbeef;
10703     hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10704     EXPECT_HR(hr, E_FAIL);
10705     ok(attr == NULL, "got %p\n", attr);
10706     SysFreeString(str);
10707
10708     str = SysAllocString(nonexistent_attrW);
10709     hr = IXMLDOMElement_getAttributeNode(elem, str, NULL);
10710     EXPECT_HR(hr, S_FALSE);
10711
10712     attr = (IXMLDOMAttribute*)0xdeadbeef;
10713     hr = IXMLDOMElement_getAttributeNode(elem, str, &attr);
10714     EXPECT_HR(hr, S_FALSE);
10715     ok(attr == NULL, "got %p\n", attr);
10716     SysFreeString(str);
10717
10718     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("foo:b"), &attr);
10719     EXPECT_HR(hr, S_OK);
10720     IXMLDOMAttribute_Release(attr);
10721
10722     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("b"), &attr);
10723     EXPECT_HR(hr, S_FALSE);
10724
10725     hr = IXMLDOMElement_getAttributeNode(elem, _bstr_("a"), &attr);
10726     EXPECT_HR(hr, S_OK);
10727     IXMLDOMAttribute_Release(attr);
10728
10729     IXMLDOMElement_Release(elem);
10730     IXMLDOMDocument_Release(doc);
10731     free_bstrs();
10732 }
10733
10734 typedef struct {
10735     DOMNodeType type;
10736     const char *name;
10737     REFIID iids[3];
10738 } supporterror_t;
10739
10740 static const supporterror_t supporterror_test[] = {
10741     { NODE_ELEMENT,                "element",   { &IID_IXMLDOMNode, &IID_IXMLDOMElement } },
10742     { NODE_ATTRIBUTE,              "attribute", { &IID_IXMLDOMNode, &IID_IXMLDOMAttribute } },
10743     { NODE_CDATA_SECTION,          "cdata",     { &IID_IXMLDOMNode, &IID_IXMLDOMCDATASection } },
10744     { NODE_ENTITY_REFERENCE,       "entityref", { &IID_IXMLDOMNode, &IID_IXMLDOMEntityReference } },
10745     { NODE_PROCESSING_INSTRUCTION, "pi",        { &IID_IXMLDOMNode, &IID_IXMLDOMProcessingInstruction } },
10746     { NODE_COMMENT,                "comment",   { &IID_IXMLDOMNode, &IID_IXMLDOMComment } },
10747     { NODE_DOCUMENT_FRAGMENT,      "fragment",  { &IID_IXMLDOMNode, &IID_IXMLDOMDocumentFragment } },
10748     { NODE_INVALID }
10749 };
10750
10751 static void test_supporterrorinfo(void)
10752 {
10753     static REFIID iids[5] = { &IID_IXMLDOMNode, &IID_IXMLDOMDocument,
10754                               &IID_IXMLDOMDocument2, &IID_IXMLDOMDocument3 };
10755     const supporterror_t *ptr = supporterror_test;
10756     ISupportErrorInfo *errorinfo, *info2;
10757     IXMLDOMSchemaCollection *schemacache;
10758     IXMLDOMNamedNodeMap *map, *map2;
10759     IXMLDOMDocument *doc;
10760     IXMLDOMElement *elem;
10761     VARIANT_BOOL b;
10762     IUnknown *unk;
10763     REFIID *iid;
10764     void *dummy;
10765     HRESULT hr;
10766
10767     if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument3)) return;
10768     doc = create_document_version(60, &IID_IXMLDOMDocument3);
10769
10770     EXPECT_REF(doc, 1);
10771     hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&errorinfo);
10772     EXPECT_HR(hr, S_OK);
10773     EXPECT_REF(doc, 1);
10774     ISupportErrorInfo_AddRef(errorinfo);
10775     EXPECT_REF(errorinfo, 2);
10776     EXPECT_REF(doc, 1);
10777     ISupportErrorInfo_Release(errorinfo);
10778
10779     hr = IXMLDOMDocument_QueryInterface(doc, &IID_ISupportErrorInfo, (void**)&info2);
10780     EXPECT_HR(hr, S_OK);
10781     ok(errorinfo != info2, "got %p, %p\n", info2, errorinfo);
10782
10783     /* error interface can't be queried back for DOM interface */
10784     hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMDocument, &dummy);
10785     EXPECT_HR(hr, E_NOINTERFACE);
10786     hr = ISupportErrorInfo_QueryInterface(info2, &IID_IXMLDOMNode, &dummy);
10787     EXPECT_HR(hr, E_NOINTERFACE);
10788
10789     ISupportErrorInfo_Release(info2);
10790
10791     iid = iids;
10792     while (*iid)
10793     {
10794         hr = IXMLDOMDocument_QueryInterface(doc, *iid, (void**)&unk);
10795         EXPECT_HR(hr, S_OK);
10796         if (hr == S_OK)
10797         {
10798             hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
10799             ok(hr == S_OK, "got 0x%08x for %s\n", hr, debugstr_guid(*iid));
10800             IUnknown_Release(unk);
10801         }
10802
10803         iid++;
10804     }
10805
10806     ISupportErrorInfo_Release(errorinfo);
10807
10808     while (ptr->type != NODE_INVALID)
10809     {
10810         IXMLDOMNode *node;
10811         VARIANT type;
10812
10813         V_VT(&type) = VT_I1;
10814         V_I1(&type) = ptr->type;
10815
10816         hr = IXMLDOMDocument_createNode(doc, type, _bstr_(ptr->name), NULL, &node);
10817         ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
10818
10819         EXPECT_REF(node, 1);
10820         hr = IXMLDOMNode_QueryInterface(node, &IID_ISupportErrorInfo, (void**)&errorinfo);
10821         ok(hr == S_OK, "%d: got 0x%08x\n", ptr->type, hr);
10822         EXPECT_REF(node, 1);
10823
10824         hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNode, &dummy);
10825         ok(hr == E_NOINTERFACE, "%d: got 0x%08x\n", ptr->type, hr);
10826
10827         iid = ptr->iids;
10828
10829         while (*iid)
10830         {
10831             hr = IXMLDOMNode_QueryInterface(node, *iid, (void**)&unk);
10832             if (hr == S_OK)
10833             {
10834                 hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, *iid);
10835                 ok(hr == S_OK, "%d: got 0x%08x for %s\n", ptr->type, hr, debugstr_guid(*iid));
10836                 IUnknown_Release(unk);
10837             }
10838
10839             iid++;
10840         }
10841
10842         ISupportErrorInfo_Release(errorinfo);
10843         IXMLDOMNode_Release(node);
10844         ptr++;
10845     }
10846
10847     /* IXMLDOMNamedNodeMap */
10848     b = VARIANT_FALSE;
10849     hr = IXMLDOMDocument_loadXML(doc, _bstr_(complete4A), &b);
10850     EXPECT_HR(hr, S_OK);
10851     ok(b == VARIANT_TRUE, "got %d\n", b);
10852
10853     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
10854     EXPECT_HR(hr, S_OK);
10855
10856     hr = IXMLDOMElement_get_attributes(elem, &map);
10857     EXPECT_HR(hr, S_OK);
10858
10859     EXPECT_REF(map, 1);
10860     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_ISupportErrorInfo, (void**)&errorinfo);
10861     EXPECT_HR(hr, S_OK);
10862     EXPECT_REF(map, 2);
10863
10864     hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMNamedNodeMap);
10865     EXPECT_HR(hr, S_OK);
10866
10867     hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IXMLDOMNamedNodeMap, (void**)&map2);
10868     EXPECT_HR(hr, S_OK);
10869     ok(map == map2, "got %p\n", map2);
10870     IXMLDOMNamedNodeMap_Release(map2);
10871
10872     EXPECT_REF(errorinfo, 2);
10873     hr = ISupportErrorInfo_QueryInterface(errorinfo, &IID_IUnknown, (void**)&unk);
10874     EXPECT_HR(hr, S_OK);
10875     EXPECT_REF(errorinfo, 3);
10876     EXPECT_REF(map, 3);
10877     IUnknown_Release(unk);
10878
10879     ISupportErrorInfo_Release(errorinfo);
10880     IXMLDOMNamedNodeMap_Release(map);
10881     IXMLDOMElement_Release(elem);
10882
10883     IXMLDOMDocument_Release(doc);
10884
10885     /* IXMLDOMSchemaCollection */
10886     hr = CoCreateInstance(&CLSID_XMLSchemaCache, NULL, CLSCTX_INPROC_SERVER, &IID_IXMLDOMSchemaCollection, (void**)&schemacache);
10887     ok(hr == S_OK, "failed to create schema collection, 0x%08x\n", hr);
10888
10889     hr = IXMLDOMSchemaCollection_QueryInterface(schemacache, &IID_ISupportErrorInfo, (void**)&errorinfo);
10890     ok(hr == S_OK, "got 0x%08x\n", hr);
10891
10892     hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(errorinfo, &IID_IXMLDOMSchemaCollection);
10893     ok(hr == S_OK, "got 0x%08x\n", hr);
10894
10895     ISupportErrorInfo_Release(errorinfo);
10896     IXMLDOMSchemaCollection_Release(schemacache);
10897
10898     free_bstrs();
10899 }
10900
10901 typedef struct {
10902     DOMNodeType type;
10903     const char *name;
10904     const char *put_content;
10905     HRESULT put_hr;
10906     VARTYPE get_vt;
10907     HRESULT get_hr;
10908 } node_value_t;
10909
10910 static const node_value_t nodevalue_test[] = {
10911     { NODE_ELEMENT,                "element",   "",             E_FAIL, VT_NULL, S_FALSE },
10912     { NODE_ATTRIBUTE,              "attr",      "value",        S_OK,   VT_BSTR, S_OK },
10913     { NODE_TEXT,                   "text",      "textdata",     S_OK,   VT_BSTR, S_OK },
10914     { NODE_CDATA_SECTION ,         "cdata",     "cdata data",   S_OK,   VT_BSTR, S_OK },
10915     { NODE_ENTITY_REFERENCE,       "entityref", "ref",          E_FAIL, VT_NULL, S_FALSE },
10916     { NODE_PROCESSING_INSTRUCTION, "pi",        "instr",        S_OK,   VT_BSTR, S_OK },
10917     { NODE_COMMENT,                "comment",   "comment data", S_OK,   VT_BSTR, S_OK },
10918     { NODE_DOCUMENT_FRAGMENT,      "docfrag",   "",             E_FAIL, VT_NULL, S_FALSE },
10919     { NODE_INVALID }
10920 };
10921
10922 static void test_nodeValue(void)
10923 {
10924     const node_value_t *ptr = nodevalue_test;
10925     IXMLDOMDocument *doc;
10926     HRESULT hr;
10927
10928     doc = create_document(&IID_IXMLDOMDocument);
10929
10930     while (ptr->type != NODE_INVALID)
10931     {
10932         IXMLDOMNode *node;
10933         VARIANT v;
10934
10935         V_VT(&v) = VT_I2;
10936         V_I2(&v) = ptr->type;
10937
10938         hr = IXMLDOMDocument_createNode(doc, v, _bstr_(ptr->name), NULL, &node);
10939         ok(hr == S_OK, "failed to create node type %d\n", ptr->type);
10940
10941         hr = IXMLDOMNode_get_nodeValue(node, NULL);
10942         ok(hr == E_INVALIDARG, "%d: got 0x%08x\n", ptr->type, hr);
10943
10944         V_VT(&v) = VT_BSTR;
10945         V_BSTR(&v) = _bstr_(ptr->put_content);
10946         hr = IXMLDOMNode_put_nodeValue(node, v);
10947         ok(hr == ptr->put_hr, "%d: got 0x%08x\n", ptr->type, hr);
10948
10949         V_VT(&v) = VT_EMPTY;
10950         hr = IXMLDOMNode_get_nodeValue(node, &v);
10951         ok(hr == ptr->get_hr, "%d: got 0x%08x, expected 0x%08x\n", ptr->type, hr, ptr->get_hr);
10952         ok(V_VT(&v) == ptr->get_vt, "%d: got %d, expected %d\n", ptr->type, V_VT(&v), ptr->get_vt);
10953         if (hr == S_OK)
10954             ok(!lstrcmpW(V_BSTR(&v), _bstr_(ptr->put_content)), "%d: got %s\n", ptr->type,
10955                 wine_dbgstr_w(V_BSTR(&v)));
10956         VariantClear(&v);
10957
10958         IXMLDOMNode_Release(node);
10959
10960         ptr++;
10961     }
10962
10963     IXMLDOMDocument_Release(doc);
10964 }
10965
10966 static void test_xmlns_attribute(void)
10967 {
10968     BSTR str;
10969     IXMLDOMDocument *doc;
10970     IXMLDOMElement *root;
10971     IXMLDOMAttribute *pAttribute;
10972     IXMLDOMElement *elem;
10973     HRESULT hr;
10974
10975     doc = create_document(&IID_IXMLDOMDocument);
10976
10977     hr = IXMLDOMDocument_createElement(doc, _bstr_("Testing"), &root);
10978     EXPECT_HR(hr, S_OK);
10979
10980     hr = IXMLDOMDocument_appendChild(doc, (IXMLDOMNode*)root, NULL);
10981     EXPECT_HR(hr, S_OK);
10982
10983     str = SysAllocString(szAttribute);
10984     hr = IXMLDOMDocument_createAttribute(doc, _bstr_("xmlns:dt"), &pAttribute);
10985     ok( hr == S_OK, "returns %08x\n", hr );
10986     if(hr == S_OK)
10987     {
10988         VARIANT v;
10989
10990         V_VT(&v) = VT_BSTR;
10991         V_BSTR(&v) = _bstr_("urn:schemas-microsoft-com:datatypes");
10992         hr = IXMLDOMAttribute_put_nodeValue(pAttribute, v);
10993
10994         hr = IXMLDOMElement_setAttributeNode(root, pAttribute, NULL);
10995         ok(hr == S_OK, "ret %08x\n", hr );
10996
10997         hr = IXMLDOMNode_put_dataType((IXMLDOMNode*)root, _bstr_("bin.base64"));
10998         ok(hr == S_OK, "ret %08x\n", hr );
10999
11000         hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11001         EXPECT_HR(hr, S_OK);
11002
11003         hr = IXMLDOMElement_get_xml(elem, &str);
11004         ok( hr == S_OK, "got 0x%08x\n", hr);
11005         todo_wine ok( lstrcmpW(str, _bstr_("<Testing xmlns:dt=\"urn:schemas-microsoft-com:datatypes\" dt:dt=\"bin.base64\"/>")) == 0,
11006         "got %s\n", wine_dbgstr_w(str));
11007         SysFreeString(str);
11008
11009         IXMLDOMElement_Release(elem);
11010         IXMLDOMAttribute_Release( pAttribute);
11011     }
11012
11013     SysFreeString(str);
11014
11015     IXMLDOMDocument_Release(doc);
11016
11017     free_bstrs();
11018 }
11019
11020 static const char namespacesA[] =
11021 "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>"
11022 "   <ns1:elem1 xmlns:ns1=\"http://blah.org\" b='1' >"
11023 "     <ns2:elem2 xmlns:ns2=\"http://blah.org\"/>"
11024 "     <ns1:elem3/>"
11025 "     <ns1:elem4/>"
11026 "     <elem5 xmlns=\"http://blahblah.org\"/>"
11027 "     <ns1:elem6>true</ns1:elem6>"
11028 "   </ns1:elem1>";
11029
11030 static const char xsd_schema1_uri[] = "x-schema:test1.xsd";
11031 static const char xsd_schema1_xml[] =
11032 "<?xml version='1.0'?>"
11033 "<schema xmlns='http://www.w3.org/2001/XMLSchema'"
11034 "            targetNamespace='x-schema:test1.xsd'>"
11035 "   <element name='root'>"
11036 "       <complexType>"
11037 "           <sequence maxOccurs='unbounded'>"
11038 "               <any/>"
11039 "           </sequence>"
11040 "       </complexType>"
11041 "   </element>"
11042 "</schema>";
11043
11044 static void test_get_namespaces(void)
11045 {
11046     IXMLDOMSchemaCollection *collection, *collection2;
11047     IXMLDOMDocument2 *doc, *doc2;
11048     IEnumVARIANT *enumv, *enum2;
11049     IUnknown *unk1, *unk2;
11050     IXMLDOMNode *node;
11051     VARIANT_BOOL b;
11052     HRESULT hr;
11053     VARIANT v;
11054     LONG len;
11055     BSTR s;
11056
11057     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11058     doc = create_document(&IID_IXMLDOMDocument2);
11059
11060     /* null pointer */
11061     hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11062     EXPECT_HR(hr, E_POINTER);
11063
11064     /* no document loaded */
11065     collection = (void*)0xdeadbeef;
11066     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11067     EXPECT_HR(hr, S_OK);
11068     if (hr != S_OK)
11069     {
11070         IXMLDOMDocument2_Release(doc);
11071         return;
11072     }
11073     EXPECT_REF(collection, 2);
11074
11075     collection2 = (void*)0xdeadbeef;
11076     hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11077     EXPECT_HR(hr, S_OK);
11078     ok(collection == collection2, "got %p\n", collection2);
11079     EXPECT_REF(collection, 3);
11080     IXMLDOMSchemaCollection_Release(collection);
11081
11082     len = -1;
11083     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11084     EXPECT_HR(hr, S_OK);
11085     ok(len == 0, "got %d\n", len);
11086     IXMLDOMSchemaCollection_Release(collection);
11087
11088     /* now with document */
11089     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11090     EXPECT_HR(hr, S_OK);
11091
11092     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11093     EXPECT_HR(hr, S_OK);
11094
11095     len = -1;
11096     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11097     EXPECT_HR(hr, S_OK);
11098     ok(len == 2, "got %d\n", len);
11099
11100     /* try to lookup some uris */
11101     node = (void*)0xdeadbeef;
11102     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11103     EXPECT_HR(hr, S_OK);
11104     ok(node == NULL, "got %p\n", node);
11105
11106     node = (void*)0xdeadbeef;
11107     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah1.org"), &node);
11108     EXPECT_HR(hr, S_OK);
11109     ok(node == NULL, "got %p\n", node);
11110
11111     /* load schema and try to add it */
11112     doc2 = create_document(&IID_IXMLDOMDocument2);
11113     hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11114     EXPECT_HR(hr, S_OK);
11115
11116     V_VT(&v) = VT_DISPATCH;
11117     V_DISPATCH(&v) = (IDispatch*)doc2;
11118     hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11119     EXPECT_HR(hr, E_FAIL);
11120
11121     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11122     EXPECT_HR(hr, S_OK);
11123     ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11124     SysFreeString(s);
11125
11126     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11127     EXPECT_HR(hr, S_OK);
11128     ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11129     SysFreeString(s);
11130
11131     s = (void*)0xdeadbeef;
11132     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11133     EXPECT_HR(hr, E_FAIL);
11134     ok(s == (void*)0xdeadbeef, "got %p\n", s);
11135
11136     /* enumerate */
11137     enumv = (void*)0xdeadbeef;
11138     EXPECT_REF(collection, 2);
11139     hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11140     EXPECT_HR(hr, S_OK);
11141     EXPECT_REF(collection, 3);
11142     ok(enumv != NULL, "got %p\n", enumv);
11143
11144     hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IUnknown, (void**)&unk1);
11145     EXPECT_HR(hr, S_OK);
11146     hr = IEnumVARIANT_QueryInterface(enumv, &IID_IUnknown, (void**)&unk2);
11147     EXPECT_HR(hr, S_OK);
11148     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11149     IUnknown_Release(unk1);
11150     IUnknown_Release(unk2);
11151
11152     hr = IXMLDOMSchemaCollection_QueryInterface(collection, &IID_IEnumVARIANT, (void**)&enum2);
11153     EXPECT_HR(hr, E_NOINTERFACE);
11154
11155     V_VT(&v) = VT_EMPTY;
11156     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11157     EXPECT_HR(hr, S_OK);
11158     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11159     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11160     VariantClear(&v);
11161
11162     V_VT(&v) = VT_EMPTY;
11163     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11164     EXPECT_HR(hr, S_OK);
11165     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11166     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11167     VariantClear(&v);
11168
11169     V_VT(&v) = VT_NULL;
11170     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11171     EXPECT_HR(hr, S_FALSE);
11172     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11173
11174     IEnumVARIANT_Release(enumv);
11175     IXMLDOMSchemaCollection_Release(collection);
11176
11177     IXMLDOMDocument2_Release(doc);
11178
11179     /* now with CLSID_DOMDocument60 */
11180     if (!is_clsid_supported(&CLSID_DOMDocument60, &IID_IXMLDOMDocument2)) return;
11181     doc = create_document_version(60, &IID_IXMLDOMDocument2);
11182
11183     /* null pointer */
11184     hr = IXMLDOMDocument2_get_namespaces(doc, NULL);
11185     EXPECT_HR(hr, E_POINTER);
11186
11187     /* no document loaded */
11188     collection = (void*)0xdeadbeef;
11189     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11190     EXPECT_HR(hr, S_OK);
11191     if (hr != S_OK)
11192     {
11193         IXMLDOMDocument2_Release(doc);
11194         return;
11195     }
11196     EXPECT_REF(collection, 2);
11197
11198     collection2 = (void*)0xdeadbeef;
11199     hr = IXMLDOMDocument2_get_namespaces(doc, &collection2);
11200     EXPECT_HR(hr, S_OK);
11201     ok(collection == collection2, "got %p\n", collection2);
11202     EXPECT_REF(collection, 3);
11203     IXMLDOMSchemaCollection_Release(collection);
11204
11205     len = -1;
11206     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11207     EXPECT_HR(hr, S_OK);
11208     ok(len == 0, "got %d\n", len);
11209     IXMLDOMSchemaCollection_Release(collection);
11210
11211     /* now with document */
11212     hr = IXMLDOMDocument2_loadXML(doc, _bstr_(namespacesA), &b);
11213     EXPECT_HR(hr, S_OK);
11214
11215     hr = IXMLDOMDocument2_get_namespaces(doc, &collection);
11216     EXPECT_HR(hr, S_OK);
11217
11218     len = -1;
11219     hr = IXMLDOMSchemaCollection_get_length(collection, &len);
11220     EXPECT_HR(hr, S_OK);
11221     ok(len == 2, "got %d\n", len);
11222
11223     /* try to lookup some uris */
11224     node = (void*)0xdeadbeef;
11225     hr = IXMLDOMSchemaCollection_get(collection, _bstr_("http://blah.org"), &node);
11226     EXPECT_HR(hr, E_NOTIMPL);
11227     ok(node == (void*)0xdeadbeef, "got %p\n", node);
11228
11229     /* load schema and try to add it */
11230     doc2 = create_document(&IID_IXMLDOMDocument2);
11231     hr = IXMLDOMDocument2_loadXML(doc2, _bstr_(xsd_schema1_xml), &b);
11232     EXPECT_HR(hr, S_OK);
11233
11234     V_VT(&v) = VT_DISPATCH;
11235     V_DISPATCH(&v) = (IDispatch*)doc2;
11236     hr = IXMLDOMSchemaCollection_add(collection, _bstr_(xsd_schema1_uri), v);
11237     EXPECT_HR(hr, E_FAIL);
11238     IXMLDOMDocument2_Release(doc2);
11239
11240     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 0, &s);
11241     EXPECT_HR(hr, S_OK);
11242     ok(!lstrcmpW(s, _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(s));
11243     SysFreeString(s);
11244
11245     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 1, &s);
11246     EXPECT_HR(hr, S_OK);
11247     ok(!lstrcmpW(s, _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(s));
11248     SysFreeString(s);
11249
11250     s = (void*)0xdeadbeef;
11251     hr = IXMLDOMSchemaCollection_get_namespaceURI(collection, 2, &s);
11252     EXPECT_HR(hr, E_FAIL);
11253     ok(s == (void*)0xdeadbeef, "got %p\n", s);
11254
11255     /* enumerate */
11256     enumv = (void*)0xdeadbeef;
11257     hr = IXMLDOMSchemaCollection_get__newEnum(collection, (IUnknown**)&enumv);
11258     EXPECT_HR(hr, S_OK);
11259     ok(enumv != NULL, "got %p\n", enumv);
11260
11261     V_VT(&v) = VT_EMPTY;
11262     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11263     EXPECT_HR(hr, S_OK);
11264     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11265     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11266     VariantClear(&v);
11267
11268     V_VT(&v) = VT_EMPTY;
11269     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11270     EXPECT_HR(hr, S_OK);
11271     ok(V_VT(&v) == VT_BSTR, "got %d\n", V_VT(&v));
11272     ok(!lstrcmpW(V_BSTR(&v), _bstr_("http://blahblah.org")), "got %s\n", wine_dbgstr_w(V_BSTR(&v)));
11273     VariantClear(&v);
11274
11275     V_VT(&v) = VT_NULL;
11276     hr = IEnumVARIANT_Next(enumv, 1, &v, NULL);
11277     EXPECT_HR(hr, S_FALSE);
11278     ok(V_VT(&v) == VT_EMPTY, "got %d\n", V_VT(&v));
11279
11280     IEnumVARIANT_Release(enumv);
11281     IXMLDOMSchemaCollection_Release(collection);
11282     IXMLDOMDocument2_Release(doc);
11283     free_bstrs();
11284 }
11285
11286 static DOMNodeType put_data_types[] = {
11287     NODE_TEXT,
11288     NODE_CDATA_SECTION,
11289     NODE_PROCESSING_INSTRUCTION,
11290     NODE_COMMENT,
11291     NODE_INVALID
11292 };
11293
11294 static void test_put_data(void)
11295 {
11296     static const WCHAR test_data[] = {'t','e','s','t',' ','n','o','d','e',' ','d','a','t','a',0};
11297     WCHAR buff[100], *data;
11298     IXMLDOMDocument *doc;
11299     DOMNodeType *type;
11300     IXMLDOMText *text;
11301     IXMLDOMNode *node;
11302     VARIANT v;
11303     BSTR get_data;
11304     HRESULT hr;
11305
11306     doc = create_document(&IID_IXMLDOMDocument);
11307
11308     memcpy(&buff[2], test_data, sizeof(test_data));
11309     /* just a big length */
11310     *(DWORD*)buff = 0xf0f0;
11311     data = &buff[2];
11312
11313     type = put_data_types;
11314     while (*type != NODE_INVALID)
11315     {
11316        V_VT(&v) = VT_I2;
11317        V_I2(&v) = *type;
11318
11319        hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11320        EXPECT_HR(hr, S_OK);
11321
11322        /* put_data() is interface-specific */
11323        switch (*type)
11324        {
11325            case NODE_TEXT:
11326            {
11327               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11328               EXPECT_HR(hr, S_OK);
11329               hr = IXMLDOMText_put_data(text, data);
11330               EXPECT_HR(hr, S_OK);
11331
11332               hr = IXMLDOMText_get_data(text, &get_data);
11333               EXPECT_HR(hr, S_OK);
11334
11335               IXMLDOMText_Release(text);
11336               break;
11337            }
11338            case NODE_CDATA_SECTION:
11339            {
11340               IXMLDOMCDATASection *cdata;
11341
11342               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMCDATASection, (void**)&cdata);
11343               EXPECT_HR(hr, S_OK);
11344               hr = IXMLDOMCDATASection_put_data(cdata, data);
11345               EXPECT_HR(hr, S_OK);
11346
11347               hr = IXMLDOMCDATASection_get_data(cdata, &get_data);
11348               EXPECT_HR(hr, S_OK);
11349
11350               IXMLDOMCDATASection_Release(cdata);
11351               break;
11352            }
11353            case NODE_PROCESSING_INSTRUCTION:
11354            {
11355               IXMLDOMProcessingInstruction *pi;
11356
11357               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMProcessingInstruction, (void**)&pi);
11358               EXPECT_HR(hr, S_OK);
11359               hr = IXMLDOMProcessingInstruction_put_data(pi, data);
11360               EXPECT_HR(hr, S_OK);
11361
11362               hr = IXMLDOMProcessingInstruction_get_data(pi, &get_data);
11363               EXPECT_HR(hr, S_OK);
11364
11365               IXMLDOMProcessingInstruction_Release(pi);
11366               break;
11367            }
11368            case NODE_COMMENT:
11369            {
11370               IXMLDOMComment *comment;
11371
11372               hr = IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMComment, (void**)&comment);
11373               EXPECT_HR(hr, S_OK);
11374               hr = IXMLDOMComment_put_data(comment, data);
11375               EXPECT_HR(hr, S_OK);
11376
11377               hr = IXMLDOMComment_get_data(comment, &get_data);
11378               EXPECT_HR(hr, S_OK);
11379
11380               IXMLDOMComment_Release(comment);
11381               break;
11382            }
11383            default:
11384               break;
11385        }
11386
11387        /* compare */
11388        ok(!lstrcmpW(data, get_data), "%d: got wrong data %s, expected %s\n", *type, wine_dbgstr_w(get_data),
11389            wine_dbgstr_w(data));
11390        SysFreeString(get_data);
11391
11392        IXMLDOMNode_Release(node);
11393        type++;
11394     }
11395
11396     /* \r\n sequence is never escaped */
11397     V_VT(&v) = VT_I2;
11398     V_I2(&v) = NODE_TEXT;
11399
11400     hr = IXMLDOMDocument_createNode(doc, v, _bstr_("name"), NULL, &node);
11401     ok(hr == S_OK, "got 0x%08x\n", hr);
11402
11403     IXMLDOMNode_QueryInterface(node, &IID_IXMLDOMText, (void**)&text);
11404
11405     hr = IXMLDOMText_put_data(text, _bstr_("\r\n"));
11406     ok(hr == S_OK, "got 0x%08x\n", hr);
11407
11408     hr = IXMLDOMText_get_data(text, &get_data);
11409     ok(hr == S_OK, "got 0x%08x\n", hr);
11410 todo_wine
11411     ok(!lstrcmpW(get_data, _bstr_("\n")), "got %s\n", wine_dbgstr_w(get_data));
11412     SysFreeString(get_data);
11413
11414     hr = IXMLDOMText_get_xml(text, &get_data);
11415     ok(hr == S_OK, "got 0x%08x\n", hr);
11416     ok(!lstrcmpW(get_data, _bstr_("\r\n")), "got %s\n", wine_dbgstr_w(get_data));
11417     SysFreeString(get_data);
11418
11419     IXMLDOMText_Release(text);
11420     IXMLDOMNode_Release(node);
11421
11422     IXMLDOMDocument_Release(doc);
11423     free_bstrs();
11424 }
11425
11426 static void test_putref_schemas(void)
11427 {
11428     IXMLDOMSchemaCollection *cache;
11429     IXMLDOMDocument2 *doc;
11430     VARIANT schema;
11431     HRESULT hr;
11432
11433     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument2)) return;
11434     if (!is_clsid_supported(&CLSID_XMLSchemaCache, &IID_IXMLDOMSchemaCollection)) return;
11435
11436     doc = create_document(&IID_IXMLDOMDocument2);
11437     cache = create_cache(&IID_IXMLDOMSchemaCollection);
11438
11439     /* set to NULL iface when no schema is set */
11440     V_VT(&schema) = VT_DISPATCH;
11441     V_DISPATCH(&schema) = NULL;
11442     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11443     EXPECT_HR(hr, S_OK);
11444
11445     V_VT(&schema) = VT_UNKNOWN;
11446     V_UNKNOWN(&schema) = NULL;
11447     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11448     EXPECT_HR(hr, S_OK);
11449
11450     /* set as VT_DISPATCH, reset with it */
11451     V_VT(&schema) = VT_DISPATCH;
11452     V_DISPATCH(&schema) = (IDispatch*)cache;
11453     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11454     EXPECT_HR(hr, S_OK);
11455
11456     V_DISPATCH(&schema) = NULL;
11457     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11458     EXPECT_HR(hr, S_OK);
11459     ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11460
11461     V_VT(&schema) = VT_DISPATCH;
11462     V_DISPATCH(&schema) = NULL;
11463     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11464     EXPECT_HR(hr, S_OK);
11465
11466     V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11467     V_VT(&schema) = VT_I2;
11468     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11469     EXPECT_HR(hr, S_FALSE);
11470     ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11471     ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11472
11473     /* set as VT_UNKNOWN, reset with it */
11474     V_VT(&schema) = VT_UNKNOWN;
11475     V_UNKNOWN(&schema) = (IUnknown*)cache;
11476     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11477     EXPECT_HR(hr, S_OK);
11478
11479     V_DISPATCH(&schema) = NULL;
11480     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11481     EXPECT_HR(hr, S_OK);
11482     ok(V_DISPATCH(&schema) == (IDispatch*)cache, "got %p\n", V_DISPATCH(&schema));
11483
11484     V_VT(&schema) = VT_UNKNOWN;
11485     V_UNKNOWN(&schema) = NULL;
11486     hr = IXMLDOMDocument2_putref_schemas(doc, schema);
11487     EXPECT_HR(hr, S_OK);
11488
11489     V_DISPATCH(&schema) = (IDispatch*)0xdeadbeef;
11490     V_VT(&schema) = VT_I2;
11491     hr = IXMLDOMDocument2_get_schemas(doc, &schema);
11492     EXPECT_HR(hr, S_FALSE);
11493     ok(V_DISPATCH(&schema) == NULL, "got %p\n", V_DISPATCH(&schema));
11494     ok(V_VT(&schema) == VT_NULL, "got %d\n", V_VT(&schema));
11495
11496     IXMLDOMSchemaCollection_Release(cache);
11497     IXMLDOMDocument2_Release(doc);
11498 }
11499
11500 static void test_namedmap_newenum(void)
11501 {
11502     IEnumVARIANT *enum1, *enum2, *enum3;
11503     IXMLDOMNamedNodeMap *map;
11504     IUnknown *unk1, *unk2;
11505     IXMLDOMDocument *doc;
11506     IXMLDOMElement *elem;
11507     IXMLDOMNode *node;
11508     VARIANT_BOOL b;
11509     HRESULT hr;
11510     VARIANT v;
11511     BSTR str;
11512
11513     doc = create_document(&IID_IXMLDOMDocument);
11514
11515     hr = IXMLDOMDocument_loadXML(doc, _bstr_(attributes_map), &b);
11516     EXPECT_HR(hr, S_OK);
11517
11518     hr = IXMLDOMDocument_get_documentElement(doc, &elem);
11519     EXPECT_HR(hr, S_OK);
11520
11521     hr = IXMLDOMElement_get_attributes(elem, &map);
11522     EXPECT_HR(hr, S_OK);
11523     IXMLDOMElement_Release(elem);
11524
11525     enum1 = NULL;
11526     EXPECT_REF(map, 1);
11527     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum1);
11528     EXPECT_HR(hr, S_OK);
11529     ok(enum1 != NULL, "got %p\n", enum1);
11530     EXPECT_REF(map, 1);
11531     EXPECT_REF(enum1, 2);
11532
11533     enum2 = NULL;
11534     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IEnumVARIANT, (void**)&enum2);
11535     EXPECT_HR(hr, S_OK);
11536     ok(enum2 == enum1, "got %p\n", enum2);
11537
11538     IEnumVARIANT_Release(enum2);
11539
11540     EXPECT_REF(map, 1);
11541     hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum2);
11542     EXPECT_HR(hr, S_OK);
11543     EXPECT_REF(map, 2);
11544     EXPECT_REF(enum2, 1);
11545     ok(enum2 != enum1, "got %p, %p\n", enum2, enum1);
11546
11547     IEnumVARIANT_Release(enum1);
11548
11549     /* enumerator created with _newEnum() doesn't share IUnknown* with main object */
11550     hr = IXMLDOMNamedNodeMap_QueryInterface(map, &IID_IUnknown, (void**)&unk1);
11551     EXPECT_HR(hr, S_OK);
11552     hr = IEnumVARIANT_QueryInterface(enum2, &IID_IUnknown, (void**)&unk2);
11553     EXPECT_HR(hr, S_OK);
11554     EXPECT_REF(map, 3);
11555     EXPECT_REF(enum2, 2);
11556     ok(unk1 != unk2, "got %p, %p\n", unk1, unk2);
11557     IUnknown_Release(unk1);
11558     IUnknown_Release(unk2);
11559
11560     hr = IXMLDOMNamedNodeMap__newEnum(map, (IUnknown**)&enum3);
11561     EXPECT_HR(hr, S_OK);
11562     ok(enum2 != enum3, "got %p, %p\n", enum2, enum3);
11563     IEnumVARIANT_Release(enum3);
11564
11565     /* iteration tests */
11566     hr = IXMLDOMNamedNodeMap_get_item(map, 0, &node);
11567     EXPECT_HR(hr, S_OK);
11568     hr = IXMLDOMNode_get_nodeName(node, &str);
11569     EXPECT_HR(hr, S_OK);
11570     ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11571     SysFreeString(str);
11572     IXMLDOMNode_Release(node);
11573
11574     hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11575     EXPECT_HR(hr, S_OK);
11576     hr = IXMLDOMNode_get_nodeName(node, &str);
11577     EXPECT_HR(hr, S_OK);
11578     ok(!lstrcmpW(str, _bstr_("attr1")), "got %s\n", wine_dbgstr_w(str));
11579     SysFreeString(str);
11580     IXMLDOMNode_Release(node);
11581
11582     V_VT(&v) = VT_EMPTY;
11583     hr = IEnumVARIANT_Next(enum2, 1, &v, NULL);
11584     EXPECT_HR(hr, S_OK);
11585     ok(V_VT(&v) == VT_DISPATCH, "got var type %d\n", V_VT(&v));
11586     hr = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IXMLDOMNode, (void**)&node);
11587     EXPECT_HR(hr, S_OK);
11588     hr = IXMLDOMNode_get_nodeName(node, &str);
11589     EXPECT_HR(hr, S_OK);
11590     ok(!lstrcmpW(str, _bstr_("attr1")), "got node name %s\n", wine_dbgstr_w(str));
11591     SysFreeString(str);
11592     IXMLDOMNode_Release(node);
11593     VariantClear(&v);
11594
11595     hr = IXMLDOMNamedNodeMap_nextNode(map, &node);
11596     EXPECT_HR(hr, S_OK);
11597     hr = IXMLDOMNode_get_nodeName(node, &str);
11598     EXPECT_HR(hr, S_OK);
11599     ok(!lstrcmpW(str, _bstr_("attr2")), "got %s\n", wine_dbgstr_w(str));
11600     SysFreeString(str);
11601     IXMLDOMNode_Release(node);
11602
11603     IEnumVARIANT_Release(enum2);
11604     IXMLDOMNamedNodeMap_Release(map);
11605     IXMLDOMDocument_Release(doc);
11606 }
11607
11608 static const char xsltext_xsl[] =
11609 "<?xml version=\"1.0\"?>"
11610 "<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" >"
11611 "<xsl:output method=\"html\" encoding=\"us-ascii\"/>"
11612 "<xsl:template match=\"/\">"
11613 "    <xsl:choose>"
11614 "        <xsl:when test=\"testkey\">"
11615 "            <xsl:text>testdata</xsl:text>"
11616 "        </xsl:when>"
11617 "    </xsl:choose>"
11618 "</xsl:template>"
11619 "</xsl:stylesheet>";
11620
11621 static void test_xsltext(void)
11622 {
11623     IXMLDOMDocument *doc, *doc2;
11624     VARIANT_BOOL b;
11625     HRESULT hr;
11626     BSTR ret;
11627
11628     doc = create_document(&IID_IXMLDOMDocument);
11629     doc2 = create_document(&IID_IXMLDOMDocument);
11630
11631     hr = IXMLDOMDocument_loadXML(doc, _bstr_(xsltext_xsl), &b);
11632     EXPECT_HR(hr, S_OK);
11633
11634     hr = IXMLDOMDocument_loadXML(doc2, _bstr_("<testkey/>"), &b);
11635     EXPECT_HR(hr, S_OK);
11636
11637     hr = IXMLDOMDocument_transformNode(doc2, (IXMLDOMNode*)doc, &ret);
11638     EXPECT_HR(hr, S_OK);
11639     ok(!lstrcmpW(ret, _bstr_("testdata")), "transform result %s\n", wine_dbgstr_w(ret));
11640     SysFreeString(ret);
11641
11642     IXMLDOMDocument_Release(doc2);
11643     IXMLDOMDocument_Release(doc);
11644     free_bstrs();
11645 }
11646
11647 struct attrtest_t {
11648     const char *name;
11649     const char *uri;
11650     const char *prefix;
11651     const char *href;
11652 };
11653
11654 static struct attrtest_t attrtests[] = {
11655     { "xmlns", "http://www.w3.org/2000/xmlns/", "xmlns", "xmlns" },
11656     { "xmlns", "nondefaulturi", "xmlns", "xmlns" },
11657     { "c", "http://www.w3.org/2000/xmlns/", NULL, "http://www.w3.org/2000/xmlns/" },
11658     { "c", "nsref1", NULL, "nsref1" },
11659     { "ns:c", "nsref1", "ns", "nsref1" },
11660     { "xmlns:c", "http://www.w3.org/2000/xmlns/", "xmlns", "" },
11661     { "xmlns:c", "nondefaulturi", "xmlns", "" },
11662     { 0 }
11663 };
11664
11665 static void test_create_attribute(void)
11666 {
11667     struct attrtest_t *ptr = attrtests;
11668     IXMLDOMElement *el;
11669     IXMLDOMDocument *doc;
11670     IXMLDOMNode *node, *node2;
11671     VARIANT var;
11672     HRESULT hr;
11673     int i = 0;
11674     BSTR str;
11675
11676     doc = create_document(&IID_IXMLDOMDocument);
11677
11678     while (ptr->name)
11679     {
11680         V_VT(&var) = VT_I1;
11681         V_I1(&var) = NODE_ATTRIBUTE;
11682         hr = IXMLDOMDocument_createNode(doc, var, _bstr_(ptr->name), _bstr_(ptr->uri), &node);
11683         ok(hr == S_OK, "got 0x%08x\n", hr);
11684
11685         str = NULL;
11686         hr = IXMLDOMNode_get_prefix(node, &str);
11687         if (ptr->prefix)
11688         {
11689             ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
11690             ok(!lstrcmpW(str, _bstr_(ptr->prefix)), "%d: got prefix %s, expected %s\n", i, wine_dbgstr_w(str), ptr->prefix);
11691         }
11692         else
11693         {
11694             ok(hr == S_FALSE, "%d: got 0x%08x\n", i, hr);
11695             ok(str == NULL, "%d: got prefix %s\n", i, wine_dbgstr_w(str));
11696         }
11697
11698         str = NULL;
11699         hr = IXMLDOMNode_get_namespaceURI(node, &str);
11700         ok(hr == S_OK, "%d: got 0x%08x\n", i, hr);
11701         ok(!lstrcmpW(str, _bstr_(ptr->href)), "%d: got uri %s, expected %s\n", i, wine_dbgstr_w(str), ptr->href);
11702         SysFreeString(str);
11703
11704         IXMLDOMNode_Release(node);
11705         free_bstrs();
11706
11707         i++;
11708         ptr++;
11709     }
11710
11711     V_VT(&var) = VT_I1;
11712     V_I1(&var) = NODE_ELEMENT;
11713     hr = IXMLDOMDocument_createNode(doc, var, _bstr_("e"), NULL, &node2);
11714     ok(hr == S_OK, "got 0x%08x\n", hr);
11715
11716     hr = IXMLDOMNode_QueryInterface(node2, &IID_IXMLDOMElement, (void**)&el);
11717     ok(hr == S_OK, "got 0x%08x\n", hr);
11718     IXMLDOMNode_Release(node2);
11719
11720     V_VT(&var) = VT_I1;
11721     V_I1(&var) = NODE_ATTRIBUTE;
11722     hr = IXMLDOMDocument_createNode(doc, var, _bstr_("xmlns:a"), _bstr_("http://www.w3.org/2000/xmlns/"), &node);
11723     ok(hr == S_OK, "got 0x%08x\n", hr);
11724
11725     hr = IXMLDOMElement_setAttributeNode(el, (IXMLDOMAttribute*)node, NULL);
11726     ok(hr == S_OK, "got 0x%08x\n", hr);
11727
11728     /* for some reason default namespace uri is not reported */
11729     hr = IXMLDOMNode_get_namespaceURI(node, &str);
11730     ok(hr == S_OK, "got 0x%08x\n", hr);
11731     ok(!lstrcmpW(str, _bstr_("")), "got uri %s\n", wine_dbgstr_w(str));
11732     SysFreeString(str);
11733
11734     IXMLDOMNode_Release(node);
11735     IXMLDOMElement_Release(el);
11736     IXMLDOMDocument_Release(doc);
11737     free_bstrs();
11738 }
11739
11740 START_TEST(domdoc)
11741 {
11742     HRESULT hr;
11743
11744     hr = CoInitialize( NULL );
11745     ok( hr == S_OK, "failed to init com\n");
11746     if (hr != S_OK) return;
11747
11748     get_class_support_data(domdoc_support_data);
11749     if (!is_clsid_supported(&CLSID_DOMDocument2, &IID_IXMLDOMDocument))
11750     {
11751         win_skip("DOMDocument2 is not supported. Skipping all tests.\n");
11752         CoUninitialize();
11753         return;
11754     }
11755
11756     test_domdoc();
11757     test_persiststreaminit();
11758     test_domnode();
11759     test_refs();
11760     test_create();
11761     test_getElementsByTagName();
11762     test_get_text();
11763     test_get_childNodes();
11764     test_get_firstChild();
11765     test_get_lastChild();
11766     test_removeChild();
11767     test_replaceChild();
11768     test_removeNamedItem();
11769     test_IXMLDOMDocument2();
11770     test_whitespace();
11771     test_XPath();
11772     test_XSLPattern();
11773     test_cloneNode();
11774     test_xmlTypes();
11775     test_save();
11776     test_testTransforms();
11777     test_namespaces_basic();
11778     test_namespaces_change();
11779     test_FormattingXML();
11780     test_nodeTypedValue();
11781     test_TransformWithLoadingLocalFile();
11782     test_put_nodeValue();
11783     test_IObjectSafety();
11784     test_splitText();
11785     test_getQualifiedItem();
11786     test_removeQualifiedItem();
11787     test_get_ownerDocument();
11788     test_setAttributeNode();
11789     test_put_dataType();
11790     test_createNode();
11791     test_create_attribute();
11792     test_get_prefix();
11793     test_default_properties();
11794     test_selectSingleNode();
11795     test_events();
11796     test_createProcessingInstruction();
11797     test_put_nodeTypedValue();
11798     test_get_xml();
11799     test_insertBefore();
11800     test_appendChild();
11801     test_get_doctype();
11802     test_get_tagName();
11803     test_get_dataType();
11804     test_get_nodeTypeString();
11805     test_get_attributes();
11806     test_selection();
11807     test_load();
11808     test_dispex();
11809     test_parseerror();
11810     test_getAttributeNode();
11811     test_supporterrorinfo();
11812     test_nodeValue();
11813     test_get_namespaces();
11814     test_put_data();
11815     test_putref_schemas();
11816     test_namedmap_newenum();
11817     test_xmlns_attribute();
11818
11819     test_xsltemplate();
11820     test_xsltext();
11821
11822     if (is_clsid_supported(&CLSID_MXNamespaceManager40, &IID_IMXNamespaceManager))
11823     {
11824         test_mxnamespacemanager();
11825         test_mxnamespacemanager_override();
11826     }
11827
11828     CoUninitialize();
11829 }