dinput: Fix printing NULL strings.
[wine] / dlls / shlwapi / tests / url.c
1 /* Unit test suite for Path functions
2  *
3  * Copyright 2002 Matthew Mastracci
4  * Copyright 2007-2010 Detlef Riekenberg
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <stdarg.h>
22 #include <stdio.h>
23
24 #include "wine/test.h"
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winreg.h"
28 #include "shlwapi.h"
29 #include "wininet.h"
30 #include "intshcut.h"
31
32 /* ################ */
33 static HMODULE hShlwapi;
34 static HRESULT (WINAPI *pUrlUnescapeA)(LPSTR,LPSTR,LPDWORD,DWORD);
35 static HRESULT (WINAPI *pUrlUnescapeW)(LPWSTR,LPWSTR,LPDWORD,DWORD);
36 static BOOL    (WINAPI *pUrlIsA)(LPCSTR,URLIS);
37 static BOOL    (WINAPI *pUrlIsW)(LPCWSTR,URLIS);
38 static HRESULT (WINAPI *pUrlHashA)(LPCSTR,LPBYTE,DWORD);
39 static HRESULT (WINAPI *pUrlHashW)(LPCWSTR,LPBYTE,DWORD);
40 static HRESULT (WINAPI *pUrlGetPartA)(LPCSTR,LPSTR,LPDWORD,DWORD,DWORD);
41 static HRESULT (WINAPI *pUrlGetPartW)(LPCWSTR,LPWSTR,LPDWORD,DWORD,DWORD);
42 static HRESULT (WINAPI *pUrlEscapeA)(LPCSTR,LPSTR,LPDWORD,DWORD);
43 static HRESULT (WINAPI *pUrlEscapeW)(LPCWSTR,LPWSTR,LPDWORD,DWORD);
44 static HRESULT (WINAPI *pUrlCreateFromPathA)(LPCSTR,LPSTR,LPDWORD,DWORD);
45 static HRESULT (WINAPI *pUrlCreateFromPathW)(LPCWSTR,LPWSTR,LPDWORD,DWORD);
46 static HRESULT (WINAPI *pUrlCombineA)(LPCSTR,LPCSTR,LPSTR,LPDWORD,DWORD);
47 static HRESULT (WINAPI *pUrlCombineW)(LPCWSTR,LPCWSTR,LPWSTR,LPDWORD,DWORD);
48 static HRESULT (WINAPI *pUrlCanonicalizeA)(LPCSTR, LPSTR, LPDWORD, DWORD);
49 static HRESULT (WINAPI *pUrlCanonicalizeW)(LPCWSTR, LPWSTR, LPDWORD, DWORD);
50 static HRESULT (WINAPI *pUrlApplySchemeA)(LPCSTR,LPSTR,LPDWORD,DWORD);
51 static HRESULT (WINAPI *pUrlApplySchemeW)(LPCWSTR,LPWSTR,LPDWORD,DWORD);
52 static HRESULT (WINAPI *pParseURLA)(LPCSTR,PARSEDURLA*);
53 static HRESULT (WINAPI *pParseURLW)(LPCWSTR,PARSEDURLW*);
54 static HRESULT (WINAPI *pHashData)(LPBYTE, DWORD, LPBYTE, DWORD);
55
56 static const char* TEST_URL_1 = "http://www.winehq.org/tests?date=10/10/1923";
57 static const char* TEST_URL_2 = "http://localhost:8080/tests%2e.html?date=Mon%2010/10/1923";
58 static const char* TEST_URL_3 = "http://foo:bar@localhost:21/internal.php?query=x&return=y";
59 static const char* TEST_URL_4 = "http://foo:bar@google.*.com:21/internal.php?query=x&return=y";
60
61 static const WCHAR winehqW[] = {'h','t','t','p',':','/','/','w','w','w','.','w','i','n','e','h','q','.','o','r','g','/',0};
62 static const  CHAR winehqA[] = {'h','t','t','p',':','/','/','w','w','w','.','w','i','n','e','h','q','.','o','r','g','/',0};
63
64 /* ################ */
65
66 static const CHAR untouchedA[] = "untouched";
67
68 #define TEST_APPLY_MAX_LENGTH INTERNET_MAX_URL_LENGTH
69
70 typedef struct _TEST_URL_APPLY {
71     const char * url;
72     DWORD flags;
73     HRESULT res;
74     DWORD newlen;
75     const char * newurl;
76 } TEST_URL_APPLY;
77
78 static const TEST_URL_APPLY TEST_APPLY[] = {
79     {"www.winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT, S_OK, 21, "http://www.winehq.org"},
80     {"www.winehq.org", URL_APPLY_GUESSSCHEME, S_OK, 21, "http://www.winehq.org"},
81     {"www.winehq.org", URL_APPLY_DEFAULT, S_OK, 21, "http://www.winehq.org"},
82     {"ftp.winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT, S_OK, 20, "ftp://ftp.winehq.org"},
83     {"ftp.winehq.org", URL_APPLY_GUESSSCHEME, S_OK, 20, "ftp://ftp.winehq.org"},
84     {"ftp.winehq.org", URL_APPLY_DEFAULT, S_OK, 21, "http://ftp.winehq.org"},
85     {"winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT, S_OK, 17, "http://winehq.org"},
86     {"winehq.org", URL_APPLY_GUESSSCHEME, S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
87     {"winehq.org", URL_APPLY_DEFAULT, S_OK, 17, "http://winehq.org"},
88     {"http://www.winehq.org", URL_APPLY_GUESSSCHEME , S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
89     {"http://www.winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_FORCEAPPLY, S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
90     {"http://www.winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_FORCEAPPLY | URL_APPLY_DEFAULT, S_OK, 28, "http://http://www.winehq.org"},
91     {"http://www.winehq.org", URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT, S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
92     {"", URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT, S_OK, 7, "http://"},
93     {"", URL_APPLY_GUESSSCHEME, S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
94     {"", URL_APPLY_DEFAULT, S_OK, 7, "http://"},
95     {"u:\\windows", URL_APPLY_GUESSFILE | URL_APPLY_DEFAULT, S_OK, 18, "file:///u:/windows"},
96     {"u:\\windows", URL_APPLY_GUESSFILE, S_OK, 18, "file:///u:/windows"},
97     {"u:\\windows", URL_APPLY_DEFAULT, S_OK, 17, "http://u:\\windows"},
98     {"file:///c:/windows", URL_APPLY_GUESSFILE , S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
99     {"aa:\\windows", URL_APPLY_GUESSFILE , S_FALSE, TEST_APPLY_MAX_LENGTH, untouchedA},
100 };
101
102 /* ################ */
103
104 typedef struct _TEST_URL_CANONICALIZE {
105     const char *url;
106     DWORD flags;
107     HRESULT expectret;
108     const char *expecturl;
109     BOOL todo;
110 } TEST_URL_CANONICALIZE;
111
112 static const TEST_URL_CANONICALIZE TEST_CANONICALIZE[] = {
113     {"http://www.winehq.org/tests/../tests/../..", 0, S_OK, "http://www.winehq.org/", TRUE},
114     {"http://www.winehq.org/..", 0, S_OK, "http://www.winehq.org/..", FALSE},
115     {"http://www.winehq.org/tests/tests2/../../tests", 0, S_OK, "http://www.winehq.org/tests", FALSE},
116     {"http://www.winehq.org/tests/../tests", 0, S_OK, "http://www.winehq.org/tests", FALSE},
117     {"http://www.winehq.org/tests\n", URL_WININET_COMPATIBILITY|URL_ESCAPE_SPACES_ONLY|URL_ESCAPE_UNSAFE, S_OK, "http://www.winehq.org/tests", FALSE},
118     {"http://www.winehq.org/tests\r", URL_WININET_COMPATIBILITY|URL_ESCAPE_SPACES_ONLY|URL_ESCAPE_UNSAFE, S_OK, "http://www.winehq.org/tests", FALSE},
119     {"http://www.winehq.org/tests\r", 0, S_OK, "http://www.winehq.org/tests", FALSE},
120     {"http://www.winehq.org/tests\r", URL_DONT_SIMPLIFY, S_OK, "http://www.winehq.org/tests", FALSE},
121     {"http://www.winehq.org/tests/../tests/", 0, S_OK, "http://www.winehq.org/tests/", FALSE},
122     {"http://www.winehq.org/tests/../tests/..", 0, S_OK, "http://www.winehq.org/", FALSE},
123     {"http://www.winehq.org/tests/../tests/../", 0, S_OK, "http://www.winehq.org/", FALSE},
124     {"http://www.winehq.org/tests/..", 0, S_OK, "http://www.winehq.org/", FALSE},
125     {"http://www.winehq.org/tests/../", 0, S_OK, "http://www.winehq.org/", FALSE},
126     {"http://www.winehq.org/tests/..?query=x&return=y", 0, S_OK, "http://www.winehq.org/?query=x&return=y", FALSE},
127     {"http://www.winehq.org/tests/../?query=x&return=y", 0, S_OK, "http://www.winehq.org/?query=x&return=y", FALSE},
128     {"\tht\ttp\t://www\t.w\tineh\t\tq.or\tg\t/\ttests/..\t?\tquer\ty=x\t\t&re\tturn=y\t\t", 0, S_OK, "http://www.winehq.org/?query=x&return=y", FALSE},
129     {"http://www.winehq.org/tests/..#example", 0, S_OK, "http://www.winehq.org/#example", FALSE},
130     {"http://www.winehq.org/tests/../#example", 0, S_OK, "http://www.winehq.org/#example", FALSE},
131     {"http://www.winehq.org/tests\\../#example", 0, S_OK, "http://www.winehq.org/#example", FALSE},
132     {"http://www.winehq.org/tests/..\\#example", 0, S_OK, "http://www.winehq.org/#example", FALSE},
133     {"http://www.winehq.org\\tests/../#example", 0, S_OK, "http://www.winehq.org/#example", FALSE},
134     {"http://www.winehq.org/tests/../#example", URL_DONT_SIMPLIFY, S_OK, "http://www.winehq.org/tests/../#example", FALSE},
135     {"http://www.winehq.org/tests/foo bar", URL_ESCAPE_SPACES_ONLY| URL_DONT_ESCAPE_EXTRA_INFO , S_OK, "http://www.winehq.org/tests/foo%20bar", FALSE},
136     {"http://www.winehq.org/tests/foo%20bar", URL_UNESCAPE , S_OK, "http://www.winehq.org/tests/foo bar", FALSE},
137     {"http://www.winehq.org", 0, S_OK, "http://www.winehq.org/", FALSE},
138     {"http:///www.winehq.org", 0, S_OK, "http:///www.winehq.org", FALSE},
139     {"http:////www.winehq.org", 0, S_OK, "http:////www.winehq.org", FALSE},
140     {"file:///c:/tests/foo%20bar", URL_UNESCAPE , S_OK, "file:///c:/tests/foo bar", FALSE},
141     {"file:///c:/tests\\foo%20bar", URL_UNESCAPE , S_OK, "file:///c:/tests/foo bar", FALSE},
142     {"file:///c:/tests/foo%20bar", 0, S_OK, "file:///c:/tests/foo%20bar", FALSE},
143     {"file:///c:/tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
144     {"file://localhost/c:/tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
145     {"file://localhost\\c:/tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
146     {"file://localhost\\\\c:/tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
147     {"file://localhost\\c:\\tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
148     {"file://c:/tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
149     {"file://c:/tests\\../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
150     {"file://c:/tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
151     {"file:///c://tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\\\tests\\foo bar", FALSE},
152     {"file:///c:\\tests\\foo bar", 0, S_OK, "file:///c:/tests/foo bar", FALSE},
153     {"file:///c:\\tests\\foo bar", URL_DONT_SIMPLIFY, S_OK, "file:///c:/tests/foo bar", FALSE},
154     {"file:///c:\\tests\\foobar", 0, S_OK, "file:///c:/tests/foobar", FALSE},
155     {"file:///c:\\tests\\foobar", URL_WININET_COMPATIBILITY, S_OK, "file://c:\\tests\\foobar", FALSE},
156     {"file://home/user/file", 0, S_OK, "file://home/user/file", FALSE},
157     {"file:///home/user/file", 0, S_OK, "file:///home/user/file", FALSE},
158     {"file:////home/user/file", 0, S_OK, "file://home/user/file", FALSE},
159     {"file://home/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://\\\\home\\user\\file", FALSE},
160     {"file:///home/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://\\home\\user\\file", FALSE},
161     {"file:////home/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://\\\\home\\user\\file", FALSE},
162     {"file://///home/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://\\\\home\\user\\file", FALSE},
163     {"file://C:/user/file", 0, S_OK, "file:///C:/user/file", FALSE},
164     {"file://C:/user/file/../asdf", 0, S_OK, "file:///C:/user/asdf", FALSE},
165     {"file:///C:/user/file", 0, S_OK, "file:///C:/user/file", FALSE},
166     {"file:////C:/user/file", 0, S_OK, "file:///C:/user/file", FALSE},
167     {"file://C:/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://C:\\user\\file", FALSE},
168     {"file:///C:/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://C:\\user\\file", FALSE},
169     {"file:////C:/user/file", URL_WININET_COMPATIBILITY, S_OK, "file://C:\\user\\file", FALSE},
170     {"http:///www.winehq.org", 0, S_OK, "http:///www.winehq.org", FALSE},
171     {"http:///www.winehq.org", URL_WININET_COMPATIBILITY, S_OK, "http:///www.winehq.org", FALSE},
172     {"http://www.winehq.org/site/about", URL_FILE_USE_PATHURL, S_OK, "http://www.winehq.org/site/about", FALSE},
173     {"file_://www.winehq.org/site/about", URL_FILE_USE_PATHURL, S_OK, "file_://www.winehq.org/site/about", FALSE},
174     {"c:\\dir\\file", 0, S_OK, "file:///c:/dir/file", FALSE},
175     {"file:///c:\\dir\\file", 0, S_OK, "file:///c:/dir/file", FALSE},
176     {"c:dir\\file", 0, S_OK, "file:///c:dir/file", FALSE},
177     {"c:\\tests\\foo bar", URL_FILE_USE_PATHURL, S_OK, "file://c:\\tests\\foo bar", FALSE},
178     {"c:\\tests\\foo bar", 0, S_OK, "file:///c:/tests/foo%20bar", FALSE},
179     {"c\t:\t\\te\tsts\\fo\to \tbar\t", 0, S_OK, "file:///c:/tests/foo%20bar", FALSE},
180     {"res://file", 0, S_OK, "res://file/", FALSE},
181     {"res://file", URL_FILE_USE_PATHURL, S_OK, "res://file/", FALSE},
182     {"res:///c:/tests/foo%20bar", URL_UNESCAPE , S_OK, "res:///c:/tests/foo bar", FALSE},
183     {"res:///c:/tests\\foo%20bar", URL_UNESCAPE , S_OK, "res:///c:/tests\\foo bar", FALSE},
184     {"res:///c:/tests/foo%20bar", 0, S_OK, "res:///c:/tests/foo%20bar", FALSE},
185     {"res:///c:/tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "res:///c:/tests/foo%20bar", FALSE},
186     {"res://c:/tests/../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "res://c:/tests/foo%20bar", FALSE},
187     {"res://c:/tests\\../tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "res://c:/tests/foo%20bar", FALSE},
188     {"res://c:/tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "res://c:/tests/foo%20bar", FALSE},
189     {"res:///c://tests/foo%20bar", URL_FILE_USE_PATHURL, S_OK, "res:///c://tests/foo%20bar", FALSE},
190     {"res:///c:\\tests\\foo bar", 0, S_OK, "res:///c:\\tests\\foo bar", FALSE},
191     {"res:///c:\\tests\\foo bar", URL_DONT_SIMPLIFY, S_OK, "res:///c:\\tests\\foo bar", FALSE},
192     {"res://c:\\tests\\foo bar/res", URL_FILE_USE_PATHURL, S_OK, "res://c:\\tests\\foo bar/res", FALSE},
193     {"res://c:\\tests/res\\foo%20bar/strange\\sth", 0, S_OK, "res://c:\\tests/res\\foo%20bar/strange\\sth", FALSE},
194     {"res://c:\\tests/res\\foo%20bar/strange\\sth", URL_FILE_USE_PATHURL, S_OK, "res://c:\\tests/res\\foo%20bar/strange\\sth", FALSE},
195     {"res://c:\\tests/res\\foo%20bar/strange\\sth", URL_UNESCAPE, S_OK, "res://c:\\tests/res\\foo bar/strange\\sth", FALSE},
196     {"A", 0, S_OK, "A", FALSE},
197     {"../A", 0, S_OK, "../A", FALSE},
198     {"A/../B", 0, S_OK, "B", TRUE},
199     {"/uri-res/N2R?urn:sha1:B3K", URL_DONT_ESCAPE_EXTRA_INFO | URL_WININET_COMPATIBILITY /*0x82000000*/, S_OK, "/uri-res/N2R?urn:sha1:B3K", FALSE} /*LimeWire online installer calls this*/,
200     {"http:www.winehq.org/dir/../index.html", 0, S_OK, "http:www.winehq.org/index.html"},
201     {"http://localhost/test.html", URL_FILE_USE_PATHURL, S_OK, "http://localhost/test.html"},
202     {"http://localhost/te%20st.html", URL_FILE_USE_PATHURL, S_OK, "http://localhost/te%20st.html"},
203     {"http://www.winehq.org/%E6%A1%9C.html", URL_FILE_USE_PATHURL, S_OK, "http://www.winehq.org/%E6%A1%9C.html"},
204     {"mk:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", 0, S_OK, "mk:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
205     {"ftp:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", 0, S_OK, "ftp:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
206     {"file:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", 0, S_OK, "file:@MSITStore:C:/Program Files/AutoCAD 2008/Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
207     {"http:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", 0, S_OK, "http:@MSITStore:C:/Program Files/AutoCAD 2008/Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
208     {"http:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", URL_FILE_USE_PATHURL, S_OK, "http:@MSITStore:C:/Program Files/AutoCAD 2008/Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
209     {"mk:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm", URL_FILE_USE_PATHURL, S_OK, "mk:@MSITStore:C:\\Program Files/AutoCAD 2008\\Help/acad_acg.chm::/WSfacf1429558a55de1a7524c1004e616f8b-322b.htm"},
210 };
211
212 /* ################ */
213
214 typedef struct _TEST_URL_ESCAPE {
215     const char *url;
216     DWORD flags;
217     DWORD expectescaped;
218     HRESULT expectret;
219     const char *expecturl;
220 } TEST_URL_ESCAPE;
221
222 static const TEST_URL_ESCAPE TEST_ESCAPE[] = {
223     {"http://www.winehq.org/tests0", 0, 0, S_OK, "http://www.winehq.org/tests0"},
224     {"http://www.winehq.org/tests1\n", 0, 0, S_OK, "http://www.winehq.org/tests1%0A"},
225     {"http://www.winehq.org/tests2\r", 0, 0, S_OK, "http://www.winehq.org/tests2%0D"},
226     {"http://www.winehq.org/tests3\r", URL_ESCAPE_SPACES_ONLY|URL_ESCAPE_UNSAFE, 0, S_OK, "http://www.winehq.org/tests3\r"},
227     {"http://www.winehq.org/tests4\r", URL_ESCAPE_SPACES_ONLY, 0, S_OK, "http://www.winehq.org/tests4\r"},
228     {"http://www.winehq.org/tests5\r", URL_WININET_COMPATIBILITY|URL_ESCAPE_SPACES_ONLY, 0, S_OK, "http://www.winehq.org/tests5\r"},
229     {"/direct/swhelp/series6/6.2i_latestservicepack.dat\r", URL_ESCAPE_SPACES_ONLY, 0, S_OK, "/direct/swhelp/series6/6.2i_latestservicepack.dat\r"},
230
231     {"file://////foo/bar\\baz", 0, 0, S_OK, "file://foo/bar/baz"},
232     {"file://///foo/bar\\baz", 0, 0, S_OK, "file://foo/bar/baz"},
233     {"file:////foo/bar\\baz", 0, 0, S_OK, "file://foo/bar/baz"},
234     {"file:///localhost/foo/bar\\baz", 0, 0, S_OK, "file:///localhost/foo/bar/baz"},
235     {"file:///foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
236     {"file://loCalHost/foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
237     {"file://foo/bar\\baz", 0, 0, S_OK, "file://foo/bar/baz"},
238     {"file:/localhost/foo/bar\\baz", 0, 0, S_OK, "file:///localhost/foo/bar/baz"},
239     {"file:/foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
240     {"file:foo/bar\\baz", 0, 0, S_OK, "file:foo/bar/baz"},
241     {"file:\\foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
242     {"file:\\\\foo/bar\\baz", 0, 0, S_OK, "file://foo/bar/baz"},
243     {"file:\\\\\\foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
244     {"file:\\\\localhost\\foo/bar\\baz", 0, 0, S_OK, "file:///foo/bar/baz"},
245     {"file:///f oo/b?a r\\baz", 0, 0, S_OK, "file:///f%20oo/b?a r\\baz"},
246     {"file:///foo/b#a r\\baz", 0, 0, S_OK, "file:///foo/b%23a%20r/baz"},
247     {"file:///f o^&`{}|][\"<>\\%o/b#a r\\baz", 0, 0, S_OK, "file:///f%20o%5E%26%60%7B%7D%7C%5D%5B%22%3C%3E/%o/b%23a%20r/baz"},
248     {"file:///f o%o/b?a r\\b%az", URL_ESCAPE_PERCENT, 0, S_OK, "file:///f%20o%25o/b?a r\\b%az"},
249     {"file:/foo/bar\\baz", URL_ESCAPE_SEGMENT_ONLY, 0, S_OK, "file:%2Ffoo%2Fbar%5Cbaz"},
250
251     {"foo/b%ar\\ba?z\\", URL_ESCAPE_SEGMENT_ONLY, 0, S_OK, "foo%2Fb%ar%5Cba%3Fz%5C"},
252     {"foo/b%ar\\ba?z\\", URL_ESCAPE_PERCENT | URL_ESCAPE_SEGMENT_ONLY, 0, S_OK, "foo%2Fb%25ar%5Cba%3Fz%5C"},
253     {"foo/bar\\ba?z\\", 0, 0, S_OK, "foo/bar%5Cba?z\\"},
254     {"/foo/bar\\ba?z\\", 0, 0, S_OK, "/foo/bar%5Cba?z\\"},
255     {"/foo/bar\\ba#z\\", 0, 0, S_OK, "/foo/bar%5Cba#z\\"},
256     {"/foo/%5C", 0, 0, S_OK, "/foo/%5C"},
257     {"/foo/%5C", URL_ESCAPE_PERCENT, 0, S_OK, "/foo/%255C"},
258
259     {"http://////foo/bar\\baz", 0, 0, S_OK, "http://////foo/bar/baz"},
260     {"http://///foo/bar\\baz", 0, 0, S_OK, "http://///foo/bar/baz"},
261     {"http:////foo/bar\\baz", 0, 0, S_OK, "http:////foo/bar/baz"},
262     {"http:///foo/bar\\baz", 0, 0, S_OK, "http:///foo/bar/baz"},
263     {"http://localhost/foo/bar\\baz", 0, 0, S_OK, "http://localhost/foo/bar/baz"},
264     {"http://foo/bar\\baz", 0, 0, S_OK, "http://foo/bar/baz"},
265     {"http:/foo/bar\\baz", 0, 0, S_OK, "http:/foo/bar/baz"},
266     {"http:foo/bar\\ba?z\\", 0, 0, S_OK, "http:foo%2Fbar%2Fba?z\\"},
267     {"http:foo/bar\\ba#z\\", 0, 0, S_OK, "http:foo%2Fbar%2Fba#z\\"},
268     {"http:\\foo/bar\\baz", 0, 0, S_OK, "http:/foo/bar/baz"},
269     {"http:\\\\foo/bar\\baz", 0, 0, S_OK, "http://foo/bar/baz"},
270     {"http:\\\\\\foo/bar\\baz", 0, 0, S_OK, "http:///foo/bar/baz"},
271     {"http:\\\\\\\\foo/bar\\baz", 0, 0, S_OK, "http:////foo/bar/baz"},
272     {"http:/fo ?o/b ar\\baz", 0, 0, S_OK, "http:/fo%20?o/b ar\\baz"},
273     {"http:fo ?o/b ar\\baz", 0, 0, S_OK, "http:fo%20?o/b ar\\baz"},
274     {"http:/foo/bar\\baz", URL_ESCAPE_SEGMENT_ONLY, 0, S_OK, "http:%2Ffoo%2Fbar%5Cbaz"},
275
276     {"https://foo/bar\\baz", 0, 0, S_OK, "https://foo/bar/baz"},
277     {"https:/foo/bar\\baz", 0, 0, S_OK, "https:/foo/bar/baz"},
278     {"https:\\foo/bar\\baz", 0, 0, S_OK, "https:/foo/bar/baz"},
279
280     {"foo:////foo/bar\\baz", 0, 0, S_OK, "foo:////foo/bar%5Cbaz"},
281     {"foo:///foo/bar\\baz", 0, 0, S_OK, "foo:///foo/bar%5Cbaz"},
282     {"foo://localhost/foo/bar\\baz", 0, 0, S_OK, "foo://localhost/foo/bar%5Cbaz"},
283     {"foo://foo/bar\\baz", 0, 0, S_OK, "foo://foo/bar%5Cbaz"},
284     {"foo:/foo/bar\\baz", 0, 0, S_OK, "foo:/foo/bar%5Cbaz"},
285     {"foo:foo/bar\\baz", 0, 0, S_OK, "foo:foo%2Fbar%5Cbaz"},
286     {"foo:\\foo/bar\\baz", 0, 0, S_OK, "foo:%5Cfoo%2Fbar%5Cbaz"},
287     {"foo:/foo/bar\\ba?\\z", 0, 0, S_OK, "foo:/foo/bar%5Cba?\\z"},
288     {"foo:/foo/bar\\ba#\\z", 0, 0, S_OK, "foo:/foo/bar%5Cba#\\z"},
289
290     {"mailto:/fo/o@b\\%a?\\r.b#\\az", 0, 0, S_OK, "mailto:%2Ffo%2Fo@b%5C%a%3F%5Cr.b%23%5Caz"},
291     {"mailto:fo/o@b\\%a?\\r.b#\\az", 0, 0, S_OK, "mailto:fo%2Fo@b%5C%a%3F%5Cr.b%23%5Caz"},
292     {"mailto:fo/o@b\\%a?\\r.b#\\az", URL_ESCAPE_PERCENT, 0, S_OK, "mailto:fo%2Fo@b%5C%25a%3F%5Cr.b%23%5Caz"},
293
294     {"ftp:fo/o@bar.baz/foo/bar", 0, 0, S_OK, "ftp:fo%2Fo@bar.baz%2Ffoo%2Fbar"},
295     {"ftp:/fo/o@bar.baz/foo/bar", 0, 0, S_OK, "ftp:/fo/o@bar.baz/foo/bar"},
296     {"ftp://fo/o@bar.baz/fo?o\\bar", 0, 0, S_OK, "ftp://fo/o@bar.baz/fo?o\\bar"},
297     {"ftp://fo/o@bar.baz/fo#o\\bar", 0, 0, S_OK, "ftp://fo/o@bar.baz/fo#o\\bar"},
298     {"ftp://localhost/o@bar.baz/fo#o\\bar", 0, 0, S_OK, "ftp://localhost/o@bar.baz/fo#o\\bar"},
299     {"ftp:///fo/o@bar.baz/foo/bar", 0, 0, S_OK, "ftp:///fo/o@bar.baz/foo/bar"},
300     {"ftp:////fo/o@bar.baz/foo/bar", 0, 0, S_OK, "ftp:////fo/o@bar.baz/foo/bar"}
301 };
302
303 /* ################ */
304
305 typedef struct _TEST_URL_COMBINE {
306     const char *url1;
307     const char *url2;
308     DWORD flags;
309     HRESULT expectret;
310     const char *expecturl;
311 } TEST_URL_COMBINE;
312
313 static const TEST_URL_COMBINE TEST_COMBINE[] = {
314     {"http://www.winehq.org/tests", "tests1", 0, S_OK, "http://www.winehq.org/tests1"},
315     {"http://www.%77inehq.org/tests", "tests1", 0, S_OK, "http://www.%77inehq.org/tests1"},
316     /*FIXME {"http://www.winehq.org/tests", "../tests2", 0, S_OK, "http://www.winehq.org/tests2"},*/
317     {"http://www.winehq.org/tests/", "../tests3", 0, S_OK, "http://www.winehq.org/tests3"},
318     {"http://www.winehq.org/tests/test1", "test2", 0, S_OK, "http://www.winehq.org/tests/test2"},
319     {"http://www.winehq.org/tests/../tests", "tests4", 0, S_OK, "http://www.winehq.org/tests4"},
320     {"http://www.winehq.org/tests/../tests/", "tests5", 0, S_OK, "http://www.winehq.org/tests/tests5"},
321     {"http://www.winehq.org/tests/../tests/", "/tests6/..", 0, S_OK, "http://www.winehq.org/"},
322     {"http://www.winehq.org/tests/../tests/..", "tests7/..", 0, S_OK, "http://www.winehq.org/"},
323     {"http://www.winehq.org/tests/?query=x&return=y", "tests8", 0, S_OK, "http://www.winehq.org/tests/tests8"},
324     {"http://www.winehq.org/tests/#example", "tests9", 0, S_OK, "http://www.winehq.org/tests/tests9"},
325     {"http://www.winehq.org/tests/../tests/", "/tests10/..", URL_DONT_SIMPLIFY, S_OK, "http://www.winehq.org/tests10/.."},
326     {"http://www.winehq.org/tests/../", "tests11", URL_DONT_SIMPLIFY, S_OK, "http://www.winehq.org/tests/../tests11"},
327     {"http://www.winehq.org/test12", "#", 0, S_OK, "http://www.winehq.org/test12#"},
328     {"http://www.winehq.org/test13#aaa", "#bbb", 0, S_OK, "http://www.winehq.org/test13#bbb"},
329     {"http://www.winehq.org/test14#aaa/bbb#ccc", "#", 0, S_OK, "http://www.winehq.org/test14#"},
330     {"file:///C:\\dir\\file.txt", "test.txt", 0, S_OK, "file:///C:/dir/test.txt"},
331     {"file:///C:\\dir\\file.txt#hash\\hash", "test.txt", 0, S_OK, "file:///C:/dir/file.txt#hash/test.txt"},
332     {"file:///C:\\dir\\file.html#hash\\hash", "test.html", 0, S_OK, "file:///C:/dir/test.html"},
333     {"file:///C:\\dir\\file.htm#hash\\hash", "test.htm", 0, S_OK, "file:///C:/dir/test.htm"},
334     {"file:///C:\\dir\\file.hTmL#hash\\hash", "test.hTmL", 0, S_OK, "file:///C:/dir/test.hTmL"},
335     {"file:///C:\\dir.html\\file.txt#hash\\hash", "test.txt", 0, S_OK, "file:///C:/dir.html/file.txt#hash/test.txt"},
336     {"C:\\winehq\\winehq.txt", "C:\\Test\\test.txt", 0, S_OK, "file:///C:/Test/test.txt"},
337     {"http://www.winehq.org/test/", "test%20file.txt", 0, S_OK, "http://www.winehq.org/test/test%20file.txt"},
338     {"http://www.winehq.org/test/", "test%20file.txt", URL_FILE_USE_PATHURL, S_OK, "http://www.winehq.org/test/test%20file.txt"},
339     {"http://www.winehq.org%2ftest/", "test%20file.txt", URL_FILE_USE_PATHURL, S_OK, "http://www.winehq.org%2ftest/test%20file.txt"},
340     {"xxx:@MSITStore:file.chm/file.html", "dir/file", 0, S_OK, "xxx:dir/file"},
341     {"mk:@MSITStore:file.chm::/file.html", "/dir/file", 0, S_OK, "mk:@MSITStore:file.chm::/dir/file"},
342     {"mk:@MSITStore:file.chm::/file.html", "mk:@MSITStore:file.chm::/dir/file", 0, S_OK, "mk:@MSITStore:file.chm::/dir/file"},
343     {"foo:today", "foo:calendar", 0, S_OK, "foo:calendar"},
344     {"foo:today", "bar:calendar", 0, S_OK, "bar:calendar"},
345     {"foo:/today", "foo:calendar", 0, S_OK, "foo:/calendar"},
346     {"foo:/today/", "foo:calendar", 0, S_OK, "foo:/today/calendar"},
347     {"mk:@MSITStore:dir/test.chm::dir/index.html", "image.jpg", 0, S_OK, "mk:@MSITStore:dir/test.chm::dir/image.jpg"},
348     {"mk:@MSITStore:dir/test.chm::dir/dir2/index.html", "../image.jpg", 0, S_OK, "mk:@MSITStore:dir/test.chm::dir/image.jpg"},
349     /* UrlCombine case 2 tests.  Schemes do not match */
350     {"outbind://xxxxxxxxx","http://wine1/dir",0, S_OK,"http://wine1/dir"},
351     {"xxxx://xxxxxxxxx","http://wine2/dir",0, S_OK,"http://wine2/dir"},
352     {"ftp://xxxxxxxxx/","http://wine3/dir",0, S_OK,"http://wine3/dir"},
353     {"outbind://xxxxxxxxx","http://wine4/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"http://wine4/dir"},
354     {"xxx://xxxxxxxxx","http://wine5/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"http://wine5/dir"},
355     {"ftp://xxxxxxxxx/","http://wine6/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"http://wine6/dir"},
356     {"http://xxxxxxxxx","outbind://wine7/dir",0, S_OK,"outbind://wine7/dir"},
357     {"xxx://xxxxxxxxx","ftp://wine8/dir",0, S_OK,"ftp://wine8/dir"},
358     {"ftp://xxxxxxxxx/","xxx://wine9/dir",0, S_OK,"xxx://wine9/dir"},
359     {"http://xxxxxxxxx","outbind://wine10/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"outbind://wine10/dir"},
360     {"xxx://xxxxxxxxx","ftp://wine11/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"ftp://wine11/dir"},
361     {"ftp://xxxxxxxxx/","xxx://wine12/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"xxx://wine12/dir"},
362     {"http://xxxxxxxxx","outbind:wine13/dir",0, S_OK,"outbind:wine13/dir"},
363     {"xxx://xxxxxxxxx","ftp:wine14/dir",0, S_OK,"ftp:wine14/dir"},
364     {"ftp://xxxxxxxxx/","xxx:wine15/dir",0, S_OK,"xxx:wine15/dir"},
365     {"outbind://xxxxxxxxx/","http:wine16/dir",0, S_OK,"http:wine16/dir"},
366     {"http://xxxxxxxxx","outbind:wine17/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"outbind:wine17/dir"},
367     {"xxx://xxxxxxxxx","ftp:wine18/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"ftp:wine18/dir"},
368     {"ftp://xxxxxxxxx/","xxx:wine19/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"xxx:wine19/dir"},
369     {"outbind://xxxxxxxxx/","http:wine20/dir",URL_PLUGGABLE_PROTOCOL, S_OK,"http:wine20/dir"},
370     {"file:///c:/dir/file.txt","index.html?test=c:/abc",URL_ESCAPE_SPACES_ONLY|URL_DONT_ESCAPE_EXTRA_INFO,S_OK,"file:///c:/dir/index.html?test=c:/abc"}
371 };
372
373 /* ################ */
374
375 static const struct {
376     const char *path;
377     const char *url;
378     DWORD ret;
379 } TEST_URLFROMPATH [] = {
380     {"foo", "file:foo", S_OK},
381     {"foo\\bar", "file:foo/bar", S_OK},
382     {"\\foo\\bar", "file:///foo/bar", S_OK},
383     {"c:\\foo\\bar", "file:///c:/foo/bar", S_OK},
384     {"c:foo\\bar", "file:///c:foo/bar", S_OK},
385     {"c:\\foo/b a%r", "file:///c:/foo/b%20a%25r", S_OK},
386     {"c:\\foo\\foo bar", "file:///c:/foo/foo%20bar", S_OK},
387     {"file:///c:/foo/bar", "file:///c:/foo/bar", S_FALSE},
388 #if 0
389     /* The following test fails on native shlwapi as distributed with Win95/98.
390      * Wine matches the behaviour of later versions.
391      */
392     {"xx:c:\\foo\\bar", "xx:c:\\foo\\bar", S_FALSE}
393 #endif
394 };
395
396 /* ################ */
397
398 static struct {
399     char url[30];
400     const char *expect;
401 } TEST_URL_UNESCAPE[] = {
402     {"file://foo/bar", "file://foo/bar"},
403     {"file://fo%20o%5Ca/bar", "file://fo o\\a/bar"},
404     {"file://%24%25foobar", "file://$%foobar"}
405 };
406
407 /* ################ */
408
409 static const  struct {
410     const char *path;
411     BOOL expect;
412 } TEST_PATH_IS_URL[] = {
413     {"http://foo/bar", TRUE},
414     {"c:\\foo\\bar", FALSE},
415     {"foo://foo/bar", TRUE},
416     {"foo\\bar", FALSE},
417     {"foo.bar", FALSE},
418     {"bogusscheme:", TRUE},
419     {"http:partial", TRUE}
420 };
421
422 /* ################ */
423
424 static const struct {
425     const char *url;
426     BOOL expectOpaque;
427     BOOL expectFile;
428 } TEST_URLIS_ATTRIBS[] = {
429     {   "ftp:",                                         FALSE,  FALSE   },
430     {   "http:",                                        FALSE,  FALSE   },
431     {   "gopher:",                                      FALSE,  FALSE   },
432     {   "mailto:",                                      TRUE,   FALSE   },
433     {   "news:",                                        FALSE,  FALSE   },
434     {   "nntp:",                                        FALSE,  FALSE   },
435     {   "telnet:",                                      FALSE,  FALSE   },
436     {   "wais:",                                        FALSE,  FALSE   },
437     {   "file:",                                        FALSE,  TRUE    },
438     {   "mk:",                                          FALSE,  FALSE   },
439     {   "https:",                                       FALSE,  FALSE   },
440     {   "shell:",                                       TRUE,   FALSE   },
441     {   "https:",                                       FALSE,  FALSE   },
442     {   "snews:",                                       FALSE,  FALSE   },
443     {   "local:",                                       FALSE,  FALSE   },
444     {   "javascript:",                                  TRUE,   FALSE   },
445     {   "vbscript:",                                    TRUE,   FALSE   },
446     {   "about:",                                       TRUE,   FALSE   },
447     {   "res:",                                         FALSE,  FALSE   },
448     {   "bogusscheme:",                                 FALSE,  FALSE   },
449     {   "file:\\\\e:\\b\\c",                            FALSE,  TRUE    },
450     {   "file://e:/b/c",                                FALSE,  TRUE    },
451     {   "http:partial",                                 FALSE,  FALSE   },
452     {   "mailto://www.winehq.org/test.html",            TRUE,   FALSE   },
453     {   "file:partial",                                 FALSE,  TRUE    }
454 };
455
456 /* ########################### */
457
458 static LPWSTR GetWideString(const char* szString)
459 {
460   LPWSTR wszString = HeapAlloc(GetProcessHeap(), 0, (2*INTERNET_MAX_URL_LENGTH) * sizeof(WCHAR));
461
462   MultiByteToWideChar(0, 0, szString, -1, wszString, INTERNET_MAX_URL_LENGTH);
463
464   return wszString;
465 }
466
467
468 static void FreeWideString(LPWSTR wszString)
469 {
470    HeapFree(GetProcessHeap(), 0, wszString);
471 }
472
473 /* ########################### */
474
475 static void test_UrlApplyScheme(void)
476 {
477     CHAR newurl[TEST_APPLY_MAX_LENGTH];
478     WCHAR urlW[TEST_APPLY_MAX_LENGTH];
479     WCHAR newurlW[TEST_APPLY_MAX_LENGTH];
480     HRESULT res;
481     DWORD len;
482     DWORD i;
483
484     if (!pUrlApplySchemeA) {
485         win_skip("UrlApplySchemeA not found\n");
486         return;
487     }
488
489     for(i = 0; i < sizeof(TEST_APPLY)/sizeof(TEST_APPLY[0]); i++) {
490         len = TEST_APPLY_MAX_LENGTH;
491         lstrcpyA(newurl, untouchedA);
492         res = pUrlApplySchemeA(TEST_APPLY[i].url, newurl, &len, TEST_APPLY[i].flags);
493         ok( res == TEST_APPLY[i].res,
494             "#%dA: got HRESULT 0x%x (expected 0x%x)\n", i, res, TEST_APPLY[i].res);
495
496         ok( len == TEST_APPLY[i].newlen,
497             "#%dA: got len %d (expected %d)\n", i, len, TEST_APPLY[i].newlen);
498
499         ok( !lstrcmpA(newurl, TEST_APPLY[i].newurl),
500             "#%dA: got '%s' (expected '%s')\n", i, newurl, TEST_APPLY[i].newurl);
501
502         /* returned length is in character */
503         len = TEST_APPLY_MAX_LENGTH;
504         lstrcpyA(newurl, untouchedA);
505         MultiByteToWideChar(CP_ACP, 0, newurl, -1, newurlW, len);
506         MultiByteToWideChar(CP_ACP, 0, TEST_APPLY[i].url, -1, urlW, len);
507
508         res = pUrlApplySchemeW(urlW, newurlW, &len, TEST_APPLY[i].flags);
509         WideCharToMultiByte(CP_ACP, 0, newurlW, -1, newurl, TEST_APPLY_MAX_LENGTH, NULL, NULL);
510         ok( res == TEST_APPLY[i].res,
511             "#%dW: got HRESULT 0x%x (expected 0x%x)\n", i, res, TEST_APPLY[i].res);
512
513         ok( len == TEST_APPLY[i].newlen,
514             "#%dW: got len %d (expected %d)\n", i, len, TEST_APPLY[i].newlen);
515
516         ok( !lstrcmpA(newurl, TEST_APPLY[i].newurl),
517             "#%dW: got '%s' (expected '%s')\n", i, newurl, TEST_APPLY[i].newurl);
518
519     }
520
521     /* buffer too small */
522     lstrcpyA(newurl, untouchedA);
523     len = lstrlenA(TEST_APPLY[0].newurl);
524     res = pUrlApplySchemeA(TEST_APPLY[0].url, newurl, &len, TEST_APPLY[0].flags);
525     ok(res == E_POINTER, "got HRESULT 0x%x (expected E_POINTER)\n", res);
526     /* The returned length include the space for the terminating 0 */
527     i = lstrlenA(TEST_APPLY[0].newurl)+1;
528     ok(len == i, "got len %d (expected %d)\n", len, i);
529     ok(!lstrcmpA(newurl, untouchedA), "got '%s' (expected '%s')\n", newurl, untouchedA);
530
531     /* NULL as parameter. The length and the buffer are not modified */
532     lstrcpyA(newurl, untouchedA);
533     len = TEST_APPLY_MAX_LENGTH;
534     res = pUrlApplySchemeA(NULL, newurl, &len, TEST_APPLY[0].flags);
535     ok(res == E_INVALIDARG, "got HRESULT 0x%x (expected E_INVALIDARG)\n", res);
536     ok(len == TEST_APPLY_MAX_LENGTH, "got len %d\n", len);
537     ok(!lstrcmpA(newurl, untouchedA), "got '%s' (expected '%s')\n", newurl, untouchedA);
538
539     len = TEST_APPLY_MAX_LENGTH;
540     res = pUrlApplySchemeA(TEST_APPLY[0].url, NULL, &len, TEST_APPLY[0].flags);
541     ok(res == E_INVALIDARG, "got HRESULT 0x%x (expected E_INVALIDARG)\n", res);
542     ok(len == TEST_APPLY_MAX_LENGTH, "got len %d\n", len);
543
544     lstrcpyA(newurl, untouchedA);
545     res = pUrlApplySchemeA(TEST_APPLY[0].url, newurl, NULL, TEST_APPLY[0].flags);
546     ok(res == E_INVALIDARG, "got HRESULT 0x%x (expected E_INVALIDARG)\n", res);
547     ok(!lstrcmpA(newurl, untouchedA), "got '%s' (expected '%s')\n", newurl, untouchedA);
548
549 }
550
551 /* ########################### */
552
553 static void hash_url(const char* szUrl)
554 {
555   LPCSTR szTestUrl = szUrl;
556   LPWSTR wszTestUrl = GetWideString(szTestUrl);
557   HRESULT res;
558
559   DWORD cbSize = sizeof(DWORD);
560   DWORD dwHash1, dwHash2;
561   res = pUrlHashA(szTestUrl, (LPBYTE)&dwHash1, cbSize);
562   ok(res == S_OK, "UrlHashA returned 0x%x (expected S_OK) for %s\n", res, szUrl);
563   if (pUrlHashW) {
564     res = pUrlHashW(wszTestUrl, (LPBYTE)&dwHash2, cbSize);
565     ok(res == S_OK, "UrlHashW returned 0x%x (expected S_OK) for %s\n", res, szUrl);
566     ok(dwHash1 == dwHash2,
567         "Hashes didn't match (A: 0x%x, W: 0x%x) for %s\n", dwHash1, dwHash2, szUrl);
568   }
569   FreeWideString(wszTestUrl);
570
571 }
572
573 static void test_UrlHash(void)
574 {
575   if (!pUrlHashA) {
576     win_skip("UrlHashA not found\n");
577     return;
578   }
579
580   hash_url(TEST_URL_1);
581   hash_url(TEST_URL_2);
582   hash_url(TEST_URL_3);
583 }
584
585 /* ########################### */
586
587 static void test_url_part(const char* szUrl, DWORD dwPart, DWORD dwFlags, const char* szExpected)
588 {
589   CHAR szPart[INTERNET_MAX_URL_LENGTH];
590   WCHAR wszPart[INTERNET_MAX_URL_LENGTH];
591   LPWSTR wszUrl = GetWideString(szUrl);
592   LPWSTR wszConvertedPart;
593   HRESULT res;
594   DWORD dwSize;
595
596   dwSize = 1;
597   res = pUrlGetPartA(szUrl, szPart, &dwSize, dwPart, dwFlags);
598   ok(res == E_POINTER, "UrlGetPart for \"%s\" gave: 0x%08x\n", szUrl, res);
599   ok(dwSize == strlen(szExpected)+1 ||
600           (*szExpected == '?' && dwSize == strlen(szExpected)),
601           "UrlGetPart for \"%s\" gave size: %u\n", szUrl, dwSize);
602
603   dwSize = INTERNET_MAX_URL_LENGTH;
604   res = pUrlGetPartA(szUrl, szPart, &dwSize, dwPart, dwFlags);
605   ok(res == S_OK,
606     "UrlGetPartA for \"%s\" part 0x%08x returned 0x%x and \"%s\"\n",
607     szUrl, dwPart, res, szPart);
608   if (pUrlGetPartW) {
609     dwSize = INTERNET_MAX_URL_LENGTH;
610     res = pUrlGetPartW(wszUrl, wszPart, &dwSize, dwPart, dwFlags);
611     ok(res == S_OK,
612       "UrlGetPartW for \"%s\" part 0x%08x returned 0x%x\n",
613       szUrl, dwPart, res);
614
615     wszConvertedPart = GetWideString(szPart);
616
617     ok(lstrcmpW(wszPart,wszConvertedPart)==0,
618         "Strings didn't match between ascii and unicode UrlGetPart!\n");
619
620     FreeWideString(wszConvertedPart);
621   }
622   FreeWideString(wszUrl);
623
624   /* Note that v6.0 and later don't return '?' with the query */
625   ok(strcmp(szPart,szExpected)==0 ||
626      (*szExpected=='?' && !strcmp(szPart,szExpected+1)),
627          "Expected %s, but got %s\n", szExpected, szPart);
628 }
629
630 /* ########################### */
631
632 static void test_UrlGetPart(void)
633 {
634   const char* file_url = "file://h o s t/c:/windows/file";
635   const char* http_url = "http://user:pass 123@www.wine hq.org";
636   const char* res_url = "res://some.dll/find.dlg";
637   const char* about_url = "about:blank";
638   const char* excid_url = "x-excid://36C00000/guid:{048B4E89-2E92-496F-A837-33BA02FF6D32}/Message.htm";
639   const char* foo_url = "foo://bar-url/test";
640   const char* short_url = "ascheme:";
641
642   CHAR szPart[INTERNET_MAX_URL_LENGTH];
643   DWORD dwSize;
644   HRESULT res;
645
646   if (!pUrlGetPartA) {
647     win_skip("UrlGetPartA not found\n");
648     return;
649   }
650
651   res = pUrlGetPartA(NULL, NULL, NULL, URL_PART_SCHEME, 0);
652   ok(res == E_INVALIDARG, "null params gave: 0x%08x\n", res);
653
654   res = pUrlGetPartA(NULL, szPart, &dwSize, URL_PART_SCHEME, 0);
655   ok(res == E_INVALIDARG, "null URL gave: 0x%08x\n", res);
656
657   res = pUrlGetPartA(res_url, NULL, &dwSize, URL_PART_SCHEME, 0);
658   ok(res == E_INVALIDARG, "null szPart gave: 0x%08x\n", res);
659
660   res = pUrlGetPartA(res_url, szPart, NULL, URL_PART_SCHEME, 0);
661   ok(res == E_INVALIDARG, "null URL gave: 0x%08x\n", res);
662
663   dwSize = 0;
664   szPart[0]='x'; szPart[1]=0;
665   res = pUrlGetPartA("hi", szPart, &dwSize, URL_PART_SCHEME, 0);
666   ok(res == E_INVALIDARG, "UrlGetPartA(*pcchOut = 0) returned %08X\n", res);
667   ok(szPart[0] == 'x' && szPart[1] == 0, "UrlGetPartA(*pcchOut = 0) modified szPart: \"%s\"\n", szPart);
668   ok(dwSize == 0, "dwSize = %d\n", dwSize);
669
670   dwSize = sizeof szPart;
671   szPart[0]='x'; szPart[1]=0;
672   res = pUrlGetPartA("hi", szPart, &dwSize, URL_PART_SCHEME, 0);
673   ok (res==S_FALSE, "UrlGetPartA(\"hi\") returned %08X\n", res);
674   ok(szPart[0]==0, "UrlGetPartA(\"hi\") return \"%s\" instead of \"\"\n", szPart);
675   ok(dwSize == 0, "dwSize = %d\n", dwSize);
676
677   if(pUrlGetPartW)
678   {
679       const WCHAR hiW[] = {'h','i',0};
680       WCHAR bufW[5];
681
682       /* UrlGetPartW returns S_OK instead of S_FALSE */
683       dwSize = sizeof szPart;
684       bufW[0]='x'; bufW[1]=0;
685       res = pUrlGetPartW(hiW, bufW, &dwSize, URL_PART_SCHEME, 0);
686       todo_wine ok(res==S_OK, "UrlGetPartW(\"hi\") returned %08X\n", res);
687       ok(bufW[0] == 0, "UrlGetPartW(\"hi\") return \"%c\"\n", bufW[0]);
688       ok(dwSize == 0, "dwSize = %d\n", dwSize);
689   }
690
691   dwSize = sizeof szPart;
692   szPart[0]='x'; szPart[1]=0;
693   res = pUrlGetPartA("hi", szPart, &dwSize, URL_PART_QUERY, 0);
694   ok (res==S_FALSE, "UrlGetPartA(\"hi\") returned %08X\n", res);
695   ok(szPart[0]==0, "UrlGetPartA(\"hi\") return \"%s\" instead of \"\"\n", szPart);
696   ok(dwSize == 0, "dwSize = %d\n", dwSize);
697
698   test_url_part(TEST_URL_3, URL_PART_HOSTNAME, 0, "localhost");
699   test_url_part(TEST_URL_3, URL_PART_PORT, 0, "21");
700   test_url_part(TEST_URL_3, URL_PART_USERNAME, 0, "foo");
701   test_url_part(TEST_URL_3, URL_PART_PASSWORD, 0, "bar");
702   test_url_part(TEST_URL_3, URL_PART_SCHEME, 0, "http");
703   test_url_part(TEST_URL_3, URL_PART_QUERY, 0, "?query=x&return=y");
704
705   test_url_part(TEST_URL_4, URL_PART_HOSTNAME, 0, "google.*.com");
706
707   test_url_part(file_url, URL_PART_HOSTNAME, 0, "h o s t");
708
709   test_url_part(http_url, URL_PART_HOSTNAME, 0, "www.wine hq.org");
710   test_url_part(http_url, URL_PART_PASSWORD, 0, "pass 123");
711
712   test_url_part(about_url, URL_PART_SCHEME, 0, "about");
713
714   test_url_part(excid_url, URL_PART_SCHEME, 0, "x-excid");
715   test_url_part(foo_url, URL_PART_SCHEME, 0, "foo");
716   test_url_part(short_url, URL_PART_SCHEME, 0, "ascheme");
717
718   dwSize = sizeof(szPart);
719   res = pUrlGetPartA(about_url, szPart, &dwSize, URL_PART_HOSTNAME, 0);
720   ok(res==E_FAIL, "returned %08x\n", res);
721
722   test_url_part(res_url, URL_PART_SCHEME, 0, "res");
723   test_url_part("http://www.winehq.org", URL_PART_HOSTNAME, URL_PARTFLAG_KEEPSCHEME, "http:www.winehq.org");
724
725   dwSize = sizeof szPart;
726   szPart[0]='x'; szPart[1]=0;
727   res = pUrlGetPartA(res_url, szPart, &dwSize, URL_PART_QUERY, 0);
728   ok(res==S_FALSE, "UrlGetPartA returned %08X\n", res);
729   ok(szPart[0]==0, "UrlGetPartA gave \"%s\" instead of \"\"\n", szPart);
730   ok(dwSize == 0, "dwSize = %d\n", dwSize);
731
732   dwSize = sizeof(szPart);
733   res = pUrlGetPartA("file://c:\\index.htm", szPart, &dwSize, URL_PART_HOSTNAME, 0);
734   ok(res==S_FALSE, "returned %08x\n", res);
735   ok(dwSize == 0, "dwSize = %d\n", dwSize);
736
737   dwSize = sizeof(szPart);
738   szPart[0] = 'x'; szPart[1] = '\0';
739   res = pUrlGetPartA("file:some text", szPart, &dwSize, URL_PART_HOSTNAME, 0);
740   ok(res==S_FALSE, "returned %08x\n", res);
741   ok(szPart[0] == '\0', "szPart[0] = %c\n", szPart[0]);
742   ok(dwSize == 0, "dwSize = %d\n", dwSize);
743
744   dwSize = sizeof(szPart);
745   szPart[0] = 'x'; szPart[1] = '\0';
746   res = pUrlGetPartA("index.htm", szPart, &dwSize, URL_PART_HOSTNAME, 0);
747   ok(res==E_FAIL, "returned %08x\n", res);
748
749   dwSize = sizeof(szPart);
750   szPart[0] = 'x'; szPart[1] = '\0';
751   res = pUrlGetPartA(excid_url, szPart, &dwSize, URL_PART_HOSTNAME, 0);
752   ok(res==E_FAIL, "returned %08x\n", res);
753   ok(szPart[0] == 'x', "szPart[0] = %c\n", szPart[0]);
754   ok(dwSize == sizeof(szPart), "dwSize = %d\n", dwSize);
755
756   dwSize = sizeof(szPart);
757   szPart[0] = 'x'; szPart[1] = '\0';
758   res = pUrlGetPartA(excid_url, szPart, &dwSize, URL_PART_QUERY, 0);
759   ok(res==S_FALSE, "returned %08x\n", res);
760   ok(szPart[0] == 0, "szPart[0] = %c\n", szPart[0]);
761   ok(dwSize == 0, "dwSize = %d\n", dwSize);
762
763   dwSize = sizeof(szPart);
764   szPart[0] = 'x'; szPart[1] = '\0';
765   res = pUrlGetPartA(foo_url, szPart, &dwSize, URL_PART_HOSTNAME, 0);
766   ok(res==E_FAIL, "returned %08x\n", res);
767   ok(szPart[0] == 'x', "szPart[0] = %c\n", szPart[0]);
768   ok(dwSize == sizeof(szPart), "dwSize = %d\n", dwSize);
769
770   dwSize = sizeof(szPart);
771   szPart[0] = 'x'; szPart[1] = '\0';
772   res = pUrlGetPartA(foo_url, szPart, &dwSize, URL_PART_QUERY, 0);
773   ok(res==S_FALSE, "returned %08x\n", res);
774   ok(szPart[0] == 0, "szPart[0] = %c\n", szPart[0]);
775   ok(dwSize == 0, "dwSize = %d\n", dwSize);
776 }
777
778 /* ########################### */
779
780 static void test_url_escape(const char *szUrl, DWORD dwFlags, HRESULT dwExpectReturn, const char *szExpectUrl)
781 {
782     CHAR szReturnUrl[INTERNET_MAX_URL_LENGTH];
783     DWORD dwEscaped;
784     WCHAR ret_urlW[INTERNET_MAX_URL_LENGTH];
785     WCHAR *urlW, *expected_urlW;
786     dwEscaped=INTERNET_MAX_URL_LENGTH;
787
788     ok(pUrlEscapeA(szUrl, szReturnUrl, &dwEscaped, dwFlags) == dwExpectReturn,
789         "UrlEscapeA didn't return 0x%08x from \"%s\"\n", dwExpectReturn, szUrl);
790     ok(strcmp(szReturnUrl,szExpectUrl)==0, "Expected \"%s\", but got \"%s\" from \"%s\"\n", szExpectUrl, szReturnUrl, szUrl);
791
792     if (pUrlEscapeW) {
793         dwEscaped = INTERNET_MAX_URL_LENGTH;
794         urlW = GetWideString(szUrl);
795         expected_urlW = GetWideString(szExpectUrl);
796         ok(pUrlEscapeW(urlW, ret_urlW, &dwEscaped, dwFlags) == dwExpectReturn,
797             "UrlEscapeW didn't return 0x%08x from \"%s\"\n", dwExpectReturn, szUrl);
798         WideCharToMultiByte(CP_ACP,0,ret_urlW,-1,szReturnUrl,INTERNET_MAX_URL_LENGTH,0,0);
799         ok(lstrcmpW(ret_urlW, expected_urlW)==0,
800             "Expected \"%s\", but got \"%s\" from \"%s\" flags %08x\n",
801             szExpectUrl, szReturnUrl, szUrl, dwFlags);
802         FreeWideString(urlW);
803         FreeWideString(expected_urlW);
804     }
805 }
806
807 static void test_url_canonicalize(int index, const char *szUrl, DWORD dwFlags, HRESULT dwExpectReturn, HRESULT dwExpectReturnAlt, const char *szExpectUrl, BOOL todo)
808 {
809     CHAR szReturnUrl[INTERNET_MAX_URL_LENGTH];
810     WCHAR wszReturnUrl[INTERNET_MAX_URL_LENGTH];
811     LPWSTR wszUrl = GetWideString(szUrl);
812     LPWSTR wszExpectUrl = GetWideString(szExpectUrl);
813     LPWSTR wszConvertedUrl;
814     HRESULT ret;
815
816     DWORD dwSize;
817
818     dwSize = INTERNET_MAX_URL_LENGTH;
819     ret = pUrlCanonicalizeA(szUrl, NULL, &dwSize, dwFlags);
820     ok(ret != dwExpectReturn, "got 0s%x: Unexpected return for NULL buffer, index %d\n", ret, index);
821     ret = pUrlCanonicalizeA(szUrl, szReturnUrl, &dwSize, dwFlags);
822     ok(ret == dwExpectReturn || ret == dwExpectReturnAlt,
823        "UrlCanonicalizeA failed: expected=0x%08x or 0x%08x, got=0x%08x, index %d\n",
824        dwExpectReturn, dwExpectReturnAlt, ret, index);
825     if (todo)
826         todo_wine
827         ok(strcmp(szReturnUrl,szExpectUrl)==0, "UrlCanonicalizeA dwFlags 0x%08x url '%s' Expected \"%s\", but got \"%s\", index %d\n", dwFlags, szUrl, szExpectUrl, szReturnUrl, index);
828     else
829         ok(strcmp(szReturnUrl,szExpectUrl)==0, "UrlCanonicalizeA dwFlags 0x%08x url '%s' Expected \"%s\", but got \"%s\", index %d\n", dwFlags, szUrl, szExpectUrl, szReturnUrl, index);
830
831     if (pUrlCanonicalizeW) {
832         dwSize = INTERNET_MAX_URL_LENGTH;
833         ret = pUrlCanonicalizeW(wszUrl, NULL, &dwSize, dwFlags);
834         ok(ret != dwExpectReturn, "got 0x%x: Unexpected return for NULL buffer, index %d\n", ret, index);
835         ret = pUrlCanonicalizeW(wszUrl, wszReturnUrl, &dwSize, dwFlags);
836         ok(ret == dwExpectReturn, "UrlCanonicalizeW failed: expected 0x%08x, got 0x%x, index %d\n",
837             dwExpectReturn, ret, index);
838
839         wszConvertedUrl = GetWideString(szReturnUrl);
840         ok(lstrcmpW(wszReturnUrl, wszConvertedUrl)==0,
841             "Strings didn't match between ascii and unicode UrlCanonicalize, index %d!\n", index);
842         FreeWideString(wszConvertedUrl);
843     }
844
845     FreeWideString(wszUrl);
846     FreeWideString(wszExpectUrl);
847 }
848
849
850 static void test_UrlEscape(void)
851 {
852     static const WCHAR out[] = { 'f','o','o','%','2','0','b','a','r',0 };
853
854     DWORD size = 0;
855     HRESULT ret;
856     unsigned int i;
857     char empty_string[] = "";
858     WCHAR overwrite[] = { 'f','o','o',' ','b','a','r',0,0,0 };
859
860     if (!pUrlEscapeA) {
861         win_skip("UrlEscapeA noz found\n");
862         return;
863     }
864
865     ret = pUrlEscapeA("/woningplan/woonkamer basis.swf", NULL, &size, URL_ESCAPE_SPACES_ONLY);
866     ok(ret == E_INVALIDARG, "got %x, expected %x\n", ret, E_INVALIDARG);
867     ok(size == 0, "got %d, expected %d\n", size, 0);
868
869     size = 0;
870     ret = pUrlEscapeA("/woningplan/woonkamer basis.swf", empty_string, &size, URL_ESCAPE_SPACES_ONLY);
871     ok(ret == E_INVALIDARG, "got %x, expected %x\n", ret, E_INVALIDARG);
872     ok(size == 0, "got %d, expected %d\n", size, 0);
873
874     size = 1;
875     ret = pUrlEscapeA("/woningplan/woonkamer basis.swf", NULL, &size, URL_ESCAPE_SPACES_ONLY);
876     ok(ret == E_INVALIDARG, "got %x, expected %x\n", ret, E_INVALIDARG);
877     ok(size == 1, "got %d, expected %d\n", size, 1);
878
879     size = 1;
880     ret = pUrlEscapeA("/woningplan/woonkamer basis.swf", empty_string, NULL, URL_ESCAPE_SPACES_ONLY);
881     ok(ret == E_INVALIDARG, "got %x, expected %x\n", ret, E_INVALIDARG);
882     ok(size == 1, "got %d, expected %d\n", size, 1);
883
884     size = 1;
885     ret = pUrlEscapeA("/woningplan/woonkamer basis.swf", empty_string, &size, URL_ESCAPE_SPACES_ONLY);
886     ok(ret == E_POINTER, "got %x, expected %x\n", ret, E_POINTER);
887     ok(size == 34, "got %d, expected %d\n", size, 34);
888
889     if(pUrlEscapeW) {
890         size = sizeof(overwrite)/sizeof(WCHAR);
891         ret = pUrlEscapeW(overwrite, overwrite, &size, URL_ESCAPE_SPACES_ONLY);
892         ok(ret == S_OK, "got %x, expected S_OK\n", ret);
893         ok(size == 9, "got %d, expected 9\n", size);
894         ok(!lstrcmpW(overwrite, out), "got %s, expected %s\n", wine_dbgstr_w(overwrite), wine_dbgstr_w(out));
895     }
896
897     for(i=0; i<sizeof(TEST_ESCAPE)/sizeof(TEST_ESCAPE[0]); i++) {
898         test_url_escape(TEST_ESCAPE[i].url, TEST_ESCAPE[i].flags,
899                               TEST_ESCAPE[i].expectret, TEST_ESCAPE[i].expecturl);
900     }
901 }
902
903 /* ########################### */
904
905 static void test_UrlCanonicalizeA(void)
906 {
907     unsigned int i;
908     CHAR szReturnUrl[4*INTERNET_MAX_URL_LENGTH];
909     CHAR longurl[4*INTERNET_MAX_URL_LENGTH];
910     DWORD dwSize;
911     DWORD urllen;
912     HRESULT hr;
913
914     if (!pUrlCanonicalizeA) {
915         win_skip("UrlCanonicalizeA not found\n");
916         return;
917     }
918
919     urllen = lstrlenA(winehqA);
920
921     /* buffer has no space for the result */
922     dwSize=urllen-1;
923     memset(szReturnUrl, '#', urllen+4);
924     szReturnUrl[urllen+4] = '\0';
925     SetLastError(0xdeadbeef);
926     hr = pUrlCanonicalizeA(winehqA, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY  | URL_ESCAPE_UNSAFE);
927     ok( (hr == E_POINTER) && (dwSize == (urllen + 1)),
928         "got 0x%x with %u and size %u for '%s' and %u (expected 'E_POINTER' and size %u)\n",
929         hr, GetLastError(), dwSize, szReturnUrl, lstrlenA(szReturnUrl), urllen+1);
930
931     /* buffer has no space for the terminating '\0' */
932     dwSize=urllen;
933     memset(szReturnUrl, '#', urllen+4);
934     szReturnUrl[urllen+4] = '\0';
935     SetLastError(0xdeadbeef);
936     hr = pUrlCanonicalizeA(winehqA, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
937     ok( (hr == E_POINTER) && (dwSize == (urllen + 1)),
938         "got 0x%x with %u and size %u for '%s' and %u (expected 'E_POINTER' and size %u)\n",
939         hr, GetLastError(), dwSize, szReturnUrl, lstrlenA(szReturnUrl), urllen+1);
940
941     /* buffer has the required size */
942     dwSize=urllen+1;
943     memset(szReturnUrl, '#', urllen+4);
944     szReturnUrl[urllen+4] = '\0';
945     SetLastError(0xdeadbeef);
946     hr = pUrlCanonicalizeA(winehqA, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
947     ok( (hr == S_OK) && (dwSize == urllen),
948         "got 0x%x with %u and size %u for '%s' and %u (expected 'S_OK' and size %u)\n",
949         hr, GetLastError(), dwSize, szReturnUrl, lstrlenA(szReturnUrl), urllen);
950
951     /* buffer is larger as the required size */
952     dwSize=urllen+2;
953     memset(szReturnUrl, '#', urllen+4);
954     szReturnUrl[urllen+4] = '\0';
955     SetLastError(0xdeadbeef);
956     hr = pUrlCanonicalizeA(winehqA, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
957     ok( (hr == S_OK) && (dwSize == urllen),
958         "got 0x%x with %u and size %u for '%s' and %u (expected 'S_OK' and size %u)\n",
959         hr, GetLastError(), dwSize, szReturnUrl, lstrlenA(szReturnUrl), urllen);
960
961     /* length is set to 0 */
962     dwSize=0;
963     memset(szReturnUrl, '#', urllen+4);
964     szReturnUrl[urllen+4] = '\0';
965     SetLastError(0xdeadbeef);
966     hr = pUrlCanonicalizeA(winehqA, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
967     ok( (hr == E_INVALIDARG) && (dwSize == 0),
968             "got 0x%x with %u and size %u for '%s' and %u (expected 'E_INVALIDARG' and size %u)\n",
969             hr, GetLastError(), dwSize, szReturnUrl, lstrlenA(szReturnUrl), 0);
970
971     /* url length > INTERNET_MAX_URL_SIZE */
972     dwSize=sizeof(szReturnUrl);
973     memset(longurl, 'a', sizeof(longurl));
974     memcpy(longurl, winehqA, sizeof(winehqA)-1);
975     longurl[sizeof(longurl)-1] = '\0';
976     hr = pUrlCanonicalizeA(longurl, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
977     ok(hr == S_OK, "hr = %x\n", hr);
978
979     test_url_canonicalize(-1, "", 0, S_OK, S_FALSE /* Vista/win2k8 */, "", FALSE);
980
981     /* test url-modification */
982     for(i=0; i<sizeof(TEST_CANONICALIZE)/sizeof(TEST_CANONICALIZE[0]); i++) {
983         test_url_canonicalize(i, TEST_CANONICALIZE[i].url, TEST_CANONICALIZE[i].flags,
984                               TEST_CANONICALIZE[i].expectret, TEST_CANONICALIZE[i].expectret, TEST_CANONICALIZE[i].expecturl,
985                               TEST_CANONICALIZE[i].todo);
986     }
987 }
988
989 /* ########################### */
990
991 static void test_UrlCanonicalizeW(void)
992 {
993     WCHAR szReturnUrl[INTERNET_MAX_URL_LENGTH];
994     DWORD dwSize;
995     DWORD urllen;
996     HRESULT hr;
997     int i;
998
999
1000     if (!pUrlCanonicalizeW) {
1001         win_skip("UrlCanonicalizeW not found\n");
1002         return;
1003     }
1004     urllen = lstrlenW(winehqW);
1005
1006     /* buffer has no space for the result */
1007     dwSize = (urllen-1);
1008     memset(szReturnUrl, '#', (urllen+4) * sizeof(WCHAR));
1009     szReturnUrl[urllen+4] = '\0';
1010     SetLastError(0xdeadbeef);
1011     hr = pUrlCanonicalizeW(winehqW, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
1012     ok( (hr == E_POINTER) && (dwSize == (urllen + 1)),
1013         "got 0x%x with %u and size %u for %u (expected 'E_POINTER' and size %u)\n",
1014         hr, GetLastError(), dwSize, lstrlenW(szReturnUrl), urllen+1);
1015
1016
1017     /* buffer has no space for the terminating '\0' */
1018     dwSize = urllen;
1019     memset(szReturnUrl, '#', (urllen+4) * sizeof(WCHAR));
1020     szReturnUrl[urllen+4] = '\0';
1021     SetLastError(0xdeadbeef);
1022     hr = pUrlCanonicalizeW(winehqW, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
1023     ok( (hr == E_POINTER) && (dwSize == (urllen + 1)),
1024         "got 0x%x with %u and size %u for %u (expected 'E_POINTER' and size %u)\n",
1025         hr, GetLastError(), dwSize, lstrlenW(szReturnUrl), urllen+1);
1026
1027     /* buffer has the required size */
1028     dwSize = urllen +1;
1029     memset(szReturnUrl, '#', (urllen+4) * sizeof(WCHAR));
1030     szReturnUrl[urllen+4] = '\0';
1031     SetLastError(0xdeadbeef);
1032     hr = pUrlCanonicalizeW(winehqW, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
1033     ok( (hr == S_OK) && (dwSize == urllen),
1034         "got 0x%x with %u and size %u for %u (expected 'S_OK' and size %u)\n",
1035         hr, GetLastError(), dwSize, lstrlenW(szReturnUrl), urllen);
1036
1037     /* buffer is larger as the required size */
1038     dwSize = (urllen+2);
1039     memset(szReturnUrl, '#', (urllen+4) * sizeof(WCHAR));
1040     szReturnUrl[urllen+4] = '\0';
1041     SetLastError(0xdeadbeef);
1042     hr = pUrlCanonicalizeW(winehqW, szReturnUrl, &dwSize, URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE);
1043     ok( (hr == S_OK) && (dwSize == urllen),
1044         "got 0x%x with %u and size %u for %u (expected 'S_OK' and size %u)\n",
1045         hr, GetLastError(), dwSize, lstrlenW(szReturnUrl), urllen);
1046
1047     /* check that the characters 1..32 are chopped from the end of the string */
1048     for (i = 1; i < 65536; i++)
1049     {
1050         WCHAR szUrl[128];
1051         BOOL choped;
1052         int pos;
1053
1054         MultiByteToWideChar(CP_ACP, 0, "http://www.winehq.org/X", -1, szUrl, 128);
1055         pos = lstrlenW(szUrl) - 1;
1056         szUrl[pos] = i;
1057         urllen = INTERNET_MAX_URL_LENGTH;
1058         pUrlCanonicalizeW(szUrl, szReturnUrl, &urllen, 0);
1059         choped = lstrlenW(szReturnUrl) < lstrlenW(szUrl);
1060         ok(choped == (i <= 32), "Incorrect char chopping for char %d\n", i);
1061     }
1062 }
1063
1064 /* ########################### */
1065
1066 static void test_url_combine(const char *szUrl1, const char *szUrl2, DWORD dwFlags, HRESULT dwExpectReturn, const char *szExpectUrl)
1067 {
1068     HRESULT hr;
1069     CHAR szReturnUrl[INTERNET_MAX_URL_LENGTH];
1070     WCHAR wszReturnUrl[INTERNET_MAX_URL_LENGTH];
1071     LPWSTR wszUrl1 = GetWideString(szUrl1);
1072     LPWSTR wszUrl2 = GetWideString(szUrl2);
1073     LPWSTR wszExpectUrl = GetWideString(szExpectUrl);
1074     LPWSTR wszConvertedUrl;
1075
1076     DWORD dwSize;
1077     DWORD dwExpectLen = lstrlen(szExpectUrl);
1078
1079     if (!pUrlCombineA) {
1080         win_skip("UrlCombineA not found\n");
1081         return;
1082     }
1083
1084     hr = pUrlCombineA(szUrl1, szUrl2, NULL, NULL, dwFlags);
1085     ok(hr == E_INVALIDARG, "UrlCombineA returned 0x%08x, expected 0x%08x\n", hr, E_INVALIDARG);
1086
1087     dwSize = 0;
1088     hr = pUrlCombineA(szUrl1, szUrl2, NULL, &dwSize, dwFlags);
1089     ok(hr == E_POINTER, "Checking length of string, return was 0x%08x, expected 0x%08x\n", hr, E_POINTER);
1090     ok(dwSize == dwExpectLen+1, "Got length %d, expected %d\n", dwSize, dwExpectLen+1);
1091
1092     dwSize--;
1093     hr = pUrlCombineA(szUrl1, szUrl2, szReturnUrl, &dwSize, dwFlags);
1094     ok(hr == E_POINTER, "UrlCombineA returned 0x%08x, expected 0x%08x\n", hr, E_POINTER);
1095     ok(dwSize == dwExpectLen+1, "Got length %d, expected %d\n", dwSize, dwExpectLen+1);
1096
1097     hr = pUrlCombineA(szUrl1, szUrl2, szReturnUrl, &dwSize, dwFlags);
1098     ok(hr == dwExpectReturn, "UrlCombineA returned 0x%08x, expected 0x%08x\n", hr, dwExpectReturn);
1099     ok(dwSize == dwExpectLen, "Got length %d, expected %d\n", dwSize, dwExpectLen);
1100     if(SUCCEEDED(hr)) {
1101         ok(strcmp(szReturnUrl,szExpectUrl)==0, "Expected %s, but got %s\n", szExpectUrl, szReturnUrl);
1102     }
1103
1104     if (pUrlCombineW) {
1105         dwSize = 0;
1106         hr = pUrlCombineW(wszUrl1, wszUrl2, NULL, &dwSize, dwFlags);
1107         ok(hr == E_POINTER, "Checking length of string, return was 0x%08x, expected 0x%08x\n", hr, E_POINTER);
1108         ok(dwSize == dwExpectLen+1, "Got length %d, expected %d\n", dwSize, dwExpectLen+1);
1109
1110         dwSize--;
1111         hr = pUrlCombineW(wszUrl1, wszUrl2, wszReturnUrl, &dwSize, dwFlags);
1112         ok(hr == E_POINTER, "UrlCombineW returned 0x%08x, expected 0x%08x\n", hr, E_POINTER);
1113         ok(dwSize == dwExpectLen+1, "Got length %d, expected %d\n", dwSize, dwExpectLen+1);
1114
1115         hr = pUrlCombineW(wszUrl1, wszUrl2, wszReturnUrl, &dwSize, dwFlags);
1116         ok(hr == dwExpectReturn, "UrlCombineW returned 0x%08x, expected 0x%08x\n", hr, dwExpectReturn);
1117         ok(dwSize == dwExpectLen, "Got length %d, expected %d\n", dwSize, dwExpectLen);
1118         if(SUCCEEDED(hr)) {
1119             wszConvertedUrl = GetWideString(szReturnUrl);
1120             ok(lstrcmpW(wszReturnUrl, wszConvertedUrl)==0, "Strings didn't match between ascii and unicode UrlCombine!\n");
1121             FreeWideString(wszConvertedUrl);
1122         }
1123     }
1124
1125     FreeWideString(wszUrl1);
1126     FreeWideString(wszUrl2);
1127     FreeWideString(wszExpectUrl);
1128 }
1129
1130 /* ########################### */
1131
1132 static void test_UrlCombine(void)
1133 {
1134     unsigned int i;
1135     for(i=0; i<sizeof(TEST_COMBINE)/sizeof(TEST_COMBINE[0]); i++) {
1136         test_url_combine(TEST_COMBINE[i].url1, TEST_COMBINE[i].url2, TEST_COMBINE[i].flags,
1137                          TEST_COMBINE[i].expectret, TEST_COMBINE[i].expecturl);
1138     }
1139 }
1140
1141 /* ########################### */
1142
1143 static void test_UrlCreateFromPath(void)
1144 {
1145     size_t i;
1146     char ret_url[INTERNET_MAX_URL_LENGTH];
1147     DWORD len, ret;
1148     WCHAR ret_urlW[INTERNET_MAX_URL_LENGTH];
1149     WCHAR *pathW, *urlW;
1150
1151     if (!pUrlCreateFromPathA) {
1152         win_skip("UrlCreateFromPathA not found\n");
1153         return;
1154     }
1155
1156     for(i = 0; i < sizeof(TEST_URLFROMPATH) / sizeof(TEST_URLFROMPATH[0]); i++) {
1157         len = INTERNET_MAX_URL_LENGTH;
1158         ret = pUrlCreateFromPathA(TEST_URLFROMPATH[i].path, ret_url, &len, 0);
1159         ok(ret == TEST_URLFROMPATH[i].ret, "ret %08x from path %s\n", ret, TEST_URLFROMPATH[i].path);
1160         ok(!lstrcmpi(ret_url, TEST_URLFROMPATH[i].url), "url %s from path %s\n", ret_url, TEST_URLFROMPATH[i].path);
1161         ok(len == strlen(ret_url), "ret len %d from path %s\n", len, TEST_URLFROMPATH[i].path);
1162
1163         if (pUrlCreateFromPathW) {
1164             len = INTERNET_MAX_URL_LENGTH;
1165             pathW = GetWideString(TEST_URLFROMPATH[i].path);
1166             urlW = GetWideString(TEST_URLFROMPATH[i].url);
1167             ret = pUrlCreateFromPathW(pathW, ret_urlW, &len, 0);
1168             WideCharToMultiByte(CP_ACP, 0, ret_urlW, -1, ret_url, sizeof(ret_url),0,0);
1169             ok(ret == TEST_URLFROMPATH[i].ret, "ret %08x from path L\"%s\", expected %08x\n",
1170                 ret, TEST_URLFROMPATH[i].path, TEST_URLFROMPATH[i].ret);
1171             ok(!lstrcmpiW(ret_urlW, urlW), "got %s expected %s from path L\"%s\"\n",
1172                 ret_url, TEST_URLFROMPATH[i].url, TEST_URLFROMPATH[i].path);
1173             ok(len == lstrlenW(ret_urlW), "ret len %d from path L\"%s\"\n", len, TEST_URLFROMPATH[i].path);
1174             FreeWideString(urlW);
1175             FreeWideString(pathW);
1176         }
1177     }
1178 }
1179
1180 /* ########################### */
1181
1182 static void test_UrlIs_null(DWORD flag)
1183 {
1184     BOOL ret;
1185     ret = pUrlIsA(NULL, flag);
1186     ok(ret == FALSE, "pUrlIsA(NULL, %d) failed\n", flag);
1187     ret = pUrlIsW(NULL, flag);
1188     ok(ret == FALSE, "pUrlIsW(NULL, %d) failed\n", flag);
1189 }
1190
1191 static void test_UrlIs(void)
1192 {
1193     BOOL ret;
1194     size_t i;
1195     WCHAR wurl[80];
1196
1197     if (!pUrlIsA) {
1198         win_skip("UrlIsA not found\n");
1199         return;
1200     }
1201
1202     test_UrlIs_null(URLIS_APPLIABLE);
1203     test_UrlIs_null(URLIS_DIRECTORY);
1204     test_UrlIs_null(URLIS_FILEURL);
1205     test_UrlIs_null(URLIS_HASQUERY);
1206     test_UrlIs_null(URLIS_NOHISTORY);
1207     test_UrlIs_null(URLIS_OPAQUE);
1208     test_UrlIs_null(URLIS_URL);
1209
1210     for(i = 0; i < sizeof(TEST_PATH_IS_URL) / sizeof(TEST_PATH_IS_URL[0]); i++) {
1211         MultiByteToWideChar(CP_ACP, 0, TEST_PATH_IS_URL[i].path, -1, wurl, 80);
1212
1213         ret = pUrlIsA( TEST_PATH_IS_URL[i].path, URLIS_URL );
1214         ok( ret == TEST_PATH_IS_URL[i].expect,
1215             "returned %d from path %s, expected %d\n", ret, TEST_PATH_IS_URL[i].path,
1216             TEST_PATH_IS_URL[i].expect );
1217
1218         if (pUrlIsW) {
1219             ret = pUrlIsW( wurl, URLIS_URL );
1220             ok( ret == TEST_PATH_IS_URL[i].expect,
1221                 "returned %d from path (UrlIsW) %s, expected %d\n", ret,
1222                 TEST_PATH_IS_URL[i].path, TEST_PATH_IS_URL[i].expect );
1223         }
1224     }
1225     for(i = 0; i < sizeof(TEST_URLIS_ATTRIBS) / sizeof(TEST_URLIS_ATTRIBS[0]); i++) {
1226         MultiByteToWideChar(CP_ACP, 0, TEST_URLIS_ATTRIBS[i].url, -1, wurl, 80);
1227
1228         ret = pUrlIsA( TEST_URLIS_ATTRIBS[i].url, URLIS_OPAQUE);
1229         ok( ret == TEST_URLIS_ATTRIBS[i].expectOpaque,
1230             "returned %d for URLIS_OPAQUE, url \"%s\", expected %d\n", ret, TEST_URLIS_ATTRIBS[i].url,
1231             TEST_URLIS_ATTRIBS[i].expectOpaque );
1232         ret = pUrlIsA( TEST_URLIS_ATTRIBS[i].url, URLIS_FILEURL);
1233         ok( ret == TEST_URLIS_ATTRIBS[i].expectFile,
1234             "returned %d for URLIS_FILEURL, url \"%s\", expected %d\n", ret, TEST_URLIS_ATTRIBS[i].url,
1235             TEST_URLIS_ATTRIBS[i].expectFile );
1236
1237         if (pUrlIsW) {
1238             ret = pUrlIsW( wurl, URLIS_OPAQUE);
1239             ok( ret == TEST_URLIS_ATTRIBS[i].expectOpaque,
1240                 "returned %d for URLIS_OPAQUE (UrlIsW), url \"%s\", expected %d\n",
1241                 ret, TEST_URLIS_ATTRIBS[i].url, TEST_URLIS_ATTRIBS[i].expectOpaque );
1242             ret = pUrlIsW( wurl, URLIS_FILEURL);
1243             ok( ret == TEST_URLIS_ATTRIBS[i].expectFile,
1244                 "returned %d for URLIS_FILEURL (UrlIsW), url \"%s\", expected %d\n",
1245                 ret, TEST_URLIS_ATTRIBS[i].url, TEST_URLIS_ATTRIBS[i].expectFile );
1246         }
1247     }
1248 }
1249
1250 /* ########################### */
1251
1252 static void test_UrlUnescape(void)
1253 {
1254     CHAR szReturnUrl[INTERNET_MAX_URL_LENGTH];
1255     WCHAR ret_urlW[INTERNET_MAX_URL_LENGTH];
1256     WCHAR *urlW, *expected_urlW;
1257     DWORD dwEscaped;
1258     size_t i;
1259     static char inplace[] = "file:///C:/Program%20Files";
1260     static char another_inplace[] = "file:///C:/Program%20Files";
1261     static const char expected[] = "file:///C:/Program Files";
1262     static WCHAR inplaceW[] = {'f','i','l','e',':','/','/','/','C',':','/','P','r','o','g','r','a','m',' ','F','i','l','e','s',0};
1263     static WCHAR another_inplaceW[] ={'f','i','l','e',':','/','/','/',
1264                 'C',':','/','P','r','o','g','r','a','m','%','2','0','F','i','l','e','s',0};
1265     HRESULT res;
1266
1267     if (!pUrlUnescapeA) {
1268         win_skip("UrlUnescapeA not found\n");
1269         return;
1270     }
1271     for(i=0; i<sizeof(TEST_URL_UNESCAPE)/sizeof(TEST_URL_UNESCAPE[0]); i++) {
1272         dwEscaped=INTERNET_MAX_URL_LENGTH;
1273         res = pUrlUnescapeA(TEST_URL_UNESCAPE[i].url, szReturnUrl, &dwEscaped, 0);
1274         ok(res == S_OK,
1275             "UrlUnescapeA returned 0x%x (expected S_OK) for \"%s\"\n",
1276             res, TEST_URL_UNESCAPE[i].url);
1277         ok(strcmp(szReturnUrl,TEST_URL_UNESCAPE[i].expect)==0, "Expected \"%s\", but got \"%s\" from \"%s\"\n", TEST_URL_UNESCAPE[i].expect, szReturnUrl, TEST_URL_UNESCAPE[i].url);
1278
1279         ZeroMemory(szReturnUrl, sizeof(szReturnUrl));
1280         /* if we set the bufferpointer to NULL here UrlUnescape  fails and string gets not converted */
1281         res = pUrlUnescapeA(TEST_URL_UNESCAPE[i].url, szReturnUrl, NULL, 0);
1282         ok(res == E_INVALIDARG,
1283             "UrlUnescapeA returned 0x%x (expected E_INVALIDARG) for \"%s\"\n",
1284             res, TEST_URL_UNESCAPE[i].url);
1285         ok(strcmp(szReturnUrl,"")==0, "Expected empty string\n");
1286
1287         if (pUrlUnescapeW) {
1288             dwEscaped = INTERNET_MAX_URL_LENGTH;
1289             urlW = GetWideString(TEST_URL_UNESCAPE[i].url);
1290             expected_urlW = GetWideString(TEST_URL_UNESCAPE[i].expect);
1291             res = pUrlUnescapeW(urlW, ret_urlW, &dwEscaped, 0);
1292             ok(res == S_OK,
1293                 "UrlUnescapeW returned 0x%x (expected S_OK) for \"%s\"\n",
1294                 res, TEST_URL_UNESCAPE[i].url);
1295
1296             WideCharToMultiByte(CP_ACP,0,ret_urlW,-1,szReturnUrl,INTERNET_MAX_URL_LENGTH,0,0);
1297             ok(lstrcmpW(ret_urlW, expected_urlW)==0,
1298                 "Expected \"%s\", but got \"%s\" from \"%s\" flags %08lx\n",
1299                 TEST_URL_UNESCAPE[i].expect, szReturnUrl, TEST_URL_UNESCAPE[i].url, 0L);
1300             FreeWideString(urlW);
1301             FreeWideString(expected_urlW);
1302         }
1303     }
1304
1305     dwEscaped = sizeof(inplace);
1306     res = pUrlUnescapeA(inplace, NULL, &dwEscaped, URL_UNESCAPE_INPLACE);
1307     ok(res == S_OK, "UrlUnescapeA returned 0x%x (expected S_OK)\n", res);
1308     ok(!strcmp(inplace, expected), "got %s expected %s\n", inplace, expected);
1309     ok(dwEscaped == 27, "got %d expected 27\n", dwEscaped);
1310
1311     /* if we set the bufferpointer to NULL, the string apparently still gets converted (Google Lively does this)) */
1312     res = pUrlUnescapeA(another_inplace, NULL, NULL, URL_UNESCAPE_INPLACE);
1313     ok(res == S_OK, "UrlUnescapeA returned 0x%x (expected S_OK)\n", res);
1314     ok(!strcmp(another_inplace, expected), "got %s expected %s\n", another_inplace, expected);
1315
1316     if (pUrlUnescapeW) {
1317         dwEscaped = sizeof(inplaceW);
1318         res = pUrlUnescapeW(inplaceW, NULL, &dwEscaped, URL_UNESCAPE_INPLACE);
1319         ok(res == S_OK, "UrlUnescapeW returned 0x%x (expected S_OK)\n", res);
1320         ok(dwEscaped == 50, "got %d expected 50\n", dwEscaped);
1321
1322         /* if we set the bufferpointer to NULL, the string apparently still gets converted (Google Lively does this)) */
1323         res = pUrlUnescapeW(another_inplaceW, NULL, NULL, URL_UNESCAPE_INPLACE);
1324         ok(res == S_OK, "UrlUnescapeW returned 0x%x (expected S_OK)\n", res);
1325
1326         ok(lstrlenW(another_inplaceW) == 24, "got %d expected 24\n", lstrlenW(another_inplaceW));
1327     }
1328 }
1329
1330 static const struct parse_url_test_t {
1331     const char *url;
1332     HRESULT hres;
1333     UINT protocol_len;
1334     UINT scheme;
1335 } parse_url_tests[] = {
1336     {"http://www.winehq.org/",S_OK,4,URL_SCHEME_HTTP},
1337     {"https://www.winehq.org/",S_OK,5,URL_SCHEME_HTTPS},
1338     {"ftp://www.winehq.org/",S_OK,3,URL_SCHEME_FTP},
1339     {"test.txt?test=c:/dir",URL_E_INVALID_SYNTAX},
1340     {"test.txt",URL_E_INVALID_SYNTAX},
1341     {"xxx://www.winehq.org/",S_OK,3,URL_SCHEME_UNKNOWN},
1342     {"1xx://www.winehq.org/",S_OK,3,URL_SCHEME_UNKNOWN},
1343     {"-xx://www.winehq.org/",S_OK,3,URL_SCHEME_UNKNOWN},
1344     {"xx0://www.winehq.org/",S_OK,3,URL_SCHEME_UNKNOWN},
1345     {"x://www.winehq.org/",URL_E_INVALID_SYNTAX},
1346     {"xx$://www.winehq.org/",URL_E_INVALID_SYNTAX},
1347     {"htt?p://www.winehq.org/",URL_E_INVALID_SYNTAX},
1348     {"ab-://www.winehq.org/",S_OK,3,URL_SCHEME_UNKNOWN},
1349     {" http://www.winehq.org/",URL_E_INVALID_SYNTAX},
1350 };
1351
1352 static void test_ParseURL(void)
1353 {
1354     const struct parse_url_test_t *test;
1355     WCHAR url[INTERNET_MAX_URL_LENGTH];
1356     PARSEDURLA parseda;
1357     PARSEDURLW parsedw;
1358     HRESULT hres;
1359
1360     for(test = parse_url_tests; test < parse_url_tests + sizeof(parse_url_tests)/sizeof(*parse_url_tests); test++) {
1361         memset(&parseda, 0xd0, sizeof(parseda));
1362         parseda.cbSize = sizeof(parseda);
1363         hres = pParseURLA(test->url, &parseda);
1364         ok(hres == test->hres, "ParseURL failed: %08x, expected %08x\n", hres, test->hres);
1365         if(hres == S_OK) {
1366             ok(parseda.pszProtocol == test->url, "parseda.pszProtocol = %s, expected %s\n",
1367                parseda.pszProtocol, test->url);
1368             ok(parseda.cchProtocol == test->protocol_len, "parseda.cchProtocol = %d, expected %d\n",
1369                parseda.cchProtocol, test->protocol_len);
1370             ok(parseda.pszSuffix == test->url+test->protocol_len+1, "parseda.pszSuffix = %s, expected %s\n",
1371                parseda.pszSuffix, test->url+test->protocol_len+1);
1372             ok(parseda.cchSuffix == strlen(test->url+test->protocol_len+1),
1373                "parseda.pszSuffix = %d, expected %d\n",
1374                parseda.cchSuffix, lstrlenA(test->url+test->protocol_len+1));
1375             ok(parseda.nScheme == test->scheme, "parseda.nScheme = %d, expected %d\n",
1376                parseda.nScheme, test->scheme);
1377         }else {
1378             ok(!parseda.pszProtocol, "parseda.pszProtocol = %p\n", parseda.pszProtocol);
1379             ok(parseda.nScheme == 0xd0d0d0d0, "nScheme = %d\n", parseda.nScheme);
1380         }
1381
1382         MultiByteToWideChar(CP_ACP, 0, test->url, -1, url, sizeof(url)/sizeof(WCHAR));
1383
1384         memset(&parsedw, 0xd0, sizeof(parsedw));
1385         parsedw.cbSize = sizeof(parsedw);
1386         hres = pParseURLW(url, &parsedw);
1387         ok(hres == test->hres, "ParseURL failed: %08x, expected %08x\n", hres, test->hres);
1388         if(hres == S_OK) {
1389             ok(parsedw.pszProtocol == url, "parsedw.pszProtocol = %s, expected %s\n",
1390                wine_dbgstr_w(parsedw.pszProtocol), wine_dbgstr_w(url));
1391             ok(parsedw.cchProtocol == test->protocol_len, "parsedw.cchProtocol = %d, expected %d\n",
1392                parsedw.cchProtocol, test->protocol_len);
1393             ok(parsedw.pszSuffix == url+test->protocol_len+1, "parsedw.pszSuffix = %s, expected %s\n",
1394                wine_dbgstr_w(parsedw.pszSuffix), wine_dbgstr_w(url+test->protocol_len+1));
1395             ok(parsedw.cchSuffix == strlen(test->url+test->protocol_len+1),
1396                "parsedw.pszSuffix = %d, expected %d\n",
1397                parsedw.cchSuffix, lstrlenA(test->url+test->protocol_len+1));
1398             ok(parsedw.nScheme == test->scheme, "parsedw.nScheme = %d, expected %d\n",
1399                parsedw.nScheme, test->scheme);
1400         }else {
1401             ok(!parsedw.pszProtocol, "parsedw.pszProtocol = %p\n", parseda.pszProtocol);
1402             ok(parsedw.nScheme == 0xd0d0d0d0, "nScheme = %d\n", parsedw.nScheme);
1403         }
1404     }
1405 }
1406
1407 static void test_HashData(void)
1408 {
1409     HRESULT res;
1410     BYTE input[16] = {0x51, 0x33, 0x4F, 0xA7, 0x45, 0x15, 0xF0, 0x52, 0x90,
1411                       0x2B, 0xE7, 0xF5, 0xFD, 0xE1, 0xA6, 0xA7};
1412     BYTE output[32];
1413     static const BYTE expected[] = {0x54, 0x9C, 0x92, 0x55, 0xCD, 0x82, 0xFF,
1414                                     0xA1, 0x8E, 0x0F, 0xCF, 0x93, 0x14, 0xAA,
1415                                     0xE3, 0x2D};
1416     static const BYTE expected2[] = {0x54, 0x9C, 0x92, 0x55, 0xCD, 0x82, 0xFF,
1417                                      0xA1, 0x8E, 0x0F, 0xCF, 0x93, 0x14, 0xAA,
1418                                      0xE3, 0x2D, 0x47, 0xFC, 0x80, 0xB8, 0xD0,
1419                                      0x49, 0xE6, 0x13, 0x2A, 0x30, 0x51, 0x8D,
1420                                      0xF9, 0x4B, 0x07, 0xA6};
1421     static const BYTE expected3[] = {0x2B, 0xDC, 0x9A, 0x1B, 0xF0, 0x5A, 0xF9,
1422                                      0xC6, 0xBE, 0x94, 0x6D, 0xF3, 0x33, 0xC1,
1423                                      0x36, 0x07};
1424     int i;
1425
1426     /* Test hashing with identically sized input/output buffers. */
1427     res = pHashData(input, 16, output, 16);
1428     ok(res == S_OK, "Expected HashData to return S_OK, got 0x%08x\n", res);
1429     if(res == S_OK)
1430        ok(!memcmp(output, expected, sizeof(expected)),
1431           "Output buffer did not match expected contents\n");
1432
1433     /* Test hashing with larger output buffer. */
1434     res = pHashData(input, 16, output, 32);
1435     ok(res == S_OK, "Expected HashData to return S_OK, got 0x%08x\n", res);
1436     if(res == S_OK)
1437        ok(!memcmp(output, expected2, sizeof(expected2)),
1438           "Output buffer did not match expected contents\n");
1439
1440     /* Test hashing with smaller input buffer. */
1441     res = pHashData(input, 8, output, 16);
1442     ok(res == S_OK, "Expected HashData to return S_OK, got 0x%08x\n", res);
1443     if(res == S_OK)
1444        ok(!memcmp(output, expected3, sizeof(expected3)),
1445           "Output buffer did not match expected contents\n");
1446
1447     /* Test passing NULL pointers for input/output parameters. */
1448     res = pHashData(NULL, 0, NULL, 0);
1449     ok(res == E_INVALIDARG || broken(res == S_OK), /* Windows 2000 */
1450        "Expected HashData to return E_INVALIDARG, got 0x%08x\n", res);
1451
1452     res = pHashData(input, 0, NULL, 0);
1453     ok(res == E_INVALIDARG || broken(res == S_OK), /* Windows 2000 */
1454        "Expected HashData to return E_INVALIDARG, got 0x%08x\n", res);
1455
1456     res = pHashData(NULL, 0, output, 0);
1457     ok(res == E_INVALIDARG || broken(res == S_OK), /* Windows 2000 */
1458        "Expected HashData to return E_INVALIDARG, got 0x%08x\n", res);
1459
1460     /* Test passing valid pointers with sizes of zero. */
1461     for (i = 0; i < sizeof(input)/sizeof(BYTE); i++)
1462         input[i] = 0x00;
1463
1464     for (i = 0; i < sizeof(output)/sizeof(BYTE); i++)
1465         output[i] = 0xFF;
1466
1467     res = pHashData(input, 0, output, 0);
1468     ok(res == S_OK, "Expected HashData to return S_OK, got 0x%08x\n", res);
1469
1470     /* The buffers should be unchanged. */
1471     for (i = 0; i < sizeof(input)/sizeof(BYTE); i++)
1472     {
1473         ok(input[i] == 0x00, "Expected the input buffer to be unchanged\n");
1474         if(input[i] != 0x00) break;
1475     }
1476
1477     for (i = 0; i < sizeof(output)/sizeof(BYTE); i++)
1478     {
1479         ok(output[i] == 0xFF, "Expected the output buffer to be unchanged\n");
1480         if(output[i] != 0xFF) break;
1481     }
1482
1483     /* Input/output parameters are not validated. */
1484     res = pHashData((BYTE *)0xdeadbeef, 0, (BYTE *)0xdeadbeef, 0);
1485     ok(res == S_OK, "Expected HashData to return S_OK, got 0x%08x\n", res);
1486
1487     if (0)
1488     {
1489         res = pHashData((BYTE *)0xdeadbeef, 1, (BYTE *)0xdeadbeef, 1);
1490         trace("HashData returned 0x%08x\n", res);
1491     }
1492 }
1493
1494 /* ########################### */
1495
1496 START_TEST(url)
1497 {
1498   char *pFunc;
1499
1500   hShlwapi = GetModuleHandleA("shlwapi.dll");
1501
1502   /* SHCreateStreamOnFileEx was introduced in shlwapi v6.0 */
1503   pFunc = (void*)GetProcAddress(hShlwapi, "SHCreateStreamOnFileEx");
1504   if(!pFunc){
1505       win_skip("Too old shlwapi version\n");
1506       return;
1507   }
1508
1509   pUrlUnescapeA = (void *) GetProcAddress(hShlwapi, "UrlUnescapeA");
1510   pUrlUnescapeW = (void *) GetProcAddress(hShlwapi, "UrlUnescapeW");
1511   pUrlIsA = (void *) GetProcAddress(hShlwapi, "UrlIsA");
1512   pUrlIsW = (void *) GetProcAddress(hShlwapi, "UrlIsW");
1513   pUrlHashA = (void *) GetProcAddress(hShlwapi, "UrlHashA");
1514   pUrlHashW = (void *) GetProcAddress(hShlwapi, "UrlHashW");
1515   pUrlGetPartA = (void *) GetProcAddress(hShlwapi, "UrlGetPartA");
1516   pUrlGetPartW = (void *) GetProcAddress(hShlwapi, "UrlGetPartW");
1517   pUrlEscapeA = (void *) GetProcAddress(hShlwapi, "UrlEscapeA");
1518   pUrlEscapeW = (void *) GetProcAddress(hShlwapi, "UrlEscapeW");
1519   pUrlCreateFromPathA = (void *) GetProcAddress(hShlwapi, "UrlCreateFromPathA");
1520   pUrlCreateFromPathW = (void *) GetProcAddress(hShlwapi, "UrlCreateFromPathW");
1521   pUrlCombineA = (void *) GetProcAddress(hShlwapi, "UrlCombineA");
1522   pUrlCombineW = (void *) GetProcAddress(hShlwapi, "UrlCombineW");
1523   pUrlCanonicalizeA = (void *) GetProcAddress(hShlwapi, "UrlCanonicalizeA");
1524   pUrlCanonicalizeW = (void *) GetProcAddress(hShlwapi, "UrlCanonicalizeW");
1525   pUrlApplySchemeA = (void *) GetProcAddress(hShlwapi, "UrlApplySchemeA");
1526   pUrlApplySchemeW = (void *) GetProcAddress(hShlwapi, "UrlApplySchemeW");
1527   pParseURLA = (void*)GetProcAddress(hShlwapi, (LPCSTR)1);
1528   pParseURLW = (void*)GetProcAddress(hShlwapi, (LPCSTR)2);
1529   pHashData = (void*)GetProcAddress(hShlwapi, "HashData");
1530
1531   test_UrlApplyScheme();
1532   test_UrlHash();
1533   test_UrlGetPart();
1534   test_UrlCanonicalizeA();
1535   test_UrlCanonicalizeW();
1536   test_UrlEscape();
1537   test_UrlCombine();
1538   test_UrlCreateFromPath();
1539   test_UrlIs();
1540   test_UrlUnescape();
1541   test_ParseURL();
1542   test_HashData();
1543 }