urlmon: Test http protocol through CreateBinding.

dlls/urlmon/tests/protocol.c

@@ -34,6 +34,8 @@ static HRESULT (WINAPI *pCoInternetGetSession)(DWORD, IInternetSession **, DWORD
 static HRESULT (WINAPI *pReleaseBindInfo)(BINDINFO*);
 static HRESULT (WINAPI *pCreateUri)(LPCWSTR, DWORD, DWORD_PTR, IUri**);
 
+#define CHARS_IN_GUID 39
+
 #define DEFINE_EXPECT(func) \
     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
 
@@ -143,6 +145,9 @@ static const WCHAR winehq_ipW[] = {'2','0','9','.','4','6','.','2','5','.','1','
 static const WCHAR emptyW[] = {0};
 static const WCHAR pjpegW[] = {'i','m','a','g','e','/','p','j','p','e','g',0};
 static const WCHAR gifW[] = {'i','m','a','g','e','/','g','i','f',0};
+static const WCHAR null_guid[] = {'{','0','0','0','0','0','0','0','0','-','0','0','0','0','-',
+    '0','0','0','0','-','0','0','0','0','-','0','0','0','0','0','0','0','0','0','0','0','0','}',0};
+static WCHAR protocol_clsid[CHARS_IN_GUID];
 
 static HRESULT expect_hrResult;
 static LPCWSTR file_name, http_url, expect_wsz;
@@ -359,7 +364,7 @@ static HRESULT WINAPI HttpNegotiate_GetRootSecurityId(IHttpNegotiate2 *iface,
         BYTE *pbSecurityId, DWORD *pcbSecurityId, DWORD_PTR dwReserved)
 {
     static const BYTE sec_id[] = {'h','t','t','p',':','t','e','s','t',1,0,0,0};
-    
+
     CHECK_EXPECT(GetRootSecurityId);
 
     ok(!dwReserved, "dwReserved=%Id, expected 0\n", dwReserved);
@@ -822,8 +827,6 @@ static const char *status_names[] =
 static HRESULT WINAPI ProtocolSink_ReportProgress(IInternetProtocolSink *iface, ULONG ulStatusCode,
         LPCWSTR szStatusText)
 {
-    static const WCHAR null_guid[] = {'{','0','0','0','0','0','0','0','0','-','0','0','0','0','-',
-        '0','0','0','0','-','0','0','0','0','-','0','0','0','0','0','0','0','0','0','0','0','0','}',0};
     static const WCHAR text_plain[] = {'t','e','x','t','/','p','l','a','i','n',0};
 
     if (winetest_debug > 1)
@@ -913,7 +916,7 @@ static HRESULT WINAPI ProtocolSink_ReportProgress(IInternetProtocolSink *iface,
     case BINDSTATUS_PROTOCOLCLASSID:
         CHECK_EXPECT(ReportProgress_PROTOCOLCLASSID);
         ok(szStatusText != NULL, "szStatusText == NULL\n");
-        ok(!lstrcmpW(szStatusText, null_guid), "unexpected classid %s\n", wine_dbgstr_w(szStatusText));
+        ok(!lstrcmpW(szStatusText, protocol_clsid), "unexpected classid %s\n", wine_dbgstr_w(szStatusText));
         break;
     case BINDSTATUS_COOKIE_SENT:
         CHECK_EXPECT2(ReportProgress_COOKIE_SENT);
@@ -2710,6 +2713,7 @@ static IClassFactory mimefilter_cf = { &MimeFilterCFVtbl };
 #define TEST_FROMCACHE   0x4000
 #define TEST_DISABLEAUTOREDIRECT  0x8000
 #define TEST_RESULTFROMLOCK      0x10000
+#define TEST_USEBINDING  0x20000
 
 static void register_filter(BOOL do_register)
 {
@@ -2770,6 +2774,7 @@ static void init_test(int prot, DWORD flags)
     file_with_hash = FALSE;
     security_problem = FALSE;
     reuse_protocol_thread = FALSE;
+    memcpy(protocol_clsid, null_guid, sizeof(null_guid));
 
     bindinfo_options = 0;
     if(flags & TEST_DISABLEAUTOREDIRECT)
@@ -3357,6 +3362,7 @@ static void test_http_protocol_url(LPCWSTR url, int prot, DWORD flags, DWORD tym
 {
     IInternetProtocolInfo *protocol_info;
     IClassFactory *factory;
+    IInternetSession *session;
     IUnknown *unk;
     HRESULT hres;
 
@@ -3383,8 +3389,13 @@ static void test_http_protocol_url(LPCWSTR url, int prot, DWORD flags, DWORD tym
     if(FAILED(hres))
         return;
 
-    hres = IClassFactory_CreateInstance(factory, NULL, &IID_IInternetProtocol,
-                                        (void**)&async_protocol);
+    if (flags & TEST_USEBINDING) {
+        hres = pCoInternetGetSession(0, &session, 0);
+        ok(hres == S_OK, "CoInternetGetSession failed: %08lx\n", hres);
+        hres = IInternetSession_CreateBinding(session, NULL, url, NULL, NULL, &async_protocol, 0);
+    } else
+        hres = IClassFactory_CreateInstance(factory, NULL, &IID_IInternetProtocol,
+                                            (void**)&async_protocol);
     ok(hres == S_OK, "Could not get IInternetProtocol: %08lx\n", hres);
     if(SUCCEEDED(hres)) {
         BYTE buf[3600];
@@ -3393,6 +3404,14 @@ static void test_http_protocol_url(LPCWSTR url, int prot, DWORD flags, DWORD tym
 
         test_priority(async_protocol);
 
+        if (flags & TEST_USEBINDING) {
+            SET_EXPECT(QueryService_InternetProtocol);
+            SET_EXPECT(ReportProgress_PROTOCOLCLASSID);
+            StringFromGUID2(&CLSID_HttpProtocol, protocol_clsid, ARRAY_SIZE(protocol_clsid));
+            if (flags & TEST_DISABLEAUTOREDIRECT)
+                SET_EXPECT(QueryService_IBindCallbackRedirect);
+        }
+
         SET_EXPECT(ReportProgress_COOKIE_SENT);
         if(http_is_first) {
             SET_EXPECT(ReportProgress_FINDINGRESOURCE);
@@ -3422,6 +3441,13 @@ static void test_http_protocol_url(LPCWSTR url, int prot, DWORD flags, DWORD tym
             return;
         }
 
+        if (flags & TEST_USEBINDING) {
+            todo_wine CHECK_NOT_CALLED(QueryService_InternetProtocol);
+            todo_wine CHECK_NOT_CALLED(ReportProgress_PROTOCOLCLASSID);
+            if (flags & TEST_DISABLEAUTOREDIRECT)
+                CHECK_CALLED(QueryService_IBindCallbackRedirect);
+        }
+
         if(!direct_read && !bind_from_cache)
             SET_EXPECT(ReportResult);
 
@@ -3589,6 +3615,10 @@ static void test_http_protocol(void)
     bindf = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE | BINDF_PULLDATA | BINDF_FROMURLMON | BINDF_NOWRITECACHE;
     test_http_protocol_url(empty_url, HTTP_TEST, TEST_EMPTY, TYMED_NULL);
 
+    trace("Testing http protocol (redirected, binding)...\n");
+    bindf = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE | BINDF_PULLDATA | BINDF_FROMURLMON | BINDF_NOWRITECACHE;
+    test_http_protocol_url(redirect_url, HTTP_TEST, TEST_REDIRECT|TEST_USEBINDING, TYMED_NULL);
+
     /* This is a bit ugly. We unconditionally disable this test on Wine. This won't work until we have
      * support for reading from cache via HTTP layer in wininet. Until then, Wine will fail badly, affecting
      * other, unrelated, tests. Working around it is not worth the trouble, we may simply make sure those