* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
+#define WIN32_NO_STATUS
+#define _INC_WINDOWS
+#define COM_NO_WINDOWS_H
+
#define COBJMACROS
-#include <stdio.h>
-#include "windows.h"
-#include "ole2.h"
-#include "msxml2.h"
-#include "ocidl.h"
+#include <wine/test.h>
+
+//#include <stdio.h>
+//#include "windows.h"
+#include <winnls.h>
+#include <ole2.h>
+#include <msxml2.h>
+#include <msxml2did.h>
+#include <ocidl.h>
-#include "wine/test.h"
+#define EXPECT_HR(hr,hr_exp) \
+ ok(hr == hr_exp, "got 0x%08x, expected 0x%08x\n", hr, hr_exp)
/* Deprecated Error Code */
#define XML_E_INVALIDATROOTLEVEL 0xc00ce556
static void create_xml_file(LPCSTR filename)
{
DWORD dwNumberOfBytesWritten;
- HANDLE hf = CreateFile(filename, GENERIC_WRITE, 0, NULL,
- CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
+ HANDLE hf = CreateFileA(filename, GENERIC_WRITE, 0, NULL,
+ CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
static const char data[] =
"<?xml version=\"1.0\" ?>\n"
HRESULT hr;
DWORD file_size, read;
- hfile = CreateFile(path, GENERIC_READ, FILE_SHARE_READ, NULL,
- OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
+ hfile = CreateFileA(path, GENERIC_READ, FILE_SHARE_READ, NULL,
+ OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
ok(hfile != INVALID_HANDLE_VALUE, "Expected a valid file handle\n");
file_size = GetFileSize(hfile, NULL);
static void test_xmldoc(void)
{
- HRESULT hr;
- IXMLDocument *doc = NULL;
IXMLElement *element = NULL, *child = NULL, *value = NULL;
IXMLElementCollection *collection = NULL, *inner = NULL;
IPersistStreamInit *psi = NULL;
+ IXMLDocument *doc = NULL;
IStream *stream = NULL;
- CHAR path[MAX_PATH];
- LONG type, num_child;
VARIANT vIndex, vName;
- BSTR name = NULL;
+ LONG type, num_child;
+ CHAR path[MAX_PATH];
+ IDispatch *disp;
+ ITypeInfo *ti;
+ HRESULT hr;
+ BSTR name;
static const WCHAR szBankAccount[] = {'B','A','N','K','A','C','C','O','U','N','T',0};
static const WCHAR szNumber[] = {'N','U','M','B','E','R',0};
static const WCHAR szName[] = {'N','A','M','E',0};
static const WCHAR szNameVal[] = {'C','a','p','t','a','i','n',' ','A','h','a','b',0};
static const WCHAR szVersion[] = {'1','.','0',0};
+ static const WCHAR rootW[] = {'r','o','o','t',0};
hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
- &IID_IXMLDocument, (LPVOID*)&doc);
- ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ &IID_IXMLDocument, (void**)&doc);
+ EXPECT_HR(hr, S_OK);
+
+ /* IDispatch */
+ hr = IXMLDocument_QueryInterface(doc, &IID_IDispatch, (void**)&disp);
+ EXPECT_HR(hr, S_OK);
+
+ /* just to make sure we're on right type data */
+ hr = IDispatch_GetTypeInfo(disp, 0, 0, &ti);
+ EXPECT_HR(hr, S_OK);
+ name = NULL;
+ hr = ITypeInfo_GetDocumentation(ti, DISPID_XMLDOCUMENT_ROOT, &name, NULL, NULL, NULL);
+ EXPECT_HR(hr, S_OK);
+ ok(!lstrcmpW(name, rootW), "got name %s\n", wine_dbgstr_w(name));
+ SysFreeString(name);
+
+ ITypeInfo_Release(ti);
+ IDispatch_Release(disp);
+
+ hr = IXMLDocument_QueryInterface(doc, &IID_IXMLDOMDocument, (void**)&disp);
+ EXPECT_HR(hr, E_NOINTERFACE);
create_xml_file("bank.xml");
GetFullPathNameA("bank.xml", MAX_PATH, path, NULL);
create_stream_on_file(&stream, path);
- hr = IXMLDocument_QueryInterface(doc, &IID_IPersistStreamInit, (LPVOID *)&psi);
+ hr = IXMLDocument_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&psi);
ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
ok(psi != NULL, "Expected non-NULL psi\n");
hr = IXMLDocument_get_version(doc, NULL);
ok(hr == E_INVALIDARG, "Expected E_INVALIDARG, got %08x\n", hr);
+ name = NULL;
hr = IXMLDocument_get_version(doc, &name);
ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
ok(!lstrcmpW(name, szVersion), "Expected 1.0, got %s\n", wine_dbgstr_w(name));
hr = IXMLDocument_get_root(doc, &element);
ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
hr = IXMLElement_put_text(element, str);
+ ok(hr == E_NOTIMPL, "Expected E_NOTIMPL, got %08x\n", hr);
IXMLElement_Release(element);
SysFreeString(str);
return TRUE;
}
+static void test_xmlelem_children(void)
+{
+ IXMLDocument *doc = NULL;
+ IXMLElement *element = NULL, *child = NULL, *child2 = NULL;
+ IXMLElementCollection *collection = NULL;
+ VARIANT vType, vName, vIndex;
+ LONG length;
+ HRESULT hr;
+
+ hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
+ &IID_IXMLDocument, (LPVOID*)&doc);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_ELEMENT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &element);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(element != NULL, "Expected non-NULL element\n");
+
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_TEXT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_TEXT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &child2);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child2 != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_addChild(element, child, 0, -1);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ hr = IXMLElement_get_children(element, &collection);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(collection != NULL, "Expected non-NULL collection\n");
+
+ length = 0;
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 1, "Expected 1, got %08x\n", length);
+
+ /* remove/add child and check what happens with collection */
+ hr = IXMLElement_removeChild(element, child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ length = -1;
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 0, "Expected 0, got %08x\n", length);
+ IXMLElementCollection_Release(collection);
+
+ hr = IXMLElement_AddRef(child);
+ ok(hr == 2, "Expected 2, got %08x\n", hr);
+ IXMLElement_Release(child);
+ hr = IXMLElement_addChild(element, child, 0, -1);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ hr = IXMLElement_AddRef(child);
+ ok(hr == 2, "Expected 2, got %08x\n", hr);
+ IXMLElement_Release(child);
+ hr = IXMLElement_addChild(element, child2, 0, -1);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ hr = IXMLElement_get_children(element, &collection);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(collection != NULL, "Expected non-NULL collection\n");
+
+ hr = IXMLElement_AddRef(child);
+ ok(hr == 2, "Expected 2, got %08x\n", hr);
+ IXMLElement_Release(child);
+
+ length = 0;
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 2, "Expected 2, got %08x\n", length);
+
+ IXMLElement_Release(child2);
+
+ length = 0;
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 2, "Expected 2, got %08x\n", length);
+
+ V_VT(&vIndex) = VT_I4;
+ V_I4(&vIndex) = 1;
+ hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child2);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child2 != NULL, "Expected not NULL child\n");
+ IXMLElementCollection_Release(collection);
+ IXMLElement_Release(child2);
+
+ /* add element->child->child2 structure, then remove child2 from node */
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_TEXT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &child2);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child2 != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_addChild(child, child2, 0, -1);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ hr = IXMLElement_removeChild(element, child2);
+ ok(hr == E_INVALIDARG, "Expected E_INVALIDARG, got %08x\n", hr);
+
+ hr = IXMLElement_removeChild(child, child2);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ hr = IXMLElement_removeChild(child, NULL);
+ ok(hr == E_INVALIDARG, "Expected E_INVALIDARG, got %08x\n", hr);
+
+ IXMLElement_Release(element);
+ IXMLElement_Release(child);
+ IXMLElement_Release(child2);
+ IXMLDocument_Release(doc);
+}
+
+static void test_xmlelem_collection(void)
+{
+ HRESULT hr;
+ IUnknown *unk = NULL;
+ IXMLDocument *doc = NULL;
+ IXMLElement *element = NULL, *child;
+ IXMLElementCollection *collection = NULL;
+ IEnumVARIANT *enumVar = NULL;
+ CHAR pathA[MAX_PATH];
+ WCHAR path[MAX_PATH];
+ LONG length, type;
+ ULONG num_vars;
+ VARIANT var, vIndex, vName;
+ BSTR url, str;
+ static const CHAR szBankXML[] = "bank.xml";
+ static const WCHAR szNumber[] = {'N','U','M','B','E','R',0};
+ static const WCHAR szName[] = {'N','A','M','E',0};
+
+ hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
+ &IID_IXMLDocument, (LPVOID*)&doc);
+ ok(hr == S_OK, "Expected S_OK, got 0x%08x\n", hr);
+
+ create_xml_file(szBankXML);
+ GetFullPathNameA(szBankXML, MAX_PATH, pathA, NULL);
+ MultiByteToWideChar(CP_ACP, 0, pathA, -1, path, MAX_PATH);
+
+ url = SysAllocString(path);
+ hr = IXMLDocument_put_URL(doc, url);
+ ok(hr == S_OK, "Expected S_OK, got 0x%08x\n", hr);
+ SysFreeString(url);
+
+ if(hr != S_OK)
+ goto cleanup;
+
+ hr = IXMLDocument_get_root(doc, &element);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(element != NULL, "Expected non-NULL element\n");
+
+ hr = IXMLElement_get_children(element, &collection);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(collection != NULL, "Expected non-NULL collection\n");
+
+ hr = IXMLElementCollection_get_length(collection, NULL);
+ ok(hr == E_INVALIDARG, "Expected E_INVALIDARG, got %08x\n", hr);
+
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 2, "Expected 2, got %d\n", length);
+
+ /* IXMLElementCollection:put_length does nothing */
+ hr = IXMLElementCollection_put_length(collection, -1);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ hr = IXMLElementCollection_put_length(collection, 0);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ hr = IXMLElementCollection_put_length(collection, 1);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ hr = IXMLElementCollection_put_length(collection, 2);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ hr = IXMLElementCollection_put_length(collection, 3);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ hr = IXMLElementCollection_put_length(collection, 50);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+
+ /* make sure the length hasn't changed */
+ hr = IXMLElementCollection_get_length(collection, &length);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(length == 2, "Expected 2, got %d\n", length);
+
+ /* IXMLElementCollection implements IEnumVARIANT */
+ hr = IXMLElementCollection_QueryInterface(collection, &IID_IEnumVARIANT, (LPVOID *)&enumVar);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(enumVar != NULL, "Expected non-NULL enumVar\n");
+ IEnumVARIANT_Release(enumVar);
+
+ hr = IXMLElementCollection_get__newEnum(collection, &unk);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(unk != NULL, "Expected non-NULL unk\n");
+
+ enumVar = (void *)0xdeadbeef;
+ hr = IUnknown_QueryInterface(unk, &IID_IXMLElementCollection, (LPVOID *)&enumVar);
+ ok(hr == E_NOINTERFACE, "Expected E_NOINTERFACE, got %08x\n", hr);
+ ok(enumVar == NULL || broken(enumVar == (void *)0xdeadbeef) /* XP */, "Expected NULL, got %p\n", enumVar);
+
+ hr = IUnknown_QueryInterface(unk, &IID_IEnumVARIANT, (LPVOID *)&enumVar);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(enumVar != NULL, "Expected non-NULL enumVar\n");
+ IUnknown_Release(unk);
+
+ /* <Number>1234</Number> */
+ hr = IEnumVARIANT_Next(enumVar, 1, &var, &num_vars);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(V_VT(&var) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var));
+ ok(num_vars == 1, "Expected 1, got %d\n", num_vars);
+
+ hr = IDispatch_QueryInterface(V_DISPATCH(&var), &IID_IXMLElement, (LPVOID *)&child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ VariantClear(&var);
+
+ hr = IXMLElement_get_type(child, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ hr = IXMLElement_get_tagName(child, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, szNumber), "Expected NUMBER\n");
+ SysFreeString(str);
+ IXMLElement_Release(child);
+
+ /* <Name>Captain Ahab</Name> */
+ hr = IEnumVARIANT_Next(enumVar, 1, &var, &num_vars);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(V_VT(&var) == VT_DISPATCH, "Expected VT_DISPATCH, got %d\n", V_VT(&var));
+ ok(num_vars == 1, "Expected 1, got %d\n", num_vars);
+
+ /* try advance further, no children left */
+ hr = IEnumVARIANT_Next(enumVar, 1, &var, &num_vars);
+ ok(hr == S_FALSE, "Expected S_FALSE, got %08x\n", hr);
+ ok(V_VT(&var) == 0, "Expected 0, got %d\n", V_VT(&var));
+ ok(num_vars == 0, "Expected 0, got %d\n", num_vars);
+
+ hr = IEnumVARIANT_Next(enumVar, 1, &var, NULL);
+ ok(hr == S_FALSE, "Expected S_FALSE, got %08x\n", hr);
+ ok(V_VT(&var) == 0, "Expected 0, got %d\n", V_VT(&var));
+
+ hr = IDispatch_QueryInterface(V_DISPATCH(&var), &IID_IXMLElement, (LPVOID *)&child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ VariantClear(&var);
+
+ hr = IXMLElement_get_type(child, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ hr = IXMLElement_get_tagName(child, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, szName), "Expected NAME\n");
+ SysFreeString(str);
+ IXMLElement_Release(child);
+
+ /* <Number>1234</Number> */
+ V_VT(&vIndex) = VT_I4;
+ V_I4(&vIndex) = 0;
+ V_VT(&vName) = VT_ERROR;
+ V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
+ hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_get_type(child, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ hr = IXMLElement_get_tagName(child, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, szNumber), "Expected NUMBER\n");
+ SysFreeString(str);
+ IXMLElement_Release(child);
+
+ /* <Name>Captain Ahab</Name> */
+ V_VT(&vIndex) = VT_I4;
+ V_I4(&vIndex) = 1;
+ V_VT(&vName) = VT_ERROR;
+ V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
+ hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_get_type(child, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ hr = IXMLElement_get_tagName(child, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, szName), "Expected NAME\n");
+ SysFreeString(str);
+ IXMLElement_Release(child);
+
+ V_I4(&vIndex) = 100;
+ hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
+ ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
+ ok(child == NULL, "Expected NULL child\n");
+
+ V_I4(&vIndex) = -1;
+ child = (IXMLElement *)0xdeadbeef;
+ hr = IXMLElementCollection_item(collection, vIndex, vName, (IDispatch **)&child);
+ ok(hr == E_INVALIDARG, "Expected E_INVALIDARG, got %08x\n", hr);
+ ok(child == NULL, "Expected NULL child\n");
+
+ IEnumVARIANT_Release(enumVar);
+ IXMLElement_Release(element);
+ IXMLElementCollection_Release(collection);
+cleanup:
+ IXMLDocument_Release(doc);
+ DeleteFileA("bank.xml");
+}
+
+static void test_xmlelem(void)
+{
+ HRESULT hr;
+ IXMLDocument *doc = NULL;
+ IXMLElement *element = NULL, *parent;
+ IXMLElement *child, *child2;
+ IXMLElementCollection *children;
+ VARIANT vType, vName;
+ VARIANT vIndex, vValue;
+ BSTR str, val, name;
+ LONG type, num_child;
+ IDispatch *disp;
+ ITypeInfo *ti;
+
+ static const WCHAR propName[] = {'p','r','o','p',0};
+ static const WCHAR propVal[] = {'v','a','l',0};
+ static const WCHAR nextVal[] = {'n','e','x','t',0};
+ static const WCHAR noexist[] = {'n','o','e','x','i','s','t',0};
+ static const WCHAR crazyCase1[] = {'C','R','a','z','Y','c','A','S','E',0};
+ static const WCHAR crazyCase2[] = {'C','R','A','Z','Y','C','A','S','E',0};
+
+ hr = CoCreateInstance(&CLSID_XMLDocument, NULL, CLSCTX_INPROC_SERVER,
+ &IID_IXMLDocument, (LPVOID*)&doc);
+ EXPECT_HR(hr, S_OK);
+
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_ELEMENT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &element);
+ EXPECT_HR(hr, S_OK);
+ ok(element != NULL, "Expected non-NULL element\n");
+
+ /* test for IDispatch */
+ disp = NULL;
+ hr = IXMLElement_QueryInterface(element, &IID_IDispatch, (void**)&disp);
+ EXPECT_HR(hr, S_OK);
+
+ hr = IDispatch_GetTypeInfo(disp, 0, 0, &ti);
+ EXPECT_HR(hr, S_OK);
+
+ name = NULL;
+ hr = ITypeInfo_GetDocumentation(ti, DISPID_XMLELEMENT_TAGNAME, &name, NULL, NULL, NULL);
+ EXPECT_HR(hr, S_OK);
+ SysFreeString(name);
+
+ ITypeInfo_Release(ti);
+ IDispatch_Release(disp);
+
+ hr = IXMLElement_get_tagName(element, &str);
+ EXPECT_HR(hr, S_OK);
+ ok(!str, "Expected empty tag name, got %s\n", wine_dbgstr_w(str));
+ SysFreeString(str);
+
+ parent = (IXMLElement *)0xdeadbeef;
+ hr = IXMLElement_get_parent(element, &parent);
+ ok(hr == 1, "Expected 1, got %08x\n", hr);
+ ok(parent == NULL, "Expected NULL parent\n");
+
+ str = SysAllocString(noexist);
+ hr = IXMLElement_getAttribute(element, str, &vValue);
+ ok(hr == S_FALSE, "Expected S_FALSE, got %08x\n", hr);
+ ok(V_VT(&vValue) == VT_EMPTY, "Expected VT_EMPTY, got %d\n", V_VT(&vValue));
+ ok(V_BSTR(&vValue) == NULL, "Expected null value\n");
+ VariantClear(&vValue);
+ SysFreeString(str);
+
+ str = SysAllocString(crazyCase1);
+ val = SysAllocString(propVal);
+ V_VT(&vValue) = VT_BSTR;
+ V_BSTR(&vValue) = val;
+ hr = IXMLElement_setAttribute(element, str, vValue);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ SysFreeString(str);
+ SysFreeString(val);
+
+ str = SysAllocString(crazyCase2);
+ hr = IXMLElement_getAttribute(element, str, &vValue);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(V_VT(&vValue) == VT_BSTR, "Expected VT_BSTR, got %d\n", V_VT(&vValue));
+ ok(!lstrcmpW(V_BSTR(&vValue), propVal), "Expected 'val'\n");
+ VariantClear(&vValue);
+ SysFreeString(str);
+
+ str = SysAllocString(propName);
+ val = SysAllocString(propVal);
+ V_VT(&vValue) = VT_BSTR;
+ V_BSTR(&vValue) = val;
+ hr = IXMLElement_setAttribute(element, str, vValue);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ SysFreeString(val);
+
+ hr = IXMLElement_getAttribute(element, str, &vValue);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(V_VT(&vValue) == VT_BSTR, "Expected VT_BSTR, got %d\n", V_VT(&vValue));
+ ok(!lstrcmpW(V_BSTR(&vValue), propVal), "Expected 'val'\n");
+ VariantClear(&vValue);
+
+ hr = IXMLElement_removeAttribute(element, str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ /* remove now nonexistent attribute */
+ hr = IXMLElement_removeAttribute(element, str);
+ ok(hr == S_FALSE, "Expected S_FALSE, got %08x\n", hr);
+
+ hr = IXMLElement_getAttribute(element, str, &vValue);
+ ok(hr == 1, "Expected 1, got %08x\n", hr);
+ ok(V_VT(&vValue) == VT_EMPTY, "Expected VT_EMPTY, got %d\n", V_VT(&vValue));
+ ok(V_BSTR(&vValue) == NULL, "Expected null value\n");
+ SysFreeString(str);
+ VariantClear(&vValue);
+
+ children = (IXMLElementCollection *)0xdeadbeef;
+ hr = IXMLElement_get_children(element, &children);
+ ok(hr == 1, "Expected 1, got %08x\n", hr);
+ ok(children == NULL, "Expected NULL collection\n");
+
+ hr = IXMLElement_get_type(element, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ hr = IXMLElement_get_text(element, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(lstrlenW(str) == 0, "Expected empty text\n");
+ SysFreeString(str);
+
+ /* put_text with an ELEMENT */
+ str = SysAllocString(propVal);
+ hr = IXMLElement_put_text(element, str);
+ ok(hr == E_NOTIMPL, "Expected E_NOTIMPL, got %08x\n", hr);
+ SysFreeString(str);
+
+ V_VT(&vType) = VT_I4;
+ V_I4(&vType) = XMLELEMTYPE_TEXT;
+ V_VT(&vName) = VT_NULL;
+ hr = IXMLDocument_createElement(doc, vType, vName, &child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_addChild(element, child, 0, -1);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+
+ str = SysAllocString(propVal);
+ hr = IXMLElement_put_text(child, str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ SysFreeString(str);
+
+ parent = (IXMLElement *)0xdeadbeef;
+ hr = IXMLElement_get_parent(child, &parent);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(parent != element, "Expected parent != element\n");
+
+ hr = IXMLElement_get_type(parent, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_ELEMENT, "Expected XMLELEMTYPE_ELEMENT, got %d\n", type);
+
+ children = (IXMLElementCollection *)0xdeadbeef;
+ hr = IXMLElement_get_children(element, &children);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(children != NULL, "Expected non-NULL collection\n");
+
+ hr = IXMLElementCollection_get_length(children, &num_child);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(num_child == 1, "Expected 1, got %d\n", num_child);
+
+ V_VT(&vIndex) = VT_I4;
+ V_I4(&vIndex) = 0;
+ V_VT(&vName) = VT_ERROR;
+ V_ERROR(&vName) = DISP_E_PARAMNOTFOUND;
+ hr = IXMLElementCollection_item(children, vIndex, vName, (IDispatch **)&child2);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(child2 != NULL, "Expected non-NULL child\n");
+
+ hr = IXMLElement_get_type(child2, &type);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(type == XMLELEMTYPE_TEXT, "Expected XMLELEMTYPE_TEXT, got %d\n", type);
+
+ hr = IXMLElement_get_text(element, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, propVal), "Expected 'val'\n");
+ SysFreeString(str);
+
+ hr = IXMLElement_get_text(child2, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, propVal), "Expected 'val'\n");
+ SysFreeString(str);
+
+ /* try put_text on ELEMENT again, now that it has a text child */
+ str = SysAllocString(nextVal);
+ hr = IXMLElement_put_text(element, str);
+ ok(hr == E_NOTIMPL, "Expected E_NOTIMPL, got %08x\n", hr);
+ SysFreeString(str);
+
+ str = SysAllocString(nextVal);
+ hr = IXMLElement_put_text(child2, str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ SysFreeString(str);
+
+ hr = IXMLElement_get_text(element, &str);
+ ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
+ ok(!lstrcmpW(str, nextVal), "Expected 'val'\n");
+ SysFreeString(str);
+
+ IXMLElement_Release(child2);
+ IXMLElementCollection_Release(children);
+ IXMLElement_Release(parent);
+ IXMLElement_Release(child);
+ IXMLElement_Release(element);
+ IXMLDocument_Release(doc);
+}
+
START_TEST(xmldoc)
{
HRESULT hr;
test_xmldoc();
test_createElement();
test_persiststreaminit();
+ test_xmlelem();
+ test_xmlelem_collection();
+ test_xmlelem_children();
CoUninitialize();
}