rostests/apitests/wininet/InternetOpen.c

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