dlls/mshtml/tests/xmlhttprequest.c

   1 /*
   2  * Copyright 2015 Zhenbo Li
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #define COBJMACROS
  20
  21 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "ole2.h"
  27 #include "mshtml.h"
  28 #include "objsafe.h"
  29 #include "wine/test.h"
  30
  31 #define DEFINE_EXPECT(func) \
  32     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  33
  34 #define SET_EXPECT(func) \
  35     do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)
  36
  37 #define CHECK_EXPECT2(func) \
  38     do { \
  39     trace(#func "\n"); \
  40         ok(expect_ ##func, "unexpected call " #func "\n"); \
  41         called_ ## func = TRUE; \
  42     }while(0)
  43
  44 #define CHECK_EXPECT(func) \
  45     do { \
  46         CHECK_EXPECT2(func); \
  47         expect_ ## func = FALSE; \
  48     }while(0)
  49
  50 #define CHECK_CALLED(func) \
  51     do { \
  52         ok(called_ ## func, "expected " #func "\n"); \
  53         expect_ ## func = called_ ## func = FALSE; \
  54     }while(0)
  55
  56 static IHTMLXMLHttpRequest *xhr = NULL;
  57 static BSTR content_type = NULL;
  58 static int loading_cnt = 0;
  59 static int readystatechange_cnt = 0;
  60
  61 DEFINE_EXPECT(xmlhttprequest_onreadystatechange_opened);
  62 DEFINE_EXPECT(xmlhttprequest_onreadystatechange_headers_received);
  63 DEFINE_EXPECT(xmlhttprequest_onreadystatechange_loading);
  64 DEFINE_EXPECT(xmlhttprequest_onreadystatechange_done);
  65
  66 #define test_disp(u,id) _test_disp(__LINE__,u,id)
  67 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid, const IID *broken_diid)
  68 {
  69     IDispatchEx *dispex;
  70     ITypeInfo *typeinfo;
  71     UINT ticnt;
  72     HRESULT hres;
  73
  74     hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
  75     ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
  76     if(FAILED(hres))
  77         return;
  78
  79     ticnt = 0xdeadbeef;
  80     hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
  81     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
  82     ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
  83
  84     hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
  85     ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
  86
  87     if(SUCCEEDED(hres)) {
  88         TYPEATTR *type_attr;
  89
  90         hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
  91         ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
  92         ok_(__FILE__,line) (IsEqualGUID(&type_attr->guid, diid)
  93                             || broken(broken_diid && IsEqualGUID(&type_attr->guid, broken_diid)),
  94                             "unexpected guid %s\n", wine_dbgstr_guid(&type_attr->guid));
  95
  96         ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
  97         ITypeInfo_Release(typeinfo);
  98     }
  99
 100     IDispatchEx_Release(dispex);
 101 }
 102
 103 #define test_event_args(a,b,c,d,e,f,g,h) _test_event_args(__LINE__,a,b,c,d,e,f,g,h)
 104 static void _test_event_args(unsigned line, const IID *dispiid, const IID *broken_dispiid, DISPID id, WORD wFlags,
 105         DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 106 {
 107     ok_(__FILE__,line) (id == DISPID_VALUE, "id = %d\n", id);
 108     ok_(__FILE__,line) (wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
 109     ok_(__FILE__,line) (pdp != NULL, "pdp == NULL\n");
 110     ok_(__FILE__,line) (pdp->cArgs == 1, "pdp->cArgs = %d\n", pdp->cArgs);
 111     ok_(__FILE__,line) (pdp->cNamedArgs == 1, "pdp->cNamedArgs = %d\n", pdp->cNamedArgs);
 112     ok_(__FILE__,line) (pdp->rgdispidNamedArgs[0] == DISPID_THIS, "pdp->rgdispidNamedArgs[0] = %d\n",
 113                         pdp->rgdispidNamedArgs[0]);
 114     ok_(__FILE__,line) (V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg));
 115     ok_(__FILE__,line) (pvarRes != NULL, "pvarRes == NULL\n");
 116     ok_(__FILE__,line) (pei != NULL, "pei == NULL\n");
 117     ok_(__FILE__,line) (!pspCaller, "pspCaller != NULL\n");
 118
 119     if(dispiid)
 120         _test_disp(line, (IUnknown*)V_DISPATCH(pdp->rgvarg), dispiid, broken_dispiid);
 121 }
 122
 123 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 124 {
 125     if(!IsEqualGUID(riid, &IID_IUnknown)
 126        && !IsEqualGUID(riid, &IID_IDispatch)
 127        && !IsEqualGUID(riid, &IID_IDispatchEx)) {
 128         *ppv = NULL;
 129         return E_NOINTERFACE;
 130     }
 131
 132     *ppv = iface;
 133     return S_OK;
 134 }
 135
 136 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 137 {
 138     return 2;
 139 }
 140
 141 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 142 {
 143     return 1;
 144 }
 145
 146 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 147 {
 148     ok(0, "unexpected call\n");
 149     return E_NOTIMPL;
 150 }
 151
 152 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 153                                               LCID lcid, ITypeInfo **ppTInfo)
 154 {
 155     ok(0, "unexpected call\n");
 156     return E_NOTIMPL;
 157 }
 158
 159 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 160                                                 LPOLESTR *rgszNames, UINT cNames,
 161                                                 LCID lcid, DISPID *rgDispId)
 162 {
 163     ok(0, "unexpected call\n");
 164     return E_NOTIMPL;
 165 }
 166
 167 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 168                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 169                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 170 {
 171     ok(0, "unexpected call\n");
 172     return E_NOTIMPL;
 173 }
 174
 175 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 176 {
 177     ok(0, "unexpected call\n");
 178     return E_NOTIMPL;
 179 }
 180
 181 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 182 {
 183     ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
 184     return E_NOTIMPL;
 185 }
 186
 187 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 188 {
 189     ok(0, "unexpected call\n");
 190     return E_NOTIMPL;
 191 }
 192
 193 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 194 {
 195     ok(0, "unexpected call\n");
 196     return E_NOTIMPL;
 197 }
 198
 199 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 200 {
 201     ok(0, "unexpected call\n");
 202     return E_NOTIMPL;
 203 }
 204
 205 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 206 {
 207     ok(0, "unexpected call\n");
 208     return E_NOTIMPL;
 209 }
 210
 211 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 212 {
 213     ok(0, "unexpected call\n");
 214     return E_NOTIMPL;
 215 }
 216
 217 static HRESULT WINAPI xmlhttprequest_onreadystatechange(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 218         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 219 {
 220     LONG val;
 221     HRESULT hres;
 222
 223     test_event_args(&DIID_DispHTMLXMLHttpRequest, &IID_IHTMLXMLHttpRequest, id, wFlags, pdp, pvarRes, pei, pspCaller);
 224
 225     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 226     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 227     readystatechange_cnt++;
 228
 229     switch(val) {
 230         case 1:
 231             CHECK_EXPECT(xmlhttprequest_onreadystatechange_opened);
 232             break;
 233         case 2:
 234             CHECK_EXPECT(xmlhttprequest_onreadystatechange_headers_received);
 235             break;
 236         case 3:
 237             loading_cnt++;
 238             CHECK_EXPECT2(xmlhttprequest_onreadystatechange_loading);
 239             break;
 240         case 4:
 241             CHECK_EXPECT(xmlhttprequest_onreadystatechange_done);
 242             break;
 243         default:
 244             ok(0, "unexpected readyState: %d\n", val);
 245     }
 246     return S_OK;
 247 }
 248
 249 static IDispatchExVtbl xmlhttprequest_onreadystatechangeFuncVtbl = {
 250     DispatchEx_QueryInterface,
 251     DispatchEx_AddRef,
 252     DispatchEx_Release,
 253     DispatchEx_GetTypeInfoCount,
 254     DispatchEx_GetTypeInfo,
 255     DispatchEx_GetIDsOfNames,
 256     DispatchEx_Invoke,
 257     DispatchEx_GetDispID,
 258     xmlhttprequest_onreadystatechange,
 259     DispatchEx_DeleteMemberByName,
 260     DispatchEx_DeleteMemberByDispID,
 261     DispatchEx_GetMemberProperties,
 262     DispatchEx_GetMemberName,
 263     DispatchEx_GetNextDispID,
 264     DispatchEx_GetNameSpaceParent
 265 };
 266 static IDispatchEx xmlhttprequest_onreadystatechange_obj = { &xmlhttprequest_onreadystatechangeFuncVtbl };
 267
 268 static BOOL doc_complete;
 269 static IHTMLDocument2 *notif_doc;
 270
 271 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
 272         REFIID riid, void**ppv)
 273 {
 274     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
 275         *ppv = iface;
 276         return S_OK;
 277     }
 278
 279     ok(0, "unexpected call\n");
 280     return E_NOINTERFACE;
 281 }
 282
 283 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
 284 {
 285     return 2;
 286 }
 287
 288 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
 289 {
 290     return 1;
 291 }
 292
 293 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
 294 {
 295     if(dispID == DISPID_READYSTATE){
 296         BSTR state;
 297         HRESULT hres;
 298
 299         hres = IHTMLDocument2_get_readyState(notif_doc, &state);
 300         ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 301
 302         if(!lstrcmpW(state, L"complete"))
 303             doc_complete = TRUE;
 304
 305         SysFreeString(state);
 306     }
 307
 308     return S_OK;
 309 }
 310
 311 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
 312 {
 313     ok(0, "unexpected call\n");
 314     return E_NOTIMPL;
 315 }
 316
 317 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
 318     PropertyNotifySink_QueryInterface,
 319     PropertyNotifySink_AddRef,
 320     PropertyNotifySink_Release,
 321     PropertyNotifySink_OnChanged,
 322     PropertyNotifySink_OnRequestEdit
 323 };
 324
 325 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
 326
 327 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
 328 {
 329     IConnectionPointContainer *container;
 330     IConnectionPoint *cp;
 331     DWORD cookie;
 332     HRESULT hres;
 333
 334     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
 335     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
 336
 337     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
 338     IConnectionPointContainer_Release(container);
 339     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
 340
 341     hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
 342     IConnectionPoint_Release(cp);
 343     ok(hres == S_OK, "Advise failed: %08x\n", hres);
 344 }
 345
 346 static void pump_msgs(BOOL *b)
 347 {
 348     MSG msg;
 349
 350     if(b) {
 351         while(!*b && GetMessageW(&msg, NULL, 0, 0)) {
 352             TranslateMessage(&msg);
 353             DispatchMessageW(&msg);
 354         }
 355     }else {
 356         while(PeekMessageW(&msg, NULL, 0, 0, PM_REMOVE)) {
 357             TranslateMessage(&msg);
 358             DispatchMessageW(&msg);
 359         }
 360     }
 361 }
 362
 363
 364 struct HEADER_TYPE {
 365     const WCHAR *key;
 366     const WCHAR *value;
 367 };
 368
 369 static void create_xmlhttprequest(IHTMLDocument2 *doc)
 370 {
 371     IHTMLWindow2 *window;
 372     IHTMLWindow5 *window5;
 373     VARIANT var;
 374     IHTMLXMLHttpRequestFactory *factory;
 375     HRESULT hres;
 376
 377     hres = IHTMLDocument2_get_parentWindow(doc, &window);
 378     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
 379     ok(window != NULL, "window == NULL\n");
 380
 381     hres = IHTMLWindow2_QueryInterface(window, &IID_IHTMLWindow5, (void**)&window5);
 382     IHTMLWindow2_Release(window);
 383     if(FAILED(hres)) {
 384         win_skip("IHTMLWindow5 not supported\n");
 385         return;
 386     }
 387
 388     VariantInit(&var);
 389     hres = IHTMLWindow5_get_XMLHttpRequest(window5, &var);
 390     IHTMLWindow5_Release(window5);
 391     ok(hres == S_OK, "get_XMLHttpRequest failed: %08x\n", hres);
 392     ok(V_VT(&var) == VT_DISPATCH, "V_VT(&var) is %08x, expected VT_DISPATCH\n", V_VT(&var));
 393
 394     hres = IDispatch_QueryInterface(V_DISPATCH(&var), &IID_IHTMLXMLHttpRequestFactory, (void**)&factory);
 395     VariantClear(&var);
 396     ok(hres == S_OK, "QueryInterface(IID_IHTMLXMLHttpRequestFactory) failed: %08x\n", hres);
 397     ok(factory != NULL, "factory == NULL\n");
 398
 399     hres = IHTMLXMLHttpRequestFactory_create(factory, &xhr);
 400     IHTMLXMLHttpRequestFactory_Release(factory);
 401     ok(hres == S_OK, "create failed: %08x\n", hres);
 402     ok(xhr != NULL, "xhr == NULL\n");
 403 }
 404
 405 static void test_header(const struct HEADER_TYPE expect[], int num)
 406 {
 407     int i;
 408     BSTR key, text, all;
 409     HRESULT hres;
 410     WCHAR buf[512];
 411
 412     all = NULL;
 413     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &all);
 414     ok(hres == S_OK, "getAllResponseHeader failed: %08x\n", hres);
 415     ok(all != NULL, "all == NULL\n");
 416
 417     for(i = 0; i < num; ++i) {
 418         text = NULL;
 419         key = SysAllocString(expect[i].key);
 420         hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, key, &text);
 421         ok(hres == S_OK, "getResponseHeader failed, got %08x\n", hres);
 422         ok(text != NULL, "text == NULL\n");
 423         ok(!lstrcmpW(text, expect[i].value),
 424            "Expect %s: %s, got %s\n", wine_dbgstr_w(expect[i].key), wine_dbgstr_w(expect[i].value),
 425            wine_dbgstr_w(text));
 426         SysFreeString(key);
 427         SysFreeString(text);
 428
 429         wsprintfW(buf, L"%s: %s", expect[i].key, expect[i].value);
 430         ok(wcsstr(all, buf) != NULL, "AllResponseHeaders(%s) don't have expected substr(%s)\n",
 431            wine_dbgstr_w(all), wine_dbgstr_w(buf));
 432     }
 433
 434     SysFreeString(all);
 435 }
 436
 437 static void test_illegal_xml(IXMLDOMDocument *xmldom)
 438 {
 439     IXMLDOMNode *first, *last;
 440     VARIANT variant;
 441     HRESULT hres;
 442     BSTR bstr;
 443
 444     hres = IXMLDOMDocument_get_baseName(xmldom, NULL);
 445     ok(hres == E_INVALIDARG, "Expect E_INVALIDARG, got %08x\n", hres);
 446     hres = IXMLDOMDocument_get_baseName(xmldom, &bstr);
 447     ok(hres == S_FALSE, "get_baseName failed: %08x\n", hres);
 448     ok(bstr == NULL, "bstr(%p): %s\n", bstr, wine_dbgstr_w(bstr));
 449     SysFreeString(bstr);
 450
 451     hres = IXMLDOMDocument_get_dataType(xmldom, NULL);
 452     ok(hres == E_INVALIDARG, "Expect E_INVALIDARG, got %08x\n", hres);
 453     hres = IXMLDOMDocument_get_dataType(xmldom, &variant);
 454     ok(hres == S_FALSE, "get_dataType failed: %08x\n", hres);
 455     ok(V_VT(&variant) == VT_NULL, "got %s\n", wine_dbgstr_variant(&variant));
 456     VariantClear(&variant);
 457
 458     hres = IXMLDOMDocument_get_text(xmldom, &bstr);
 459     ok(!lstrcmpW(bstr, L""), "text = %s\n", wine_dbgstr_w(bstr));
 460     SysFreeString(bstr);
 461
 462     hres = IXMLDOMDocument_get_firstChild(xmldom, NULL);
 463     ok(hres == E_INVALIDARG, "Expect E_INVALIDARG, got %08x\n", hres);
 464
 465     first = (void*)0xdeadbeef;
 466     hres = IXMLDOMDocument_get_firstChild(xmldom, &first);
 467     ok(hres == S_FALSE, "get_firstChild failed: %08x\n", hres);
 468     ok(first == NULL, "first != NULL\n");
 469
 470     last = (void*)0xdeadbeef;
 471     hres = IXMLDOMDocument_get_lastChild(xmldom, &last);
 472     ok(hres == S_FALSE, "get_lastChild failed: %08x\n", hres);
 473     ok(last == NULL, "last != NULL\n");
 474 }
 475
 476 #define set_request_header(a,b,c) _set_request_header(__LINE__,a,b,c)
 477 static void _set_request_header(unsigned line, IHTMLXMLHttpRequest *xhr, const WCHAR *header_w, const WCHAR *value_w)
 478 {
 479     BSTR header = SysAllocString(header_w), value = SysAllocString(value_w);
 480     HRESULT hres;
 481
 482     hres = IHTMLXMLHttpRequest_setRequestHeader(xhr, header, value);
 483     ok_(__FILE__,line)(hres == S_OK, "setRequestHeader failed: %08x\n", hres);
 484
 485     SysFreeString(header);
 486     SysFreeString(value);
 487 }
 488
 489 static void test_responseXML(const WCHAR *expect_text)
 490 {
 491     IDispatch *disp;
 492     IXMLDOMDocument *xmldom;
 493     IObjectSafety *safety;
 494     DWORD enabled = 0, supported = 0;
 495     HRESULT hres;
 496
 497     disp = NULL;
 498     hres = IHTMLXMLHttpRequest_get_responseXML(xhr, &disp);
 499     ok(hres == S_OK, "get_responseXML failed: %08x\n", hres);
 500     ok(disp != NULL, "disp == NULL\n");
 501
 502     xmldom = NULL;
 503     hres = IDispatch_QueryInterface(disp, &IID_IXMLDOMDocument, (void**)&xmldom);
 504     ok(hres == S_OK, "QueryInterface(IXMLDOMDocument) failed: %08x\n", hres);
 505     ok(xmldom != NULL, "xmldom == NULL\n");
 506
 507     hres = IXMLDOMDocument_QueryInterface(xmldom, &IID_IObjectSafety, (void**)&safety);
 508     ok(hres == S_OK, "QueryInterface IObjectSafety failed: %08x\n", hres);
 509     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, NULL, &supported, &enabled);
 510     ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
 511     ok(broken(supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA)) ||
 512        supported == (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) /* msxml3 SP8+ */,
 513         "Expected supported: (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), got %08x\n", supported);
 514     ok(enabled == ((INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER) & supported),
 515         "Expected enabled: (INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA | INTERFACE_USES_SECURITY_MANAGER), got 0x%08x\n", enabled);
 516     IObjectSafety_Release(safety);
 517
 518     if(!expect_text)
 519         test_illegal_xml(xmldom);
 520
 521     IXMLDOMDocument_Release(xmldom);
 522     IDispatch_Release(disp);
 523 }
 524
 525 #define xhr_open(a,b) _xhr_open(__LINE__,a,b)
 526 static HRESULT _xhr_open(unsigned line, const WCHAR *url_w, const WCHAR *method_w)
 527 {
 528     BSTR method = SysAllocString(method_w);
 529     BSTR url = SysAllocString(url_w);
 530     VARIANT async, empty;
 531     HRESULT hres;
 532
 533     V_VT(&async) = VT_BOOL;
 534     V_BOOL(&async) = VARIANT_TRUE;
 535     V_VT(&empty) = VT_EMPTY;
 536
 537     hres = IHTMLXMLHttpRequest_open(xhr, method, url, async, empty, empty);
 538     ok_(__FILE__,line)(hres == S_OK, "open failed: %08x\n", hres);
 539
 540     SysFreeString(method);
 541     SysFreeString(url);
 542     return hres;
 543 }
 544
 545 #define test_response_text(a) _test_response_text(__LINE__,a)
 546 static void _test_response_text(unsigned line, const WCHAR *expect_text)
 547 {
 548     BSTR text = NULL;
 549     HRESULT hres;
 550
 551     hres = IHTMLXMLHttpRequest_get_responseText(xhr, &text);
 552     ok(hres == S_OK, "get_responseText failed: %08x\n", hres);
 553     ok(text != NULL, "test == NULL\n");
 554     if(expect_text) {
 555         unsigned len;
 556         /* Some recent version of IE strip trailing '\n' from post.php response, while others don't. */
 557         len = SysStringLen(text);
 558         if(text[len-1] == '\n')
 559             text[len-1] = 0;
 560         ok_(__FILE__,line)(!lstrcmpW(text, expect_text), "expect %s, got %s\n",
 561                            wine_dbgstr_w(expect_text), wine_dbgstr_w(text));
 562     }
 563     SysFreeString(text);
 564 }
 565
 566 static void test_sync_xhr(IHTMLDocument2 *doc, const WCHAR *xml_url, const WCHAR *expect_text)
 567 {
 568     VARIANT vbool, vempty, var;
 569     BSTR method, url;
 570     BSTR text;
 571     LONG val;
 572     HRESULT hres;
 573     static const struct HEADER_TYPE expect_headers[] = {
 574         {L"Content-Length", L"51"},
 575         {L"Content-Type", L"application/xml"}
 576     };
 577
 578     trace("test_sync_xhr\n");
 579
 580     create_xmlhttprequest(doc);
 581     if(!xhr)
 582         return;
 583
 584     V_VT(&var) = VT_EMPTY;
 585     hres = IHTMLXMLHttpRequest_get_onreadystatechange(xhr, &var);
 586     ok(hres == S_OK, "get_onreadystatechange failed: %08x\n", hres);
 587     ok(V_VT(&var) == VT_NULL, "V_VT(onreadystatechange) = %d\n", V_VT(&var));
 588
 589     V_VT(&var) = VT_DISPATCH;
 590     V_DISPATCH(&var) = (IDispatch*)&xmlhttprequest_onreadystatechange_obj;
 591     hres = IHTMLXMLHttpRequest_put_onreadystatechange(xhr, var);
 592     ok(hres == S_OK, "put_onreadystatechange failed: %08x\n", hres);
 593
 594     V_VT(&var) = VT_EMPTY;
 595     hres = IHTMLXMLHttpRequest_get_onreadystatechange(xhr, &var);
 596     ok(hres == S_OK, "get_onreadystatechange failed: %08x\n", hres);
 597     ok(V_VT(&var) == VT_DISPATCH, "V_VT(onreadystatechange) = %d\n", V_VT(&var));
 598     ok(V_DISPATCH(&var) == (IDispatch*)&xmlhttprequest_onreadystatechange_obj, "unexpected onreadystatechange value\n");
 599
 600     hres = IHTMLXMLHttpRequest_get_readyState(xhr, NULL);
 601     ok(hres == E_POINTER, "Expect E_POINTER, got %08x\n", hres);
 602
 603     val = 0xdeadbeef;
 604     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 605     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 606     ok(val == 0, "Expect UNSENT, got %d\n", val);
 607
 608     hres = IHTMLXMLHttpRequest_get_status(xhr, NULL);
 609     ok(hres == E_POINTER, "Expect E_POINTER, got %08x\n", hres);
 610
 611     val = 0xdeadbeef;
 612     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 613     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 614     ok(val == 0, "Expect 0, got %d\n", val);
 615
 616     hres = IHTMLXMLHttpRequest_get_statusText(xhr, NULL);
 617     ok(hres == E_POINTER, "Expect E_POINTER, got %08x\n", hres);
 618
 619     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 620     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 621     ok(text == NULL, "Expect NULL, got %p\n", text);
 622
 623     text = (BSTR)0xdeadbeef;
 624     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &text);
 625     ok(hres == E_FAIL, "got %08x\n", hres);
 626     ok(text == NULL, "text = %p\n", text);
 627
 628     text = (BSTR)0xdeadbeef;
 629     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, &text);
 630     ok(hres == E_FAIL, "got %08x\n", hres);
 631     ok(text == NULL, "text = %p\n", text);
 632
 633     method = SysAllocString(L"GET");
 634     url = SysAllocString(xml_url);
 635     V_VT(&vbool) = VT_BOOL;
 636     V_BOOL(&vbool) = VARIANT_FALSE;
 637     V_VT(&vempty) = VT_EMPTY;
 638
 639     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 640     hres = IHTMLXMLHttpRequest_open(xhr, method, url, vbool, vempty, vempty);
 641     todo_wine ok(hres == S_OK, "open failed: %08x\n", hres); /* Gecko 30+ only supports async */
 642     todo_wine CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 643
 644     SysFreeString(method);
 645     SysFreeString(url);
 646
 647     if(FAILED(hres)) {
 648         IHTMLXMLHttpRequest_Release(xhr);
 649         xhr = NULL;
 650         return;
 651     }
 652
 653     text = (BSTR)0xdeadbeef;
 654     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &text);
 655     ok(hres == E_FAIL, "got %08x\n", hres);
 656     ok(text == NULL, "text = %p\n", text);
 657
 658     text = (BSTR)0xdeadbeef;
 659     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, &text);
 660     ok(hres == E_FAIL, "got %08x\n", hres);
 661     ok(text == NULL, "text = %p\n", text);
 662
 663     val = 0xdeadbeef;
 664     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 665     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 666     ok(val == 0, "Expect 0, got %d\n", val);
 667
 668     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 669     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 670     ok(text == NULL, "Expect NULL, got %p\n", text);
 671
 672     val = 0xdeadbeef;
 673     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 674     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 675     ok(val == 1, "Expect OPENED, got %d\n", val);
 676
 677     set_request_header(xhr, L"x-wine-test", L"sync-test");
 678
 679     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 680     SET_EXPECT(xmlhttprequest_onreadystatechange_headers_received);
 681     SET_EXPECT(xmlhttprequest_onreadystatechange_loading);
 682     SET_EXPECT(xmlhttprequest_onreadystatechange_done);
 683     loading_cnt = 0;
 684     hres = IHTMLXMLHttpRequest_send(xhr, vempty);
 685     ok(hres == S_OK, "send failed: %08x\n", hres);
 686     CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 687     CHECK_CALLED(xmlhttprequest_onreadystatechange_headers_received);
 688     CHECK_CALLED(xmlhttprequest_onreadystatechange_loading);
 689     CHECK_CALLED(xmlhttprequest_onreadystatechange_done);
 690     ok(loading_cnt == 1, "loading_cnt = %d\n", loading_cnt);
 691
 692     text = NULL;
 693     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, &text);
 694     ok(hres == S_OK, "getResponseHeader failed, got %08x\n", hres);
 695     ok(text != NULL, "text == NULL\n");
 696     SysFreeString(text);
 697
 698     if(expect_text)
 699         test_header(expect_headers, ARRAY_SIZE(expect_headers));
 700
 701     val = 0xdeadbeef;
 702     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 703     ok(hres == S_OK, "get_status failed: %08x\n", hres);
 704     ok(val == 200, "Expect 200, got %d\n", val);
 705
 706     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 707     ok(hres == S_OK, "get_statusText failed: %08x\n", hres);
 708     ok(text != NULL, "text == NULL\n");
 709     ok(!lstrcmpW(text, L"OK"),
 710         "Expected \"OK\", got %s\n", wine_dbgstr_w(text));
 711     SysFreeString(text);
 712
 713     val = 0xdeadbeef;
 714     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 715     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 716     ok(val == 4, "Expect DONE, got %d\n", val);
 717
 718     test_response_text(expect_text);
 719     test_responseXML(expect_text);
 720
 721     IHTMLXMLHttpRequest_Release(xhr);
 722     xhr = NULL;
 723 }
 724
 725 static void test_async_xhr(IHTMLDocument2 *doc, const WCHAR *xml_url, const WCHAR *expect_text)
 726 {
 727     VARIANT var, vempty;
 728     BSTR text;
 729     LONG val;
 730     HRESULT hres;
 731     static const struct HEADER_TYPE expect_headers[] = {
 732         {L"Content-Length", L"51"},
 733         {L"Content-Type", L"application/xml"}
 734     };
 735
 736     create_xmlhttprequest(doc);
 737     if(!xhr)
 738         return;
 739
 740     V_VT(&var) = VT_DISPATCH;
 741     V_DISPATCH(&var) = (IDispatch*)&xmlhttprequest_onreadystatechange_obj;
 742     hres = IHTMLXMLHttpRequest_put_onreadystatechange(xhr, var);
 743     ok(hres == S_OK, "put_onreadystatechange failed: %08x\n", hres);
 744
 745     V_VT(&var) = VT_EMPTY;
 746     hres = IHTMLXMLHttpRequest_get_onreadystatechange(xhr, &var);
 747     ok(hres == S_OK, "get_onreadystatechange failed: %08x\n", hres);
 748     ok(V_VT(&var) == VT_DISPATCH, "V_VT(onreadystatechange) = %d\n", V_VT(&var));
 749     ok(V_DISPATCH(&var) == (IDispatch*)&xmlhttprequest_onreadystatechange_obj, "unexpected onreadystatechange value\n");
 750
 751     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, NULL, &text);
 752     ok(hres == E_INVALIDARG, "Expect E_INVALIDARG, got %08x\n", hres);
 753
 754     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, NULL);
 755     ok(hres == E_POINTER, "Expect E_POINTER, got %08x\n", hres);
 756
 757     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, NULL, NULL);
 758     ok(hres == E_POINTER || broken(hres == E_INVALIDARG), /* Vista and before */
 759         "Expect E_POINTER, got %08x\n", hres);
 760
 761     text = (BSTR)0xdeadbeef;
 762     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, &text);
 763     ok(hres == E_FAIL, "got %08x\n", hres);
 764     ok(text == NULL, "text = %p\n", text);
 765
 766     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, NULL);
 767     ok(hres == E_POINTER, "Expect E_POINTER, got %08x\n", hres);
 768
 769     text = (BSTR)0xdeadbeef;
 770     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &text);
 771     ok(hres == E_FAIL, "got %08x\n", hres);
 772     ok(text == NULL, "text = %p\n", text);
 773
 774     val = 0xdeadbeef;
 775     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 776     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 777     ok(val == 0, "Expect 0, got %d\n", val);
 778
 779     text = (BSTR)0xdeadbeef;
 780     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 781     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 782     ok(text == NULL, "Expect NULL, got %p\n", text);
 783
 784     val = 0xdeadbeef;
 785     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 786     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 787     ok(val == 0, "Expect UNSENT, got %d\n", val);
 788
 789     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 790     hres = xhr_open(xml_url, L"GET");
 791     CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 792
 793     if(FAILED(hres)) {
 794         IHTMLXMLHttpRequest_Release(xhr);
 795         xhr = NULL;
 796         return;
 797     }
 798
 799     text = (BSTR)0xdeadbeef;
 800     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &text);
 801     ok(hres == E_FAIL, "got %08x\n", hres);
 802     ok(text == NULL, "text = %p\n", text);
 803
 804     text = (BSTR)0xdeadbeef;
 805     hres = IHTMLXMLHttpRequest_getResponseHeader(xhr, content_type, &text);
 806     ok(hres == E_FAIL, "got %08x\n", hres);
 807     ok(text == NULL, "text = %p\n", text);
 808
 809     val = 0xdeadbeef;
 810     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 811     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 812     ok(val == 0, "Expect 0, got %d\n", val);
 813
 814     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 815     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 816     ok(text == NULL, "Expect NULL, got %p\n", text);
 817
 818     val = 0xdeadbeef;
 819     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 820     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 821     ok(val == 1, "Expect OPENED, got %d\n", val);
 822
 823     set_request_header(xhr, L"x-wine-test", L"async-test");
 824
 825     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 826     SET_EXPECT(xmlhttprequest_onreadystatechange_headers_received);
 827     SET_EXPECT(xmlhttprequest_onreadystatechange_loading);
 828     SET_EXPECT(xmlhttprequest_onreadystatechange_done);
 829     loading_cnt = 0;
 830     V_VT(&vempty) = VT_EMPTY;
 831     hres = IHTMLXMLHttpRequest_send(xhr, vempty);
 832
 833     ok(hres == S_OK, "send failed: %08x\n", hres);
 834     if(SUCCEEDED(hres))
 835         pump_msgs(&called_xmlhttprequest_onreadystatechange_done);
 836     todo_wine CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 837     CHECK_CALLED(xmlhttprequest_onreadystatechange_headers_received);
 838     CHECK_CALLED(xmlhttprequest_onreadystatechange_loading);
 839     CHECK_CALLED(xmlhttprequest_onreadystatechange_done);
 840     /* Workaround for loading large files */
 841     todo_wine_if(!expect_text)
 842         ok(loading_cnt == 1, "loading_cnt = %d\n", loading_cnt);
 843
 844     if(FAILED(hres)) {
 845         IHTMLXMLHttpRequest_Release(xhr);
 846         xhr = NULL;
 847         return;
 848     }
 849
 850     text = NULL;
 851     hres = IHTMLXMLHttpRequest_getAllResponseHeaders(xhr, &text);
 852     ok(hres == S_OK, "getAllResponseHeader failed, got %08x\n", hres);
 853     ok(text != NULL, "text == NULL\n");
 854     SysFreeString(text);
 855
 856     if(expect_text)
 857         test_header(expect_headers, ARRAY_SIZE(expect_headers));
 858
 859     val = 0xdeadbeef;
 860     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 861     ok(hres == S_OK, "get_status failed: %08x\n", hres);
 862     ok(val == 200, "Expect 200, got %d\n", val);
 863
 864     text = NULL;
 865     hres = IHTMLXMLHttpRequest_get_statusText(xhr, &text);
 866     ok(hres == S_OK, "get_statusText failed: %08x\n", hres);
 867     ok(text != NULL, "text == NULL\n");
 868     ok(!lstrcmpW(text, L"OK"), "Expected \"OK\", got %s\n", wine_dbgstr_w(text));
 869     SysFreeString(text);
 870
 871     val = 0xdeadbeef;
 872     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 873     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 874     ok(val == 4, "Expect DONE, got %d\n", val);
 875
 876     test_response_text(expect_text);
 877     test_responseXML(expect_text);
 878
 879     IHTMLXMLHttpRequest_Release(xhr);
 880     xhr = NULL;
 881 }
 882
 883 static void test_async_xhr_abort(IHTMLDocument2 *doc, const WCHAR *xml_url)
 884 {
 885     VARIANT vempty, var;
 886     LONG val;
 887     HRESULT hres;
 888
 889     V_VT(&vempty) = VT_EMPTY;
 890
 891     trace("abort before send() is fired\n");
 892     create_xmlhttprequest(doc);
 893     if(!xhr)
 894         return;
 895
 896     V_VT(&var) = VT_DISPATCH;
 897     V_DISPATCH(&var) = (IDispatch*)&xmlhttprequest_onreadystatechange_obj;
 898     hres = IHTMLXMLHttpRequest_put_onreadystatechange(xhr, var);
 899
 900     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 901     xhr_open(xml_url, L"GET");
 902     CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 903
 904     hres = IHTMLXMLHttpRequest_abort(xhr);
 905     ok(hres == S_OK, "abort failed: %08x\n", hres);
 906
 907     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 908     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 909     ok(val == 0, "Expect 0, got %d\n", val);
 910
 911     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 912     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 913     ok(val == 0, "Expect UNSENT, got %d\n", val);
 914
 915     IHTMLXMLHttpRequest_Release(xhr);
 916     xhr = NULL;
 917
 918     trace("abort after send() is fired\n");
 919     create_xmlhttprequest(doc);
 920     V_VT(&var) = VT_DISPATCH;
 921     V_DISPATCH(&var) = (IDispatch*)&xmlhttprequest_onreadystatechange_obj;
 922     hres = IHTMLXMLHttpRequest_put_onreadystatechange(xhr, var);
 923
 924     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 925     xhr_open(xml_url, L"GET");
 926     CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 927
 928     loading_cnt = 0;
 929     readystatechange_cnt = 0;
 930     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 931     SET_EXPECT(xmlhttprequest_onreadystatechange_done);
 932     hres = IHTMLXMLHttpRequest_send(xhr, vempty);
 933     ok(hres == S_OK, "send failed: %08x\n", hres);
 934     todo_wine CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 935
 936     hres = IHTMLXMLHttpRequest_abort(xhr);
 937     ok(hres == S_OK, "abort failed: %08x\n", hres);
 938     CHECK_CALLED(xmlhttprequest_onreadystatechange_done);
 939
 940     hres = IHTMLXMLHttpRequest_get_readyState(xhr, &val);
 941     ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 942     ok(val == 0, "Expect UNSENT, got %d\n", val);
 943
 944     hres = IHTMLXMLHttpRequest_get_status(xhr, &val);
 945     ok(hres == E_FAIL, "Expect E_FAIL, got: %08x\n", hres);
 946     ok(val == 0, "Expect 0, got %d\n", val);
 947
 948     ok(loading_cnt == 0, "loading_cnt = %d, expect 0, loading_cnt\n", loading_cnt);
 949     todo_wine ok(readystatechange_cnt == 2, "readystatechange_cnt = %d, expect 2\n", readystatechange_cnt);
 950
 951     IHTMLXMLHttpRequest_Release(xhr);
 952     xhr = NULL;
 953 }
 954
 955 static void test_xhr_post(IHTMLDocument2 *doc)
 956 {
 957     VARIANT v;
 958     HRESULT hres;
 959
 960     trace("send string...\n");
 961
 962     create_xmlhttprequest(doc);
 963     if(!xhr)
 964         return;
 965
 966     V_VT(&v) = VT_DISPATCH;
 967     V_DISPATCH(&v) = (IDispatch*)&xmlhttprequest_onreadystatechange_obj;
 968     hres = IHTMLXMLHttpRequest_put_onreadystatechange(xhr, v);
 969     ok(hres == S_OK, "put_onreadystatechange failed: %08x\n", hres);
 970
 971     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 972     xhr_open(L"http://test.winehq.org/tests/post.php", L"POST");
 973     CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 974
 975     set_request_header(xhr, L"Content-Type", L"application/x-www-form-urlencoded");
 976
 977     V_VT(&v) = VT_BSTR;
 978     V_BSTR(&v) = SysAllocString(L"X=Testing");
 979
 980     loading_cnt = 0;
 981     SET_EXPECT(xmlhttprequest_onreadystatechange_opened);
 982     SET_EXPECT(xmlhttprequest_onreadystatechange_headers_received);
 983     SET_EXPECT(xmlhttprequest_onreadystatechange_loading);
 984     SET_EXPECT(xmlhttprequest_onreadystatechange_done);
 985
 986     hres = IHTMLXMLHttpRequest_send(xhr, v);
 987     ok(hres == S_OK, "send failed: %08x\n", hres);
 988     if(SUCCEEDED(hres))
 989         pump_msgs(&called_xmlhttprequest_onreadystatechange_done);
 990
 991     todo_wine CHECK_CALLED(xmlhttprequest_onreadystatechange_opened);
 992     CHECK_CALLED(xmlhttprequest_onreadystatechange_headers_received);
 993     CHECK_CALLED(xmlhttprequest_onreadystatechange_loading);
 994     CHECK_CALLED(xmlhttprequest_onreadystatechange_done);
 995     ok(loading_cnt == 1, "loading_cnt = %d\n", loading_cnt);
 996
 997     SysFreeString(V_BSTR(&v));
 998
 999     test_response_text(L"X => Testing");
1000
1001     IHTMLXMLHttpRequest_Release(xhr);
1002     xhr = NULL;
1003 }
1004
1005 static IHTMLDocument2 *create_doc_from_url(const WCHAR *start_url)
1006 {
1007     BSTR url;
1008     IBindCtx *bc;
1009     IMoniker *url_mon;
1010     IPersistMoniker *persist_mon;
1011     IHTMLDocument2 *doc;
1012     HRESULT hres;
1013
1014     hres = CreateBindCtx(0, &bc);
1015     ok(hres == S_OK, "CreateBindCtx failed: 0x%08x\n", hres);
1016
1017     url = SysAllocString(start_url);
1018     hres = CreateURLMoniker(NULL, url, &url_mon);
1019     ok(hres == S_OK, "CreateURLMoniker failed: 0x%08x\n", hres);
1020
1021     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL,
1022             CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER, &IID_IHTMLDocument2,
1023             (void**)&doc);
1024 #if !defined(__i386__) && !defined(__x86_64__)
1025     todo_wine
1026 #endif
1027     ok(hres == S_OK, "CoCreateInstance failed: 0x%08x\n", hres);
1028
1029     hres = IHTMLDocument2_QueryInterface(doc, &IID_IPersistMoniker,
1030             (void**)&persist_mon);
1031     ok(hres == S_OK, "IHTMLDocument2_QueryInterface failed: 0x%08x\n", hres);
1032
1033     hres = IPersistMoniker_Load(persist_mon, FALSE, url_mon, bc,
1034             STGM_SHARE_EXCLUSIVE | STGM_READWRITE);
1035     ok(hres == S_OK, "IPersistMoniker_Load failed: 0x%08x\n", hres);
1036
1037     IPersistMoniker_Release(persist_mon);
1038     IMoniker_Release(url_mon);
1039     IBindCtx_Release(bc);
1040     SysFreeString(url);
1041
1042     doc_complete = FALSE;
1043     notif_doc = doc;
1044     do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
1045     pump_msgs(&doc_complete);
1046
1047     return doc;
1048 }
1049
1050 START_TEST(xmlhttprequest)
1051 {
1052     IHTMLDocument2 *doc;
1053     static const WCHAR start_url[] = L"http://test.winehq.org/tests/hello.html";
1054     static const WCHAR xml_url[] = L"http://test.winehq.org/tests/xmltest.xml";
1055     static const WCHAR large_page_url[] = L"http://test.winehq.org/tests/data.php";
1056     static const WCHAR expect_response_text[] = L"<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<a>TEST</a>";
1057
1058     CoInitialize(NULL);
1059
1060     content_type = SysAllocString(L"Content-Type");
1061     doc = create_doc_from_url(start_url);
1062     if(doc) {
1063         test_sync_xhr(doc, xml_url, expect_response_text);
1064         test_sync_xhr(doc, large_page_url, NULL);
1065         test_async_xhr(doc, xml_url, expect_response_text);
1066         test_async_xhr(doc, large_page_url, NULL);
1067         test_async_xhr_abort(doc, large_page_url);
1068         test_xhr_post(doc);
1069         IHTMLDocument2_Release(doc);
1070     }
1071     SysFreeString(content_type);
1072
1073     CoUninitialize();
1074 }