git.oblomov.eu Git - wine/blob - dlls/wininet/tests/http.c

   1 #include <stdarg.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4
   5 #include "windef.h"
   6 #include "winbase.h"
   7 #include "wininet.h"
   8
   9 #include "wine/test.h"
  10
  11 #define TEST_URL "http://www.winehq.org/site/about"
  12 #define TEST_URL_PATH "/site/about"
  13
  14 int goon = 0;
  15
  16 VOID WINAPI callback(
  17      HINTERNET hInternet,
  18      DWORD dwContext,
  19      DWORD dwInternetStatus,
  20      LPVOID lpvStatusInformation,
  21      DWORD dwStatusInformationLength
  22 )
  23 {
  24     char name[124];
  25
  26     switch (dwInternetStatus)
  27     {
  28         case INTERNET_STATUS_RESOLVING_NAME:
  29             strcpy(name,"INTERNET_STATUS_RESOLVING_NAME");
  30             break;
  31         case INTERNET_STATUS_NAME_RESOLVED:
  32             strcpy(name,"INTERNET_STATUS_NAME_RESOLVED");
  33             break;
  34         case INTERNET_STATUS_CONNECTING_TO_SERVER:
  35             strcpy(name,"INTERNET_STATUS_CONNECTING_TO_SERVER");
  36             break;
  37         case INTERNET_STATUS_CONNECTED_TO_SERVER:
  38             strcpy(name,"INTERNET_STATUS_CONNECTED_TO_SERVER");
  39             break;
  40         case INTERNET_STATUS_SENDING_REQUEST:
  41             strcpy(name,"INTERNET_STATUS_SENDING_REQUEST");
  42             break;
  43         case INTERNET_STATUS_REQUEST_SENT:
  44             strcpy(name,"INTERNET_STATUS_REQUEST_SENT");
  45             break;
  46         case INTERNET_STATUS_RECEIVING_RESPONSE:
  47             strcpy(name,"INTERNET_STATUS_RECEIVING_RESPONSE");
  48             break;
  49         case INTERNET_STATUS_RESPONSE_RECEIVED:
  50             strcpy(name,"INTERNET_STATUS_RESPONSE_RECEIVED");
  51             break;
  52         case INTERNET_STATUS_CTL_RESPONSE_RECEIVED:
  53             strcpy(name,"INTERNET_STATUS_CTL_RESPONSE_RECEIVED");
  54             break;
  55         case INTERNET_STATUS_PREFETCH:
  56             strcpy(name,"INTERNET_STATUS_PREFETCH");
  57             break;
  58         case INTERNET_STATUS_CLOSING_CONNECTION:
  59             strcpy(name,"INTERNET_STATUS_CLOSING_CONNECTION");
  60             break;
  61         case INTERNET_STATUS_CONNECTION_CLOSED:
  62             strcpy(name,"INTERNET_STATUS_CONNECTION_CLOSED");
  63             break;
  64         case INTERNET_STATUS_HANDLE_CREATED:
  65             strcpy(name,"INTERNET_STATUS_HANDLE_CREATED");
  66             break;
  67         case INTERNET_STATUS_HANDLE_CLOSING:
  68             strcpy(name,"INTERNET_STATUS_HANDLE_CLOSING");
  69             break;
  70         case INTERNET_STATUS_REQUEST_COMPLETE:
  71             strcpy(name,"INTERNET_STATUS_REQUEST_COMPLETE");
  72             goon = 1;
  73             break;
  74         case INTERNET_STATUS_REDIRECT:
  75             strcpy(name,"INTERNET_STATUS_REDIRECT");
  76             break;
  77         case INTERNET_STATUS_INTERMEDIATE_RESPONSE:
  78             strcpy(name,"INTERNET_STATUS_INTERMEDIATE_RESPONSE");
  79             break;
  80     }
  81
  82     trace("Callback %p 0x%lx %s(%li) %p %ld\n",hInternet,dwContext,name,dwInternetStatus,lpvStatusInformation,dwStatusInformationLength);
  83 }
  84
  85 void winapi_test(int flags)
  86 {
  87     DWORD rc;
  88     CHAR buffer[4000];
  89     DWORD length;
  90     DWORD out;
  91     const char *types[2] = { "*", NULL };
  92     HINTERNET hi, hic = 0, hor = 0;
  93
  94     trace("Starting with flags 0x%x\n",flags);
  95
  96     trace("InternetOpenA <--\n");
  97     hi = InternetOpenA("",0x0,0x0,0x0,flags);
  98     ok((hi != 0x0),"InternetOpen Failed\n");
  99     trace("InternetOpenA -->\n");
 100
 101     if (hi == 0x0) goto abort;
 102
 103     InternetSetStatusCallback(hi,&callback);
 104
 105     trace("InternetConnectA <--\n");
 106     hic=InternetConnectA(hi,"www.winehq.org",0x0,0x0,0x0,0x3,0x0,0xdeadbeef);
 107     ok((hic != 0x0),"InternetConnect Failed\n");
 108     trace("InternetConnectA -->\n");
 109
 110     if (hic == 0x0) goto abort;
 111
 112     trace("HttpOpenRequestA <--\n");
 113     hor = HttpOpenRequestA(hic, "GET",
 114                           "/about/",
 115                           0x0,0x0,types,0x00400800,0xdeadbead);
 116     if (hor == 0x0 && GetLastError() == 12007 /* ERROR_INTERNET_NAME_NOT_RESOLVED */) {
 117         /*
 118          * If the internet name can't be resolved we are probably behind
 119          * a firewall or in some other way not directly connected to the
 120          * Internet. Not enough reason to fail the test. Just ignore and
 121          * abort.
 122          */
 123     } else  {
 124         ok((hor != 0x0),"HttpOpenRequest Failed\n");
 125     }
 126     trace("HttpOpenRequestA -->\n");
 127
 128     if (hor == 0x0) goto abort;
 129
 130     trace("HttpSendRequestA -->\n");
 131     SetLastError(0);
 132     rc = HttpSendRequestA(hor, "", 0xffffffff,0x0,0x0);
 133     if (flags)
 134         ok(((rc == 0)&&(GetLastError()==997)),
 135             "Asynchronous HttpSendRequest NOT returning 0 with error 997\n");
 136     else
 137         ok((rc != 0) || GetLastError() == 12007, /* 12007 == XP */
 138            "Synchronous HttpSendRequest returning 0, error %ld\n", GetLastError());
 139     trace("HttpSendRequestA <--\n");
 140
 141     while ((flags)&&(!goon))
 142         Sleep(100);
 143
 144     length = 4;
 145     rc = InternetQueryOptionA(hor,0x17,&out,&length);
 146     trace("Option 0x17 -> %li  %li\n",rc,out);
 147
 148     length = 100;
 149     rc = InternetQueryOptionA(hor,0x22,buffer,&length);
 150     trace("Option 0x22 -> %li  %s\n",rc,buffer);
 151
 152     length = 4000;
 153     rc = HttpQueryInfoA(hor,0x16,buffer,&length,0x0);
 154     buffer[length]=0;
 155     trace("Option 0x16 -> %li  %s\n",rc,buffer);
 156
 157     length = 4000;
 158     rc = InternetQueryOptionA(hor,0x22,buffer,&length);
 159     buffer[length]=0;
 160     trace("Option 0x22 -> %li  %s\n",rc,buffer);
 161
 162     length = 16;
 163     rc = HttpQueryInfoA(hor,0x5,&buffer,&length,0x0);
 164     trace("Option 0x5 -> %li  %s  (%li)\n",rc,buffer,GetLastError());
 165
 166     length = 100;
 167     rc = HttpQueryInfoA(hor,0x1,buffer,&length,0x0);
 168     buffer[length]=0;
 169     trace("Option 0x1 -> %li  %s\n",rc,buffer);
 170
 171     length = 100;
 172     trace("Entering Query loop\n");
 173
 174     while (length)
 175     {
 176
 177         rc = InternetQueryDataAvailable(hor,&length,0x0,0x0);
 178         ok((rc != 0),"InternetQueryDataAvailable failed\n");
 179
 180         if (length)
 181         {
 182             char *buffer;
 183             buffer = (char*)HeapAlloc(GetProcessHeap(),0,length+1);
 184
 185             rc = InternetReadFile(hor,buffer,length,&length);
 186
 187             buffer[length]=0;
 188
 189             trace("ReadFile -> %li %li\n",rc,length);
 190
 191             HeapFree(GetProcessHeap(),0,buffer);
 192         }
 193     }
 194 abort:
 195     if (hor != 0x0) {
 196         rc = InternetCloseHandle(hor);
 197         ok ((rc != 0), "InternetCloseHandle of handle opened by HttpOpenRequestA failed\n");
 198     }
 199     if (hic != 0x0) {
 200         rc = InternetCloseHandle(hic);
 201         ok ((rc != 0), "InternetCloseHandle of handle opened by InternetConnectA failed\n");
 202     }
 203     if (hi != 0x0) {
 204       rc = InternetCloseHandle(hi);
 205       ok ((rc != 0), "InternetCloseHandle of handle opened by InternetOpenA failed\n");
 206       if (flags)
 207           Sleep(100);
 208     }
 209 }
 210
 211 void InternetOpenUrlA_test(void)
 212 {
 213   HINTERNET myhinternet, myhttp;
 214   char buffer[0x400];
 215   URL_COMPONENTSA urlComponents;
 216   char protocol[32], hostName[1024], userName[1024];
 217   char password[1024], extra[1024], path[1024];
 218   DWORD size, readbytes, totalbytes=0;
 219
 220   myhinternet = InternetOpen("Winetest",0,NULL,NULL,INTERNET_FLAG_NO_CACHE_WRITE);
 221   ok((myhinternet != 0), "InternetOpen failed, error %lx\n",GetLastError());
 222   size = 0x400;
 223   ok (InternetCanonicalizeUrl(TEST_URL, buffer, &size,ICU_BROWSER_MODE),
 224       "InternetCanonicalizeUrl failed, error %lx\n",GetLastError());
 225
 226   urlComponents.dwStructSize = sizeof(URL_COMPONENTSA);
 227   urlComponents.lpszScheme = protocol;
 228   urlComponents.dwSchemeLength = 32;
 229   urlComponents.lpszHostName = hostName;
 230   urlComponents.dwHostNameLength = 1024;
 231   urlComponents.lpszUserName = userName;
 232   urlComponents.dwUserNameLength = 1024;
 233   urlComponents.lpszPassword = password;
 234   urlComponents.dwPasswordLength = 1024;
 235   urlComponents.lpszUrlPath = path;
 236   urlComponents.dwUrlPathLength = 2048;
 237   urlComponents.lpszExtraInfo = extra;
 238   urlComponents.dwExtraInfoLength = 1024;
 239   ok((InternetCrackUrl(TEST_URL, 0,0,&urlComponents)),
 240      "InternetCrackUrl failed, error %lx\n",GetLastError());
 241   SetLastError(0);
 242   myhttp = InternetOpenUrl(myhinternet, TEST_URL, 0, 0,
 243                            INTERNET_FLAG_RELOAD|INTERNET_FLAG_NO_CACHE_WRITE|INTERNET_FLAG_TRANSFER_BINARY,0);
 244   if (GetLastError() == 12007)
 245     return; /* WinXP returns this when not connected to the net */
 246   ok((myhttp != 0),"InternetOpenUrl failed, error %lx\n",GetLastError());
 247   ok(InternetReadFile(myhttp, buffer,0x400,&readbytes), "InternetReadFile failed, error %lx\n",GetLastError());
 248   totalbytes += readbytes;
 249   while (readbytes && InternetReadFile(myhttp, buffer,0x400,&readbytes))
 250     totalbytes += readbytes;
 251   trace("read 0x%08lx bytes\n",totalbytes);
 252 }
 253
 254 void InternetCrackUrl_test(void)
 255 {
 256   URL_COMPONENTSA urlComponents;
 257   char protocol[32], hostName[1024], userName[1024];
 258   char password[1024], extra[1024], path[1024];
 259
 260   urlComponents.dwStructSize = sizeof(URL_COMPONENTSA);
 261   urlComponents.lpszScheme = protocol;
 262   urlComponents.dwSchemeLength = 32;
 263   urlComponents.lpszHostName = hostName;
 264   urlComponents.dwHostNameLength = 1024;
 265   urlComponents.lpszUserName = userName;
 266   urlComponents.dwUserNameLength = 1024;
 267   urlComponents.lpszPassword = password;
 268   urlComponents.dwPasswordLength = 1024;
 269   urlComponents.lpszUrlPath = path;
 270   urlComponents.dwUrlPathLength = 2048;
 271   urlComponents.lpszExtraInfo = extra;
 272   urlComponents.dwExtraInfoLength = 1024;
 273   ok((InternetCrackUrl(TEST_URL, 0,0,&urlComponents)),
 274      "InternetCrackUrl failed, error %lx\n",GetLastError());
 275   ok((strcmp(TEST_URL_PATH,path) == 0),"path cracked wrong\n");
 276 }
 277
 278 void InternetCrackUrlW_test(void)
 279 {
 280     WCHAR url[] = {
 281         'h','t','t','p',':','/','/','1','9','2','.','1','6','8','.','0','.','2','2','/',
 282         'C','F','I','D','E','/','m','a','i','n','.','c','f','m','?','C','F','S','V','R',
 283         '=','I','D','E','&','A','C','T','I','O','N','=','I','D','E','_','D','E','F','A',
 284         'U','L','T', 0 };
 285     URL_COMPONENTSW comp;
 286     WCHAR scheme[20], host[20], user[20], pwd[20], urlpart[50], extra[50];
 287     BOOL r;
 288
 289     urlpart[0]=0;
 290     scheme[0]=0;
 291     extra[0]=0;
 292     host[0]=0;
 293     user[0]=0;
 294     pwd[0]=0;
 295     memset(&comp, 0, sizeof comp);
 296     comp.dwStructSize = sizeof comp;
 297     comp.lpszScheme = scheme;
 298     comp.dwSchemeLength = sizeof scheme;
 299     comp.lpszHostName = host;
 300     comp.dwHostNameLength = sizeof host;
 301     comp.lpszUserName = user;
 302     comp.dwUserNameLength = sizeof user;
 303     comp.lpszPassword = pwd;
 304     comp.dwPasswordLength = sizeof pwd;
 305     comp.lpszUrlPath = urlpart;
 306     comp.dwUrlPathLength = sizeof urlpart;
 307     comp.lpszExtraInfo = extra;
 308     comp.dwExtraInfoLength = sizeof extra;
 309
 310     r = InternetCrackUrlW(url, 0, 0, &comp );
 311     ok( r, "failed to crack url\n");
 312     ok( comp.dwSchemeLength == 4, "scheme length wrong\n");
 313     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 314     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 315     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 316     ok( comp.dwUrlPathLength == 15, "url length wrong\n");
 317     ok( comp.dwExtraInfoLength == 29, "extra length wrong\n");
 318
 319     urlpart[0]=0;
 320     scheme[0]=0;
 321     extra[0]=0;
 322     host[0]=0;
 323     user[0]=0;
 324     pwd[0]=0;
 325     memset(&comp, 0, sizeof comp);
 326     comp.dwStructSize = sizeof comp;
 327     comp.lpszHostName = host;
 328     comp.dwHostNameLength = sizeof host;
 329     comp.lpszUrlPath = urlpart;
 330     comp.dwUrlPathLength = sizeof urlpart;
 331
 332     r = InternetCrackUrlW(url, 0, 0, &comp );
 333     ok( r, "failed to crack url\n");
 334     ok( comp.dwSchemeLength == 0, "scheme length wrong\n");
 335     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 336     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 337     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 338     ok( comp.dwUrlPathLength == 44, "url length wrong\n");
 339     ok( comp.dwExtraInfoLength == 0, "extra length wrong\n");
 340
 341     urlpart[0]=0;
 342     scheme[0]=0;
 343     extra[0]=0;
 344     host[0]=0;
 345     user[0]=0;
 346     pwd[0]=0;
 347     memset(&comp, 0, sizeof comp);
 348     comp.dwStructSize = sizeof comp;
 349     comp.lpszHostName = host;
 350     comp.dwHostNameLength = sizeof host;
 351     comp.lpszUrlPath = urlpart;
 352     comp.dwUrlPathLength = sizeof urlpart;
 353     comp.lpszExtraInfo = NULL;
 354     comp.dwExtraInfoLength = sizeof extra;
 355
 356     r = InternetCrackUrlW(url, 0, 0, &comp );
 357     ok( r, "failed to crack url\n");
 358     ok( comp.dwSchemeLength == 0, "scheme length wrong\n");
 359     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 360     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 361     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 362     ok( comp.dwUrlPathLength == 15, "url length wrong\n");
 363     ok( comp.dwExtraInfoLength == 29, "extra length wrong\n");
 364 }
 365
 366 START_TEST(http)
 367 {
 368     winapi_test(0x10000000);
 369     winapi_test(0x00000000);
 370     InternetCrackUrl_test();
 371     InternetOpenUrlA_test();
 372     InternetCrackUrlW_test();
 373 }