rostests/winetests/urlmon/url.c

   1 /*
   2  * UrlMon URL tests
   3  *
   4  * Copyright 2004 Kevin Koltzau
   5  * Copyright 2004-2007 Jacek Caban for CodeWeavers
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #define WIN32_NO_STATUS
  23 #define _INC_WINDOWS
  24 #define COM_NO_WINDOWS_H
  25
  26 //#include <stdarg.h>
  27 #include <stdio.h>
  28
  29 #define COBJMACROS
  30 #define NONAMELESSUNION
  31 #define CONST_VTABLE
  32
  33 #include <windef.h>
  34 #include <winbase.h>
  35 #include <winnls.h>
  36 #include <winreg.h>
  37 #include <wingdi.h>
  38 #include <objbase.h>
  39 //#include "initguid.h"
  40 //#include "urlmon.h"
  41 #include <wininet.h>
  42 #include <mshtml.h>
  43
  44 #include <wine/test.h>
  45
  46 static HRESULT (WINAPI *pCreateAsyncBindCtxEx)(IBindCtx *, DWORD,
  47                 IBindStatusCallback *, IEnumFORMATETC *, IBindCtx **, DWORD);
  48 static HRESULT (WINAPI *pCreateUri)(LPCWSTR, DWORD, DWORD_PTR, IUri**);
  49
  50 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
  51 DEFINE_GUID(CLSID_IdentityUnmarshal,0x0000001b,0x0000,0x0000,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x46);
  52 DEFINE_GUID(IID_IBindStatusCallbackHolder,0x79eac9cc,0xbaf9,0x11ce,0x8c,0x82,0x00,0xaa,0x00,0x4b,0xa9,0x0b);
  53 static const IID IID_undocumentedIE11 = {0xd5ae15f6,0x2032,0x488e,{0x8f,0x96,0xf9,0x24,0x06,0xd8,0xd8,0xb4}};
  54 extern CLSID CLSID_AboutProtocol;
  55
  56 #define DEFINE_EXPECT(func) \
  57     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  58
  59 #define SET_EXPECT(func) \
  60     do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)
  61
  62 #define CHECK_EXPECT2(func) \
  63     do { \
  64         ok(expect_ ##func, "unexpected call " #func "\n"); \
  65         called_ ## func = TRUE; \
  66     }while(0)
  67
  68 #define CHECK_EXPECT(func) \
  69     do { \
  70         CHECK_EXPECT2(func); \
  71         expect_ ## func = FALSE; \
  72     }while(0)
  73
  74 #define CHECK_CALLED(func) \
  75     do { \
  76         ok(called_ ## func, "expected " #func "\n"); \
  77         expect_ ## func = called_ ## func = FALSE; \
  78     }while(0)
  79
  80 #define CHECK_NOT_CALLED(func) \
  81     do { \
  82         ok(!called_ ## func, "unexpected " #func "\n"); \
  83         expect_ ## func = called_ ## func = FALSE; \
  84     }while(0)
  85
  86 #define CHECK_CALLED_BROKEN(func) \
  87     do { \
  88         ok(called_ ## func || broken(!called_ ## func), "expected " #func "\n"); \
  89         expect_ ## func = called_ ## func = FALSE; \
  90     }while(0)
  91
  92 #define CLEAR_CALLED(func) \
  93     expect_ ## func = called_ ## func = FALSE
  94
  95 DEFINE_EXPECT(QueryInterface_IServiceProvider);
  96 DEFINE_EXPECT(QueryInterface_IHttpNegotiate);
  97 DEFINE_EXPECT(QueryInterface_IBindStatusCallback);
  98 DEFINE_EXPECT(QueryInterface_IBindStatusCallbackEx);
  99 DEFINE_EXPECT(QueryInterface_IBindStatusCallbackHolder);
 100 DEFINE_EXPECT(QueryInterface_IAuthenticate);
 101 DEFINE_EXPECT(QueryInterface_IInternetProtocol);
 102 DEFINE_EXPECT(QueryInterface_IWindowForBindingUI);
 103 DEFINE_EXPECT(QueryInterface_IHttpSecurity);
 104 DEFINE_EXPECT(QueryService_IAuthenticate);
 105 DEFINE_EXPECT(QueryService_IInternetProtocol);
 106 DEFINE_EXPECT(QueryService_IInternetBindInfo);
 107 DEFINE_EXPECT(QueryService_IWindowForBindingUI);
 108 DEFINE_EXPECT(QueryService_IHttpSecurity);
 109 DEFINE_EXPECT(BeginningTransaction);
 110 DEFINE_EXPECT(OnResponse);
 111 DEFINE_EXPECT(QueryInterface_IHttpNegotiate2);
 112 DEFINE_EXPECT(GetRootSecurityId);
 113 DEFINE_EXPECT(GetBindInfo);
 114 DEFINE_EXPECT(GetBindInfoEx);
 115 DEFINE_EXPECT(OnStartBinding);
 116 DEFINE_EXPECT(OnProgress_FINDINGRESOURCE);
 117 DEFINE_EXPECT(OnProgress_CONNECTING);
 118 DEFINE_EXPECT(OnProgress_REDIRECTING);
 119 DEFINE_EXPECT(OnProgress_SENDINGREQUEST);
 120 DEFINE_EXPECT(OnProgress_MIMETYPEAVAILABLE);
 121 DEFINE_EXPECT(OnProgress_BEGINDOWNLOADDATA);
 122 DEFINE_EXPECT(OnProgress_DOWNLOADINGDATA);
 123 DEFINE_EXPECT(OnProgress_ENDDOWNLOADDATA);
 124 DEFINE_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
 125 DEFINE_EXPECT(OnStopBinding);
 126 DEFINE_EXPECT(OnDataAvailable);
 127 DEFINE_EXPECT(OnObjectAvailable);
 128 DEFINE_EXPECT(Obj_OnStartBinding);
 129 DEFINE_EXPECT(Obj_OnStopBinding);
 130 DEFINE_EXPECT(Obj_GetBindInfo);
 131 DEFINE_EXPECT(Obj_OnProgress_BEGINDOWNLOADDATA);
 132 DEFINE_EXPECT(Obj_OnProgress_ENDDOWNLOADDATA);
 133 DEFINE_EXPECT(Obj_OnProgress_SENDINGREQUEST);
 134 DEFINE_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
 135 DEFINE_EXPECT(Obj_OnProgress_CLASSIDAVAILABLE);
 136 DEFINE_EXPECT(Obj_OnProgress_BEGINSYNCOPERATION);
 137 DEFINE_EXPECT(Obj_OnProgress_ENDSYNCOPERATION);
 138 DEFINE_EXPECT(Obj_OnProgress_FINDINGRESOURCE);
 139 DEFINE_EXPECT(Obj_OnProgress_CONNECTING);
 140 DEFINE_EXPECT(Obj_OnProgress_REDIRECTING);
 141 DEFINE_EXPECT(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
 142 DEFINE_EXPECT(Start);
 143 DEFINE_EXPECT(Read);
 144 DEFINE_EXPECT(LockRequest);
 145 DEFINE_EXPECT(Terminate);
 146 DEFINE_EXPECT(UnlockRequest);
 147 DEFINE_EXPECT(Continue);
 148 DEFINE_EXPECT(Abort);
 149 DEFINE_EXPECT(CreateInstance);
 150 DEFINE_EXPECT(Load);
 151 DEFINE_EXPECT(PutProperty_MIMETYPEPROP);
 152 DEFINE_EXPECT(PutProperty_CLASSIDPROP);
 153 DEFINE_EXPECT(SetPriority);
 154 DEFINE_EXPECT(GetWindow_IHttpSecurity);
 155 DEFINE_EXPECT(GetWindow_IWindowForBindingUI);
 156 DEFINE_EXPECT(GetWindow_ICodeInstall);
 157 DEFINE_EXPECT(OnSecurityProblem);
 158
 159 static const WCHAR winetest_data_urlW[] =
 160     {'h','t','t','p',':','/','/','t','e','s','t','.','w','i','n','e','h','q','.','o','r','g','/',
 161      't','e','s','t','s','/','d','a','t','a','.','p','h','p',0};
 162 static const WCHAR about_blankW[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
 163
 164 static const WCHAR wszTextHtml[] = {'t','e','x','t','/','h','t','m','l',0};
 165
 166 static WCHAR BSCBHolder[] = { '_','B','S','C','B','_','H','o','l','d','e','r','_',0 };
 167
 168 static const WCHAR wszWineHQSite[] =
 169     {'w','w','w','.','w','i','n','e','h','q','.','o','r','g',0};
 170 static const WCHAR wszWineHQIP[] =
 171     {'2','0','9','.','3','2','.','1','4','1','.','3',0};
 172 static const CHAR wszIndexHtmlA[] = "index.html";
 173 static const WCHAR cache_fileW[] = {'c',':','\\','c','a','c','h','e','.','h','t','m',0};
 174 static const CHAR dwl_htmlA[] = "dwl.html";
 175 static const WCHAR dwl_htmlW[] = {'d','w','l','.','h','t','m','l',0};
 176 static const CHAR test_txtA[] = "test.txt";
 177 static const WCHAR emptyW[] = {0};
 178
 179 static BOOL stopped_binding = FALSE, stopped_obj_binding = FALSE, emulate_protocol = FALSE,
 180     data_available = FALSE, http_is_first = TRUE, bind_to_object = FALSE, filedwl_api, post_test;
 181 static DWORD read = 0, bindf = 0, prot_state = 0, thread_id, tymed, security_problem;
 182 static const WCHAR *reported_url;
 183 static CHAR mime_type[512];
 184 static IInternetProtocolSink *protocol_sink = NULL;
 185 static IBinding *current_binding;
 186 static HANDLE complete_event, complete_event2;
 187 static HRESULT binding_hres;
 188 static HRESULT onsecurityproblem_hres;
 189 static HRESULT abort_hres;
 190 static BOOL have_IHttpNegotiate2, use_bscex, is_async_prot;
 191 static BOOL test_redirect, use_cache_file, callback_read, no_callback, test_abort;
 192 static WCHAR cache_file_name[MAX_PATH];
 193 static BOOL only_check_prot_args = FALSE;
 194 static BOOL invalid_cn_accepted = FALSE;
 195 static BOOL abort_start = FALSE;
 196 static BOOL abort_progress = FALSE;
 197 static BOOL async_switch = FALSE;
 198 static BOOL strict_bsc_qi;
 199 static DWORD bindtest_flags;
 200 static const char *test_file;
 201
 202 static WCHAR file_url[INTERNET_MAX_URL_LENGTH], current_url[INTERNET_MAX_URL_LENGTH];
 203
 204 static enum {
 205     HTTP_TEST,
 206     ABOUT_TEST,
 207     FILE_TEST,
 208     ITS_TEST,
 209     MK_TEST,
 210     HTTPS_TEST,
 211     FTP_TEST,
 212     WINETEST_TEST,
 213     WINETEST_SYNC_TEST
 214 } test_protocol;
 215
 216 static enum {
 217     BEFORE_DOWNLOAD,
 218     DOWNLOADING,
 219     END_DOWNLOAD
 220 } download_state;
 221
 222 static BOOL proxy_active(void)
 223 {
 224     HKEY internet_settings;
 225     DWORD proxy_enable;
 226     DWORD size;
 227
 228     if (RegOpenKeyExA(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings",
 229                       0, KEY_QUERY_VALUE, &internet_settings) != ERROR_SUCCESS)
 230         return FALSE;
 231
 232     size = sizeof(DWORD);
 233     if (RegQueryValueExA(internet_settings, "ProxyEnable", NULL, NULL, (LPBYTE) &proxy_enable, &size) != ERROR_SUCCESS)
 234         proxy_enable = 0;
 235
 236     RegCloseKey(internet_settings);
 237
 238     return proxy_enable != 0;
 239 }
 240
 241 static BOOL is_urlmon_protocol(int prot)
 242 {
 243     return prot == FILE_TEST || prot == HTTP_TEST || prot == HTTPS_TEST || prot == FTP_TEST || prot == MK_TEST;
 244 }
 245
 246 static void test_CreateURLMoniker(LPCWSTR url1, LPCWSTR url2)
 247 {
 248     HRESULT hr;
 249     IMoniker *mon1 = NULL;
 250     IMoniker *mon2 = NULL;
 251
 252     hr = CreateURLMoniker(NULL, NULL, NULL);
 253     ok(hr == E_INVALIDARG,
 254        "Expected CreateURLMoniker to return E_INVALIDARG, got 0x%08x\n", hr);
 255
 256     mon1 = (IMoniker *)0xdeadbeef;
 257     hr = CreateURLMoniker(NULL, NULL, &mon1);
 258     ok(hr == E_INVALIDARG,
 259        "Expected CreateURLMoniker to return E_INVALIDARG, got 0x%08x\n", hr);
 260     ok(mon1 == NULL, "Expected the output pointer to be NULL, got %p\n", mon1);
 261
 262     hr = CreateURLMoniker(NULL, emptyW, NULL);
 263     ok(hr == E_INVALIDARG,
 264        "Expected CreateURLMoniker to return E_INVALIDARG, got 0x%08x\n", hr);
 265
 266     hr = CreateURLMoniker(NULL, emptyW, &mon1);
 267     ok(hr == S_OK ||
 268        broken(hr == MK_E_SYNTAX), /* IE5/IE5.01/IE6 SP2 */
 269        "Expected CreateURLMoniker to return S_OK, got 0x%08x\n", hr);
 270     if(mon1) IMoniker_Release(mon1);
 271
 272     hr = CreateURLMoniker(NULL, url1, &mon1);
 273     ok(hr == S_OK, "failed to create moniker: 0x%08x\n", hr);
 274     if(hr == S_OK) {
 275         hr = CreateURLMoniker(mon1, url2, &mon2);
 276         ok(hr == S_OK, "failed to create moniker: 0x%08x\n", hr);
 277     }
 278     if(mon1) IMoniker_Release(mon1);
 279     if(mon2) IMoniker_Release(mon2);
 280 }
 281
 282 static void test_create(void)
 283 {
 284     static const WCHAR relativeW[] = {'a','/','b','.','t','x','t',0};
 285     IStream *stream;
 286     IMoniker *mon;
 287     IBindCtx *bctx;
 288     HRESULT hr;
 289
 290     static const WCHAR TEST_PART_URL_1[] = {'/','t','e','s','t','s','/','d','a','t','a','.','p','h','p',0};
 291
 292     test_CreateURLMoniker(winetest_data_urlW, TEST_PART_URL_1);
 293
 294     mon = (void*)0xdeadbeef;
 295     hr = CreateURLMoniker(NULL, relativeW, &mon);
 296     ok(hr == S_OK, "got 0x%08x\n", hr);
 297
 298     hr = CreateBindCtx(0, &bctx);
 299     ok(hr == S_OK, "got 0x%08x\n", hr);
 300
 301     stream = (void*)0xdeadbeef;
 302     hr = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, (void**)&stream);
 303     todo_wine ok(hr == INET_E_UNKNOWN_PROTOCOL, "got 0x%08x\n", hr);
 304     ok(stream == NULL, "got %p\n", stream);
 305
 306     hr = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, NULL);
 307     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
 308
 309     stream = (void*)0xdeadbeef;
 310     hr = IMoniker_BindToStorage(mon, NULL, NULL, &IID_IStream, (void**)&stream);
 311     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
 312     ok(stream == NULL || broken(stream == (void*)0xdeadbeef) /* starting XP SP3 it's set to null */,
 313         "got %p\n", stream);
 314
 315     IMoniker_Release(mon);
 316
 317     mon = (void*)0xdaedbeef;
 318     hr = CreateURLMoniker(NULL, winetest_data_urlW, &mon);
 319     ok(hr == S_OK, "got 0x%08x\n", hr);
 320
 321     stream = (void*)0xdeadbeef;
 322     hr = IMoniker_BindToStorage(mon, NULL, NULL, &IID_IStream, (void**)&stream);
 323     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
 324     ok(stream == NULL || broken(stream == (void*)0xdeadbeef) /* starting XP SP3 it's set to null */,
 325         "got %p\n", stream);
 326
 327     hr = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, NULL);
 328     ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
 329
 330     IMoniker_Release(mon);
 331     IBindCtx_Release(bctx);
 332 }
 333
 334 static HRESULT WINAPI Priority_QueryInterface(IInternetPriority *iface, REFIID riid, void **ppv)
 335 {
 336     ok(0, "unexpected call\n");
 337     return E_NOINTERFACE;
 338 }
 339
 340 static ULONG WINAPI Priority_AddRef(IInternetPriority *iface)
 341 {
 342     return 2;
 343 }
 344
 345 static ULONG WINAPI Priority_Release(IInternetPriority *iface)
 346 {
 347     return 1;
 348 }
 349
 350 static HRESULT WINAPI Priority_SetPriority(IInternetPriority *iface, LONG nPriority)
 351 {
 352     CHECK_EXPECT(SetPriority);
 353     ok(!nPriority, "nPriority = %d\n", nPriority);
 354     return S_OK;
 355 }
 356
 357 static HRESULT WINAPI Priority_GetPriority(IInternetPriority *iface, LONG *pnPriority)
 358 {
 359     ok(0, "unexpected call\n");
 360     return S_OK;
 361 }
 362
 363 static const IInternetPriorityVtbl InternetPriorityVtbl = {
 364     Priority_QueryInterface,
 365     Priority_AddRef,
 366     Priority_Release,
 367     Priority_SetPriority,
 368     Priority_GetPriority
 369 };
 370
 371 static IInternetPriority InternetPriority = { &InternetPriorityVtbl };
 372
 373 static HRESULT WINAPI Protocol_QueryInterface(IInternetProtocol *iface, REFIID riid, void **ppv)
 374 {
 375     static const IID IID_undocumentedIE10 = {0x7daf9908,0x8415,0x4005,{0x95,0xae,0xbd,0x27,0xf6,0xe3,0xdc,0x00}};
 376
 377     *ppv = NULL;
 378
 379     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IInternetProtocol, riid)) {
 380         *ppv = iface;
 381         return S_OK;
 382     }
 383
 384     if(IsEqualGUID(&IID_IInternetPriority, riid)) {
 385         if(!is_urlmon_protocol(test_protocol))
 386             return E_NOINTERFACE;
 387
 388         *ppv = &InternetPriority;
 389         return S_OK;
 390     }
 391
 392     if(IsEqualGUID(&IID_IInternetProtocolEx, riid))
 393         return E_NOINTERFACE; /* TODO */
 394
 395     if(IsEqualGUID(&IID_undocumentedIE10, riid)) {
 396         trace("QI(%s)\n", wine_dbgstr_guid(riid));
 397         return E_NOINTERFACE; /* TODO */
 398     }
 399
 400     ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid));
 401     return E_NOINTERFACE;
 402 }
 403
 404 static ULONG WINAPI Protocol_AddRef(IInternetProtocol *iface)
 405 {
 406     return 2;
 407 }
 408
 409 static ULONG WINAPI Protocol_Release(IInternetProtocol *iface)
 410 {
 411     return 1;
 412 }
 413
 414 static void test_switch_fail(void)
 415 {
 416     IInternetProtocolSink *binding_sink;
 417     PROTOCOLDATA protocoldata = {0};
 418     HRESULT hres;
 419
 420     static BOOL tested_switch_fail;
 421
 422     if(tested_switch_fail)
 423         return;
 424
 425     tested_switch_fail = TRUE;
 426
 427     hres = IBinding_QueryInterface(current_binding, &IID_IInternetProtocolSink, (void**)&binding_sink);
 428     ok(hres == S_OK, "Could not get IInternetProtocolSink iface: %08x\n", hres);
 429     if(SUCCEEDED(hres)) {
 430         hres = IInternetProtocolSink_Switch(binding_sink, &protocoldata);
 431         ok(hres == E_FAIL, "Switch failed: %08x, expected E_FAIL\n", hres);
 432         IInternetProtocolSink_Release(binding_sink);
 433     }
 434 }
 435
 436 static DWORD WINAPI thread_proc(PVOID arg)
 437 {
 438     PROTOCOLDATA protocoldata = {0};
 439     HRESULT hres;
 440
 441     if(!no_callback) {
 442         if(bind_to_object)
 443             SET_EXPECT(Obj_OnProgress_FINDINGRESOURCE);
 444         else
 445             SET_EXPECT(OnProgress_FINDINGRESOURCE);
 446     }
 447     hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 448             BINDSTATUS_FINDINGRESOURCE, wszWineHQSite);
 449     ok(hres == S_OK, "ReportProgress failed: %08x\n", hres);
 450     if(!no_callback) {
 451         ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 452         if(bind_to_object)
 453             CHECK_CALLED(Obj_OnProgress_FINDINGRESOURCE);
 454         else
 455             CHECK_CALLED(OnProgress_FINDINGRESOURCE);
 456     }
 457
 458     if(!no_callback) {
 459         if(bind_to_object)
 460             SET_EXPECT(Obj_OnProgress_CONNECTING);
 461         else
 462             SET_EXPECT(OnProgress_CONNECTING);
 463     }
 464     hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 465             BINDSTATUS_CONNECTING, wszWineHQIP);
 466     ok(hres == S_OK, "ReportProgress failed: %08x\n", hres);
 467     if(!no_callback) {
 468         ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 469         if(bind_to_object)
 470             CHECK_CALLED(Obj_OnProgress_CONNECTING);
 471         else
 472             CHECK_CALLED(OnProgress_CONNECTING);
 473     }
 474
 475     if(!no_callback) {
 476         if(bind_to_object)
 477             SET_EXPECT(Obj_OnProgress_SENDINGREQUEST);
 478         else
 479             SET_EXPECT(OnProgress_SENDINGREQUEST);
 480     }
 481     hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 482             BINDSTATUS_SENDINGREQUEST, NULL);
 483     ok(hres == S_OK, "ReportProgress failed: %08x\n", hres);
 484     if(!no_callback) {
 485         ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 486         if(bind_to_object)
 487             CHECK_CALLED(Obj_OnProgress_SENDINGREQUEST);
 488         else
 489             CHECK_CALLED(OnProgress_SENDINGREQUEST);
 490     }
 491
 492     if(test_redirect) {
 493         if(bind_to_object)
 494             SET_EXPECT(Obj_OnProgress_REDIRECTING);
 495         else
 496             SET_EXPECT(OnProgress_REDIRECTING);
 497         hres = IInternetProtocolSink_ReportProgress(protocol_sink, BINDSTATUS_REDIRECTING, winetest_data_urlW);
 498         ok(hres == S_OK, "ReportProgress(BINDSTATUS_REFIRECTING) failed: %08x\n", hres);
 499         ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 500         if(bind_to_object)
 501             CHECK_CALLED(Obj_OnProgress_REDIRECTING);
 502         else
 503             CHECK_CALLED(OnProgress_REDIRECTING);
 504     }
 505
 506     test_switch_fail();
 507
 508     SET_EXPECT(Continue);
 509     prot_state = 1;
 510     hres = IInternetProtocolSink_Switch(protocol_sink, &protocoldata);
 511     ok(hres == S_OK, "Switch failed: %08x\n", hres);
 512     ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 513
 514     CHECK_CALLED(Continue);
 515     CHECK_CALLED(Read);
 516     if(bind_to_object) {
 517         CHECK_CALLED(Obj_OnProgress_MIMETYPEAVAILABLE);
 518         CHECK_CALLED(Obj_OnProgress_BEGINDOWNLOADDATA);
 519         CHECK_CALLED(Obj_OnProgress_CLASSIDAVAILABLE);
 520         CHECK_CALLED(Obj_OnProgress_BEGINSYNCOPERATION);
 521         CHECK_CALLED(CreateInstance);
 522         CHECK_CALLED(PutProperty_MIMETYPEPROP);
 523         CHECK_CALLED_BROKEN(PutProperty_CLASSIDPROP);
 524         CHECK_CALLED(Load);
 525         CHECK_CALLED(Obj_OnProgress_ENDSYNCOPERATION);
 526         CHECK_CALLED(OnObjectAvailable);
 527         CHECK_CALLED(Obj_OnStopBinding);
 528     }else if(!no_callback) {
 529         CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
 530         CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
 531         CHECK_CALLED(OnDataAvailable);
 532     }else {
 533         CHECK_CALLED(LockRequest);
 534     }
 535
 536     SET_EXPECT(Continue);
 537     prot_state = 2;
 538     hres = IInternetProtocolSink_Switch(protocol_sink, &protocoldata);
 539     ok(hres == S_OK, "Switch failed: %08x\n", hres);
 540     ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 541     CHECK_CALLED(Continue);
 542     if(test_abort) {
 543         CHECK_CALLED(OnProgress_DOWNLOADINGDATA);
 544         CHECK_CALLED(OnStopBinding);
 545         SetEvent(complete_event2);
 546         return 0;
 547     }else {
 548         CHECK_CALLED(Read);
 549         if(!no_callback) {
 550             CHECK_CALLED(OnProgress_DOWNLOADINGDATA);
 551             CHECK_CALLED(OnDataAvailable);
 552         }
 553     }
 554
 555     SET_EXPECT(Continue);
 556     prot_state = 2;
 557     hres = IInternetProtocolSink_Switch(protocol_sink, &protocoldata);
 558     ok(hres == S_OK, "Switch failed: %08x\n", hres);
 559     ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 560     CHECK_CALLED(Continue);
 561     CHECK_CALLED(Read);
 562     if(!no_callback) {
 563         CHECK_CALLED(OnProgress_DOWNLOADINGDATA);
 564         CHECK_CALLED(OnDataAvailable);
 565     }
 566
 567     SET_EXPECT(Continue);
 568     prot_state = 3;
 569     hres = IInternetProtocolSink_Switch(protocol_sink, &protocoldata);
 570     ok(hres == S_OK, "Switch failed: %08x\n", hres);
 571     ok( WaitForSingleObject(complete_event, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
 572     CHECK_CALLED(Continue);
 573     CHECK_CALLED(Read);
 574     if(!no_callback) {
 575         CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
 576         CHECK_CALLED(OnDataAvailable);
 577         CHECK_CALLED(OnStopBinding);
 578     }
 579
 580     SET_EXPECT(Read);
 581
 582     SetEvent(complete_event2);
 583     return 0;
 584 }
 585
 586 static HRESULT WINAPI Protocol_Start(IInternetProtocol *iface, LPCWSTR szUrl,
 587         IInternetProtocolSink *pOIProtSink, IInternetBindInfo *pOIBindInfo,
 588         DWORD grfPI, HANDLE_PTR dwReserved)
 589 {
 590     BINDINFO bindinfo;
 591     DWORD bind_info, bscf = BSCF_FIRSTDATANOTIFICATION | BSCF_LASTDATANOTIFICATION;
 592     HRESULT hres;
 593
 594     static const STGMEDIUM stgmed_zero = {0};
 595     static const SECURITY_ATTRIBUTES sa_zero = {0};
 596
 597     CHECK_EXPECT(Start);
 598
 599     read = 0;
 600
 601     reported_url = szUrl;
 602     if(!filedwl_api) /* FIXME */
 603         ok(szUrl && !lstrcmpW(szUrl, current_url), "wrong url %s\n", wine_dbgstr_w(szUrl));
 604     ok(pOIProtSink != NULL, "pOIProtSink == NULL\n");
 605     ok(pOIBindInfo != NULL, "pOIBindInfo == NULL\n");
 606     ok(grfPI == 0, "grfPI=%d, expected 0\n", grfPI);
 607     ok(dwReserved == 0, "dwReserved=%lx, expected 0\n", dwReserved);
 608
 609     if(!filedwl_api && binding_hres != S_OK) {
 610         SET_EXPECT(OnStopBinding);
 611         SET_EXPECT(Terminate);
 612         hres = IInternetProtocolSink_ReportResult(pOIProtSink, binding_hres, 0, NULL);
 613         ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
 614         CHECK_CALLED(OnStopBinding);
 615         CHECK_CALLED(Terminate);
 616
 617         return S_OK;
 618     }
 619
 620     memset(&bindinfo, 0, sizeof(bindinfo));
 621     bindinfo.cbSize = 0;
 622     hres = IInternetBindInfo_GetBindInfo(pOIBindInfo, &bind_info, &bindinfo);
 623     ok(hres == E_INVALIDARG, "GetBindInfo returned: %08x, expected E_INVALIDARG\n", hres);
 624
 625     memset(&bindinfo, 0, sizeof(bindinfo));
 626     bindinfo.cbSize = sizeof(bindinfo);
 627     hres = IInternetBindInfo_GetBindInfo(pOIBindInfo, &bind_info, &bindinfo);
 628     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
 629
 630     ok(bind_info & BINDF_FROMURLMON, "BINDF_FROMURLMON is not set\n");
 631
 632     if(filedwl_api || !is_urlmon_protocol(test_protocol) || tymed != TYMED_ISTREAM ||
 633        !(bindf&BINDF_ASYNCSTORAGE) || !(bindf&BINDF_PULLDATA))
 634         ok(bind_info & BINDF_NEEDFILE, "BINDF_NEEDFILE is not set\n");
 635     else if(test_protocol != MK_TEST) /* IE10 sets BINDF_NEEDFILE for mk: protocol */
 636         ok(!(bind_info & BINDF_NEEDFILE), "BINDF_NEEDFILE is set\n");
 637
 638     bind_info &= ~(BINDF_NEEDFILE|BINDF_FROMURLMON);
 639     if(filedwl_api || no_callback)
 640         ok(bind_info == BINDF_PULLDATA, "bind_info = %x, expected BINDF_PULLDATA\n", bind_info);
 641     else
 642         ok(bind_info == (bindf & ~(BINDF_NEEDFILE|BINDF_FROMURLMON)), "bind_info = %x, expected %x\n",
 643            bind_info, (bindf & ~(BINDF_NEEDFILE|BINDF_FROMURLMON)));
 644
 645     ok(bindinfo.cbSize == sizeof(bindinfo), "bindinfo.cbSize = %d\n", bindinfo.cbSize);
 646     ok(!bindinfo.szExtraInfo, "bindinfo.szExtraInfo = %p\n", bindinfo.szExtraInfo);
 647     ok(!memcmp(&bindinfo.stgmedData, &stgmed_zero, sizeof(STGMEDIUM)), "wrong stgmedData\n");
 648     ok(!bindinfo.grfBindInfoF, "bindinfo.grfBindInfoF = %d\n", bindinfo.grfBindInfoF);
 649     ok(!bindinfo.dwBindVerb, "bindinfo.dwBindVerb = %d\n", bindinfo.dwBindVerb);
 650     ok(!bindinfo.szCustomVerb, "bindinfo.szCustomVerb = %p\n", bindinfo.szCustomVerb);
 651     ok(!bindinfo.cbstgmedData, "bindinfo.cbstgmedData = %d\n", bindinfo.cbstgmedData);
 652     ok(bindinfo.dwOptions == (bind_to_object ? 0x100000 : 0), "bindinfo.dwOptions = %x\n", bindinfo.dwOptions);
 653     ok(!bindinfo.dwOptionsFlags, "bindinfo.dwOptionsFlags = %d\n", bindinfo.dwOptionsFlags);
 654     ok(!bindinfo.dwCodePage, "bindinfo.dwCodePage = %d\n", bindinfo.dwCodePage);
 655     ok(!memcmp(&bindinfo.securityAttributes, &sa_zero, sizeof(sa_zero)), "wrong bindinfo.securityAttributes\n");
 656     ok(IsEqualGUID(&bindinfo.iid, &IID_NULL), "wrong bindinfo.iid\n");
 657     ok(!bindinfo.pUnk, "bindinfo.pUnk = %p\n", bindinfo.pUnk);
 658     ok(!bindinfo.dwReserved, "bindinfo.dwReserved = %d\n", bindinfo.dwReserved);
 659
 660     if(only_check_prot_args)
 661         return E_FAIL;
 662
 663     switch(test_protocol) {
 664     case MK_TEST:
 665         hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 666                 BINDSTATUS_DIRECTBIND, NULL);
 667         ok(hres == S_OK,
 668            "ReportProgress(BINDSTATUS_SENDINGREQUEST) failed: %08x\n", hres);
 669
 670     case FILE_TEST:
 671     case ITS_TEST:
 672         if(bind_to_object)
 673             SET_EXPECT(Obj_OnProgress_SENDINGREQUEST);
 674         else
 675             SET_EXPECT(OnProgress_SENDINGREQUEST);
 676         hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 677                 BINDSTATUS_SENDINGREQUEST, emptyW);
 678         ok(hres == S_OK,
 679            "ReportProgress(BINDSTATUS_SENDINGREQUEST) failed: %08x\n", hres);
 680         if(bind_to_object)
 681             CHECK_CALLED(Obj_OnProgress_SENDINGREQUEST);
 682         else
 683             CHECK_CALLED(OnProgress_SENDINGREQUEST);
 684     case WINETEST_SYNC_TEST:
 685         IInternetProtocolSink_AddRef(pOIProtSink);
 686         protocol_sink = pOIProtSink;
 687     default:
 688         break;
 689     }
 690
 691     if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
 692         IServiceProvider *service_provider;
 693         IHttpNegotiate *http_negotiate;
 694         IHttpNegotiate2 *http_negotiate2;
 695         IHttpSecurity *http_security;
 696         LPWSTR ua = (LPWSTR)0xdeadbeef, accept_mimes[256];
 697         LPWSTR additional_headers = (LPWSTR)0xdeadbeef;
 698         BYTE sec_id[100];
 699         DWORD fetched = 256, size = 100;
 700         DWORD tid;
 701
 702         static const WCHAR wszMimes[] = {'*','/','*',0};
 703
 704         SET_EXPECT(QueryService_IInternetBindInfo);
 705         hres = IInternetBindInfo_GetBindString(pOIBindInfo, BINDSTRING_USER_AGENT,
 706                                                &ua, 1, &fetched);
 707         CLEAR_CALLED(QueryService_IInternetBindInfo); /* IE <8 */
 708
 709         ok(hres == E_NOINTERFACE,
 710            "GetBindString(BINDSTRING_USER_AGETNT) failed: %08x\n", hres);
 711         ok(fetched == 256, "fetched = %d, expected 254\n", fetched);
 712         ok(ua == (LPWSTR)0xdeadbeef, "ua =  %p\n", ua);
 713
 714         hres = IInternetBindInfo_GetBindString(pOIBindInfo, BINDSTRING_ACCEPT_MIMES,
 715                                                accept_mimes, 256, &fetched);
 716         ok(hres == S_OK,
 717            "GetBindString(BINDSTRING_ACCEPT_MIMES) failed: %08x\n", hres);
 718         ok(fetched == 1, "fetched = %d, expected 1\n", fetched);
 719         ok(!lstrcmpW(wszMimes, accept_mimes[0]), "unexpected mimes\n");
 720         CoTaskMemFree(accept_mimes[0]);
 721
 722         hres = IInternetBindInfo_GetBindString(pOIBindInfo, BINDSTRING_ACCEPT_MIMES,
 723                                                NULL, 256, &fetched);
 724         ok(hres == E_INVALIDARG,
 725            "GetBindString(BINDSTRING_ACCEPT_MIMES) failed: %08x\n", hres);
 726
 727         hres = IInternetBindInfo_GetBindString(pOIBindInfo, BINDSTRING_ACCEPT_MIMES,
 728                                                accept_mimes, 256, NULL);
 729         ok(hres == E_INVALIDARG,
 730            "GetBindString(BINDSTRING_ACCEPT_MIMES) failed: %08x\n", hres);
 731
 732         hres = IInternetBindInfo_QueryInterface(pOIBindInfo, &IID_IServiceProvider,
 733                                                 (void**)&service_provider);
 734         ok(hres == S_OK, "QueryInterface failed: %08x\n", hres);
 735
 736         SET_EXPECT(QueryInterface_IHttpNegotiate);
 737         hres = IServiceProvider_QueryService(service_provider, &IID_IHttpNegotiate,
 738                 &IID_IHttpNegotiate, (void**)&http_negotiate);
 739         CLEAR_CALLED(QueryInterface_IHttpNegotiate); /* IE <8 */
 740         ok(hres == S_OK, "QueryService failed: %08x\n", hres);
 741
 742         if(!no_callback) {
 743             SET_EXPECT(BeginningTransaction);
 744             SET_EXPECT(QueryInterface_IHttpNegotiate);
 745         }
 746         hres = IHttpNegotiate_BeginningTransaction(http_negotiate, current_url,
 747                                                    NULL, 0, &additional_headers);
 748         if(!no_callback) {
 749             CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate);
 750             CHECK_CALLED(BeginningTransaction);
 751         }
 752         IHttpNegotiate_Release(http_negotiate);
 753         ok(hres == S_OK, "BeginningTransction failed: %08x\n", hres);
 754         ok(additional_headers == NULL, "additional_headers=%p\n", additional_headers);
 755
 756         SET_EXPECT(QueryInterface_IHttpNegotiate2);
 757         hres = IServiceProvider_QueryService(service_provider, &IID_IHttpNegotiate2,
 758                 &IID_IHttpNegotiate2, (void**)&http_negotiate2);
 759         CLEAR_CALLED(QueryInterface_IHttpNegotiate2); /* IE <8 */
 760         ok(hres == S_OK, "QueryService failed: %08x\n", hres);
 761
 762         size = 512;
 763         if(!no_callback) {
 764             SET_EXPECT(QueryInterface_IHttpNegotiate2);
 765             SET_EXPECT(GetRootSecurityId);
 766         }
 767         hres = IHttpNegotiate2_GetRootSecurityId(http_negotiate2, sec_id, &size, 0);
 768         if(!no_callback) {
 769             CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate2);
 770             CHECK_CALLED(GetRootSecurityId);
 771         }
 772         IHttpNegotiate2_Release(http_negotiate2);
 773         ok(hres == E_FAIL, "GetRootSecurityId failed: %08x, expected E_FAIL\n", hres);
 774         ok(size == (no_callback ? 512 : 13), "size=%d\n", size);
 775
 776         if(!no_callback) {
 777             SET_EXPECT(QueryService_IHttpSecurity);
 778             SET_EXPECT(QueryInterface_IHttpSecurity);
 779         }
 780         hres = IServiceProvider_QueryService(service_provider, &IID_IHttpSecurity,
 781                 &IID_IHttpSecurity, (void**)&http_security);
 782         ok(hres == (no_callback ? E_NOINTERFACE : S_OK), "QueryService failed: 0x%08x\n", hres);
 783         if(!no_callback) {
 784             CHECK_CALLED(QueryService_IHttpSecurity);
 785             CHECK_CALLED(QueryInterface_IHttpSecurity);
 786         }
 787
 788         IServiceProvider_Release(service_provider);
 789
 790         IInternetProtocolSink_AddRef(pOIProtSink);
 791         protocol_sink = pOIProtSink;
 792
 793         if(async_switch) {
 794             PROTOCOLDATA data;
 795
 796             memset(&data, 0, sizeof(data));
 797             data.grfFlags = PI_FORCE_ASYNC;
 798             prot_state = 0;
 799             hres = IInternetProtocolSink_Switch(pOIProtSink, &data);
 800             ok(hres == S_OK, "Switch failed: %08x\n", hres);
 801             SET_EXPECT(Continue);
 802             SetEvent(complete_event2);
 803             return E_PENDING;
 804         } else {
 805             CreateThread(NULL, 0, thread_proc, NULL, 0, &tid);
 806             return S_OK;
 807         }
 808     }
 809
 810     if(test_protocol == FILE_TEST) {
 811         hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 812                 BINDSTATUS_CACHEFILENAMEAVAILABLE, file_url+7);
 813         ok(hres == S_OK,
 814            "ReportProgress(BINDSTATUS_CACHEFILENAMEAVAILABLE) failed: %08x\n", hres);
 815
 816         if(bind_to_object)
 817             SET_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
 818         else
 819             SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
 820         hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 821                 BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE, wszTextHtml);
 822         ok(hres == S_OK,
 823            "ReportProgress(BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE) failed: %08x\n", hres);
 824         if(bind_to_object)
 825             CHECK_CALLED(Obj_OnProgress_MIMETYPEAVAILABLE);
 826         else
 827             CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
 828     }else if(test_protocol == WINETEST_SYNC_TEST) {
 829         SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
 830         hres = IInternetProtocolSink_ReportProgress(pOIProtSink, BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE, wszTextHtml);
 831         ok(hres == S_OK,
 832            "ReportProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
 833         CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
 834     }else {
 835         hres = IInternetProtocolSink_ReportProgress(pOIProtSink, BINDSTATUS_MIMETYPEAVAILABLE, wszTextHtml);
 836         ok(hres == S_OK,
 837            "ReportProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
 838     }
 839
 840     if(test_protocol == ABOUT_TEST)
 841         bscf |= BSCF_DATAFULLYAVAILABLE;
 842     if(test_protocol == ITS_TEST)
 843         bscf = BSCF_FIRSTDATANOTIFICATION|BSCF_DATAFULLYAVAILABLE;
 844
 845     SET_EXPECT(Read);
 846     if(bind_to_object) {
 847         if(test_protocol != FILE_TEST && test_protocol != MK_TEST && test_protocol != WINETEST_SYNC_TEST)
 848             SET_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
 849         SET_EXPECT(Obj_OnProgress_BEGINDOWNLOADDATA);
 850         if(test_protocol == FILE_TEST)
 851             SET_EXPECT(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
 852         SET_EXPECT(Obj_OnProgress_ENDDOWNLOADDATA);
 853         SET_EXPECT(Obj_OnProgress_CLASSIDAVAILABLE);
 854         SET_EXPECT(Obj_OnProgress_BEGINSYNCOPERATION);
 855         SET_EXPECT(CreateInstance);
 856         SET_EXPECT(PutProperty_MIMETYPEPROP);
 857         SET_EXPECT(PutProperty_CLASSIDPROP);
 858         SET_EXPECT(Load);
 859         SET_EXPECT(Obj_OnProgress_ENDSYNCOPERATION);
 860         SET_EXPECT(OnObjectAvailable);
 861         SET_EXPECT(Obj_OnStopBinding);
 862     }else {
 863         if(test_protocol != FILE_TEST && test_protocol != MK_TEST)
 864             SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
 865         SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
 866         if(test_protocol == FILE_TEST)
 867             SET_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
 868         SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
 869         SET_EXPECT(LockRequest);
 870         if(!filedwl_api)
 871             SET_EXPECT(OnDataAvailable);
 872         if(test_protocol != WINETEST_SYNC_TEST) /* Set in Read after ReportResult call */
 873             SET_EXPECT(OnStopBinding);
 874     }
 875
 876     hres = IInternetProtocolSink_ReportData(pOIProtSink, bscf, 13, 13);
 877     ok(hres == S_OK, "ReportData failed: %08x\n", hres);
 878
 879     CHECK_CALLED(Read);
 880     if(bind_to_object) {
 881         if(test_protocol != FILE_TEST && test_protocol != MK_TEST)
 882             CHECK_CALLED(Obj_OnProgress_MIMETYPEAVAILABLE);
 883         CHECK_CALLED(Obj_OnProgress_BEGINDOWNLOADDATA);
 884         if(test_protocol == FILE_TEST)
 885             CHECK_CALLED(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
 886         CHECK_CALLED(Obj_OnProgress_ENDDOWNLOADDATA);
 887         CHECK_CALLED(Obj_OnProgress_CLASSIDAVAILABLE);
 888         CHECK_CALLED(Obj_OnProgress_BEGINSYNCOPERATION);
 889         CHECK_CALLED(CreateInstance);
 890         CHECK_CALLED(PutProperty_MIMETYPEPROP);
 891         CHECK_CALLED_BROKEN(PutProperty_CLASSIDPROP);
 892         CHECK_CALLED(Load);
 893         CHECK_CALLED(Obj_OnProgress_ENDSYNCOPERATION);
 894         CHECK_CALLED(OnObjectAvailable);
 895         CHECK_CALLED(Obj_OnStopBinding);
 896     }else {
 897         if(test_protocol != FILE_TEST && test_protocol != MK_TEST && test_protocol != WINETEST_SYNC_TEST)
 898             CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
 899         CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
 900         if(test_protocol == FILE_TEST)
 901             CHECK_CALLED(OnProgress_CACHEFILENAMEAVAILABLE);
 902         CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
 903         CHECK_CALLED(LockRequest);
 904         if(!filedwl_api)
 905             CHECK_CALLED(OnDataAvailable);
 906         CHECK_CALLED(OnStopBinding);
 907     }
 908
 909     if(test_protocol == ITS_TEST) {
 910         SET_EXPECT(Read);
 911         hres = IInternetProtocolSink_ReportProgress(pOIProtSink, BINDSTATUS_BEGINDOWNLOADDATA, NULL);
 912         ok(hres == S_OK, "ReportProgress(BINDSTATUS_BEGINDOWNLOADDATA) failed: %08x\n", hres);
 913         CHECK_CALLED(Read);
 914     }else if(!bind_to_object && test_protocol == FILE_TEST) {
 915         SET_EXPECT(Read);
 916         hres = IInternetProtocolSink_ReportData(pOIProtSink, bscf, 13, 13);
 917         ok(hres == S_OK, "ReportData failed: %08x\n", hres);
 918         CHECK_CALLED(Read);
 919     }
 920
 921     if(test_protocol != WINETEST_SYNC_TEST) {
 922         SET_EXPECT(Terminate);
 923         hres = IInternetProtocolSink_ReportResult(pOIProtSink, S_OK, 0, NULL);
 924         ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
 925         CHECK_CALLED(Terminate);
 926     }
 927
 928     return S_OK;
 929 }
 930
 931 static HRESULT WINAPI Protocol_Continue(IInternetProtocol *iface,
 932         PROTOCOLDATA *pProtocolData)
 933 {
 934     DWORD bscf = 0;
 935     HRESULT hres;
 936
 937     CHECK_EXPECT(Continue);
 938
 939     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
 940
 941     if(!bind_to_object)
 942         ok(reported_url && !lstrcmpW(reported_url, current_url), "wrong url %s\n", wine_dbgstr_w(reported_url));
 943
 944     ok(pProtocolData != NULL, "pProtocolData == NULL\n");
 945     if(!pProtocolData)
 946         return S_OK;
 947
 948     switch(prot_state) {
 949     case 0:
 950         hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 951                     BINDSTATUS_SENDINGREQUEST, NULL);
 952         ok(hres == S_OK, "ReportProgress failed: %08x\n", hres);
 953
 954         hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 955                 BINDSTATUS_MIMETYPEAVAILABLE, wszTextHtml);
 956         ok(hres == S_OK,
 957                 "ReportProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
 958
 959         bscf |= BSCF_FIRSTDATANOTIFICATION|BSCF_INTERMEDIATEDATANOTIFICATION;
 960         break;
 961     case 1: {
 962         IServiceProvider *service_provider;
 963         IHttpNegotiate *http_negotiate;
 964         static const WCHAR header[] = {'?',0};
 965
 966         hres = IInternetProtocolSink_QueryInterface(protocol_sink, &IID_IServiceProvider,
 967                                                     (void**)&service_provider);
 968         ok(hres == S_OK, "Could not get IServiceProvicder\n");
 969
 970         hres = IServiceProvider_QueryService(service_provider, &IID_IHttpNegotiate,
 971                                              &IID_IHttpNegotiate, (void**)&http_negotiate);
 972         ok(hres == S_OK, "Could not get IHttpNegotiate\n");
 973
 974         if(!no_callback) {
 975             SET_EXPECT(QueryInterface_IHttpNegotiate);
 976             SET_EXPECT(OnResponse);
 977         }
 978         hres = IHttpNegotiate_OnResponse(http_negotiate, 200, header, NULL, NULL);
 979         if(!no_callback) {
 980             CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate);
 981             CHECK_CALLED(OnResponse);
 982         }
 983         IHttpNegotiate_Release(http_negotiate);
 984         ok(hres == S_OK, "OnResponse failed: %08x\n", hres);
 985
 986         if(test_protocol == HTTPS_TEST || test_redirect) {
 987             hres = IInternetProtocolSink_ReportProgress(protocol_sink, BINDSTATUS_ACCEPTRANGES, NULL);
 988             ok(hres == S_OK, "ReportProgress(BINDSTATUS_ACCEPTRANGES) failed: %08x\n", hres);
 989         }
 990
 991         hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 992                 BINDSTATUS_MIMETYPEAVAILABLE, wszTextHtml);
 993         ok(hres == S_OK,
 994            "ReportProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
 995
 996         hres = IInternetProtocolSink_ReportProgress(protocol_sink,
 997             BINDSTATUS_CACHEFILENAMEAVAILABLE, use_cache_file ? cache_file_name : cache_fileW);
 998         ok(hres == S_OK, "ReportProgress(BINDSTATUS_CACHEFILENAMEAVAILABLE) failed: %08x\n", hres);
 999
1000         bscf |= BSCF_FIRSTDATANOTIFICATION;
1001         break;
1002     }
1003     case 2:
1004     case 3:
1005         bscf = BSCF_INTERMEDIATEDATANOTIFICATION;
1006         break;
1007     }
1008
1009     hres = IInternetProtocolSink_ReportData(protocol_sink, bscf, 100, 400);
1010     ok(hres == S_OK, "ReportData failed: %08x\n", hres);
1011
1012     if(prot_state != 2 || !test_abort)
1013         SET_EXPECT(Read);
1014     switch(prot_state) {
1015     case 0:
1016         hres = IInternetProtocolSink_ReportResult(protocol_sink, S_OK, 0, NULL);
1017         ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
1018         SET_EXPECT(OnProgress_SENDINGREQUEST);
1019         SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
1020         SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
1021         SET_EXPECT(LockRequest);
1022         SET_EXPECT(OnStopBinding);
1023         break;
1024     case 1:
1025         if(bind_to_object) {
1026             SET_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
1027             SET_EXPECT(Obj_OnProgress_BEGINDOWNLOADDATA);
1028             SET_EXPECT(Obj_OnProgress_CLASSIDAVAILABLE);
1029             SET_EXPECT(Obj_OnProgress_BEGINSYNCOPERATION);
1030             SET_EXPECT(CreateInstance);
1031             SET_EXPECT(PutProperty_MIMETYPEPROP);
1032             SET_EXPECT(PutProperty_CLASSIDPROP);
1033             SET_EXPECT(Load);
1034             SET_EXPECT(Obj_OnProgress_ENDSYNCOPERATION);
1035             SET_EXPECT(OnObjectAvailable);
1036             SET_EXPECT(Obj_OnStopBinding);
1037         }else if(!no_callback) {
1038             SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
1039             SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
1040             SET_EXPECT(LockRequest);
1041         }else {
1042             SET_EXPECT(LockRequest);
1043         }
1044         break;
1045     case 2:
1046         if(!no_callback)
1047             SET_EXPECT(OnProgress_DOWNLOADINGDATA);
1048         break;
1049     case 3:
1050         SET_EXPECT(OnProgress_DOWNLOADINGDATA);
1051         SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
1052     }
1053     if(!no_callback) {
1054         if((!bind_to_object || prot_state >= 2) && (!test_abort || prot_state != 2))
1055             SET_EXPECT(OnDataAvailable);
1056         if(prot_state == 3 || (test_abort && prot_state == 2))
1057             SET_EXPECT(OnStopBinding);
1058     }
1059     return S_OK;
1060 }
1061
1062 static HRESULT WINAPI Protocol_Abort(IInternetProtocol *iface, HRESULT hrReason,
1063         DWORD dwOptions)
1064 {
1065     HRESULT hres;
1066
1067     CHECK_EXPECT(Abort);
1068
1069     ok(hrReason == E_ABORT, "hrReason = %08x\n", hrReason);
1070     ok(!dwOptions, "dwOptions = %x\n", dwOptions);
1071
1072     hres = IInternetProtocolSink_ReportResult(protocol_sink, E_ABORT, ERROR_SUCCESS, NULL);
1073     ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
1074
1075     return S_OK;
1076 }
1077
1078 static HRESULT WINAPI Protocol_Terminate(IInternetProtocol *iface, DWORD dwOptions)
1079 {
1080     CHECK_EXPECT(Terminate);
1081
1082     ok(dwOptions == 0, "dwOptions=%d, expected 0\n", dwOptions);
1083
1084     if(protocol_sink) {
1085         IInternetProtocolSink_Release(protocol_sink);
1086         protocol_sink = NULL;
1087     }
1088
1089     if(no_callback)
1090         SetEvent(complete_event);
1091     return S_OK;
1092 }
1093
1094 static HRESULT WINAPI Protocol_Suspend(IInternetProtocol *iface)
1095 {
1096     ok(0, "unexpected call\n");
1097     return E_NOTIMPL;
1098 }
1099
1100 static HRESULT WINAPI Protocol_Resume(IInternetProtocol *iface)
1101 {
1102     ok(0, "unexpected call\n");
1103     return E_NOTIMPL;
1104 }
1105
1106 static HRESULT WINAPI Protocol_Read(IInternetProtocol *iface, void *pv,
1107         ULONG cb, ULONG *pcbRead)
1108 {
1109     HRESULT hres;
1110
1111     static const char data[] = "<HTML></HTML>";
1112
1113     CHECK_EXPECT2(Read);
1114
1115     ok(pv != NULL, "pv == NULL\n");
1116     ok(cb != 0, "cb == 0\n");
1117     ok(pcbRead != NULL, "pcbRead == NULL\n");
1118
1119     if(async_switch) {
1120         if(prot_state++ > 1) {
1121             *pcbRead = 0;
1122             return S_FALSE;
1123         } else {
1124             memset(pv, '?', cb);
1125             *pcbRead = cb;
1126             return S_OK;
1127         }
1128     }
1129
1130     if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
1131         static BOOL pending = TRUE;
1132
1133         pending = !pending;
1134
1135         switch(prot_state) {
1136         case 1:
1137         case 2:
1138             if(pending) {
1139                 *pcbRead = 10;
1140                 memset(pv, '?', 10);
1141                 if(prot_state == 2 && no_callback)
1142                     SetEvent(complete_event);
1143                 return E_PENDING;
1144             }else {
1145                 memset(pv, '?', cb);
1146                 *pcbRead = cb;
1147                 read++;
1148                 return S_OK;
1149             }
1150         case 3:
1151             prot_state++;
1152
1153             *pcbRead = 0;
1154
1155             hres = IInternetProtocolSink_ReportData(protocol_sink,
1156                     BSCF_LASTDATANOTIFICATION|BSCF_INTERMEDIATEDATANOTIFICATION, 2000, 2000);
1157             ok(hres == S_OK, "ReportData failed: %08x\n", hres);
1158
1159             hres = IInternetProtocolSink_ReportResult(protocol_sink, S_OK, 0, NULL);
1160             ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
1161
1162             return S_FALSE;
1163         case 4:
1164             *pcbRead = 0;
1165             return S_FALSE;
1166         }
1167     }
1168
1169     if(read) {
1170         *pcbRead = 0;
1171         return S_FALSE;
1172     }
1173
1174     if(test_protocol == WINETEST_SYNC_TEST) {
1175         hres = IInternetProtocolSink_ReportResult(protocol_sink, S_OK, 0, NULL);
1176         ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
1177
1178         SET_EXPECT(OnStopBinding);
1179     }
1180
1181     ok(*pcbRead == 0, "*pcbRead=%d, expected 0\n", *pcbRead);
1182     read += *pcbRead = sizeof(data)-1;
1183     memcpy(pv, data, sizeof(data));
1184     return S_OK;
1185 }
1186
1187 static HRESULT WINAPI Protocol_Seek(IInternetProtocol *iface,
1188         LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
1189 {
1190     ok(0, "unexpected call\n");
1191     return E_NOTIMPL;
1192 }
1193
1194 static HRESULT WINAPI Protocol_LockRequest(IInternetProtocol *iface, DWORD dwOptions)
1195 {
1196     CHECK_EXPECT(LockRequest);
1197     if(no_callback)
1198         SetEvent(complete_event);
1199     return S_OK;
1200 }
1201
1202 static HRESULT WINAPI Protocol_UnlockRequest(IInternetProtocol *iface)
1203 {
1204     CHECK_EXPECT(UnlockRequest);
1205     return S_OK;
1206 }
1207
1208 static const IInternetProtocolVtbl ProtocolVtbl = {
1209     Protocol_QueryInterface,
1210     Protocol_AddRef,
1211     Protocol_Release,
1212     Protocol_Start,
1213     Protocol_Continue,
1214     Protocol_Abort,
1215     Protocol_Terminate,
1216     Protocol_Suspend,
1217     Protocol_Resume,
1218     Protocol_Read,
1219     Protocol_Seek,
1220     Protocol_LockRequest,
1221     Protocol_UnlockRequest
1222 };
1223
1224 static IInternetProtocol Protocol = { &ProtocolVtbl };
1225
1226 static HRESULT WINAPI HttpNegotiate_QueryInterface(IHttpNegotiate2 *iface, REFIID riid, void **ppv)
1227 {
1228     if(IsEqualGUID(&IID_IUnknown, riid)
1229             || IsEqualGUID(&IID_IHttpNegotiate, riid)
1230             || IsEqualGUID(&IID_IHttpNegotiate2, riid)) {
1231         *ppv = iface;
1232         return S_OK;
1233     }
1234
1235     ok(0, "unexpected call\n");
1236     return E_NOINTERFACE;
1237 }
1238
1239 static ULONG WINAPI HttpNegotiate_AddRef(IHttpNegotiate2 *iface)
1240 {
1241     return 2;
1242 }
1243
1244 static ULONG WINAPI HttpNegotiate_Release(IHttpNegotiate2 *iface)
1245 {
1246     return 1;
1247 }
1248
1249 static HRESULT WINAPI HttpNegotiate_BeginningTransaction(IHttpNegotiate2 *iface, LPCWSTR szURL,
1250         LPCWSTR szHeaders, DWORD dwReserved, LPWSTR *pszAdditionalHeaders)
1251 {
1252     if(onsecurityproblem_hres == S_OK)
1253         CHECK_EXPECT2(BeginningTransaction);
1254     else
1255         CHECK_EXPECT(BeginningTransaction);
1256
1257     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1258
1259     ok(!lstrcmpW(szURL, current_url), "szURL != current_url\n");
1260     ok(!dwReserved, "dwReserved=%d, expected 0\n", dwReserved);
1261     ok(pszAdditionalHeaders != NULL, "pszAdditionalHeaders == NULL\n");
1262     if(pszAdditionalHeaders)
1263         ok(*pszAdditionalHeaders == NULL, "*pszAdditionalHeaders != NULL\n");
1264
1265     return S_OK;
1266 }
1267
1268 static HRESULT WINAPI HttpNegotiate_OnResponse(IHttpNegotiate2 *iface, DWORD dwResponseCode,
1269         LPCWSTR szResponseHeaders, LPCWSTR szRequestHeaders, LPWSTR *pszAdditionalRequestHeaders)
1270 {
1271     CHECK_EXPECT(OnResponse);
1272
1273     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1274
1275     ok(dwResponseCode == 200, "dwResponseCode=%d, expected 200\n", dwResponseCode);
1276     ok(szResponseHeaders != NULL, "szResponseHeaders == NULL\n");
1277     ok(szRequestHeaders == NULL, "szRequestHeaders != NULL\n");
1278     /* Note: in protocol.c tests, OnResponse pszAdditionalRequestHeaders _is_ NULL */
1279     ok(pszAdditionalRequestHeaders != NULL, "pszAdditionalHeaders == NULL\n");
1280     if(pszAdditionalRequestHeaders)
1281         ok(*pszAdditionalRequestHeaders == NULL, "*pszAdditionalHeaders != NULL\n");
1282
1283     return S_OK;
1284 }
1285
1286 static HRESULT WINAPI HttpNegotiate_GetRootSecurityId(IHttpNegotiate2 *iface,
1287         BYTE *pbSecurityId, DWORD *pcbSecurityId, DWORD_PTR dwReserved)
1288 {
1289     static const BYTE sec_id[] = {'h','t','t','p',':','t','e','s','t',1,0,0,0};
1290
1291     CHECK_EXPECT(GetRootSecurityId);
1292
1293     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1294
1295     ok(!dwReserved, "dwReserved=%ld, expected 0\n", dwReserved);
1296     ok(pbSecurityId != NULL, "pbSecurityId == NULL\n");
1297     ok(pcbSecurityId != NULL, "pcbSecurityId == NULL\n");
1298
1299     if(pbSecurityId == (void*)0xdeadbeef)
1300         return E_NOTIMPL;
1301
1302     if(pcbSecurityId) {
1303         ok(*pcbSecurityId == 512, "*pcbSecurityId=%d, expected 512\n", *pcbSecurityId);
1304         *pcbSecurityId = sizeof(sec_id);
1305     }
1306
1307     if(pbSecurityId)
1308         memcpy(pbSecurityId, sec_id, sizeof(sec_id));
1309
1310     return E_FAIL;
1311 }
1312
1313 static IHttpNegotiate2Vtbl HttpNegotiateVtbl = {
1314     HttpNegotiate_QueryInterface,
1315     HttpNegotiate_AddRef,
1316     HttpNegotiate_Release,
1317     HttpNegotiate_BeginningTransaction,
1318     HttpNegotiate_OnResponse,
1319     HttpNegotiate_GetRootSecurityId
1320 };
1321
1322 static IHttpNegotiate2 HttpNegotiate = { &HttpNegotiateVtbl };
1323
1324 static HRESULT WINAPI HttpSecurity_QueryInterface(IHttpSecurity *iface, REFIID riid, void **ppv)
1325 {
1326     ok(0, "Unexpected call\n");
1327     *ppv = NULL;
1328     if(IsEqualGUID(&IID_IHttpSecurity, riid) ||
1329        IsEqualGUID(&IID_IWindowForBindingUI, riid) ||
1330        IsEqualGUID(&IID_IUnknown, riid))
1331     {
1332         *ppv = iface;
1333         return S_OK;
1334     }
1335
1336     ok(0, "Unexpected interface requested.\n");
1337
1338     return E_NOINTERFACE;
1339 }
1340
1341 static ULONG WINAPI HttpSecurity_AddRef(IHttpSecurity *iface)
1342 {
1343     return 2;
1344 }
1345
1346 static ULONG WINAPI HttpSecurity_Release(IHttpSecurity *iface)
1347 {
1348     return 1;
1349 }
1350
1351 static HRESULT WINAPI HttpSecurity_GetWindow(IHttpSecurity *iface, REFGUID rguidReason, HWND *phwnd)
1352 {
1353     if(IsEqualGUID(rguidReason, &IID_IHttpSecurity))
1354         CHECK_EXPECT(GetWindow_IHttpSecurity);
1355     else if(IsEqualGUID(rguidReason, &IID_IWindowForBindingUI))
1356         CHECK_EXPECT2(GetWindow_IWindowForBindingUI);
1357     else if(IsEqualGUID(rguidReason, &IID_ICodeInstall))
1358         CHECK_EXPECT(GetWindow_ICodeInstall);
1359     else
1360         ok(0, "Unexpected rguidReason: %s\n", wine_dbgstr_guid(rguidReason));
1361
1362     *phwnd = NULL;
1363     return S_OK;
1364 }
1365
1366 static HRESULT WINAPI HttpSecurity_OnSecurityProblem(IHttpSecurity *iface, DWORD dwProblem)
1367 {
1368     CHECK_EXPECT(OnSecurityProblem);
1369     if(!security_problem) {
1370         ok(dwProblem == ERROR_INTERNET_SEC_CERT_CN_INVALID ||
1371            broken(dwProblem == ERROR_INTERNET_SEC_CERT_ERRORS) /* Some versions of IE6 */,
1372            "Got problem: %d\n", dwProblem);
1373         security_problem = dwProblem;
1374
1375         if(dwProblem == ERROR_INTERNET_SEC_CERT_ERRORS)
1376             binding_hres = INET_E_SECURITY_PROBLEM;
1377     }else
1378         ok(dwProblem == security_problem, "Got problem: %d\n", dwProblem);
1379
1380     return onsecurityproblem_hres;
1381 }
1382
1383 static const IHttpSecurityVtbl HttpSecurityVtbl = {
1384     HttpSecurity_QueryInterface,
1385     HttpSecurity_AddRef,
1386     HttpSecurity_Release,
1387     HttpSecurity_GetWindow,
1388     HttpSecurity_OnSecurityProblem
1389 };
1390
1391 static IHttpSecurity HttpSecurity = { &HttpSecurityVtbl };
1392
1393 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1394 {
1395     ok(0, "unexpected call\n");
1396     return E_NOINTERFACE;
1397 }
1398
1399 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
1400 {
1401     return 2;
1402 }
1403
1404 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
1405 {
1406     return 1;
1407 }
1408
1409 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface,
1410         REFGUID guidService, REFIID riid, void **ppv)
1411 {
1412     if(IsEqualGUID(&IID_IAuthenticate, guidService)) {
1413         CHECK_EXPECT(QueryService_IAuthenticate);
1414         return E_NOTIMPL;
1415     }
1416
1417     if(IsEqualGUID(&IID_IInternetProtocol, guidService)) {
1418         CHECK_EXPECT2(QueryService_IInternetProtocol);
1419         return E_NOTIMPL;
1420     }
1421
1422     if(IsEqualGUID(&IID_IInternetBindInfo, guidService)) {
1423         CHECK_EXPECT(QueryService_IInternetBindInfo);
1424         return E_NOTIMPL;
1425     }
1426
1427     if(IsEqualGUID(&IID_IWindowForBindingUI, guidService)) {
1428         CHECK_EXPECT2(QueryService_IWindowForBindingUI);
1429         *ppv = &HttpSecurity;
1430         return S_OK;
1431     }
1432
1433     if(IsEqualGUID(&IID_IHttpSecurity, guidService)) {
1434         CHECK_EXPECT(QueryService_IHttpSecurity);
1435         *ppv = &HttpSecurity;
1436         return S_OK;
1437     }
1438
1439     if(IsEqualGUID(&IID_IGetBindHandle, guidService)) {
1440         trace("QueryService(IID_IGetBindHandle)\n");
1441         *ppv = NULL;
1442         return E_NOINTERFACE;
1443     }
1444
1445     if(IsEqualGUID(&IID_undocumentedIE11, guidService)) {
1446         trace("QueryService(IID_undocumentedIE11)\n");
1447         *ppv = NULL;
1448         return E_NOINTERFACE;
1449     }
1450
1451     ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
1452     return E_NOINTERFACE;
1453 }
1454
1455 static IServiceProviderVtbl ServiceProviderVtbl = {
1456     ServiceProvider_QueryInterface,
1457     ServiceProvider_AddRef,
1458     ServiceProvider_Release,
1459     ServiceProvider_QueryService
1460 };
1461
1462 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
1463
1464 static IBindStatusCallbackEx objbsc;
1465
1466 static void test_WinInetHttpInfo(IWinInetHttpInfo *http_info, DWORD progress)
1467 {
1468     DWORD status, size;
1469     HRESULT hres, expect;
1470
1471     /* QueryInfo changes its behavior during this request */
1472     if(progress == BINDSTATUS_SENDINGREQUEST)
1473         return;
1474
1475     if(test_protocol==FTP_TEST && download_state==BEFORE_DOWNLOAD
1476             && progress!=BINDSTATUS_MIMETYPEAVAILABLE)
1477         expect = E_FAIL;
1478     else if(test_protocol == FTP_TEST)
1479         expect = S_FALSE;
1480     else
1481         expect = S_OK;
1482
1483     size = sizeof(DWORD);
1484     hres = IWinInetHttpInfo_QueryInfo(http_info, HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER,
1485             &status, &size, NULL, NULL);
1486     ok(hres == expect || ((progress == BINDSTATUS_COOKIE_SENT || progress == BINDSTATUS_PROXYDETECTING) && hres == S_FALSE),
1487        "progress %u: hres = %x, expected %x\n", progress, hres, expect);
1488     if(hres == S_OK) {
1489         if(download_state == BEFORE_DOWNLOAD && progress != BINDSTATUS_MIMETYPEAVAILABLE && progress != BINDSTATUS_DECODING)
1490             ok(status == 0, "progress %u: status = %d\n", progress, status);
1491         else
1492             ok(status == HTTP_STATUS_OK, "progress %u: status = %d\n", progress, status);
1493         ok(size == sizeof(DWORD), "size = %d\n", size);
1494     }
1495
1496     size = sizeof(DWORD);
1497     hres = IWinInetHttpInfo_QueryOption(http_info, INTERNET_OPTION_HANDLE_TYPE, &status, &size);
1498     if(test_protocol == FTP_TEST) {
1499         if(download_state==BEFORE_DOWNLOAD && progress!=BINDSTATUS_MIMETYPEAVAILABLE)
1500             ok(hres == E_FAIL, "hres = %x\n", hres);
1501         else
1502             ok(hres == S_OK, "hres = %x\n", hres);
1503
1504         if(hres == S_OK)
1505             ok(status == INTERNET_HANDLE_TYPE_FTP_FILE, "status = %d\n", status);
1506     } else {
1507         ok(hres == S_OK, "hres = %x\n", hres);
1508         ok(status == INTERNET_HANDLE_TYPE_HTTP_REQUEST, "status = %d\n", status);
1509     }
1510 }
1511
1512 static HRESULT WINAPI statusclb_QueryInterface(IBindStatusCallbackEx *iface, REFIID riid, void **ppv)
1513 {
1514     static const IID IID_undocumentedIE10 = {0xf286fa56,0xc1fd,0x4270,{0x8e,0x67,0xb3,0xeb,0x79,0x0a,0x81,0xe8}};
1515
1516     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1517
1518     if(IsEqualGUID(&IID_IInternetProtocol, riid)) {
1519         CHECK_EXPECT2(QueryInterface_IInternetProtocol);
1520         if(emulate_protocol) {
1521             *ppv = &Protocol;
1522             return S_OK;
1523         }else {
1524             return E_NOINTERFACE;
1525         }
1526     }else if (IsEqualGUID(&IID_IServiceProvider, riid)) {
1527         CHECK_EXPECT2(QueryInterface_IServiceProvider);
1528         *ppv = &ServiceProvider;
1529         return S_OK;
1530     }else if (IsEqualGUID(&IID_IHttpNegotiate, riid)) {
1531         CHECK_EXPECT2(QueryInterface_IHttpNegotiate);
1532         *ppv = &HttpNegotiate;
1533         return S_OK;
1534     }else if (IsEqualGUID(&IID_IHttpNegotiate2, riid)) {
1535         CHECK_EXPECT(QueryInterface_IHttpNegotiate2);
1536         *ppv = &HttpNegotiate;
1537         return S_OK;
1538     }else if (IsEqualGUID(&IID_IAuthenticate, riid)) {
1539         CHECK_EXPECT(QueryInterface_IAuthenticate);
1540         return E_NOINTERFACE;
1541     }else if(IsEqualGUID(&IID_IBindStatusCallback, riid)) {
1542         if(strict_bsc_qi)
1543             CHECK_EXPECT2(QueryInterface_IBindStatusCallback);
1544         *ppv = iface;
1545         return S_OK;
1546     }else if(IsEqualGUID(&IID_IBindStatusCallbackHolder, riid)) {
1547         CHECK_EXPECT2(QueryInterface_IBindStatusCallbackHolder);
1548         return E_NOINTERFACE;
1549     }else if(IsEqualGUID(&IID_IBindStatusCallbackEx, riid)) {
1550         CHECK_EXPECT(QueryInterface_IBindStatusCallbackEx);
1551         if(!use_bscex)
1552             return E_NOINTERFACE;
1553         *ppv = iface;
1554         return S_OK;
1555     }else if(IsEqualGUID(&IID_IInternetBindInfo, riid)) {
1556         /* TODO */
1557     }else if(IsEqualGUID(&IID_IWindowForBindingUI, riid)) {
1558         CHECK_EXPECT2(QueryInterface_IWindowForBindingUI);
1559         return E_NOINTERFACE;
1560     }else if(IsEqualGUID(&IID_IHttpSecurity, riid)) {
1561         CHECK_EXPECT2(QueryInterface_IHttpSecurity);
1562         return E_NOINTERFACE;
1563     }else if(IsEqualGUID(&IID_IGetBindHandle, riid)) {
1564         trace("QI(IID_IGetBindHandle)\n");
1565         *ppv = NULL;
1566         return E_NOINTERFACE;
1567     }else if(IsEqualGUID(&IID_undocumentedIE10, riid)) {
1568         trace("QI(IID_undocumentedIE10)\n");
1569         *ppv = NULL;
1570         return E_NOINTERFACE;
1571     }else if(IsEqualGUID(&IID_undocumentedIE11, riid)) {
1572         trace("QI(IID_undocumentedIE11)\n");
1573         *ppv = NULL;
1574         return E_NOINTERFACE;
1575     }else {
1576         ok(0, "unexpected interface %s\n", wine_dbgstr_guid(riid));
1577     }
1578
1579     return E_NOINTERFACE;
1580 }
1581
1582 static ULONG WINAPI statusclb_AddRef(IBindStatusCallbackEx *iface)
1583 {
1584     return 2;
1585 }
1586
1587 static ULONG WINAPI statusclb_Release(IBindStatusCallbackEx *iface)
1588 {
1589     return 1;
1590 }
1591
1592 static HRESULT WINAPI statusclb_OnStartBinding(IBindStatusCallbackEx *iface, DWORD dwReserved,
1593         IBinding *pib)
1594 {
1595     IWinInetHttpInfo *http_info;
1596     HRESULT hres;
1597     IMoniker *mon;
1598     DWORD res;
1599     CLSID clsid;
1600     LPOLESTR res_str;
1601
1602     if(iface == &objbsc)
1603         CHECK_EXPECT(Obj_OnStartBinding);
1604     else
1605         CHECK_EXPECT(OnStartBinding);
1606
1607     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1608
1609     ok(pib != NULL, "pib should not be NULL\n");
1610     ok(dwReserved == 0xff, "dwReserved=%x\n", dwReserved);
1611
1612     if(pib == (void*)0xdeadbeef)
1613         return S_OK;
1614
1615     current_binding = pib;
1616
1617     hres = IBinding_QueryInterface(pib, &IID_IMoniker, (void**)&mon);
1618     ok(hres == E_NOINTERFACE, "IBinding should not have IMoniker interface\n");
1619     if(SUCCEEDED(hres))
1620         IMoniker_Release(mon);
1621
1622     hres = IBinding_QueryInterface(pib, &IID_IWinInetHttpInfo, (void**)&http_info);
1623     ok(hres == E_NOINTERFACE, "Could not get IID_IWinInetHttpInfo: %08x\n", hres);
1624
1625     if(0) { /* crashes with native urlmon */
1626         hres = IBinding_GetBindResult(pib, NULL, &res, &res_str, NULL);
1627         ok(hres == E_INVALIDARG, "GetBindResult failed: %08x\n", hres);
1628     }
1629     hres = IBinding_GetBindResult(pib, &clsid, NULL, &res_str, NULL);
1630     ok(hres == E_INVALIDARG, "GetBindResult failed: %08x\n", hres);
1631     hres = IBinding_GetBindResult(pib, &clsid, &res, NULL, NULL);
1632     ok(hres == E_INVALIDARG, "GetBindResult failed: %08x\n", hres);
1633     hres = IBinding_GetBindResult(pib, &clsid, &res, &res_str, (void*)0xdeadbeef);
1634     ok(hres == E_INVALIDARG, "GetBindResult failed: %08x\n", hres);
1635
1636     hres = IBinding_GetBindResult(pib, &clsid, &res, &res_str, NULL);
1637     ok(hres == S_OK, "GetBindResult failed: %08x, expected S_OK\n", hres);
1638     ok(IsEqualCLSID(&clsid, &CLSID_NULL), "incorrect clsid: %s\n", wine_dbgstr_guid(&clsid));
1639     ok(!res, "incorrect res: %x\n", res);
1640     ok(!res_str, "incorrect res_str: %s\n", wine_dbgstr_w(res_str));
1641
1642     if(abort_start) {
1643         binding_hres = abort_hres;
1644         return abort_hres;
1645     }
1646
1647     return S_OK;
1648 }
1649
1650 static HRESULT WINAPI statusclb_GetPriority(IBindStatusCallbackEx *iface, LONG *pnPriority)
1651 {
1652     ok(0, "unexpected call\n");
1653     return E_NOTIMPL;
1654 }
1655
1656 static HRESULT WINAPI statusclb_OnLowResource(IBindStatusCallbackEx *iface, DWORD reserved)
1657 {
1658     ok(0, "unexpected call\n");
1659     return E_NOTIMPL;
1660 }
1661
1662 static HRESULT WINAPI statusclb_OnProgress(IBindStatusCallbackEx *iface, ULONG ulProgress,
1663         ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
1664 {
1665     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1666
1667     switch(ulStatusCode) {
1668     case BINDSTATUS_FINDINGRESOURCE:
1669         if(iface == &objbsc)
1670             CHECK_EXPECT(Obj_OnProgress_FINDINGRESOURCE);
1671         else if(test_protocol == FTP_TEST)
1672             todo_wine CHECK_EXPECT(OnProgress_FINDINGRESOURCE);
1673         else if(test_protocol == HTTPS_TEST && !bindtest_flags)
1674             todo_wine CHECK_EXPECT(OnProgress_FINDINGRESOURCE);
1675         else
1676             CHECK_EXPECT(OnProgress_FINDINGRESOURCE);
1677         if(emulate_protocol && (test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST))
1678             SetEvent(complete_event);
1679         break;
1680     case BINDSTATUS_CONNECTING:
1681         if(iface == &objbsc)
1682             CHECK_EXPECT(Obj_OnProgress_CONNECTING);
1683         else if(test_protocol == FTP_TEST)
1684             todo_wine CHECK_EXPECT(OnProgress_CONNECTING);
1685         else if(onsecurityproblem_hres == S_OK)
1686             CHECK_EXPECT2(OnProgress_CONNECTING);
1687         else
1688             CHECK_EXPECT(OnProgress_CONNECTING);
1689         if(emulate_protocol && (test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST))
1690             SetEvent(complete_event);
1691         break;
1692     case BINDSTATUS_REDIRECTING:
1693         if(iface == &objbsc)
1694             CHECK_EXPECT(Obj_OnProgress_REDIRECTING);
1695         else
1696             CHECK_EXPECT(OnProgress_REDIRECTING);
1697         ok(!lstrcmpW(szStatusText, winetest_data_urlW), "unexpected status text %s\n",
1698            wine_dbgstr_w(szStatusText));
1699         if(emulate_protocol && (test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST)
1700                 && (!bind_to_object || iface == &objbsc))
1701             SetEvent(complete_event);
1702         break;
1703     case BINDSTATUS_SENDINGREQUEST:
1704         if(iface == &objbsc)
1705             CHECK_EXPECT(Obj_OnProgress_SENDINGREQUEST);
1706         else if(test_protocol == FTP_TEST)
1707             CHECK_EXPECT2(OnProgress_SENDINGREQUEST);
1708         else
1709             CHECK_EXPECT(OnProgress_SENDINGREQUEST);
1710         if(emulate_protocol && (test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST))
1711             SetEvent(complete_event);
1712
1713         if(abort_progress) {
1714             if(filedwl_api)
1715                 binding_hres = E_ABORT;
1716             return E_ABORT;
1717         }
1718
1719         break;
1720     case BINDSTATUS_MIMETYPEAVAILABLE:
1721         if(iface == &objbsc)
1722             CHECK_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
1723         else
1724             CHECK_EXPECT(OnProgress_MIMETYPEAVAILABLE);
1725         if(!bind_to_object)
1726             ok(download_state == BEFORE_DOWNLOAD, "Download state was %d, expected BEFORE_DOWNLOAD\n",
1727                download_state);
1728         WideCharToMultiByte(CP_ACP, 0, szStatusText, -1, mime_type, sizeof(mime_type)-1, NULL, NULL);
1729         break;
1730     case BINDSTATUS_BEGINDOWNLOADDATA:
1731         if(iface == &objbsc)
1732             CHECK_EXPECT(Obj_OnProgress_BEGINDOWNLOADDATA);
1733         else
1734             CHECK_EXPECT(OnProgress_BEGINDOWNLOADDATA);
1735         ok(szStatusText != NULL, "szStatusText == NULL\n");
1736         if(szStatusText) {
1737             if(filedwl_api) {
1738                 /* FIXME */
1739             }else {
1740                 ok(!lstrcmpW(szStatusText, current_url), "wrong szStatusText %s\n", wine_dbgstr_w(szStatusText));
1741             }
1742         }
1743         if(!bind_to_object)
1744             ok(download_state == BEFORE_DOWNLOAD, "Download state was %d, expected BEFORE_DOWNLOAD\n",
1745                download_state);
1746         download_state = DOWNLOADING;
1747         break;
1748     case BINDSTATUS_DOWNLOADINGDATA:
1749         CHECK_EXPECT2(OnProgress_DOWNLOADINGDATA);
1750         ok(iface != &objbsc, "unexpected call\n");
1751         ok(download_state == DOWNLOADING, "Download state was %d, expected DOWNLOADING\n",
1752            download_state);
1753         if(test_abort) {
1754             HRESULT hres;
1755
1756             SET_EXPECT(Abort);
1757             hres = IBinding_Abort(current_binding);
1758             ok(hres == S_OK, "Abort failed: %08x\n", hres);
1759             CHECK_CALLED(Abort);
1760
1761             hres = IBinding_Abort(current_binding);
1762             ok(hres == E_FAIL, "Abort failed: %08x\n", hres);
1763
1764             binding_hres = E_ABORT;
1765         }
1766         break;
1767     case BINDSTATUS_ENDDOWNLOADDATA:
1768         if(iface == &objbsc)
1769             CHECK_EXPECT(Obj_OnProgress_ENDDOWNLOADDATA);
1770         else
1771             CHECK_EXPECT(OnProgress_ENDDOWNLOADDATA);
1772         ok(szStatusText != NULL, "szStatusText == NULL\n");
1773         if(szStatusText) {
1774             if(filedwl_api) {
1775                 /* FIXME */
1776             }else {
1777                 ok(!lstrcmpW(szStatusText, current_url), "wrong szStatusText %s\n", wine_dbgstr_w(szStatusText));
1778             }
1779         }
1780         ok(download_state == DOWNLOADING, "Download state was %d, expected DOWNLOADING\n",
1781            download_state);
1782         download_state = END_DOWNLOAD;
1783         break;
1784     case BINDSTATUS_CACHEFILENAMEAVAILABLE:
1785         if(test_protocol != HTTP_TEST && test_protocol != HTTPS_TEST && test_protocol != WINETEST_TEST) {
1786             if(iface == &objbsc)
1787                 CHECK_EXPECT(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
1788             else
1789                 CHECK_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
1790         }else {  /* FIXME */
1791             CLEAR_CALLED(OnProgress_CACHEFILENAMEAVAILABLE);
1792             CLEAR_CALLED(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
1793         }
1794
1795         ok(szStatusText != NULL, "szStatusText == NULL\n");
1796         if(szStatusText && test_protocol == FILE_TEST)
1797             ok(!lstrcmpW(file_url+7, szStatusText), "wrong szStatusText %s\n", wine_dbgstr_w(szStatusText));
1798         break;
1799     case BINDSTATUS_CLASSIDAVAILABLE:
1800     {
1801         CLSID clsid;
1802         HRESULT hr;
1803         if(iface != &objbsc)
1804             ok(0, "unexpected call\n");
1805         else
1806             CHECK_EXPECT(Obj_OnProgress_CLASSIDAVAILABLE);
1807         hr = CLSIDFromString((LPCOLESTR)szStatusText, &clsid);
1808         ok(hr == S_OK, "CLSIDFromString failed with error 0x%08x\n", hr);
1809         ok(IsEqualCLSID(&clsid, &CLSID_HTMLDocument),
1810             "Expected clsid to be CLSID_HTMLDocument instead of %s\n", wine_dbgstr_guid(&clsid));
1811         break;
1812     }
1813     case BINDSTATUS_BEGINSYNCOPERATION:
1814         CHECK_EXPECT(Obj_OnProgress_BEGINSYNCOPERATION);
1815         if(iface != &objbsc)
1816             ok(0, "unexpected call\n");
1817         ok(szStatusText == NULL, "Expected szStatusText to be NULL\n");
1818         break;
1819     case BINDSTATUS_ENDSYNCOPERATION:
1820         CHECK_EXPECT(Obj_OnProgress_ENDSYNCOPERATION);
1821         if(iface != &objbsc)
1822             ok(0, "unexpected call\n");
1823         ok(szStatusText == NULL, "Expected szStatusText to be NULL\n");
1824         break;
1825     case BINDSTATUS_PROXYDETECTING:
1826         trace("BINDSTATUS_PROXYDETECTING\n");
1827         break;
1828     case BINDSTATUS_COOKIE_SENT:
1829         trace("BINDSTATUS_COOKIE_SENT\n");
1830         break;
1831     case BINDSTATUS_DECODING:
1832         trace("BINDSTATUS_DECODING\n");
1833         break;
1834     default:
1835         ok(0, "unexpected code %d\n", ulStatusCode);
1836     };
1837
1838     if(current_binding) {
1839         IWinInetHttpInfo *http_info;
1840         HRESULT hres;
1841
1842         hres = IBinding_QueryInterface(current_binding, &IID_IWinInetHttpInfo, (void**)&http_info);
1843         if(!emulate_protocol && test_protocol != FILE_TEST && is_urlmon_protocol(test_protocol)) {
1844             ok(hres == S_OK, "Could not get IWinInetHttpInfo iface: %08x\n", hres);
1845             test_WinInetHttpInfo(http_info, ulStatusCode);
1846         } else
1847             ok(hres == E_NOINTERFACE,
1848                "QueryInterface(IID_IWinInetHttpInfo) returned: %08x, expected E_NOINTERFACE\n", hres);
1849         if(SUCCEEDED(hres))
1850             IWinInetHttpInfo_Release(http_info);
1851     }
1852
1853     return S_OK;
1854 }
1855
1856 static HRESULT WINAPI statusclb_OnStopBinding(IBindStatusCallbackEx *iface, HRESULT hresult, LPCWSTR szError)
1857 {
1858     if(iface == &objbsc) {
1859         CHECK_EXPECT(Obj_OnStopBinding);
1860         stopped_obj_binding = TRUE;
1861     }else {
1862         CHECK_EXPECT(OnStopBinding);
1863         stopped_binding = TRUE;
1864     }
1865
1866     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1867
1868     if(only_check_prot_args) {
1869         todo_wine ok(hresult == S_OK, "Got %08x\n", hresult);
1870         return S_OK;
1871     }
1872
1873     /* ignore DNS failure */
1874     if (hresult == HRESULT_FROM_WIN32(ERROR_INTERNET_NAME_NOT_RESOLVED))
1875         return S_OK;
1876
1877     if(filedwl_api) {
1878         if(!abort_progress && !abort_start)
1879             ok(SUCCEEDED(hresult), "binding failed: %08x\n", hresult);
1880         else if(abort_start && abort_hres == E_NOTIMPL)
1881             todo_wine ok(hresult == S_FALSE, "binding failed: %08x, expected S_FALSE\n", hresult);
1882         else
1883             ok(hresult == E_ABORT, "binding failed: %08x, expected E_ABORT\n", hresult);
1884     } else
1885         ok(hresult == binding_hres, "binding failed: %08x, expected %08x\n", hresult, binding_hres);
1886     ok(szError == NULL, "szError should be NULL\n");
1887
1888     if(current_binding) {
1889         CLSID clsid;
1890         DWORD res;
1891         LPOLESTR res_str;
1892         HRESULT hres;
1893
1894         hres = IBinding_GetBindResult(current_binding, &clsid, &res, &res_str, NULL);
1895         ok(hres == S_OK, "GetBindResult failed: %08x, expected S_OK\n", hres);
1896         ok(res == hresult, "res = %08x, expected %08x\n", res, binding_hres);
1897         ok(!res_str, "incorrect res_str = %s\n", wine_dbgstr_w(res_str));
1898
1899         if(hresult==S_OK || (abort_start && hresult!=S_FALSE) || hresult == REGDB_E_CLASSNOTREG) {
1900             ok(IsEqualCLSID(&clsid, &CLSID_NULL),
1901                     "incorrect protocol CLSID: %s, expected CLSID_NULL\n",
1902                     wine_dbgstr_guid(&clsid));
1903         }else if(emulate_protocol) {
1904             todo_wine ok(IsEqualCLSID(&clsid, &CLSID_FtpProtocol),
1905                     "incorrect protocol CLSID: %s, expected CLSID_FtpProtocol\n",
1906                     wine_dbgstr_guid(&clsid));
1907         }else if(test_protocol == FTP_TEST) {
1908             ok(IsEqualCLSID(&clsid, &CLSID_FtpProtocol),
1909                     "incorrect protocol CLSID: %s, expected CLSID_FtpProtocol\n",
1910                     wine_dbgstr_guid(&clsid));
1911         }else if(test_protocol == FILE_TEST) {
1912             ok(IsEqualCLSID(&clsid, &CLSID_FileProtocol),
1913                     "incorrect protocol CLSID: %s, expected CLSID_FileProtocol\n",
1914                     wine_dbgstr_guid(&clsid));
1915         }else if(test_protocol == HTTP_TEST) {
1916             ok(IsEqualCLSID(&clsid, &CLSID_HttpProtocol),
1917                     "incorrect protocol CLSID: %s, expected CLSID_HttpProtocol\n",
1918                     wine_dbgstr_guid(&clsid));
1919         }else if(test_protocol == HTTPS_TEST) {
1920             ok(IsEqualCLSID(&clsid, &CLSID_HttpSProtocol),
1921                     "incorrect protocol CLSID: %s, expected CLSID_HttpSProtocol\n",
1922                     wine_dbgstr_guid(&clsid));
1923         }else if(test_protocol == ABOUT_TEST) {
1924             ok(IsEqualCLSID(&clsid, &CLSID_AboutProtocol),
1925                     "incorrect protocol CLSID: %s, expected CLSID_AboutProtocol\n",
1926                     wine_dbgstr_guid(&clsid));
1927         }else {
1928             ok(0, "unexpected (%d)\n", test_protocol);
1929         }
1930     }
1931
1932     if((test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) && emulate_protocol) {
1933         SetEvent(complete_event);
1934         if(iface != &objbsc)
1935             ok( WaitForSingleObject(complete_event2, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
1936     }
1937
1938     return S_OK;
1939 }
1940
1941 static HRESULT WINAPI statusclb_GetBindInfo(IBindStatusCallbackEx *iface, DWORD *grfBINDF, BINDINFO *pbindinfo)
1942 {
1943     DWORD cbSize;
1944
1945     if(iface == &objbsc)
1946         CHECK_EXPECT(Obj_GetBindInfo);
1947     else
1948         CHECK_EXPECT(GetBindInfo);
1949
1950     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1951
1952     *grfBINDF = bindf;
1953     cbSize = pbindinfo->cbSize;
1954     memset(pbindinfo, 0, cbSize);
1955     pbindinfo->cbSize = cbSize;
1956
1957     return S_OK;
1958 }
1959
1960 static void test_stream_seek(IStream *stream)
1961 {
1962     ULARGE_INTEGER new_pos;
1963     LARGE_INTEGER pos;
1964     HRESULT hres;
1965
1966     pos.QuadPart = 0;
1967     new_pos.QuadPart = 0xdeadbeef;
1968     hres = IStream_Seek(stream, pos, STREAM_SEEK_SET, &new_pos);
1969     ok(hres == S_OK, "Seek failed: %08x\n", hres);
1970     ok(!new_pos.QuadPart, "new_pos.QuadPart != 0\n");
1971
1972     pos.QuadPart = 0;
1973     new_pos.QuadPart = 0xdeadbeef;
1974     hres = IStream_Seek(stream, pos, STREAM_SEEK_END, &new_pos);
1975     ok(hres == S_OK, "Seek failed: %08x\n", hres);
1976     ok(new_pos.QuadPart, "new_pos.QuadPart = 0\n");
1977
1978     pos.QuadPart = 0;
1979     new_pos.QuadPart = 0xdeadbeef;
1980     hres = IStream_Seek(stream, pos, 100, &new_pos);
1981     ok(hres == E_FAIL, "Seek failed: %08x\n", hres);
1982     ok(new_pos.QuadPart == 0xdeadbeef, "unexpected new_pos.QuadPart\n");
1983 }
1984
1985 static HRESULT WINAPI statusclb_OnDataAvailable(IBindStatusCallbackEx *iface, DWORD grfBSCF,
1986         DWORD dwSize, FORMATETC* pformatetc, STGMEDIUM* pstgmed)
1987 {
1988     HRESULT hres;
1989     DWORD readed;
1990     BYTE buf[512];
1991     CHAR clipfmt[512];
1992
1993     if(iface == &objbsc)
1994         ok(0, "unexpected call\n");
1995
1996     CHECK_EXPECT2(OnDataAvailable);
1997
1998     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
1999
2000     ok(download_state == DOWNLOADING || download_state == END_DOWNLOAD,
2001        "Download state was %d, expected DOWNLOADING or END_DOWNLOAD\n",
2002        download_state);
2003     data_available = TRUE;
2004
2005     if(bind_to_object && !is_async_prot)
2006         ok(grfBSCF == (BSCF_FIRSTDATANOTIFICATION|BSCF_LASTDATANOTIFICATION), "grfBSCF = %x\n", grfBSCF);
2007
2008     ok(pformatetc != NULL, "pformatetx == NULL\n");
2009     if(pformatetc) {
2010         if (mime_type[0]) {
2011             INT ret;
2012             clipfmt[0] = 0;
2013             ret = GetClipboardFormatNameA(pformatetc->cfFormat, clipfmt, sizeof(clipfmt)-1);
2014             ok(ret, "GetClipboardFormatName failed, error %d\n", GetLastError());
2015             ok(!strcmp(clipfmt, mime_type), "clipformat %x != mime_type, \"%s\" != \"%s\"\n",
2016                pformatetc->cfFormat, clipfmt, mime_type);
2017         } else {
2018             ok(pformatetc->cfFormat == 0, "clipformat=%x\n", pformatetc->cfFormat);
2019         }
2020         ok(pformatetc->ptd == NULL, "ptd = %p\n", pformatetc->ptd);
2021         ok(pformatetc->dwAspect == 1, "dwAspect=%u\n", pformatetc->dwAspect);
2022         ok(pformatetc->lindex == -1, "lindex=%d\n", pformatetc->lindex);
2023         ok(pformatetc->tymed == tymed, "tymed=%u, expected %u\n", pformatetc->tymed, tymed);
2024     }
2025
2026     ok(pstgmed != NULL, "stgmeg == NULL\n");
2027     ok(pstgmed->tymed == tymed, "tymed=%u, expected %u\n", pstgmed->tymed, tymed);
2028     ok(pstgmed->pUnkForRelease != NULL, "pUnkForRelease == NULL\n");
2029
2030     switch(pstgmed->tymed) {
2031     case TYMED_ISTREAM: {
2032         IStream *stream = U(*pstgmed).pstm;
2033
2034         ok(stream != NULL, "U(*pstgmed).pstm == NULL\n");
2035
2036         if(grfBSCF & BSCF_FIRSTDATANOTIFICATION) {
2037             STATSTG stat;
2038
2039             hres = IStream_Write(stream, buf, 10, NULL);
2040             ok(hres == STG_E_ACCESSDENIED,
2041                "Write failed: %08x, expected STG_E_ACCESSDENIED\n", hres);
2042
2043             hres = IStream_Commit(stream, 0);
2044             ok(hres == E_NOTIMPL, "Commit failed: %08x, expected E_NOTIMPL\n", hres);
2045
2046             hres = IStream_Revert(stream);
2047             ok(hres == E_NOTIMPL, "Revert failed: %08x, expected E_NOTIMPL\n", hres);
2048
2049             hres = IStream_Stat(stream, NULL, STATFLAG_NONAME);
2050             ok(hres == E_FAIL, "hres = %x\n", hres);
2051             if(use_cache_file && emulate_protocol) {
2052                 hres = IStream_Stat(stream, &stat, STATFLAG_DEFAULT);
2053                 ok(hres == S_OK, "hres = %x\n", hres);
2054                 ok(!lstrcmpW(stat.pwcsName, cache_file_name),
2055                         "stat.pwcsName = %s, cache_file_name = %s\n",
2056                         wine_dbgstr_w(stat.pwcsName), wine_dbgstr_w(cache_file_name));
2057                 CoTaskMemFree(stat.pwcsName);
2058                 ok(U(stat.cbSize).LowPart == (bindf&BINDF_ASYNCHRONOUS?0:6500),
2059                         "stat.cbSize.LowPart = %u\n", U(stat.cbSize).LowPart);
2060             } else {
2061                 hres = IStream_Stat(stream, &stat, STATFLAG_NONAME);
2062                 ok(hres == S_OK, "hres = %x\n", hres);
2063                 ok(!stat.pwcsName || broken(stat.pwcsName!=NULL),
2064                         "stat.pwcsName = %s\n", wine_dbgstr_w(stat.pwcsName));
2065             }
2066             ok(stat.type == STGTY_STREAM, "stat.type = %x\n", stat.type);
2067             ok(U(stat.cbSize).HighPart == 0, "stat.cbSize.HighPart != 0\n");
2068             ok(stat.grfMode == (U(stat.cbSize).LowPart?GENERIC_READ:0), "stat.grfMode = %x\n", stat.grfMode);
2069             ok(stat.grfLocksSupported == 0, "stat.grfLocksSupported = %x\n", stat.grfLocksSupported);
2070             ok(stat.grfStateBits == 0, "stat.grfStateBits = %x\n", stat.grfStateBits);
2071             ok(stat.reserved == 0, "stat.reserved = %x\n", stat.reserved);
2072         }
2073
2074         if(callback_read) {
2075             do {
2076                 hres = IStream_Read(stream, buf, 512, &readed);
2077                 if(test_protocol == HTTP_TEST && emulate_protocol && readed)
2078                     ok(buf[0] == (use_cache_file && !(bindf&BINDF_ASYNCHRONOUS) ? 'X' : '?'), "buf[0] = '%c'\n", buf[0]);
2079             }while(hres == S_OK);
2080             ok(hres == S_FALSE || hres == E_PENDING, "IStream_Read returned %08x\n", hres);
2081         }
2082
2083         if(use_cache_file && (grfBSCF & BSCF_FIRSTDATANOTIFICATION) && !(bindf & BINDF_PULLDATA))
2084             test_stream_seek(stream);
2085         break;
2086     }
2087     case TYMED_FILE:
2088         if(test_protocol == FILE_TEST)
2089             ok(!lstrcmpW(pstgmed->u.lpszFileName, file_url+7),
2090                "unexpected file name %s\n", wine_dbgstr_w(pstgmed->u.lpszFileName));
2091         else if(emulate_protocol)
2092             ok(!lstrcmpW(pstgmed->u.lpszFileName, cache_fileW),
2093                "unexpected file name %s\n", wine_dbgstr_w(pstgmed->u.lpszFileName));
2094         else
2095             ok(pstgmed->u.lpszFileName != NULL, "lpszFileName == NULL\n");
2096     }
2097
2098     if((test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST)
2099        && emulate_protocol && prot_state < 4 && (!bind_to_object || prot_state > 1))
2100         SetEvent(complete_event);
2101
2102     return S_OK;
2103 }
2104
2105 static HRESULT WINAPI statusclb_OnObjectAvailable(IBindStatusCallbackEx *iface, REFIID riid, IUnknown *punk)
2106 {
2107     CHECK_EXPECT(OnObjectAvailable);
2108
2109     if(iface != &objbsc)
2110         ok(0, "unexpected call\n");
2111
2112     ok(IsEqualGUID(&IID_IUnknown, riid), "riid = %s\n", wine_dbgstr_guid(riid));
2113     ok(punk != NULL, "punk == NULL\n");
2114
2115     return S_OK;
2116 }
2117
2118 static HRESULT WINAPI statusclb_GetBindInfoEx(IBindStatusCallbackEx *iface, DWORD *grfBINDF, BINDINFO *pbindinfo,
2119         DWORD *grfBINDF2, DWORD *pdwReserved)
2120 {
2121     CHECK_EXPECT(GetBindInfoEx);
2122
2123     ok(grfBINDF != NULL, "grfBINDF == NULL\n");
2124     ok(grfBINDF2 != NULL, "grfBINDF2 == NULL\n");
2125     ok(pbindinfo != NULL, "pbindinfo == NULL\n");
2126     ok(pdwReserved != NULL, "dwReserved == NULL\n");
2127
2128     return S_OK;
2129 }
2130
2131 static const IBindStatusCallbackExVtbl BindStatusCallbackVtbl = {
2132     statusclb_QueryInterface,
2133     statusclb_AddRef,
2134     statusclb_Release,
2135     statusclb_OnStartBinding,
2136     statusclb_GetPriority,
2137     statusclb_OnLowResource,
2138     statusclb_OnProgress,
2139     statusclb_OnStopBinding,
2140     statusclb_GetBindInfo,
2141     statusclb_OnDataAvailable,
2142     statusclb_OnObjectAvailable,
2143     statusclb_GetBindInfoEx
2144 };
2145
2146 static IBindStatusCallbackEx bsc = { &BindStatusCallbackVtbl };
2147 static IBindStatusCallbackEx bsc2 = { &BindStatusCallbackVtbl };
2148 static IBindStatusCallbackEx objbsc = { &BindStatusCallbackVtbl };
2149
2150 static HRESULT WINAPI MonikerProp_QueryInterface(IMonikerProp *iface, REFIID riid, void **ppv)
2151 {
2152     *ppv = NULL;
2153     ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
2154     return E_NOINTERFACE;
2155 }
2156
2157 static ULONG WINAPI MonikerProp_AddRef(IMonikerProp *iface)
2158 {
2159     return 2;
2160 }
2161
2162 static ULONG WINAPI MonikerProp_Release(IMonikerProp *iface)
2163 {
2164     return 1;
2165 }
2166
2167 static HRESULT WINAPI MonikerProp_PutProperty(IMonikerProp *iface, MONIKERPROPERTY mkp, LPCWSTR val)
2168 {
2169     switch(mkp) {
2170     case MIMETYPEPROP:
2171         CHECK_EXPECT(PutProperty_MIMETYPEPROP);
2172         ok(!lstrcmpW(val, wszTextHtml), "val = %s\n", wine_dbgstr_w(val));
2173         break;
2174     case CLASSIDPROP:
2175         CHECK_EXPECT(PutProperty_CLASSIDPROP);
2176         break;
2177     default:
2178         break;
2179     }
2180
2181     return S_OK;
2182 }
2183
2184 static const IMonikerPropVtbl MonikerPropVtbl = {
2185     MonikerProp_QueryInterface,
2186     MonikerProp_AddRef,
2187     MonikerProp_Release,
2188     MonikerProp_PutProperty
2189 };
2190
2191 static IMonikerProp MonikerProp = { &MonikerPropVtbl };
2192
2193 static HRESULT WINAPI PersistMoniker_QueryInterface(IPersistMoniker *iface, REFIID riid, void **ppv)
2194 {
2195     *ppv = NULL;
2196
2197     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IPersistMoniker, riid))
2198         *ppv = iface;
2199     else if(IsEqualGUID(&IID_IMonikerProp, riid))
2200         *ppv = &MonikerProp;
2201
2202     if(*ppv)
2203         return S_OK;
2204
2205     ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
2206     return E_NOINTERFACE;
2207 }
2208
2209 static ULONG WINAPI PersistMoniker_AddRef(IPersistMoniker *iface)
2210 {
2211     return 2;
2212 }
2213
2214 static ULONG WINAPI PersistMoniker_Release(IPersistMoniker *iface)
2215 {
2216     return 1;
2217 }
2218
2219 static HRESULT WINAPI PersistMoniker_GetClassID(IPersistMoniker *iface, CLSID *pClassID)
2220 {
2221     ok(0, "unexpected call\n");
2222     return E_NOTIMPL;
2223 }
2224
2225 static HRESULT WINAPI PersistMoniker_IsDirty(IPersistMoniker *iface)
2226 {
2227     ok(0, "unexpected call\n");
2228     return E_NOTIMPL;
2229 }
2230
2231 static HRESULT WINAPI PersistMoniker_Load(IPersistMoniker *iface, BOOL fFullyAvailable,
2232                                           IMoniker *pimkName, LPBC pibc, DWORD grfMode)
2233 {
2234     IUnknown *unk;
2235     HRESULT hres;
2236
2237     static WCHAR cbinding_contextW[] =
2238         {'C','B','i','n','d','i','n','g',' ','C','o','n','t','e','x','t',0};
2239
2240     CHECK_EXPECT(Load);
2241     ok(GetCurrentThreadId() == thread_id, "wrong thread %d\n", GetCurrentThreadId());
2242
2243     if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
2244         ok(!fFullyAvailable, "fFullyAvailable = %x\n", fFullyAvailable);
2245     else
2246         ok(fFullyAvailable, "fFullyAvailable = %x\n", fFullyAvailable);
2247     ok(pimkName != NULL, "pimkName == NULL\n");
2248     ok(pibc != NULL, "pibc == NULL\n");
2249     ok(grfMode == 0x12, "grfMode = %x\n", grfMode);
2250
2251     hres = IBindCtx_GetObjectParam(pibc, cbinding_contextW, &unk);
2252     ok(hres == S_OK, "GetObjectParam(CBinding Context) failed: %08x\n", hres);
2253     if(SUCCEEDED(hres)) {
2254         IBinding *binding;
2255
2256         hres = IUnknown_QueryInterface(unk, &IID_IBinding, (void**)&binding);
2257         ok(hres == S_OK, "Could not get IBinding: %08x\n", hres);
2258
2259         IBinding_Release(binding);
2260         IUnknown_Release(unk);
2261     }
2262
2263     SET_EXPECT(QueryInterface_IServiceProvider);
2264     hres = RegisterBindStatusCallback(pibc, (IBindStatusCallback*)&bsc, NULL, 0);
2265     ok(hres == S_OK, "RegisterBindStatusCallback failed: %08x\n", hres);
2266     CHECK_CALLED(QueryInterface_IServiceProvider);
2267
2268     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2269     SET_EXPECT(GetBindInfo);
2270     SET_EXPECT(OnStartBinding);
2271     if(test_redirect)
2272         SET_EXPECT(OnProgress_REDIRECTING);
2273     SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
2274     if(test_protocol == FILE_TEST)
2275         SET_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
2276     if(test_protocol != HTTP_TEST && test_protocol != HTTPS_TEST)
2277         SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
2278     SET_EXPECT(LockRequest);
2279     SET_EXPECT(OnDataAvailable);
2280     if(test_protocol != HTTP_TEST && test_protocol != HTTPS_TEST)
2281         SET_EXPECT(OnStopBinding);
2282
2283     hres = IMoniker_BindToStorage(pimkName, pibc, NULL, &IID_IStream, (void**)&unk);
2284     ok(hres == S_OK, "Load failed: %08x\n", hres);
2285
2286     CLEAR_CALLED(QueryInterface_IBindStatusCallbackEx); /* IE 8 */
2287     CHECK_CALLED(GetBindInfo);
2288     CHECK_CALLED(OnStartBinding);
2289     if(test_redirect)
2290         CHECK_CALLED(OnProgress_REDIRECTING);
2291     CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
2292     if(test_protocol == FILE_TEST)
2293         CHECK_CALLED(OnProgress_CACHEFILENAMEAVAILABLE);
2294     if(test_protocol != HTTP_TEST && test_protocol != HTTPS_TEST)
2295         CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
2296     CHECK_CALLED(LockRequest);
2297     CHECK_CALLED(OnDataAvailable);
2298     if(test_protocol != HTTP_TEST && test_protocol != HTTPS_TEST)
2299         CHECK_CALLED(OnStopBinding);
2300
2301     if(unk)
2302         IUnknown_Release(unk);
2303
2304     return S_OK;
2305 }
2306
2307 static HRESULT WINAPI PersistMoniker_Save(IPersistMoniker *iface, IMoniker *pimkName, LPBC pbc, BOOL fRemember)
2308 {
2309     ok(0, "unexpected call\n");
2310     return E_NOTIMPL;
2311 }
2312
2313 static HRESULT WINAPI PersistMoniker_SaveCompleted(IPersistMoniker *iface, IMoniker *pimkName, LPBC pibc)
2314 {
2315     ok(0, "unexpected call\n");
2316     return E_NOTIMPL;
2317 }
2318
2319 static HRESULT WINAPI PersistMoniker_GetCurMoniker(IPersistMoniker *iface, IMoniker **pimkName)
2320 {
2321     ok(0, "unexpected call\n");
2322     return E_NOTIMPL;
2323 }
2324
2325 static const IPersistMonikerVtbl PersistMonikerVtbl = {
2326     PersistMoniker_QueryInterface,
2327     PersistMoniker_AddRef,
2328     PersistMoniker_Release,
2329     PersistMoniker_GetClassID,
2330     PersistMoniker_IsDirty,
2331     PersistMoniker_Load,
2332     PersistMoniker_Save,
2333     PersistMoniker_SaveCompleted,
2334     PersistMoniker_GetCurMoniker
2335 };
2336
2337 static IPersistMoniker PersistMoniker = { &PersistMonikerVtbl };
2338
2339 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
2340 {
2341     *ppv = NULL;
2342
2343     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
2344         *ppv = iface;
2345         return S_OK;
2346     }
2347
2348     if(IsEqualGUID(&IID_IMarshal, riid))
2349         return E_NOINTERFACE;
2350     if(IsEqualGUID(&CLSID_IdentityUnmarshal, riid))
2351         return E_NOINTERFACE;
2352
2353     ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
2354     return E_NOTIMPL;
2355 }
2356
2357 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
2358 {
2359     return 2;
2360 }
2361
2362 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
2363 {
2364     return 1;
2365 }
2366
2367 static HRESULT WINAPI ClassFactory_CreateInstance(IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
2368 {
2369     CHECK_EXPECT(CreateInstance);
2370     ok(!outer, "outer = %p\n", outer);
2371     ok(IsEqualGUID(&IID_IUnknown, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
2372     *ppv = &PersistMoniker;
2373     return S_OK;
2374 }
2375
2376 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL dolock)
2377 {
2378     ok(0, "unexpected call\n");
2379     return S_OK;
2380 }
2381
2382 static const IClassFactoryVtbl ClassFactoryVtbl = {
2383     ClassFactory_QueryInterface,
2384     ClassFactory_AddRef,
2385     ClassFactory_Release,
2386     ClassFactory_CreateInstance,
2387     ClassFactory_LockServer
2388 };
2389
2390 static IClassFactory mime_cf = { &ClassFactoryVtbl };
2391
2392 static HRESULT WINAPI ProtocolCF_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
2393 {
2394     *ppv = NULL;
2395
2396     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
2397         *ppv = iface;
2398         return S_OK;
2399     }
2400
2401     if(IsEqualGUID(&IID_IInternetProtocolInfo, riid))
2402         return E_NOINTERFACE;
2403
2404     ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
2405     return E_NOTIMPL;
2406 }
2407
2408 static HRESULT WINAPI ProtocolCF_CreateInstance(IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
2409 {
2410     if(IsEqualGUID(&IID_IInternetProtocolInfo, riid))
2411         return E_NOINTERFACE;
2412
2413     todo_wine ok(outer != NULL, "outer == NULL\n");
2414     todo_wine ok(IsEqualGUID(&IID_IUnknown, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
2415     *ppv = &Protocol;
2416     return S_OK;
2417 }
2418
2419 static const IClassFactoryVtbl ProtocolCFVtbl = {
2420     ProtocolCF_QueryInterface,
2421     ClassFactory_AddRef,
2422     ClassFactory_Release,
2423     ProtocolCF_CreateInstance,
2424     ClassFactory_LockServer
2425 };
2426
2427 static IClassFactory protocol_cf = { &ProtocolCFVtbl };
2428
2429 static void test_CreateAsyncBindCtx(void)
2430 {
2431     IBindCtx *bctx = (IBindCtx*)0x0ff00ff0;
2432     IUnknown *unk;
2433     HRESULT hres;
2434     ULONG ref;
2435     BIND_OPTS bindopts;
2436
2437     hres = CreateAsyncBindCtx(0, NULL, NULL, &bctx);
2438     ok(hres == E_INVALIDARG, "CreateAsyncBindCtx failed. expected: E_INVALIDARG, got: %08x\n", hres);
2439     ok(bctx == (IBindCtx*)0x0ff00ff0, "bctx should not be changed\n");
2440
2441     hres = CreateAsyncBindCtx(0, NULL, NULL, NULL);
2442     ok(hres == E_INVALIDARG, "CreateAsyncBindCtx failed. expected: E_INVALIDARG, got: %08x\n", hres);
2443
2444     SET_EXPECT(QueryInterface_IServiceProvider);
2445     hres = CreateAsyncBindCtx(0, (IBindStatusCallback*)&bsc, NULL, &bctx);
2446     ok(hres == S_OK, "CreateAsyncBindCtx failed: %08x\n", hres);
2447     CHECK_CALLED(QueryInterface_IServiceProvider);
2448
2449     bindopts.cbStruct = sizeof(bindopts);
2450     hres = IBindCtx_GetBindOptions(bctx, &bindopts);
2451     ok(hres == S_OK, "IBindCtx_GetBindOptions failed: %08x\n", hres);
2452     ok(bindopts.grfFlags == BIND_MAYBOTHERUSER,
2453                 "bindopts.grfFlags = %08x, expected: BIND_MAYBOTHERUSER\n", bindopts.grfFlags);
2454     ok(bindopts.grfMode == (STGM_READWRITE | STGM_SHARE_EXCLUSIVE),
2455                 "bindopts.grfMode = %08x, expected: STGM_READWRITE | STGM_SHARE_EXCLUSIVE\n",
2456                 bindopts.grfMode);
2457     ok(bindopts.dwTickCountDeadline == 0,
2458                 "bindopts.dwTickCountDeadline = %08x, expected: 0\n", bindopts.dwTickCountDeadline);
2459
2460     hres = IBindCtx_QueryInterface(bctx, &IID_IAsyncBindCtx, (void**)&unk);
2461     ok(hres == E_NOINTERFACE, "QueryInterface(IID_IAsyncBindCtx) failed: %08x, expected E_NOINTERFACE\n", hres);
2462     if(SUCCEEDED(hres))
2463         IUnknown_Release(unk);
2464
2465     ref = IBindCtx_Release(bctx);
2466     ok(ref == 0, "bctx should be destroyed here\n");
2467 }
2468
2469 static void test_CreateAsyncBindCtxEx(void)
2470 {
2471     IBindCtx *bctx = NULL, *bctx2 = NULL, *bctx_arg = NULL;
2472     IUnknown *unk;
2473     BIND_OPTS bindopts;
2474     HRESULT hres;
2475
2476     static WCHAR testW[] = {'t','e','s','t',0};
2477
2478     if (!pCreateAsyncBindCtxEx) {
2479         win_skip("CreateAsyncBindCtxEx not present\n");
2480         return;
2481     }
2482
2483     hres = pCreateAsyncBindCtxEx(NULL, 0, NULL, NULL, NULL, 0);
2484     ok(hres == E_INVALIDARG, "CreateAsyncBindCtx failed: %08x, expected E_INVALIDARG\n", hres);
2485
2486     hres = pCreateAsyncBindCtxEx(NULL, 0, NULL, NULL, &bctx, 0);
2487     ok(hres == S_OK, "CreateAsyncBindCtxEx failed: %08x\n", hres);
2488
2489     if(SUCCEEDED(hres)) {
2490         bindopts.cbStruct = sizeof(bindopts);
2491         hres = IBindCtx_GetBindOptions(bctx, &bindopts);
2492         ok(hres == S_OK, "IBindCtx_GetBindOptions failed: %08x\n", hres);
2493         ok(bindopts.grfFlags == BIND_MAYBOTHERUSER,
2494                 "bindopts.grfFlags = %08x, expected: BIND_MAYBOTHERUSER\n", bindopts.grfFlags);
2495         ok(bindopts.grfMode == (STGM_READWRITE | STGM_SHARE_EXCLUSIVE),
2496                 "bindopts.grfMode = %08x, expected: STGM_READWRITE | STGM_SHARE_EXCLUSIVE\n",
2497                 bindopts.grfMode);
2498         ok(bindopts.dwTickCountDeadline == 0,
2499                 "bindopts.dwTickCountDeadline = %08x, expected: 0\n", bindopts.dwTickCountDeadline);
2500
2501         IBindCtx_Release(bctx);
2502     }
2503
2504     CreateBindCtx(0, &bctx_arg);
2505     hres = pCreateAsyncBindCtxEx(NULL, 0, NULL, NULL, &bctx, 0);
2506     ok(hres == S_OK, "CreateAsyncBindCtxEx failed: %08x\n", hres);
2507
2508     if(SUCCEEDED(hres)) {
2509         bindopts.cbStruct = sizeof(bindopts);
2510         hres = IBindCtx_GetBindOptions(bctx, &bindopts);
2511         ok(hres == S_OK, "IBindCtx_GetBindOptions failed: %08x\n", hres);
2512         ok(bindopts.grfFlags == BIND_MAYBOTHERUSER,
2513                 "bindopts.grfFlags = %08x, expected: BIND_MAYBOTHERUSER\n", bindopts.grfFlags);
2514         ok(bindopts.grfMode == (STGM_READWRITE | STGM_SHARE_EXCLUSIVE),
2515                 "bindopts.grfMode = %08x, expected: STGM_READWRITE | STGM_SHARE_EXCLUSIVE\n",
2516                 bindopts.grfMode);
2517         ok(bindopts.dwTickCountDeadline == 0,
2518                 "bindopts.dwTickCountDeadline = %08x, expected: 0\n", bindopts.dwTickCountDeadline);
2519
2520         IBindCtx_Release(bctx);
2521     }
2522
2523     IBindCtx_Release(bctx_arg);
2524
2525     SET_EXPECT(QueryInterface_IServiceProvider);
2526     hres = pCreateAsyncBindCtxEx(NULL, 0, (IBindStatusCallback*)&bsc, NULL, &bctx, 0);
2527     ok(hres == S_OK, "CreateAsyncBindCtxEx failed: %08x\n", hres);
2528     CHECK_CALLED(QueryInterface_IServiceProvider);
2529
2530     hres = IBindCtx_QueryInterface(bctx, &IID_IAsyncBindCtx, (void**)&unk);
2531     ok(hres == S_OK, "QueryInterface(IID_IAsyncBindCtx) failed: %08x\n", hres);
2532     if(SUCCEEDED(hres))
2533         IUnknown_Release(unk);
2534
2535     IBindCtx_Release(bctx);
2536
2537     hres = CreateBindCtx(0, &bctx2);
2538     ok(hres == S_OK, "CreateBindCtx failed: %08x\n", hres);
2539
2540     hres = pCreateAsyncBindCtxEx(bctx2, 0, NULL, NULL, &bctx, 0);
2541     ok(hres == S_OK, "CreateAsyncBindCtxEx failed: %08x\n", hres);
2542
2543     hres = IBindCtx_RegisterObjectParam(bctx2, testW, (IUnknown*)&Protocol);
2544     ok(hres == S_OK, "RegisterObjectParam failed: %08x\n", hres);
2545
2546     hres = IBindCtx_GetObjectParam(bctx, testW, &unk);
2547     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
2548     ok(unk == (IUnknown*)&Protocol, "unexpected unk %p\n", unk);
2549
2550     IBindCtx_Release(bctx);
2551     IBindCtx_Release(bctx2);
2552 }
2553
2554 static void test_GetBindInfoEx(IBindStatusCallback *holder)
2555 {
2556     IBindStatusCallbackEx *bscex;
2557     BINDINFO bindinfo = {sizeof(bindinfo)};
2558     DWORD bindf, bindf2, dw;
2559     HRESULT hres;
2560
2561     hres = IBindStatusCallback_QueryInterface(holder, &IID_IBindStatusCallbackEx, (void**)&bscex);
2562     if(FAILED(hres)) {
2563         win_skip("IBindStatusCallbackEx not supported\n");
2564         return;
2565     }
2566
2567     use_bscex = TRUE;
2568
2569     bindf = 0;
2570     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2571     SET_EXPECT(GetBindInfoEx);
2572     hres = IBindStatusCallback_GetBindInfo(holder, &bindf, &bindinfo);
2573     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
2574     CHECK_CALLED(QueryInterface_IBindStatusCallbackEx);
2575     CHECK_CALLED(GetBindInfoEx);
2576
2577     bindf = bindf2 = dw = 0;
2578     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2579     SET_EXPECT(GetBindInfoEx);
2580     hres = IBindStatusCallbackEx_GetBindInfoEx(bscex, &bindf, &bindinfo, &bindf2, &dw);
2581     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
2582     CHECK_CALLED(QueryInterface_IBindStatusCallbackEx);
2583     CHECK_CALLED(GetBindInfoEx);
2584
2585     use_bscex = FALSE;
2586
2587     bindf = bindf2 = dw = 0xdeadbeef;
2588     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2589     SET_EXPECT(GetBindInfo);
2590     hres = IBindStatusCallbackEx_GetBindInfoEx(bscex, &bindf, &bindinfo, &bindf2, &dw);
2591     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
2592     CHECK_CALLED(QueryInterface_IBindStatusCallbackEx);
2593     CHECK_CALLED(GetBindInfo);
2594     ok(bindf2 == 0xdeadbeef, "bindf2 = %x\n", bindf2);
2595     ok(dw == 0xdeadbeef, "dw = %x\n", dw);
2596
2597     IBindStatusCallbackEx_Release(bscex);
2598 }
2599
2600 static BOOL test_bscholder(IBindStatusCallback *holder)
2601 {
2602     IServiceProvider *serv_prov;
2603     IHttpNegotiate *http_negotiate, *http_negotiate_serv;
2604     IHttpNegotiate2 *http_negotiate2, *http_negotiate2_serv;
2605     IAuthenticate *authenticate, *authenticate_serv;
2606     IInternetBindInfo *bind_info;
2607     IInternetProtocol *protocol;
2608     BINDINFO bindinfo = {sizeof(bindinfo)};
2609     BOOL ret = TRUE;
2610     LPWSTR wstr;
2611     DWORD dw;
2612     HRESULT hres;
2613
2614     hres = IBindStatusCallback_QueryInterface(holder, &IID_IServiceProvider, (void**)&serv_prov);
2615     ok(hres == S_OK, "Could not get IServiceProvider interface: %08x\n", hres);
2616
2617     dw = 0xdeadbeef;
2618     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2619     SET_EXPECT(GetBindInfo);
2620     hres = IBindStatusCallback_GetBindInfo(holder, &dw, &bindinfo);
2621     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
2622     CLEAR_CALLED(QueryInterface_IBindStatusCallbackEx); /* IE 8 */
2623     CHECK_CALLED(GetBindInfo);
2624
2625     test_GetBindInfoEx(holder);
2626
2627     SET_EXPECT(OnStartBinding);
2628     hres = IBindStatusCallback_OnStartBinding(holder, 0, (void*)0xdeadbeef);
2629     ok(hres == S_OK, "OnStartBinding failed: %08x\n", hres);
2630     CHECK_CALLED(OnStartBinding);
2631
2632     hres = IBindStatusCallback_QueryInterface(holder, &IID_IHttpNegotiate, (void**)&http_negotiate);
2633     ok(hres == S_OK, "Could not get IHttpNegotiate interface: %08x\n", hres);
2634
2635     SET_EXPECT(QueryInterface_IHttpNegotiate);
2636     hres = IServiceProvider_QueryService(serv_prov, &IID_IHttpNegotiate, &IID_IHttpNegotiate,
2637                                          (void**)&http_negotiate_serv);
2638     ok(hres == S_OK, "Could not get IHttpNegotiate service: %08x\n", hres);
2639     CLEAR_CALLED(QueryInterface_IHttpNegotiate); /* IE <8 */
2640
2641     ok(http_negotiate == http_negotiate_serv, "http_negotiate != http_negotiate_serv\n");
2642
2643     wstr = (void*)0xdeadbeef;
2644     SET_EXPECT(QueryInterface_IHttpNegotiate);
2645     SET_EXPECT(BeginningTransaction);
2646     hres = IHttpNegotiate_BeginningTransaction(http_negotiate_serv, current_url, emptyW, 0, &wstr);
2647     CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate); /* IE8 */
2648     CHECK_CALLED(BeginningTransaction);
2649     ok(hres == S_OK, "BeginningTransaction failed: %08x\n", hres);
2650     ok(wstr == NULL, "wstr = %p\n", wstr);
2651
2652     IHttpNegotiate_Release(http_negotiate_serv);
2653
2654     hres = IServiceProvider_QueryService(serv_prov, &IID_IHttpNegotiate, &IID_IHttpNegotiate,
2655                                          (void**)&http_negotiate_serv);
2656     ok(hres == S_OK, "Could not get IHttpNegotiate service: %08x\n", hres);
2657     ok(http_negotiate == http_negotiate_serv, "http_negotiate != http_negotiate_serv\n");
2658     IHttpNegotiate_Release(http_negotiate_serv);
2659
2660     hres = IBindStatusCallback_QueryInterface(holder, &IID_IHttpNegotiate2, (void**)&http_negotiate2);
2661     if(SUCCEEDED(hres)) {
2662         have_IHttpNegotiate2 = TRUE;
2663
2664         SET_EXPECT(QueryInterface_IHttpNegotiate2);
2665         hres = IServiceProvider_QueryService(serv_prov, &IID_IHttpNegotiate2, &IID_IHttpNegotiate2,
2666                                              (void**)&http_negotiate2_serv);
2667         ok(hres == S_OK, "Could not get IHttpNegotiate2 service: %08x\n", hres);
2668         CLEAR_CALLED(QueryInterface_IHttpNegotiate2); /* IE <8 */
2669         ok(http_negotiate2 == http_negotiate2_serv, "http_negotiate != http_negotiate_serv\n");
2670
2671         SET_EXPECT(QueryInterface_IHttpNegotiate2);
2672         SET_EXPECT(GetRootSecurityId);
2673         hres = IHttpNegotiate2_GetRootSecurityId(http_negotiate2, (void*)0xdeadbeef, (void*)0xdeadbeef, 0);
2674         ok(hres == E_NOTIMPL, "GetRootSecurityId failed: %08x\n", hres);
2675         CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate2); /* IE8 */
2676         CHECK_CALLED(GetRootSecurityId);
2677
2678         IHttpNegotiate2_Release(http_negotiate2_serv);
2679         IHttpNegotiate2_Release(http_negotiate2);
2680     }else {
2681         skip("Could not get IHttpNegotiate2\n");
2682         ret = FALSE;
2683     }
2684
2685     SET_EXPECT(OnProgress_FINDINGRESOURCE);
2686     hres = IBindStatusCallback_OnProgress(holder, 0, 0, BINDSTATUS_FINDINGRESOURCE, NULL);
2687     ok(hres == S_OK, "OnProgress failed: %08x\n", hres);
2688     CHECK_CALLED(OnProgress_FINDINGRESOURCE);
2689
2690     SET_EXPECT(QueryInterface_IHttpNegotiate);
2691     SET_EXPECT(OnResponse);
2692     wstr = (void*)0xdeadbeef;
2693     hres = IHttpNegotiate_OnResponse(http_negotiate, 200, emptyW, NULL, NULL);
2694     ok(hres == S_OK, "OnResponse failed: %08x\n", hres);
2695     CHECK_CALLED_BROKEN(QueryInterface_IHttpNegotiate); /* IE8 */
2696     CHECK_CALLED(OnResponse);
2697
2698     IHttpNegotiate_Release(http_negotiate);
2699
2700     hres = IBindStatusCallback_QueryInterface(holder, &IID_IAuthenticate, (void**)&authenticate);
2701     ok(hres == S_OK, "Could not get IAuthenticate interface: %08x\n", hres);
2702
2703     SET_EXPECT(QueryInterface_IAuthenticate);
2704     SET_EXPECT(QueryService_IAuthenticate);
2705     hres = IServiceProvider_QueryService(serv_prov, &IID_IAuthenticate, &IID_IAuthenticate,
2706                                          (void**)&authenticate_serv);
2707     ok(hres == S_OK, "Could not get IAuthenticate service: %08x\n", hres);
2708     CLEAR_CALLED(QueryInterface_IAuthenticate); /* IE <8 */
2709     CLEAR_CALLED(QueryService_IAuthenticate); /* IE <8 */
2710     ok(authenticate == authenticate_serv, "authenticate != authenticate_serv\n");
2711     IAuthenticate_Release(authenticate_serv);
2712
2713     hres = IServiceProvider_QueryService(serv_prov, &IID_IAuthenticate, &IID_IAuthenticate,
2714                                          (void**)&authenticate_serv);
2715     ok(hres == S_OK, "Could not get IAuthenticate service: %08x\n", hres);
2716     ok(authenticate == authenticate_serv, "authenticate != authenticate_serv\n");
2717
2718     IAuthenticate_Release(authenticate);
2719     IAuthenticate_Release(authenticate_serv);
2720
2721     hres = IBindStatusCallback_QueryInterface(holder, &IID_IInternetBindInfo, (void**)&bind_info);
2722     ok(hres == S_OK || broken(hres == E_NOINTERFACE /* win2k */), "Could not get IInternetBindInfo interface: %08x\n", hres);
2723
2724     if(SUCCEEDED(hres)) {
2725         hres = IInternetBindInfo_GetBindString(bind_info, BINDSTRING_USER_AGENT, &wstr, 1, &dw);
2726         ok(hres == E_NOINTERFACE, "GetBindString(BINDSTRING_USER_AGENT) failed: %08x\n", hres);
2727
2728         IInternetBindInfo_Release(bind_info);
2729     }
2730
2731     SET_EXPECT(OnStopBinding);
2732     hres = IBindStatusCallback_OnStopBinding(holder, S_OK, NULL);
2733     ok(hres == S_OK, "OnStopBinding failed: %08x\n", hres);
2734     CHECK_CALLED(OnStopBinding);
2735
2736     SET_EXPECT(QueryInterface_IInternetProtocol);
2737     SET_EXPECT(QueryService_IInternetProtocol);
2738     hres = IServiceProvider_QueryService(serv_prov, &IID_IInternetProtocol, &IID_IInternetProtocol,
2739                                          (void**)&protocol);
2740     ok(hres == E_NOINTERFACE, "QueryService(IInternetProtocol) failed: %08x\n", hres);
2741     CHECK_CALLED(QueryInterface_IInternetProtocol);
2742     CHECK_CALLED(QueryService_IInternetProtocol);
2743
2744     IServiceProvider_Release(serv_prov);
2745     return ret;
2746 }
2747
2748 static BOOL test_RegisterBindStatusCallback(void)
2749 {
2750     IBindStatusCallback *prevbsc, *clb, *prev_clb;
2751     IBindCtx *bindctx;
2752     BOOL ret = TRUE;
2753     IUnknown *unk;
2754     HRESULT hres;
2755
2756     strict_bsc_qi = TRUE;
2757
2758     hres = CreateBindCtx(0, &bindctx);
2759     ok(hres == S_OK, "BindCtx failed: %08x\n", hres);
2760
2761     SET_EXPECT(QueryInterface_IServiceProvider);
2762
2763     hres = IBindCtx_RegisterObjectParam(bindctx, BSCBHolder, (IUnknown*)&bsc);
2764     ok(hres == S_OK, "RegisterObjectParam failed: %08x\n", hres);
2765
2766     SET_EXPECT(QueryInterface_IBindStatusCallback);
2767     SET_EXPECT(QueryInterface_IBindStatusCallbackHolder);
2768     prevbsc = (void*)0xdeadbeef;
2769     hres = RegisterBindStatusCallback(bindctx, (IBindStatusCallback*)&bsc, &prevbsc, 0);
2770     ok(hres == S_OK, "RegisterBindStatusCallback failed: %08x\n", hres);
2771     ok(prevbsc == (IBindStatusCallback*)&bsc, "prevbsc=%p\n", prevbsc);
2772     CHECK_CALLED(QueryInterface_IBindStatusCallback);
2773     CHECK_CALLED(QueryInterface_IBindStatusCallbackHolder);
2774
2775     CHECK_CALLED(QueryInterface_IServiceProvider);
2776
2777     hres = IBindCtx_GetObjectParam(bindctx, BSCBHolder, &unk);
2778     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
2779
2780     hres = IUnknown_QueryInterface(unk, &IID_IBindStatusCallback, (void**)&clb);
2781     IUnknown_Release(unk);
2782     ok(hres == S_OK, "QueryInterface(IID_IBindStatusCallback) failed: %08x\n", hres);
2783     ok(clb != (IBindStatusCallback*)&bsc, "bsc == clb\n");
2784
2785     if(!test_bscholder(clb))
2786         ret = FALSE;
2787
2788     IBindStatusCallback_Release(clb);
2789
2790     hres = RevokeBindStatusCallback(bindctx, (IBindStatusCallback*)&bsc);
2791     ok(hres == S_OK, "RevokeBindStatusCallback failed: %08x\n", hres);
2792
2793     unk = (void*)0xdeadbeef;
2794     hres = IBindCtx_GetObjectParam(bindctx, BSCBHolder, &unk);
2795     ok(hres == E_FAIL, "GetObjectParam failed: %08x\n", hres);
2796     ok(unk == NULL, "unk != NULL\n");
2797
2798     if(unk)
2799         IUnknown_Release(unk);
2800
2801     hres = RevokeBindStatusCallback(bindctx, (void*)0xdeadbeef);
2802     ok(hres == S_OK, "RevokeBindStatusCallback failed: %08x\n", hres);
2803
2804     hres = RevokeBindStatusCallback(NULL, (void*)0xdeadbeef);
2805     ok(hres == E_INVALIDARG, "RevokeBindStatusCallback failed: %08x\n", hres);
2806
2807     hres = RevokeBindStatusCallback(bindctx, NULL);
2808     ok(hres == E_INVALIDARG, "RevokeBindStatusCallback failed: %08x\n", hres);
2809
2810     SET_EXPECT(QueryInterface_IServiceProvider);
2811     prevbsc = (void*)0xdeadbeef;
2812     hres = RegisterBindStatusCallback(bindctx, (IBindStatusCallback*)&bsc, &prevbsc, 0);
2813     ok(hres == S_OK, "RegisterBindStatusCallback failed: %08x\n", hres);
2814     ok(!prevbsc, "prevbsc=%p\n", prevbsc);
2815     CHECK_CALLED(QueryInterface_IServiceProvider);
2816
2817     hres = IBindCtx_GetObjectParam(bindctx, BSCBHolder, &unk);
2818     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
2819
2820     hres = IUnknown_QueryInterface(unk, &IID_IBindStatusCallback, (void**)&prev_clb);
2821     IUnknown_Release(unk);
2822     ok(hres == S_OK, "QueryInterface(IID_IBindStatusCallback) failed: %08x\n", hres);
2823     ok(prev_clb != (IBindStatusCallback*)&bsc, "bsc == clb\n");
2824
2825     SET_EXPECT(QueryInterface_IServiceProvider);
2826     prevbsc = (void*)0xdeadbeef;
2827     hres = RegisterBindStatusCallback(bindctx, (IBindStatusCallback*)&bsc2, &prevbsc, 0);
2828     ok(hres == S_OK, "RegisterBindStatusCallback failed: %08x\n", hres);
2829     ok(prevbsc == (IBindStatusCallback*)&bsc, "prevbsc != bsc\n");
2830     CHECK_CALLED(QueryInterface_IServiceProvider);
2831
2832     hres = IBindCtx_GetObjectParam(bindctx, BSCBHolder, &unk);
2833     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
2834
2835     hres = IUnknown_QueryInterface(unk, &IID_IBindStatusCallback, (void**)&clb);
2836     IUnknown_Release(unk);
2837     ok(hres == S_OK, "QueryInterface(IID_IBindStatusCallback) failed: %08x\n", hres);
2838     ok(prev_clb  == clb, "bsc != clb\n");
2839
2840     IBindStatusCallback_Release(clb);
2841     IBindStatusCallback_Release(prev_clb);
2842
2843     IBindCtx_Release(bindctx);
2844
2845     strict_bsc_qi = FALSE;
2846     return ret;
2847 }
2848
2849 #define BINDTEST_EMULATE            0x0001
2850 #define BINDTEST_TOOBJECT           0x0002
2851 #define BINDTEST_FILEDWLAPI         0x0004
2852 #define BINDTEST_HTTPRESPONSE       0x0008
2853 #define BINDTEST_REDIRECT           0x0010
2854 #define BINDTEST_USE_CACHE          0x0020
2855 #define BINDTEST_NO_CALLBACK_READ   0x0040
2856 #define BINDTEST_NO_CALLBACK        0x0080
2857 #define BINDTEST_ABORT              0x0100
2858 #define BINDTEST_INVALID_CN         0x0200
2859 #define BINDTEST_ABORT_START        0x0400
2860 #define BINDTEST_ABORT_PROGRESS     0x0800
2861 #define BINDTEST_ASYNC_SWITCH       0x1000
2862 #define BINDTEST_ALLOW_FINDINGRESOURCE  0x2000
2863
2864 static void init_bind_test(int protocol, DWORD flags, DWORD t)
2865 {
2866     const char *url_a = NULL;
2867
2868     test_protocol = protocol;
2869     bindtest_flags = flags;
2870     emulate_protocol = (flags & BINDTEST_EMULATE) != 0;
2871     download_state = BEFORE_DOWNLOAD;
2872     stopped_binding = FALSE;
2873     stopped_obj_binding = FALSE;
2874     data_available = FALSE;
2875     mime_type[0] = 0;
2876     binding_hres = S_OK;
2877     bind_to_object = (flags & BINDTEST_TOOBJECT) != 0;
2878     tymed = t;
2879     filedwl_api = (flags & BINDTEST_FILEDWLAPI) != 0;
2880     post_test = (flags & BINDTEST_HTTPRESPONSE) != 0;
2881
2882     switch(protocol) {
2883     case HTTP_TEST:
2884         if(post_test)
2885             url_a = "http://test.winehq.org/tests/post.php";
2886         else
2887             lstrcpyW(current_url, winetest_data_urlW);
2888         break;
2889     case ABOUT_TEST:
2890         url_a = "about:blank";
2891         break;
2892     case FILE_TEST:
2893         lstrcpyW(current_url, file_url);
2894         break;
2895     case MK_TEST:
2896         url_a = "mk:@MSITStore:test.chm::/blank.html";
2897         break;
2898     case ITS_TEST:
2899         url_a = "its:test.chm::/blank.html";
2900         break;
2901     case HTTPS_TEST:
2902         url_a = (flags & BINDTEST_INVALID_CN) ? "https://209.46.25.134/favicon.ico" : "https://test.winehq.org/tests/hello.html";
2903         break;
2904     case FTP_TEST:
2905         url_a = "ftp://ftp.winehq.org/welcome.msg";
2906         break;
2907     default:
2908         url_a = "winetest:test";
2909     }
2910
2911     if(url_a)
2912         MultiByteToWideChar(CP_ACP, 0, url_a, -1, current_url, sizeof(current_url)/sizeof(*current_url));
2913
2914     test_redirect = (flags & BINDTEST_REDIRECT) != 0;
2915     use_cache_file = (flags & BINDTEST_USE_CACHE) != 0;
2916     callback_read = !(flags & BINDTEST_NO_CALLBACK_READ);
2917     no_callback = (flags & BINDTEST_NO_CALLBACK) != 0;
2918     test_abort = (flags & BINDTEST_ABORT) != 0;
2919     abort_start = (flags & BINDTEST_ABORT_START) != 0;
2920     abort_progress = (flags & BINDTEST_ABORT_PROGRESS) != 0;
2921     async_switch = (flags & BINDTEST_ASYNC_SWITCH) != 0;
2922     is_async_prot = protocol == HTTP_TEST || protocol == HTTPS_TEST || protocol == FTP_TEST || protocol == WINETEST_TEST;
2923     prot_state = 0;
2924     ResetEvent(complete_event);
2925
2926     trace("URL: %s\n", wine_dbgstr_w(current_url));
2927 }
2928
2929 static void test_BindToStorage(int protocol, DWORD flags, DWORD t)
2930 {
2931     IMoniker *mon;
2932     HRESULT hres;
2933     LPOLESTR display_name;
2934     IBindCtx *bctx = NULL;
2935     MSG msg;
2936     IBindStatusCallback *previousclb;
2937     IUnknown *unk = (IUnknown*)0x00ff00ff;
2938     BOOL allow_finding_resource;
2939     IBinding *bind;
2940
2941     init_bind_test(protocol, flags, t);
2942     allow_finding_resource = (flags & BINDTEST_ALLOW_FINDINGRESOURCE) != 0;
2943
2944     if(no_callback) {
2945         hres = CreateBindCtx(0, &bctx);
2946         ok(hres == S_OK, "CreateBindCtx failed: %08x\n", hres);
2947     }else {
2948         SET_EXPECT(QueryInterface_IServiceProvider);
2949         hres = CreateAsyncBindCtx(0, (IBindStatusCallback*)&bsc, NULL, &bctx);
2950         ok(hres == S_OK, "CreateAsyncBindCtx failed: %08x\n\n", hres);
2951         CHECK_CALLED(QueryInterface_IServiceProvider);
2952         if(FAILED(hres))
2953             return;
2954
2955         SET_EXPECT(QueryInterface_IServiceProvider);
2956         hres = RegisterBindStatusCallback(bctx, (IBindStatusCallback*)&bsc, &previousclb, 0);
2957         ok(hres == S_OK, "RegisterBindStatusCallback failed: %08x\n", hres);
2958         ok(previousclb == (IBindStatusCallback*)&bsc, "previousclb(%p) != sclb(%p)\n", previousclb, &bsc);
2959         CHECK_CALLED(QueryInterface_IServiceProvider);
2960         if(previousclb)
2961             IBindStatusCallback_Release(previousclb);
2962     }
2963
2964     hres = CreateURLMoniker(NULL, current_url, &mon);
2965     ok(hres == S_OK, "failed to create moniker: %08x\n", hres);
2966     if(FAILED(hres))
2967         return;
2968
2969     hres = IMoniker_QueryInterface(mon, &IID_IBinding, (void**)&bind);
2970     ok(hres == E_NOINTERFACE, "IMoniker should not have IBinding interface\n");
2971     if(SUCCEEDED(hres))
2972         IBinding_Release(bind);
2973
2974     hres = IMoniker_GetDisplayName(mon, bctx, NULL, &display_name);
2975     ok(hres == S_OK, "GetDisplayName failed %08x\n", hres);
2976     ok(!lstrcmpW(display_name, current_url), "GetDisplayName got wrong name %s, expected %s\n",
2977        wine_dbgstr_w(display_name), wine_dbgstr_w(current_url));
2978     CoTaskMemFree(display_name);
2979
2980     if(tymed == TYMED_FILE && (test_protocol == ABOUT_TEST || test_protocol == ITS_TEST))
2981         binding_hres = INET_E_DATA_NOT_AVAILABLE;
2982     if((flags & BINDTEST_INVALID_CN) && !invalid_cn_accepted &&
2983        (onsecurityproblem_hres != S_OK || security_problem == ERROR_INTERNET_SEC_CERT_ERRORS)) {
2984         if(security_problem == ERROR_INTERNET_SEC_CERT_ERRORS)
2985             binding_hres = INET_E_SECURITY_PROBLEM;
2986         else
2987             binding_hres = INET_E_INVALID_CERTIFICATE;
2988     }
2989
2990
2991     if(only_check_prot_args)
2992         SET_EXPECT(OnStopBinding);
2993     if(!no_callback) {
2994         SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
2995         SET_EXPECT(GetBindInfo);
2996         SET_EXPECT(QueryInterface_IInternetProtocol);
2997         if(!emulate_protocol)
2998             SET_EXPECT(QueryService_IInternetProtocol);
2999         SET_EXPECT(OnStartBinding);
3000     }
3001     if(emulate_protocol) {
3002         if(is_urlmon_protocol(test_protocol))
3003             SET_EXPECT(SetPriority);
3004         SET_EXPECT(Start);
3005         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST
3006            || test_protocol == WINETEST_SYNC_TEST)
3007             SET_EXPECT(Terminate);
3008         if(tymed != TYMED_FILE || (test_protocol != ABOUT_TEST && test_protocol != ITS_TEST))
3009             SET_EXPECT(UnlockRequest);
3010     }else {
3011         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
3012             SET_EXPECT(QueryService_IInternetBindInfo);
3013             if(!abort_start)
3014                 SET_EXPECT(QueryInterface_IHttpNegotiate);
3015             SET_EXPECT(QueryInterface_IWindowForBindingUI);
3016             SET_EXPECT(QueryService_IWindowForBindingUI);
3017             SET_EXPECT(GetWindow_IWindowForBindingUI);
3018             if(!abort_start) {
3019                 SET_EXPECT(BeginningTransaction);
3020                 SET_EXPECT(QueryInterface_IHttpNegotiate2);
3021                 SET_EXPECT(GetRootSecurityId);
3022                 if(http_is_first || allow_finding_resource)
3023                     SET_EXPECT(OnProgress_FINDINGRESOURCE);
3024                 SET_EXPECT(OnProgress_CONNECTING);
3025             }
3026             if(flags & BINDTEST_INVALID_CN) {
3027                 SET_EXPECT(QueryInterface_IHttpSecurity);
3028                 SET_EXPECT(QueryService_IHttpSecurity);
3029                 SET_EXPECT(OnSecurityProblem);
3030                 if(SUCCEEDED(onsecurityproblem_hres))
3031                     SET_EXPECT(GetWindow_IHttpSecurity);
3032             }
3033         }
3034         if(!no_callback) {
3035             if((test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FTP_TEST
3036                || test_protocol == FILE_TEST || test_protocol == WINETEST_TEST) && !abort_start)
3037                 SET_EXPECT(OnProgress_SENDINGREQUEST);
3038             if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
3039                 SET_EXPECT(QueryInterface_IHttpNegotiate);
3040                 SET_EXPECT(OnResponse);
3041             }
3042             if(!abort_start) {
3043                 SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
3044                 SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
3045             }
3046             if(test_protocol == FILE_TEST)
3047                 SET_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
3048             if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FTP_TEST || test_protocol == WINETEST_TEST)
3049                 SET_EXPECT(OnProgress_DOWNLOADINGDATA);
3050             if(!abort_start)
3051                 SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
3052             if((tymed != TYMED_FILE || test_protocol != ABOUT_TEST) && !abort_start)
3053                 SET_EXPECT(OnDataAvailable);
3054             SET_EXPECT(OnStopBinding);
3055         }
3056     }
3057
3058     hres = IMoniker_BindToStorage(mon, bctx, NULL, tymed == TYMED_ISTREAM ? &IID_IStream : &IID_IUnknown, (void**)&unk);
3059     if ((test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3060         && hres == HRESULT_FROM_WIN32(ERROR_INTERNET_NAME_NOT_RESOLVED))
3061     {
3062         skip("Network unreachable, skipping tests\n");
3063         return;
3064     }
3065
3066     if(only_check_prot_args) {
3067         ok(hres == E_FAIL, "Got %08x\n", hres);
3068         CHECK_CALLED(OnStopBinding);
3069     } else if(abort_start)
3070         ok(hres == abort_hres, "IMoniker_BindToStorage failed: %08x, expected %08x\n", hres, abort_hres);
3071     else if(abort_progress)
3072         ok(hres == MK_S_ASYNCHRONOUS, "IMoniker_BindToStorage failed: %08x\n", hres);
3073     else if(no_callback) {
3074         if(emulate_protocol)
3075             ok( WaitForSingleObject(complete_event2, 90000) == WAIT_OBJECT_0, "wait timed out\n" );
3076         ok(hres == S_OK, "IMoniker_BindToStorage failed: %08x\n", hres);
3077         ok(unk != NULL, "unk == NULL\n");
3078     }else if(!(bindf & BINDF_ASYNCHRONOUS) && tymed == TYMED_FILE) {
3079         ok(hres == S_OK, "IMoniker_BindToStorage failed: %08x\n", hres);
3080         ok(unk == NULL, "unk != NULL\n");
3081     }else if(((bindf & BINDF_ASYNCHRONOUS) && !data_available)
3082        || (tymed == TYMED_FILE && test_protocol == FILE_TEST)) {
3083         ok(hres == MK_S_ASYNCHRONOUS, "IMoniker_BindToStorage failed: %08x\n", hres);
3084         ok(unk == NULL, "istr should be NULL\n");
3085     }else if(tymed == TYMED_FILE && test_protocol == ABOUT_TEST) {
3086         ok(hres == INET_E_DATA_NOT_AVAILABLE,
3087            "IMoniker_BindToStorage failed: %08x, expected INET_E_DATA_NOT_AVAILABLE\n", hres);
3088         ok(unk == NULL, "istr should be NULL\n");
3089     }else if((flags & BINDTEST_INVALID_CN) && binding_hres != S_OK) {
3090         ok(hres == binding_hres, "Got %08x\n", hres);
3091         ok(unk == NULL, "Got %p\n", unk);
3092     }else if((flags & BINDTEST_INVALID_CN) && invalid_cn_accepted) {
3093         ok(hres == S_OK, "IMoniker_BindToStorage failed: %08x\n", hres);
3094         ok(unk != NULL, "unk == NULL\n");
3095         if(unk == NULL) {
3096             ok(0, "Expected security problem to be ignored.\n");
3097             invalid_cn_accepted = FALSE;
3098             binding_hres = INET_E_INVALID_CERTIFICATE;
3099         }
3100     }else {
3101         ok(hres == S_OK, "IMoniker_BindToStorage failed: %08x\n", hres);
3102         ok(unk != NULL, "unk == NULL\n");
3103     }
3104     if(unk && callback_read && !no_callback) {
3105         IUnknown_Release(unk);
3106         unk = NULL;
3107     }
3108
3109     if(FAILED(hres) && !(flags & BINDTEST_INVALID_CN) && !(flags & BINDTEST_ABORT_START))
3110         return;
3111
3112     if((bindf & BINDF_ASYNCHRONOUS) && !no_callback) {
3113         while(!stopped_binding && GetMessageA(&msg,NULL,0,0)) {
3114             TranslateMessage(&msg);
3115             DispatchMessageA(&msg);
3116         }
3117     }
3118
3119     if(async_switch) {
3120         CHECK_CALLED(OnProgress_SENDINGREQUEST);
3121         CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
3122         CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
3123         CHECK_CALLED(LockRequest);
3124         CHECK_CALLED(OnStopBinding);
3125     }
3126     if(!no_callback) {
3127         CLEAR_CALLED(QueryInterface_IBindStatusCallbackEx); /* IE 8 */
3128         CHECK_CALLED(GetBindInfo);
3129         todo_wine_if(abort_start)
3130             CHECK_CALLED(QueryInterface_IInternetProtocol);
3131         if(!emulate_protocol) {
3132             todo_wine_if(abort_start)
3133                 CHECK_CALLED(QueryService_IInternetProtocol);
3134         }
3135         CHECK_CALLED(OnStartBinding);
3136     }
3137     if(emulate_protocol) {
3138         if(is_urlmon_protocol(test_protocol))
3139             CLEAR_CALLED(SetPriority); /* Not called by IE11 */
3140         CHECK_CALLED(Start);
3141         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST
3142            || test_protocol == WINETEST_SYNC_TEST) {
3143             if(tymed == TYMED_FILE)
3144                 CLEAR_CALLED(Read);
3145             CHECK_CALLED(Terminate);
3146         }
3147         if(tymed != TYMED_FILE || (test_protocol != ABOUT_TEST && test_protocol != ITS_TEST))
3148             CHECK_CALLED(UnlockRequest);
3149     }else {
3150         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
3151             CLEAR_CALLED(QueryService_IInternetBindInfo);
3152             if(!abort_start)
3153                 CHECK_CALLED(QueryInterface_IHttpNegotiate);
3154             CLEAR_CALLED(QueryInterface_IWindowForBindingUI);
3155             CLEAR_CALLED(QueryService_IWindowForBindingUI);
3156             CLEAR_CALLED(GetWindow_IWindowForBindingUI);
3157             if(!abort_start)
3158                 CHECK_CALLED(BeginningTransaction);
3159             if (have_IHttpNegotiate2 && !abort_start)
3160             {
3161                 CHECK_CALLED(QueryInterface_IHttpNegotiate2);
3162                 CHECK_CALLED(GetRootSecurityId);
3163             }
3164             if(http_is_first) {
3165                 if (! proxy_active())
3166                 {
3167                     CHECK_CALLED(OnProgress_FINDINGRESOURCE);
3168                     CHECK_CALLED(OnProgress_CONNECTING);
3169                 }
3170                 else
3171                 {
3172                     CLEAR_CALLED(OnProgress_FINDINGRESOURCE);
3173                     CLEAR_CALLED(OnProgress_CONNECTING);
3174                 }
3175             }else if(!abort_start) {
3176                 if(allow_finding_resource)
3177                     CLEAR_CALLED(OnProgress_FINDINGRESOURCE);
3178                 /* IE7 does call this */
3179                 CLEAR_CALLED(OnProgress_CONNECTING);
3180             }
3181             if((flags & BINDTEST_INVALID_CN) && !invalid_cn_accepted)  {
3182                 CHECK_CALLED(QueryInterface_IHttpSecurity);
3183                 CHECK_CALLED(QueryService_IHttpSecurity);
3184                 CHECK_CALLED(OnSecurityProblem);
3185             }else {
3186                 CHECK_NOT_CALLED(QueryInterface_IHttpSecurity);
3187                 CHECK_NOT_CALLED(QueryService_IHttpSecurity);
3188                 CHECK_NOT_CALLED(OnSecurityProblem);
3189             }
3190         }
3191         if(!no_callback) {
3192             if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FILE_TEST || test_protocol == WINETEST_TEST) {
3193                 if(flags & BINDTEST_INVALID_CN)
3194                     CLEAR_CALLED(OnProgress_SENDINGREQUEST);
3195                 else if(!abort_start)
3196                     CHECK_CALLED(OnProgress_SENDINGREQUEST);
3197             } else if(test_protocol == FTP_TEST)
3198                 todo_wine CHECK_CALLED(OnProgress_SENDINGREQUEST);
3199             if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == WINETEST_TEST) {
3200                 CLEAR_CALLED(QueryInterface_IHttpNegotiate);
3201                 if((!(flags & BINDTEST_INVALID_CN) || (binding_hres == S_OK)) && !abort_start) {
3202                     CHECK_CALLED(OnResponse);
3203                 }
3204             }
3205             if((!(flags & BINDTEST_INVALID_CN) || binding_hres == S_OK) && !abort_start) {
3206                 CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
3207                 CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
3208                 CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
3209             }
3210             if(test_protocol == FILE_TEST)
3211                 CHECK_CALLED(OnProgress_CACHEFILENAMEAVAILABLE);
3212             if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FTP_TEST  || test_protocol == WINETEST_TEST)
3213                 CLEAR_CALLED(OnProgress_DOWNLOADINGDATA);
3214             if((flags & BINDTEST_INVALID_CN)) {
3215                 if(binding_hres == S_OK)
3216                     CHECK_CALLED(OnDataAvailable);
3217                 else
3218                     CHECK_NOT_CALLED(OnDataAvailable);
3219             }else if((tymed != TYMED_FILE || test_protocol != ABOUT_TEST) && !abort_start)
3220                 CHECK_CALLED(OnDataAvailable);
3221             CHECK_CALLED(OnStopBinding);
3222         }
3223     }
3224
3225     ok(IMoniker_Release(mon) == 0, "mon should be destroyed here\n");
3226     if(bctx)
3227         ok(IBindCtx_Release(bctx) == 0, "bctx should be destroyed here\n");
3228
3229     if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3230         http_is_first = FALSE;
3231
3232     if((flags & BINDTEST_INVALID_CN) && onsecurityproblem_hres == S_OK && security_problem != ERROR_INTERNET_SEC_CERT_ERRORS)
3233         invalid_cn_accepted = TRUE;
3234
3235     if(unk) {
3236         BYTE buf[512];
3237         DWORD readed;
3238         IStream *stream;
3239
3240         hres = IUnknown_QueryInterface(unk, &IID_IStream, (void**)&stream);
3241         ok(hres == S_OK, "Could not get IStream iface: %08x\n", hres);
3242         IUnknown_Release(unk);
3243
3244         do {
3245             readed = 0xdeadbeef;
3246             hres = IStream_Read(stream, buf, sizeof(buf), &readed);
3247             ok(readed != 0xdeadbeef, "readed = 0xdeadbeef\n");
3248             if(emulate_protocol && test_protocol == HTTP_TEST && readed)
3249                 ok(buf[0] == (use_cache_file && !(bindf&BINDF_ASYNCHRONOUS) ? 'X' : '?'), "buf[0] = '%c'\n", buf[0]);
3250         }while(hres == S_OK);
3251         ok(hres == S_FALSE, "IStream_Read returned %08x\n", hres);
3252         ok(!readed, "readed = %d\n", readed);
3253
3254         IStream_Release(stream);
3255     }
3256 }
3257
3258 static void test_BindToObject(int protocol, DWORD flags, HRESULT exhres)
3259 {
3260     IMoniker *mon;
3261     HRESULT hres;
3262     LPOLESTR display_name;
3263     IBindCtx *bctx;
3264     DWORD regid;
3265     MSG msg;
3266     IUnknown *unk = (IUnknown*)0x00ff00ff;
3267     IBinding *bind;
3268
3269     init_bind_test(protocol, BINDTEST_TOOBJECT|flags, TYMED_ISTREAM);
3270     binding_hres = exhres;
3271
3272     if(emulate_protocol)
3273         CoRegisterClassObject(&CLSID_HTMLDocument, (IUnknown *)&mime_cf,
3274                               CLSCTX_INPROC_SERVER, REGCLS_MULTIPLEUSE, &regid);
3275
3276     SET_EXPECT(QueryInterface_IServiceProvider);
3277     hres = CreateAsyncBindCtx(0, (IBindStatusCallback*)&objbsc, NULL, &bctx);
3278     ok(hres == S_OK, "CreateAsyncBindCtx failed: %08x\n\n", hres);
3279     CHECK_CALLED(QueryInterface_IServiceProvider);
3280     if(FAILED(hres))
3281         return;
3282
3283     hres = CreateURLMoniker(NULL, current_url, &mon);
3284     ok(hres == S_OK, "failed to create moniker: %08x\n", hres);
3285     if(FAILED(hres)) {
3286         IBindCtx_Release(bctx);
3287         return;
3288     }
3289
3290     hres = IMoniker_QueryInterface(mon, &IID_IBinding, (void**)&bind);
3291     ok(hres == E_NOINTERFACE, "IMoniker should not have IBinding interface\n");
3292     if(SUCCEEDED(hres))
3293         IBinding_Release(bind);
3294
3295     hres = IMoniker_GetDisplayName(mon, bctx, NULL, &display_name);
3296     ok(hres == S_OK, "GetDisplayName failed %08x\n", hres);
3297     ok(!lstrcmpW(display_name, current_url), "GetDisplayName got wrong name\n");
3298     CoTaskMemFree(display_name);
3299
3300     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
3301     SET_EXPECT(Obj_GetBindInfo);
3302     SET_EXPECT(QueryInterface_IInternetProtocol);
3303     if(!emulate_protocol)
3304         SET_EXPECT(QueryService_IInternetProtocol);
3305     SET_EXPECT(Obj_OnStartBinding);
3306     if(emulate_protocol) {
3307         if(is_urlmon_protocol(test_protocol))
3308             SET_EXPECT(SetPriority);
3309         SET_EXPECT(Start);
3310         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3311             SET_EXPECT(Terminate);
3312         if(test_protocol == FILE_TEST)
3313             SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
3314         SET_EXPECT(UnlockRequest);
3315     }else {
3316         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3317             SET_EXPECT(QueryInterface_IHttpNegotiate);
3318             SET_EXPECT(BeginningTransaction);
3319             SET_EXPECT(QueryInterface_IHttpNegotiate2);
3320             SET_EXPECT(GetRootSecurityId);
3321             if(http_is_first)
3322                 SET_EXPECT(Obj_OnProgress_FINDINGRESOURCE);
3323             SET_EXPECT(Obj_OnProgress_CONNECTING);
3324             SET_EXPECT(QueryInterface_IWindowForBindingUI);
3325             SET_EXPECT(QueryService_IWindowForBindingUI);
3326             SET_EXPECT(GetWindow_IWindowForBindingUI);
3327         }
3328         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FILE_TEST)
3329             SET_EXPECT(Obj_OnProgress_SENDINGREQUEST);
3330         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3331             SET_EXPECT(QueryInterface_IHttpNegotiate);
3332             SET_EXPECT(OnResponse);
3333         }
3334         SET_EXPECT(Obj_OnProgress_MIMETYPEAVAILABLE);
3335         SET_EXPECT(Obj_OnProgress_BEGINDOWNLOADDATA);
3336         if(test_protocol == FILE_TEST)
3337             SET_EXPECT(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
3338         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3339             SET_EXPECT(OnProgress_DOWNLOADINGDATA);
3340         SET_EXPECT(Obj_OnProgress_ENDDOWNLOADDATA);
3341         if(SUCCEEDED(hres))
3342             SET_EXPECT(Obj_OnProgress_CLASSIDAVAILABLE);
3343         SET_EXPECT(Obj_OnProgress_BEGINSYNCOPERATION);
3344         if(exhres == REGDB_E_CLASSNOTREG) {
3345             SET_EXPECT(QueryInterface_IWindowForBindingUI);
3346             SET_EXPECT(QueryService_IWindowForBindingUI);
3347             SET_EXPECT(GetWindow_ICodeInstall);
3348         }
3349         SET_EXPECT(Obj_OnProgress_ENDSYNCOPERATION);
3350         if(SUCCEEDED(hres))
3351             SET_EXPECT(OnObjectAvailable);
3352         SET_EXPECT(Obj_OnStopBinding);
3353     }
3354
3355     hres = IMoniker_BindToObject(mon, bctx, NULL, &IID_IUnknown, (void**)&unk);
3356
3357     if ((test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3358         && hres == HRESULT_FROM_WIN32(ERROR_INTERNET_NAME_NOT_RESOLVED))
3359     {
3360         skip( "Network unreachable, skipping tests\n" );
3361         return;
3362     }
3363
3364     if(FAILED(exhres)) {
3365         ok(hres == exhres, "BindToObject failed:  %08x, expected %08x\n", hres, exhres);
3366         ok(!unk, "unk = %p, expected NULL\n", unk);
3367     }else if(bindf & BINDF_ASYNCHRONOUS) {
3368         ok(hres == MK_S_ASYNCHRONOUS, "IMoniker_BindToObject failed: %08x\n", hres);
3369         ok(unk == NULL, "istr should be NULL\n");
3370     }else {
3371         ok(hres == S_OK, "IMoniker_BindToStorage failed: %08x\n", hres);
3372         ok(unk != NULL, "unk == NULL\n");
3373         if(emulate_protocol)
3374             ok(unk == (IUnknown*)&PersistMoniker, "unk != PersistMoniker\n");
3375     }
3376     if(unk)
3377         IUnknown_Release(unk);
3378
3379     while((bindf & BINDF_ASYNCHRONOUS) &&
3380           !((!emulate_protocol || stopped_binding) && stopped_obj_binding) && GetMessageA(&msg,NULL,0,0)) {
3381         TranslateMessage(&msg);
3382         DispatchMessageA(&msg);
3383     }
3384
3385     CLEAR_CALLED(QueryInterface_IBindStatusCallbackEx);
3386     CHECK_CALLED(Obj_GetBindInfo);
3387     CHECK_CALLED(QueryInterface_IInternetProtocol);
3388     if(!emulate_protocol)
3389         CHECK_CALLED(QueryService_IInternetProtocol);
3390     CHECK_CALLED(Obj_OnStartBinding);
3391     if(emulate_protocol) {
3392         if(is_urlmon_protocol(test_protocol))
3393             CLEAR_CALLED(SetPriority); /* Not called by IE11 */
3394         CHECK_CALLED(Start);
3395         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3396             CHECK_CALLED(Terminate);
3397         if(test_protocol == FILE_TEST)
3398             CLEAR_CALLED(OnProgress_MIMETYPEAVAILABLE); /* not called in IE7 */
3399         CHECK_CALLED(UnlockRequest);
3400     }else {
3401         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3402             CHECK_CALLED(QueryInterface_IHttpNegotiate);
3403             CHECK_CALLED(BeginningTransaction);
3404             if (have_IHttpNegotiate2)
3405             {
3406                 CHECK_CALLED(QueryInterface_IHttpNegotiate2);
3407                 CHECK_CALLED(GetRootSecurityId);
3408             }
3409             if(http_is_first) {
3410                 CHECK_CALLED(Obj_OnProgress_FINDINGRESOURCE);
3411                 CHECK_CALLED(Obj_OnProgress_CONNECTING);
3412             }else {
3413                 /* IE7 does call this */
3414                 CLEAR_CALLED(Obj_OnProgress_CONNECTING);
3415             }
3416             CLEAR_CALLED(QueryInterface_IWindowForBindingUI);
3417             CLEAR_CALLED(QueryService_IWindowForBindingUI);
3418             CLEAR_CALLED(GetWindow_IWindowForBindingUI);
3419         }
3420         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FILE_TEST) {
3421             if(post_test)
3422                 CLEAR_CALLED(Obj_OnProgress_SENDINGREQUEST);
3423             else
3424                 CHECK_CALLED(Obj_OnProgress_SENDINGREQUEST);
3425         }
3426         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3427             CLEAR_CALLED(QueryInterface_IHttpNegotiate);
3428             CHECK_CALLED(OnResponse);
3429         }
3430         CHECK_CALLED(Obj_OnProgress_MIMETYPEAVAILABLE);
3431         CHECK_CALLED(Obj_OnProgress_BEGINDOWNLOADDATA);
3432         if(test_protocol == FILE_TEST)
3433             CHECK_CALLED(Obj_OnProgress_CACHEFILENAMEAVAILABLE);
3434         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3435             CLEAR_CALLED(OnProgress_DOWNLOADINGDATA);
3436         CLEAR_CALLED(Obj_OnProgress_ENDDOWNLOADDATA);
3437         if(SUCCEEDED(hres))
3438             CHECK_CALLED(Obj_OnProgress_CLASSIDAVAILABLE);
3439         CHECK_CALLED(Obj_OnProgress_BEGINSYNCOPERATION);
3440         if(exhres == REGDB_E_CLASSNOTREG) {
3441             todo_wine CHECK_CALLED(QueryInterface_IWindowForBindingUI);
3442             todo_wine CHECK_CALLED(QueryService_IWindowForBindingUI);
3443             todo_wine CHECK_CALLED(GetWindow_ICodeInstall);
3444         }
3445         CHECK_CALLED(Obj_OnProgress_ENDSYNCOPERATION);
3446         if(SUCCEEDED(hres))
3447             CHECK_CALLED(OnObjectAvailable);
3448         CHECK_CALLED(Obj_OnStopBinding);
3449     }
3450
3451     ok(IMoniker_Release(mon) == 0, "mon should be destroyed here\n");
3452     IBindCtx_Release(bctx);
3453
3454     if(emulate_protocol)
3455         CoRevokeClassObject(regid);
3456
3457     if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3458         http_is_first = FALSE;
3459 }
3460
3461 static void test_URLDownloadToFile(DWORD prot, BOOL emul)
3462 {
3463     BOOL res;
3464     HRESULT hres;
3465
3466     init_bind_test(prot, BINDTEST_FILEDWLAPI | (emul ? BINDTEST_EMULATE : 0), TYMED_FILE);
3467
3468     SET_EXPECT(GetBindInfo);
3469     SET_EXPECT(QueryInterface_IInternetProtocol);
3470     SET_EXPECT(QueryInterface_IServiceProvider);
3471     if(!emulate_protocol)
3472         SET_EXPECT(QueryService_IInternetProtocol);
3473     SET_EXPECT(OnStartBinding);
3474     if(emulate_protocol) {
3475         if(is_urlmon_protocol(test_protocol))
3476             SET_EXPECT(SetPriority);
3477         SET_EXPECT(Start);
3478         SET_EXPECT(UnlockRequest);
3479     }else {
3480         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3481             SET_EXPECT(QueryInterface_IHttpNegotiate);
3482             SET_EXPECT(BeginningTransaction);
3483             SET_EXPECT(QueryInterface_IHttpNegotiate2);
3484             SET_EXPECT(GetRootSecurityId);
3485             SET_EXPECT(QueryInterface_IWindowForBindingUI);
3486             SET_EXPECT(OnProgress_CONNECTING);
3487         }
3488         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST || test_protocol == FILE_TEST)
3489             SET_EXPECT(OnProgress_SENDINGREQUEST);
3490         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3491             SET_EXPECT(QueryInterface_IHttpNegotiate);
3492             SET_EXPECT(OnResponse);
3493         }
3494         SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
3495         SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
3496         if(test_protocol == FILE_TEST)
3497             SET_EXPECT(OnProgress_CACHEFILENAMEAVAILABLE);
3498         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3499             SET_EXPECT(OnProgress_DOWNLOADINGDATA);
3500         SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
3501         SET_EXPECT(OnStopBinding);
3502     }
3503
3504     hres = URLDownloadToFileW(NULL, current_url, dwl_htmlW, 0, (IBindStatusCallback*)&bsc);
3505     ok(hres == S_OK, "URLDownloadToFile failed: %08x\n", hres);
3506
3507     CHECK_CALLED(GetBindInfo);
3508     CHECK_CALLED(QueryInterface_IInternetProtocol);
3509     if(!emulate_protocol) {
3510         CHECK_CALLED(QueryInterface_IServiceProvider);
3511         CHECK_CALLED(QueryService_IInternetProtocol);
3512     }else {
3513         CLEAR_CALLED(QueryInterface_IServiceProvider);
3514     }
3515     CHECK_CALLED(OnStartBinding);
3516     if(emulate_protocol) {
3517         if(is_urlmon_protocol(test_protocol))
3518             CLEAR_CALLED(SetPriority); /* Not called by IE11 */
3519         CHECK_CALLED(Start);
3520         CHECK_CALLED(UnlockRequest);
3521     }else {
3522         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3523             CHECK_CALLED(QueryInterface_IHttpNegotiate);
3524             CHECK_CALLED(BeginningTransaction);
3525             if (have_IHttpNegotiate2)
3526             {
3527                 CHECK_CALLED(QueryInterface_IHttpNegotiate2);
3528                 CHECK_CALLED(GetRootSecurityId);
3529             }
3530             CLEAR_CALLED(QueryInterface_IWindowForBindingUI);
3531             CLEAR_CALLED(OnProgress_CONNECTING);
3532         }
3533         if(test_protocol == FILE_TEST)
3534             CHECK_CALLED(OnProgress_SENDINGREQUEST);
3535         else if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3536             CLEAR_CALLED(OnProgress_SENDINGREQUEST); /* not called by IE7 */
3537         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST) {
3538             CLEAR_CALLED(QueryInterface_IHttpNegotiate);
3539             CHECK_CALLED(OnResponse);
3540         }
3541         CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
3542         CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
3543         if(test_protocol == FILE_TEST)
3544             CHECK_CALLED(OnProgress_CACHEFILENAMEAVAILABLE);
3545         if(test_protocol == HTTP_TEST || test_protocol == HTTPS_TEST)
3546             CLEAR_CALLED(OnProgress_DOWNLOADINGDATA);
3547         CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
3548         CHECK_CALLED(OnStopBinding);
3549     }
3550
3551     res = DeleteFileA(dwl_htmlA);
3552     ok(res, "DeleteFile failed: %u\n", GetLastError());
3553
3554     if(prot != FILE_TEST || emul)
3555         return;
3556
3557     hres = URLDownloadToFileW(NULL, current_url, dwl_htmlW, 0, NULL);
3558     ok(hres == S_OK, "URLDownloadToFile failed: %08x\n", hres);
3559
3560     res = DeleteFileA(dwl_htmlA);
3561     ok(res, "DeleteFile failed: %u\n", GetLastError());
3562 }
3563
3564 static void test_URLDownloadToFile_abort(void)
3565 {
3566     HRESULT hres;
3567
3568     init_bind_test(HTTP_TEST, BINDTEST_FILEDWLAPI|BINDTEST_ABORT_PROGRESS, TYMED_FILE);
3569
3570     SET_EXPECT(GetBindInfo);
3571     SET_EXPECT(QueryInterface_IInternetProtocol);
3572     SET_EXPECT(QueryInterface_IServiceProvider);
3573     SET_EXPECT(QueryService_IInternetProtocol);
3574     SET_EXPECT(OnStartBinding);
3575     SET_EXPECT(QueryInterface_IHttpNegotiate);
3576     SET_EXPECT(QueryInterface_IHttpNegotiate2);
3577     SET_EXPECT(BeginningTransaction);
3578     SET_EXPECT(GetRootSecurityId);
3579     SET_EXPECT(QueryInterface_IWindowForBindingUI);
3580     SET_EXPECT(OnProgress_CONNECTING);
3581     SET_EXPECT(OnProgress_SENDINGREQUEST);
3582     SET_EXPECT(OnStopBinding);
3583
3584     hres = URLDownloadToFileW(NULL, current_url, dwl_htmlW, 0, (IBindStatusCallback*)&bsc);
3585     ok(hres == E_ABORT, "URLDownloadToFile failed: %08x, expected E_ABORT\n", hres);
3586
3587     CHECK_CALLED(GetBindInfo);
3588     CHECK_CALLED(QueryInterface_IInternetProtocol);
3589     CHECK_CALLED(QueryInterface_IServiceProvider);
3590     CHECK_CALLED(QueryService_IInternetProtocol);
3591     CHECK_CALLED(OnStartBinding);
3592     CHECK_CALLED(QueryInterface_IHttpNegotiate);
3593     CHECK_CALLED(QueryInterface_IHttpNegotiate2);
3594     CHECK_CALLED(BeginningTransaction);
3595     CHECK_CALLED(GetRootSecurityId);
3596     CLEAR_CALLED(QueryInterface_IWindowForBindingUI);
3597     CHECK_CALLED(OnProgress_SENDINGREQUEST);
3598     CLEAR_CALLED(OnProgress_CONNECTING);
3599     CHECK_CALLED(OnStopBinding);
3600
3601     init_bind_test(HTTP_TEST, BINDTEST_FILEDWLAPI|BINDTEST_ABORT_START, TYMED_FILE);
3602
3603     SET_EXPECT(GetBindInfo);
3604     SET_EXPECT(QueryInterface_IInternetProtocol);
3605     SET_EXPECT(QueryInterface_IServiceProvider);
3606     SET_EXPECT(QueryService_IInternetProtocol);
3607     SET_EXPECT(OnStartBinding);
3608     SET_EXPECT(OnStopBinding);
3609
3610     abort_hres = E_ABORT;
3611     hres = URLDownloadToFileW(NULL, current_url, dwl_htmlW, 0, (IBindStatusCallback*)&bsc);
3612     ok(hres == E_ABORT, "URLDownloadToFile failed: %08x, expected E_ABORT\n", hres);
3613
3614     CHECK_CALLED(GetBindInfo);
3615     todo_wine CHECK_CALLED(QueryInterface_IInternetProtocol);
3616     todo_wine CHECK_CALLED(QueryInterface_IServiceProvider);
3617     todo_wine CHECK_CALLED(QueryService_IInternetProtocol);
3618     CHECK_CALLED(OnStartBinding);
3619     CHECK_CALLED(OnStopBinding);
3620
3621     init_bind_test(HTTP_TEST, BINDTEST_FILEDWLAPI|BINDTEST_ABORT_START, TYMED_FILE);
3622
3623     SET_EXPECT(GetBindInfo);
3624     SET_EXPECT(QueryInterface_IInternetProtocol);
3625     SET_EXPECT(QueryInterface_IServiceProvider);
3626     SET_EXPECT(QueryService_IInternetProtocol);
3627     SET_EXPECT(OnStartBinding);
3628     SET_EXPECT(QueryInterface_IHttpNegotiate);
3629     SET_EXPECT(QueryInterface_IHttpNegotiate2);
3630     SET_EXPECT(BeginningTransaction);
3631     SET_EXPECT(GetRootSecurityId);
3632     SET_EXPECT(QueryInterface_IWindowForBindingUI);
3633     SET_EXPECT(OnResponse);
3634     SET_EXPECT(OnProgress_CONNECTING);
3635     SET_EXPECT(OnProgress_SENDINGREQUEST);
3636     SET_EXPECT(OnProgress_MIMETYPEAVAILABLE);
3637     SET_EXPECT(OnProgress_BEGINDOWNLOADDATA);
3638     SET_EXPECT(OnProgress_DOWNLOADINGDATA);
3639     SET_EXPECT(OnProgress_ENDDOWNLOADDATA);
3640     SET_EXPECT(OnStopBinding);
3641
3642     /* URLDownloadToFile doesn't abort if E_NOTIMPL is returned from the
3643      * IBindStatusCallback's OnStartBinding function.
3644      */
3645     abort_hres = E_NOTIMPL;
3646     hres = URLDownloadToFileW(NULL, current_url, dwl_htmlW, 0, (IBindStatusCallback*)&bsc);
3647     ok(hres == S_OK, "URLDownloadToFile failed: %08x\n", hres);
3648
3649     CHECK_CALLED(GetBindInfo);
3650     CHECK_CALLED(QueryInterface_IInternetProtocol);
3651     CHECK_CALLED(QueryInterface_IServiceProvider);
3652     CHECK_CALLED(QueryService_IInternetProtocol);
3653     CHECK_CALLED(OnStartBinding);
3654     CHECK_CALLED(QueryInterface_IHttpNegotiate);
3655     CHECK_CALLED(QueryInterface_IHttpNegotiate2);
3656     CHECK_CALLED(BeginningTransaction);
3657     CHECK_CALLED(GetRootSecurityId);
3658     CLEAR_CALLED(QueryInterface_IWindowForBindingUI);
3659     CHECK_CALLED(OnResponse);
3660     CLEAR_CALLED(OnProgress_CONNECTING);
3661     CHECK_CALLED(OnProgress_SENDINGREQUEST);
3662     CHECK_CALLED(OnProgress_MIMETYPEAVAILABLE);
3663     CHECK_CALLED(OnProgress_BEGINDOWNLOADDATA);
3664     CHECK_CALLED(OnProgress_DOWNLOADINGDATA);
3665     CHECK_CALLED(OnProgress_ENDDOWNLOADDATA);
3666     CHECK_CALLED(OnStopBinding);
3667
3668     DeleteFileA(dwl_htmlA);
3669 }
3670
3671 static void set_file_url(char *path)
3672 {
3673     CHAR file_urlA[INTERNET_MAX_URL_LENGTH];
3674
3675     lstrcpyA(file_urlA, "file://");
3676     lstrcatA(file_urlA, path);
3677     MultiByteToWideChar(CP_ACP, 0, file_urlA, -1, file_url, INTERNET_MAX_URL_LENGTH);
3678 }
3679
3680 static void create_file(const char *file_name, const char *content)
3681 {
3682     HANDLE file;
3683     DWORD size;
3684     CHAR path[MAX_PATH];
3685
3686     file = CreateFileA(file_name, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS,
3687             FILE_ATTRIBUTE_NORMAL, NULL);
3688     ok(file != INVALID_HANDLE_VALUE, "CreateFile failed\n");
3689     if(file == INVALID_HANDLE_VALUE)
3690         return;
3691
3692     if(test_file)
3693         DeleteFileA(test_file);
3694     test_file = file_name;
3695     WriteFile(file, content, strlen(content), &size, NULL);
3696     CloseHandle(file);
3697
3698     GetCurrentDirectoryA(MAX_PATH, path);
3699     lstrcatA(path, "\\");
3700     lstrcatA(path, file_name);
3701     set_file_url(path);
3702 }
3703
3704 static void create_html_file(void)
3705 {
3706     create_file(wszIndexHtmlA, "<HTML></HTML>");
3707 }
3708
3709 static void create_cache_file(void)
3710 {
3711     char buf[6500], curdir[MAX_PATH];
3712     HANDLE file;
3713     DWORD size;
3714
3715     file = CreateFileA(test_txtA, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS,
3716             FILE_ATTRIBUTE_NORMAL, NULL);
3717     ok(file != INVALID_HANDLE_VALUE, "CreateFile failed\n");
3718     if(file == INVALID_HANDLE_VALUE)
3719         return;
3720
3721     memset(buf, 'X', sizeof(buf));
3722     WriteFile(file, buf, sizeof(buf), &size, NULL);
3723     CloseHandle(file);
3724
3725     memset(curdir, 0, sizeof(curdir));
3726     GetCurrentDirectoryA(MAX_PATH, curdir);
3727     lstrcatA(curdir, "\\");
3728     lstrcatA(curdir, test_txtA);
3729
3730     MultiByteToWideChar(CP_ACP, 0, curdir, -1, cache_file_name, MAX_PATH);
3731 }
3732
3733 static void test_ReportResult(HRESULT exhres)
3734 {
3735     IMoniker *mon = NULL;
3736     IBindCtx *bctx = NULL;
3737     IUnknown *unk = (void*)0xdeadbeef;
3738     HRESULT hres;
3739
3740     init_bind_test(ABOUT_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
3741     binding_hres = exhres;
3742
3743     hres = CreateURLMoniker(NULL, about_blankW, &mon);
3744     ok(hres == S_OK, "CreateURLMoniker failed: %08x\n", hres);
3745
3746     SET_EXPECT(QueryInterface_IServiceProvider);
3747     hres = CreateAsyncBindCtx(0, (IBindStatusCallback*)&bsc, NULL, &bctx);
3748     ok(hres == S_OK, "CreateAsyncBindCtx failed: %08x\n\n", hres);
3749     CHECK_CALLED(QueryInterface_IServiceProvider);
3750
3751     SET_EXPECT(QueryInterface_IBindStatusCallbackEx);
3752     SET_EXPECT(GetBindInfo);
3753     SET_EXPECT(QueryInterface_IInternetProtocol);
3754     SET_EXPECT(OnStartBinding);
3755     if(is_urlmon_protocol(test_protocol))
3756         SET_EXPECT(SetPriority);
3757     SET_EXPECT(Start);
3758
3759     hres = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, (void**)&unk);
3760     if(SUCCEEDED(exhres))
3761         ok(hres == S_OK || hres == MK_S_ASYNCHRONOUS, "BindToStorage failed: %08x\n", hres);
3762     else
3763         ok(hres == exhres || hres == MK_S_ASYNCHRONOUS,
3764            "BindToStorage failed: %08x, expected %08x or MK_S_ASYNCHRONOUS\n", hres, exhres);
3765
3766     CLEAR_CALLED(QueryInterface_IBindStatusCallbackEx); /* IE 8 */
3767     CHECK_CALLED(GetBindInfo);
3768     CHECK_CALLED(QueryInterface_IInternetProtocol);
3769     CHECK_CALLED(OnStartBinding);
3770     if(is_urlmon_protocol(test_protocol))
3771         CLEAR_CALLED(SetPriority); /* Not called by IE11 */
3772     CHECK_CALLED(Start);
3773
3774     ok(unk == NULL, "unk=%p\n", unk);
3775
3776     IBindCtx_Release(bctx);
3777     IMoniker_Release(mon);
3778 }
3779
3780 static void test_BindToStorage_fail(void)
3781 {
3782     IMoniker *mon = NULL;
3783     IBindCtx *bctx = NULL;
3784     IUnknown *unk;
3785     HRESULT hres;
3786
3787     hres = CreateURLMoniker(NULL, about_blankW, &mon);
3788     ok(hres == S_OK, "CreateURLMoniker failed: %08x\n", hres);
3789     if(FAILED(hres))
3790         return;
3791
3792     hres = pCreateAsyncBindCtxEx(NULL, 0, NULL, NULL, &bctx, 0);
3793     ok(hres == S_OK, "CreateAsyncBindCtxEx failed: %08x\n", hres);
3794
3795     unk = (void*)0xdeadbeef;
3796     hres = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, (void**)&unk);
3797     ok(hres == MK_E_SYNTAX || hres == INET_E_DATA_NOT_AVAILABLE,
3798        "hres=%08x, expected MK_E_SYNTAX or INET_E_DATA_NOT_AVAILABLE\n", hres);
3799     ok(unk == NULL, "got %p\n", unk);
3800
3801     IBindCtx_Release(bctx);
3802
3803     IMoniker_Release(mon);
3804
3805     test_ReportResult(E_NOTIMPL);
3806     test_ReportResult(S_FALSE);
3807 }
3808
3809 static void test_StdURLMoniker(void)
3810 {
3811     IMoniker *mon, *async_mon;
3812     LPOLESTR display_name;
3813     IBindCtx *bctx;
3814     IUnknown *unk;
3815     HRESULT hres;
3816
3817     hres = CoCreateInstance(&IID_IInternet, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3818             &IID_IMoniker, (void**)&mon);
3819     ok(hres == S_OK, "Could not create IInternet instance: %08x\n", hres);
3820     if(FAILED(hres))
3821         return;
3822
3823     hres = IMoniker_QueryInterface(mon, &IID_IAsyncMoniker, (void**)&async_mon);
3824     ok(hres == S_OK, "Could not get IAsyncMoniker iface: %08x\n", hres);
3825     ok(mon == async_mon, "mon != async_mon\n");
3826     IMoniker_Release(async_mon);
3827
3828     hres = IMoniker_GetDisplayName(mon, NULL, NULL, &display_name);
3829     ok(hres == E_OUTOFMEMORY, "GetDisplayName failed: %08x, expected E_OUTOFMEMORY\n", hres);
3830
3831     if(pCreateUri) {
3832       IUriContainer *uri_container;
3833       IUri *uri;
3834
3835       hres = IMoniker_QueryInterface(mon, &IID_IUriContainer, (void**)&uri_container);
3836       ok(hres == S_OK, "Could not get IUriMoniker iface: %08x\n", hres);
3837
3838
3839       uri = (void*)0xdeadbeef;
3840       hres = IUriContainer_GetIUri(uri_container, &uri);
3841       ok(hres == S_FALSE, "GetIUri failed: %08x\n", hres);
3842       ok(!uri, "uri = %p, expected NULL\n", uri);
3843
3844       IUriContainer_Release(uri_container);
3845     }
3846
3847     SET_EXPECT(QueryInterface_IServiceProvider);
3848     hres = CreateAsyncBindCtx(0, (IBindStatusCallback*)&bsc, NULL, &bctx);
3849     ok(hres == S_OK, "CreateAsyncBindCtx failed: %08x\n\n", hres);
3850     CHECK_CALLED(QueryInterface_IServiceProvider);
3851
3852     if(pCreateUri) { /* Skip these tests on old IEs */
3853         unk = (void*)0xdeadbeef;
3854         hres = IMoniker_BindToStorage(mon, bctx, NULL, &IID_IStream, (void**)&unk);
3855         ok(hres == MK_E_SYNTAX, "BindToStorage failed: %08x, expected MK_E_SYNTAX\n", hres);
3856         ok(!unk, "unk = %p\n", unk);
3857
3858         unk = (void*)0xdeadbeef;
3859         hres = IMoniker_BindToObject(mon, bctx, NULL, &IID_IUnknown, (void**)&unk);
3860         ok(hres == MK_E_SYNTAX, "BindToStorage failed: %08x, expected MK_E_SYNTAX\n", hres);
3861         ok(!unk, "unk = %p\n", unk);
3862     }
3863
3864     IMoniker_Release(mon);
3865 }
3866
3867 static void register_protocols(void)
3868 {
3869     IInternetSession *session;
3870     HRESULT hres;
3871
3872     static const WCHAR winetestW[] = {'w','i','n','e','t','e','s','t',0};
3873
3874     hres = CoInternetGetSession(0, &session, 0);
3875     ok(hres == S_OK, "CoInternetGetSession failed: %08x\n", hres);
3876     if(FAILED(hres))
3877         return;
3878
3879     hres = IInternetSession_RegisterNameSpace(session, &protocol_cf, &IID_NULL,
3880             winetestW, 0, NULL, 0);
3881     ok(hres == S_OK, "RegisterNameSpace failed: %08x\n", hres);
3882
3883     IInternetSession_Release(session);
3884 }
3885
3886 static BOOL can_do_https(void)
3887 {
3888     HINTERNET ses, con, req;
3889     BOOL ret;
3890
3891     ses = InternetOpenA("winetest", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
3892     ok(ses != NULL, "InternetOpen failed\n");
3893
3894     con = InternetConnectA(ses, "test.winehq.org", INTERNET_DEFAULT_HTTPS_PORT,
3895             NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0);
3896     ok(con != NULL, "InternetConnect failed\n");
3897
3898     req = HttpOpenRequestA(con, "GET", "/tests/hello.html", NULL, NULL, NULL,
3899             INTERNET_FLAG_SECURE, 0);
3900     ok(req != NULL, "HttpOpenRequest failed\n");
3901
3902     ret = HttpSendRequestA(req, NULL, 0, NULL, 0);
3903     ok(ret || broken(GetLastError() == ERROR_INTERNET_CANNOT_CONNECT),
3904         "request failed: %u\n", GetLastError());
3905
3906     InternetCloseHandle(req);
3907     InternetCloseHandle(con);
3908     InternetCloseHandle(ses);
3909     return ret;
3910 }
3911
3912 START_TEST(url)
3913 {
3914     HMODULE hurlmon;
3915
3916     hurlmon = GetModuleHandleA("urlmon.dll");
3917     pCreateAsyncBindCtxEx = (void*) GetProcAddress(hurlmon, "CreateAsyncBindCtxEx");
3918
3919     if(!GetProcAddress(hurlmon, "CompareSecurityIds")) {
3920         win_skip("Too old IE\n");
3921         return;
3922     }
3923
3924     pCreateUri = (void*) GetProcAddress(hurlmon, "CreateUri");
3925     if(!pCreateUri)
3926         win_skip("IUri not supported\n");
3927
3928     complete_event = CreateEventW(NULL, FALSE, FALSE, NULL);
3929     complete_event2 = CreateEventW(NULL, FALSE, FALSE, NULL);
3930     thread_id = GetCurrentThreadId();
3931     create_html_file();
3932     create_cache_file();
3933     register_protocols();
3934
3935     test_create();
3936
3937     trace("test CreateAsyncBindCtx...\n");
3938     test_CreateAsyncBindCtx();
3939
3940     trace("test CreateAsyncBindCtxEx...\n");
3941     test_CreateAsyncBindCtxEx();
3942
3943     trace("test RegisterBindStatusCallback...\n");
3944     if(test_RegisterBindStatusCallback()) {
3945         trace("test BindToStorage failures...\n");
3946         test_BindToStorage_fail();
3947
3948         trace("synchronous http test (COM not initialised)...\n");
3949         test_BindToStorage(HTTP_TEST, 0, TYMED_ISTREAM);
3950
3951         CoInitialize(NULL);
3952
3953         trace("test StdURLMoniker...\n");
3954         test_StdURLMoniker();
3955
3956         trace("synchronous http test...\n");
3957         test_BindToStorage(HTTP_TEST, 0, TYMED_ISTREAM);
3958
3959         trace("emulated synchronous http test (to file)...\n");
3960         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE, TYMED_FILE);
3961
3962         trace("synchronous http test (to object)...\n");
3963         test_BindToObject(HTTP_TEST, 0, S_OK);
3964
3965         trace("emulated synchronous http test (with cache)...\n");
3966         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_USE_CACHE, TYMED_ISTREAM);
3967
3968         trace("emulated synchronous http test (with cache, no read)...\n");
3969         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_USE_CACHE|BINDTEST_NO_CALLBACK_READ, TYMED_ISTREAM);
3970
3971         trace("synchronous http test (with cache, no read)...\n");
3972         test_BindToStorage(HTTP_TEST, BINDTEST_USE_CACHE|BINDTEST_NO_CALLBACK_READ, TYMED_ISTREAM);
3973
3974         trace("synchronous file test...\n");
3975         test_BindToStorage(FILE_TEST, 0, TYMED_ISTREAM);
3976
3977         trace("emulated synchronous file test (to file)...\n");
3978         test_BindToStorage(FILE_TEST, BINDTEST_EMULATE, TYMED_FILE);
3979
3980         trace("synchronous file test (to object)...\n");
3981         test_BindToObject(FILE_TEST, 0, S_OK);
3982
3983         trace("bind to an object of not registered MIME type...\n");
3984         create_file("test.winetest", "\x01\x02\x03xxxxxxxxxxxxxxxxxxxxxxxxx");
3985         test_BindToObject(FILE_TEST, 0, REGDB_E_CLASSNOTREG);
3986         create_html_file();
3987
3988         trace("file test (no callback)...\n");
3989         test_BindToStorage(FILE_TEST, BINDTEST_NO_CALLBACK, TYMED_ISTREAM);
3990
3991         if(can_do_https()) {
3992             trace("synchronous https test (invalid CN, dialog)\n");
3993             onsecurityproblem_hres = S_FALSE;
3994             http_is_first = TRUE;
3995             test_BindToStorage(HTTPS_TEST, BINDTEST_INVALID_CN, TYMED_ISTREAM);
3996
3997             bindf = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE | BINDF_PULLDATA;
3998
3999             trace("asynchronous https test (invalid CN, fail)\n");
4000             onsecurityproblem_hres = E_FAIL;
4001             test_BindToStorage(HTTPS_TEST, BINDTEST_INVALID_CN, TYMED_ISTREAM);
4002
4003             trace("asynchronous https test (invalid CN, accept)\n");
4004             onsecurityproblem_hres = S_OK;
4005             test_BindToStorage(HTTPS_TEST, BINDTEST_INVALID_CN, TYMED_ISTREAM);
4006
4007             trace("asynchronous https test (invalid CN, dialog 2)\n");
4008             onsecurityproblem_hres = S_FALSE;
4009             test_BindToStorage(HTTPS_TEST, BINDTEST_INVALID_CN, TYMED_ISTREAM);
4010             invalid_cn_accepted = FALSE;
4011
4012             trace("asynchronous https test...\n");
4013             test_BindToStorage(HTTPS_TEST, 0, TYMED_ISTREAM);
4014         }else {
4015             win_skip("Skipping https testt\n");
4016         }
4017
4018         bindf = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE | BINDF_PULLDATA;
4019
4020         trace("winetest test (async switch)...\n");
4021         test_BindToStorage(WINETEST_TEST, BINDTEST_EMULATE|BINDTEST_ASYNC_SWITCH, TYMED_ISTREAM);
4022
4023         trace("about test (no read)...\n");
4024         test_BindToStorage(ABOUT_TEST, BINDTEST_NO_CALLBACK_READ, TYMED_ISTREAM);
4025
4026         trace("http test...\n");
4027         test_BindToStorage(HTTP_TEST, 0, TYMED_ISTREAM);
4028
4029         trace("http test (to file)...\n");
4030         test_BindToStorage(HTTP_TEST, 0, TYMED_FILE);
4031
4032         trace("http test (to object)...\n");
4033         test_BindToObject(HTTP_TEST, 0, S_OK);
4034
4035         trace("http test (short response)...\n");
4036         test_BindToStorage(HTTP_TEST, BINDTEST_HTTPRESPONSE|BINDTEST_ALLOW_FINDINGRESOURCE, TYMED_ISTREAM);
4037
4038         trace("http test (short response, to object)...\n");
4039         test_BindToObject(HTTP_TEST, 0, S_OK);
4040
4041         trace("http test (abort start binding E_NOTIMPL)...\n");
4042         abort_hres = E_NOTIMPL;
4043         test_BindToStorage(HTTP_TEST, BINDTEST_ABORT_START, TYMED_FILE);
4044
4045         trace("http test (abort start binding E_ABORT)...\n");
4046         abort_hres = E_ABORT;
4047         test_BindToStorage(HTTP_TEST, BINDTEST_ABORT_START, TYMED_FILE);
4048
4049         trace("http test (abort progress)...\n");
4050         test_BindToStorage(HTTP_TEST, BINDTEST_ABORT_PROGRESS|BINDTEST_ALLOW_FINDINGRESOURCE, TYMED_FILE);
4051
4052         trace("emulated http test...\n");
4053         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4054
4055         trace("emulated http test (to object)...\n");
4056         test_BindToObject(HTTP_TEST, BINDTEST_EMULATE, S_OK);
4057
4058         trace("emulated http test (to object, redirect)...\n");
4059         test_BindToObject(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_REDIRECT, S_OK);
4060
4061         trace("emulated http test (to file)...\n");
4062         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE, TYMED_FILE);
4063
4064         trace("emulated http test (redirect)...\n");
4065         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_REDIRECT, TYMED_ISTREAM);
4066
4067         trace("emulated http test (with cache)...\n");
4068         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_USE_CACHE, TYMED_ISTREAM);
4069
4070         trace("winetest test (no callback)...\n");
4071         test_BindToStorage(WINETEST_TEST, BINDTEST_EMULATE|BINDTEST_NO_CALLBACK|BINDTEST_USE_CACHE, TYMED_ISTREAM);
4072
4073         trace("emulated https test...\n");
4074         test_BindToStorage(HTTPS_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4075
4076         trace("about test...\n");
4077         test_BindToStorage(ABOUT_TEST, 0, TYMED_ISTREAM);
4078
4079         trace("about test (to file)...\n");
4080         test_BindToStorage(ABOUT_TEST, 0, TYMED_FILE);
4081
4082         trace("about test (to object)...\n");
4083         test_BindToObject(ABOUT_TEST, 0, S_OK);
4084
4085         trace("emulated about test...\n");
4086         test_BindToStorage(ABOUT_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4087
4088         trace("emulated about test (to file)...\n");
4089         test_BindToStorage(ABOUT_TEST, BINDTEST_EMULATE, TYMED_FILE);
4090
4091         trace("emulated about test (to object)...\n");
4092         test_BindToObject(ABOUT_TEST, BINDTEST_EMULATE, S_OK);
4093
4094         trace("emulalated test reporting result in read...\n");
4095         test_BindToStorage(WINETEST_SYNC_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4096
4097         trace("file test...\n");
4098         test_BindToStorage(FILE_TEST, 0, TYMED_ISTREAM);
4099
4100         trace("file test (to file)...\n");
4101         test_BindToStorage(FILE_TEST, 0, TYMED_FILE);
4102
4103         trace("file test (to object)...\n");
4104         test_BindToObject(FILE_TEST, 0, S_OK);
4105
4106         trace("emulated file test...\n");
4107         test_BindToStorage(FILE_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4108
4109         trace("emulated file test (to file)...\n");
4110         test_BindToStorage(FILE_TEST, BINDTEST_EMULATE, TYMED_FILE);
4111
4112         trace("emulated file test (to object)...\n");
4113         test_BindToObject(FILE_TEST, BINDTEST_EMULATE, S_OK);
4114
4115         trace("emulated its test...\n");
4116         test_BindToStorage(ITS_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4117
4118         trace("emulated its test (to file)...\n");
4119         test_BindToStorage(ITS_TEST, BINDTEST_EMULATE, TYMED_FILE);
4120
4121         trace("emulated mk test...\n");
4122         test_BindToStorage(MK_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4123
4124         trace("test URLDownloadToFile for file protocol...\n");
4125         test_URLDownloadToFile(FILE_TEST, FALSE);
4126
4127         trace("test URLDownloadToFile for emulated file protocol...\n");
4128         test_URLDownloadToFile(FILE_TEST, TRUE);
4129
4130         trace("test URLDownloadToFile for http protocol...\n");
4131         test_URLDownloadToFile(HTTP_TEST, FALSE);
4132
4133         trace("test URLDownloadToFile abort...\n");
4134         test_URLDownloadToFile_abort();
4135
4136         trace("test emulated http abort...\n");
4137         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE|BINDTEST_ABORT, TYMED_ISTREAM);
4138
4139         bindf |= BINDF_NOWRITECACHE;
4140
4141         trace("ftp test...\n");
4142         test_BindToStorage(FTP_TEST, 0, TYMED_ISTREAM);
4143
4144         trace("test failures...\n");
4145         test_BindToStorage_fail();
4146
4147         bindf = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE;
4148         only_check_prot_args = TRUE; /* Fail after checking arguments to Protocol_Start */
4149
4150         trace("check emulated http protocol arguments...\n");
4151         test_BindToStorage(HTTP_TEST, BINDTEST_EMULATE, TYMED_ISTREAM);
4152     }
4153
4154     DeleteFileA(test_file);
4155     DeleteFileA(test_txtA);
4156     CloseHandle(complete_event);
4157     CloseHandle(complete_event2);
4158     CoUninitialize();
4159 }