?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
push 65f191514f6da34cdfbbc73b8f5d66c351839600
[wine/hacks.git] / dlls / mlang / tests / mlang.c
blob2ae7c742abbd2faf6a3931a81e800f4c15463855
1 /*
2 * Unit test suite for MLANG APIs.
3 *
4 * Copyright 2004 Dmitry Timoshkov
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 #define COBJMACROS
22
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winerror.h"
28 #include "initguid.h"
29 #include "mlang.h"
30
31 #include "wine/test.h"
32
33 #ifndef CP_UNICODE
34 #define CP_UNICODE 1200
35 #endif
36
37 #if 0
38 #define DUMP_CP_INFO
39 #define DUMP_SCRIPT_INFO
40
41 #if defined DUMP_CP_INFO || defined DUMP_SCRIPT_INFO
42 #include "wine/debug.h"
43 #endif
44 #endif /* 0 */
45
46 static BOOL (WINAPI *pGetCPInfoExA)(UINT, DWORD, LPCPINFOEXA);
47 static HRESULT (WINAPI *pConvertINetMultiByteToUnicode)(LPDWORD, DWORD, LPCSTR,
48 LPINT, LPWSTR, LPINT);
49 static HRESULT (WINAPI *pConvertINetUnicodeToMultiByte)(LPDWORD, DWORD, LPCWSTR,
50 LPINT, LPSTR, LPINT);
51 typedef struct lcid_tag_table {
52 LPCSTR rfc1766;
53 LCID lcid;
54 HRESULT hr;
55 } lcid_table_entry;
56
57 static const lcid_table_entry lcid_table[] = {
58 {"e", -1, E_FAIL},
59 {"", -1, E_FAIL},
60 {"-", -1, E_FAIL},
61 {"e-", -1, E_FAIL},
62
63 {"en", 9, S_OK}, /* only en is special (using PRIMARYLANGID) */
64 {"en-gb", 0x809, S_OK},
65 {"en-GB", 0x809, S_OK},
66 {"EN-GB", 0x809, S_OK},
67 {"en-US", 0x409, S_OK},
68 {"en-us", 0x409, S_OK}
69
70 };
71
72
73 static BOOL init_function_ptrs(void)
74 {
75 HMODULE hMlang;
76
77 hMlang = LoadLibraryA("mlang.dll");
78 if (!hMlang)
79 {
80 skip("mlang not available\n");
81 return FALSE;
82 }
83
84 pConvertINetMultiByteToUnicode = (void *)GetProcAddress(hMlang, "ConvertINetMultiByteToUnicode");
85 pConvertINetUnicodeToMultiByte = (void *)GetProcAddress(hMlang, "ConvertINetUnicodeToMultiByte");
86
87 pGetCPInfoExA = (void *)GetProcAddress(GetModuleHandleA("kernel32.dll"), "GetCPInfoExA");
88
89 return TRUE;
90 }
91
92 #define ok_w2(format, szString1, szString2) \
93 \
94 if (lstrcmpW((szString1), (szString2)) != 0) \
95 { \
96 CHAR string1[256], string2[256]; \
97 WideCharToMultiByte(CP_ACP, 0, (szString1), -1, string1, 256, NULL, NULL); \
98 WideCharToMultiByte(CP_ACP, 0, (szString2), -1, string2, 256, NULL, NULL); \
99 ok(0, (format), string1, string2); \
100 }
101
102 static void test_multibyte_to_unicode_translations(IMultiLanguage2 *iML2)
103 {
104 /* these APIs are broken regarding constness of the input buffer */
105 char stringA[] = "Just a test string\0"; /* double 0 for CP_UNICODE tests */
106 WCHAR stringW[] = {'J','u','s','t',' ','a',' ','t','e','s','t',' ','s','t','r','i','n','g',0};
107 char bufA[256];
108 WCHAR bufW[256];
109 UINT lenA, lenW, expected_len;
110 HRESULT ret;
111
112 /* IMultiLanguage2_ConvertStringToUnicode tests */
113
114 memset(bufW, 'x', sizeof(bufW));
115 lenA = 0;
116 lenW = sizeof(bufW)/sizeof(bufW[0]);
117 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
118 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
119 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
120 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
121
122 memset(bufW, 'x', sizeof(bufW));
123 lenA = -1;
124 lenW = sizeof(bufW)/sizeof(bufW[0]);
125 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
126 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
127 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
128 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
129 if (lenW < sizeof(bufW)/sizeof(bufW[0])) {
130 /* can only happen if the convert call fails */
131 ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
132 bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
133 }
134 ok(!lstrcmpW(bufW, stringW), "bufW/stringW mismatch\n");
135
136 memset(bufW, 'x', sizeof(bufW));
137 lenA = -1;
138 lenW = 5;
139 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
140 ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringToUnicode should fail: %08x\n", ret);
141 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
142 /* still has to do partial conversion */
143 ok(!memcmp(bufW, stringW, 5 * sizeof(WCHAR)), "bufW/stringW mismatch\n");
144
145 memset(bufW, 'x', sizeof(bufW));
146 lenA = -1;
147 lenW = sizeof(bufW)/sizeof(bufW[0]);
148 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, CP_UNICODE, stringA, &lenA, bufW, &lenW);
149 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
150 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
151 ok(lenW == lstrlenW(stringW)/(int)sizeof(WCHAR), "wrong lenW %u\n", lenW);
152 ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
153 bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
154 ok(!lstrcmpA((LPCSTR)bufW, stringA), "bufW/stringA mismatch\n");
155
156 memset(bufW, 'x', sizeof(bufW));
157 lenA = lstrlenA(stringA);
158 lenW = 0;
159 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, NULL, &lenW);
160 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
161 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
162 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
163 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
164
165 memset(bufW, 'x', sizeof(bufW));
166 lenA = lstrlenA(stringA);
167 lenW = sizeof(bufW)/sizeof(bufW[0]);
168 ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, (INT *)&lenA, NULL, (INT *)&lenW);
169 ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
170 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
171 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
172 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
173
174 memset(bufW, 'x', sizeof(bufW));
175 lenA = lstrlenA(stringA);
176 lenW = 0;
177 ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, (INT *)&lenA, NULL, (INT *)&lenW);
178 ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
179 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
180 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
181 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
182
183 /* IMultiLanguage2_ConvertStringFromUnicode tests */
184
185 memset(bufA, 'x', sizeof(bufA));
186 lenW = 0;
187 lenA = sizeof(bufA);
188 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
189 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
190 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
191 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
192
193 memset(bufA, 'x', sizeof(bufA));
194 lenW = -1;
195 lenA = sizeof(bufA);
196 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
197 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
198 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
199 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
200 ok(bufA[lenA] != 0, "buf should not be 0 terminated\n");
201 bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
202 ok(!lstrcmpA(bufA, stringA), "bufA/stringA mismatch\n");
203
204 memset(bufA, 'x', sizeof(bufA));
205 lenW = -1;
206 lenA = 5;
207 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
208 ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringFromUnicode should fail: %08x\n", ret);
209 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
210 /* still has to do partial conversion */
211 ok(!memcmp(bufA, stringA, 5), "bufW/stringW mismatch\n");
212
213 memset(bufA, 'x', sizeof(bufA));
214 lenW = -1;
215 lenA = sizeof(bufA);
216 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, CP_UNICODE, stringW, &lenW, bufA, &lenA);
217 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
218 ok(lenA == lstrlenA(stringA) * (int)sizeof(WCHAR), "wrong lenA %u\n", lenA);
219 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
220 ok(bufA[lenA] != 0 && bufA[lenA+1] != 0, "buf should not be 0 terminated\n");
221 bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
222 bufA[lenA+1] = 0; /* sizeof(WCHAR) */
223 ok(!lstrcmpW((LPCWSTR)bufA, stringW), "bufA/stringW mismatch\n");
224
225 memset(bufA, 'x', sizeof(bufA));
226 lenW = lstrlenW(stringW);
227 lenA = 0;
228 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, NULL, &lenA);
229 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
230 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
231 expected_len = WideCharToMultiByte(1252, 0, stringW, lenW, NULL, 0, NULL, NULL);
232 ok(lenA == expected_len, "expected lenA %u, got %u\n", expected_len, lenA);
233 }
234
235 static void cpinfo_cmp(MIMECPINFO *cpinfo1, MIMECPINFO *cpinfo2)
236 {
237 ok(cpinfo1->dwFlags == cpinfo2->dwFlags, "dwFlags mismatch: %08x != %08x\n", cpinfo1->dwFlags, cpinfo2->dwFlags);
238 ok(cpinfo1->uiCodePage == cpinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", cpinfo1->uiCodePage, cpinfo2->uiCodePage);
239 ok(cpinfo1->uiFamilyCodePage == cpinfo2->uiFamilyCodePage, "uiFamilyCodePage mismatch: %u != %u\n", cpinfo1->uiFamilyCodePage, cpinfo2->uiFamilyCodePage);
240 ok(!lstrcmpW(cpinfo1->wszDescription, cpinfo2->wszDescription), "wszDescription mismatch\n");
241 ok(!lstrcmpW(cpinfo1->wszWebCharset, cpinfo2->wszWebCharset), "wszWebCharset mismatch\n");
242 ok(!lstrcmpW(cpinfo1->wszHeaderCharset, cpinfo2->wszHeaderCharset), "wszHeaderCharset mismatch\n");
243 ok(!lstrcmpW(cpinfo1->wszBodyCharset, cpinfo2->wszBodyCharset), "wszBodyCharset mismatch\n");
244 ok(!lstrcmpW(cpinfo1->wszFixedWidthFont, cpinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
245 ok(!lstrcmpW(cpinfo1->wszProportionalFont, cpinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
246 ok(cpinfo1->bGDICharset == cpinfo2->bGDICharset, "bGDICharset mismatch: %d != %d\n", cpinfo1->bGDICharset, cpinfo2->bGDICharset);
247 }
248
249 #ifdef DUMP_CP_INFO
250 static const char *dump_mime_flags(DWORD flags)
251 {
252 static char buf[1024];
253
254 buf[0] = 0;
255
256 if (flags & MIMECONTF_MAILNEWS) strcat(buf, " MIMECONTF_MAILNEWS");
257 if (flags & MIMECONTF_BROWSER) strcat(buf, " MIMECONTF_BROWSER");
258 if (flags & MIMECONTF_MINIMAL) strcat(buf, " MIMECONTF_MINIMAL");
259 if (flags & MIMECONTF_IMPORT) strcat(buf, " MIMECONTF_IMPORT");
260 if (flags & MIMECONTF_SAVABLE_MAILNEWS) strcat(buf, " MIMECONTF_SAVABLE_MAILNEWS");
261 if (flags & MIMECONTF_SAVABLE_BROWSER) strcat(buf, " MIMECONTF_SAVABLE_BROWSER");
262 if (flags & MIMECONTF_EXPORT) strcat(buf, " MIMECONTF_EXPORT");
263 if (flags & MIMECONTF_PRIVCONVERTER) strcat(buf, " MIMECONTF_PRIVCONVERTER");
264 if (flags & MIMECONTF_VALID) strcat(buf, " MIMECONTF_VALID");
265 if (flags & MIMECONTF_VALID_NLS) strcat(buf, " MIMECONTF_VALID_NLS");
266 if (flags & MIMECONTF_MIME_IE4) strcat(buf, " MIMECONTF_MIME_IE4");
267 if (flags & MIMECONTF_MIME_LATEST) strcat(buf, " MIMECONTF_MIME_LATEST");
268 if (flags & MIMECONTF_MIME_REGISTRY) strcat(buf, " MIMECONTF_MIME_REGISTRY");
269
270 return buf;
271 }
272 #endif
273
274 static HRESULT check_convertible(IMultiLanguage2 *iML2, UINT from, UINT to)
275 {
276 CHAR convert[MAX_PATH];
277 BYTE dest[MAX_PATH];
278 HRESULT hr;
279 UINT srcsz, destsz;
280
281 static WCHAR strW[] = {'a','b','c',0};
282
283 /* Check to see if the target codepage has these characters or not */
284 if (from != CP_UTF8)
285 {
286 BOOL fDefaultChar;
287 char ch[10];
288 int cb;
289 cb = WideCharToMultiByte( from, WC_NO_BEST_FIT_CHARS | WC_COMPOSITECHECK | WC_DEFAULTCHAR,
290 strW, 3, ch, sizeof(ch), NULL, &fDefaultChar);
291
292 if(cb == 0 || fDefaultChar)
293 {
294 trace("target codepage %i does not contain 'abc'\n",from);
295 return E_FAIL;
296 }
297 }
298
299 srcsz = lstrlenW(strW) + 1;
300 destsz = MAX_PATH;
301 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, from, strW,
302 &srcsz, convert, &destsz);
303 if (hr != S_OK)
304 return S_FALSE;
305
306 srcsz = -1;
307 destsz = MAX_PATH;
308 hr = IMultiLanguage2_ConvertString(iML2, NULL, from, to, (BYTE *)convert,
309 &srcsz, dest, &destsz);
310 if (hr != S_OK)
311 return S_FALSE;
312
313 return S_OK;
314 }
315
316 static void test_EnumCodePages(IMultiLanguage2 *iML2, DWORD flags)
317 {
318 IEnumCodePage *iEnumCP = NULL;
319 MIMECPINFO *cpinfo;
320 MIMECPINFO cpinfo2;
321 HRESULT ret;
322 ULONG i, n;
323 UINT total;
324
325 total = 0;
326 ret = IMultiLanguage2_GetNumberOfCodePageInfo(iML2, &total);
327 ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfCodePageInfo: expected S_OK/!0, got %08x/%u\n", ret, total);
328
329 trace("total mlang supported codepages %u\n", total);
330
331 ret = IMultiLanguage2_EnumCodePages(iML2, flags, LANG_NEUTRAL, &iEnumCP);
332 ok(ret == S_OK && iEnumCP, "IMultiLanguage2_EnumCodePages: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumCP);
333
334 ret = IEnumCodePage_Reset(iEnumCP);
335 ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
336 n = 65536;
337 ret = IEnumCodePage_Next(iEnumCP, 0, NULL, &n);
338 if (ret == S_FALSE)
339 ok(n == 0 && ret == S_FALSE, "IEnumCodePage_Next: expected 0/S_FALSE, got %u/%08x\n", n, ret);
340 else if (ret == E_FAIL)
341 ok(n == 65536 && ret == E_FAIL, "IEnumCodePage_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
342 ret = IEnumCodePage_Next(iEnumCP, 0, NULL, NULL);
343 if (ret == S_FALSE)
344 ok(ret == S_FALSE, "IEnumCodePage_Next: expected S_FALSE, got %08x\n", ret);
345 else if (ret == E_FAIL)
346 ok(n == 65536 && ret == E_FAIL, "IEnumCodePage_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
347
348 cpinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*cpinfo) * total * 2);
349
350 n = total * 2;
351 ret = IEnumCodePage_Next(iEnumCP, 0, cpinfo, &n);
352 ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
353
354 n = total * 2;
355 ret = IEnumCodePage_Next(iEnumCP, n, cpinfo, &n);
356 ok(ret == S_OK && n != 0, "IEnumCodePage_Next: expected S_OK/!0, got %08x/%u\n", ret, n);
357
358 trace("flags %08x, enumerated codepages %u\n", flags, n);
359
360 if (!flags)
361 {
362 ok(n == total, "IEnumCodePage_Next: expected %u, got %u\n", total, n);
363
364 flags = MIMECONTF_MIME_LATEST;
365 }
366
367 total = n;
368
369 for (i = 0; i < n; i++)
370 {
371 CHARSETINFO csi;
372 MIMECSETINFO mcsi;
373 HRESULT convertible = S_OK;
374 static const WCHAR autoW[] = {'_','a','u','t','o',0};
375 static const WCHAR feffW[] = {'u','n','i','c','o','d','e','F','E','F','F',0};
376
377 #ifdef DUMP_CP_INFO
378 trace("MIMECPINFO #%u:\n"
379 "dwFlags %08x %s\n"
380 "uiCodePage %u\n"
381 "uiFamilyCodePage %u\n"
382 "wszDescription %s\n"
383 "wszWebCharset %s\n"
384 "wszHeaderCharset %s\n"
385 "wszBodyCharset %s\n"
386 "wszFixedWidthFont %s\n"
387 "wszProportionalFont %s\n"
388 "bGDICharset %d\n\n",
389 i,
390 cpinfo[i].dwFlags, dump_mime_flags(cpinfo[i].dwFlags),
391 cpinfo[i].uiCodePage,
392 cpinfo[i].uiFamilyCodePage,
393 wine_dbgstr_w(cpinfo[i].wszDescription),
394 wine_dbgstr_w(cpinfo[i].wszWebCharset),
395 wine_dbgstr_w(cpinfo[i].wszHeaderCharset),
396 wine_dbgstr_w(cpinfo[i].wszBodyCharset),
397 wine_dbgstr_w(cpinfo[i].wszFixedWidthFont),
398 wine_dbgstr_w(cpinfo[i].wszProportionalFont),
399 cpinfo[i].bGDICharset);
400 #endif
401 ok(cpinfo[i].dwFlags & flags, "enumerated flags %08x do not include requested %08x\n", cpinfo[i].dwFlags, flags);
402
403 if (TranslateCharsetInfo((DWORD *)(INT_PTR)cpinfo[i].uiFamilyCodePage, &csi, TCI_SRCCODEPAGE))
404 ok(cpinfo[i].bGDICharset == csi.ciCharset, "%d != %d\n", cpinfo[i].bGDICharset, csi.ciCharset);
405 else
406 if (winetest_debug > 1)
407 trace("TranslateCharsetInfo failed for cp %u\n", cpinfo[i].uiFamilyCodePage);
408
409 #ifdef DUMP_CP_INFO
410 trace("%u: codepage %u family %u\n", i, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
411 #endif
412 /* Win95 does not support UTF-7 */
413 if (cpinfo[i].uiCodePage == CP_UTF7) continue;
414
415 /* support files for some codepages might be not installed, or
416 * the codepage is just an alias.
417 */
418 if (IsValidCodePage(cpinfo[i].uiCodePage))
419 {
420 ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UNICODE);
421 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(%u -> CP_UNICODE) = %08x\n", cpinfo[i].uiCodePage, ret);
422 ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, cpinfo[i].uiCodePage);
423 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
424
425 convertible = check_convertible(iML2, cpinfo[i].uiCodePage, CP_UTF8);
426 if (convertible != E_FAIL)
427 {
428 ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UTF8);
429 ok(ret == convertible, "IMultiLanguage2_IsConvertible(%u -> CP_UTF8) = %08x\n", cpinfo[i].uiCodePage, ret);
430 ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, cpinfo[i].uiCodePage);
431 ok(ret == convertible, "IMultiLanguage2_IsConvertible(CP_UTF8 -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
432 }
433 }
434 else
435 if (winetest_debug > 1)
436 trace("IsValidCodePage failed for cp %u\n", cpinfo[i].uiCodePage);
437
438 if (memcmp(cpinfo[i].wszWebCharset,feffW,sizeof(WCHAR)*11)==0)
439 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
440 else
441 {
442 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszWebCharset, &mcsi);
443 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
444 if (memcmp(cpinfo[i].wszWebCharset, autoW, 5 * sizeof(WCHAR)))
445 {
446 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
447 #ifdef DUMP_CP_INFO
448 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszWebCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
449 #endif
450 ok(!lstrcmpiW(cpinfo[i].wszWebCharset, mcsi.wszCharset),
451 #ifdef DUMP_CP_INFO
452 "%s != %s\n",
453 wine_dbgstr_w(cpinfo[i].wszWebCharset), wine_dbgstr_w(mcsi.wszCharset));
454 #else
455 "wszWebCharset mismatch\n");
456 #endif
457
458 if (0)
459 {
460 /* native mlang returns completely messed up encodings in some cases */
461 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
462 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
463 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
464 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
465 }
466 }
467 }
468
469 if (memcmp(cpinfo[i].wszHeaderCharset,feffW,sizeof(WCHAR)*11)==0)
470 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
471 else
472 {
473 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszHeaderCharset, &mcsi);
474 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
475 if (memcmp(cpinfo[i].wszHeaderCharset, autoW, 5 * sizeof(WCHAR)))
476 {
477 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
478 #ifdef DUMP_CP_INFO
479 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszHeaderCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
480 #endif
481 ok(!lstrcmpiW(cpinfo[i].wszHeaderCharset, mcsi.wszCharset),
482 #ifdef DUMP_CP_INFO
483 "%s != %s\n",
484 wine_dbgstr_w(cpinfo[i].wszHeaderCharset), wine_dbgstr_w(mcsi.wszCharset));
485 #else
486 "wszHeaderCharset mismatch\n");
487 #endif
488
489 if (0)
490 {
491 /* native mlang returns completely messed up encodings in some cases */
492 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
493 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
494 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
495 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
496 }
497 }
498 }
499
500 if (memcmp(cpinfo[i].wszBodyCharset,feffW,sizeof(WCHAR)*11)==0)
501 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
502 else
503 {
504 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszBodyCharset, &mcsi);
505 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
506 if (memcmp(cpinfo[i].wszBodyCharset, autoW, 5 * sizeof(WCHAR)))
507 {
508 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
509 #ifdef DUMP_CP_INFO
510 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszBodyCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
511 #endif
512 ok(!lstrcmpiW(cpinfo[i].wszBodyCharset, mcsi.wszCharset),
513 #ifdef DUMP_CP_INFO
514 "%s != %s\n",
515 wine_dbgstr_w(cpinfo[i].wszBodyCharset), wine_dbgstr_w(mcsi.wszCharset));
516 #else
517 "wszBodyCharset mismatch\n");
518 #endif
519
520 if (0)
521 {
522 /* native mlang returns completely messed up encodings in some cases */
523 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
524 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
525 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
526 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
527 }
528 }
529 }
530 }
531
532 /* now IEnumCodePage_Next should fail, since pointer is at the end */
533 n = 1;
534 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
535 ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
536
537 ret = IEnumCodePage_Reset(iEnumCP);
538 ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
539 n = 0;
540 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
541 ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
542 cpinfo_cmp(&cpinfo[0], &cpinfo2);
543
544 if (0)
545 {
546 /* Due to a bug in MS' implementation of IEnumCodePage_Skip
547 * it's not used here.
548 */
549 ret = IEnumCodePage_Skip(iEnumCP, 1);
550 ok(ret == S_OK, "IEnumCodePage_Skip: expected S_OK, got %08x\n", ret);
551 }
552 for (i = 0; i < total - 1; i++)
553 {
554 n = 0;
555 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
556 ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
557 cpinfo_cmp(&cpinfo[i + 1], &cpinfo2);
558 }
559
560 HeapFree(GetProcessHeap(), 0, cpinfo);
561 IEnumCodePage_Release(iEnumCP);
562 }
563
564 static void scriptinfo_cmp(SCRIPTINFO *sinfo1, SCRIPTINFO *sinfo2)
565 {
566 ok(sinfo1->ScriptId == sinfo2->ScriptId, "ScriptId mismatch: %d != %d\n", sinfo1->ScriptId, sinfo2->ScriptId);
567 ok(sinfo1->uiCodePage == sinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", sinfo1->uiCodePage, sinfo2->uiCodePage);
568 ok(!lstrcmpW(sinfo1->wszDescription, sinfo2->wszDescription), "wszDescription mismatch\n");
569 ok(!lstrcmpW(sinfo1->wszFixedWidthFont, sinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
570 ok(!lstrcmpW(sinfo1->wszProportionalFont, sinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
571 }
572
573 static void test_EnumScripts(IMultiLanguage2 *iML2, DWORD flags)
574 {
575 IEnumScript *iEnumScript = NULL;
576 SCRIPTINFO *sinfo;
577 SCRIPTINFO sinfo2;
578 HRESULT ret;
579 ULONG i, n;
580 UINT total;
581
582 total = 0;
583 ret = IMultiLanguage2_GetNumberOfScripts(iML2, &total);
584 ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfScripts: expected S_OK/!0, got %08x/%u\n", ret, total);
585
586 trace("total mlang supported scripts %u\n", total);
587
588 ret = IMultiLanguage2_EnumScripts(iML2, flags, LANG_NEUTRAL, &iEnumScript);
589 ok(ret == S_OK && iEnumScript, "IMultiLanguage2_EnumScripts: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumScript);
590
591 ret = IEnumScript_Reset(iEnumScript);
592 ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
593 n = 65536;
594 ret = IEnumScript_Next(iEnumScript, 0, NULL, &n);
595 ok(n == 65536 && ret == E_FAIL, "IEnumScript_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
596 ret = IEnumScript_Next(iEnumScript, 0, NULL, NULL);
597 ok(ret == E_FAIL, "IEnumScript_Next: expected E_FAIL, got %08x\n", ret);
598
599 sinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*sinfo) * total * 2);
600
601 n = total * 2;
602 ret = IEnumScript_Next(iEnumScript, 0, sinfo, &n);
603 ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
604
605 n = total * 2;
606 ret = IEnumScript_Next(iEnumScript, n, sinfo, &n);
607 ok(ret == S_OK && n != 0, "IEnumScript_Next: expected S_OK, got %08x/%u\n", ret, n);
608
609 trace("flags %08x, enumerated scripts %u\n", flags, n);
610
611 if (!flags)
612 {
613 ok(n == total, "IEnumScript_Next: expected %u, got %u\n", total, n);
614 flags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
615 }
616
617 total = n;
618
619 for (i = 0; pGetCPInfoExA && i < n; i++)
620 {
621 #ifdef DUMP_SCRIPT_INFO
622 trace("SCRIPTINFO #%u:\n"
623 "ScriptId %08x\n"
624 "uiCodePage %u\n"
625 "wszDescription %s\n"
626 "wszFixedWidthFont %s\n"
627 "wszProportionalFont %s\n\n",
628 i,
629 sinfo[i].ScriptId,
630 sinfo[i].uiCodePage,
631 wine_dbgstr_w(sinfo[i].wszDescription),
632 wine_dbgstr_w(sinfo[i].wszFixedWidthFont),
633 wine_dbgstr_w(sinfo[i].wszProportionalFont));
634 trace("%u codepage %u\n", i, sinfo[i].uiCodePage);
635 #endif
636 }
637
638 /* now IEnumScript_Next should fail, since pointer is at the end */
639 n = 1;
640 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
641 ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
642
643 ret = IEnumScript_Reset(iEnumScript);
644 ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
645 n = 0;
646 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
647 ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
648 scriptinfo_cmp(&sinfo[0], &sinfo2);
649
650 if (0)
651 {
652 /* Due to a bug in MS' implementation of IEnumScript_Skip
653 * it's not used here.
654 */
655 ret = IEnumScript_Skip(iEnumScript, 1);
656 ok(ret == S_OK, "IEnumScript_Skip: expected S_OK, got %08x\n", ret);
657 }
658 for (i = 0; i < total - 1; i++)
659 {
660 n = 0;
661 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
662 ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
663 scriptinfo_cmp(&sinfo[i + 1], &sinfo2);
664 }
665
666 HeapFree(GetProcessHeap(), 0, sinfo);
667 IEnumScript_Release(iEnumScript);
668 }
669
670 static void IMLangFontLink_Test(IMLangFontLink* iMLFL)
671 {
672 DWORD dwCodePages, dwManyCodePages;
673 DWORD dwCmpCodePages;
674 UINT CodePage;
675 static const WCHAR str[3] = { 'd', 0x0436, 0xff90 };
676 LONG processed;
677 HRESULT ret;
678
679 dwCodePages = ~0u;
680 ret = IMLangFontLink_CodePageToCodePages(iMLFL, -1, &dwCodePages);
681 ok(ret == E_FAIL, "IMLangFontLink_CodePageToCodePages should fail: %x\n", ret);
682 ok(dwCodePages == 0, "expected 0, got %u\n", dwCodePages);
683
684 dwCodePages = 0;
685 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 932, &dwCodePages);
686 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
687 ok(dwCodePages == FS_JISJAPAN, "expected FS_JISJAPAN, got %08x\n", dwCodePages);
688 CodePage = 0;
689 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwCodePages, 1035, &CodePage);
690 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
691 ok(CodePage == 932, "Incorrect CodePage Returned (%i)\n",CodePage);
692
693 dwManyCodePages = 0;
694 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 1252, &dwManyCodePages);
695 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
696 ok(dwManyCodePages == FS_LATIN1, "expected FS_LATIN1, got %08x\n", dwManyCodePages);
697 dwCodePages = 0;
698 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 1256, &dwCodePages);
699 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
700 ok(dwCodePages == FS_ARABIC, "expected FS_ARABIC, got %08x\n", dwCodePages);
701 dwManyCodePages |= dwCodePages;
702 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 874, &dwCodePages);
703 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
704 ok(dwCodePages == FS_THAI, "expected FS_THAI, got %08x\n", dwCodePages);
705 dwManyCodePages |= dwCodePages;
706
707 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 1256, &CodePage);
708 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
709 ok(CodePage == 1256, "Incorrect CodePage Returned (%i)\n",CodePage);
710
711 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 936, &CodePage);
712 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
713 ok(CodePage == 1252, "Incorrect CodePage Returned (%i)\n",CodePage);
714
715 /* Tests for GetCharCodePages */
716
717 /* Latin 1 */
718 dwCmpCodePages = FS_LATIN1 | FS_LATIN2 | FS_CYRILLIC | FS_GREEK | FS_TURKISH
719 | FS_HEBREW | FS_ARABIC | FS_BALTIC | FS_VIETNAMESE | FS_THAI
720 | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG | FS_CHINESETRAD;
721 ret = IMLangFontLink_GetCharCodePages(iMLFL, 'd', &dwCodePages);
722 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
723 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
724
725 dwCodePages = 0;
726 processed = 0;
727 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[0], 1, 0, &dwCodePages, &processed);
728 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
729 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
730 ok(processed == 1, "expected 1, got %d\n", processed);
731
732 /* Cyrillic */
733 dwCmpCodePages = FS_CYRILLIC | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG;
734 ret = IMLangFontLink_GetCharCodePages(iMLFL, 0x0436, &dwCodePages);
735 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
736 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
737
738 dwCodePages = 0;
739 processed = 0;
740 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[1], 1, 0, &dwCodePages, &processed);
741 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
742 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
743 ok(processed == 1, "expected 1, got %d\n", processed);
744
745 /* Japanese */
746 dwCmpCodePages = FS_JISJAPAN;
747 ret = IMLangFontLink_GetCharCodePages(iMLFL, 0xff90, &dwCodePages);
748 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
749 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
750
751 dwCodePages = 0;
752 processed = 0;
753 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, &dwCodePages, &processed);
754 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
755 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
756 ok(processed == 1, "expected 1, got %d\n", processed);
757
758 dwCmpCodePages = FS_CYRILLIC | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG;
759 dwCodePages = 0;
760 processed = 0;
761 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 2, 0, &dwCodePages, &processed);
762 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
763 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
764 ok(processed == 2, "expected 2, got %d\n", processed);
765
766 dwCmpCodePages = FS_JISJAPAN;
767 dwCodePages = 0;
768 processed = 0;
769 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 3, 0, &dwCodePages, &processed);
770 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
771 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
772 ok(processed == 3, "expected 3, got %d\n", processed);
773
774 dwCodePages = 0xffff;
775 processed = -1;
776 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, &dwCodePages, &processed);
777 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
778 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
779 ok(processed == 1, "expected 0, got %d\n", processed);
780
781 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, NULL, NULL);
782 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
783
784 dwCodePages = 0xffff;
785 processed = -1;
786 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, -1, 0, &dwCodePages, &processed);
787 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
788 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
789 ok(processed == 0, "expected 0, got %d\n", processed);
790
791 dwCodePages = 0xffff;
792 processed = -1;
793 ret = IMLangFontLink_GetStrCodePages(iMLFL, NULL, 1, 0, &dwCodePages, &processed);
794 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
795 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
796 ok(processed == 0, "expected 0, got %d\n", processed);
797
798 dwCodePages = 0xffff;
799 processed = -1;
800 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 0, 0, &dwCodePages, &processed);
801 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
802 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
803 ok(processed == 0, "expected 0, got %d\n", processed);
804 }
805
806 /* copied from libs/wine/string.c */
807 static WCHAR *strstrW(const WCHAR *str, const WCHAR *sub)
808 {
809 while (*str)
810 {
811 const WCHAR *p1 = str, *p2 = sub;
812 while (*p1 && *p2 && *p1 == *p2) { p1++; p2++; }
813 if (!*p2) return (WCHAR *)str;
814 str++;
815 }
816 return NULL;
817 }
818
819 static void test_rfc1766(IMultiLanguage2 *iML2)
820 {
821 IEnumRfc1766 *pEnumRfc1766;
822 RFC1766INFO info;
823 ULONG n;
824 HRESULT ret;
825 BSTR rfcstr;
826
827 ret = IMultiLanguage2_EnumRfc1766(iML2, LANG_NEUTRAL, &pEnumRfc1766);
828 ok(ret == S_OK, "IMultiLanguage2_EnumRfc1766 error %08x\n", ret);
829
830 while (1)
831 {
832 ret = IEnumRfc1766_Next(pEnumRfc1766, 1, &info, &n);
833 if (ret != S_OK) break;
834
835 #ifdef DUMP_CP_INFO
836 trace("lcid %04x rfc_name %s locale_name %s\n",
837 info.lcid, wine_dbgstr_w(info.wszRfc1766), wine_dbgstr_w(info.wszLocaleName));
838 #endif
839
840 ok(n == 1, "couldn't fetch 1 RFC1766INFO structure\n");
841
842 /* verify the Rfc1766 value */
843 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, info.lcid, &rfcstr);
844 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
845
846 /* not an exact 1:1 correspondence between lcid and rfc1766 in the
847 * mlang database, e.g., nb-no -> 1044 -> no */
848 ok(strstrW(info.wszRfc1766, rfcstr) != NULL,
849 "Expected matching locale names\n");
850
851 SysFreeString(rfcstr);
852 }
853 IEnumRfc1766_Release(pEnumRfc1766);
854 }
855
856 static void test_GetLcidFromRfc1766(IMultiLanguage2 *iML2)
857 {
858 WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
859 LCID lcid;
860 HRESULT ret;
861 DWORD i;
862
863 static WCHAR en[] = { 'e','n',0 };
864 static WCHAR en_them[] = { 'e','n','-','t','h','e','m',0 };
865 static WCHAR english[] = { 'e','n','g','l','i','s','h',0 };
866
867
868 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
869 lcid = -1;
870 MultiByteToWideChar(CP_ACP, 0, lcid_table[i].rfc1766, -1, rfc1766W, MAX_RFC1766_NAME);
871 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, rfc1766W);
872
873 ok(ret == lcid_table[i].hr,
874 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, ret, lcid_table[i].hr);
875
876 ok(lcid == lcid_table[i].lcid,
877 "#%02d: got LCID 0x%x (expected 0x%x)\n", i, lcid, lcid_table[i].lcid);
878 }
879
880
881 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, NULL, en);
882 ok(ret == E_INVALIDARG, "GetLcidFromRfc1766 returned: %08x\n", ret);
883
884 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, NULL);
885 ok(ret == E_INVALIDARG, "GetLcidFromRfc1766 returned: %08x\n", ret);
886
887 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, en_them);
888 ok((ret == E_FAIL || ret == S_FALSE), "GetLcidFromRfc1766 returned: %08x\n", ret);
889 if (ret == S_FALSE)
890 {
891 BSTR rfcstr;
892 static WCHAR en[] = {'e','n',0};
893
894 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid, &rfcstr);
895 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
896 ok_w2("Expected \"%s\", got \"%s\"n", en, rfcstr);
897 }
898
899 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, english);
900 ok((ret == E_FAIL || ret == S_FALSE), "GetLcidFromRfc1766 returned: %08x\n", ret);
901 if (ret == S_FALSE)
902 {
903 BSTR rfcstr;
904 static WCHAR en[] = {'e','n',0};
905
906 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid, &rfcstr);
907 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
908 ok_w2("Expected \"%s\", got \"%s\"n", en, rfcstr);
909 }
910
911 }
912
913 static void test_Rfc1766ToLcid(void)
914 {
915 LCID lcid;
916 HRESULT ret;
917 DWORD i;
918
919 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
920 lcid = -1;
921 ret = Rfc1766ToLcidA(&lcid, lcid_table[i].rfc1766);
922
923 ok(ret == lcid_table[i].hr,
924 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, ret, lcid_table[i].hr);
925
926
927 ok(lcid == lcid_table[i].lcid,
928 "#%02d: got LCID 0x%x (expected 0x%x)\n", i, lcid, lcid_table[i].lcid);
929
930 }
931
932 ret = Rfc1766ToLcidA(&lcid, NULL);
933 ok(ret == E_INVALIDARG, "got 0x%08x (expected E_INVALIDARG)\n", ret);
934
935 ret = Rfc1766ToLcidA(NULL, "en");
936 ok(ret == E_INVALIDARG, "got 0x%08x (expected E_INVALIDARG)\n", ret);
937
938 }
939
940
941 static void test_GetRfc1766FromLcid(IMultiLanguage2 *iML2)
942 {
943 HRESULT hr;
944 BSTR rfcstr;
945 LCID lcid;
946
947 static WCHAR kok[] = {'k','o','k',0};
948
949 hr = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, kok);
950 /*
951 * S_FALSE happens when 'kok' instead matches to a different Rfc1766 name
952 * for example 'ko' so it is not a failure but does not give us what
953 * we are looking for
954 */
955 if (hr != S_FALSE)
956 {
957 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
958
959 hr = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid, &rfcstr);
960 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
961 ok_w2("Expected \"%s\", got \"%s\"n", kok, rfcstr);
962 SysFreeString(rfcstr);
963 }
964 }
965
966 static void test_IMultiLanguage2_ConvertStringFromUnicode(IMultiLanguage2 *iML2)
967 {
968 CHAR dest[MAX_PATH];
969 CHAR invariate[MAX_PATH];
970 UINT srcsz, destsz;
971 HRESULT hr;
972
973 static WCHAR src[] = {'a','b','c',0};
974
975 memset(invariate, 'x', sizeof(invariate));
976
977 /* pSrcStr NULL */
978 memset(dest, 'x', sizeof(dest));
979 srcsz = lstrlenW(src) + 1;
980 destsz = sizeof(dest);
981 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, NULL,
982 &srcsz, dest, &destsz);
983 ok(hr == S_OK || hr == E_FAIL,"expected S_OK or E_FAIL, got %08x\n",hr);
984 if (hr == S_OK)
985 {
986 ok(srcsz == lstrlenW(src) + 1,
987 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
988 }
989 else if (hr == E_FAIL)
990 {
991 ok(srcsz == 0,
992 "Expected %u, got %u\n", 0, srcsz);
993 }
994
995 ok(!memcmp(dest, invariate, sizeof(dest)),
996 "Expected dest to be unchanged, got %s\n", dest);
997 ok(destsz == 0, "Expected 0, got %u\n", destsz);
998
999 /* pcSrcSize NULL */
1000 memset(dest, 'x', sizeof(dest));
1001 destsz = sizeof(dest);
1002 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1003 NULL, dest, &destsz);
1004 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1005 ok(!strncmp(dest, "abc", 3),
1006 "Expected first three chars to be \"abc\"\n");
1007 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1008 "Expected rest of dest to be unchanged, got %s\n", dest);
1009 ok(destsz == lstrlenW(src),
1010 "Expected %u, got %u\n", lstrlenW(src), destsz);
1011
1012 /* both pSrcStr and pcSrcSize NULL */
1013 memset(dest, 'x', sizeof(dest));
1014 destsz = sizeof(dest);
1015 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, NULL,
1016 NULL, dest, &destsz);
1017 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1018 ok(!memcmp(dest, invariate, sizeof(dest)),
1019 "Expected dest to be unchanged, got %s\n", dest);
1020 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1021
1022 /* pDstStr NULL */
1023 memset(dest, 'x', sizeof(dest));
1024 srcsz = lstrlenW(src) + 1;
1025 destsz = sizeof(dest);
1026 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1027 &srcsz, NULL, &destsz);
1028 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1029 ok(srcsz == lstrlenW(src) + 1,
1030 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1031 ok(destsz == lstrlenW(src) + 1,
1032 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1033
1034 /* pcDstSize NULL */
1035 memset(dest, 'x', sizeof(dest));
1036 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1037 &srcsz, dest, NULL);
1038 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1039 ok(srcsz == lstrlenW(src) + 1,
1040 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1041 ok(!memcmp(dest, invariate, sizeof(dest)),
1042 "Expected dest to be unchanged, got %s\n", dest);
1043
1044 /* pcSrcSize is 0 */
1045 memset(dest, 'x', sizeof(dest));
1046 srcsz = 0;
1047 destsz = sizeof(dest);
1048 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1049 &srcsz, dest, &destsz);
1050 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1051 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1052 ok(!memcmp(dest, invariate, sizeof(dest)),
1053 "Expected dest to be unchanged, got %s\n", dest);
1054 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1055
1056 /* pcSrcSize does not include NULL terminator */
1057 memset(dest, 'x', sizeof(dest));
1058 srcsz = lstrlenW(src);
1059 destsz = sizeof(dest);
1060 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1061 &srcsz, dest, &destsz);
1062 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1063 ok(srcsz == lstrlenW(src),
1064 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1065 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1066 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1067 "Expected rest of dest to be unchanged, got %s\n", dest);
1068 ok(destsz == lstrlenW(src),
1069 "Expected %u, got %u\n", lstrlenW(src), destsz);
1070
1071 /* pcSrcSize includes NULL terminator */
1072 memset(dest, 'x', sizeof(dest));
1073 srcsz = lstrlenW(src) + 1;
1074 destsz = sizeof(dest);
1075 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1076 &srcsz, dest, &destsz);
1077 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1078 ok(srcsz == lstrlenW(src) + 1, "Expected 3, got %u\n", srcsz);
1079 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1080 ok(destsz == lstrlenW(src) + 1,
1081 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1082
1083 /* pcSrcSize is -1 */
1084 memset(dest, 'x', sizeof(dest));
1085 srcsz = -1;
1086 destsz = sizeof(dest);
1087 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1088 &srcsz, dest, &destsz);
1089 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1090 ok(srcsz == lstrlenW(src),
1091 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1092 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1093 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1094 "Expected rest of dest to be unchanged, got %s\n", dest);
1095 ok(destsz == lstrlenW(src),
1096 "Expected %u, got %u\n", lstrlenW(src), destsz);
1097
1098 /* pcDstSize is 0 */
1099 memset(dest, 'x', sizeof(dest));
1100 srcsz = lstrlenW(src) + 1;
1101 destsz = 0;
1102 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1103 &srcsz, dest, &destsz);
1104 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1105 ok(srcsz == lstrlenW(src) + 1,
1106 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1107 ok(!memcmp(dest, invariate, sizeof(dest)),
1108 "Expected dest to be unchanged, got %s\n", dest);
1109 ok(destsz == lstrlenW(src) + 1,
1110 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1111
1112 /* pcDstSize is not large enough */
1113 memset(dest, 'x', sizeof(dest));
1114 srcsz = lstrlenW(src) + 1;
1115 destsz = lstrlenW(src);
1116 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1117 &srcsz, dest, &destsz);
1118 ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
1119 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1120 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1121 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1122 "Expected rest of dest to be unchanged, got %s\n", dest);
1123 ok(destsz == 0, "Expected 0, got %u\n", srcsz);
1124
1125 /* pcDstSize (bytes) does not leave room for NULL terminator */
1126 memset(dest, 'x', sizeof(dest));
1127 srcsz = lstrlenW(src) + 1;
1128 destsz = lstrlenW(src) * sizeof(WCHAR);
1129 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1130 &srcsz, dest, &destsz);
1131 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1132 ok(srcsz == lstrlenW(src) + 1,
1133 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1134 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1135 ok(destsz == lstrlenW(src) + 1,
1136 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1137 }
1138
1139 static void test_ConvertINetUnicodeToMultiByte(void)
1140 {
1141 CHAR dest[MAX_PATH];
1142 CHAR invariate[MAX_PATH];
1143 INT srcsz, destsz;
1144 HRESULT hr;
1145
1146 static WCHAR src[] = {'a','b','c',0};
1147
1148 memset(invariate, 'x', sizeof(invariate));
1149
1150 /* lpSrcStr NULL */
1151 memset(dest, 'x', sizeof(dest));
1152 srcsz = lstrlenW(src) + 1;
1153 destsz = sizeof(dest);
1154 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, NULL, &srcsz, dest, &destsz);
1155 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1156 if (hr == S_OK)
1157 ok(srcsz == lstrlenW(src) + 1,
1158 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1159 else if (hr == E_FAIL)
1160 ok(srcsz == 0,
1161 "Expected %u, got %u\n", 0, srcsz);
1162 ok(!memcmp(dest, invariate, sizeof(dest)),
1163 "Expected dest to be unchanged, got %s\n", dest);
1164 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1165
1166 /* lpnWideCharCount NULL */
1167 memset(dest, 'x', sizeof(dest));
1168 destsz = sizeof(dest);
1169 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, NULL, dest, &destsz);
1170 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1171 ok(!strncmp(dest, "abc", 3),
1172 "Expected first three chars to be \"abc\"\n");
1173 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1174 "Expected rest of dest to be unchanged, got %s\n", dest);
1175 ok(destsz == lstrlenW(src),
1176 "Expected %u, got %u\n", lstrlenW(src), destsz);
1177
1178 /* both lpSrcStr and lpnWideCharCount NULL */
1179 memset(dest, 'x', sizeof(dest));
1180 destsz = sizeof(dest);
1181 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, NULL, NULL, dest, &destsz);
1182 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1183 ok(!memcmp(dest, invariate, sizeof(dest)),
1184 "Expected dest to be unchanged, got %s\n", dest);
1185 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1186
1187 /* lpDstStr NULL */
1188 memset(dest, 'x', sizeof(dest));
1189 srcsz = lstrlenW(src) + 1;
1190 destsz = sizeof(dest);
1191 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, NULL, &destsz);
1192 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1193 ok(srcsz == lstrlenW(src) + 1,
1194 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1195 ok(destsz == lstrlenW(src) + 1,
1196 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1197
1198 /* lpnMultiCharCount NULL */
1199 memset(dest, 'x', sizeof(dest));
1200 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, NULL);
1201 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1202 ok(srcsz == lstrlenW(src) + 1,
1203 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1204 ok(!memcmp(dest, invariate, sizeof(dest)),
1205 "Expected dest to be unchanged, got %s\n", dest);
1206
1207 /* lpnWideCharCount is 0 */
1208 memset(dest, 'x', sizeof(dest));
1209 srcsz = 0;
1210 destsz = sizeof(dest);
1211 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1212 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1213 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1214 ok(!memcmp(dest, invariate, sizeof(dest)),
1215 "Expected dest to be unchanged, got %s\n", dest);
1216 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1217
1218 /* lpnWideCharCount does not include NULL terminator */
1219 memset(dest, 'x', sizeof(dest));
1220 srcsz = lstrlenW(src);
1221 destsz = sizeof(dest);
1222 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1223 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1224 ok(srcsz == lstrlenW(src),
1225 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1226 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1227 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1228 "Expected rest of dest to be unchanged, got %s\n", dest);
1229 ok(destsz == lstrlenW(src),
1230 "Expected %u, got %u\n", lstrlenW(src), destsz);
1231
1232 /* lpnWideCharCount includes NULL terminator */
1233 memset(dest, 'x', sizeof(dest));
1234 srcsz = lstrlenW(src) + 1;
1235 destsz = sizeof(dest);
1236 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1237 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1238 ok(srcsz == lstrlenW(src) + 1, "Expected 3, got %u\n", srcsz);
1239 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1240 ok(destsz == lstrlenW(src) + 1,
1241 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1242
1243 /* lpnWideCharCount is -1 */
1244 memset(dest, 'x', sizeof(dest));
1245 srcsz = -1;
1246 destsz = sizeof(dest);
1247 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1248 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1249 ok(srcsz == lstrlenW(src),
1250 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1251 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1252 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1253 "Expected rest of dest to be unchanged, got %s\n", dest);
1254 ok(destsz == lstrlenW(src),
1255 "Expected %u, got %u\n", lstrlenW(src), destsz);
1256
1257 /* lpnMultiCharCount is 0 */
1258 memset(dest, 'x', sizeof(dest));
1259 srcsz = lstrlenW(src) + 1;
1260 destsz = 0;
1261 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1262 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1263 ok(srcsz == lstrlenW(src) + 1,
1264 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1265 ok(!memcmp(dest, invariate, sizeof(dest)),
1266 "Expected dest to be unchanged, got %s\n", dest);
1267 ok(destsz == lstrlenW(src) + 1,
1268 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1269
1270 /* lpnMultiCharCount is not large enough */
1271 memset(dest, 'x', sizeof(dest));
1272 srcsz = lstrlenW(src) + 1;
1273 destsz = lstrlenW(src);
1274 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1275 ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
1276 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1277 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1278 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1279 "Expected rest of dest to be unchanged, got %s\n", dest);
1280 ok(destsz == 0, "Expected 0, got %u\n", srcsz);
1281
1282 /* lpnMultiCharCount (bytes) does not leave room for NULL terminator */
1283 memset(dest, 'x', sizeof(dest));
1284 srcsz = lstrlenW(src) + 1;
1285 destsz = lstrlenW(src) * sizeof(WCHAR);
1286 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1287 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1288 ok(srcsz == lstrlenW(src) + 1,
1289 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1290 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1291 ok(destsz == lstrlenW(src) + 1,
1292 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1293 }
1294
1295 static void test_JapaneseConversion(void)
1296 {
1297 /* Data */
1298 static WCHAR unc_jp[9][12] = {
1299 {9,0x31,0x20,0x3042,0x3044,0x3046,0x3048,0x304a,0x000d,0x000a},
1300 {9,0x31,0x20,0x30a2,0x30a4,0x30a6,0x30a8,0x30aa,0x000d,0x000a},
1301 {9,0x31,0x20,0xff71,0xff72,0xff73,0xff74,0xff75,0x000d,0x000a},
1302 {9,0x31,0x20,0x3041,0x3043,0x3045,0x3047,0x3049,0x000d,0x000a},
1303 {9,0x31,0x20,0x30a1,0x30a3,0x30a5,0x30a7,0x30a9,0x000d,0x000a},
1304 {9,0x31,0x20,0xff67,0xff68,0xff69,0xff6a,0xff6b,0x000d,0x000a},
1305 {9,0x31,0x20,0x300c,0x65e5,0x672c,0x8a9e,0x300d,0x000d,0x000a},
1306 {7,0x31,0x20,0x25c7,0x25c7,0x3012,0x000d,0x000a},
1307 {11,0x31,0x20,0x203b,0x3010,0x0074,0x0065,0x0073,0x0074,0x3011,0x000d,0x000a}
1308 };
1309 static CHAR jis_jp[9][27] = {
1310 {20,0x31,0x20,0x1b,0x24,0x42,0x24,0x22,0x24,0x24,0x24,0x26,0x24,0x28,
1311 0x24,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1312 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x22,0x25,0x24,0x25,0x26,0x25,0x28,
1313 0x25,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1314 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x22,0x25,0x24,0x25,0x26,0x25,0x28,
1315 0x25,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1316 {20,0x31,0x20,0x1b,0x24,0x42,0x24,0x21,0x24,0x23,0x24,0x25,0x24,0x27,
1317 0x24,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1318 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x21,0x25,0x23,0x25,0x25,0x25,0x27,
1319 0x25,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1320 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x21,0x25,0x23,0x25,0x25,0x25,0x27,
1321 0x25,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1322 {20,0x31,0x20,0x1b,0x24,0x42,0x21,0x56,0x46,0x7c,0x4b,0x5c,0x38,0x6c,
1323 0x21,0x57,0x1b,0x28,0x42,0x0d,0x0a},
1324 {16,0x31,0x20,0x1b,0x24,0x42,0x21,0x7e,0x21,0x7e,0x22,0x29,0x1b,0x28,
1325 0x42,0x0d,0x0a},
1326 {26,0x31,0x20,0x1b,0x24,0x42,0x22,0x28,0x21,0x5a,0x1b,0x28,0x42,0x74,
1327 0x65,0x73,0x74,0x1b,0x24,0x42,0x21,0x5b,0x1b,0x28,0x42,0x0d,0x0a}
1328 };
1329 static CHAR sjis_jp[9][15] = {
1330 {14,0x31,0x20,0x82,0xa0,0x82,0xa2,0x82,0xa4,0x82,0xa6,0x82,0xa8,0x0d,0x0a},
1331 {14,0x31,0x20,0x83,0x41,0x83,0x43,0x83,0x45,0x83,0x47,0x83,0x49,0x0d,0x0a},
1332 {9,0x31,0x20,0xb1,0xb2,0xb3,0xb4,0xb5,0x0d,0x0a},
1333 {14,0x31,0x20,0x82,0x9f,0x82,0xa1,0x82,0xa3,0x82,0xa5,0x82,0xa7,0x0d,0x0a},
1334 {14,0x31,0x20,0x83,0x40,0x83,0x42,0x83,0x44,0x83,0x46,0x83,0x48,0x0d,0x0a},
1335 {9,0x31,0x20,0xa7,0xa8,0xa9,0xaa,0xab,0x0d,0x0a},
1336 {14,0x31,0x20,0x81,0x75,0x93,0xfa,0x96,0x7b,0x8c,0xea,0x81,0x76,0x0d,0x0a},
1337 {10,0x31,0x20,0x81,0x9e,0x81,0x9e,0x81,0xa7,0x0d,0x0a},
1338 {14,0x31,0x20,0x81,0xa6,0x81,0x79,0x74,0x65,0x73,0x74,0x81,0x7a,0x0d,0x0a}
1339 };
1340 static CHAR euc_jp[9][15] = {
1341 {14,0x31,0x20,0xa4,0xa2,0xa4,0xa4,0xa4,0xa6,0xa4,0xa8,0xa4,0xaa,0x0d,0x0a},
1342 {14,0x31,0x20,0xa5,0xa2,0xa5,0xa4,0xa5,0xa6,0xa5,0xa8,0xa5,0xaa,0x0d,0x0a},
1343 {14,0x31,0x20,0x8e,0xb1,0x8e,0xb2,0x8e,0xb3,0x8e,0xb4,0x8e,0xb5,0x0d,0x0a},
1344 {14,0x31,0x20,0xa4,0xa1,0xa4,0xa3,0xa4,0xa5,0xa4,0xa7,0xa4,0xa9,0x0d,0x0a},
1345 {14,0x31,0x20,0xa5,0xa1,0xa5,0xa3,0xa5,0xa5,0xa5,0xa7,0xa5,0xa9,0x0d,0x0a},
1346 {14,0x31,0x20,0x8e,0xa7,0x8e,0xa8,0x8e,0xa9,0x8e,0xaa,0x8e,0xab,0x0d,0x0a},
1347 {14,0x31,0x20,0xa1,0xd6,0xc6,0xfc,0xcb,0xdc,0xb8,0xec,0xa1,0xd7,0x0d,0x0a},
1348 {10,0x31,0x20,0xa1,0xfe,0xa1,0xfe,0xa2,0xa9,0x0d,0x0a},
1349 {14,0x31,0x20,0xa2,0xa8,0xa1,0xda,0x74,0x65,0x73,0x74,0xa1,0xdb,0x0d,0x0a}
1350 };
1351
1352 INT srcsz, destsz;
1353 INT i;
1354 HRESULT hr;
1355 CHAR output[30];
1356 WCHAR outputW[30];
1357 int outlen;
1358
1359 /* test unc->jis */
1360 for (i = 0; i < 9; i++)
1361 {
1362 int j;
1363 destsz = 30;
1364 outlen = jis_jp[i][0];
1365 srcsz = unc_jp[i][0];
1366 hr = pConvertINetUnicodeToMultiByte(NULL, 50220, &unc_jp[i][1], &srcsz, output, &destsz);
1367 if (hr == S_FALSE)
1368 {
1369 skip("Code page identifier 50220 is not supported\n");
1370 break;
1371 }
1372 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n", i, hr);
1373 ok(destsz == outlen, "(%i) Expected %i, got %i\n",i,outlen,destsz);
1374 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],srcsz);
1375 ok(memcmp(output,&jis_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1376
1377 /* and back */
1378 srcsz = outlen;
1379 destsz = 30;
1380 hr = pConvertINetMultiByteToUnicode(NULL, 50220, output, &srcsz, outputW,&destsz);
1381
1382 /*
1383 * JIS does not have hankata so it get automatically converted to
1384 * zenkata. this means that strings 1 and 2 are identical as well as
1385 * strings 4 and 5.
1386 */
1387 j = i;
1388 if (i == 2) j = 1;
1389 if (i == 5) j = 4;
1390
1391 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i, hr);
1392 ok(destsz == unc_jp[j][0],"(%i) Expected %i, got %i\n",i,unc_jp[j][0],destsz);
1393 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1394 ok(memcmp(outputW,&unc_jp[j][1],destsz)==0,"(%i) Strings do not match\n",i);
1395 }
1396
1397 /* test unc->sjis */
1398 for (i = 0; i < 9; i++)
1399 {
1400 destsz = 30;
1401 outlen = sjis_jp[i][0];
1402 srcsz = unc_jp[i][0];
1403
1404 hr = pConvertINetUnicodeToMultiByte(NULL, 932, &unc_jp[i][1], &srcsz, output, &destsz);
1405 if (hr == S_FALSE)
1406 {
1407 skip("Code page identifier 932 is not supported\n");
1408 break;
1409 }
1410 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1411 ok(destsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,destsz);
1412 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],srcsz);
1413 ok(memcmp(output,&sjis_jp[i][1],outlen)==0,"(%i) Strings do not match\n",i);
1414
1415 srcsz = outlen;
1416 destsz = 30;
1417 hr = pConvertINetMultiByteToUnicode(NULL, 932, output, &srcsz, outputW,&destsz);
1418
1419 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n", i, hr);
1420 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1421 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1422 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1423 }
1424
1425 /* test unc->euc */
1426 for (i = 0; i < 9; i++)
1427 {
1428 destsz = 30;
1429 outlen = euc_jp[i][0];
1430 srcsz = unc_jp[i][0];
1431
1432 hr = pConvertINetUnicodeToMultiByte(NULL, 51932, &unc_jp[i][1], &srcsz, output, &destsz);
1433 if (hr == S_FALSE)
1434 {
1435 skip("Code page identifier 51932 is not supported\n");
1436 break;
1437 }
1438 ok(hr == S_OK, "(%i) Expected S_OK, got %08x\n",i,hr);
1439 ok(destsz == outlen, "(%i) Expected %i, got %i\n",i,outlen,destsz);
1440 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1441 ok(memcmp(output,&euc_jp[i][1],outlen)==0,"(%i) Strings do not match\n",i);
1442
1443 srcsz = outlen;
1444 destsz = 30;
1445 hr = pConvertINetMultiByteToUnicode(NULL, 51932, output, &srcsz, outputW,&destsz);
1446
1447 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1448 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1449 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1450 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1451 }
1452
1453 /* Japanese autodetect */
1454 i = 0;
1455 destsz = 30;
1456 srcsz = jis_jp[i][0];
1457 hr = pConvertINetMultiByteToUnicode(NULL, 50932, &jis_jp[i][1], &srcsz, outputW, &destsz);
1458 if (hr == S_FALSE)
1459 {
1460 skip("Code page identifier 50932 is not supported\n");
1461 return;
1462 }
1463 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1464 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1465 ok(srcsz == jis_jp[i][0],"(%i) Expected %i, got %i\n",i,jis_jp[i][0],srcsz);
1466 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1467
1468 i = 1;
1469 destsz = 30;
1470 srcsz = sjis_jp[i][0];
1471 hr = pConvertINetMultiByteToUnicode(NULL, 50932, &sjis_jp[i][1], &srcsz, outputW, &destsz);
1472 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1473 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1474 ok(srcsz == sjis_jp[i][0],"(%i) Expected %i, got %i\n",i,sjis_jp[i][0],srcsz);
1475 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1476 }
1477
1478 static void test_GetScriptFontInfo(IMLangFontLink2 *font_link)
1479 {
1480 HRESULT hr;
1481 UINT nfonts;
1482 SCRIPTFONTINFO sfi[1];
1483
1484 nfonts = 0;
1485 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, 0, &nfonts, NULL);
1486 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1487 ok(nfonts, "unexpected result\n");
1488
1489 nfonts = 0;
1490 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_FIXED_FONT, &nfonts, NULL);
1491 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1492 ok(nfonts, "unexpected result\n");
1493
1494 nfonts = 0;
1495 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_PROPORTIONAL_FONT, &nfonts, NULL);
1496 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1497 ok(nfonts, "unexpected result\n");
1498
1499 nfonts = 1;
1500 memset(sfi, 0, sizeof(sfi));
1501 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_FIXED_FONT, &nfonts, sfi);
1502 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1503 ok(nfonts == 1, "got %u, expected 1\n", nfonts);
1504 ok(sfi[0].scripts != 0, "unexpected result\n");
1505 ok(sfi[0].wszFont[0], "unexpected result\n");
1506
1507 nfonts = 1;
1508 memset(sfi, 0, sizeof(sfi));
1509 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_PROPORTIONAL_FONT, &nfonts, sfi);
1510 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1511 ok(nfonts == 1, "got %u, expected 1\n", nfonts);
1512 ok(sfi[0].scripts != 0, "unexpected result\n");
1513 ok(sfi[0].wszFont[0], "unexpected result\n");
1514 }
1515
1516 START_TEST(mlang)
1517 {
1518 IMultiLanguage2 *iML2 = NULL;
1519 IMLangFontLink *iMLFL = NULL;
1520 IMLangFontLink2 *iMLFL2 = NULL;
1521 HRESULT ret;
1522
1523 if (!init_function_ptrs())
1524 return;
1525
1526 CoInitialize(NULL);
1527 test_Rfc1766ToLcid();
1528
1529 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1530 &IID_IMultiLanguage2, (void **)&iML2);
1531 if (ret != S_OK || !iML2) return;
1532
1533 test_rfc1766(iML2);
1534 test_GetLcidFromRfc1766(iML2);
1535 test_GetRfc1766FromLcid(iML2);
1536
1537 test_EnumCodePages(iML2, 0);
1538 test_EnumCodePages(iML2, MIMECONTF_MIME_LATEST);
1539 test_EnumCodePages(iML2, MIMECONTF_BROWSER);
1540 test_EnumCodePages(iML2, MIMECONTF_MINIMAL);
1541 test_EnumCodePages(iML2, MIMECONTF_VALID);
1542 /* FIXME: why MIMECONTF_MIME_REGISTRY returns 0 of supported codepages? */
1543 /*test_EnumCodePages(iML2, MIMECONTF_MIME_REGISTRY);*/
1544
1545 test_EnumScripts(iML2, 0);
1546 test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER);
1547 test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM);
1548
1549 ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, CP_UNICODE);
1550 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UTF8 -> CP_UNICODE) = %08x\n", ret);
1551 ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, CP_UTF8);
1552 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> CP_UTF8) = %08x\n", ret);
1553
1554 test_multibyte_to_unicode_translations(iML2);
1555 test_IMultiLanguage2_ConvertStringFromUnicode(iML2);
1556
1557 IMultiLanguage2_Release(iML2);
1558
1559 test_ConvertINetUnicodeToMultiByte();
1560
1561 test_JapaneseConversion();
1562
1563 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1564 &IID_IMLangFontLink, (void **)&iMLFL);
1565 if (ret != S_OK || !iMLFL) return;
1566
1567 IMLangFontLink_Test(iMLFL);
1568 IMLangFontLink_Release(iMLFL);
1569
1570 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1571 &IID_IMLangFontLink2, (void **)&iMLFL2);
1572 if (ret != S_OK || !iMLFL2) return;
1573
1574 test_GetScriptFontInfo(iMLFL2);
1575 IMLangFontLink2_Release(iMLFL2);
1576
1577 CoUninitialize();
1578 }
useful hacks and other patches not (yet) suitable for mainline