+ hr = IXMLDOMDocument_loadXML(doc, _bstr_(szEmailXML), &b);
+ ok(b == VARIANT_TRUE, "failed to load XML string\n");
+
+ doctype = NULL;
+ hr = IXMLDOMDocument_get_doctype(doc, &doctype);
+ ok(hr == S_OK, "got 0x%08x\n", hr);
+ ok(doctype != NULL, "got %p\n", doctype);
+
+ hr = IXMLDOMDocumentType_get_name(doctype, NULL);
+ ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
+
+ hr = IXMLDOMDocumentType_get_name(doctype, &s);
+ ok(hr == S_OK, "got 0x%08x\n", hr);
+ ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
+ SysFreeString(s);
+
+ hr = IXMLDOMDocumentType_get_nodeName(doctype, &s);
+ ok(hr == S_OK, "got 0x%08x\n", hr);
+ ok(!lstrcmpW(emailW, s), "got name %s\n", wine_dbgstr_w(s));
+ SysFreeString(s);
+
+ IXMLDOMDocumentType_Release(doctype);