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