?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
push 390edd058cbebc9f7cb21f639a52f5acd36a8bf3
[wine/hacks.git] / dlls / mlang / tests / mlang.c
blobd4e39412a211643144bb1ccef5a750e2e0f9ad90
1 /*
2 * Unit test suite for MLANG APIs.
3 *
4 * Copyright 2004 Dmitry Timoshkov
5 * Copyright 2009 Detlef Riekenberg
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 */
21
22 #define COBJMACROS
23
24 #include <stdarg.h>
25 #include <stdio.h>
26
27 #include "windef.h"
28 #include "winbase.h"
29 #include "winerror.h"
30 #include "initguid.h"
31 #include "mlang.h"
32
33 #include "wine/test.h"
34
35 #ifndef CP_UNICODE
36 #define CP_UNICODE 1200
37 #endif
38
39 #if 0
40 #define DUMP_CP_INFO
41 #define DUMP_SCRIPT_INFO
42
43 #if defined DUMP_CP_INFO || defined DUMP_SCRIPT_INFO
44 #include "wine/debug.h"
45 #endif
46 #endif /* 0 */
47
48 static BOOL (WINAPI *pGetCPInfoExA)(UINT, DWORD, LPCPINFOEXA);
49 static HRESULT (WINAPI *pConvertINetMultiByteToUnicode)(LPDWORD, DWORD, LPCSTR,
50 LPINT, LPWSTR, LPINT);
51 static HRESULT (WINAPI *pConvertINetUnicodeToMultiByte)(LPDWORD, DWORD, LPCWSTR,
52 LPINT, LPSTR, LPINT);
53 typedef struct lcid_tag_table {
54 LPCSTR rfc1766;
55 LCID lcid;
56 HRESULT hr;
57 LCID broken_lcid;
58 LPCSTR broken_rfc;
59 } lcid_table_entry;
60
61 /* en, ar and zh use SUBLANG_NEUTRAL for the rfc1766 name without the country
62 all others suppress the country with SUBLANG_DEFAULT.
63 For 3 letter language codes, the rfc1766 is to small for the country */
64
65 static const lcid_table_entry lcid_table[] = {
66 {"e", -1, E_FAIL},
67 {"", -1, E_FAIL},
68 {"-", -1, E_FAIL},
69 {"e-", -1, E_FAIL},
70
71 {"ar", 1, S_OK},
72 {"zh", 4, S_OK},
73
74 {"de", 0x0407, S_OK},
75 {"de-ch", 0x0807, S_OK},
76 {"de-at", 0x0c07, S_OK},
77 {"de-lu", 0x1007, S_OK},
78 {"de-li", 0x1407, S_OK},
79
80 {"en", 9, S_OK},
81 {"en-gb", 0x809, S_OK},
82 {"en-GB", 0x809, S_OK},
83 {"EN-GB", 0x809, S_OK},
84 {"en-US", 0x409, S_OK},
85 {"en-us", 0x409, S_OK},
86
87 {"fr", 0x040c, S_OK},
88 {"fr-be", 0x080c, S_OK},
89 {"fr-ca", 0x0c0c, S_OK},
90 {"fr-ch", 0x100c, S_OK},
91 {"fr-lu", 0x140c, S_OK},
92 {"fr-mc", 0x180c, S_OK, 0x040c, "fr"},
93
94 {"it", 0x0410, S_OK},
95 {"it-ch", 0x0810, S_OK},
96
97 {"nl", 0x0413, S_OK},
98 {"nl-be", 0x0813, S_OK},
99 {"pl", 0x0415, S_OK},
100 {"ru", 0x0419, S_OK},
101
102 {"kok", 0x0457, S_OK, 0x0412, "x-kok"}
103
104 };
105
106 #define TODO_NAME 1
107
108 typedef struct info_table_tag {
109 LCID lcid;
110 LANGID lang;
111 DWORD todo;
112 LPCSTR rfc1766;
113 LPCWSTR localename;
114 LPCWSTR broken_name;
115 } info_table_entry;
116
117 static const WCHAR de_en[] = {'E','n','g','l','i','s','c','h',0};
118 static const WCHAR de_enca[] = {'E','n','g','l','i','s','c','h',' ',
119 '(','K','a','n','a','d','a',')',0};
120 static const WCHAR de_engb[] = {'E','n','g','l','i','s','c','h',' ',
121 '(','G','r','o',0xDF,'b','r','i','t','a','n','n','i','e','n',')',0};
122 static const WCHAR de_engb2[] ={'E','n','g','l','i','s','c','h',' ',
123 '(','V','e','r','e','i','n','i','g','t','e','s',' ',
124 'K',0xF6,'n','i','g','r','e','i','c',0};
125 static const WCHAR de_enus[] = {'E','n','g','l','i','s','c','h',' ',
126 '(','U','S','A',')',0};
127 static const WCHAR de_de[] = {'D','e','u','t','s','c','h',' ',
128 '(','D','e','u','t','s','c','h','l','a','n','d',')',0};
129 static const WCHAR de_deat[] = {'D','e','u','t','s','c','h',' ',
130 '(',0xD6,'s','t','e','r','r','e','i','c','h',')',0};
131 static const WCHAR de_dech[] = {'D','e','u','t','s','c','h',' ',
132 '(','S','c','h','w','e','i','z',')',0};
133
134 static const WCHAR en_en[] = {'E','n','g','l','i','s','h',0};
135 static const WCHAR en_enca[] = {'E','n','g','l','i','s','h',' ',
136 '(','C','a','n','a','d','a',')',0};
137 static const WCHAR en_engb[] = {'E','n','g','l','i','s','h',' ',
138 '(','U','n','i','t','e','d',' ','K','i','n','g','d','o','m',')',0};
139 static const WCHAR en_enus[] = {'E','n','g','l','i','s','h',' ',
140 '(','U','n','i','t','e','d',' ','S','t','a','t','e','s',')',0};
141 static const WCHAR en_de[] = {'G','e','r','m','a','n',' ',
142 '(','G','e','r','m','a','n','y',')',0};
143 static const WCHAR en_deat[] = {'G','e','r','m','a','n',' ',
144 '(','A','u','s','t','r','i','a',')',0};
145 static const WCHAR en_dech[] = {'G','e','r','m','a','n',' ',
146 '(','S','w','i','t','z','e','r','l','a','n','d',')',0};
147
148 static const WCHAR fr_en[] = {'A','n','g','l','a','i','s',0};
149 static const WCHAR fr_enca[] = {'A','n','g','l','a','i','s',' ',
150 '(','C','a','n','a','d','a',')',0};
151 static const WCHAR fr_engb[] = {'A','n','g','l','a','i','s',' ',
152 '(','R','o','y','a','u','m','e','-','U','n','i',')',0};
153 static const WCHAR fr_enus[] = {'A','n','g','l','a','i','s',' ',
154 '(',0xC9, 't','a','t','s','-','U','n','i','s',')',0};
155 static const WCHAR fr_enus2[] ={'A','n','g','l','a','i','s',' ',
156 '(','U','.','S','.',')',0};
157 static const WCHAR fr_de[] = {'A','l','l','e','m','a','n','d',' ',
158 '(','A','l','l','e','m','a','g','n','e',')',0};
159 static const WCHAR fr_de2[] = {'A','l','l','e','m','a','n','d',' ',
160 '(','S','t','a','n','d','a','r','d',')',0};
161 static const WCHAR fr_deat[] = {'A','l','l','e','m','a','n','d',' ',
162 '(','A','u','t','r','i','c','h','e',')',0};
163 static const WCHAR fr_dech[] = {'A','l','l','e','m','a','n','d',' ',
164 '(','S','u','i','s','s','e',')',0};
165
166 static const info_table_entry info_table[] = {
167 {MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
168 0, "en", en_en},
169 {MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
170 0, "en-us", en_enus},
171 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
172 0, "en-gb", en_engb},
173 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
174 0, "en-us", en_enus},
175 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_CAN), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
176 0, "en-ca", en_enca},
177
178 {MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
179 0, "de", en_de},
180 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
181 0, "de", en_de},
182 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_SWISS), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
183 0, "de-ch", en_dech},
184 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_AUSTRIAN), MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL),
185 0, "de-at", en_deat},
186
187 {MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
188 TODO_NAME, "en", de_en},
189 {MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
190 TODO_NAME, "en-us", de_enus},
191 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
192 TODO_NAME, "en-gb", de_engb, de_engb2},
193 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
194 TODO_NAME, "en-us", de_enus},
195 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_CAN), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
196 TODO_NAME, "en-ca", de_enca},
197
198 {MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
199 TODO_NAME, "de", de_de},
200 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
201 TODO_NAME, "de",de_de},
202 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_SWISS), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
203 TODO_NAME, "de-ch", de_dech},
204 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_AUSTRIAN), MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT),
205 TODO_NAME, "de-at", de_deat},
206
207 {MAKELANGID(LANG_ENGLISH, SUBLANG_NEUTRAL), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
208 TODO_NAME, "en", fr_en},
209 {MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
210 TODO_NAME, "en-us", fr_enus, fr_enus2},
211 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
212 TODO_NAME, "en-gb", fr_engb},
213 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
214 TODO_NAME, "en-us", fr_enus, fr_enus2},
215 {MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_CAN), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
216 TODO_NAME, "en-ca", fr_enca},
217
218 {MAKELANGID(LANG_GERMAN, SUBLANG_DEFAULT), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
219 TODO_NAME, "de", fr_de, fr_de2},
220 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
221 TODO_NAME, "de", fr_de, fr_de2},
222 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_SWISS), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
223 TODO_NAME, "de-ch", fr_dech},
224 {MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_AUSTRIAN), MAKELANGID(LANG_FRENCH, SUBLANG_DEFAULT),
225 TODO_NAME, "de-at", fr_deat}
226
227 };
228
229 static BOOL init_function_ptrs(void)
230 {
231 HMODULE hMlang;
232
233 hMlang = LoadLibraryA("mlang.dll");
234 if (!hMlang)
235 {
236 skip("mlang not available\n");
237 return FALSE;
238 }
239
240 pConvertINetMultiByteToUnicode = (void *)GetProcAddress(hMlang, "ConvertINetMultiByteToUnicode");
241 pConvertINetUnicodeToMultiByte = (void *)GetProcAddress(hMlang, "ConvertINetUnicodeToMultiByte");
242
243 pGetCPInfoExA = (void *)GetProcAddress(GetModuleHandleA("kernel32.dll"), "GetCPInfoExA");
244
245 return TRUE;
246 }
247
248 #define ok_w2(format, szString1, szString2) \
249 \
250 if (lstrcmpW((szString1), (szString2)) != 0) \
251 { \
252 CHAR string1[256], string2[256]; \
253 WideCharToMultiByte(CP_ACP, 0, (szString1), -1, string1, 256, NULL, NULL); \
254 WideCharToMultiByte(CP_ACP, 0, (szString2), -1, string2, 256, NULL, NULL); \
255 ok(0, (format), string1, string2); \
256 }
257
258 /* lstrcmpW is not supported on Win9x! */
259 static int mylstrcmpW(const WCHAR* str1, const WCHAR* str2)
260 {
261 if (!str2) return 1;
262 while (*str1 && *str1==*str2) {
263 str1++;
264 str2++;
265 }
266 return *str1-*str2;
267 }
268
269 /* lstrcpyW is not supported on Win95 */
270 static void mylstrcpyW(WCHAR* str1, const WCHAR* str2)
271 {
272 while (str2 && *str2) {
273 *str1 = *str2;
274 str1++;
275 str2++;
276 }
277 *str1 = '\0';
278 }
279
280 #define DEBUGSTR_W_MAXLEN 64
281
282 static CHAR * debugstr_w(const WCHAR * strW)
283 {
284 static CHAR buffers[DEBUGSTR_W_MAXLEN * 2];
285 static DWORD pos = 0;
286 CHAR * strA;
287 DWORD len = DEBUGSTR_W_MAXLEN - 4;
288
289 strA = &buffers[pos];
290
291 *strA++ = 'L';
292 *strA++ = '"';
293
294 while (*strW && (len > 4)) {
295 if ((*strW < ' ') || (*strW > 126)) {
296 sprintf(strA, "\\%04x", *strW);
297 strA +=5;
298 len -=5;
299 }
300 else
301 {
302 *strA++ = *strW;
303 len--;
304 }
305 strW++;
306 }
307 *strA++ = '"';
308 *strA = '\0';
309
310 strA = &buffers[pos];
311 pos += DEBUGSTR_W_MAXLEN;
312 if (pos >= sizeof(buffers)) pos = 0;
313
314 return strA;
315
316 }
317
318 static void test_multibyte_to_unicode_translations(IMultiLanguage2 *iML2)
319 {
320 /* these APIs are broken regarding constness of the input buffer */
321 char stringA[] = "Just a test string\0"; /* double 0 for CP_UNICODE tests */
322 WCHAR stringW[] = {'J','u','s','t',' ','a',' ','t','e','s','t',' ','s','t','r','i','n','g',0};
323 char bufA[256];
324 WCHAR bufW[256];
325 UINT lenA, lenW, expected_len;
326 HRESULT ret;
327
328 /* IMultiLanguage2_ConvertStringToUnicode tests */
329
330 memset(bufW, 'x', sizeof(bufW));
331 lenA = 0;
332 lenW = sizeof(bufW)/sizeof(bufW[0]);
333 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
334 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
335 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
336 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
337
338 memset(bufW, 'x', sizeof(bufW));
339 lenA = -1;
340 lenW = sizeof(bufW)/sizeof(bufW[0]);
341 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
342 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
343 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
344 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
345 if (lenW < sizeof(bufW)/sizeof(bufW[0])) {
346 /* can only happen if the convert call fails */
347 ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
348 bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
349 }
350 ok(!lstrcmpW(bufW, stringW), "bufW/stringW mismatch\n");
351
352 memset(bufW, 'x', sizeof(bufW));
353 lenA = -1;
354 lenW = 5;
355 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
356 ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringToUnicode should fail: %08x\n", ret);
357 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
358 /* still has to do partial conversion */
359 ok(!memcmp(bufW, stringW, 5 * sizeof(WCHAR)), "bufW/stringW mismatch\n");
360
361 memset(bufW, 'x', sizeof(bufW));
362 lenA = -1;
363 lenW = sizeof(bufW)/sizeof(bufW[0]);
364 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, CP_UNICODE, stringA, &lenA, bufW, &lenW);
365 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
366 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
367 ok(lenW == lstrlenW(stringW)/(int)sizeof(WCHAR), "wrong lenW %u\n", lenW);
368 ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
369 bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
370 ok(!lstrcmpA((LPCSTR)bufW, stringA), "bufW/stringA mismatch\n");
371
372 memset(bufW, 'x', sizeof(bufW));
373 lenA = lstrlenA(stringA);
374 lenW = 0;
375 ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, NULL, &lenW);
376 ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
377 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
378 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
379 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
380
381 memset(bufW, 'x', sizeof(bufW));
382 lenA = lstrlenA(stringA);
383 lenW = sizeof(bufW)/sizeof(bufW[0]);
384 ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, (INT *)&lenA, NULL, (INT *)&lenW);
385 ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
386 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
387 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
388 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
389
390 memset(bufW, 'x', sizeof(bufW));
391 lenA = lstrlenA(stringA);
392 lenW = 0;
393 ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, (INT *)&lenA, NULL, (INT *)&lenW);
394 ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
395 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
396 expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
397 ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
398
399 /* IMultiLanguage2_ConvertStringFromUnicode tests */
400
401 memset(bufA, 'x', sizeof(bufA));
402 lenW = 0;
403 lenA = sizeof(bufA);
404 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
405 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
406 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
407 ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
408
409 memset(bufA, 'x', sizeof(bufA));
410 lenW = -1;
411 lenA = sizeof(bufA);
412 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
413 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
414 ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
415 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
416 ok(bufA[lenA] != 0, "buf should not be 0 terminated\n");
417 bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
418 ok(!lstrcmpA(bufA, stringA), "bufA/stringA mismatch\n");
419
420 memset(bufA, 'x', sizeof(bufA));
421 lenW = -1;
422 lenA = 5;
423 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
424 ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringFromUnicode should fail: %08x\n", ret);
425 ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
426 /* still has to do partial conversion */
427 ok(!memcmp(bufA, stringA, 5), "bufW/stringW mismatch\n");
428
429 memset(bufA, 'x', sizeof(bufA));
430 lenW = -1;
431 lenA = sizeof(bufA);
432 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, CP_UNICODE, stringW, &lenW, bufA, &lenA);
433 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
434 ok(lenA == lstrlenA(stringA) * (int)sizeof(WCHAR), "wrong lenA %u\n", lenA);
435 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
436 ok(bufA[lenA] != 0 && bufA[lenA+1] != 0, "buf should not be 0 terminated\n");
437 bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
438 bufA[lenA+1] = 0; /* sizeof(WCHAR) */
439 ok(!lstrcmpW((LPCWSTR)bufA, stringW), "bufA/stringW mismatch\n");
440
441 memset(bufA, 'x', sizeof(bufA));
442 lenW = lstrlenW(stringW);
443 lenA = 0;
444 ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, NULL, &lenA);
445 ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
446 ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
447 expected_len = WideCharToMultiByte(1252, 0, stringW, lenW, NULL, 0, NULL, NULL);
448 ok(lenA == expected_len, "expected lenA %u, got %u\n", expected_len, lenA);
449 }
450
451 static void cpinfo_cmp(MIMECPINFO *cpinfo1, MIMECPINFO *cpinfo2)
452 {
453 ok(cpinfo1->dwFlags == cpinfo2->dwFlags, "dwFlags mismatch: %08x != %08x\n", cpinfo1->dwFlags, cpinfo2->dwFlags);
454 ok(cpinfo1->uiCodePage == cpinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", cpinfo1->uiCodePage, cpinfo2->uiCodePage);
455 ok(cpinfo1->uiFamilyCodePage == cpinfo2->uiFamilyCodePage, "uiFamilyCodePage mismatch: %u != %u\n", cpinfo1->uiFamilyCodePage, cpinfo2->uiFamilyCodePage);
456 ok(!lstrcmpW(cpinfo1->wszDescription, cpinfo2->wszDescription), "wszDescription mismatch\n");
457 ok(!lstrcmpW(cpinfo1->wszWebCharset, cpinfo2->wszWebCharset), "wszWebCharset mismatch\n");
458 ok(!lstrcmpW(cpinfo1->wszHeaderCharset, cpinfo2->wszHeaderCharset), "wszHeaderCharset mismatch\n");
459 ok(!lstrcmpW(cpinfo1->wszBodyCharset, cpinfo2->wszBodyCharset), "wszBodyCharset mismatch\n");
460 ok(!lstrcmpW(cpinfo1->wszFixedWidthFont, cpinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
461 ok(!lstrcmpW(cpinfo1->wszProportionalFont, cpinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
462 ok(cpinfo1->bGDICharset == cpinfo2->bGDICharset, "bGDICharset mismatch: %d != %d\n", cpinfo1->bGDICharset, cpinfo2->bGDICharset);
463 }
464
465 #ifdef DUMP_CP_INFO
466 static const char *dump_mime_flags(DWORD flags)
467 {
468 static char buf[1024];
469
470 buf[0] = 0;
471
472 if (flags & MIMECONTF_MAILNEWS) strcat(buf, " MIMECONTF_MAILNEWS");
473 if (flags & MIMECONTF_BROWSER) strcat(buf, " MIMECONTF_BROWSER");
474 if (flags & MIMECONTF_MINIMAL) strcat(buf, " MIMECONTF_MINIMAL");
475 if (flags & MIMECONTF_IMPORT) strcat(buf, " MIMECONTF_IMPORT");
476 if (flags & MIMECONTF_SAVABLE_MAILNEWS) strcat(buf, " MIMECONTF_SAVABLE_MAILNEWS");
477 if (flags & MIMECONTF_SAVABLE_BROWSER) strcat(buf, " MIMECONTF_SAVABLE_BROWSER");
478 if (flags & MIMECONTF_EXPORT) strcat(buf, " MIMECONTF_EXPORT");
479 if (flags & MIMECONTF_PRIVCONVERTER) strcat(buf, " MIMECONTF_PRIVCONVERTER");
480 if (flags & MIMECONTF_VALID) strcat(buf, " MIMECONTF_VALID");
481 if (flags & MIMECONTF_VALID_NLS) strcat(buf, " MIMECONTF_VALID_NLS");
482 if (flags & MIMECONTF_MIME_IE4) strcat(buf, " MIMECONTF_MIME_IE4");
483 if (flags & MIMECONTF_MIME_LATEST) strcat(buf, " MIMECONTF_MIME_LATEST");
484 if (flags & MIMECONTF_MIME_REGISTRY) strcat(buf, " MIMECONTF_MIME_REGISTRY");
485
486 return buf;
487 }
488 #endif
489
490 static HRESULT check_convertible(IMultiLanguage2 *iML2, UINT from, UINT to)
491 {
492 CHAR convert[MAX_PATH];
493 BYTE dest[MAX_PATH];
494 HRESULT hr;
495 UINT srcsz, destsz;
496
497 static WCHAR strW[] = {'a','b','c',0};
498
499 /* Check to see if the target codepage has these characters or not */
500 if (from != CP_UTF8)
501 {
502 BOOL fDefaultChar;
503 char ch[10];
504 int cb;
505 cb = WideCharToMultiByte( from, WC_NO_BEST_FIT_CHARS | WC_COMPOSITECHECK | WC_DEFAULTCHAR,
506 strW, 3, ch, sizeof(ch), NULL, &fDefaultChar);
507
508 if(cb == 0 || fDefaultChar)
509 {
510 trace("target codepage %i does not contain 'abc'\n",from);
511 return E_FAIL;
512 }
513 }
514
515 srcsz = lstrlenW(strW) + 1;
516 destsz = MAX_PATH;
517 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, from, strW,
518 &srcsz, convert, &destsz);
519 if (hr != S_OK)
520 return S_FALSE;
521
522 srcsz = -1;
523 destsz = MAX_PATH;
524 hr = IMultiLanguage2_ConvertString(iML2, NULL, from, to, (BYTE *)convert,
525 &srcsz, dest, &destsz);
526 if (hr != S_OK)
527 return S_FALSE;
528
529 return S_OK;
530 }
531
532 static void test_EnumCodePages(IMultiLanguage2 *iML2, DWORD flags)
533 {
534 IEnumCodePage *iEnumCP = NULL;
535 MIMECPINFO *cpinfo;
536 MIMECPINFO cpinfo2;
537 HRESULT ret;
538 ULONG i, n;
539 UINT total;
540
541 total = 0;
542 ret = IMultiLanguage2_GetNumberOfCodePageInfo(iML2, &total);
543 ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfCodePageInfo: expected S_OK/!0, got %08x/%u\n", ret, total);
544
545 trace("total mlang supported codepages %u\n", total);
546
547 ret = IMultiLanguage2_EnumCodePages(iML2, flags, LANG_NEUTRAL, &iEnumCP);
548 ok(ret == S_OK && iEnumCP, "IMultiLanguage2_EnumCodePages: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumCP);
549
550 ret = IEnumCodePage_Reset(iEnumCP);
551 ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
552 n = 65536;
553 ret = IEnumCodePage_Next(iEnumCP, 0, NULL, &n);
554 if (ret == S_FALSE)
555 ok(n == 0 && ret == S_FALSE, "IEnumCodePage_Next: expected 0/S_FALSE, got %u/%08x\n", n, ret);
556 else if (ret == E_FAIL)
557 ok(n == 65536 && ret == E_FAIL, "IEnumCodePage_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
558 ret = IEnumCodePage_Next(iEnumCP, 0, NULL, NULL);
559 if (ret == S_FALSE)
560 ok(ret == S_FALSE, "IEnumCodePage_Next: expected S_FALSE, got %08x\n", ret);
561 else if (ret == E_FAIL)
562 ok(n == 65536 && ret == E_FAIL, "IEnumCodePage_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
563
564 cpinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*cpinfo) * total * 2);
565
566 n = total * 2;
567 ret = IEnumCodePage_Next(iEnumCP, 0, cpinfo, &n);
568 ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
569
570 n = total * 2;
571 ret = IEnumCodePage_Next(iEnumCP, n, cpinfo, &n);
572 ok(ret == S_OK && n != 0, "IEnumCodePage_Next: expected S_OK/!0, got %08x/%u\n", ret, n);
573
574 trace("flags %08x, enumerated codepages %u\n", flags, n);
575
576 if (!flags)
577 {
578 ok(n == total, "IEnumCodePage_Next: expected %u, got %u\n", total, n);
579
580 flags = MIMECONTF_MIME_LATEST;
581 }
582
583 total = n;
584
585 for (i = 0; i < n; i++)
586 {
587 CHARSETINFO csi;
588 MIMECSETINFO mcsi;
589 HRESULT convertible = S_OK;
590 static const WCHAR autoW[] = {'_','a','u','t','o',0};
591 static const WCHAR feffW[] = {'u','n','i','c','o','d','e','F','E','F','F',0};
592
593 #ifdef DUMP_CP_INFO
594 trace("MIMECPINFO #%u:\n"
595 "dwFlags %08x %s\n"
596 "uiCodePage %u\n"
597 "uiFamilyCodePage %u\n"
598 "wszDescription %s\n"
599 "wszWebCharset %s\n"
600 "wszHeaderCharset %s\n"
601 "wszBodyCharset %s\n"
602 "wszFixedWidthFont %s\n"
603 "wszProportionalFont %s\n"
604 "bGDICharset %d\n\n",
605 i,
606 cpinfo[i].dwFlags, dump_mime_flags(cpinfo[i].dwFlags),
607 cpinfo[i].uiCodePage,
608 cpinfo[i].uiFamilyCodePage,
609 wine_dbgstr_w(cpinfo[i].wszDescription),
610 wine_dbgstr_w(cpinfo[i].wszWebCharset),
611 wine_dbgstr_w(cpinfo[i].wszHeaderCharset),
612 wine_dbgstr_w(cpinfo[i].wszBodyCharset),
613 wine_dbgstr_w(cpinfo[i].wszFixedWidthFont),
614 wine_dbgstr_w(cpinfo[i].wszProportionalFont),
615 cpinfo[i].bGDICharset);
616 #endif
617 ok(cpinfo[i].dwFlags & flags, "enumerated flags %08x do not include requested %08x\n", cpinfo[i].dwFlags, flags);
618
619 if (TranslateCharsetInfo((DWORD *)(INT_PTR)cpinfo[i].uiFamilyCodePage, &csi, TCI_SRCCODEPAGE))
620 ok(cpinfo[i].bGDICharset == csi.ciCharset, "%d != %d\n", cpinfo[i].bGDICharset, csi.ciCharset);
621 else
622 if (winetest_debug > 1)
623 trace("TranslateCharsetInfo failed for cp %u\n", cpinfo[i].uiFamilyCodePage);
624
625 #ifdef DUMP_CP_INFO
626 trace("%u: codepage %u family %u\n", i, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
627 #endif
628 /* Win95 does not support UTF-7 */
629 if (cpinfo[i].uiCodePage == CP_UTF7) continue;
630
631 /* support files for some codepages might be not installed, or
632 * the codepage is just an alias.
633 */
634 if (IsValidCodePage(cpinfo[i].uiCodePage))
635 {
636 ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UNICODE);
637 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(%u -> CP_UNICODE) = %08x\n", cpinfo[i].uiCodePage, ret);
638 ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, cpinfo[i].uiCodePage);
639 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
640
641 convertible = check_convertible(iML2, cpinfo[i].uiCodePage, CP_UTF8);
642 if (convertible != E_FAIL)
643 {
644 ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UTF8);
645 ok(ret == convertible, "IMultiLanguage2_IsConvertible(%u -> CP_UTF8) = %08x\n", cpinfo[i].uiCodePage, ret);
646 ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, cpinfo[i].uiCodePage);
647 ok(ret == convertible, "IMultiLanguage2_IsConvertible(CP_UTF8 -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
648 }
649 }
650 else
651 if (winetest_debug > 1)
652 trace("IsValidCodePage failed for cp %u\n", cpinfo[i].uiCodePage);
653
654 if (memcmp(cpinfo[i].wszWebCharset,feffW,sizeof(WCHAR)*11)==0)
655 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
656 else
657 {
658 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszWebCharset, &mcsi);
659 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
660 if (memcmp(cpinfo[i].wszWebCharset, autoW, 5 * sizeof(WCHAR)))
661 {
662 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
663 #ifdef DUMP_CP_INFO
664 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszWebCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
665 #endif
666 ok(!lstrcmpiW(cpinfo[i].wszWebCharset, mcsi.wszCharset),
667 #ifdef DUMP_CP_INFO
668 "%s != %s\n",
669 wine_dbgstr_w(cpinfo[i].wszWebCharset), wine_dbgstr_w(mcsi.wszCharset));
670 #else
671 "wszWebCharset mismatch\n");
672 #endif
673
674 if (0)
675 {
676 /* native mlang returns completely messed up encodings in some cases */
677 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
678 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
679 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
680 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
681 }
682 }
683 }
684
685 if (memcmp(cpinfo[i].wszHeaderCharset,feffW,sizeof(WCHAR)*11)==0)
686 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
687 else
688 {
689 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszHeaderCharset, &mcsi);
690 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
691 if (memcmp(cpinfo[i].wszHeaderCharset, autoW, 5 * sizeof(WCHAR)))
692 {
693 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
694 #ifdef DUMP_CP_INFO
695 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszHeaderCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
696 #endif
697 ok(!lstrcmpiW(cpinfo[i].wszHeaderCharset, mcsi.wszCharset),
698 #ifdef DUMP_CP_INFO
699 "%s != %s\n",
700 wine_dbgstr_w(cpinfo[i].wszHeaderCharset), wine_dbgstr_w(mcsi.wszCharset));
701 #else
702 "wszHeaderCharset mismatch\n");
703 #endif
704
705 if (0)
706 {
707 /* native mlang returns completely messed up encodings in some cases */
708 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
709 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
710 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
711 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
712 }
713 }
714 }
715
716 if (memcmp(cpinfo[i].wszBodyCharset,feffW,sizeof(WCHAR)*11)==0)
717 skip("Legacy windows bug returning invalid charset of unicodeFEFF\n");
718 else
719 {
720 ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszBodyCharset, &mcsi);
721 /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
722 if (memcmp(cpinfo[i].wszBodyCharset, autoW, 5 * sizeof(WCHAR)))
723 {
724 ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
725 #ifdef DUMP_CP_INFO
726 trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszBodyCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
727 #endif
728 ok(!lstrcmpiW(cpinfo[i].wszBodyCharset, mcsi.wszCharset),
729 #ifdef DUMP_CP_INFO
730 "%s != %s\n",
731 wine_dbgstr_w(cpinfo[i].wszBodyCharset), wine_dbgstr_w(mcsi.wszCharset));
732 #else
733 "wszBodyCharset mismatch\n");
734 #endif
735
736 if (0)
737 {
738 /* native mlang returns completely messed up encodings in some cases */
739 ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
740 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
741 ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
742 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
743 }
744 }
745 }
746 }
747
748 /* now IEnumCodePage_Next should fail, since pointer is at the end */
749 n = 1;
750 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
751 ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
752
753 ret = IEnumCodePage_Reset(iEnumCP);
754 ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
755 n = 0;
756 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
757 ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
758 cpinfo_cmp(&cpinfo[0], &cpinfo2);
759
760 if (0)
761 {
762 /* Due to a bug in MS' implementation of IEnumCodePage_Skip
763 * it's not used here.
764 */
765 ret = IEnumCodePage_Skip(iEnumCP, 1);
766 ok(ret == S_OK, "IEnumCodePage_Skip: expected S_OK, got %08x\n", ret);
767 }
768 for (i = 0; i < total - 1; i++)
769 {
770 n = 0;
771 ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
772 ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
773 cpinfo_cmp(&cpinfo[i + 1], &cpinfo2);
774 }
775
776 HeapFree(GetProcessHeap(), 0, cpinfo);
777 IEnumCodePage_Release(iEnumCP);
778 }
779
780 static void scriptinfo_cmp(SCRIPTINFO *sinfo1, SCRIPTINFO *sinfo2)
781 {
782 ok(sinfo1->ScriptId == sinfo2->ScriptId, "ScriptId mismatch: %d != %d\n", sinfo1->ScriptId, sinfo2->ScriptId);
783 ok(sinfo1->uiCodePage == sinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", sinfo1->uiCodePage, sinfo2->uiCodePage);
784 ok(!lstrcmpW(sinfo1->wszDescription, sinfo2->wszDescription), "wszDescription mismatch\n");
785 ok(!lstrcmpW(sinfo1->wszFixedWidthFont, sinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
786 ok(!lstrcmpW(sinfo1->wszProportionalFont, sinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
787 }
788
789 static void test_EnumScripts(IMultiLanguage2 *iML2, DWORD flags)
790 {
791 IEnumScript *iEnumScript = NULL;
792 SCRIPTINFO *sinfo;
793 SCRIPTINFO sinfo2;
794 HRESULT ret;
795 ULONG i, n;
796 UINT total;
797
798 total = 0;
799 ret = IMultiLanguage2_GetNumberOfScripts(iML2, &total);
800 ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfScripts: expected S_OK/!0, got %08x/%u\n", ret, total);
801
802 trace("total mlang supported scripts %u\n", total);
803
804 ret = IMultiLanguage2_EnumScripts(iML2, flags, LANG_NEUTRAL, &iEnumScript);
805 ok(ret == S_OK && iEnumScript, "IMultiLanguage2_EnumScripts: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumScript);
806
807 ret = IEnumScript_Reset(iEnumScript);
808 ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
809 n = 65536;
810 ret = IEnumScript_Next(iEnumScript, 0, NULL, &n);
811 ok(n == 65536 && ret == E_FAIL, "IEnumScript_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
812 ret = IEnumScript_Next(iEnumScript, 0, NULL, NULL);
813 ok(ret == E_FAIL, "IEnumScript_Next: expected E_FAIL, got %08x\n", ret);
814
815 sinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*sinfo) * total * 2);
816
817 n = total * 2;
818 ret = IEnumScript_Next(iEnumScript, 0, sinfo, &n);
819 ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
820
821 n = total * 2;
822 ret = IEnumScript_Next(iEnumScript, n, sinfo, &n);
823 ok(ret == S_OK && n != 0, "IEnumScript_Next: expected S_OK, got %08x/%u\n", ret, n);
824
825 trace("flags %08x, enumerated scripts %u\n", flags, n);
826
827 if (!flags)
828 {
829 ok(n == total, "IEnumScript_Next: expected %u, got %u\n", total, n);
830 flags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
831 }
832
833 total = n;
834
835 for (i = 0; pGetCPInfoExA && i < n; i++)
836 {
837 #ifdef DUMP_SCRIPT_INFO
838 trace("SCRIPTINFO #%u:\n"
839 "ScriptId %08x\n"
840 "uiCodePage %u\n"
841 "wszDescription %s\n"
842 "wszFixedWidthFont %s\n"
843 "wszProportionalFont %s\n\n",
844 i,
845 sinfo[i].ScriptId,
846 sinfo[i].uiCodePage,
847 wine_dbgstr_w(sinfo[i].wszDescription),
848 wine_dbgstr_w(sinfo[i].wszFixedWidthFont),
849 wine_dbgstr_w(sinfo[i].wszProportionalFont));
850 trace("%u codepage %u\n", i, sinfo[i].uiCodePage);
851 #endif
852 }
853
854 /* now IEnumScript_Next should fail, since pointer is at the end */
855 n = 1;
856 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
857 ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
858
859 ret = IEnumScript_Reset(iEnumScript);
860 ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
861 n = 0;
862 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
863 ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
864 scriptinfo_cmp(&sinfo[0], &sinfo2);
865
866 if (0)
867 {
868 /* Due to a bug in MS' implementation of IEnumScript_Skip
869 * it's not used here.
870 */
871 ret = IEnumScript_Skip(iEnumScript, 1);
872 ok(ret == S_OK, "IEnumScript_Skip: expected S_OK, got %08x\n", ret);
873 }
874 for (i = 0; i < total - 1; i++)
875 {
876 n = 0;
877 ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
878 ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
879 scriptinfo_cmp(&sinfo[i + 1], &sinfo2);
880 }
881
882 HeapFree(GetProcessHeap(), 0, sinfo);
883 IEnumScript_Release(iEnumScript);
884 }
885
886 static void IMLangFontLink_Test(IMLangFontLink* iMLFL)
887 {
888 DWORD dwCodePages, dwManyCodePages;
889 DWORD dwCmpCodePages;
890 UINT CodePage;
891 static const WCHAR str[3] = { 'd', 0x0436, 0xff90 };
892 LONG processed;
893 HRESULT ret;
894
895 dwCodePages = ~0u;
896 ret = IMLangFontLink_CodePageToCodePages(iMLFL, -1, &dwCodePages);
897 ok(ret == E_FAIL, "IMLangFontLink_CodePageToCodePages should fail: %x\n", ret);
898 ok(dwCodePages == 0, "expected 0, got %u\n", dwCodePages);
899
900 dwCodePages = 0;
901 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 932, &dwCodePages);
902 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
903 ok(dwCodePages == FS_JISJAPAN, "expected FS_JISJAPAN, got %08x\n", dwCodePages);
904 CodePage = 0;
905 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwCodePages, 1035, &CodePage);
906 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
907 ok(CodePage == 932, "Incorrect CodePage Returned (%i)\n",CodePage);
908
909 dwManyCodePages = 0;
910 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 1252, &dwManyCodePages);
911 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
912 ok(dwManyCodePages == FS_LATIN1, "expected FS_LATIN1, got %08x\n", dwManyCodePages);
913 dwCodePages = 0;
914 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 1256, &dwCodePages);
915 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
916 ok(dwCodePages == FS_ARABIC, "expected FS_ARABIC, got %08x\n", dwCodePages);
917 dwManyCodePages |= dwCodePages;
918 ret = IMLangFontLink_CodePageToCodePages(iMLFL, 874, &dwCodePages);
919 ok(ret == S_OK, "IMLangFontLink_CodePageToCodePages error %x\n", ret);
920 ok(dwCodePages == FS_THAI, "expected FS_THAI, got %08x\n", dwCodePages);
921 dwManyCodePages |= dwCodePages;
922
923 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 1256, &CodePage);
924 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
925 ok(CodePage == 1256, "Incorrect CodePage Returned (%i)\n",CodePage);
926
927 ret = IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 936, &CodePage);
928 ok(ret == S_OK, "IMLangFontLink_CodePagesToCodePage error %x\n", ret);
929 ok(CodePage == 1252, "Incorrect CodePage Returned (%i)\n",CodePage);
930
931 /* Tests for GetCharCodePages */
932
933 /* Latin 1 */
934 dwCmpCodePages = FS_LATIN1 | FS_LATIN2 | FS_CYRILLIC | FS_GREEK | FS_TURKISH
935 | FS_HEBREW | FS_ARABIC | FS_BALTIC | FS_VIETNAMESE | FS_THAI
936 | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG | FS_CHINESETRAD;
937 ret = IMLangFontLink_GetCharCodePages(iMLFL, 'd', &dwCodePages);
938 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
939 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
940
941 dwCodePages = 0;
942 processed = 0;
943 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[0], 1, 0, &dwCodePages, &processed);
944 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
945 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
946 ok(processed == 1, "expected 1, got %d\n", processed);
947
948 /* Cyrillic */
949 dwCmpCodePages = FS_CYRILLIC | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG;
950 ret = IMLangFontLink_GetCharCodePages(iMLFL, 0x0436, &dwCodePages);
951 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
952 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
953
954 dwCodePages = 0;
955 processed = 0;
956 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[1], 1, 0, &dwCodePages, &processed);
957 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
958 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
959 ok(processed == 1, "expected 1, got %d\n", processed);
960
961 /* Japanese */
962 dwCmpCodePages = FS_JISJAPAN;
963 ret = IMLangFontLink_GetCharCodePages(iMLFL, 0xff90, &dwCodePages);
964 ok(ret == S_OK, "IMLangFontLink_GetCharCodePages error %x\n", ret);
965 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
966
967 dwCodePages = 0;
968 processed = 0;
969 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, &dwCodePages, &processed);
970 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
971 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
972 ok(processed == 1, "expected 1, got %d\n", processed);
973
974 dwCmpCodePages = FS_CYRILLIC | FS_JISJAPAN | FS_CHINESESIMP | FS_WANSUNG;
975 dwCodePages = 0;
976 processed = 0;
977 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 2, 0, &dwCodePages, &processed);
978 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
979 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
980 ok(processed == 2, "expected 2, got %d\n", processed);
981
982 dwCmpCodePages = FS_JISJAPAN;
983 dwCodePages = 0;
984 processed = 0;
985 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 3, 0, &dwCodePages, &processed);
986 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
987 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
988 ok(processed == 3, "expected 3, got %d\n", processed);
989
990 dwCodePages = 0xffff;
991 processed = -1;
992 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, &dwCodePages, &processed);
993 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
994 ok(dwCodePages == dwCmpCodePages, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
995 ok(processed == 1, "expected 0, got %d\n", processed);
996
997 ret = IMLangFontLink_GetStrCodePages(iMLFL, &str[2], 1, 0, NULL, NULL);
998 ok(ret == S_OK, "IMLangFontLink_GetStrCodePages error %x\n", ret);
999
1000 dwCodePages = 0xffff;
1001 processed = -1;
1002 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, -1, 0, &dwCodePages, &processed);
1003 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
1004 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
1005 ok(processed == 0, "expected 0, got %d\n", processed);
1006
1007 dwCodePages = 0xffff;
1008 processed = -1;
1009 ret = IMLangFontLink_GetStrCodePages(iMLFL, NULL, 1, 0, &dwCodePages, &processed);
1010 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
1011 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
1012 ok(processed == 0, "expected 0, got %d\n", processed);
1013
1014 dwCodePages = 0xffff;
1015 processed = -1;
1016 ret = IMLangFontLink_GetStrCodePages(iMLFL, str, 0, 0, &dwCodePages, &processed);
1017 ok(ret == E_INVALIDARG, "IMLangFontLink_GetStrCodePages should fail: %x\n", ret);
1018 ok(dwCodePages == 0, "expected %x, got %x\n", dwCmpCodePages, dwCodePages);
1019 ok(processed == 0, "expected 0, got %d\n", processed);
1020 }
1021
1022 /* copied from libs/wine/string.c */
1023 static WCHAR *strstrW(const WCHAR *str, const WCHAR *sub)
1024 {
1025 while (*str)
1026 {
1027 const WCHAR *p1 = str, *p2 = sub;
1028 while (*p1 && *p2 && *p1 == *p2) { p1++; p2++; }
1029 if (!*p2) return (WCHAR *)str;
1030 str++;
1031 }
1032 return NULL;
1033 }
1034
1035 static void test_rfc1766(IMultiLanguage2 *iML2)
1036 {
1037 IEnumRfc1766 *pEnumRfc1766;
1038 RFC1766INFO info;
1039 ULONG n;
1040 HRESULT ret;
1041 BSTR rfcstr;
1042
1043 ret = IMultiLanguage2_EnumRfc1766(iML2, LANG_NEUTRAL, &pEnumRfc1766);
1044 ok(ret == S_OK, "IMultiLanguage2_EnumRfc1766 error %08x\n", ret);
1045
1046 while (1)
1047 {
1048 ret = IEnumRfc1766_Next(pEnumRfc1766, 1, &info, &n);
1049 if (ret != S_OK) break;
1050
1051 #ifdef DUMP_CP_INFO
1052 trace("lcid %04x rfc_name %s locale_name %s\n",
1053 info.lcid, wine_dbgstr_w(info.wszRfc1766), wine_dbgstr_w(info.wszLocaleName));
1054 #endif
1055
1056 ok(n == 1, "couldn't fetch 1 RFC1766INFO structure\n");
1057
1058 /* verify the Rfc1766 value */
1059 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, info.lcid, &rfcstr);
1060 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
1061
1062 /* not an exact 1:1 correspondence between lcid and rfc1766 in the
1063 * mlang database, e.g., nb-no -> 1044 -> no */
1064 ok(strstrW(info.wszRfc1766, rfcstr) != NULL,
1065 "Expected matching locale names\n");
1066
1067 SysFreeString(rfcstr);
1068 }
1069 IEnumRfc1766_Release(pEnumRfc1766);
1070 }
1071
1072 static void test_GetLcidFromRfc1766(IMultiLanguage2 *iML2)
1073 {
1074 WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
1075 LCID lcid;
1076 HRESULT ret;
1077 DWORD i;
1078
1079 static WCHAR en[] = { 'e','n',0 };
1080 static WCHAR en_them[] = { 'e','n','-','t','h','e','m',0 };
1081 static WCHAR english[] = { 'e','n','g','l','i','s','h',0 };
1082
1083
1084 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
1085 lcid = -1;
1086 MultiByteToWideChar(CP_ACP, 0, lcid_table[i].rfc1766, -1, rfc1766W, MAX_RFC1766_NAME);
1087 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, rfc1766W);
1088
1089 /* IE <6.0 guess 0x412 (ko) from "kok" */
1090 ok((ret == lcid_table[i].hr) ||
1091 broken(lcid_table[i].broken_lcid && (ret == S_FALSE)),
1092 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, ret, lcid_table[i].hr);
1093
1094 ok((lcid == lcid_table[i].lcid) ||
1095 broken(lcid == lcid_table[i].broken_lcid), /* IE <6.0 */
1096 "#%02d: got LCID 0x%x (expected 0x%x)\n", i, lcid, lcid_table[i].lcid);
1097 }
1098
1099
1100 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, NULL, en);
1101 ok(ret == E_INVALIDARG, "GetLcidFromRfc1766 returned: %08x\n", ret);
1102
1103 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, NULL);
1104 ok(ret == E_INVALIDARG, "GetLcidFromRfc1766 returned: %08x\n", ret);
1105
1106 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, en_them);
1107 ok((ret == E_FAIL || ret == S_FALSE), "GetLcidFromRfc1766 returned: %08x\n", ret);
1108 if (ret == S_FALSE)
1109 {
1110 BSTR rfcstr;
1111 static WCHAR en[] = {'e','n',0};
1112
1113 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid, &rfcstr);
1114 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
1115 ok_w2("Expected \"%s\", got \"%s\"n", en, rfcstr);
1116 }
1117
1118 ret = IMultiLanguage2_GetLcidFromRfc1766(iML2, &lcid, english);
1119 ok((ret == E_FAIL || ret == S_FALSE), "GetLcidFromRfc1766 returned: %08x\n", ret);
1120 if (ret == S_FALSE)
1121 {
1122 BSTR rfcstr;
1123 static WCHAR en[] = {'e','n',0};
1124
1125 ret = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid, &rfcstr);
1126 ok(ret == S_OK, "Expected S_OK, got %08x\n", ret);
1127 ok_w2("Expected \"%s\", got \"%s\"n", en, rfcstr);
1128 }
1129
1130 }
1131
1132 static void test_Rfc1766ToLcid(void)
1133 {
1134 LCID lcid;
1135 HRESULT ret;
1136 DWORD i;
1137
1138 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
1139 lcid = -1;
1140 ret = Rfc1766ToLcidA(&lcid, lcid_table[i].rfc1766);
1141
1142 /* IE <6.0 guess 0x412 (ko) from "kok" */
1143 ok( (ret == lcid_table[i].hr) ||
1144 broken(lcid_table[i].broken_lcid && (ret == S_FALSE)),
1145 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, ret, lcid_table[i].hr);
1146
1147 ok( (lcid == lcid_table[i].lcid) ||
1148 broken(lcid == lcid_table[i].broken_lcid), /* IE <6.0 */
1149 "#%02d: got LCID 0x%x (expected 0x%x)\n", i, lcid, lcid_table[i].lcid);
1150
1151 }
1152
1153 ret = Rfc1766ToLcidA(&lcid, NULL);
1154 ok(ret == E_INVALIDARG, "got 0x%08x (expected E_INVALIDARG)\n", ret);
1155
1156 ret = Rfc1766ToLcidA(NULL, "en");
1157 ok(ret == E_INVALIDARG, "got 0x%08x (expected E_INVALIDARG)\n", ret);
1158
1159 }
1160
1161 static void test_GetNumberOfCodePageInfo(IMultiLanguage2 *iML2)
1162 {
1163 HRESULT hr;
1164 UINT value;
1165
1166 value = 0xdeadbeef;
1167 hr = IMultiLanguage2_GetNumberOfCodePageInfo(iML2, &value);
1168 ok( (hr == S_OK) && value,
1169 "got 0x%x with %d (expected S_OK with '!= 0')\n", hr, value);
1170
1171 hr = IMultiLanguage2_GetNumberOfCodePageInfo(iML2, NULL);
1172 ok(hr == E_INVALIDARG, "got 0x%x (expected E_INVALIDARG)\n", hr);
1173
1174 }
1175
1176 static void test_GetRfc1766FromLcid(IMultiLanguage2 *iML2)
1177 {
1178 CHAR expected[MAX_RFC1766_NAME];
1179 CHAR buffer[MAX_RFC1766_NAME + 1];
1180 DWORD i;
1181 HRESULT hr;
1182 BSTR rfcstr;
1183
1184 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
1185 buffer[0] = '\0';
1186
1187 rfcstr = NULL;
1188 hr = IMultiLanguage2_GetRfc1766FromLcid(iML2, lcid_table[i].lcid, &rfcstr);
1189 ok(hr == lcid_table[i].hr,
1190 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, hr, lcid_table[i].hr);
1191
1192 if (hr != S_OK)
1193 continue; /* no result-string created */
1194
1195 WideCharToMultiByte(CP_ACP, 0, rfcstr, -1, buffer, sizeof(buffer), NULL, NULL);
1196 LCMapStringA(LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, lcid_table[i].rfc1766,
1197 lstrlenA(lcid_table[i].rfc1766) + 1, expected, MAX_RFC1766_NAME);
1198
1199 /* IE <6.0 return "x-kok" for LCID 0x457 ("kok") */
1200 ok( (!lstrcmpA(buffer, expected)) ||
1201 broken(!lstrcmpA(buffer, lcid_table[i].broken_rfc)),
1202 "#%02d: got '%s' (expected '%s')\n", i, buffer, expected);
1203
1204 SysFreeString(rfcstr);
1205 }
1206
1207 hr = IMultiLanguage2_GetRfc1766FromLcid(iML2, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), NULL);
1208 ok(hr == E_INVALIDARG, "got 0x%x (expected E_INVALIDARG)\n", hr);
1209 }
1210
1211 static void test_LcidToRfc1766(void)
1212 {
1213 CHAR expected[MAX_RFC1766_NAME];
1214 CHAR buffer[MAX_RFC1766_NAME * 2];
1215 HRESULT hr;
1216 DWORD i;
1217
1218 for(i = 0; i < sizeof(lcid_table) / sizeof(lcid_table[0]); i++) {
1219
1220 memset(buffer, '#', sizeof(buffer)-1);
1221 buffer[sizeof(buffer)-1] = '\0';
1222
1223 hr = LcidToRfc1766A(lcid_table[i].lcid, buffer, MAX_RFC1766_NAME);
1224
1225 /* IE <5.0 does not recognize 0x180c (fr-mc) and 0x457 (kok) */
1226 ok( (hr == lcid_table[i].hr) ||
1227 broken(lcid_table[i].broken_lcid && (hr == E_FAIL)),
1228 "#%02d: HRESULT 0x%x (expected 0x%x)\n", i, hr, lcid_table[i].hr);
1229
1230 if (hr != S_OK)
1231 continue;
1232
1233 LCMapStringA(LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, lcid_table[i].rfc1766,
1234 lstrlenA(lcid_table[i].rfc1766) + 1, expected, MAX_RFC1766_NAME);
1235
1236 /* IE <6.0 return "x-kok" for LCID 0x457 ("kok") */
1237 /* IE <5.0 return "fr" for LCID 0x180c ("fr-mc") */
1238 ok( (!lstrcmpA(buffer, expected)) ||
1239 broken(!lstrcmpA(buffer, lcid_table[i].broken_rfc)),
1240 "#%02d: got '%s' (expected '%s')\n", i, buffer, expected);
1241
1242 }
1243
1244 memset(buffer, '#', sizeof(buffer)-1);
1245 buffer[sizeof(buffer)-1] = '\0';
1246 hr = LcidToRfc1766A(-1, buffer, MAX_RFC1766_NAME);
1247 ok(hr == E_FAIL, "got 0x%08x and '%s' (expected E_FAIL)\n", hr, buffer);
1248
1249 hr = LcidToRfc1766A(LANG_ENGLISH, NULL, MAX_RFC1766_NAME);
1250 ok(hr == E_INVALIDARG, "got 0x%08x (expected E_INVALIDARG)\n", hr);
1251
1252 memset(buffer, '#', sizeof(buffer)-1);
1253 buffer[sizeof(buffer)-1] = '\0';
1254 hr = LcidToRfc1766A(LANG_ENGLISH, buffer, -1);
1255 ok(hr == E_INVALIDARG, "got 0x%08x and '%s' (expected E_INVALIDARG)\n", hr, buffer);
1256
1257 memset(buffer, '#', sizeof(buffer)-1);
1258 buffer[sizeof(buffer)-1] = '\0';
1259 hr = LcidToRfc1766A(LANG_ENGLISH, buffer, 0);
1260 ok(hr == E_INVALIDARG, "got 0x%08x and '%s' (expected E_INVALIDARG)\n", hr, buffer);
1261
1262 }
1263
1264 static void test_GetRfc1766Info(IMultiLanguage2 *iML2)
1265 {
1266 WCHAR short_broken_name[MAX_LOCALE_NAME];
1267 CHAR rfc1766A[MAX_RFC1766_NAME + 1];
1268 BYTE buffer[sizeof(RFC1766INFO) + 4];
1269 PRFC1766INFO prfc = (RFC1766INFO *) buffer;
1270 HRESULT ret;
1271 DWORD i;
1272
1273 for(i = 0; i < sizeof(info_table) / sizeof(info_table[0]); i++) {
1274 memset(buffer, 'x', sizeof(RFC1766INFO) + 2);
1275 buffer[sizeof(buffer) -1] = 0;
1276 buffer[sizeof(buffer) -2] = 0;
1277
1278 ret = IMultiLanguage2_GetRfc1766Info(iML2, info_table[i].lcid, info_table[i].lang, prfc);
1279 WideCharToMultiByte(CP_ACP, 0, prfc->wszRfc1766, -1, rfc1766A, MAX_RFC1766_NAME, NULL, NULL);
1280 ok(ret == S_OK, "#%02d: got 0x%x (expected S_OK)\n", i, ret);
1281 ok(prfc->lcid == info_table[i].lcid,
1282 "#%02d: got 0x%04x (expected 0x%04x)\n", i, prfc->lcid, info_table[i].lcid);
1283
1284 ok(!lstrcmpA(rfc1766A, info_table[i].rfc1766),
1285 "#%02d: got '%s' (expected '%s')\n", i, rfc1766A, info_table[i].rfc1766);
1286
1287 /* Some IE versions truncate an oversized name one character to short */
1288 mylstrcpyW(short_broken_name, info_table[i].broken_name);
1289 short_broken_name[MAX_LOCALE_NAME - 2] = '\0';
1290
1291 if (info_table[i].todo & TODO_NAME) {
1292 todo_wine
1293 ok( (!mylstrcmpW(prfc->wszLocaleName, info_table[i].localename)) ||
1294 broken(!mylstrcmpW(prfc->wszLocaleName, info_table[i].broken_name)) || /* IE < 6.0 */
1295 broken(!mylstrcmpW(prfc->wszLocaleName, short_broken_name)),
1296 "#%02d: got %s (expected %s)\n", i,
1297 debugstr_w(prfc->wszLocaleName), debugstr_w(info_table[i].localename));
1298 }
1299 else
1300 ok( (!mylstrcmpW(prfc->wszLocaleName, info_table[i].localename)) ||
1301 broken(!mylstrcmpW(prfc->wszLocaleName, info_table[i].broken_name)) || /* IE < 6.0 */
1302 broken(!mylstrcmpW(prfc->wszLocaleName, short_broken_name)),
1303 "#%02d: got %s (expected %s)\n", i,
1304 debugstr_w(prfc->wszLocaleName), debugstr_w(info_table[i].localename));
1305
1306 }
1307
1308 /* SUBLANG_NEUTRAL only allowed for english, arabic, chinese */
1309 ret = IMultiLanguage2_GetRfc1766Info(iML2, MAKELANGID(LANG_GERMAN, SUBLANG_NEUTRAL), LANG_ENGLISH, prfc);
1310 ok(ret == E_FAIL, "got 0x%x (expected E_FAIL)\n", ret);
1311
1312 ret = IMultiLanguage2_GetRfc1766Info(iML2, MAKELANGID(LANG_ITALIAN, SUBLANG_NEUTRAL), LANG_ENGLISH, prfc);
1313 ok(ret == E_FAIL, "got 0x%x (expected E_FAIL)\n", ret);
1314
1315 /* NULL not allowed */
1316 ret = IMultiLanguage2_GetRfc1766Info(iML2, 0, LANG_ENGLISH, prfc);
1317 ok(ret == E_FAIL, "got 0x%x (expected E_FAIL)\n", ret);
1318
1319 ret = IMultiLanguage2_GetRfc1766Info(iML2, LANG_ENGLISH, LANG_ENGLISH, NULL);
1320 ok(ret == E_INVALIDARG, "got 0x%x (expected E_INVALIDARG)\n", ret);
1321 }
1322
1323 static void test_IMultiLanguage2_ConvertStringFromUnicode(IMultiLanguage2 *iML2)
1324 {
1325 CHAR dest[MAX_PATH];
1326 CHAR invariate[MAX_PATH];
1327 UINT srcsz, destsz;
1328 HRESULT hr;
1329
1330 static WCHAR src[] = {'a','b','c',0};
1331
1332 memset(invariate, 'x', sizeof(invariate));
1333
1334 /* pSrcStr NULL */
1335 memset(dest, 'x', sizeof(dest));
1336 srcsz = lstrlenW(src) + 1;
1337 destsz = sizeof(dest);
1338 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, NULL,
1339 &srcsz, dest, &destsz);
1340 ok(hr == S_OK || hr == E_FAIL,"expected S_OK or E_FAIL, got %08x\n",hr);
1341 if (hr == S_OK)
1342 {
1343 ok(srcsz == lstrlenW(src) + 1,
1344 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1345 }
1346 else if (hr == E_FAIL)
1347 {
1348 ok(srcsz == 0,
1349 "Expected %u, got %u\n", 0, srcsz);
1350 }
1351
1352 ok(!memcmp(dest, invariate, sizeof(dest)),
1353 "Expected dest to be unchanged, got %s\n", dest);
1354 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1355
1356 /* pcSrcSize NULL */
1357 memset(dest, 'x', sizeof(dest));
1358 destsz = sizeof(dest);
1359 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1360 NULL, dest, &destsz);
1361 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1362 ok(!strncmp(dest, "abc", 3),
1363 "Expected first three chars to be \"abc\"\n");
1364 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1365 "Expected rest of dest to be unchanged, got %s\n", dest);
1366 ok(destsz == lstrlenW(src),
1367 "Expected %u, got %u\n", lstrlenW(src), destsz);
1368
1369 /* both pSrcStr and pcSrcSize NULL */
1370 memset(dest, 'x', sizeof(dest));
1371 destsz = sizeof(dest);
1372 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, NULL,
1373 NULL, dest, &destsz);
1374 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1375 ok(!memcmp(dest, invariate, sizeof(dest)),
1376 "Expected dest to be unchanged, got %s\n", dest);
1377 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1378
1379 /* pDstStr NULL */
1380 memset(dest, 'x', sizeof(dest));
1381 srcsz = lstrlenW(src) + 1;
1382 destsz = sizeof(dest);
1383 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1384 &srcsz, NULL, &destsz);
1385 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1386 ok(srcsz == lstrlenW(src) + 1,
1387 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1388 ok(destsz == lstrlenW(src) + 1,
1389 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1390
1391 /* pcDstSize NULL */
1392 memset(dest, 'x', sizeof(dest));
1393 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1394 &srcsz, dest, NULL);
1395 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1396 ok(srcsz == lstrlenW(src) + 1,
1397 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1398 ok(!memcmp(dest, invariate, sizeof(dest)),
1399 "Expected dest to be unchanged, got %s\n", dest);
1400
1401 /* pcSrcSize is 0 */
1402 memset(dest, 'x', sizeof(dest));
1403 srcsz = 0;
1404 destsz = sizeof(dest);
1405 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1406 &srcsz, dest, &destsz);
1407 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1408 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1409 ok(!memcmp(dest, invariate, sizeof(dest)),
1410 "Expected dest to be unchanged, got %s\n", dest);
1411 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1412
1413 /* pcSrcSize does not include NULL terminator */
1414 memset(dest, 'x', sizeof(dest));
1415 srcsz = lstrlenW(src);
1416 destsz = sizeof(dest);
1417 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1418 &srcsz, dest, &destsz);
1419 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1420 ok(srcsz == lstrlenW(src),
1421 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1422 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1423 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1424 "Expected rest of dest to be unchanged, got %s\n", dest);
1425 ok(destsz == lstrlenW(src),
1426 "Expected %u, got %u\n", lstrlenW(src), destsz);
1427
1428 /* pcSrcSize includes NULL terminator */
1429 memset(dest, 'x', sizeof(dest));
1430 srcsz = lstrlenW(src) + 1;
1431 destsz = sizeof(dest);
1432 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1433 &srcsz, dest, &destsz);
1434 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1435 ok(srcsz == lstrlenW(src) + 1, "Expected 3, got %u\n", srcsz);
1436 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1437 ok(destsz == lstrlenW(src) + 1,
1438 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1439
1440 /* pcSrcSize is -1 */
1441 memset(dest, 'x', sizeof(dest));
1442 srcsz = -1;
1443 destsz = sizeof(dest);
1444 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1445 &srcsz, dest, &destsz);
1446 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1447 ok(srcsz == lstrlenW(src),
1448 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1449 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1450 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1451 "Expected rest of dest to be unchanged, got %s\n", dest);
1452 ok(destsz == lstrlenW(src),
1453 "Expected %u, got %u\n", lstrlenW(src), destsz);
1454
1455 /* pcDstSize is 0 */
1456 memset(dest, 'x', sizeof(dest));
1457 srcsz = lstrlenW(src) + 1;
1458 destsz = 0;
1459 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1460 &srcsz, dest, &destsz);
1461 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1462 ok(srcsz == lstrlenW(src) + 1,
1463 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1464 ok(!memcmp(dest, invariate, sizeof(dest)),
1465 "Expected dest to be unchanged, got %s\n", dest);
1466 ok(destsz == lstrlenW(src) + 1,
1467 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1468
1469 /* pcDstSize is not large enough */
1470 memset(dest, 'x', sizeof(dest));
1471 srcsz = lstrlenW(src) + 1;
1472 destsz = lstrlenW(src);
1473 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1474 &srcsz, dest, &destsz);
1475 ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
1476 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1477 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1478 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1479 "Expected rest of dest to be unchanged, got %s\n", dest);
1480 ok(destsz == 0, "Expected 0, got %u\n", srcsz);
1481
1482 /* pcDstSize (bytes) does not leave room for NULL terminator */
1483 memset(dest, 'x', sizeof(dest));
1484 srcsz = lstrlenW(src) + 1;
1485 destsz = lstrlenW(src) * sizeof(WCHAR);
1486 hr = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, src,
1487 &srcsz, dest, &destsz);
1488 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1489 ok(srcsz == lstrlenW(src) + 1,
1490 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1491 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1492 ok(destsz == lstrlenW(src) + 1,
1493 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1494 }
1495
1496 static void test_ConvertINetUnicodeToMultiByte(void)
1497 {
1498 CHAR dest[MAX_PATH];
1499 CHAR invariate[MAX_PATH];
1500 INT srcsz, destsz;
1501 HRESULT hr;
1502
1503 static WCHAR src[] = {'a','b','c',0};
1504
1505 memset(invariate, 'x', sizeof(invariate));
1506
1507 /* lpSrcStr NULL */
1508 memset(dest, 'x', sizeof(dest));
1509 srcsz = lstrlenW(src) + 1;
1510 destsz = sizeof(dest);
1511 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, NULL, &srcsz, dest, &destsz);
1512 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1513 if (hr == S_OK)
1514 ok(srcsz == lstrlenW(src) + 1,
1515 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1516 else if (hr == E_FAIL)
1517 ok(srcsz == 0,
1518 "Expected %u, got %u\n", 0, srcsz);
1519 ok(!memcmp(dest, invariate, sizeof(dest)),
1520 "Expected dest to be unchanged, got %s\n", dest);
1521 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1522
1523 /* lpnWideCharCount NULL */
1524 memset(dest, 'x', sizeof(dest));
1525 destsz = sizeof(dest);
1526 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, NULL, dest, &destsz);
1527 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1528 ok(!strncmp(dest, "abc", 3),
1529 "Expected first three chars to be \"abc\"\n");
1530 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1531 "Expected rest of dest to be unchanged, got %s\n", dest);
1532 ok(destsz == lstrlenW(src),
1533 "Expected %u, got %u\n", lstrlenW(src), destsz);
1534
1535 /* both lpSrcStr and lpnWideCharCount NULL */
1536 memset(dest, 'x', sizeof(dest));
1537 destsz = sizeof(dest);
1538 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, NULL, NULL, dest, &destsz);
1539 ok(hr == S_OK || hr == E_FAIL, "Expected S_OK or E_FAIL, got %08x\n", hr);
1540 ok(!memcmp(dest, invariate, sizeof(dest)),
1541 "Expected dest to be unchanged, got %s\n", dest);
1542 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1543
1544 /* lpDstStr NULL */
1545 memset(dest, 'x', sizeof(dest));
1546 srcsz = lstrlenW(src) + 1;
1547 destsz = sizeof(dest);
1548 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, NULL, &destsz);
1549 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1550 ok(srcsz == lstrlenW(src) + 1,
1551 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1552 ok(destsz == lstrlenW(src) + 1,
1553 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1554
1555 /* lpnMultiCharCount NULL */
1556 memset(dest, 'x', sizeof(dest));
1557 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, NULL);
1558 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1559 ok(srcsz == lstrlenW(src) + 1,
1560 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1561 ok(!memcmp(dest, invariate, sizeof(dest)),
1562 "Expected dest to be unchanged, got %s\n", dest);
1563
1564 /* lpnWideCharCount is 0 */
1565 memset(dest, 'x', sizeof(dest));
1566 srcsz = 0;
1567 destsz = sizeof(dest);
1568 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1569 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1570 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1571 ok(!memcmp(dest, invariate, sizeof(dest)),
1572 "Expected dest to be unchanged, got %s\n", dest);
1573 ok(destsz == 0, "Expected 0, got %u\n", destsz);
1574
1575 /* lpnWideCharCount does not include NULL terminator */
1576 memset(dest, 'x', sizeof(dest));
1577 srcsz = lstrlenW(src);
1578 destsz = sizeof(dest);
1579 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1580 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1581 ok(srcsz == lstrlenW(src),
1582 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1583 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1584 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1585 "Expected rest of dest to be unchanged, got %s\n", dest);
1586 ok(destsz == lstrlenW(src),
1587 "Expected %u, got %u\n", lstrlenW(src), destsz);
1588
1589 /* lpnWideCharCount includes NULL terminator */
1590 memset(dest, 'x', sizeof(dest));
1591 srcsz = lstrlenW(src) + 1;
1592 destsz = sizeof(dest);
1593 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1594 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1595 ok(srcsz == lstrlenW(src) + 1, "Expected 3, got %u\n", srcsz);
1596 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1597 ok(destsz == lstrlenW(src) + 1,
1598 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1599
1600 /* lpnWideCharCount is -1 */
1601 memset(dest, 'x', sizeof(dest));
1602 srcsz = -1;
1603 destsz = sizeof(dest);
1604 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1605 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1606 ok(srcsz == lstrlenW(src),
1607 "Expected %u, got %u\n", lstrlenW(src), srcsz);
1608 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1609 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1610 "Expected rest of dest to be unchanged, got %s\n", dest);
1611 ok(destsz == lstrlenW(src),
1612 "Expected %u, got %u\n", lstrlenW(src), destsz);
1613
1614 /* lpnMultiCharCount is 0 */
1615 memset(dest, 'x', sizeof(dest));
1616 srcsz = lstrlenW(src) + 1;
1617 destsz = 0;
1618 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1619 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1620 ok(srcsz == lstrlenW(src) + 1,
1621 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1622 ok(!memcmp(dest, invariate, sizeof(dest)),
1623 "Expected dest to be unchanged, got %s\n", dest);
1624 ok(destsz == lstrlenW(src) + 1,
1625 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1626
1627 /* lpnMultiCharCount is not large enough */
1628 memset(dest, 'x', sizeof(dest));
1629 srcsz = lstrlenW(src) + 1;
1630 destsz = lstrlenW(src);
1631 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1632 ok(hr == E_FAIL, "Expected E_FAIL, got %08x\n", hr);
1633 ok(srcsz == 0, "Expected 0, got %u\n", srcsz);
1634 ok(!strncmp(dest, "abc", 3), "Expected first three chars to be \"abc\"\n");
1635 ok(!memcmp(&dest[3], invariate, sizeof(dest) - 3),
1636 "Expected rest of dest to be unchanged, got %s\n", dest);
1637 ok(destsz == 0, "Expected 0, got %u\n", srcsz);
1638
1639 /* lpnMultiCharCount (bytes) does not leave room for NULL terminator */
1640 memset(dest, 'x', sizeof(dest));
1641 srcsz = lstrlenW(src) + 1;
1642 destsz = lstrlenW(src) * sizeof(WCHAR);
1643 hr = pConvertINetUnicodeToMultiByte(NULL, 1252, src, &srcsz, dest, &destsz);
1644 ok(hr == S_OK, "Expected S_OK, got %08x\n", hr);
1645 ok(srcsz == lstrlenW(src) + 1,
1646 "Expected %u, got %u\n", lstrlenW(src) + 1, srcsz);
1647 ok(!lstrcmpA(dest, "abc"), "Expected \"abc\", got \"%s\"\n", dest);
1648 ok(destsz == lstrlenW(src) + 1,
1649 "Expected %u, got %u\n", lstrlenW(src) + 1, destsz);
1650 }
1651
1652 static void test_JapaneseConversion(void)
1653 {
1654 /* Data */
1655 static WCHAR unc_jp[9][12] = {
1656 {9,0x31,0x20,0x3042,0x3044,0x3046,0x3048,0x304a,0x000d,0x000a},
1657 {9,0x31,0x20,0x30a2,0x30a4,0x30a6,0x30a8,0x30aa,0x000d,0x000a},
1658 {9,0x31,0x20,0xff71,0xff72,0xff73,0xff74,0xff75,0x000d,0x000a},
1659 {9,0x31,0x20,0x3041,0x3043,0x3045,0x3047,0x3049,0x000d,0x000a},
1660 {9,0x31,0x20,0x30a1,0x30a3,0x30a5,0x30a7,0x30a9,0x000d,0x000a},
1661 {9,0x31,0x20,0xff67,0xff68,0xff69,0xff6a,0xff6b,0x000d,0x000a},
1662 {9,0x31,0x20,0x300c,0x65e5,0x672c,0x8a9e,0x300d,0x000d,0x000a},
1663 {7,0x31,0x20,0x25c7,0x25c7,0x3012,0x000d,0x000a},
1664 {11,0x31,0x20,0x203b,0x3010,0x0074,0x0065,0x0073,0x0074,0x3011,0x000d,0x000a}
1665 };
1666 static CHAR jis_jp[9][27] = {
1667 {20,0x31,0x20,0x1b,0x24,0x42,0x24,0x22,0x24,0x24,0x24,0x26,0x24,0x28,
1668 0x24,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1669 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x22,0x25,0x24,0x25,0x26,0x25,0x28,
1670 0x25,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1671 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x22,0x25,0x24,0x25,0x26,0x25,0x28,
1672 0x25,0x2a,0x1b,0x28,0x42,0x0d,0x0a},
1673 {20,0x31,0x20,0x1b,0x24,0x42,0x24,0x21,0x24,0x23,0x24,0x25,0x24,0x27,
1674 0x24,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1675 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x21,0x25,0x23,0x25,0x25,0x25,0x27,
1676 0x25,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1677 {20,0x31,0x20,0x1b,0x24,0x42,0x25,0x21,0x25,0x23,0x25,0x25,0x25,0x27,
1678 0x25,0x29,0x1b,0x28,0x42,0x0d,0x0a},
1679 {20,0x31,0x20,0x1b,0x24,0x42,0x21,0x56,0x46,0x7c,0x4b,0x5c,0x38,0x6c,
1680 0x21,0x57,0x1b,0x28,0x42,0x0d,0x0a},
1681 {16,0x31,0x20,0x1b,0x24,0x42,0x21,0x7e,0x21,0x7e,0x22,0x29,0x1b,0x28,
1682 0x42,0x0d,0x0a},
1683 {26,0x31,0x20,0x1b,0x24,0x42,0x22,0x28,0x21,0x5a,0x1b,0x28,0x42,0x74,
1684 0x65,0x73,0x74,0x1b,0x24,0x42,0x21,0x5b,0x1b,0x28,0x42,0x0d,0x0a}
1685 };
1686 static CHAR sjis_jp[9][15] = {
1687 {14,0x31,0x20,0x82,0xa0,0x82,0xa2,0x82,0xa4,0x82,0xa6,0x82,0xa8,0x0d,0x0a},
1688 {14,0x31,0x20,0x83,0x41,0x83,0x43,0x83,0x45,0x83,0x47,0x83,0x49,0x0d,0x0a},
1689 {9,0x31,0x20,0xb1,0xb2,0xb3,0xb4,0xb5,0x0d,0x0a},
1690 {14,0x31,0x20,0x82,0x9f,0x82,0xa1,0x82,0xa3,0x82,0xa5,0x82,0xa7,0x0d,0x0a},
1691 {14,0x31,0x20,0x83,0x40,0x83,0x42,0x83,0x44,0x83,0x46,0x83,0x48,0x0d,0x0a},
1692 {9,0x31,0x20,0xa7,0xa8,0xa9,0xaa,0xab,0x0d,0x0a},
1693 {14,0x31,0x20,0x81,0x75,0x93,0xfa,0x96,0x7b,0x8c,0xea,0x81,0x76,0x0d,0x0a},
1694 {10,0x31,0x20,0x81,0x9e,0x81,0x9e,0x81,0xa7,0x0d,0x0a},
1695 {14,0x31,0x20,0x81,0xa6,0x81,0x79,0x74,0x65,0x73,0x74,0x81,0x7a,0x0d,0x0a}
1696 };
1697 static CHAR euc_jp[9][15] = {
1698 {14,0x31,0x20,0xa4,0xa2,0xa4,0xa4,0xa4,0xa6,0xa4,0xa8,0xa4,0xaa,0x0d,0x0a},
1699 {14,0x31,0x20,0xa5,0xa2,0xa5,0xa4,0xa5,0xa6,0xa5,0xa8,0xa5,0xaa,0x0d,0x0a},
1700 {14,0x31,0x20,0x8e,0xb1,0x8e,0xb2,0x8e,0xb3,0x8e,0xb4,0x8e,0xb5,0x0d,0x0a},
1701 {14,0x31,0x20,0xa4,0xa1,0xa4,0xa3,0xa4,0xa5,0xa4,0xa7,0xa4,0xa9,0x0d,0x0a},
1702 {14,0x31,0x20,0xa5,0xa1,0xa5,0xa3,0xa5,0xa5,0xa5,0xa7,0xa5,0xa9,0x0d,0x0a},
1703 {14,0x31,0x20,0x8e,0xa7,0x8e,0xa8,0x8e,0xa9,0x8e,0xaa,0x8e,0xab,0x0d,0x0a},
1704 {14,0x31,0x20,0xa1,0xd6,0xc6,0xfc,0xcb,0xdc,0xb8,0xec,0xa1,0xd7,0x0d,0x0a},
1705 {10,0x31,0x20,0xa1,0xfe,0xa1,0xfe,0xa2,0xa9,0x0d,0x0a},
1706 {14,0x31,0x20,0xa2,0xa8,0xa1,0xda,0x74,0x65,0x73,0x74,0xa1,0xdb,0x0d,0x0a}
1707 };
1708
1709 INT srcsz, destsz;
1710 INT i;
1711 HRESULT hr;
1712 CHAR output[30];
1713 WCHAR outputW[30];
1714 int outlen;
1715
1716 /* test unc->jis */
1717 for (i = 0; i < 9; i++)
1718 {
1719 int j;
1720 destsz = 30;
1721 outlen = jis_jp[i][0];
1722 srcsz = unc_jp[i][0];
1723 hr = pConvertINetUnicodeToMultiByte(NULL, 50220, &unc_jp[i][1], &srcsz, output, &destsz);
1724 if (hr == S_FALSE)
1725 {
1726 skip("Code page identifier 50220 is not supported\n");
1727 break;
1728 }
1729 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n", i, hr);
1730 ok(destsz == outlen, "(%i) Expected %i, got %i\n",i,outlen,destsz);
1731 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],srcsz);
1732 ok(memcmp(output,&jis_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1733
1734 /* and back */
1735 srcsz = outlen;
1736 destsz = 30;
1737 hr = pConvertINetMultiByteToUnicode(NULL, 50220, output, &srcsz, outputW,&destsz);
1738
1739 /*
1740 * JIS does not have hankata so it get automatically converted to
1741 * zenkata. this means that strings 1 and 2 are identical as well as
1742 * strings 4 and 5.
1743 */
1744 j = i;
1745 if (i == 2) j = 1;
1746 if (i == 5) j = 4;
1747
1748 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i, hr);
1749 ok(destsz == unc_jp[j][0],"(%i) Expected %i, got %i\n",i,unc_jp[j][0],destsz);
1750 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1751 ok(memcmp(outputW,&unc_jp[j][1],destsz)==0,"(%i) Strings do not match\n",i);
1752 }
1753
1754 /* test unc->sjis */
1755 for (i = 0; i < 9; i++)
1756 {
1757 destsz = 30;
1758 outlen = sjis_jp[i][0];
1759 srcsz = unc_jp[i][0];
1760
1761 hr = pConvertINetUnicodeToMultiByte(NULL, 932, &unc_jp[i][1], &srcsz, output, &destsz);
1762 if (hr == S_FALSE)
1763 {
1764 skip("Code page identifier 932 is not supported\n");
1765 break;
1766 }
1767 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1768 ok(destsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,destsz);
1769 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],srcsz);
1770 ok(memcmp(output,&sjis_jp[i][1],outlen)==0,"(%i) Strings do not match\n",i);
1771
1772 srcsz = outlen;
1773 destsz = 30;
1774 hr = pConvertINetMultiByteToUnicode(NULL, 932, output, &srcsz, outputW,&destsz);
1775
1776 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n", i, hr);
1777 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1778 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1779 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1780 }
1781
1782 /* test unc->euc */
1783 for (i = 0; i < 9; i++)
1784 {
1785 destsz = 30;
1786 outlen = euc_jp[i][0];
1787 srcsz = unc_jp[i][0];
1788
1789 hr = pConvertINetUnicodeToMultiByte(NULL, 51932, &unc_jp[i][1], &srcsz, output, &destsz);
1790 if (hr == S_FALSE)
1791 {
1792 skip("Code page identifier 51932 is not supported\n");
1793 break;
1794 }
1795 ok(hr == S_OK, "(%i) Expected S_OK, got %08x\n",i,hr);
1796 ok(destsz == outlen, "(%i) Expected %i, got %i\n",i,outlen,destsz);
1797 ok(srcsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1798 ok(memcmp(output,&euc_jp[i][1],outlen)==0,"(%i) Strings do not match\n",i);
1799
1800 srcsz = outlen;
1801 destsz = 30;
1802 hr = pConvertINetMultiByteToUnicode(NULL, 51932, output, &srcsz, outputW,&destsz);
1803
1804 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1805 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1806 ok(srcsz == outlen,"(%i) Expected %i, got %i\n",i,outlen,srcsz);
1807 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1808 }
1809
1810 /* Japanese autodetect */
1811 i = 0;
1812 destsz = 30;
1813 srcsz = jis_jp[i][0];
1814 hr = pConvertINetMultiByteToUnicode(NULL, 50932, &jis_jp[i][1], &srcsz, outputW, &destsz);
1815 if (hr == S_FALSE)
1816 {
1817 skip("Code page identifier 50932 is not supported\n");
1818 return;
1819 }
1820 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1821 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1822 ok(srcsz == jis_jp[i][0],"(%i) Expected %i, got %i\n",i,jis_jp[i][0],srcsz);
1823 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1824
1825 i = 1;
1826 destsz = 30;
1827 srcsz = sjis_jp[i][0];
1828 hr = pConvertINetMultiByteToUnicode(NULL, 50932, &sjis_jp[i][1], &srcsz, outputW, &destsz);
1829 ok(hr == S_OK,"(%i) Expected S_OK, got %08x\n",i,hr);
1830 ok(destsz == unc_jp[i][0],"(%i) Expected %i, got %i\n",i,unc_jp[i][0],destsz);
1831 ok(srcsz == sjis_jp[i][0],"(%i) Expected %i, got %i\n",i,sjis_jp[i][0],srcsz);
1832 ok(memcmp(outputW,&unc_jp[i][1],destsz)==0,"(%i) Strings do not match\n",i);
1833 }
1834
1835 static void test_GetScriptFontInfo(IMLangFontLink2 *font_link)
1836 {
1837 HRESULT hr;
1838 UINT nfonts;
1839 SCRIPTFONTINFO sfi[1];
1840
1841 nfonts = 0;
1842 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, 0, &nfonts, NULL);
1843 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1844 ok(nfonts, "unexpected result\n");
1845
1846 nfonts = 0;
1847 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_FIXED_FONT, &nfonts, NULL);
1848 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1849 ok(nfonts, "unexpected result\n");
1850
1851 nfonts = 0;
1852 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_PROPORTIONAL_FONT, &nfonts, NULL);
1853 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1854 ok(nfonts, "unexpected result\n");
1855
1856 nfonts = 1;
1857 memset(sfi, 0, sizeof(sfi));
1858 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_FIXED_FONT, &nfonts, sfi);
1859 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1860 ok(nfonts == 1, "got %u, expected 1\n", nfonts);
1861 ok(sfi[0].scripts != 0, "unexpected result\n");
1862 ok(sfi[0].wszFont[0], "unexpected result\n");
1863
1864 nfonts = 1;
1865 memset(sfi, 0, sizeof(sfi));
1866 hr = IMLangFontLink2_GetScriptFontInfo(font_link, sidLatin, SCRIPTCONTF_PROPORTIONAL_FONT, &nfonts, sfi);
1867 ok(hr == S_OK, "GetScriptFontInfo failed %u\n", GetLastError());
1868 ok(nfonts == 1, "got %u, expected 1\n", nfonts);
1869 ok(sfi[0].scripts != 0, "unexpected result\n");
1870 ok(sfi[0].wszFont[0], "unexpected result\n");
1871 }
1872
1873 START_TEST(mlang)
1874 {
1875 IMultiLanguage *iML = NULL;
1876 IMultiLanguage2 *iML2 = NULL;
1877 IMLangFontLink *iMLFL = NULL;
1878 IMLangFontLink2 *iMLFL2 = NULL;
1879 HRESULT ret;
1880
1881 if (!init_function_ptrs())
1882 return;
1883
1884 CoInitialize(NULL);
1885 test_Rfc1766ToLcid();
1886 test_LcidToRfc1766();
1887
1888 test_ConvertINetUnicodeToMultiByte();
1889 test_JapaneseConversion();
1890
1891
1892 trace("IMultiLanguage\n");
1893 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1894 &IID_IMultiLanguage, (void **)&iML);
1895 if (ret != S_OK || !iML) return;
1896
1897 test_GetNumberOfCodePageInfo((IMultiLanguage2 *)iML);
1898 IMultiLanguage_Release(iML);
1899
1900
1901 /* IMultiLanguage2 (IE5.0 and above) */
1902 trace("IMultiLanguage2\n");
1903 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1904 &IID_IMultiLanguage2, (void **)&iML2);
1905 if (ret != S_OK || !iML2) return;
1906
1907 test_rfc1766(iML2);
1908 test_GetLcidFromRfc1766(iML2);
1909 test_GetRfc1766FromLcid(iML2);
1910 test_GetRfc1766Info(iML2);
1911 test_GetNumberOfCodePageInfo(iML2);
1912
1913 test_EnumCodePages(iML2, 0);
1914 test_EnumCodePages(iML2, MIMECONTF_MIME_LATEST);
1915 test_EnumCodePages(iML2, MIMECONTF_BROWSER);
1916 test_EnumCodePages(iML2, MIMECONTF_MINIMAL);
1917 test_EnumCodePages(iML2, MIMECONTF_VALID);
1918 /* FIXME: why MIMECONTF_MIME_REGISTRY returns 0 of supported codepages? */
1919 /*test_EnumCodePages(iML2, MIMECONTF_MIME_REGISTRY);*/
1920
1921 test_EnumScripts(iML2, 0);
1922 test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER);
1923 test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM);
1924
1925 ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, CP_UNICODE);
1926 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UTF8 -> CP_UNICODE) = %08x\n", ret);
1927 ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, CP_UTF8);
1928 ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> CP_UTF8) = %08x\n", ret);
1929
1930 test_multibyte_to_unicode_translations(iML2);
1931 test_IMultiLanguage2_ConvertStringFromUnicode(iML2);
1932
1933 IMultiLanguage2_Release(iML2);
1934
1935
1936 /* IMLangFontLink */
1937 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1938 &IID_IMLangFontLink, (void **)&iMLFL);
1939 if (ret != S_OK || !iMLFL) return;
1940
1941 IMLangFontLink_Test(iMLFL);
1942 IMLangFontLink_Release(iMLFL);
1943
1944 /* IMLangFontLink2 */
1945 ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
1946 &IID_IMLangFontLink2, (void **)&iMLFL2);
1947 if (ret != S_OK || !iMLFL2) return;
1948
1949 test_GetScriptFontInfo(iMLFL2);
1950 IMLangFontLink2_Release(iMLFL2);
1951
1952 CoUninitialize();
1953 }
useful hacks and other patches not (yet) suitable for mainline