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

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