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

   1 /*
   2  * Wininet - URL tests
   3  *
   4  * Copyright 2002 Aric Stewart
   5  * Copyright 2004 Mike McCormack
   6  * Copyright 2005 Hans Leidekker
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  21  */
  22
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "winnls.h"
  31 #include "wininet.h"
  32
  33 #include "wine/test.h"
  34
  35 #define TEST_URL "http://www.winehq.org/site/about#hi"
  36 #define TEST_URL3 "file:///C:/Program%20Files/Atmel/AVR%20Tools/STK500/STK500.xml"
  37
  38 #define CREATE_URL1 "http://username:password@www.winehq.org/site/about"
  39 #define CREATE_URL2 "http://username@www.winehq.org/site/about"
  40 #define CREATE_URL3 "http://username:"
  41 #define CREATE_URL4 "http://www.winehq.org/site/about"
  42 #define CREATE_URL5 "http://"
  43 #define CREATE_URL6 "nhttp://username:password@www.winehq.org:80/site/about"
  44 #define CREATE_URL7 "http://username:password@www.winehq.org:42/site/about"
  45 #define CREATE_URL8 "https://username:password@www.winehq.org/site/about"
  46 #define CREATE_URL9 "about:blank"
  47 #define CREATE_URL10 "about://host/blank"
  48 #define CREATE_URL11 "about:"
  49 #define CREATE_URL12 "http://www.winehq.org:65535"
  50 #define CREATE_URL13 "http://localhost/?test=123"
  51
  52 static void copy_compsA(
  53     URL_COMPONENTSA *src,
  54     URL_COMPONENTSA *dst,
  55     DWORD scheLen,
  56     DWORD hostLen,
  57     DWORD userLen,
  58     DWORD passLen,
  59     DWORD pathLen,
  60     DWORD extrLen )
  61 {
  62     *dst = *src;
  63     dst->dwSchemeLength    = scheLen;
  64     dst->dwHostNameLength  = hostLen;
  65     dst->dwUserNameLength  = userLen;
  66     dst->dwPasswordLength  = passLen;
  67     dst->dwUrlPathLength   = pathLen;
  68     dst->dwExtraInfoLength = extrLen;
  69     SetLastError(0xfaceabad);
  70 }
  71
  72 static void zero_compsA(
  73     URL_COMPONENTSA *dst,
  74     DWORD scheLen,
  75     DWORD hostLen,
  76     DWORD userLen,
  77     DWORD passLen,
  78     DWORD pathLen,
  79     DWORD extrLen )
  80 {
  81     ZeroMemory(dst, sizeof(URL_COMPONENTSA));
  82     dst->dwStructSize = sizeof(URL_COMPONENTSA);
  83     dst->dwSchemeLength    = scheLen;
  84     dst->dwHostNameLength  = hostLen;
  85     dst->dwUserNameLength  = userLen;
  86     dst->dwPasswordLength  = passLen;
  87     dst->dwUrlPathLength   = pathLen;
  88     dst->dwExtraInfoLength = extrLen;
  89     SetLastError(0xfaceabad);
  90 }
  91
  92 typedef struct {
  93     const char *url;
  94     int scheme_off;
  95     int scheme_len;
  96     INTERNET_SCHEME scheme;
  97     int host_off;
  98     int host_len;
  99     int host_skip_broken;
 100     INTERNET_PORT port;
 101     int user_off;
 102     int user_len;
 103     int pass_off;
 104     int pass_len;
 105     int path_off;
 106     int path_len;
 107     int extra_off;
 108     int extra_len;
 109     const char *exp_scheme;
 110     const char *exp_hostname;
 111     const char *exp_username;
 112     const char *exp_password;
 113     const char *exp_urlpath;
 114     const char *exp_extrainfo;
 115 } crack_url_test_t;
 116
 117 static const crack_url_test_t crack_url_tests[] = {
 118     {"http://www.winehq.org/site/about#hi",
 119         0, 4, INTERNET_SCHEME_HTTP, 7, 14, -1, 80, -1, 0, -1, 0, 21, 11, 32, 3,
 120         "http", "www.winehq.org", "", "", "/site/about", "#hi"},
 121     {"http://www.myserver.com/myscript.php?arg=1",
 122         0, 4, INTERNET_SCHEME_HTTP, 7, 16, -1, 80, -1, 0, -1, 0, 23, 13, 36, 6,
 123         "http", "www.myserver.com", "", "", "/myscript.php", "?arg=1"},
 124     {"http://www.winehq.org?test=123",
 125         0, 4, INTERNET_SCHEME_HTTP, 7, 14, 23, 80, -1, 0, -1, 0, 21, 0, 21, 9,
 126         "http", "www.winehq.org", "", "", "", "?test=123"},
 127     {"file:///C:/Program%20Files/Atmel/AVR%20Tools/STK500/STK500.xml",
 128         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 55, -1, 0,
 129         "file", "", "", "", "C:\\Program Files\\Atmel\\AVR Tools\\STK500\\STK500.xml", ""},
 130     {"fide:///C:/Program%20Files/Atmel/AVR%20Tools/STK500/STK500.xml",
 131         0, 4, INTERNET_SCHEME_UNKNOWN, 7, 0, -1, 0, -1, 0, -1, 0, 7, 55, -1, 0,
 132         "fide", "", "", "", "/C:/Program%20Files/Atmel/AVR%20Tools/STK500/STK500.xml", ""},
 133     {"file://C:/Program%20Files/Atmel/AVR%20Tools/STK500/STK500.xml",
 134         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 54, -1, 0,
 135         "file", "", "", "", "C:\\Program%20Files\\Atmel\\AVR%20Tools\\STK500\\STK500.xml", ""},
 136     {"file://C:/Program%20Files/Atmel/..",
 137         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 27, -1, 0,
 138         "file", "", "", "", "C:\\Program%20Files\\Atmel\\..\\", ""},
 139     {"file://C:/Program%20Files/Atmel/../Asdf.xml",
 140         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 36, -1, 0,
 141         "file", "", "", "", "C:\\Program%20Files\\Atmel\\..\\Asdf.xml", ""},
 142     {"file:///C:/Program%20Files/Atmel/..",
 143         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 28, -1, 0,
 144         "file", "", "", "", "C:\\Program Files\\Atmel\\..\\", ""},
 145     {"file:///C:/Program%20Files/Atmel/../Asdf.xml",
 146         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 37, -1, 0,
 147         "file", "", "", "", "C:\\Program Files\\Atmel\\..\\Asdf.xml", ""},
 148     {"file://C:/Program%20Files/Atmel/.",
 149         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 26, -1, 0,
 150         "file", "", "", "", "C:\\Program%20Files\\Atmel\\.\\", ""},
 151     {"file://C:/Program%20Files/Atmel/./Asdf.xml",
 152         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 35, -1, 0,
 153         "file", "", "", "", "C:\\Program%20Files\\Atmel\\.\\Asdf.xml", ""},
 154     {"file:///C:/Program%20Files/Atmel/.",
 155         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 27, -1, 0,
 156         "file", "", "", "", "C:\\Program Files\\Atmel\\.\\", ""},
 157     {"file:///C:/Program%20Files/Atmel/./Asdf.xml",
 158         0, 4, INTERNET_SCHEME_FILE, -1, 0, -1, 0, -1, 0, -1, 0, 7, 36, -1, 0,
 159         "file", "", "", "", "C:\\Program Files\\Atmel\\.\\Asdf.xml", ""},
 160 };
 161
 162 static const WCHAR *w_str_of(const char *str)
 163 {
 164     static WCHAR buf[512];
 165     MultiByteToWideChar(CP_ACP, 0, str, -1, buf, sizeof(buf)/sizeof(buf[0]));
 166     return buf;
 167 }
 168
 169 static void test_crack_url(const crack_url_test_t *test)
 170 {
 171     WCHAR buf[INTERNET_MAX_URL_LENGTH];
 172     URL_COMPONENTSW urlw;
 173     URL_COMPONENTSA url;
 174     char scheme[32], hostname[1024], username[1024];
 175     char password[1024], extrainfo[1024], urlpath[1024];
 176     BOOL b;
 177
 178     /* test InternetCrackUrlA with NULL buffers */
 179     zero_compsA(&url, 1, 1, 1, 1, 1, 1);
 180
 181     b = InternetCrackUrlA(test->url, strlen(test->url), 0, &url);
 182     ok(b, "InternetCrackUrl failed with error %d\n", GetLastError());
 183
 184     if(test->scheme_off == -1)
 185         ok(!url.lpszScheme, "[%s] url.lpszScheme = %p, expected NULL\n", test->url, url.lpszScheme);
 186     else
 187         ok(url.lpszScheme == test->url+test->scheme_off, "[%s] url.lpszScheme = %p, expected %p\n",
 188            test->url, url.lpszScheme, test->url+test->scheme_off);
 189     ok(url.dwSchemeLength == test->scheme_len, "[%s] url.lpszSchemeLength = %d, expected %d\n",
 190        test->url, url.dwSchemeLength, test->scheme_len);
 191
 192     ok(url.nScheme == test->scheme, "[%s] url.nScheme = %d, expected %d\n", test->url, url.nScheme, test->scheme);
 193
 194     if(test->host_off == -1)
 195         ok(!url.lpszHostName, "[%s] url.lpszHostName = %p, expected NULL\n", test->url, url.lpszHostName);
 196     else
 197         ok(url.lpszHostName == test->url+test->host_off, "[%s] url.lpszHostName = %p, expected %p\n",
 198            test->url, url.lpszHostName, test->url+test->host_off);
 199     if(test->host_skip_broken != -1 && url.dwHostNameLength == test->host_skip_broken) {
 200         win_skip("skipping broken dwHostNameLength result\n");
 201         return;
 202     }
 203     ok(url.dwHostNameLength == test->host_len, "[%s] url.lpszHostNameLength = %d, expected %d\n",
 204        test->url, url.dwHostNameLength, test->host_len);
 205
 206     ok(url.nPort == test->port, "[%s] nPort = %d, expected %d\n", test->url, url.nPort, test->port);
 207
 208     if(test->user_off == -1)
 209         ok(!url.lpszUserName, "[%s] url.lpszUserName = %p\n", test->url, url.lpszUserName);
 210     else
 211         ok(url.lpszUserName == test->url+test->user_off, "[%s] url.lpszUserName = %p, expected %p\n",
 212            test->url, url.lpszUserName, test->url+test->user_off);
 213     ok(url.dwUserNameLength == test->user_len, "[%s] url.lpszUserNameLength = %d, expected %d\n",
 214        test->url, url.dwUserNameLength, test->user_len);
 215
 216     if(test->pass_off == -1)
 217         ok(!url.lpszPassword, "[%s] url.lpszPassword = %p\n", test->url, url.lpszPassword);
 218     else
 219         ok(url.lpszPassword == test->url+test->pass_off, "[%s] url.lpszPassword = %p, expected %p\n",
 220            test->url, url.lpszPassword, test->url+test->pass_off);
 221     ok(url.dwPasswordLength == test->pass_len, "[%s] url.lpszPasswordLength = %d, expected %d\n",
 222        test->url, url.dwPasswordLength, test->pass_len);
 223
 224     if(test->path_off == -1)
 225         ok(!url.lpszUrlPath, "[%s] url.lpszPath = %p, expected NULL\n", test->url, url.lpszUrlPath);
 226     else
 227         ok(url.lpszUrlPath == test->url+test->path_off, "[%s] url.lpszPath = %p, expected %p\n",
 228            test->url, url.lpszUrlPath, test->url+test->path_off);
 229     ok(url.dwUrlPathLength == test->path_len, "[%s] url.lpszUrlPathLength = %d, expected %d\n",
 230        test->url, url.dwUrlPathLength, test->path_len);
 231
 232     if(test->extra_off == -1)
 233         ok(!url.lpszExtraInfo, "[%s] url.lpszExtraInfo = %p, expected NULL\n", test->url, url.lpszExtraInfo);
 234     else
 235         ok(url.lpszExtraInfo == test->url+test->extra_off, "[%s] url.lpszExtraInfo = %p, expected %p\n",
 236            test->url, url.lpszExtraInfo, test->url+test->extra_off);
 237     ok(url.dwExtraInfoLength == test->extra_len, "[%s] url.lpszExtraInfoLength = %d, expected %d\n",
 238        test->url, url.dwExtraInfoLength, test->extra_len);
 239
 240     /* test InternetCrackUrlW with NULL buffers */
 241     memset(&urlw, 0, sizeof(URL_COMPONENTSW));
 242     urlw.dwStructSize = sizeof(URL_COMPONENTSW);
 243     urlw.dwSchemeLength = 1;
 244     urlw.dwHostNameLength = 1;
 245     urlw.dwUserNameLength = 1;
 246     urlw.dwPasswordLength = 1;
 247     urlw.dwUrlPathLength = 1;
 248     urlw.dwExtraInfoLength = 1;
 249
 250     MultiByteToWideChar(CP_ACP, 0, test->url, -1, buf, sizeof(buf)/sizeof(buf[0]));
 251     b = InternetCrackUrlW(buf, lstrlenW(buf), 0, &urlw);
 252     if(!b && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED) {
 253         win_skip("InternetCrackUrlW is not implemented\n");
 254         return;
 255     }
 256     ok(b, "InternetCrackUrl failed with error %d\n", GetLastError());
 257
 258     if(test->scheme_off == -1)
 259         ok(!urlw.lpszScheme, "[%s] urlw.lpszScheme = %p, expected NULL\n", test->url, urlw.lpszScheme);
 260     else
 261         ok(urlw.lpszScheme == buf+test->scheme_off, "[%s] urlw.lpszScheme = %p, expected %p\n",
 262            test->url, urlw.lpszScheme, buf+test->scheme_off);
 263     ok(urlw.dwSchemeLength == test->scheme_len, "[%s] urlw.lpszSchemeLength = %d, expected %d\n",
 264        test->url, urlw.dwSchemeLength, test->scheme_len);
 265
 266     ok(urlw.nScheme == test->scheme, "[%s] urlw.nScheme = %d, expected %d\n", test->url, urlw.nScheme, test->scheme);
 267
 268     if(test->host_off == -1) {
 269         ok(!urlw.lpszHostName, "[%s] urlw.lpszHostName = %p, expected NULL\n", test->url, urlw.lpszHostName);
 270         ok(urlw.dwHostNameLength == 0 || broken(urlw.dwHostNameLength == 1), "[%s] urlw.lpszHostNameLength = %d, expected %d\n",
 271            test->url, urlw.dwHostNameLength, test->host_len);
 272     }else {
 273         ok(urlw.lpszHostName == buf+test->host_off, "[%s] urlw.lpszHostName = %p, expected %p\n",
 274            test->url, urlw.lpszHostName, test->url+test->host_off);
 275         ok(urlw.dwHostNameLength == test->host_len, "[%s] urlw.lpszHostNameLength = %d, expected %d\n",
 276            test->url, urlw.dwHostNameLength, test->host_len);
 277     }
 278
 279     ok(urlw.nPort == test->port, "[%s] nPort = %d, expected %d\n", test->url, urlw.nPort, test->port);
 280
 281     if(test->user_off == -1) {
 282         ok(!urlw.lpszUserName, "[%s] urlw.lpszUserName = %p\n", test->url, urlw.lpszUserName);
 283         ok(urlw.dwUserNameLength == 0 || broken(urlw.dwUserNameLength == 1), "[%s] urlw.lpszUserNameLength = %d, expected %d\n",
 284            test->url, urlw.dwUserNameLength, test->user_len);
 285     }else {
 286         ok(urlw.lpszUserName == buf+test->user_off, "[%s] urlw.lpszUserName = %p, expected %p\n",
 287            test->url, urlw.lpszUserName, buf+test->user_off);
 288         ok(urlw.dwUserNameLength == test->user_len, "[%s] urlw.lpszUserNameLength = %d, expected %d\n",
 289            test->url, urlw.dwUserNameLength, test->user_len);
 290     }
 291
 292     if(test->pass_off == -1) {
 293         ok(!urlw.lpszPassword, "[%s] urlw.lpszPassword = %p\n", test->url, urlw.lpszPassword);
 294         ok(urlw.dwPasswordLength == 0 || broken(urlw.dwPasswordLength), "[%s] urlw.lpszPasswordLength = %d, expected %d\n",
 295            test->url, urlw.dwPasswordLength, test->pass_len);
 296     }else {
 297         ok(urlw.lpszPassword == buf+test->pass_off, "[%s] urlw.lpszPassword = %p, expected %p\n",
 298            test->url, urlw.lpszPassword, buf+test->pass_off);
 299         ok(urlw.dwPasswordLength == test->pass_len, "[%s] urlw.lpszPasswordLength = %d, expected %d\n",
 300            test->url, urlw.dwPasswordLength, test->pass_len);
 301     }
 302
 303     if(test->path_off == -1)
 304         ok(!urlw.lpszUrlPath, "[%s] urlw.lpszPath = %p, expected NULL\n", test->url, urlw.lpszUrlPath);
 305     else
 306         ok(urlw.lpszUrlPath == buf+test->path_off, "[%s] urlw.lpszPath = %p, expected %p\n",
 307            test->url, urlw.lpszUrlPath, buf+test->path_off);
 308     ok(urlw.dwUrlPathLength == test->path_len, "[%s] urlw.lpszUrlPathLength = %d, expected %d\n",
 309        test->url, urlw.dwUrlPathLength, test->path_len);
 310
 311     if(test->extra_off == -1) {
 312         ok(!urlw.lpszExtraInfo, "[%s] url.lpszExtraInfo = %p, expected NULL\n", test->url, urlw.lpszExtraInfo);
 313         ok(urlw.dwExtraInfoLength == 0 || broken(urlw.dwExtraInfoLength == 1), "[%s] urlw.lpszExtraInfoLength = %d, expected %d\n",
 314            test->url, urlw.dwExtraInfoLength, test->extra_len);
 315     }else {
 316         ok(urlw.lpszExtraInfo == buf+test->extra_off, "[%s] urlw.lpszExtraInfo = %p, expected %p\n",
 317            test->url, urlw.lpszExtraInfo, buf+test->extra_off);
 318         ok(urlw.dwExtraInfoLength == test->extra_len, "[%s] urlw.lpszExtraInfoLength = %d, expected %d\n",
 319            test->url, urlw.dwExtraInfoLength, test->extra_len);
 320     }
 321
 322     /* test InternetCrackUrlA with valid buffers */
 323     memset(&url, 0, sizeof(URL_COMPONENTSA));
 324     url.dwStructSize = sizeof(URL_COMPONENTSA);
 325     url.lpszScheme = scheme;
 326     url.dwSchemeLength = sizeof(scheme);
 327     url.lpszHostName = hostname;
 328     url.dwHostNameLength = sizeof(hostname);
 329     url.lpszUserName = username;
 330     url.dwUserNameLength = sizeof(username);
 331     url.lpszPassword = password;
 332     url.dwPasswordLength = sizeof(password);
 333     url.lpszUrlPath = urlpath;
 334     url.dwUrlPathLength = sizeof(urlpath);
 335     url.lpszExtraInfo = extrainfo;
 336     url.dwExtraInfoLength = sizeof(extrainfo);
 337
 338     b = InternetCrackUrlA(test->url, strlen(test->url), 0, &url);
 339     ok(b, "InternetCrackUrlA failed with error %d\n", GetLastError());
 340
 341     ok(url.dwSchemeLength == strlen(test->exp_scheme), "[%s] Got wrong scheme length: %d\n",
 342             test->url, url.dwSchemeLength);
 343     ok(!strcmp(scheme, test->exp_scheme), "[%s] Got wrong scheme, expected: %s, got: %s\n",
 344             test->url, test->exp_scheme, scheme);
 345
 346     ok(url.nScheme == test->scheme, "[%s] Got wrong nScheme, expected: %d, got: %d\n",
 347             test->url, test->scheme, url.nScheme);
 348
 349     ok(url.dwHostNameLength == strlen(test->exp_hostname), "[%s] Got wrong hostname length: %d\n",
 350             test->url, url.dwHostNameLength);
 351     ok(!strcmp(hostname, test->exp_hostname), "[%s] Got wrong hostname, expected: %s, got: %s\n",
 352             test->url, test->exp_hostname, hostname);
 353
 354     ok(url.nPort == test->port, "[%s] Got wrong port, expected: %d, got: %d\n",
 355             test->url, test->port, url.nPort);
 356
 357     ok(url.dwUserNameLength == strlen(test->exp_username), "[%s] Got wrong username length: %d\n",
 358             test->url, url.dwUserNameLength);
 359     ok(!strcmp(username, test->exp_username), "[%s] Got wrong username, expected: %s, got: %s\n",
 360             test->url, test->exp_username, username);
 361
 362     ok(url.dwPasswordLength == strlen(test->exp_password), "[%s] Got wrong password length: %d\n",
 363             test->url, url.dwPasswordLength);
 364     ok(!strcmp(password, test->exp_password), "[%s] Got wrong password, expected: %s, got: %s\n",
 365             test->url, test->exp_password, password);
 366
 367     ok(url.dwUrlPathLength == strlen(test->exp_urlpath), "[%s] Got wrong urlpath length: %d\n",
 368             test->url, url.dwUrlPathLength);
 369     ok(!strcmp(urlpath, test->exp_urlpath), "[%s] Got wrong urlpath, expected: %s, got: %s\n",
 370             test->url, test->exp_urlpath, urlpath);
 371
 372     ok(url.dwExtraInfoLength == strlen(test->exp_extrainfo), "[%s] Got wrong extrainfo length: %d\n",
 373             test->url, url.dwExtraInfoLength);
 374     ok(!strcmp(extrainfo, test->exp_extrainfo), "[%s] Got wrong extrainfo, expected: %s, got: %s\n",
 375             test->url, test->exp_extrainfo, extrainfo);
 376
 377     /* test InternetCrackUrlW with valid buffers */
 378     memset(&urlw, 0, sizeof(URL_COMPONENTSW));
 379     urlw.dwStructSize = sizeof(URL_COMPONENTSW);
 380     urlw.lpszScheme = (WCHAR*)scheme;
 381     urlw.dwSchemeLength = sizeof(scheme) / sizeof(WCHAR);
 382     urlw.lpszHostName = (WCHAR*)hostname;
 383     urlw.dwHostNameLength = sizeof(hostname) / sizeof(WCHAR);
 384     urlw.lpszUserName = (WCHAR*)username;
 385     urlw.dwUserNameLength = sizeof(username) / sizeof(WCHAR);
 386     urlw.lpszPassword = (WCHAR*)password;
 387     urlw.dwPasswordLength = sizeof(password) / sizeof(WCHAR);
 388     urlw.lpszUrlPath = (WCHAR*)urlpath;
 389     urlw.dwUrlPathLength = sizeof(urlpath) / sizeof(WCHAR);
 390     urlw.lpszExtraInfo = (WCHAR*)extrainfo;
 391     urlw.dwExtraInfoLength = sizeof(extrainfo) / sizeof(WCHAR);
 392
 393     b = InternetCrackUrlW(buf, lstrlenW(buf), 0, &urlw);
 394     ok(b, "InternetCrackUrlW failed with error %d\n", GetLastError());
 395
 396     ok(urlw.dwSchemeLength == strlen(test->exp_scheme), "[%s] Got wrong scheme length: %d\n",
 397             test->url, urlw.dwSchemeLength);
 398     ok(!lstrcmpW((WCHAR*)scheme, w_str_of(test->exp_scheme)), "[%s] Got wrong scheme, expected: %s, got: %s\n",
 399             test->url, test->exp_scheme, wine_dbgstr_w((WCHAR*)scheme));
 400
 401     ok(urlw.nScheme == test->scheme, "[%s] Got wrong nScheme, expected: %d, got: %d\n",
 402             test->url, test->scheme, urlw.nScheme);
 403
 404     ok(urlw.dwHostNameLength == strlen(test->exp_hostname), "[%s] Got wrong hostname length: %d\n",
 405             test->url, urlw.dwHostNameLength);
 406     ok(!lstrcmpW((WCHAR*)hostname, w_str_of(test->exp_hostname)), "[%s] Got wrong hostname, expected: %s, got: %s\n",
 407             test->url, test->exp_hostname, wine_dbgstr_w((WCHAR*)hostname));
 408
 409     ok(urlw.nPort == test->port, "[%s] Got wrong port, expected: %d, got: %d\n",
 410             test->url, test->port, urlw.nPort);
 411
 412     ok(urlw.dwUserNameLength == strlen(test->exp_username), "[%s] Got wrong username length: %d\n",
 413             test->url, urlw.dwUserNameLength);
 414     ok(!lstrcmpW((WCHAR*)username, w_str_of(test->exp_username)), "[%s] Got wrong username, expected: %s, got: %s\n",
 415             test->url, test->exp_username, wine_dbgstr_w((WCHAR*)username));
 416
 417     ok(urlw.dwPasswordLength == strlen(test->exp_password), "[%s] Got wrong password length: %d\n",
 418             test->url, urlw.dwPasswordLength);
 419     ok(!lstrcmpW((WCHAR*)password, w_str_of(test->exp_password)), "[%s] Got wrong password, expected: %s, got: %s\n",
 420             test->url, test->exp_password, wine_dbgstr_w((WCHAR*)password));
 421
 422     ok(urlw.dwUrlPathLength == strlen(test->exp_urlpath), "[%s] Got wrong urlpath length: %d\n",
 423             test->url, urlw.dwUrlPathLength);
 424     ok(!lstrcmpW((WCHAR*)urlpath, w_str_of(test->exp_urlpath)), "[%s] Got wrong urlpath, expected: %s, got: %s\n",
 425             test->url, test->exp_urlpath, wine_dbgstr_w((WCHAR*)urlpath));
 426
 427     ok(urlw.dwExtraInfoLength == strlen(test->exp_extrainfo), "[%s] Got wrong extrainfo length: %d\n",
 428             test->url, urlw.dwExtraInfoLength);
 429     ok(!lstrcmpW((WCHAR*)extrainfo, w_str_of(test->exp_extrainfo)), "[%s] Got wrong extrainfo, expected: %s, got: %s\n",
 430             test->url, test->exp_extrainfo, wine_dbgstr_w((WCHAR*)extrainfo));
 431 }
 432
 433 static void InternetCrackUrl_test(void)
 434 {
 435   URL_COMPONENTSA urlSrc, urlComponents;
 436   char protocol[32], hostName[1024], userName[1024];
 437   char password[1024], extra[1024], path[1024];
 438   BOOL ret, firstret;
 439   DWORD GLE, firstGLE;
 440
 441   ZeroMemory(&urlSrc, sizeof(urlSrc));
 442   urlSrc.dwStructSize = sizeof(urlSrc);
 443   urlSrc.lpszScheme = protocol;
 444   urlSrc.lpszHostName = hostName;
 445   urlSrc.lpszUserName = userName;
 446   urlSrc.lpszPassword = password;
 447   urlSrc.lpszUrlPath = path;
 448   urlSrc.lpszExtraInfo = extra;
 449
 450   /* Tests for lpsz* members pointing to real strings while
 451    * some corresponding length members are set to zero.
 452    * As of IE7 (wininet 7.0*?) all members are checked. So we
 453    * run the first test and expect the outcome to be the same
 454    * for the first four (scheme, hostname, username and password).
 455    * The last two (path and extrainfo) are the same for all versions
 456    * of the wininet.dll.
 457    */
 458   copy_compsA(&urlSrc, &urlComponents, 0, 1024, 1024, 1024, 2048, 1024);
 459   SetLastError(0xdeadbeef);
 460   firstret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 461   firstGLE = GetLastError();
 462
 463   copy_compsA(&urlSrc, &urlComponents, 32, 0, 1024, 1024, 2048, 1024);
 464   SetLastError(0xdeadbeef);
 465   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 466   GLE = GetLastError();
 467   ok(ret==firstret && (GLE==firstGLE), "InternetCrackUrl returned %d with GLE=%d (expected to return %d)\n",
 468     ret, GLE, firstret);
 469
 470   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 0, 1024, 2048, 1024);
 471   SetLastError(0xdeadbeef);
 472   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 473   GLE = GetLastError();
 474   ok(ret==firstret && (GLE==firstGLE), "InternetCrackUrl returned %d with GLE=%d (expected to return %d)\n",
 475     ret, GLE, firstret);
 476
 477   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 0, 2048, 1024);
 478   SetLastError(0xdeadbeef);
 479   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 480   GLE = GetLastError();
 481   ok(ret==firstret && (GLE==firstGLE), "InternetCrackUrl returned %d with GLE=%d (expected to return %d)\n",
 482     ret, GLE, firstret);
 483
 484   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 1024, 0, 1024);
 485   SetLastError(0xdeadbeef);
 486   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 487   GLE = GetLastError();
 488   todo_wine
 489   ok(ret==0 && (GLE==ERROR_INVALID_HANDLE || GLE==ERROR_INSUFFICIENT_BUFFER),
 490      "InternetCrackUrl returned %d with GLE=%d (expected to return 0 and ERROR_INVALID_HANDLE or ERROR_INSUFFICIENT_BUFFER)\n",
 491     ret, GLE);
 492
 493   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 1024, 2048, 0);
 494   SetLastError(0xdeadbeef);
 495   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 496   GLE = GetLastError();
 497   todo_wine
 498   ok(ret==0 && (GLE==ERROR_INVALID_HANDLE || GLE==ERROR_INSUFFICIENT_BUFFER),
 499      "InternetCrackUrl returned %d with GLE=%d (expected to return 0 and ERROR_INVALID_HANDLE or ERROR_INSUFFICIENT_BUFFER)\n",
 500     ret, GLE);
 501
 502   copy_compsA(&urlSrc, &urlComponents, 0, 0, 0, 0, 0, 0);
 503   ret = InternetCrackUrlA(TEST_URL3, 0, ICU_DECODE, &urlComponents);
 504   GLE = GetLastError();
 505   todo_wine
 506   ok(ret==0 && GLE==ERROR_INVALID_PARAMETER,
 507      "InternetCrackUrl returned %d with GLE=%d (expected to return 0 and ERROR_INVALID_PARAMETER)\n",
 508     ret, GLE);
 509
 510   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 1024, 2048, 1024);
 511   ret = InternetCrackUrl("about://host/blank", 0,0,&urlComponents);
 512   ok(ret, "InternetCrackUrl failed with %d\n", GetLastError());
 513   ok(!strcmp(urlComponents.lpszScheme, "about"), "lpszScheme was \"%s\" instead of \"about\"\n", urlComponents.lpszScheme);
 514   ok(!strcmp(urlComponents.lpszHostName, "host"), "lpszHostName was \"%s\" instead of \"host\"\n", urlComponents.lpszHostName);
 515   ok(!strcmp(urlComponents.lpszUrlPath, "/blank"), "lpszUrlPath was \"%s\" instead of \"/blank\"\n", urlComponents.lpszUrlPath);
 516
 517   /* try a NULL lpszUrl */
 518   SetLastError(0xdeadbeef);
 519   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 1024, 2048, 1024);
 520   ret = InternetCrackUrl(NULL, 0, 0, &urlComponents);
 521   GLE = GetLastError();
 522   ok(ret == FALSE, "Expected InternetCrackUrl to fail\n");
 523   ok(GLE == ERROR_INVALID_PARAMETER, "Expected ERROR_INVALID_PARAMETER, got %d\n", GLE);
 524
 525   /* try an empty lpszUrl, GetLastError returns 12006, whatever that means
 526    * we just need to fail and not return success
 527    */
 528   SetLastError(0xdeadbeef);
 529   copy_compsA(&urlSrc, &urlComponents, 32, 1024, 1024, 1024, 2048, 1024);
 530   ret = InternetCrackUrl("", 0, 0, &urlComponents);
 531   GLE = GetLastError();
 532   ok(ret == FALSE, "Expected InternetCrackUrl to fail\n");
 533   ok(GLE != 0xdeadbeef && GLE != ERROR_SUCCESS, "Expected GLE to represent a failure\n");
 534
 535   /* Invalid Call: must set size of components structure (Windows only
 536    * enforces this on the InternetCrackUrlA version of the call) */
 537   copy_compsA(&urlSrc, &urlComponents, 0, 1024, 1024, 1024, 2048, 1024);
 538   SetLastError(0xdeadbeef);
 539   urlComponents.dwStructSize = 0;
 540   ret = InternetCrackUrlA(TEST_URL, 0, 0, &urlComponents);
 541   ok(ret == FALSE, "Expected InternetCrackUrl to fail\n");
 542   ok(GLE != 0xdeadbeef && GLE != ERROR_SUCCESS, "Expected GLE to represent a failure\n");
 543
 544   /* Invalid Call: size of dwStructSize must be one of the "standard" sizes
 545    * of the URL_COMPONENTS structure (Windows only enforces this on the
 546    * InternetCrackUrlA version of the call) */
 547   copy_compsA(&urlSrc, &urlComponents, 0, 1024, 1024, 1024, 2048, 1024);
 548   SetLastError(0xdeadbeef);
 549   urlComponents.dwStructSize = sizeof(urlComponents) + 1;
 550   ret = InternetCrackUrlA(TEST_URL, 0, 0, &urlComponents);
 551   ok(ret == FALSE, "Expected InternetCrackUrl to fail\n");
 552   ok(GLE != 0xdeadbeef && GLE != ERROR_SUCCESS, "Expected GLE to represent a failure\n");
 553 }
 554
 555 static void InternetCrackUrlW_test(void)
 556 {
 557     WCHAR url[] = {
 558         'h','t','t','p',':','/','/','1','9','2','.','1','6','8','.','0','.','2','2','/',
 559         'C','F','I','D','E','/','m','a','i','n','.','c','f','m','?','C','F','S','V','R',
 560         '=','I','D','E','&','A','C','T','I','O','N','=','I','D','E','_','D','E','F','A',
 561         'U','L','T', 0 };
 562     static const WCHAR url2[] = { '.','.','/','R','i','t','z','.','x','m','l',0 };
 563     static const WCHAR url3[] = { 'h','t','t','p',':','/','/','x','.','o','r','g',0 };
 564     URL_COMPONENTSW comp;
 565     WCHAR scheme[20], host[20], user[20], pwd[20], urlpart[50], extra[50];
 566     DWORD error;
 567     BOOL r;
 568
 569     urlpart[0]=0;
 570     scheme[0]=0;
 571     extra[0]=0;
 572     host[0]=0;
 573     user[0]=0;
 574     pwd[0]=0;
 575     memset(&comp, 0, sizeof comp);
 576     comp.dwStructSize = sizeof(comp);
 577     comp.lpszScheme = scheme;
 578     comp.dwSchemeLength = sizeof(scheme)/sizeof(scheme[0]);
 579     comp.lpszHostName = host;
 580     comp.dwHostNameLength = sizeof(host)/sizeof(host[0]);
 581     comp.lpszUserName = user;
 582     comp.dwUserNameLength = sizeof(user)/sizeof(user[0]);
 583     comp.lpszPassword = pwd;
 584     comp.dwPasswordLength = sizeof(pwd)/sizeof(pwd[0]);
 585     comp.lpszUrlPath = urlpart;
 586     comp.dwUrlPathLength = sizeof(urlpart)/sizeof(urlpart[0]);
 587     comp.lpszExtraInfo = extra;
 588     comp.dwExtraInfoLength = sizeof(extra)/sizeof(extra[0]);
 589
 590     SetLastError(0xdeadbeef);
 591     r = InternetCrackUrlW(NULL, 0, 0, &comp );
 592     error = GetLastError();
 593     if (!r && error == ERROR_CALL_NOT_IMPLEMENTED)
 594     {
 595         win_skip("InternetCrackUrlW is not implemented\n");
 596         return;
 597     }
 598     ok( !r, "InternetCrackUrlW succeeded unexpectedly\n");
 599     ok( error == ERROR_INVALID_PARAMETER ||
 600         broken(error == ERROR_INTERNET_UNRECOGNIZED_SCHEME), /* IE5 */
 601         "expected ERROR_INVALID_PARAMETER got %u\n", error);
 602
 603     if (error == ERROR_INVALID_PARAMETER)
 604     {
 605         /* Crashes on IE5 */
 606         SetLastError(0xdeadbeef);
 607         r = InternetCrackUrlW(url, 0, 0, NULL );
 608         error = GetLastError();
 609         ok( !r, "InternetCrackUrlW succeeded unexpectedly\n");
 610         ok( error == ERROR_INVALID_PARAMETER, "expected ERROR_INVALID_PARAMETER got %u\n", error);
 611     }
 612
 613     r = InternetCrackUrlW(url, 0, 0, &comp );
 614     ok( r, "failed to crack url\n");
 615     ok( comp.dwSchemeLength == 4, "scheme length wrong\n");
 616     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 617     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 618     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 619     ok( comp.dwUrlPathLength == 15, "url length wrong\n");
 620     ok( comp.dwExtraInfoLength == 29, "extra length wrong\n");
 621
 622     urlpart[0]=0;
 623     scheme[0]=0;
 624     extra[0]=0;
 625     host[0]=0;
 626     user[0]=0;
 627     pwd[0]=0;
 628     memset(&comp, 0, sizeof comp);
 629     comp.dwStructSize = sizeof comp;
 630     comp.lpszHostName = host;
 631     comp.dwHostNameLength = sizeof(host)/sizeof(host[0]);
 632     comp.lpszUrlPath = urlpart;
 633     comp.dwUrlPathLength = sizeof(urlpart)/sizeof(urlpart[0]);
 634
 635     r = InternetCrackUrlW(url, 0, 0, &comp );
 636     ok( r, "failed to crack url\n");
 637     ok( comp.dwSchemeLength == 0, "scheme length wrong\n");
 638     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 639     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 640     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 641     ok( comp.dwUrlPathLength == 44, "url length wrong\n");
 642     ok( comp.dwExtraInfoLength == 0, "extra length wrong\n");
 643
 644     urlpart[0]=0;
 645     scheme[0]=0;
 646     extra[0]=0;
 647     host[0]=0;
 648     user[0]=0;
 649     pwd[0]=0;
 650     memset(&comp, 0, sizeof comp);
 651     comp.dwStructSize = sizeof comp;
 652     comp.lpszHostName = host;
 653     comp.dwHostNameLength = sizeof(host)/sizeof(host[0]);
 654     comp.lpszUrlPath = urlpart;
 655     comp.dwUrlPathLength = sizeof(urlpart)/sizeof(urlpart[0]);
 656     comp.lpszExtraInfo = NULL;
 657     comp.dwExtraInfoLength = sizeof(extra)/sizeof(extra[0]);
 658
 659     r = InternetCrackUrlW(url, 0, 0, &comp );
 660     ok( r, "failed to crack url\n");
 661     ok( comp.dwSchemeLength == 0, "scheme length wrong\n");
 662     ok( comp.dwHostNameLength == 12, "host length wrong\n");
 663     ok( comp.dwUserNameLength == 0, "user length wrong\n");
 664     ok( comp.dwPasswordLength == 0, "password length wrong\n");
 665     ok( comp.dwUrlPathLength == 15, "url length wrong\n");
 666     ok( comp.dwExtraInfoLength == 29, "extra length wrong\n");
 667
 668     urlpart[0]=0;
 669     scheme[0]=0;
 670     extra[0]=0;
 671     host[0]=0;
 672     user[0]=0;
 673     pwd[0]=0;
 674     memset(&comp, 0, sizeof(comp));
 675     comp.dwStructSize = sizeof(comp);
 676     comp.lpszScheme = scheme;
 677     comp.dwSchemeLength = sizeof(scheme)/sizeof(scheme[0]);
 678     comp.lpszHostName = host;
 679     comp.dwHostNameLength = sizeof(host)/sizeof(host[0]);
 680     comp.lpszUserName = user;
 681     comp.dwUserNameLength = sizeof(user)/sizeof(user[0]);
 682     comp.lpszPassword = pwd;
 683     comp.dwPasswordLength = sizeof(pwd)/sizeof(pwd[0]);
 684     comp.lpszUrlPath = urlpart;
 685     comp.dwUrlPathLength = sizeof(urlpart)/sizeof(urlpart[0]);
 686     comp.lpszExtraInfo = extra;
 687     comp.dwExtraInfoLength = sizeof(extra)/sizeof(extra[0]);
 688
 689     r = InternetCrackUrlW(url2, 0, 0, &comp);
 690     todo_wine {
 691     ok(!r, "InternetCrackUrl should have failed\n");
 692     ok(GetLastError() == ERROR_INTERNET_UNRECOGNIZED_SCHEME,
 693         "InternetCrackUrl should have failed with error ERROR_INTERNET_UNRECOGNIZED_SCHEME instead of error %d\n",
 694         GetLastError());
 695     }
 696
 697     /* Test to see whether cracking a URL without a filename initializes urlpart */
 698     urlpart[0]=0xba;
 699     scheme[0]=0;
 700     extra[0]=0;
 701     host[0]=0;
 702     user[0]=0;
 703     pwd[0]=0;
 704     memset(&comp, 0, sizeof comp);
 705     comp.dwStructSize = sizeof comp;
 706     comp.lpszScheme = scheme;
 707     comp.dwSchemeLength = sizeof(scheme)/sizeof(scheme[0]);
 708     comp.lpszHostName = host;
 709     comp.dwHostNameLength = sizeof(host)/sizeof(host[0]);
 710     comp.lpszUserName = user;
 711     comp.dwUserNameLength = sizeof(user)/sizeof(user[0]);
 712     comp.lpszPassword = pwd;
 713     comp.dwPasswordLength = sizeof(pwd)/sizeof(pwd[0]);
 714     comp.lpszUrlPath = urlpart;
 715     comp.dwUrlPathLength = sizeof(urlpart)/sizeof(urlpart[0]);
 716     comp.lpszExtraInfo = extra;
 717     comp.dwExtraInfoLength = sizeof(extra)/sizeof(extra[0]);
 718     r = InternetCrackUrlW(url3, 0, 0, &comp );
 719     ok( r, "InternetCrackUrlW failed unexpectedly\n");
 720     ok( host[0] == 'x', "host should be x.org\n");
 721     ok( urlpart[0] == 0, "urlpart should be empty\n");
 722 }
 723
 724 static void fill_url_components(LPURL_COMPONENTS lpUrlComponents)
 725 {
 726     static CHAR http[]       = "http",
 727                 winehq[]     = "www.winehq.org",
 728                 username[]   = "username",
 729                 password[]   = "password",
 730                 site_about[] = "/site/about",
 731                 empty[]      = "";
 732
 733     lpUrlComponents->dwStructSize = sizeof(URL_COMPONENTS);
 734     lpUrlComponents->lpszScheme = http;
 735     lpUrlComponents->dwSchemeLength = strlen(lpUrlComponents->lpszScheme);
 736     lpUrlComponents->nScheme = INTERNET_SCHEME_HTTP;
 737     lpUrlComponents->lpszHostName = winehq;
 738     lpUrlComponents->dwHostNameLength = strlen(lpUrlComponents->lpszHostName);
 739     lpUrlComponents->nPort = 80;
 740     lpUrlComponents->lpszUserName = username;
 741     lpUrlComponents->dwUserNameLength = strlen(lpUrlComponents->lpszUserName);
 742     lpUrlComponents->lpszPassword = password;
 743     lpUrlComponents->dwPasswordLength = strlen(lpUrlComponents->lpszPassword);
 744     lpUrlComponents->lpszUrlPath = site_about;
 745     lpUrlComponents->dwUrlPathLength = strlen(lpUrlComponents->lpszUrlPath);
 746     lpUrlComponents->lpszExtraInfo = empty;
 747     lpUrlComponents->dwExtraInfoLength = strlen(lpUrlComponents->lpszExtraInfo);
 748 }
 749
 750 static void InternetCreateUrlA_test(void)
 751 {
 752         URL_COMPONENTS urlComp;
 753         LPSTR szUrl;
 754         DWORD len = -1;
 755         BOOL ret;
 756         static CHAR empty[]      = "",
 757                     nhttp[]      = "nhttp",
 758                     http[]       = "http",
 759                     https[]      = "https",
 760                     winehq[]     = "www.winehq.org",
 761                     localhost[]  = "localhost",
 762                     username[]   = "username",
 763                     password[]   = "password",
 764                     root[]       = "/",
 765                     site_about[] = "/site/about",
 766                     extra_info[] = "?test=123",
 767                     about[]      = "about",
 768                     blank[]      = "blank",
 769                     host[]       = "host";
 770
 771         /* test NULL lpUrlComponents */
 772         SetLastError(0xdeadbeef);
 773         ret = InternetCreateUrlA(NULL, 0, NULL, &len);
 774         ok(!ret, "Expected failure\n");
 775         ok(GetLastError() == ERROR_INVALID_PARAMETER,
 776                 "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 777         ok(len == -1, "Expected len -1, got %d\n", len);
 778
 779         /* test zero'ed lpUrlComponents */
 780         ZeroMemory(&urlComp, sizeof(URL_COMPONENTS));
 781         SetLastError(0xdeadbeef);
 782         ret = InternetCreateUrlA(&urlComp, 0, NULL, &len);
 783         ok(!ret, "Expected failure\n");
 784         ok(GetLastError() == ERROR_INVALID_PARAMETER,
 785                 "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 786         ok(len == -1, "Expected len -1, got %d\n", len);
 787
 788         /* test valid lpUrlComponents, NULL lpdwUrlLength */
 789         fill_url_components(&urlComp);
 790         SetLastError(0xdeadbeef);
 791         ret = InternetCreateUrlA(&urlComp, 0, NULL, NULL);
 792         ok(!ret, "Expected failure\n");
 793         ok(GetLastError() == ERROR_INVALID_PARAMETER,
 794                 "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 795         ok(len == -1, "Expected len -1, got %d\n", len);
 796
 797         /* test valid lpUrlComponents, empty szUrl
 798          * lpdwUrlLength is size of buffer required on exit, including
 799          * the terminating null when GLE == ERROR_INSUFFICIENT_BUFFER
 800          */
 801         SetLastError(0xdeadbeef);
 802         ret = InternetCreateUrlA(&urlComp, 0, NULL, &len);
 803         ok(!ret, "Expected failure\n");
 804         ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER,
 805                 "Expected ERROR_INSUFFICIENT_BUFFER, got %d\n", GetLastError());
 806         ok(len == 51, "Expected len 51, got %d\n", len);
 807
 808         /* test correct size, NULL szUrl */
 809         fill_url_components(&urlComp);
 810         SetLastError(0xdeadbeef);
 811         ret = InternetCreateUrlA(&urlComp, 0, NULL, &len);
 812         ok(!ret, "Expected failure\n");
 813         ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER,
 814                 "Expected ERROR_INSUFFICIENT_BUFFER, got %d\n", GetLastError());
 815         ok(len == 51, "Expected len 51, got %d\n", len);
 816
 817         /* test valid lpUrlComponents, alloc-ed szUrl, small size */
 818         SetLastError(0xdeadbeef);
 819         szUrl = HeapAlloc(GetProcessHeap(), 0, len);
 820         len -= 2;
 821         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 822         ok(!ret, "Expected failure\n");
 823         ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER,
 824                 "Expected ERROR_INSUFFICIENT_BUFFER, got %d\n", GetLastError());
 825         ok(len == 51, "Expected len 51, got %d\n", len);
 826
 827         /* alloc-ed szUrl, NULL lpszScheme
 828          * shows that it uses nScheme instead
 829          */
 830         SetLastError(0xdeadbeef);
 831         urlComp.lpszScheme = NULL;
 832         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 833         ok(ret, "Expected success\n");
 834         ok(GetLastError() == 0xdeadbeef,
 835                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 836         ok(len == 50, "Expected len 50, got %d\n", len);
 837         ok(!strcmp(szUrl, CREATE_URL1), "Expected %s, got %s\n", CREATE_URL1, szUrl);
 838
 839         /* alloc-ed szUrl, invalid nScheme
 840          * any nScheme out of range seems ignored
 841          */
 842         fill_url_components(&urlComp);
 843         SetLastError(0xdeadbeef);
 844         urlComp.nScheme = -3;
 845         len++;
 846         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 847         ok(ret, "Expected success\n");
 848         ok(GetLastError() == 0xdeadbeef,
 849                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 850         ok(len == 50, "Expected len 50, got %d\n", len);
 851
 852         /* test valid lpUrlComponents, alloc-ed szUrl */
 853         fill_url_components(&urlComp);
 854         SetLastError(0xdeadbeef);
 855         len = 51;
 856         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 857         ok(ret, "Expected success\n");
 858         ok(GetLastError() == 0xdeadbeef,
 859                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 860         ok(len == 50, "Expected len 50, got %d\n", len);
 861         ok(strstr(szUrl, "80") == NULL, "Didn't expect to find 80 in szUrl\n");
 862         ok(!strcmp(szUrl, CREATE_URL1), "Expected %s, got %s\n", CREATE_URL1, szUrl);
 863
 864         /* valid username, NULL password */
 865         fill_url_components(&urlComp);
 866         SetLastError(0xdeadbeef);
 867         urlComp.lpszPassword = NULL;
 868         len = 42;
 869         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 870         ok(ret, "Expected success\n");
 871         ok(GetLastError() == 0xdeadbeef,
 872                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 873         ok(len == 41, "Expected len 41, got %d\n", len);
 874         ok(!strcmp(szUrl, CREATE_URL2), "Expected %s, got %s\n", CREATE_URL2, szUrl);
 875
 876         /* valid username, empty password */
 877         fill_url_components(&urlComp);
 878         SetLastError(0xdeadbeef);
 879         urlComp.lpszPassword = empty;
 880         len = 51;
 881         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 882         ok(ret, "Expected success\n");
 883         ok(GetLastError() == 0xdeadbeef,
 884                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 885         ok(len == 50, "Expected len 50, got %d\n", len);
 886         ok(!strcmp(szUrl, CREATE_URL3), "Expected %s, got %s\n", CREATE_URL3, szUrl);
 887
 888         /* valid password, NULL username
 889          * if password is provided, username has to exist
 890          */
 891         fill_url_components(&urlComp);
 892         SetLastError(0xdeadbeef);
 893         urlComp.lpszUserName = NULL;
 894         len = 42;
 895         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 896         ok(!ret, "Expected failure\n");
 897         ok(GetLastError() == ERROR_INVALID_PARAMETER,
 898                 "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 899         ok(len == 42, "Expected len 42, got %d\n", len);
 900         ok(!strcmp(szUrl, CREATE_URL3), "Expected %s, got %s\n", CREATE_URL3, szUrl);
 901
 902         /* valid password, empty username
 903          * if password is provided, username has to exist
 904          */
 905         fill_url_components(&urlComp);
 906         SetLastError(0xdeadbeef);
 907         urlComp.lpszUserName = empty;
 908         len = 51;
 909         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 910         ok(ret, "Expected success\n");
 911         ok(GetLastError() == 0xdeadbeef,
 912                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 913         ok(len == 50, "Expected len 50, got %d\n", len);
 914         ok(!strcmp(szUrl, CREATE_URL5), "Expected %s, got %s\n", CREATE_URL5, szUrl);
 915
 916         /* NULL username, NULL password */
 917         fill_url_components(&urlComp);
 918         SetLastError(0xdeadbeef);
 919         urlComp.lpszUserName = NULL;
 920         urlComp.lpszPassword = NULL;
 921         len = 42;
 922         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 923         ok(ret, "Expected success\n");
 924         ok(GetLastError() == 0xdeadbeef,
 925                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 926         ok(len == 32, "Expected len 32, got %d\n", len);
 927         ok(!strcmp(szUrl, CREATE_URL4), "Expected %s, got %s\n", CREATE_URL4, szUrl);
 928
 929         /* empty username, empty password */
 930         fill_url_components(&urlComp);
 931         SetLastError(0xdeadbeef);
 932         urlComp.lpszUserName = empty;
 933         urlComp.lpszPassword = empty;
 934         len = 51;
 935         ret = InternetCreateUrlA(&urlComp, 0, szUrl, &len);
 936         ok(ret, "Expected success\n");
 937         ok(GetLastError() == 0xdeadbeef,
 938                 "Expected 0xdeadbeef, got %d\n", GetLastError());
 939         ok(len == 50, "Expected len 50, got %d\n", len);
 940         ok(!strcmp(szUrl, CREATE_URL5), "Expected %s, got %s\n", CREATE_URL5, szUrl);
 941
 942         /* shows that nScheme is ignored, as the appearance of the port number
 943          * depends on lpszScheme and the string copied depends on lpszScheme.
 944          */
 945         fill_url_components(&urlComp);
 946         HeapFree(GetProcessHeap(), 0, szUrl);
 947         urlComp.lpszScheme = nhttp;
 948         urlComp.dwSchemeLength = strlen(urlComp.lpszScheme);
 949         len = strlen(CREATE_URL6) + 1;
 950         szUrl = HeapAlloc(GetProcessHeap(), 0, len);
 951         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
 952         ok(ret, "Expected success\n");
 953         ok(len == strlen(CREATE_URL6), "Expected len %d, got %d\n", lstrlenA(CREATE_URL6) + 1, len);
 954         ok(!strcmp(szUrl, CREATE_URL6), "Expected %s, got %s\n", CREATE_URL6, szUrl);
 955
 956         /* if lpszScheme != "http" or nPort != 80, display nPort */
 957         HeapFree(GetProcessHeap(), 0, szUrl);
 958         urlComp.lpszScheme = http;
 959         urlComp.dwSchemeLength = strlen(urlComp.lpszScheme);
 960         urlComp.nPort = 42;
 961         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
 962         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
 963         ok(ret, "Expected success\n");
 964         ok(len == 53, "Expected len 53, got %d\n", len);
 965         ok(strstr(szUrl, "42") != NULL, "Expected to find 42 in szUrl\n");
 966         ok(!strcmp(szUrl, CREATE_URL7), "Expected %s, got %s\n", CREATE_URL7, szUrl);
 967
 968         HeapFree(GetProcessHeap(), 0, szUrl);
 969
 970         memset(&urlComp, 0, sizeof(urlComp));
 971         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
 972         urlComp.lpszScheme = http;
 973         urlComp.dwSchemeLength = 0;
 974         urlComp.nScheme = INTERNET_SCHEME_HTTP;
 975         urlComp.lpszHostName = winehq;
 976         urlComp.dwHostNameLength = 0;
 977         urlComp.nPort = 80;
 978         urlComp.lpszUserName = username;
 979         urlComp.dwUserNameLength = 0;
 980         urlComp.lpszPassword = password;
 981         urlComp.dwPasswordLength = 0;
 982         urlComp.lpszUrlPath = site_about;
 983         urlComp.dwUrlPathLength = 0;
 984         urlComp.lpszExtraInfo = empty;
 985         urlComp.dwExtraInfoLength = 0;
 986         len = strlen(CREATE_URL1);
 987         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
 988         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
 989         ok(ret, "Expected success\n");
 990         ok(len == strlen(CREATE_URL1), "Expected len %d, got %d\n", lstrlenA(CREATE_URL1), len);
 991         ok(!strcmp(szUrl, CREATE_URL1), "Expected %s, got %s\n", CREATE_URL1, szUrl);
 992
 993         HeapFree(GetProcessHeap(), 0, szUrl);
 994
 995         memset(&urlComp, 0, sizeof(urlComp));
 996         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
 997         urlComp.lpszScheme = https;
 998         urlComp.dwSchemeLength = 0;
 999         urlComp.nScheme = INTERNET_SCHEME_HTTP;
1000         urlComp.lpszHostName = winehq;
1001         urlComp.dwHostNameLength = 0;
1002         urlComp.nPort = 443;
1003         urlComp.lpszUserName = username;
1004         urlComp.dwUserNameLength = 0;
1005         urlComp.lpszPassword = password;
1006         urlComp.dwPasswordLength = 0;
1007         urlComp.lpszUrlPath = site_about;
1008         urlComp.dwUrlPathLength = 0;
1009         urlComp.lpszExtraInfo = empty;
1010         urlComp.dwExtraInfoLength = 0;
1011         len = strlen(CREATE_URL8);
1012         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
1013         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1014         ok(ret, "Expected success\n");
1015         ok(len == strlen(CREATE_URL8), "Expected len %d, got %d\n", lstrlenA(CREATE_URL8), len);
1016         ok(!strcmp(szUrl, CREATE_URL8), "Expected %s, got %s\n", CREATE_URL8, szUrl);
1017
1018         HeapFree(GetProcessHeap(), 0, szUrl);
1019
1020         memset(&urlComp, 0, sizeof(urlComp));
1021         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
1022         urlComp.lpszScheme = about;
1023         urlComp.dwSchemeLength = 5;
1024         urlComp.lpszUrlPath = blank;
1025         urlComp.dwUrlPathLength = 5;
1026         len = strlen(CREATE_URL9);
1027         len++; /* work around bug in native wininet */
1028         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
1029         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1030         ok(ret, "Expected success\n");
1031         ok(len == strlen(CREATE_URL9), "Expected len %d, got %d\n", lstrlenA(CREATE_URL9), len);
1032         ok(!strcmp(szUrl, CREATE_URL9), "Expected %s, got %s\n", CREATE_URL9, szUrl);
1033
1034         HeapFree(GetProcessHeap(), 0, szUrl);
1035
1036         memset(&urlComp, 0, sizeof(urlComp));
1037         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
1038         urlComp.lpszScheme = about;
1039         urlComp.lpszHostName = host;
1040         urlComp.lpszUrlPath = blank;
1041         len = strlen(CREATE_URL10);
1042         len++; /* work around bug in native wininet */
1043         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
1044         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1045         ok(ret, "Expected success\n");
1046         ok(len == strlen(CREATE_URL10), "Expected len %d, got %d\n", lstrlenA(CREATE_URL10), len);
1047         ok(!strcmp(szUrl, CREATE_URL10), "Expected %s, got %s\n", CREATE_URL10, szUrl);
1048
1049         HeapFree(GetProcessHeap(), 0, szUrl);
1050
1051         memset(&urlComp, 0, sizeof(urlComp));
1052         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
1053         urlComp.nPort = 8080;
1054         urlComp.lpszScheme = about;
1055         len = strlen(CREATE_URL11);
1056         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
1057         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1058         ok(ret, "Expected success\n");
1059         ok(len == strlen(CREATE_URL11), "Expected len %d, got %d\n", lstrlenA(CREATE_URL11), len);
1060         ok(!strcmp(szUrl, CREATE_URL11), "Expected %s, got %s\n", CREATE_URL11, szUrl);
1061
1062         HeapFree(GetProcessHeap(), 0, szUrl);
1063
1064         memset(&urlComp, 0, sizeof(urlComp));
1065         urlComp.dwStructSize = sizeof(URL_COMPONENTS);
1066         urlComp.lpszScheme = http;
1067         urlComp.dwSchemeLength = 0;
1068         urlComp.nScheme = INTERNET_SCHEME_HTTP;
1069         urlComp.lpszHostName = winehq;
1070         urlComp.dwHostNameLength = 0;
1071         urlComp.nPort = 65535;
1072         len = strlen(CREATE_URL12);
1073         szUrl = HeapAlloc(GetProcessHeap(), 0, ++len);
1074         ret = InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1075         ok(ret, "Expected success\n");
1076         ok(len == strlen(CREATE_URL12), "Expected len %d, got %d\n", lstrlenA(CREATE_URL12), len);
1077         ok(!strcmp(szUrl, CREATE_URL12), "Expected %s, got %s\n", CREATE_URL12, szUrl);
1078
1079         HeapFree(GetProcessHeap(), 0, szUrl);
1080
1081     memset(&urlComp, 0, sizeof(urlComp));
1082     urlComp.dwStructSize = sizeof(URL_COMPONENTS);
1083     urlComp.lpszScheme = http;
1084     urlComp.dwSchemeLength = strlen(urlComp.lpszScheme);
1085     urlComp.lpszHostName = localhost;
1086     urlComp.dwHostNameLength = strlen(urlComp.lpszHostName);
1087     urlComp.nPort = 80;
1088     urlComp.lpszUrlPath = root;
1089     urlComp.dwUrlPathLength = strlen(urlComp.lpszUrlPath);
1090     urlComp.lpszExtraInfo = extra_info;
1091     urlComp.dwExtraInfoLength = strlen(urlComp.lpszExtraInfo);
1092     len = 256;
1093     szUrl = HeapAlloc(GetProcessHeap(), 0, len);
1094     InternetCreateUrlA(&urlComp, ICU_ESCAPE, szUrl, &len);
1095     ok(ret, "Expected success\n");
1096     ok(len == strlen(CREATE_URL13), "Got len %u\n", len);
1097     ok(!strcmp(szUrl, CREATE_URL13), "Expected \"%s\", got \"%s\"\n", CREATE_URL13, szUrl);
1098
1099     HeapFree(GetProcessHeap(), 0, szUrl);
1100 }
1101
1102 START_TEST(url)
1103 {
1104     int i;
1105
1106     if(!GetProcAddress(GetModuleHandleA("wininet.dll"), "InternetGetCookieExW")) {
1107         win_skip("Too old IE (older than 6.0)\n");
1108         return;
1109     }
1110
1111     for(i=0; i < sizeof(crack_url_tests)/sizeof(*crack_url_tests); i++)
1112         test_crack_url(crack_url_tests+i);
1113
1114     InternetCrackUrl_test();
1115     InternetCrackUrlW_test();
1116     InternetCreateUrlA_test();
1117 }