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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21
  22 #define COBJMACROS
  23
  24 #include "windows.h"
  25 #include "ole2.h"
  26 #include "msxml.h"
  27 #include "xmldom.h"
  28 #include <stdio.h>
  29
  30 #include "wine/test.h"
  31
  32 static const WCHAR szEmpty[] = { 0 };
  33 static const WCHAR szIncomplete[] = {
  34     '<','?','x','m','l',' ',
  35     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',0
  36 };
  37 static const WCHAR szComplete1[] = {
  38     '<','?','x','m','l',' ',
  39     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  40     '<','o','p','e','n','>','<','/','o','p','e','n','>','\n',0
  41 };
  42 static const WCHAR szComplete2[] = {
  43     '<','?','x','m','l',' ',
  44     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  45     '<','o','>','<','/','o','>','\n',0
  46 };
  47 static const WCHAR szComplete3[] = {
  48     '<','?','x','m','l',' ',
  49     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>','\n',
  50     '<','a','>','<','/','a','>','\n',0
  51 };
  52 static const WCHAR szComplete4[] = {
  53     '<','?','x','m','l',' ',
  54     'v','e','r','s','i','o','n','=','\'','1','.','0','\'','?','>',
  55     '<','l','c',' ','d','l','=','\'','s','t','r','1','\'','>',
  56     '<','b','s',' ','v','r','=','\'','s','t','r','2','\'',' ',
  57     's','z','=','\'','1','2','3','4','\'','>','f','n','1','.','t','x','t','<','/','b','s','>',
  58     '<','p','r',' ','i','d','=','\'','s','t','r','3','\'',' ',
  59     'v','r','=','\'','1','.','2','.','3','\'',' ',
  60     'p','n','=','\'','w','i','n','e',' ','2','0','0','5','0','8','0','4','\'','>',
  61     'f','n','2','.','t','x','t','<','/','p','r','>',
  62     '<','/','l','c','>','\n',0
  63 };
  64 static const WCHAR szNonExistentFile[] = {
  65     'c', ':', '\\', 'N', 'o', 'n', 'e', 'x', 'i', 's', 't', 'e', 'n', 't', '.', 'x', 'm', 'l', 0
  66 };
  67 static const WCHAR szDocument[] = {
  68     '#', 'd', 'o', 'c', 'u', 'm', 'e', 'n', 't', 0
  69 };
  70
  71 static const WCHAR szOpen[] = { 'o','p','e','n',0 };
  72 static const WCHAR szdl[] = { 'd','l',0 };
  73 static const WCHAR szlc[] = { 'l','c',0 };
  74 static const WCHAR szbs[] = { 'b','s',0 };
  75
  76 const GUID CLSID_DOMDocument =
  77     { 0x2933BF90, 0x7B36, 0x11d2, {0xB2,0x0E,0x00,0xC0,0x4F,0x98,0x3E,0x60}};
  78 const GUID IID_IXMLDOMDocument =
  79     { 0x2933BF81, 0x7B36, 0x11d2, {0xB2,0x0E,0x00,0xC0,0x4F,0x98,0x3E,0x60}};
  80
  81 void test_domdoc( void )
  82 {
  83     HRESULT r;
  84     IXMLDOMDocument *doc = NULL;
  85     IXMLDOMElement *element = NULL;
  86     VARIANT_BOOL b;
  87     VARIANT var;
  88     BSTR str;
  89
  90     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
  91         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
  92     if( r != S_OK )
  93         return;
  94
  95     /* try some stupid things */
  96     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
  97     ok( r == S_FALSE, "loadXML failed\n");
  98
  99     b = VARIANT_TRUE;
 100     r = IXMLDOMDocument_loadXML( doc, NULL, &b );
 101     ok( r == S_FALSE, "loadXML failed\n");
 102     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 103
 104     /* try to load an document from an non-existent file */
 105     b = VARIANT_TRUE;
 106     str = SysAllocString( szNonExistentFile );
 107     VariantInit(&var);
 108     V_VT(&var) = VT_BSTR;
 109     V_BSTR(&var) = str;
 110
 111     r = IXMLDOMDocument_load( doc, var, &b);
 112     ok( r == S_FALSE, "load (from file) failed\n");
 113     ok( b == VARIANT_FALSE, "failed to load XML file\n");
 114     SysFreeString( str );
 115
 116     /* try load an empty document */
 117     b = VARIANT_TRUE;
 118     str = SysAllocString( szEmpty );
 119     r = IXMLDOMDocument_loadXML( doc, str, &b );
 120     ok( r == S_FALSE, "loadXML failed\n");
 121     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 122     SysFreeString( str );
 123
 124     /* check that there's no document element */
 125     element = NULL;
 126     r = IXMLDOMDocument_get_documentElement( doc, &element );
 127     ok( r == S_FALSE, "should be no document element\n");
 128
 129     b = VARIANT_TRUE;
 130     str = SysAllocString( szIncomplete );
 131     r = IXMLDOMDocument_loadXML( doc, str, &b );
 132     ok( r == S_FALSE, "loadXML failed\n");
 133     ok( b == VARIANT_FALSE, "failed to load XML string\n");
 134     SysFreeString( str );
 135
 136     /* check that there's no document element */
 137     element = (IXMLDOMElement*)1;
 138     r = IXMLDOMDocument_get_documentElement( doc, &element );
 139     ok( r == S_FALSE, "should be no document element\n");
 140     ok( element == NULL, "Element should be NULL\n");
 141
 142     /* try to load something valid */
 143     b = VARIANT_FALSE;
 144     str = SysAllocString( szComplete1 );
 145     r = IXMLDOMDocument_loadXML( doc, str, &b );
 146     ok( r == S_OK, "loadXML failed\n");
 147     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 148     SysFreeString( str );
 149
 150     /* try with a null out pointer - crashes */
 151     if (0)
 152     {
 153         r = IXMLDOMDocument_get_documentElement( doc, NULL );
 154         ok( r == S_OK, "should be no document element\n");
 155     }
 156
 157     /* check if nodename is correct */
 158     r = IXMLDOMDocument_get_nodeName( doc, NULL );
 159     ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code");
 160
 161     /* content doesn't matter here */
 162     str = SysAllocString( szNonExistentFile );
 163     r = IXMLDOMDocument_get_nodeName( doc, &str );
 164     ok ( r == S_OK, "get_nodeName wrong code\n");
 165     ok ( str != NULL, "str is null\n");
 166     ok( !lstrcmpW( str, szDocument ), "incorrect nodeName\n");
 167     SysFreeString( str );
 168
 169
 170     /* check that there's no document element */
 171     element = NULL;
 172     r = IXMLDOMDocument_get_documentElement( doc, &element );
 173     ok( r == S_OK, "should be a document element\n");
 174     if( element )
 175     {
 176         BSTR tag = NULL;
 177
 178         /* check if the tag is correct */
 179         r = IXMLDOMElement_get_tagName( element, &tag );
 180         ok( r == S_OK, "couldn't get tag name\n");
 181         ok( tag != NULL, "tag was null\n");
 182         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
 183         SysFreeString( tag );
 184
 185         /* figure out what happens if we try to reload the document */
 186         str = SysAllocString( szComplete2 );
 187         r = IXMLDOMDocument_loadXML( doc, str, &b );
 188         ok( r == S_OK, "loadXML failed\n");
 189         ok( b == VARIANT_TRUE, "failed to load XML string\n");
 190         SysFreeString( str );
 191
 192         /* check if the tag is still correct */
 193         tag = NULL;
 194         r = IXMLDOMElement_get_tagName( element, &tag );
 195         ok( r == S_OK, "couldn't get tag name\n");
 196         ok( tag != NULL, "tag was null\n");
 197         ok( !lstrcmpW( tag, szOpen ), "incorrect tag name\n");
 198         SysFreeString( tag );
 199
 200         IXMLDOMElement_Release( element );
 201         element = NULL;
 202     }
 203
 204     /* as soon as we call loadXML again, the document element will disappear */
 205     b = 2;
 206     r = IXMLDOMDocument_loadXML( doc, NULL, NULL );
 207     ok( r == S_FALSE, "loadXML failed\n");
 208     ok( b == 2, "variant modified\n");
 209     r = IXMLDOMDocument_get_documentElement( doc, &element );
 210     ok( r == S_FALSE, "should be no document element\n");
 211
 212     /* try to load something else simple and valid */
 213     b = VARIANT_FALSE;
 214     str = SysAllocString( szComplete3 );
 215     r = IXMLDOMDocument_loadXML( doc, str, &b );
 216     ok( r == S_OK, "loadXML failed\n");
 217     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 218     SysFreeString( str );
 219
 220     /* try something a little more complicated */
 221     b = FALSE;
 222     str = SysAllocString( szComplete4 );
 223     r = IXMLDOMDocument_loadXML( doc, str, &b );
 224     ok( r == S_OK, "loadXML failed\n");
 225     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 226     SysFreeString( str );
 227
 228     r = IXMLDocument_Release( doc );
 229     ok( r == 0, "document ref count incorrect\n");
 230
 231 }
 232
 233 void test_domnode( void )
 234 {
 235     HRESULT r;
 236     IXMLDOMDocument *doc = NULL, *owner = NULL;
 237     IXMLDOMElement *element = NULL;
 238     IXMLDOMNamedNodeMap *map = NULL;
 239     IXMLDOMNode *node = NULL, *next = NULL;
 240     IXMLDOMNodeList *list = NULL;
 241     DOMNodeType type = NODE_INVALID;
 242     VARIANT_BOOL b;
 243     BSTR str;
 244     VARIANT var;
 245
 246     r = CoCreateInstance( &CLSID_DOMDocument, NULL,
 247         CLSCTX_INPROC_SERVER, &IID_IXMLDOMDocument, (LPVOID*)&doc );
 248     if( r != S_OK )
 249         return;
 250
 251     b = FALSE;
 252     str = SysAllocString( szComplete4 );
 253     r = IXMLDOMDocument_loadXML( doc, str, &b );
 254     ok( r == S_OK, "loadXML failed\n");
 255     ok( b == VARIANT_TRUE, "failed to load XML string\n");
 256     SysFreeString( str );
 257
 258     if (doc)
 259     {
 260         b = 1;
 261         r = IXMLDOMNode_hasChildNodes( doc, &b );
 262         ok( r == S_OK, "hasChildNoes bad return\n");
 263         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 264
 265         r = IXMLDOMDocument_get_documentElement( doc, &element );
 266         ok( r == S_OK, "should be a document element\n");
 267         ok( element != NULL, "should be an element\n");
 268     }
 269     else
 270         ok( FALSE, "no document\n");
 271
 272     VariantInit(&var);
 273     ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
 274     r = IXMLDOMNode_get_nodeValue( doc, &var );
 275     ok( r == S_FALSE, "nextNode returned wrong code\n");
 276     ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
 277     ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
 278
 279     if (element)
 280     {
 281         owner = NULL;
 282         r = IXMLDOMNode_get_ownerDocument( element, &owner );
 283         todo_wine {
 284         ok( r == S_OK, "get_ownerDocument return code\n");
 285         }
 286         ok( owner != doc, "get_ownerDocument return\n");
 287
 288         type = NODE_INVALID;
 289         r = IXMLDOMNode_get_nodeType( element, &type);
 290         ok( r == S_OK, "getNamedItem returned wrong code\n");
 291         ok( type == NODE_ELEMENT, "node not an element\n");
 292
 293         str = NULL;
 294         r = IXMLDOMNode_get_baseName( element, &str );
 295         ok( r == S_OK, "get_baseName returned wrong code\n");
 296         ok( lstrcmpW(str,szlc) == 0, "basename was wrong\n");
 297
 298         /* check if nodename is correct */
 299         r = IXMLDOMElement_get_nodeName( element, NULL );
 300         ok ( r == E_INVALIDARG, "get_nodeName (NULL) wrong code");
 301
 302         /* content doesn't matter here */
 303         str = SysAllocString( szNonExistentFile );
 304         r = IXMLDOMElement_get_nodeName( element, &str );
 305         ok ( r == S_OK, "get_nodeName wrong code\n");
 306         ok ( str != NULL, "str is null\n");
 307         ok( !lstrcmpW( str, szlc ), "incorrect nodeName\n");
 308         SysFreeString( str );
 309
 310         r = IXMLDOMElement_get_attributes( element, &map );
 311         ok( r == S_OK, "get_attributes returned wrong code\n");
 312         ok( map != NULL, "should be attributes\n");
 313
 314         b = 1;
 315         r = IXMLDOMNode_hasChildNodes( element, &b );
 316         ok( r == S_OK, "hasChildNoes bad return\n");
 317         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 318     }
 319     else
 320         ok( FALSE, "no element\n");
 321
 322     if (map)
 323     {
 324         str = SysAllocString( szdl );
 325         r = IXMLDOMNamedNodeMap_getNamedItem( map, str, &node );
 326         ok( r == S_OK, "getNamedItem returned wrong code\n");
 327         ok( node != NULL, "should be attributes\n");
 328     }
 329     else
 330         ok( FALSE, "no map\n");
 331
 332     if (node)
 333     {
 334         type = NODE_INVALID;
 335         r = IXMLDOMNode_get_nodeType( node, &type);
 336         ok( r == S_OK, "getNamedItem returned wrong code\n");
 337         ok( type == NODE_ATTRIBUTE, "node not an attribute\n");
 338
 339         str = NULL;
 340         r = IXMLDOMNode_get_baseName( node, NULL );
 341         ok( r == E_INVALIDARG, "get_baseName returned wrong code\n");
 342
 343         str = NULL;
 344         r = IXMLDOMNode_get_baseName( node, &str );
 345         ok( r == S_OK, "get_baseName returned wrong code\n");
 346         ok( lstrcmpW(str,szdl) == 0, "basename was wrong\n");
 347
 348         r = IXMLDOMNode_get_childNodes( node, NULL );
 349         ok( r == E_INVALIDARG, "get_childNodes returned wrong code\n");
 350
 351         r = IXMLDOMNode_get_childNodes( node, &list );
 352         ok( r == S_OK, "get_childNodes returned wrong code\n");
 353
 354         if (list)
 355         {
 356             r = IXMLDOMNodeList_nextNode( list, &next );
 357             ok( r == S_OK, "nextNode returned wrong code\n");
 358         }
 359         else
 360             ok( FALSE, "no childlist\n");
 361
 362         if (next)
 363         {
 364             b = 1;
 365             r = IXMLDOMNode_hasChildNodes( next, &b );
 366             ok( r == S_FALSE, "hasChildNoes bad return\n");
 367             ok( b == VARIANT_FALSE, "hasChildNoes wrong result\n");
 368
 369             type = NODE_INVALID;
 370             r = IXMLDOMNode_get_nodeType( next, &type);
 371             ok( r == S_OK, "getNamedItem returned wrong code\n");
 372             ok( type == NODE_TEXT, "node not text\n");
 373
 374             str = (BSTR) 1;
 375             r = IXMLDOMNode_get_baseName( next, &str );
 376             ok( r == S_FALSE, "get_baseName returned wrong code\n");
 377             ok( str == NULL, "basename was wrong\n");
 378         }
 379         else
 380             ok( FALSE, "no next\n");
 381
 382         if (next)
 383             IXMLDOMNode_Release( next );
 384         next = NULL;
 385         if (list)
 386             IXMLDOMNodeList_Release( list );
 387         list = NULL;
 388         if (node)
 389             IXMLDOMNode_Release( node );
 390     }
 391     else
 392         ok( FALSE, "no node\n");
 393     node = NULL;
 394
 395     if (map)
 396         IXMLDOMNamedNodeMap_Release( map );
 397
 398     /* now traverse the tree from the root node */
 399     if (element)
 400     {
 401         r = IXMLDOMNode_get_childNodes( element, &list );
 402         ok( r == S_OK, "get_childNodes returned wrong code\n");
 403     }
 404     else
 405         ok( FALSE, "no element\n");
 406
 407     if (list)
 408     {
 409         r = IXMLDOMNodeList_nextNode( list, &node );
 410         ok( r == S_OK, "nextNode returned wrong code\n");
 411     }
 412     else
 413         ok( FALSE, "no list\n");
 414
 415     if (node)
 416     {
 417         type = NODE_INVALID;
 418         r = IXMLDOMNode_get_nodeType( node, &type);
 419         ok( r == S_OK, "getNamedItem returned wrong code\n");
 420         ok( type == NODE_ELEMENT, "node not text\n");
 421
 422         VariantInit(&var);
 423         ok( V_VT(&var) == VT_EMPTY, "variant init failed\n");
 424         r = IXMLDOMNode_get_nodeValue( node, &var );
 425         ok( r == S_FALSE, "nextNode returned wrong code\n");
 426         ok( V_VT(&var) == VT_NULL, "variant wasn't empty\n");
 427         ok( V_BSTR(&var) == NULL, "variant value wasn't null\n");
 428
 429         r = IXMLDOMNode_hasChildNodes( node, NULL );
 430         ok( r == E_INVALIDARG, "hasChildNoes bad return\n");
 431
 432         b = 1;
 433         r = IXMLDOMNode_hasChildNodes( node, &b );
 434         ok( r == S_OK, "hasChildNoes bad return\n");
 435         ok( b == VARIANT_TRUE, "hasChildNoes wrong result\n");
 436
 437         str = NULL;
 438         r = IXMLDOMNode_get_baseName( node, &str );
 439         ok( r == S_OK, "get_baseName returned wrong code\n");
 440         ok( lstrcmpW(str,szbs) == 0, "basename was wrong\n");
 441     }
 442     else
 443         ok( FALSE, "no node\n");
 444
 445     if (node)
 446         IXMLDOMNode_Release( node );
 447     if (list)
 448         IXMLDOMNodeList_Release( list );
 449     if (element)
 450         IXMLDOMElement_Release( element );
 451     if (doc)
 452         IXMLDocument_Release( doc );
 453 }
 454
 455 START_TEST(domdoc)
 456 {
 457     HRESULT r;
 458
 459     r = CoInitialize( NULL );
 460     ok( r == S_OK, "failed to init com\n");
 461
 462     test_domdoc();
 463     test_domnode();
 464
 465     CoUninitialize();
 466 }