ReactOS 0.4.16-dev-2206-gc56950d
xmldoc.c
Go to the documentation of this file.
1/*
2 * IXMLDocument tests
3 *
4 * Copyright 2007 James Hawkins
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#define COBJMACROS
22
23#include <stdio.h>
24#include "windows.h"
25#include "ole2.h"
26#include "msxml2.h"
27#include "msxml2did.h"
28#include "ocidl.h"
29
30#include "wine/test.h"
31
32/* Deprecated Error Code */
33#define XML_E_INVALIDATROOTLEVEL 0xc00ce556
34
35static void create_xml_file(LPCSTR filename)
36{
37 DWORD dwNumberOfBytesWritten;
38 HANDLE hf = CreateFileA(filename, GENERIC_WRITE, 0, NULL,
39 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
40
41 static const char data[] =
42 "<?xml version=\"1.0\" ?>\n"
43 "<!DOCTYPE BankAccount>\n"
44 "<BankAccount>\n"
45 " <Number>1234</Number>\n"
46 " <Name>Captain Ahab</Name>\n"
47 "</BankAccount>";
48
49 WriteFile(hf, data, sizeof(data) - 1, &dwNumberOfBytesWritten, NULL);
50 CloseHandle(hf);
51}
52
53static void create_stream_on_file(IStream **stream, LPCSTR path)
54{
55 HANDLE hfile;
56 HGLOBAL hglobal;
57 LPVOID ptr;
58 HRESULT hr;
59 DWORD file_size, read;
60
61 hfile = CreateFileA(path, GENERIC_READ, FILE_SHARE_READ, NULL,
62 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
63 ok(hfile != INVALID_HANDLE_VALUE, "Expected a valid file handle\n");
64 file_size = GetFileSize(hfile, NULL);
65
66 hglobal = GlobalAlloc(GHND, file_size);
67 ptr = GlobalLock(hglobal);
68
69 ReadFile(hfile, ptr, file_size, &read, NULL);
70 ok(file_size == read, "Expected to read the whole file, read %ld.\n", read);
71
72 hr = CreateStreamOnHGlobal(hglobal, TRUE, stream);
73 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
74 ok(*stream != NULL, "Expected non-NULL stream\n");
75
76 CloseHandle(hfile);
77 GlobalUnlock(hglobal);
78}
79
80static void test_xmldoc(void)
81{
82 IXMLElement *element = NULL, *child = NULL, *value = NULL;
83 IXMLElementCollection *collection = NULL, *inner = NULL;
84 IPersistStreamInit *psi = NULL;
85 IXMLDocument *doc = NULL;
86 IStream *stream = NULL;
87 VARIANT vIndex, vName;
88 LONG type, num_child;
89 CHAR path[MAX_PATH];
90 IDispatch *disp;
91 ITypeInfo *ti;
92 HRESULT hr;
93 BSTR name;
94
95 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
96 &IID_IXMLDocument, (void**)&doc);
97 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
98
99 /* IDispatch */
100 hr = IXMLDocument_QueryInterface(doc, &IID_IDispatch, (void**)&disp);
101 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
102
103 /* just to make sure we're on right type data */
104 hr = IDispatch_GetTypeInfo(disp, 0, 0, &ti);
105 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
106 name = NULL;
107 hr = ITypeInfo_GetDocumentation(ti, DISPID_XMLDOCUMENT_ROOT, &name, NULL, NULL, NULL);
108 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
109 ok(!lstrcmpW(name, L"root"), "got name %s\n", wine_dbgstr_w(name));
110 SysFreeString(name);
111
112 ITypeInfo_Release(ti);
113 IDispatch_Release(disp);
114
115 hr = IXMLDocument_QueryInterface(doc, &IID_IXMLDOMDocument, (void**)&disp);
116 ok(hr == E_NOINTERFACE, "Unexpected hr %#lx.\n", hr);
117
118 create_xml_file("bank.xml");
119 GetFullPathNameA("bank.xml", MAX_PATH, path, NULL);
120 create_stream_on_file(&stream, path);
121
122 hr = IXMLDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&psi);
123 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
124 ok(psi != NULL, "Expected non-NULL psi\n");
125
126 hr = IXMLDocument_get_root(doc, &element);
127 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
128 ok(element == NULL, "Expected NULL element\n");
129
130 hr = IPersistStreamInit_Load(psi, stream);
131 ok(hr == S_OK || hr == XML_E_INVALIDATROOTLEVEL, "Unexpected hr %#lx.\n", hr);
132 if(hr == XML_E_INVALIDATROOTLEVEL)
133 goto cleanup;
134
135 ok(stream != NULL, "Expected non-NULL stream\n");
136
137 /* version field */
138 hr = IXMLDocument_get_version(doc, NULL);
139 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
140
141 name = NULL;
142 hr = IXMLDocument_get_version(doc, &name);
143 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
144 ok(!lstrcmpW(name, L"1.0"), "Expected 1.0, got %s\n", wine_dbgstr_w(name));
145 SysFreeString(name);
146
147 /* doctype */
148 hr = IXMLDocument_get_doctype(doc, NULL);
149 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
150
151 hr = IXMLDocument_get_doctype(doc, &name);
152 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
153 ok(!lstrcmpW(name, L"BANKACCOUNT"), "Expected BANKACCOUNT, got %s\n", wine_dbgstr_w(name));
154 SysFreeString(name);
155
156 hr = IXMLDocument_get_root(doc, &element);
157 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
158 ok(element != NULL, "Expected non-NULL element\n");
159
160 /* ::root() returns new instance each time */
161 hr = IXMLDocument_get_root(doc, &child);
162 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
163 ok(child != NULL, "Expected non-NULL element\n");
164 ok(child != element, "Expected new element instance\n");
165 IXMLElement_Release(child);
166
167 hr = IXMLElement_get_type(element, &type);
168 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
169 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
170
171 hr = IXMLElement_get_tagName(element, &name);
172 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
173 ok(!lstrcmpW(name, L"BANKACCOUNT"), "Expected BANKACCOUNT\n");
174 SysFreeString(name);
175
176 hr = IXMLElement_get_children(element, &collection);
177 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
178 ok(collection != NULL, "Expected non-NULL collection\n");
179
180 hr = IXMLElementCollection_get_length(collection, &num_child);
181 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
182 ok(num_child == 2, "Unexpected length %ld.\n", num_child);
183
184 V_VT(&vIndex) = VT_I4;
185 V_I4(&vIndex) = 0;
186 V_VT(&vName) = VT_ERROR;
187 V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
188 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
189 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
190 ok(child != NULL, "Expected non-NULL child\n");
191
192 hr = IXMLElement_get_type(child, &type);
193 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
194 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
195
196 hr = IXMLElement_get_tagName(child, &name);
197 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
198 ok(!lstrcmpW(name, L"NUMBER"), "Expected NUMBER\n");
199 SysFreeString(name);
200
201 hr = IXMLElement_get_children(child, &inner);
202 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
203 ok(inner != NULL, "Expected non-NULL inner\n");
204
205 hr = IXMLElementCollection_get_length(inner, &num_child);
206 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
207 ok(num_child == 1, "Unexpected length %ld.\n", num_child);
208
209 hr = IXMLElementCollection_item(inner, vIndex, vName, (IDispatch **)&value);
210 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
211 ok(value != NULL, "Expected non-NULL value\n");
212
213 hr = IXMLElement_get_type(value, &type);
214 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
215 ok(type == XMLELEMTYPE_TEXT, "Unexpected type %ld.\n", type);
216
217 hr = IXMLElement_get_text(value, &name);
218 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
219 ok(!lstrcmpW(name, L"1234"), "Expected '1234'\n");
220 SysFreeString(name);
221
222 IXMLElementCollection_Release(inner);
223
224 inner = (IXMLElementCollection *)0xdeadbeef;
225 hr = IXMLElement_get_children(value, &inner);
226 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
227 ok(inner == NULL, "Expected NULL inner, got %p\n", inner);
228
229 IXMLElement_Release(value);
230 IXMLElement_Release(child);
231 value = NULL;
232 child = NULL;
233
234 V_I4(&vIndex) = 1;
235 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
236 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
237 ok(child != NULL, "Expected non-NULL child\n");
238
239 hr = IXMLElement_get_type(child, &type);
240 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
241 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
242
243 hr = IXMLElement_get_tagName(child, &name);
244 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
245 ok(!lstrcmpW(name, L"NAME"), "Expected NAME\n");
246 SysFreeString(name);
247
248 hr = IXMLElement_get_children(child, &inner);
249 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
250 ok(inner != NULL, "Expected non-NULL inner\n");
251
252 hr = IXMLElementCollection_get_length(inner, &num_child);
253 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
254 ok(num_child == 1, "Unexpected length %ld.\n", num_child);
255
256 V_I4(&vIndex) = 0;
257 hr = IXMLElementCollection_item(inner, vIndex, vName, (IDispatch **)&value);
258 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
259 ok(value != NULL, "Expected non-NULL value\n");
260
261 hr = IXMLElement_get_type(value, &type);
262 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
263 ok(type == XMLELEMTYPE_TEXT, "Unexpected type %ld.\n", type);
264
265 hr = IXMLElement_get_text(value, &name);
266 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
267 ok(!lstrcmpW(name, L"Captain Ahab"), "Expected 'Captain Ahab'\n");
268 SysFreeString(name);
269
270 IXMLElementCollection_Release(inner);
271
272 inner = (IXMLElementCollection *)0xdeadbeef;
273 hr = IXMLElement_get_children(value, &inner);
274 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
275 ok(inner == NULL, "Expected NULL inner, got %p\n", inner);
276
277 IXMLElement_Release(value);
278 IXMLElement_Release(child);
279 IXMLElementCollection_Release(collection);
280 IXMLElement_Release(element);
281cleanup:
282 IStream_Release(stream);
283 IPersistStreamInit_Release(psi);
284 IXMLDocument_Release(doc);
285
286 DeleteFileA("bank.xml");
287}
288
289static void test_createElement(void)
290{
291 HRESULT hr;
292 IXMLDocument *doc = NULL;
293 IXMLElement *element = NULL, *root = NULL;
294 VARIANT vType, vName;
295 LONG type;
296
297 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
298 &IID_IXMLDocument, (LPVOID*)&doc);
299 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
300
301 /* invalid vType type */
302 V_VT(&vType) = VT_NULL;
303 V_VT(&vName) = VT_NULL;
304 element = (IXMLElement *)0xdeadbeef;
305 hr = IXMLDocument_createElement(doc, vType, vName, &element);
306 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
307 ok(element == NULL, "Expected NULL element\n");
308
309 /* invalid vType value */
310 V_VT(&vType) = VT_I4;
311 V_I4(&vType) = -1;
312 V_VT(&vName) = VT_NULL;
313 hr = IXMLDocument_createElement(doc, vType, vName, &element);
314 /* Up to and including SP7, createElement returns an element. */
315 if(hr == S_OK)
316 {
317 ok(element != NULL, "Expected element\n");
318 if (element != NULL)
319 {
320 hr = IXMLElement_get_type(element, &type);
321 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
322 /* SP7 returns an XMLELEMTYPE_ELEMENT */
323 ok(type == XMLELEMTYPE_OTHER || type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
324
325 IXMLElement_Release(element);
326 }
327 }
328 else
329 {
330 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
331 ok(element == NULL, "Expected NULL element\n");
332 }
333
334 /* invalid vName type */
335 V_VT(&vType) = VT_I4;
336 V_I4(&vType) = XMLELEMTYPE_ELEMENT;
337 V_VT(&vName) = VT_I4;
338 hr = IXMLDocument_createElement(doc, vType, vName, &element);
339 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
340 ok(element != NULL, "Expected non-NULL element\n");
341
342 hr = IXMLElement_get_type(element, &type);
343 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
344 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
345
346 IXMLElement_Release(element);
347
348 /* NULL element */
349 V_VT(&vType) = VT_I4;
350 V_I4(&vType) = XMLELEMTYPE_ELEMENT;
351 V_VT(&vName) = VT_I4;
352 hr = IXMLDocument_createElement(doc, vType, vName, NULL);
353 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
354
355 root = (IXMLElement *)0xdeadbeef;
356 hr = IXMLDocument_get_root(doc, &root);
357 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
358 ok(root == NULL, "Expected NULL root\n");
359
360 V_VT(&vType) = VT_I4;
361 V_I4(&vType) = XMLELEMTYPE_ELEMENT;
362 V_VT(&vName) = VT_NULL;
363 hr = IXMLDocument_createElement(doc, vType, vName, &element);
364 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
365 ok(element != NULL, "Expected non-NULL element\n");
366
367 /* createElement does not set the new element as root */
368 root = (IXMLElement *)0xdeadbeef;
369 hr = IXMLDocument_get_root(doc, &root);
370 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
371 ok(root == NULL, "Expected NULL root\n");
372
373 IXMLElement_Release(element);
374 IXMLDocument_Release(doc);
375}
376
377static void test_persiststreaminit(void)
378{
379 IXMLDocument *doc = NULL;
380 IXMLElement *element = NULL;
381 IPersistStreamInit *psi = NULL;
382 IStream *stream = NULL;
383 STATSTG stat;
384 HRESULT hr;
385 ULARGE_INTEGER size;
386 CHAR path[MAX_PATH];
387 CLSID id;
388 BSTR str;
389
390 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
391 &IID_IXMLDocument, (LPVOID*)&doc);
392 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
393
394 hr = IXMLDocument_QueryInterface(doc, &IID_IPersistStreamInit, (LPVOID *)&psi);
395 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
396 ok(psi != NULL, "Expected non-NULL psi\n");
397
398 /* null arguments */
399 hr = IPersistStreamInit_GetSizeMax(psi, NULL);
400 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
401
402 hr = IPersistStreamInit_Load(psi, NULL);
403 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
404
405 hr = IPersistStreamInit_Save(psi, NULL, FALSE);
406 todo_wine ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
407
408 hr = IPersistStreamInit_GetClassID(psi, NULL);
409 ok(hr == E_POINTER, "Unexpected hr %#lx.\n", hr);
410
411 hr = IPersistStreamInit_IsDirty(psi);
412 todo_wine ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
413
414 create_xml_file("bank.xml");
415 GetFullPathNameA("bank.xml", MAX_PATH, path, NULL);
416 create_stream_on_file(&stream, path);
417
418 /* GetSizeMax not implemented */
419 size.QuadPart = 0;
420 hr = IPersistStreamInit_GetSizeMax(psi, &size);
421 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
422 ok(size.QuadPart == 0, "Expected 0\n");
423
424 hr = IPersistStreamInit_Load(psi, stream);
425 IStream_Release(stream);
426 ok(hr == S_OK || hr == XML_E_INVALIDATROOTLEVEL, "Unexpected hr %#lx.\n", hr);
427 if(hr == XML_E_INVALIDATROOTLEVEL)
428 goto cleanup;
429
430 hr = IPersistStreamInit_IsDirty(psi);
431 todo_wine ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
432
433 /* try to save document */
434 stream = NULL;
435 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
436 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
437 hr = IPersistStreamInit_Save(psi, stream, FALSE);
438 todo_wine ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
439
440 stat.cbSize.QuadPart = 0;
441 hr = IStream_Stat(stream, &stat, 0);
442 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
443 todo_wine ok(stat.cbSize.QuadPart > 0, "Expected >0\n");
444 IStream_Release(stream);
445
446 str = SysAllocString(L"test");
447 hr = IXMLDocument_get_root(doc, &element);
448 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
449 hr = IXMLElement_put_text(element, str);
450 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
451 IXMLElement_Release(element);
452 SysFreeString(str);
453
454 hr = IPersistStreamInit_IsDirty(psi);
455 todo_wine ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
456
457 create_stream_on_file(&stream, path);
458 hr = IPersistStreamInit_Load(psi, stream);
459 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
460 IStream_Release(stream);
461
462 hr = IPersistStreamInit_IsDirty(psi);
463 todo_wine ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
464
465 /* reset internal stream */
466 hr = IPersistStreamInit_InitNew(psi);
467 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
468
469 hr = IPersistStreamInit_IsDirty(psi);
470 todo_wine ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
471
472 stream = NULL;
473 hr = CreateStreamOnHGlobal(NULL, TRUE, &stream);
474 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
475
476 hr = IPersistStreamInit_Save(psi, stream, FALSE);
477 todo_wine ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
478
479 stat.cbSize.QuadPart = 0;
480 hr = IStream_Stat(stream, &stat, 0);
481 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
482 todo_wine ok(stat.cbSize.QuadPart > 0, "Expected >0\n");
483 IStream_Release(stream);
484
485 memset(&id, 0, sizeof(id));
486 hr = IPersistStreamInit_GetClassID(psi, &id);
487 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
488 ok(IsEqualCLSID(&id, &CLSID_XMLDocument), "Expected CLSID_XMLDocument\n");
489
490cleanup:
491 IPersistStreamInit_Release(psi);
492 IXMLDocument_Release(doc);
493 DeleteFileA("bank.xml");
494}
495
496static BOOL test_try_xmldoc(void)
497{
498 IXMLDocument *doc = NULL;
499 HRESULT hr;
500
501 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
502 &IID_IXMLDocument, (LPVOID*)&doc);
503 if (FAILED(hr))
504 {
505 win_skip("Failed to create XMLDocument instance\n");
506 return FALSE;
507 }
508
509 IXMLDocument_Release(doc);
510 return TRUE;
511}
512
513static void test_xmlelem_children(void)
514{
515 IXMLDocument *doc = NULL;
516 IXMLElement *element = NULL, *child = NULL, *child2 = NULL;
517 IXMLElementCollection *collection = NULL;
518 VARIANT vType, vName, vIndex;
519 LONG length, refcount;
520 HRESULT hr;
521
522 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
523 &IID_IXMLDocument, (LPVOID*)&doc);
524 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
525
526 V_VT(&vType) = VT_I4;
527 V_I4(&vType) = XMLELEMTYPE_ELEMENT;
528 V_VT(&vName) = VT_NULL;
529 hr = IXMLDocument_createElement(doc, vType, vName, &element);
530 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
531 ok(element != NULL, "Expected non-NULL element\n");
532
533 V_VT(&vType) = VT_I4;
534 V_I4(&vType) = XMLELEMTYPE_TEXT;
535 V_VT(&vName) = VT_NULL;
536 hr = IXMLDocument_createElement(doc, vType, vName, &child);
537 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
538 ok(child != NULL, "Expected non-NULL child\n");
539
540 V_VT(&vType) = VT_I4;
541 V_I4(&vType) = XMLELEMTYPE_TEXT;
542 V_VT(&vName) = VT_NULL;
543 hr = IXMLDocument_createElement(doc, vType, vName, &child2);
544 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
545 ok(child2 != NULL, "Expected non-NULL child\n");
546
547 hr = IXMLElement_addChild(element, child, 0, -1);
548 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
549
550 hr = IXMLElement_get_children(element, &collection);
551 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
552 ok(collection != NULL, "Expected non-NULL collection\n");
553
554 length = 0;
555 hr = IXMLElementCollection_get_length(collection, &length);
556 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
557 ok(length == 1, "Unexpected length %ld.\n", length);
558
559 /* remove/add child and check what happens with collection */
560 hr = IXMLElement_removeChild(element, child);
561 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
562
563 length = -1;
564 hr = IXMLElementCollection_get_length(collection, &length);
565 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
566 ok(!length, "Unexpected length %ld.\n", length);
567 IXMLElementCollection_Release(collection);
568
569 refcount = IXMLElement_AddRef(child);
570 ok(refcount == 2, "Unexpected refcount %ld.\n", refcount);
571 IXMLElement_Release(child);
572 hr = IXMLElement_addChild(element, child, 0, -1);
573 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
574 refcount = IXMLElement_AddRef(child);
575 ok(refcount == 2, "Unexpected refcount %ld.\n", refcount);
576 IXMLElement_Release(child);
577 hr = IXMLElement_addChild(element, child2, 0, -1);
578 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
579
580 hr = IXMLElement_get_children(element, &collection);
581 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
582 ok(collection != NULL, "Expected non-NULL collection\n");
583
584 refcount = IXMLElement_AddRef(child);
585 ok(refcount == 2, "Unexpected refcount %ld.\n", refcount);
586 IXMLElement_Release(child);
587
588 length = 0;
589 hr = IXMLElementCollection_get_length(collection, &length);
590 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
591 ok(length == 2, "Unexpected length %ld.\n", length);
592
593 IXMLElement_Release(child2);
594
595 length = 0;
596 hr = IXMLElementCollection_get_length(collection, &length);
597 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
598 ok(length == 2, "Unexpected length %ld.\n", length);
599
600 V_VT(&vIndex) = VT_I4;
601 V_I4(&vIndex) = 1;
602 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child2);
603 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
604 ok(child2 != NULL, "Expected not NULL child\n");
605 IXMLElementCollection_Release(collection);
606 IXMLElement_Release(child2);
607
608 /* add element->child->child2 structure, then remove child2 from node */
609 V_VT(&vType) = VT_I4;
610 V_I4(&vType) = XMLELEMTYPE_TEXT;
611 V_VT(&vName) = VT_NULL;
612 hr = IXMLDocument_createElement(doc, vType, vName, &child2);
613 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
614 ok(child2 != NULL, "Expected non-NULL child\n");
615
616 hr = IXMLElement_addChild(child, child2, 0, -1);
617 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
618
619 hr = IXMLElement_removeChild(element, child2);
620 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
621
622 hr = IXMLElement_removeChild(child, child2);
623 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
624
625 hr = IXMLElement_removeChild(child, NULL);
626 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
627
628 IXMLElement_Release(element);
629 IXMLElement_Release(child);
630 IXMLElement_Release(child2);
631 IXMLDocument_Release(doc);
632}
633
634static void test_xmlelem_collection(void)
635{
636 HRESULT hr;
637 IUnknown *unk = NULL;
638 IXMLDocument *doc = NULL;
639 IXMLElement *element = NULL, *child;
640 IXMLElementCollection *collection = NULL;
641 IEnumVARIANT *enumVar = NULL;
642 CHAR pathA[MAX_PATH];
643 WCHAR path[MAX_PATH];
644 LONG length, type;
645 ULONG num_vars;
646 VARIANT var[4], dummy, vIndex, vName;
647 BSTR url, str;
648
649 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
650 &IID_IXMLDocument, (LPVOID*)&doc);
651 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
652
653 create_xml_file("bank.xml");
654 GetFullPathNameA("bank.xml", MAX_PATH, pathA, NULL);
655 MultiByteToWideChar(CP_ACP, 0, pathA, -1, path, MAX_PATH);
656
657 url = SysAllocString(path);
658 hr = IXMLDocument_put_URL(doc, url);
659 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
660 SysFreeString(url);
661
662 if(hr != S_OK)
663 goto cleanup;
664
665 hr = IXMLDocument_get_root(doc, &element);
666 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
667 ok(element != NULL, "Expected non-NULL element\n");
668
669 hr = IXMLElement_get_children(element, &collection);
670 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
671 ok(collection != NULL, "Expected non-NULL collection\n");
672
673 hr = IXMLElementCollection_get_length(collection, NULL);
674 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
675
676 hr = IXMLElementCollection_get_length(collection, &length);
677 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
678 ok(length == 2, "Unexpected count %ld.\n", length);
679
680 /* IXMLElementCollection:put_length does nothing */
681 hr = IXMLElementCollection_put_length(collection, -1);
682 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
683
684 hr = IXMLElementCollection_put_length(collection, 0);
685 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
686
687 hr = IXMLElementCollection_put_length(collection, 1);
688 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
689
690 hr = IXMLElementCollection_put_length(collection, 2);
691 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
692
693 hr = IXMLElementCollection_put_length(collection, 3);
694 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
695
696 hr = IXMLElementCollection_put_length(collection, 50);
697 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
698
699 /* make sure the length hasn't changed */
700 hr = IXMLElementCollection_get_length(collection, &length);
701 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
702 ok(length == 2, "Unexpected count %ld.\n", length);
703
704 /* IXMLElementCollection implements IEnumVARIANT */
705 hr = IXMLElementCollection_QueryInterface(collection, &IID_IEnumVARIANT, (LPVOID *)&enumVar);
706 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
707 ok(enumVar != NULL, "Expected non-NULL enumVar\n");
708 IEnumVARIANT_Release(enumVar);
709
710 hr = IXMLElementCollection_get__newEnum(collection, &unk);
711 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
712 ok(unk != NULL, "Expected non-NULL unk\n");
713
714 enumVar = (void *)0xdeadbeef;
715 hr = IUnknown_QueryInterface(unk, &IID_IXMLElementCollection, (LPVOID *)&enumVar);
716 ok(hr == E_NOINTERFACE, "Unexpected hr %#lx.\n", hr);
717 ok(enumVar == NULL || broken(enumVar == (void *)0xdeadbeef) /* XP */, "Expected NULL, got %p\n", enumVar);
718
719 hr = IUnknown_QueryInterface(unk, &IID_IEnumVARIANT, (LPVOID *)&enumVar);
720 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
721 ok(enumVar != NULL, "Expected non-NULL enumVar\n");
722 IUnknown_Release(unk);
723
724 /* <Number>1234</Number> */
725 hr = IEnumVARIANT_Next(enumVar, 1, &var[0], &num_vars);
726 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
727 ok(V_VT(&var[0]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[0]));
728 ok(num_vars == 1, "Unexpected count %ld.\n", num_vars);
729
730 hr = IDispatch_QueryInterface(V_DISPATCH(&var[0]), &IID_IXMLElement, (LPVOID *)&child);
731 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
732 ok(child != NULL, "Expected non-NULL child\n");
733
734 VariantClear(&var[0]);
735
736 hr = IXMLElement_get_type(child, &type);
737 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
738 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
739
740 hr = IXMLElement_get_tagName(child, &str);
741 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
742 ok(!lstrcmpW(str, L"NUMBER"), "Expected NUMBER\n");
743 SysFreeString(str);
744 IXMLElement_Release(child);
745
746 /* <Name>Captain Ahab</Name> */
747 hr = IEnumVARIANT_Next(enumVar, 1, &var[0], &num_vars);
748 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
749 ok(V_VT(&var[0]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[0]));
750 ok(num_vars == 1, "Unexpected count %ld.\n", num_vars);
751
752 VariantClear(&var[0]);
753
754 /* try advance further, no children left */
755 V_VT(&dummy) = VT_I4;
756 hr = IEnumVARIANT_Next(enumVar, 1, &dummy, &num_vars);
757 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
758 ok(V_VT(&dummy) == VT_EMPTY, "Expected 0, got %d\n", V_VT(&dummy));
759 ok(!num_vars, "Unexpected count %ld.\n", num_vars);
760
761 V_VT(&dummy) = VT_I4;
762 hr = IEnumVARIANT_Next(enumVar, 1, &dummy, NULL);
763 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
764 ok(V_VT(&dummy) == VT_EMPTY, "Expected 0, got %d\n", V_VT(&dummy));
765
766 hr = IEnumVARIANT_Reset(enumVar);
767 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
768
769 /* retrieve multiple elements */
770 hr = IEnumVARIANT_Next(enumVar, 2, var, &num_vars);
771 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
772 ok(V_VT(&var[0]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[0]));
773 ok(V_VT(&var[1]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[1]));
774 ok(num_vars == 2, "Unexpected count %ld.\n", num_vars);
775
776 V_VT(&dummy) = VT_I4;
777 hr = IEnumVARIANT_Next(enumVar, 1, &dummy, &num_vars);
778 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
779 ok(V_VT(&dummy) == VT_EMPTY, "Expected 0, got %d\n", V_VT(&dummy));
780 ok(!num_vars, "Unexpected count %ld.\n", num_vars);
781
782 hr = IEnumVARIANT_Reset(enumVar);
783 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
784
785 VariantClear(&var[1]);
786 VariantClear(&var[0]);
787
788 memset( var, 0xcc, sizeof(var));
789
790 /* request more elements than available */
791 hr = IEnumVARIANT_Next(enumVar, 4, var, &num_vars);
792 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
793 ok(V_VT(&var[0]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[0]));
794 ok(V_VT(&var[1]) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var[1]));
795 ok(V_VT(&var[2]) == VT_EMPTY, "Expected 0, got %d\n", V_VT(&var[2]));
796 ok(V_VT(&var[3]) == 0xcccc, "Expected invalid, got %x\n", V_VT(&var[3]));
797 ok(num_vars == 2, "Unexpected count %ld.\n", num_vars);
798
799 hr = IDispatch_QueryInterface(V_DISPATCH(&var[1]), &IID_IXMLElement, (LPVOID *)&child);
800 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
801 ok(child != NULL, "Expected non-NULL child\n");
802
803 VariantClear(&var[1]);
804 VariantClear(&var[0]);
805
806 hr = IXMLElement_get_type(child, &type);
807 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
808 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
809
810 hr = IXMLElement_get_tagName(child, &str);
811 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
812 ok(!lstrcmpW(str, L"NAME"), "Expected NAME\n");
813 SysFreeString(str);
814 IXMLElement_Release(child);
815
816 /* <Number>1234</Number> */
817 V_VT(&vIndex) = VT_I4;
818 V_I4(&vIndex) = 0;
819 V_VT(&vName) = VT_ERROR;
820 V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
821 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
822 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
823 ok(child != NULL, "Expected non-NULL child\n");
824
825 hr = IXMLElement_get_type(child, &type);
826 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
827 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
828
829 hr = IXMLElement_get_tagName(child, &str);
830 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
831 ok(!lstrcmpW(str, L"NUMBER"), "Expected NUMBER\n");
832 SysFreeString(str);
833 IXMLElement_Release(child);
834
835 /* <Name>Captain Ahab</Name> */
836 V_VT(&vIndex) = VT_I4;
837 V_I4(&vIndex) = 1;
838 V_VT(&vName) = VT_ERROR;
839 V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
840 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
841 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
842 ok(child != NULL, "Expected non-NULL child\n");
843
844 hr = IXMLElement_get_type(child, &type);
845 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
846 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
847
848 hr = IXMLElement_get_tagName(child, &str);
849 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
850 ok(!lstrcmpW(str, L"NAME"), "Expected NAME\n");
851 SysFreeString(str);
852 IXMLElement_Release(child);
853
854 V_I4(&vIndex) = 100;
855 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
856 ok(hr == E_FAIL, "Unexpected hr %#lx.\n", hr);
857 ok(child == NULL, "Expected NULL child\n");
858
859 V_I4(&vIndex) = -1;
860 child = (IXMLElement *)0xdeadbeef;
861 hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
862 ok(hr == E_INVALIDARG, "Unexpected hr %#lx.\n", hr);
863 ok(child == NULL, "Expected NULL child\n");
864
865 IEnumVARIANT_Release(enumVar);
866 IXMLElement_Release(element);
867 IXMLElementCollection_Release(collection);
868cleanup:
869 IXMLDocument_Release(doc);
870 DeleteFileA("bank.xml");
871}
872
873static void test_xmlelem(void)
874{
875 HRESULT hr;
876 IXMLDocument *doc = NULL;
877 IXMLElement *element = NULL, *parent;
878 IXMLElement *child, *child2;
879 IXMLElementCollection *children;
880 VARIANT vType, vName;
881 VARIANT vIndex, vValue;
882 BSTR str, val, name;
883 LONG type, num_child;
884 IDispatch *disp;
885 ITypeInfo *ti;
886
887 hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
888 &IID_IXMLDocument, (LPVOID*)&doc);
889 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
890
891 V_VT(&vType) = VT_I4;
892 V_I4(&vType) = XMLELEMTYPE_ELEMENT;
893 V_VT(&vName) = VT_NULL;
894 hr = IXMLDocument_createElement(doc, vType, vName, &element);
895 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
896 ok(element != NULL, "Expected non-NULL element\n");
897
898 /* test for IDispatch */
899 disp = NULL;
900 hr = IXMLElement_QueryInterface(element, &IID_IDispatch, (void**)&disp);
901 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
902
903 hr = IDispatch_GetTypeInfo(disp, 0, 0, &ti);
904 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
905
906 name = NULL;
907 hr = ITypeInfo_GetDocumentation(ti, DISPID_XMLELEMENT_TAGNAME, &name, NULL, NULL, NULL);
908 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
909 SysFreeString(name);
910
911 ITypeInfo_Release(ti);
912 IDispatch_Release(disp);
913
914 hr = IXMLElement_get_tagName(element, &str);
915 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
916 ok(!str, "Expected empty tag name, got %s\n", wine_dbgstr_w(str));
917 SysFreeString(str);
918
919 parent = (IXMLElement *)0xdeadbeef;
920 hr = IXMLElement_get_parent(element, &parent);
921 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
922 ok(parent == NULL, "Expected NULL parent\n");
923
924 str = SysAllocString(L"noexist");
925 hr = IXMLElement_getAttribute(element, str, &vValue);
926 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
927 ok(V_VT(&vValue) == VT_EMPTY, "Expected VT_EMPTY, got %d\n", V_VT(&vValue));
928 ok(V_BSTR(&vValue) == NULL, "Expected null value\n");
929 VariantClear(&vValue);
930 SysFreeString(str);
931
932 str = SysAllocString(L"CRazYcASE");
933 val = SysAllocString(L"val");
934 V_VT(&vValue) = VT_BSTR;
935 V_BSTR(&vValue) = val;
936 hr = IXMLElement_setAttribute(element, str, vValue);
937 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
938 SysFreeString(str);
939 SysFreeString(val);
940
941 str = SysAllocString(L"CRAZYCASE");
942 hr = IXMLElement_getAttribute(element, str, &vValue);
943 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
944 ok(V_VT(&vValue) == VT_BSTR, "Expected VT_BSTR, got %d\n", V_VT(&vValue));
945 ok(!lstrcmpW(V_BSTR(&vValue), L"val"), "Expected 'val'\n");
946 VariantClear(&vValue);
947 SysFreeString(str);
948
949 str = SysAllocString(L"prop");
950 val = SysAllocString(L"val");
951 V_VT(&vValue) = VT_BSTR;
952 V_BSTR(&vValue) = val;
953 hr = IXMLElement_setAttribute(element, str, vValue);
954 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
955 SysFreeString(val);
956
957 hr = IXMLElement_getAttribute(element, str, &vValue);
958 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
959 ok(V_VT(&vValue) == VT_BSTR, "Expected VT_BSTR, got %d\n", V_VT(&vValue));
960 ok(!lstrcmpW(V_BSTR(&vValue), L"val"), "Expected 'val'\n");
961 VariantClear(&vValue);
962
963 hr = IXMLElement_removeAttribute(element, str);
964 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
965
966 /* remove now nonexistent attribute */
967 hr = IXMLElement_removeAttribute(element, str);
968 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
969
970 hr = IXMLElement_getAttribute(element, str, &vValue);
971 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
972 ok(V_VT(&vValue) == VT_EMPTY, "Expected VT_EMPTY, got %d\n", V_VT(&vValue));
973 ok(V_BSTR(&vValue) == NULL, "Expected null value\n");
974 SysFreeString(str);
975 VariantClear(&vValue);
976
977 children = (IXMLElementCollection *)0xdeadbeef;
978 hr = IXMLElement_get_children(element, &children);
979 ok(hr == S_FALSE, "Unexpected hr %#lx.\n", hr);
980 ok(children == NULL, "Expected NULL collection\n");
981
982 hr = IXMLElement_get_type(element, &type);
983 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
984 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
985
986 hr = IXMLElement_get_text(element, &str);
987 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
988 ok(str && !*str, "Expected empty text\n");
989 SysFreeString(str);
990
991 /* put_text with an ELEMENT */
992 str = SysAllocString(L"val");
993 hr = IXMLElement_put_text(element, str);
994 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
995 SysFreeString(str);
996
997 V_VT(&vType) = VT_I4;
998 V_I4(&vType) = XMLELEMTYPE_TEXT;
999 V_VT(&vName) = VT_NULL;
1000 hr = IXMLDocument_createElement(doc, vType, vName, &child);
1001 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1002 ok(child != NULL, "Expected non-NULL child\n");
1003
1004 hr = IXMLElement_addChild(element, child, 0, -1);
1005 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1006
1007 str = SysAllocString(L"val");
1008 hr = IXMLElement_put_text(child, str);
1009 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1010 SysFreeString(str);
1011
1012 parent = (IXMLElement *)0xdeadbeef;
1013 hr = IXMLElement_get_parent(child, &parent);
1014 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1015 ok(parent != element, "Expected parent != element\n");
1016
1017 hr = IXMLElement_get_type(parent, &type);
1018 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1019 ok(type == XMLELEMTYPE_ELEMENT, "Unexpected type %ld.\n", type);
1020
1021 children = (IXMLElementCollection *)0xdeadbeef;
1022 hr = IXMLElement_get_children(element, &children);
1023 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1024 ok(children != NULL, "Expected non-NULL collection\n");
1025
1026 hr = IXMLElementCollection_get_length(children, &num_child);
1027 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1028 ok(num_child == 1, "Unexpected length %ld.\n", num_child);
1029
1030 V_VT(&vIndex) = VT_I4;
1031 V_I4(&vIndex) = 0;
1032 V_VT(&vName) = VT_ERROR;
1033 V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
1034 hr = IXMLElementCollection_item(children, vIndex, vName, (IDispatch **)&child2);
1035 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1036 ok(child2 != NULL, "Expected non-NULL child\n");
1037
1038 hr = IXMLElement_get_type(child2, &type);
1039 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1040 ok(type == XMLELEMTYPE_TEXT, "Unexpected type %ld.\n", type);
1041
1042 hr = IXMLElement_get_text(element, &str);
1043 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1044 ok(!lstrcmpW(str, L"val"), "Expected 'val'\n");
1045 SysFreeString(str);
1046
1047 hr = IXMLElement_get_text(child2, &str);
1048 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1049 ok(!lstrcmpW(str, L"val"), "Expected 'val'\n");
1050 SysFreeString(str);
1051
1052 /* try put_text on ELEMENT again, now that it has a text child */
1053 str = SysAllocString(L"next");
1054 hr = IXMLElement_put_text(element, str);
1055 ok(hr == E_NOTIMPL, "Unexpected hr %#lx.\n", hr);
1056 SysFreeString(str);
1057
1058 str = SysAllocString(L"next");
1059 hr = IXMLElement_put_text(child2, str);
1060 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1061 SysFreeString(str);
1062
1063 hr = IXMLElement_get_text(element, &str);
1064 ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
1065 ok(!lstrcmpW(str, L"next"), "Expected 'val'\n");
1066 SysFreeString(str);
1067
1068 IXMLElement_Release(child2);
1069 IXMLElementCollection_Release(children);
1070 IXMLElement_Release(parent);
1071 IXMLElement_Release(child);
1072 IXMLElement_Release(element);
1073 IXMLDocument_Release(doc);
1074}
1075
1076START_TEST(xmldoc)
1077{
1078 HRESULT hr;
1079
1080 hr = CoInitialize(NULL);
1081 ok(hr == S_OK, "failed to init com\n");
1082
1083 if (!test_try_xmldoc())
1084 {
1085 CoUninitialize();
1086 return;
1087 }
1088
1089 test_xmldoc();
1090 test_createElement();
1091 test_persiststreaminit();
1092 test_xmlelem();
1093 test_xmlelem_collection();
1094 test_xmlelem_children();
1095
1096 CoUninitialize();
1097}
stat
#define stat
Definition: acwin.h:99
read
#define read
Definition: acwin.h:96
ok
#define ok(value,...)
Definition: atltest.h:57
broken
#define broken(x)
Definition: atltest.h:178
START_TEST
#define START_TEST(x)
Definition: atltest.h:75
E_INVALIDARG
#define E_INVALIDARG
Definition: ddrawi.h:101
E_NOTIMPL
#define E_NOTIMPL
Definition: ddrawi.h:99
E_FAIL
#define E_FAIL
Definition: ddrawi.h:102
NULL
#define NULL
Definition: types.h:112
TRUE
#define TRUE
Definition: types.h:120
FALSE
#define FALSE
Definition: types.h:117
CloseHandle
#define CloseHandle
Definition: compat.h:739
CP_ACP
#define CP_ACP
Definition: compat.h:109
OPEN_EXISTING
#define OPEN_EXISTING
Definition: compat.h:775
ReadFile
#define ReadFile(a, b, c, d, e)
Definition: compat.h:742
INVALID_HANDLE_VALUE
#define INVALID_HANDLE_VALUE
Definition: compat.h:731
CreateFileA
#define CreateFileA(a, b, c, d, e, f, g)
Definition: compat.h:740
BSTR
OLECHAR * BSTR
Definition: compat.h:2293
GENERIC_READ
#define GENERIC_READ
Definition: compat.h:135
MAX_PATH
#define MAX_PATH
Definition: compat.h:34
FILE_ATTRIBUTE_NORMAL
#define FILE_ATTRIBUTE_NORMAL
Definition: compat.h:137
MultiByteToWideChar
#define MultiByteToWideChar
Definition: compat.h:110
FILE_SHARE_READ
#define FILE_SHARE_READ
Definition: compat.h:136
VT_BSTR
@ VT_BSTR
Definition: compat.h:2303
VT_NULL
@ VT_NULL
Definition: compat.h:2296
VT_ERROR
@ VT_ERROR
Definition: compat.h:2305
VT_I4
@ VT_I4
Definition: compat.h:2298
VT_EMPTY
@ VT_EMPTY
Definition: compat.h:2295
VT_DISPATCH
@ VT_DISPATCH
Definition: compat.h:2304
cleanup
static void cleanup(void)
Definition: main.c:1335
DeleteFileA
BOOL WINAPI DeleteFileA(IN LPCSTR lpFileName)
Definition: delete.c:24
GetFileSize
DWORD WINAPI GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh)
Definition: fileinfo.c:331
WriteFile
BOOL WINAPI WriteFile(IN HANDLE hFile, IN LPCVOID lpBuffer, IN DWORD nNumberOfBytesToWrite OPTIONAL, OUT LPDWORD lpNumberOfBytesWritten, IN LPOVERLAPPED lpOverlapped OPTIONAL)
Definition: rw.c:24
GetFullPathNameA
DWORD WINAPI GetFullPathNameA(IN LPCSTR lpFileName, IN DWORD nBufferLength, OUT LPSTR lpBuffer, OUT LPSTR *lpFilePart)
Definition: path.c:993
lstrcmpW
int WINAPI lstrcmpW(LPCWSTR str1, LPCWSTR str2)
Definition: locale.c:4246
CoCreateInstance
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv)
Definition: compobj.c:3325
CoInitialize
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
Definition: compobj.c:1964
CoUninitialize
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
Definition: compobj.c:2067
CreateStreamOnHGlobal
HRESULT WINAPI CreateStreamOnHGlobal(HGLOBAL hGlobal, BOOL fDeleteOnRelease, LPSTREAM *ppstm)
Definition: hglobalstream.c:623
L
#define L(x)
Definition: resources.c:13
parent
r parent
Definition: btrfs.c:3010
BOOL
unsigned int BOOL
Definition: ntddk_ex.h:94
DWORD
unsigned long DWORD
Definition: ntddk_ex.h:95
type
GLuint GLuint GLsizei GLenum type
Definition: gl.h:1545
data
GLint GLenum GLsizei GLsizei GLsizei GLint GLsizei const GLvoid * data
Definition: gl.h:1950
size
GLsizeiptr size
Definition: glext.h:5919
length
GLuint GLsizei GLsizei * length
Definition: glext.h:6040
val
GLuint GLfloat * val
Definition: glext.h:7180
pathA
GLuint pathA
Definition: glext.h:11719
id
GLuint id
Definition: glext.h:5910
GlobalUnlock
BOOL NTAPI GlobalUnlock(HGLOBAL hMem)
Definition: heapmem.c:1190
GlobalAlloc
HGLOBAL NTAPI GlobalAlloc(UINT uFlags, SIZE_T dwBytes)
Definition: heapmem.c:368
S_OK
#define S_OK
Definition: intsafe.h:52
FAILED
#define FAILED(hr)
Definition: intsafe.h:51
filename
const char * filename
Definition: ioapi.h:137
GlobalLock
static ERESOURCE GlobalLock
Definition: sys_arch.c:8
wine_dbgstr_w
#define wine_dbgstr_w
Definition: kernel32.h:34
win_skip
#define win_skip
Definition: minitest.h:67
todo_wine
#define todo_wine
Definition: minitest.h:80
CREATE_ALWAYS
#define CREATE_ALWAYS
Definition: disk.h:72
ptr
static PVOID ptr
Definition: dispmode.c:27
url
static const WCHAR url[]
Definition: encode.c:1384
var
const char * var
Definition: shader.c:5666
create_stream_on_file
static void create_stream_on_file(IStream **stream, LPCSTR path)
Definition: xmldoc.c:53
test_xmlelem_collection
static void test_xmlelem_collection(void)
Definition: xmldoc.c:634
test_xmlelem_children
static void test_xmlelem_children(void)
Definition: xmldoc.c:513
test_xmldoc
static void test_xmldoc(void)
Definition: xmldoc.c:80
create_xml_file
static void create_xml_file(LPCSTR filename)
Definition: xmldoc.c:35
test_createElement
static void test_createElement(void)
Definition: xmldoc.c:289
test_try_xmldoc
static BOOL test_try_xmldoc(void)
Definition: xmldoc.c:496
test_xmlelem
static void test_xmlelem(void)
Definition: xmldoc.c:873
XML_E_INVALIDATROOTLEVEL
#define XML_E_INVALIDATROOTLEVEL
Definition: xmldoc.c:33
test_persiststreaminit
static void test_persiststreaminit(void)
Definition: xmldoc.c:377
collection
static ICollection collection
Definition: typelib.c:184
child
static HWND child
Definition: cursoricon.c:298
DISPID_XMLELEMENT_TAGNAME
#define DISPID_XMLELEMENT_TAGNAME
Definition: msxml2did.h:49
DISPID_XMLDOCUMENT_ROOT
#define DISPID_XMLDOCUMENT_ROOT
Definition: msxml2did.h:33
CLSID_XMLDocument
const struct _GUID CLSID_XMLDocument
GENERIC_WRITE
#define GENERIC_WRITE
Definition: nt_native.h:90
SysAllocString
BSTR WINAPI SysAllocString(LPCOLESTR str)
Definition: oleaut.c:238
SysFreeString
void WINAPI DECLSPEC_HOTPATCH SysFreeString(BSTR str)
Definition: oleaut.c:271
V_ERROR
#define V_ERROR(A)
Definition: oleauto.h:241
V_VT
#define V_VT(A)
Definition: oleauto.h:211
V_BSTR
#define V_BSTR(A)
Definition: oleauto.h:226
V_I4
#define V_I4(A)
Definition: oleauto.h:247
V_DISPATCH
#define V_DISPATCH(A)
Definition: oleauto.h:239
IID_IDispatch
const GUID IID_IDispatch
IID_IPersistStreamInit
const GUID IID_IPersistStreamInit
LONG
long LONG
Definition: pedump.c:60
IsEqualCLSID
#define IsEqualCLSID(rclsid1, rclsid2)
Definition: guiddef.h:96
file_size
static unsigned int file_size
Definition: regtests2xml.c:47
str
const WCHAR * str
Definition: rpc_transport.c:2696
memset
#define memset(x, y, z)
Definition: compat.h:39
hr
HRESULT hr
Definition: shlfolder.c:183
_IID
Definition: mstsclib_i.c:51
_ULARGE_INTEGER
Definition: ms-dtyp.idl:184
_root
Definition: btrfs_drv.h:450
_xmldoc
Definition: xmldoc.c:49
name
Definition: name.c:39
stat
Definition: stat.h:66
stream
Definition: parse.h:23
ULONG
uint32_t ULONG
Definition: typedefs.h:59
value
Definition: pdh_main.c:96
VariantClear
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
Definition: variant.c:648
GHND
#define GHND
Definition: winbase.h:321
S_FALSE
#define S_FALSE
Definition: winerror.h:3451
DISP_E_PARAMNOTFOUND
#define DISP_E_PARAMNOTFOUND
Definition: winerror.h:3616
E_NOINTERFACE
#define E_NOINTERFACE
Definition: winerror.h:3479
E_POINTER
#define E_POINTER
Definition: winerror.h:3480
LPCSTR
const char * LPCSTR
Definition: xmlstorage.h:183
WCHAR
__wchar_t WCHAR
Definition: xmlstorage.h:180
CHAR
char CHAR
Definition: xmlstorage.h:175