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

   1 /*
   2  * XML test
   3  *
   4  * Copyright 2005 Mike McCormack for CodeWeavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21
  22 #define COBJMACROS
  23
  24 #include "windows.h"
  25 #include "ole2.h"
  26 #include "msxml2.h"
  27 #include <stdio.h>
  28
  29 #include "wine/test.h"
  30
  31 static const WCHAR szEmpty[] = { 0 };
  32 static const WCHAR szIncomplete[] = {
  33     '<','?','x','m','l',' ',
  34     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
  35 };
  36 static const WCHAR szComplete1[] = {
  37     '<','?','x','m','l',' ',
  38     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  39     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
  40 };
  41 static const WCHAR szComplete2[] = {
  42     '<','?','x','m','l',' ',
  43     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  44     '<','o','>','<','/','o','>','\n',0
  45 };
  46 static const WCHAR szComplete3[] = {
  47     '<','?','x','m','l',' ',
  48     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  49     '<','a','>','<','/','a','>','\n',0
  50 };
  51 static const WCHAR szComplete4[] = {
  52     '<','?','x','m','l',' ','v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  53     '<','l','c',' ','d','l','=','\'','s','t','r','1','\'','>','\n',
  54         '<','b','s',' ','v','r','=','\'','s','t','r','2','\'',' ','s','z','=','\'','1','2','3','4','\'','>',
  55             'f','n','1','.','t','x','t','\n',
  56         '<','/','b','s','>','\n',
  57         '<','p','r',' ','i','d','=','\'','s','t','r','3','\'',' ','v','r','=','\'','1','.','2','.','3','\'',' ',
  58                     'p','n','=','\'','w','i','n','e',' ','2','0','0','5','0','8','0','4','\'','>','\n',
  59             'f','n','2','.','t','x','t','\n',
  60         '<','/','p','r','>','\n',
  61         '<','e','m','p','t','y','>','<','/','e','m','p','t','y','>','\n',
  62     '<','/','l','c','>','\n',0
  63 };
  64 static const WCHAR szComplete5[] = {
  65     '<','S',':','s','e','a','r','c','h',' ','x','m','l','n','s',':','D','=','"','D','A','V',':','"',' ',
  66     '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','"',
  67     ' ','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','"','>',
  68         '<','S',':','s','c','o','p','e','>',
  69             '<','S',':','d','e','e','p','>','/','<','/','S',':','d','e','e','p','>',
  70         '<','/','S',':','s','c','o','p','e','>',
  71         '<','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
  72             '<','C',':','t','e','x','t','o','r','p','r','o','p','e','r','t','y','/','>',
  73             'c','o','m','p','u','t','e','r',
  74         '<','/','S',':','c','o','n','t','e','n','t','f','r','e','e','t','e','x','t','>',
  75     '<','/','S',':','s','e','a','r','c','h','>',0
  76 };
  77
  78 static const WCHAR szNonExistentFile[] = {
  79     'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
  80 };
  81 static const WCHAR szDocument[] = {
  82     '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
  83 };
  84
  85 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
  86 static const WCHAR szdl[] = { 'd','l',0 };
  87 static const WCHAR szvr[] = { 'v','r',0 };
  88 static const WCHAR szlc[] = { 'l','c',0 };
  89 static const WCHAR szbs[] = { 'b','s',0 };
  90 static const WCHAR szstr1[] = { 's','t','r','1',0 };
  91 static const WCHAR szstr2[] = { 's','t','r','2',0 };
  92 static const WCHAR szstar[] = { '*',0 };
  93 static const WCHAR szfn1_txt[] = {'f','n','1','.','t','x','t',0};
  94
  95 void test_domdoc( void )
  96 {
  97     HRESULT r;
  98     IXMLDOMDocument *doc = NULL;
  99     IXMLDOMParseError *error;
 100     IXMLDOMElement *element = NULL;
 101     VARIANT_BOOL b;
 102     VARIANT var;
 103     BSTR str;
 104     long code;
 105
 106     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 107         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 108     if( r != S_OK )
 109         return;
 110
 111     /* try some stupid things */
 112     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
 113     ok( r == S_FALSE, "loadXML failed\n");
 114
 115     b = VARIANT_TRUE;
 116     r = IXMLDOMDocument_loadXML( doc, NULL, &b );
 117     ok( r == S_FALSE, "loadXML failed\n");
 118     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 119
 120     /* try to load a document from a nonexistent file */
 121     b = VARIANT_TRUE;
 122     str = SysAllocString( szNonExistentFile );
 123     VariantInit(&var);
 124     V_VT(&var) = VT_BSTR;
 125     V_BSTR(&var) = str;
 126
 127     r = IXMLDOMDocument_load( doc, var, &b);
 128     ok( r == S_FALSE, "load (from file) failed\n");
 129     ok( b == VARIANT_FALSE, "failed to load XML file\n");
 130     SysFreeString( str );
 131
 132     /* try load an empty document */
 133     b = VARIANT_TRUE;
 134     str = SysAllocString( szEmpty );
 135     r = IXMLDOMDocument_loadXML( doc, str, &b );
 136     ok( r == S_FALSE, "loadXML failed\n");
 137     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 138     SysFreeString( str );
 139
 140     /* check that there's no document element */
 141     element = NULL;
 142     r = IXMLDOMDocument_get_documentElement( doc, &element );
 143     ok( r == S_FALSE, "should be no document element\n");
 144
 145     b = VARIANT_TRUE;
 146     str = SysAllocString( szIncomplete );
 147     r = IXMLDOMDocument_loadXML( doc, str, &b );
 148     ok( r == S_FALSE, "loadXML failed\n");
 149     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 150     SysFreeString( str );
 151
 152     /* check that there's no document element */
 153     element = (IXMLDOMElement*)1;
 154     r = IXMLDOMDocument_get_documentElement( doc, &element );
 155     ok( r == S_FALSE, "should be no document element\n");
 156     ok( element == NULL, "Element should be NULL\n");
 157
 158     /* try to load something valid */
 159     b = VARIANT_FALSE;
 160     str = SysAllocString( szComplete1 );
 161     r = IXMLDOMDocument_loadXML( doc, str, &b );
 162     ok( r == S_OK, "loadXML failed\n");
 163     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 164     SysFreeString( str );
 165
 166     /* try with a null out pointer - crashes */
 167     if (0)
 168     {
 169         r = IXMLDOMDocument_get_documentElement( doc, NULL );
 170         ok( r == S_OK, "should be no document element\n");
 171     }
 172
 173     /* check if nodename is correct */
 174     r = IXMLDOMDocument_get_nodeName( doc, NULL );
 175     ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
 176
 177     /* content doesn't matter here */
 178     str = SysAllocString( szNonExistentFile );
 179     r = IXMLDOMDocument_get_nodeName( doc, &str );
 180     ok ( r == S_OK, "get_nodeName wrong code\n");
 181     ok ( str != NULL, "str is null\n");
 182     ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
 183     SysFreeString( str );
 184
 185
 186     /* check that there's a document element */
 187     element = NULL;
 188     r = IXMLDOMDocument_get_documentElement( doc, &element );
 189     ok( r == S_OK, "should be a document element\n");
 190     if( element )
 191     {
 192         BSTR tag = NULL;
 193
 194         /* check if the tag is correct */
 195         r = IXMLDOMElement_get_tagName( element, &tag );
 196         ok( r == S_OK, "couldn't get tag name\n");
 197         ok( tag != NULL, "tag was null\n");
 198         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
 199         SysFreeString( tag );
 200
 201         /* figure out what happens if we try to reload the document */
 202         str = SysAllocString( szComplete2 );
 203         r = IXMLDOMDocument_loadXML( doc, str, &b );
 204         ok( r == S_OK, "loadXML failed\n");
 205         ok( b == VARIANT_TRUE, "failed to load XML string\n");
 206         SysFreeString( str );
 207
 208         /* check if the tag is still correct */
 209         tag = NULL;
 210         r = IXMLDOMElement_get_tagName( element, &tag );
 211         ok( r == S_OK, "couldn't get tag name\n");
 212         ok( tag != NULL, "tag was null\n");
 213         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
 214         SysFreeString( tag );
 215
 216         IXMLDOMElement_Release( element );
 217         element = NULL;
 218     }
 219
 220     /* as soon as we call loadXML again, the document element will disappear */
 221     b = 2;
 222     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
 223     ok( r == S_FALSE, "loadXML failed\n");
 224     ok( b == 2, "variant modified\n");
 225     r = IXMLDOMDocument_get_documentElement( doc, &element );
 226     ok( r == S_FALSE, "should be no document element\n");
 227
 228     /* try to load something else simple and valid */
 229     b = VARIANT_FALSE;
 230     str = SysAllocString( szComplete3 );
 231     r = IXMLDOMDocument_loadXML( doc, str, &b );
 232     ok( r == S_OK, "loadXML failed\n");
 233     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 234     SysFreeString( str );
 235
 236     /* try something a little more complicated */
 237     b = FALSE;
 238     str = SysAllocString( szComplete4 );
 239     r = IXMLDOMDocument_loadXML( doc, str, &b );
 240     ok( r == S_OK, "loadXML failed\n");
 241     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 242     SysFreeString( str );
 243
 244     r = IXMLDOMDocument_get_parseError( doc, &error );
 245     ok( r == S_OK, "returns %08lx\n", r );
 246
 247     r = IXMLDOMParseError_get_errorCode( error, &code );
 248     ok( r == S_FALSE, "returns %08lx\n", r );
 249     ok( code == 0, "code %ld\n", code );
 250     IXMLDOMParseError_Release( error );
 251
 252     r = IXMLDOMDocument_Release( doc );
 253     ok( r == 0, "document ref count incorrect\n");
 254
 255 }
 256
 257 void test_domnode( void )
 258 {
 259     HRESULT r;
 260     IXMLDOMDocument *doc = NULL, *owner = NULL;
 261     IXMLDOMElement *element = NULL;
 262     IXMLDOMNamedNodeMap *map = NULL;
 263     IXMLDOMNode *node = NULL, *next = NULL;
 264     IXMLDOMNodeList *list = NULL;
 265     DOMNodeType type = NODE_INVALID;
 266     VARIANT_BOOL b;
 267     BSTR str;
 268     VARIANT var;
 269     long count;
 270
 271     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 272         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 273     if( r != S_OK )
 274         return;
 275
 276     b = FALSE;
 277     str = SysAllocString( szComplete4 );
 278     r = IXMLDOMDocument_loadXML( doc, str, &b );
 279     ok( r == S_OK, "loadXML failed\n");
 280     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 281     SysFreeString( str );
 282
 283     if (doc)
 284     {
 285         b = 1;
 286         r = IXMLDOMNode_hasChildNodes( doc, &b );
 287         ok( r == S_OK, "hasChildNoes bad return\n");
 288         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 289
 290         r = IXMLDOMDocument_get_documentElement( doc, &element );
 291         ok( r == S_OK, "should be a document element\n");
 292         ok( element != NULL, "should be an element\n");
 293     }
 294     else
 295         ok( FALSE, "no document\n");
 296
 297     VariantInit(&var);
 298     ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
 299     r = IXMLDOMNode_get_nodeValue( doc, &var );
 300     ok( r == S_FALSE, "nextNode returned wrong code\n");
 301     ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
 302     ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
 303
 304     if (element)
 305     {
 306         owner = NULL;
 307         r = IXMLDOMNode_get_ownerDocument( element, &owner );
 308         todo_wine {
 309         ok( r == S_OK, "get_ownerDocument return code\n");
 310         }
 311         ok( owner != doc, "get_ownerDocument return\n");
 312
 313         type = NODE_INVALID;
 314         r = IXMLDOMNode_get_nodeType( element, &type);
 315         ok( r == S_OK, "getNamedItem returned wrong code\n");
 316         ok( type == NODE_ELEMENT, "node not an element\n");
 317
 318         str = NULL;
 319         r = IXMLDOMNode_get_baseName( element, &str );
 320         ok( r == S_OK, "get_baseName returned wrong code\n");
 321         ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
 322
 323         /* check if nodename is correct */
 324         r = IXMLDOMElement_get_nodeName( element, NULL );
 325         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
 326
 327         /* content doesn't matter here */
 328         str = SysAllocString( szNonExistentFile );
 329         r = IXMLDOMElement_get_nodeName( element, &str );
 330         ok ( r == S_OK, "get_nodeName wrong code\n");
 331         ok ( str != NULL, "str is null\n");
 332         ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
 333         SysFreeString( str );
 334
 335         str = SysAllocString( szNonExistentFile );
 336         V_VT(&var) = VT_I4;
 337         V_I4(&var) = 0x1234;
 338         r = IXMLDOMElement_getAttribute( element, str, &var );
 339         ok( r == E_FAIL, "getAttribute ret %08lx\n", r );
 340         ok( V_VT(&var) == VT_EMPTY, "vt = %x\n", V_VT(&var));
 341         VariantClear(&var);
 342         SysFreeString( str );
 343
 344         str = SysAllocString( szdl );
 345         V_VT(&var) = VT_I4;
 346         V_I4(&var) = 0x1234;
 347         r = IXMLDOMElement_getAttribute( element, str, &var );
 348         ok( r == S_OK, "getAttribute ret %08lx\n", r );
 349         ok( V_VT(&var) == VT_BSTR, "vt = %x\n", V_VT(&var));
 350         ok( !lstrcmpW(V_BSTR(&var), szstr1), "wrong attr value\n");
 351         VariantClear( &var );
 352         SysFreeString( str );
 353
 354         r = IXMLDOMElement_get_attributes( element, &map );
 355         ok( r == S_OK, "get_attributes returned wrong code\n");
 356         ok( map != NULL, "should be attributes\n");
 357
 358         b = 1;
 359         r = IXMLDOMNode_hasChildNodes( element, &b );
 360         ok( r == S_OK, "hasChildNoes bad return\n");
 361         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 362     }
 363     else
 364         ok( FALSE, "no element\n");
 365
 366     if (map)
 367     {
 368         ISupportErrorInfo *support_error;
 369         r = IXMLDOMNamedNodeMap_QueryInterface( map, &IID_ISupportErrorInfo, (LPVOID*)&support_error );
 370         ok( r == S_OK, "ret %08lx\n", r );
 371
 372         r = ISupportErrorInfo_InterfaceSupportsErrorInfo( support_error, &IID_IXMLDOMNamedNodeMap );
 373 todo_wine
 374 {
 375         ok( r == S_OK, "ret %08lx\n", r );
 376 }
 377         ISupportErrorInfo_Release( support_error );
 378
 379         str = SysAllocString( szdl );
 380         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
 381         ok( r == S_OK, "getNamedItem returned wrong code\n");
 382         ok( node != NULL, "should be attributes\n");
 383         IXMLDOMNode_Release(node);
 384         SysFreeString( str );
 385
 386         /* test indexed access of attributes */
 387         r = IXMLDOMNamedNodeMap_get_length( map, &count );
 388         ok ( r == S_OK, "get_length wrong code\n");
 389         ok ( count == 1, "get_length != 1\n");
 390
 391         node = NULL;
 392         r = IXMLDOMNamedNodeMap_get_item( map, -1, &node);
 393         ok ( r == S_FALSE, "get_item (-1) wrong code\n");
 394         ok ( node == NULL, "there is no node\n");
 395
 396         node = NULL;
 397         r = IXMLDOMNamedNodeMap_get_item( map, 1, &node);
 398         ok ( r == S_FALSE, "get_item (1) wrong code\n");
 399         ok ( node == NULL, "there is no attribute\n");
 400
 401         node = NULL;
 402         r = IXMLDOMNamedNodeMap_get_item( map, 0, &node);
 403         ok ( r == S_OK, "get_item (0) wrong code\n");
 404         ok ( node != NULL, "should be attribute\n");
 405
 406         r = IXMLDOMNode_get_nodeName( node, NULL );
 407         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code\n");
 408
 409         /* content doesn't matter here */
 410         str = SysAllocString( szNonExistentFile );
 411         r = IXMLDOMNode_get_nodeName( node, &str );
 412         ok ( r == S_OK, "get_nodeName wrong code\n");
 413         ok ( str != NULL, "str is null\n");
 414         ok( !lstrcmpW( str, szdl ), "incorrect node name\n");
 415         SysFreeString( str );
 416     }
 417     else
 418         ok( FALSE, "no map\n");
 419
 420     if (node)
 421     {
 422         type = NODE_INVALID;
 423         r = IXMLDOMNode_get_nodeType( node, &type);
 424         ok( r == S_OK, "getNamedItem returned wrong code\n");
 425         ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
 426
 427         str = NULL;
 428         r = IXMLDOMNode_get_baseName( node, NULL );
 429         ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
 430
 431         str = NULL;
 432         r = IXMLDOMNode_get_baseName( node, &str );
 433         ok( r == S_OK, "get_baseName returned wrong code\n");
 434         ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
 435
 436         r = IXMLDOMNode_get_nodeValue( node, &var );
 437         ok( r == S_OK, "returns %08lx\n", r );
 438         ok( V_VT(&var) == VT_BSTR, "vt %x\n", V_VT(&var));
 439         ok( !lstrcmpW(V_BSTR(&var), szstr1), "nodeValue incorrect\n");
 440         VariantClear(&var);
 441
 442         r = IXMLDOMNode_get_childNodes( node, NULL );
 443         ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
 444
 445         r = IXMLDOMNode_get_childNodes( node, &list );
 446         ok( r == S_OK, "get_childNodes returned wrong code\n");
 447
 448         if (list)
 449         {
 450             r = IXMLDOMNodeList_nextNode( list, &next );
 451             ok( r == S_OK, "nextNode returned wrong code\n");
 452         }
 453         else
 454             ok( FALSE, "no childlist\n");
 455
 456         if (next)
 457         {
 458             b = 1;
 459             r = IXMLDOMNode_hasChildNodes( next, &b );
 460             ok( r == S_FALSE, "hasChildNoes bad return\n");
 461             ok( b == VARIANT_FALSE, "hasChildNoes wrong result\n");
 462
 463             type = NODE_INVALID;
 464             r = IXMLDOMNode_get_nodeType( next, &type);
 465             ok( r == S_OK, "getNamedItem returned wrong code\n");
 466             ok( type == NODE_TEXT, "node not text\n");
 467
 468             str = (BSTR) 1;
 469             r = IXMLDOMNode_get_baseName( next, &str );
 470             ok( r == S_FALSE, "get_baseName returned wrong code\n");
 471             ok( str == NULL, "basename was wrong\n");
 472         }
 473         else
 474             ok( FALSE, "no next\n");
 475
 476         if (next)
 477             IXMLDOMNode_Release( next );
 478         next = NULL;
 479         if (list)
 480             IXMLDOMNodeList_Release( list );
 481         list = NULL;
 482         if (node)
 483             IXMLDOMNode_Release( node );
 484     }
 485     else
 486         ok( FALSE, "no node\n");
 487     node = NULL;
 488
 489     if (map)
 490         IXMLDOMNamedNodeMap_Release( map );
 491
 492     /* now traverse the tree from the root node */
 493     if (element)
 494     {
 495         r = IXMLDOMNode_get_childNodes( element, &list );
 496         ok( r == S_OK, "get_childNodes returned wrong code\n");
 497     }
 498     else
 499         ok( FALSE, "no element\n");
 500
 501     r = IXMLDOMNode_selectSingleNode( element, (BSTR)szdl, &node );
 502     ok( r == S_FALSE, "ret %08lx\n", r );
 503     r = IXMLDOMNode_selectSingleNode( element, (BSTR)szbs, &node );
 504     ok( r == S_OK, "ret %08lx\n", r );
 505     r = IXMLDOMNode_Release( node );
 506     ok( r == 0, "ret %08lx\n", r );
 507
 508     if (list)
 509     {
 510         r = IXMLDOMNodeList_get_length( list, &count );
 511         ok( r == S_OK, "get_length returns %08lx\n", r );
 512         ok( count == 3, "get_length got %ld\n", count );
 513
 514         r = IXMLDOMNodeList_nextNode( list, &node );
 515         ok( r == S_OK, "nextNode returned wrong code\n");
 516     }
 517     else
 518         ok( FALSE, "no list\n");
 519
 520     if (node)
 521     {
 522         type = NODE_INVALID;
 523         r = IXMLDOMNode_get_nodeType( node, &type);
 524         ok( r == S_OK, "getNamedItem returned wrong code\n");
 525         ok( type == NODE_ELEMENT, "node not text\n");
 526
 527         VariantInit(&var);
 528         ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
 529         r = IXMLDOMNode_get_nodeValue( node, &var );
 530         ok( r == S_FALSE, "nextNode returned wrong code\n");
 531         ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
 532         ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
 533
 534         r = IXMLDOMNode_hasChildNodes( node, NULL );
 535         ok( r == E_INVALIDARG, "hasChildNoes bad return\n");
 536
 537         b = 1;
 538         r = IXMLDOMNode_hasChildNodes( node, &b );
 539         ok( r == S_OK, "hasChildNoes bad return\n");
 540         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 541
 542         str = NULL;
 543         r = IXMLDOMNode_get_baseName( node, &str );
 544         ok( r == S_OK, "get_baseName returned wrong code\n");
 545         ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
 546     }
 547     else
 548         ok( FALSE, "no node\n");
 549
 550     if (node)
 551         IXMLDOMNode_Release( node );
 552     if (list)
 553         IXMLDOMNodeList_Release( list );
 554     if (element)
 555         IXMLDOMElement_Release( element );
 556
 557     b = FALSE;
 558     str = SysAllocString( szComplete5 );
 559     r = IXMLDOMDocument_loadXML( doc, str, &b );
 560     ok( r == S_OK, "loadXML failed\n");
 561     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 562     SysFreeString( str );
 563
 564     b = 1;
 565     r = IXMLDOMNode_hasChildNodes( doc, &b );
 566     ok( r == S_OK, "hasChildNoes bad return\n");
 567     ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 568
 569     r = IXMLDOMDocument_get_documentElement( doc, &element );
 570     ok( r == S_OK, "should be a document element\n");
 571     ok( element != NULL, "should be an element\n");
 572
 573     if (element)
 574     {
 575         static const WCHAR szSSearch[] = {'S',':','s','e','a','r','c','h',0};
 576         BSTR tag = NULL;
 577
 578         /* check if the tag is correct */
 579         r = IXMLDOMElement_get_tagName( element, &tag );
 580         ok( r == S_OK, "couldn't get tag name\n");
 581         ok( tag != NULL, "tag was null\n");
 582         ok( !lstrcmpW( tag, szSSearch ), "incorrect tag name\n");
 583         SysFreeString( tag );
 584     }
 585
 586     if (element)
 587         IXMLDOMElement_Release( element );
 588     if (doc)
 589         IXMLDOMDocument_Release( doc );
 590 }
 591
 592 static void test_refs(void)
 593 {
 594     HRESULT r;
 595     BSTR str;
 596     VARIANT_BOOL b;
 597     IXMLDOMDocument *doc = NULL;
 598     IXMLDOMElement *element = NULL;
 599     IXMLDOMNode *node = NULL, *node2;
 600     IXMLDOMNodeList *node_list = NULL;
 601     LONG ref;
 602     IUnknown *unk, *unk2;
 603
 604     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 605         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 606     if( r != S_OK )
 607         return;
 608     ref = IXMLDOMDocument_Release(doc);
 609     ok( ref == 0, "ref %ld\n", ref);
 610
 611     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 612         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 613     if( r != S_OK )
 614         return;
 615
 616     str = SysAllocString( szComplete4 );
 617     r = IXMLDOMDocument_loadXML( doc, str, &b );
 618     ok( r == S_OK, "loadXML failed\n");
 619     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 620     SysFreeString( str );
 621
 622     ref = IXMLDOMDocument_AddRef( doc );
 623     ok( ref == 2, "ref %ld\n", ref );
 624     ref = IXMLDOMDocument_AddRef( doc );
 625     ok( ref == 3, "ref %ld\n", ref );
 626     IXMLDOMDocument_Release( doc );
 627     IXMLDOMDocument_Release( doc );
 628
 629     r = IXMLDOMDocument_get_documentElement( doc, &element );
 630     ok( r == S_OK, "should be a document element\n");
 631     ok( element != NULL, "should be an element\n");
 632
 633     ref = IXMLDOMDocument_AddRef( doc );
 634     ok( ref == 2, "ref %ld\n", ref );
 635     IXMLDOMDocument_Release( doc );
 636
 637     r = IXMLDOMElement_get_childNodes( element, &node_list );
 638     ok( r == S_OK, "rets %08lx\n", r);
 639     ref = IXMLDOMNodeList_AddRef( node_list );
 640     ok( ref == 2, "ref %ld\n", ref );
 641     IXMLDOMNodeList_Release( node_list );
 642
 643     IXMLDOMNodeList_get_item( node_list, 0, &node );
 644     ok( r == S_OK, "rets %08lx\n", r);
 645
 646     IXMLDOMNodeList_get_item( node_list, 0, &node2 );
 647     ok( r == S_OK, "rets %08lx\n", r);
 648
 649     ref = IXMLDOMNode_AddRef( node );
 650     ok( ref == 2, "ref %ld\n", ref );
 651     IXMLDOMNode_Release( node );
 652
 653     ref = IXMLDOMNode_Release( node );
 654     ok( ref == 0, "ref %ld\n", ref );
 655     ref = IXMLDOMNode_Release( node2 );
 656     ok( ref == 0, "ref %ld\n", ref );
 657
 658     ref = IXMLDOMNodeList_Release( node_list );
 659     ok( ref == 0, "ref %ld\n", ref );
 660
 661     ok( node != node2, "node %p node2 %p\n", node, node2 );
 662
 663     ref = IXMLDOMDocument_Release( doc );
 664     ok( ref == 0, "ref %ld\n", ref );
 665
 666     ref = IXMLDOMElement_AddRef( element );
 667     todo_wine {
 668     ok( ref == 3, "ref %ld\n", ref );
 669     }
 670     IXMLDOMElement_Release( element );
 671
 672     /* IUnknown must be unique however we obtain it */
 673     r = IXMLDOMElement_QueryInterface( element, &IID_IUnknown, (LPVOID*)&unk );
 674     ok( r == S_OK, "rets %08lx\n", r );
 675     r = IXMLDOMElement_QueryInterface( element, &IID_IXMLDOMNode, (LPVOID*)&node );
 676     ok( r == S_OK, "rets %08lx\n", r );
 677     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (LPVOID*)&unk2 );
 678     ok( r == S_OK, "rets %08lx\n", r );
 679     ok( unk == unk2, "unk %p unk2 %p\n", unk, unk2 );
 680
 681     IUnknown_Release( unk2 );
 682     IUnknown_Release( unk );
 683     IXMLDOMNode_Release( node );
 684
 685     IXMLDOMElement_Release( element );
 686
 687 }
 688
 689 static void test_create(void)
 690 {
 691     HRESULT r;
 692     VARIANT var;
 693     BSTR str, name;
 694     IXMLDOMDocument *doc;
 695     IXMLDOMElement *element;
 696     IXMLDOMNode *root, *node, *child;
 697     IXMLDOMNamedNodeMap *attr_map;
 698     IUnknown *unk;
 699     LONG ref, num;
 700
 701     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 702         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 703     if( r != S_OK )
 704         return;
 705
 706     V_VT(&var) = VT_I4;
 707     V_I4(&var) = NODE_ELEMENT;
 708     str = SysAllocString( szlc );
 709     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
 710     ok( r == S_OK, "returns %08lx\n", r );
 711     r = IXMLDOMDocument_appendChild( doc, node, &root );
 712     ok( r == S_OK, "returns %08lx\n", r );
 713     ok( node == root, "%p %p\n", node, root );
 714
 715     ref = IXMLDOMNode_AddRef( node );
 716     ok(ref == 3, "ref %ld\n", ref);
 717     IXMLDOMNode_Release( node );
 718
 719     ref = IXMLDOMNode_Release( node );
 720     ok(ref == 1, "ref %ld\n", ref);
 721     SysFreeString( str );
 722
 723     V_VT(&var) = VT_I4;
 724     V_I4(&var) = NODE_ELEMENT;
 725     str = SysAllocString( szbs );
 726     r = IXMLDOMDocument_createNode( doc, var, str, NULL, &node );
 727     ok( r == S_OK, "returns %08lx\n", r );
 728
 729     ref = IXMLDOMNode_AddRef( node );
 730     ok(ref == 2, "ref = %ld\n", ref);
 731     IXMLDOMNode_Release( node );
 732
 733     r = IXMLDOMNode_QueryInterface( node, &IID_IUnknown, (LPVOID*)&unk );
 734     ok( r == S_OK, "returns %08lx\n", r );
 735
 736     ref = IXMLDOMNode_AddRef( unk );
 737     ok(ref == 3, "ref = %ld\n", ref);
 738     IXMLDOMNode_Release( unk );
 739
 740     V_VT(&var) = VT_EMPTY;
 741     r = IXMLDOMNode_insertBefore( root, (IXMLDOMNode*)unk, var, &child );
 742     ok( r == S_OK, "returns %08lx\n", r );
 743     ok( unk == (IUnknown*)child, "%p %p\n", unk, child );
 744     IXMLDOMNode_Release( child );
 745     IUnknown_Release( unk );
 746
 747
 748     V_VT(&var) = VT_NULL;
 749     V_DISPATCH(&var) = (IDispatch*)node;
 750     r = IXMLDOMNode_insertBefore( root, node, var, &child );
 751     ok( r == S_OK, "returns %08lx\n", r );
 752     ok( node == child, "%p %p\n", node, child );
 753     IXMLDOMNode_Release( child );
 754     IXMLDOMNode_Release( node );
 755
 756
 757     r = IXMLDOMNode_QueryInterface( root, &IID_IXMLDOMElement, (LPVOID*)&element );
 758     ok( r == S_OK, "returns %08lx\n", r );
 759
 760     r = IXMLDOMElement_get_attributes( element, &attr_map );
 761     ok( r == S_OK, "returns %08lx\n", r );
 762     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
 763     ok( r == S_OK, "returns %08lx\n", r );
 764     ok( num == 0, "num %ld\n", num );
 765     IXMLDOMNamedNodeMap_Release( attr_map );
 766
 767     V_VT(&var) = VT_BSTR;
 768     V_BSTR(&var) = SysAllocString( szstr1 );
 769     name = SysAllocString( szdl );
 770     r = IXMLDOMElement_setAttribute( element, name, var );
 771     ok( r == S_OK, "returns %08lx\n", r );
 772     r = IXMLDOMElement_get_attributes( element, &attr_map );
 773     ok( r == S_OK, "returns %08lx\n", r );
 774     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
 775     ok( r == S_OK, "returns %08lx\n", r );
 776     ok( num == 1, "num %ld\n", num );
 777     IXMLDOMNamedNodeMap_Release( attr_map );
 778     VariantClear(&var);
 779
 780     V_VT(&var) = VT_BSTR;
 781     V_BSTR(&var) = SysAllocString( szstr2 );
 782     r = IXMLDOMElement_setAttribute( element, name, var );
 783     ok( r == S_OK, "returns %08lx\n", r );
 784     r = IXMLDOMElement_get_attributes( element, &attr_map );
 785     ok( r == S_OK, "returns %08lx\n", r );
 786     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
 787     ok( r == S_OK, "returns %08lx\n", r );
 788     ok( num == 1, "num %ld\n", num );
 789     IXMLDOMNamedNodeMap_Release( attr_map );
 790     VariantClear(&var);
 791     r = IXMLDOMElement_getAttribute( element, name, &var );
 792     ok( r == S_OK, "returns %08lx\n", r );
 793     ok( !lstrcmpW(V_BSTR(&var), szstr2), "wrong attr value\n");
 794     VariantClear(&var);
 795     SysFreeString(name);
 796
 797     V_VT(&var) = VT_BSTR;
 798     V_BSTR(&var) = SysAllocString( szstr1 );
 799     name = SysAllocString( szlc );
 800     r = IXMLDOMElement_setAttribute( element, name, var );
 801     ok( r == S_OK, "returns %08lx\n", r );
 802     r = IXMLDOMElement_get_attributes( element, &attr_map );
 803     ok( r == S_OK, "returns %08lx\n", r );
 804     r = IXMLDOMNamedNodeMap_get_length( attr_map, &num );
 805     ok( r == S_OK, "returns %08lx\n", r );
 806     ok( num == 2, "num %ld\n", num );
 807     IXMLDOMNamedNodeMap_Release( attr_map );
 808     VariantClear(&var);
 809     SysFreeString(name);
 810
 811     V_VT(&var) = VT_I4;
 812     V_I4(&var) = 10;
 813     name = SysAllocString( szbs );
 814     r = IXMLDOMElement_setAttribute( element, name, var );
 815     ok( r == S_OK, "returns %08lx\n", r );
 816     VariantClear(&var);
 817     r = IXMLDOMElement_getAttribute( element, name, &var );
 818     ok( r == S_OK, "returns %08lx\n", r );
 819     ok( V_VT(&var) == VT_BSTR, "variant type %x\n", V_VT(&var));
 820     VariantClear(&var);
 821     SysFreeString(name);
 822
 823     IXMLDOMElement_Release( element );
 824     IXMLDOMNode_Release( root );
 825     IXMLDOMDocument_Release( doc );
 826 }
 827
 828 static void test_getElementsByTagName(void)
 829 {
 830     HRESULT r;
 831     BSTR str;
 832     VARIANT_BOOL b;
 833     IXMLDOMDocument *doc;
 834     IXMLDOMNodeList *node_list;
 835     LONG len;
 836
 837     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 838         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 839     if( r != S_OK )
 840         return;
 841
 842     str = SysAllocString( szComplete4 );
 843     r = IXMLDOMDocument_loadXML( doc, str, &b );
 844     ok( r == S_OK, "loadXML failed\n");
 845     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 846     SysFreeString( str );
 847
 848     str = SysAllocString( szstar );
 849     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
 850     ok( r == S_OK, "ret %08lx\n", r );
 851     r = IXMLDOMNodeList_get_length( node_list, &len );
 852     ok( r == S_OK, "ret %08lx\n", r );
 853     ok( len == 4, "len %ld\n", len );
 854     IXMLDOMNodeList_Release( node_list );
 855     SysFreeString( str );
 856
 857     str = SysAllocString( szbs );
 858     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
 859     ok( r == S_OK, "ret %08lx\n", r );
 860     r = IXMLDOMNodeList_get_length( node_list, &len );
 861     ok( r == S_OK, "ret %08lx\n", r );
 862     ok( len == 1, "len %ld\n", len );
 863     IXMLDOMNodeList_Release( node_list );
 864     SysFreeString( str );
 865
 866     str = SysAllocString( szdl );
 867     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
 868     ok( r == S_OK, "ret %08lx\n", r );
 869     r = IXMLDOMNodeList_get_length( node_list, &len );
 870     ok( r == S_OK, "ret %08lx\n", r );
 871     ok( len == 0, "len %ld\n", len );
 872     IXMLDOMNodeList_Release( node_list );
 873     SysFreeString( str );
 874
 875     str = SysAllocString( szstr1 );
 876     r = IXMLDOMDocument_getElementsByTagName(doc, str, &node_list);
 877     ok( r == S_OK, "ret %08lx\n", r );
 878     r = IXMLDOMNodeList_get_length( node_list, &len );
 879     ok( r == S_OK, "ret %08lx\n", r );
 880     ok( len == 0, "len %ld\n", len );
 881     IXMLDOMNodeList_Release( node_list );
 882     SysFreeString( str );
 883
 884     IXMLDOMDocument_Release( doc );
 885 }
 886
 887 static void test_get_text(void)
 888 {
 889     HRESULT r;
 890     BSTR str;
 891     VARIANT_BOOL b;
 892     IXMLDOMDocument *doc;
 893     IXMLDOMNode *node, *node2, *node3;
 894     IXMLDOMNodeList *node_list;
 895     IXMLDOMNamedNodeMap *node_map;
 896
 897     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 898         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 899     if( r != S_OK )
 900         return;
 901
 902     str = SysAllocString( szComplete4 );
 903     r = IXMLDOMDocument_loadXML( doc, str, &b );
 904     ok( r == S_OK, "loadXML failed\n");
 905     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 906     SysFreeString( str );
 907
 908     str = SysAllocString( szbs );
 909     r = IXMLDOMDocument_getElementsByTagName( doc, str, &node_list );
 910     ok( r == S_OK, "ret %08lx\n", r );
 911     SysFreeString(str);
 912
 913     r = IXMLDOMNodeList_get_item( node_list, 0, &node );
 914     ok( r == S_OK, "ret %08lx\n", r );
 915     IXMLDOMNodeList_Release( node_list );
 916
 917     r = IXMLDOMNode_get_text( node, &str );
 918     ok( r == S_OK, "ret %08lx\n", r );
 919 todo_wine {
 920     ok( !memcmp(str, szfn1_txt, sizeof(szfn1_txt)), "wrong string\n" );
 921  }
 922     ok( !memcmp(str, szfn1_txt, sizeof(szfn1_txt)-4), "wrong string\n" );
 923     SysFreeString(str);
 924
 925     r = IXMLDOMNode_get_attributes( node, &node_map );
 926     ok( r == S_OK, "ret %08lx\n", r );
 927
 928     str = SysAllocString( szvr );
 929     r = IXMLDOMNamedNodeMap_getNamedItem( node_map, str, &node2 );
 930     ok( r == S_OK, "ret %08lx\n", r );
 931     SysFreeString(str);
 932
 933     r = IXMLDOMNode_get_text( node2, &str );
 934     ok( r == S_OK, "ret %08lx\n", r );
 935     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
 936     SysFreeString(str);
 937
 938     r = IXMLDOMNode_get_firstChild( node2, &node3 );
 939     ok( r == S_OK, "ret %08lx\n", r );
 940
 941     r = IXMLDOMNode_get_text( node3, &str );
 942     ok( r == S_OK, "ret %08lx\n", r );
 943     ok( !memcmp(str, szstr2, sizeof(szstr2)), "wrong string\n" );
 944     SysFreeString(str);
 945
 946
 947     IXMLDOMNode_Release( node3 );
 948     IXMLDOMNode_Release( node2 );
 949     IXMLDOMNamedNodeMap_Release( node_map );
 950     IXMLDOMNode_Release( node );
 951     IXMLDOMDocument_Release( doc );
 952 }
 953
 954 static void test_get_childNodes(void)
 955 {
 956     HRESULT r;
 957     BSTR str;
 958     VARIANT_BOOL b;
 959     IXMLDOMDocument *doc;
 960     IXMLDOMElement *element;
 961     IXMLDOMNode *node, *node2;
 962     IXMLDOMNodeList *node_list, *node_list2;
 963     long len;
 964
 965     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 966         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 967     if( r != S_OK )
 968         return;
 969
 970     str = SysAllocString( szComplete4 );
 971     r = IXMLDOMDocument_loadXML( doc, str, &b );
 972     ok( r == S_OK, "loadXML failed\n");
 973     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 974     SysFreeString( str );
 975
 976     r = IXMLDOMDocument_get_documentElement( doc, &element );
 977     ok( r == S_OK, "ret %08lx\n", r);
 978
 979     r = IXMLDOMElement_get_childNodes( element, &node_list );
 980     ok( r == S_OK, "ret %08lx\n", r);
 981
 982     r = IXMLDOMNodeList_get_length( node_list, &len );
 983     ok( r == S_OK, "ret %08lx\n", r);
 984     ok( len == 3, "len %ld\n", len);
 985
 986     r = IXMLDOMNodeList_get_item( node_list, 2, &node );
 987     ok( r == S_OK, "ret %08lx\n", r);
 988
 989     r = IXMLDOMNode_get_childNodes( node, &node_list2 );
 990     ok( r == S_OK, "ret %08lx\n", r);
 991
 992     r = IXMLDOMNodeList_get_length( node_list2, &len );
 993     ok( r == S_OK, "ret %08lx\n", r);
 994     ok( len == 0, "len %ld\n", len);
 995
 996     r = IXMLDOMNodeList_get_item( node_list2, 0, &node2);
 997     ok( r == S_FALSE, "ret %08lx\n", r);
 998
 999     IXMLDOMNodeList_Release( node_list2 );
1000     IXMLDOMNode_Release( node );
1001     IXMLDOMNodeList_Release( node_list );
1002     IXMLDOMElement_Release( element );
1003     IXMLDOMDocument_Release( doc );
1004 }
1005
1006 START_TEST(domdoc)
1007 {
1008     HRESULT r;
1009
1010     r = CoInitialize( NULL );
1011     ok( r == S_OK, "failed to init com\n");
1012
1013     test_domdoc();
1014     test_domnode();
1015     test_refs();
1016     test_create();
1017     test_getElementsByTagName();
1018     test_get_text();
1019     test_get_childNodes();
1020
1021     CoUninitialize();
1022 }