1 /*
2  * PROJECT:         ReactOS api tests
3  * LICENSE:         GPLv2+ - See COPYING in the top level directory
4  * PURPOSE:         Test for InternetOpen
5  * PROGRAMMER:      Thomas Faber <thomas.faber@reactos.org>
6  */
7 
8 #include <apitest.h>
9 
10 #define WIN32_NO_STATUS
11 #define _INC_WINDOWS
12 #define COM_NO_WINDOWS_H
13 #include <windef.h>
14 #include <winsock2.h>
15 #include <wininet.h>
16 
17 struct hostent *(WINAPI *pgethostbyname)(const char *);
18 int (WINAPI *pWSACancelBlockingCall)(void);
19 int (WINAPI *pWSAGetLastError)(void);
20 
21 HINTERNET (WINAPI *pInternetOpen)(LPCTSTR, DWORD, LPCTSTR, LPCTSTR, DWORD);
22 BOOL (WINAPI *pInternetCloseHandle)(HINTERNET);
23 
24 static
25 PVOID
26 GetProc(
27     PCSTR FunctionName)
28 {
29     HMODULE ModuleHandle;
30 
31     ModuleHandle = GetModuleHandleW(L"ws2_32");
32     if (!ModuleHandle)
33         return NULL;
34     return GetProcAddress(ModuleHandle, FunctionName);
35 }
36 
37 #define PROC(name) (p##name = GetProc(#name))
38 
39 static
40 BOOLEAN
41 IsWinsockLoaded(VOID)
42 {
43     return GetModuleHandleW(L"ws2_32") != NULL;
44 }
45 
46 static
47 BOOLEAN
48 IsWinsockInitialized(VOID)
49 {
50     struct hostent *Hostent;
51 
52     if (!PROC(gethostbyname) || !PROC(WSAGetLastError))
53         return FALSE;
54 
55     Hostent = pgethostbyname("localhost");
56     if (!Hostent)
57         ok_dec(pWSAGetLastError(), WSANOTINITIALISED);
58     return Hostent != NULL;
59 }
60 
61 static
62 BOOLEAN
63 AreLegacyFunctionsSupported(VOID)
64 {
65     int Error;
66 
67     if (!PROC(WSACancelBlockingCall) || !PROC(WSAGetLastError))
68         return FALSE;
69 
70     Error = pWSACancelBlockingCall();
71     ok(Error == SOCKET_ERROR, "Error = %d\n", Error);
72     ok(pWSAGetLastError() == WSAEOPNOTSUPP ||
73        pWSAGetLastError() == WSAEINVAL, "WSAGetLastError = %d\n", pWSAGetLastError());
74 
75     return pWSAGetLastError() != WSAEOPNOTSUPP;
76 }
77 
78 START_TEST(InternetOpen)
79 {
80     HMODULE ModuleHandle;
81     HINTERNET InternetHandle;
82     BOOL Success;
83 
84     ok(!IsWinsockLoaded(), "Winsock loaded on startup\n");
85     ok(!IsWinsockInitialized(), "Winsock initialized on startup\n");
86 
87     ModuleHandle = GetModuleHandleW(L"wininet");
88     ok_ptr(ModuleHandle, NULL);
89     ModuleHandle = LoadLibraryW(L"wininet");
90     ok(ModuleHandle != NULL, "LoadLibrary failed, error %lu\n", GetLastError());
91 
92     pInternetOpen = (PVOID)GetProcAddress(ModuleHandle, "InternetOpenW");
93     pInternetCloseHandle = (PVOID)GetProcAddress(ModuleHandle, "InternetCloseHandle");
94 
95     ok(!IsWinsockLoaded(), "Winsock loaded after wininet load\n");
96     ok(!IsWinsockInitialized(), "Winsock initialized after wininet load\n");
97 
98     InternetHandle = pInternetOpen(NULL, INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);
99     ok(InternetHandle != NULL, "InternetHandle = NULL\n");
100 
101     if (InternetHandle != NULL)
102     {
103         ok(IsWinsockLoaded(), "Winsock not loaded after InternetOpen\n");
104         ok(IsWinsockInitialized(), "Winsock not initialized after InternetOpen\n");
105         ok(!AreLegacyFunctionsSupported(), "Winsock initialized with version 1\n");
106         Success = pInternetCloseHandle(InternetHandle);
107         ok(Success, "InternetCloseHandle failed, error %lu\n", GetLastError());
108     }
109 
110     ok(IsWinsockLoaded(), "Winsock unloaded after handle close\n");
111     ok(IsWinsockInitialized(), "Winsock uninitialized after handle close\n");
112 
113     FreeLibrary(ModuleHandle);
114 
115     ok(IsWinsockLoaded(), "Winsock unloaded after wininet unload\n");
116     trace("Winsock %sinitialized after wininet unload (should be uninitialized in 2003, still initialized in 7)\n",
117           IsWinsockInitialized() ? "" : "un");
118 }
119