285 lines
9.2 KiB
C
285 lines
9.2 KiB
C
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "wininet.h"
|
|
|
|
#include "wine/test.h"
|
|
|
|
#define TEST_URL "http://www.winehq.org/site/about"
|
|
#define TEST_URL_PATH "/site/about"
|
|
|
|
int goon = 0;
|
|
|
|
VOID WINAPI callback(
|
|
HINTERNET hInternet,
|
|
DWORD dwContext,
|
|
DWORD dwInternetStatus,
|
|
LPVOID lpvStatusInformation,
|
|
DWORD dwStatusInformationLength
|
|
)
|
|
{
|
|
char name[124];
|
|
|
|
switch (dwInternetStatus)
|
|
{
|
|
case INTERNET_STATUS_RESOLVING_NAME:
|
|
strcpy(name,"INTERNET_STATUS_RESOLVING_NAME");
|
|
break;
|
|
case INTERNET_STATUS_NAME_RESOLVED:
|
|
strcpy(name,"INTERNET_STATUS_NAME_RESOLVED");
|
|
break;
|
|
case INTERNET_STATUS_CONNECTING_TO_SERVER:
|
|
strcpy(name,"INTERNET_STATUS_CONNECTING_TO_SERVER");
|
|
break;
|
|
case INTERNET_STATUS_CONNECTED_TO_SERVER:
|
|
strcpy(name,"INTERNET_STATUS_CONNECTED_TO_SERVER");
|
|
break;
|
|
case INTERNET_STATUS_SENDING_REQUEST:
|
|
strcpy(name,"INTERNET_STATUS_SENDING_REQUEST");
|
|
break;
|
|
case INTERNET_STATUS_REQUEST_SENT:
|
|
strcpy(name,"INTERNET_STATUS_REQUEST_SENT");
|
|
break;
|
|
case INTERNET_STATUS_RECEIVING_RESPONSE:
|
|
strcpy(name,"INTERNET_STATUS_RECEIVING_RESPONSE");
|
|
break;
|
|
case INTERNET_STATUS_RESPONSE_RECEIVED:
|
|
strcpy(name,"INTERNET_STATUS_RESPONSE_RECEIVED");
|
|
break;
|
|
case INTERNET_STATUS_CTL_RESPONSE_RECEIVED:
|
|
strcpy(name,"INTERNET_STATUS_CTL_RESPONSE_RECEIVED");
|
|
break;
|
|
case INTERNET_STATUS_PREFETCH:
|
|
strcpy(name,"INTERNET_STATUS_PREFETCH");
|
|
break;
|
|
case INTERNET_STATUS_CLOSING_CONNECTION:
|
|
strcpy(name,"INTERNET_STATUS_CLOSING_CONNECTION");
|
|
break;
|
|
case INTERNET_STATUS_CONNECTION_CLOSED:
|
|
strcpy(name,"INTERNET_STATUS_CONNECTION_CLOSED");
|
|
break;
|
|
case INTERNET_STATUS_HANDLE_CREATED:
|
|
strcpy(name,"INTERNET_STATUS_HANDLE_CREATED");
|
|
break;
|
|
case INTERNET_STATUS_HANDLE_CLOSING:
|
|
strcpy(name,"INTERNET_STATUS_HANDLE_CLOSING");
|
|
break;
|
|
case INTERNET_STATUS_REQUEST_COMPLETE:
|
|
strcpy(name,"INTERNET_STATUS_REQUEST_COMPLETE");
|
|
goon = 1;
|
|
break;
|
|
case INTERNET_STATUS_REDIRECT:
|
|
strcpy(name,"INTERNET_STATUS_REDIRECT");
|
|
break;
|
|
case INTERNET_STATUS_INTERMEDIATE_RESPONSE:
|
|
strcpy(name,"INTERNET_STATUS_INTERMEDIATE_RESPONSE");
|
|
break;
|
|
}
|
|
|
|
trace("Callback %p 0x%lx %s(%li) %p %ld\n",hInternet,dwContext,name,dwInternetStatus,lpvStatusInformation,dwStatusInformationLength);
|
|
}
|
|
|
|
void winapi_test(int flags)
|
|
{
|
|
DWORD rc;
|
|
CHAR buffer[4000];
|
|
DWORD length;
|
|
DWORD out;
|
|
const char *types[2] = { "*", NULL };
|
|
HINTERNET hi, hic = 0, hor = 0;
|
|
|
|
trace("Starting with flags 0x%x\n",flags);
|
|
|
|
trace("InternetOpenA <--\n");
|
|
hi = InternetOpenA("",0x0,0x0,0x0,flags);
|
|
ok((hi != 0x0),"InternetOpen Failed\n");
|
|
trace("InternetOpenA -->\n");
|
|
|
|
if (hi == 0x0) goto abort;
|
|
|
|
InternetSetStatusCallback(hi,&callback);
|
|
|
|
trace("InternetConnectA <--\n");
|
|
hic=InternetConnectA(hi,"www.winehq.org",0x0,0x0,0x0,0x3,0x0,0xdeadbeef);
|
|
ok((hic != 0x0),"InternetConnect Failed\n");
|
|
trace("InternetConnectA -->\n");
|
|
|
|
if (hic == 0x0) goto abort;
|
|
|
|
trace("HttpOpenRequestA <--\n");
|
|
hor = HttpOpenRequestA(hic, "GET",
|
|
"/about/",
|
|
0x0,0x0,types,0x00400800,0xdeadbead);
|
|
if (hor == 0x0 && GetLastError() == 12007 /* ERROR_INTERNET_NAME_NOT_RESOLVED */) {
|
|
/*
|
|
* If the internet name can't be resolved we are probably behind
|
|
* a firewall or in some other way not directly connected to the
|
|
* Internet. Not enough reason to fail the test. Just ignore and
|
|
* abort.
|
|
*/
|
|
} else {
|
|
ok((hor != 0x0),"HttpOpenRequest Failed\n");
|
|
}
|
|
trace("HttpOpenRequestA -->\n");
|
|
|
|
if (hor == 0x0) goto abort;
|
|
|
|
trace("HttpSendRequestA -->\n");
|
|
SetLastError(0);
|
|
rc = HttpSendRequestA(hor, "", 0xffffffff,0x0,0x0);
|
|
if (flags)
|
|
ok(((rc == 0)&&(GetLastError()==997)),
|
|
"Asynchronous HttpSendRequest NOT returning 0 with error 997\n");
|
|
else
|
|
ok((rc != 0) || GetLastError() == 12007, /* 12007 == XP */
|
|
"Synchronous HttpSendRequest returning 0, error %ld\n", GetLastError());
|
|
trace("HttpSendRequestA <--\n");
|
|
|
|
while ((flags)&&(!goon))
|
|
Sleep(100);
|
|
|
|
length = 4;
|
|
rc = InternetQueryOptionA(hor,0x17,&out,&length);
|
|
trace("Option 0x17 -> %li %li\n",rc,out);
|
|
|
|
length = 100;
|
|
rc = InternetQueryOptionA(hor,0x22,buffer,&length);
|
|
trace("Option 0x22 -> %li %s\n",rc,buffer);
|
|
|
|
length = 4000;
|
|
rc = HttpQueryInfoA(hor,0x16,buffer,&length,0x0);
|
|
buffer[length]=0;
|
|
trace("Option 0x16 -> %li %s\n",rc,buffer);
|
|
|
|
length = 4000;
|
|
rc = InternetQueryOptionA(hor,0x22,buffer,&length);
|
|
buffer[length]=0;
|
|
trace("Option 0x22 -> %li %s\n",rc,buffer);
|
|
|
|
length = 16;
|
|
rc = HttpQueryInfoA(hor,0x5,&buffer,&length,0x0);
|
|
trace("Option 0x5 -> %li %s (%li)\n",rc,buffer,GetLastError());
|
|
|
|
length = 100;
|
|
rc = HttpQueryInfoA(hor,0x1,buffer,&length,0x0);
|
|
buffer[length]=0;
|
|
trace("Option 0x1 -> %li %s\n",rc,buffer);
|
|
|
|
length = 100;
|
|
trace("Entering Query loop\n");
|
|
|
|
while (length)
|
|
{
|
|
|
|
rc = InternetQueryDataAvailable(hor,&length,0x0,0x0);
|
|
ok((rc != 0),"InternetQueryDataAvailable failed\n");
|
|
|
|
if (length)
|
|
{
|
|
char *buffer;
|
|
buffer = (char*)HeapAlloc(GetProcessHeap(),0,length+1);
|
|
|
|
rc = InternetReadFile(hor,buffer,length,&length);
|
|
|
|
buffer[length]=0;
|
|
|
|
trace("ReadFile -> %li %li\n",rc,length);
|
|
|
|
HeapFree(GetProcessHeap(),0,buffer);
|
|
}
|
|
}
|
|
abort:
|
|
if (hor != 0x0) {
|
|
rc = InternetCloseHandle(hor);
|
|
ok ((rc != 0), "InternetCloseHandle of handle opened by HttpOpenRequestA failed\n");
|
|
}
|
|
if (hic != 0x0) {
|
|
rc = InternetCloseHandle(hic);
|
|
ok ((rc != 0), "InternetCloseHandle of handle opened by InternetConnectA failed\n");
|
|
}
|
|
if (hi != 0x0) {
|
|
rc = InternetCloseHandle(hi);
|
|
ok ((rc != 0), "InternetCloseHandle of handle opened by InternetOpenA failed\n");
|
|
if (flags)
|
|
Sleep(100);
|
|
}
|
|
}
|
|
|
|
void InternetOpenUrlA_test(void)
|
|
{
|
|
HINTERNET myhinternet, myhttp;
|
|
char buffer[0x400];
|
|
URL_COMPONENTSA urlComponents;
|
|
char protocol[32], hostName[1024], userName[1024];
|
|
char password[1024], extra[1024], path[1024];
|
|
DWORD size, readbytes, totalbytes=0;
|
|
|
|
myhinternet = InternetOpen("Winetest",0,NULL,NULL,INTERNET_FLAG_NO_CACHE_WRITE);
|
|
ok((myhinternet != 0), "InternetOpen failed, error %lx\n",GetLastError());
|
|
size = 0x400;
|
|
ok (InternetCanonicalizeUrl(TEST_URL, buffer, &size,ICU_BROWSER_MODE),
|
|
"InternetCanonicalizeUrl failed, error %lx\n",GetLastError());
|
|
|
|
urlComponents.dwStructSize = sizeof(URL_COMPONENTSA);
|
|
urlComponents.lpszScheme = protocol;
|
|
urlComponents.dwSchemeLength = 32;
|
|
urlComponents.lpszHostName = hostName;
|
|
urlComponents.dwHostNameLength = 1024;
|
|
urlComponents.lpszUserName = userName;
|
|
urlComponents.dwUserNameLength = 1024;
|
|
urlComponents.lpszPassword = password;
|
|
urlComponents.dwPasswordLength = 1024;
|
|
urlComponents.lpszUrlPath = path;
|
|
urlComponents.dwUrlPathLength = 2048;
|
|
urlComponents.lpszExtraInfo = extra;
|
|
urlComponents.dwExtraInfoLength = 1024;
|
|
ok((InternetCrackUrl(TEST_URL, 0,0,&urlComponents)),
|
|
"InternetCrackUrl failed, error %lx\n",GetLastError());
|
|
SetLastError(0);
|
|
myhttp = InternetOpenUrl(myhinternet, TEST_URL, 0, 0,
|
|
INTERNET_FLAG_RELOAD|INTERNET_FLAG_NO_CACHE_WRITE|INTERNET_FLAG_TRANSFER_BINARY,0);
|
|
if (GetLastError() == 12007)
|
|
return; /* WinXP returns this when not connected to the net */
|
|
ok((myhttp != 0),"InternetOpenUrl failed, error %lx\n",GetLastError());
|
|
ok(InternetReadFile(myhttp, buffer,0x400,&readbytes), "InternetReadFile failed, error %lx\n",GetLastError());
|
|
totalbytes += readbytes;
|
|
while (readbytes && InternetReadFile(myhttp, buffer,0x400,&readbytes))
|
|
totalbytes += readbytes;
|
|
trace("read 0x%08lx bytes\n",totalbytes);
|
|
}
|
|
|
|
void InternetCrackUrl_test(void)
|
|
{
|
|
URL_COMPONENTSA urlComponents;
|
|
char protocol[32], hostName[1024], userName[1024];
|
|
char password[1024], extra[1024], path[1024];
|
|
|
|
urlComponents.dwStructSize = sizeof(URL_COMPONENTSA);
|
|
urlComponents.lpszScheme = protocol;
|
|
urlComponents.dwSchemeLength = 32;
|
|
urlComponents.lpszHostName = hostName;
|
|
urlComponents.dwHostNameLength = 1024;
|
|
urlComponents.lpszUserName = userName;
|
|
urlComponents.dwUserNameLength = 1024;
|
|
urlComponents.lpszPassword = password;
|
|
urlComponents.dwPasswordLength = 1024;
|
|
urlComponents.lpszUrlPath = path;
|
|
urlComponents.dwUrlPathLength = 2048;
|
|
urlComponents.lpszExtraInfo = extra;
|
|
urlComponents.dwExtraInfoLength = 1024;
|
|
ok((InternetCrackUrl(TEST_URL, 0,0,&urlComponents)),
|
|
"InternetCrackUrl failed, error %lx\n",GetLastError());
|
|
ok((strcmp(TEST_URL_PATH,path) == 0),"path cracked wrong\n");
|
|
}
|
|
|
|
START_TEST(http)
|
|
{
|
|
winapi_test(0x10000000);
|
|
winapi_test(0x00000000);
|
|
InternetCrackUrl_test();
|
|
InternetOpenUrlA_test();
|
|
}
|