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  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #define COBJMACROS
  22
  23 #include <stdarg.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winerror.h"
  28 #include "mlang.h"
  29
  30 #include "wine/test.h"
  31
  32 #ifndef CP_UNICODE
  33 #define CP_UNICODE 1200
  34 #endif
  35
  36 #if 0
  37 #define DUMP_CP_INFO
  38 #define DUMP_SCRIPT_INFO
  39
  40 #if defined DUMP_CP_INFO || defined DUMP_SCRIPT_INFO
  41 #include "wine/debug.h"
  42 #endif
  43 #endif /* 0 */
  44
  45 #define TRACE_2 OutputDebugStringA
  46
  47 static BOOL (WINAPI *pGetCPInfoExA)(UINT,DWORD,LPCPINFOEXA);
  48
  49 static void test_multibyte_to_unicode_translations(IMultiLanguage2 *iML2)
  50 {
  51     /* these APIs are broken regarding constness of the input buffer */
  52     char stringA[] = "Just a test string\0"; /* double 0 for CP_UNICODE tests */
  53     WCHAR stringW[] = {'J','u','s','t',' ','a',' ','t','e','s','t',' ','s','t','r','i','n','g',0};
  54     char bufA[256];
  55     WCHAR bufW[256];
  56     UINT lenA, lenW, expected_len;
  57     HRESULT ret;
  58     HMODULE hMlang;
  59     FARPROC pConvertINetMultiByteToUnicode;
  60     FARPROC pConvertINetUnicodeToMultiByte;
  61
  62     hMlang = LoadLibraryA("mlang.dll");
  63     ok(hMlang != 0, "couldn't load mlang.dll\n");
  64
  65     pConvertINetMultiByteToUnicode = GetProcAddress(hMlang, "ConvertINetMultiByteToUnicode");
  66     ok(pConvertINetMultiByteToUnicode != NULL, "couldn't resolve ConvertINetMultiByteToUnicode\n");
  67     pConvertINetUnicodeToMultiByte = GetProcAddress(hMlang, "ConvertINetUnicodeToMultiByte");
  68     ok(pConvertINetUnicodeToMultiByte != NULL, "couldn't resolve ConvertINetUnicodeToMultiByte\n");
  69
  70     /* IMultiLanguage2_ConvertStringToUnicode tests */
  71
  72     memset(bufW, 'x', sizeof(bufW));
  73     lenA = 0;
  74     lenW = sizeof(bufW)/sizeof(bufW[0]);
  75     TRACE_2("Call IMultiLanguage2_ConvertStringToUnicode\n");
  76     ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
  77     ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
  78     ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
  79     ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
  80
  81     memset(bufW, 'x', sizeof(bufW));
  82     lenA = -1;
  83     lenW = sizeof(bufW)/sizeof(bufW[0]);
  84     TRACE_2("Call IMultiLanguage2_ConvertStringToUnicode\n");
  85     ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
  86     ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
  87     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
  88     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
  89     ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
  90     bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
  91     ok(!lstrcmpW(bufW, stringW), "bufW/stringW mismatch\n");
  92
  93     memset(bufW, 'x', sizeof(bufW));
  94     lenA = -1;
  95     lenW = 5;
  96     TRACE_2("Call IMultiLanguage2_ConvertStringToUnicode\n");
  97     ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, bufW, &lenW);
  98     ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringToUnicode should fail: %08x\n", ret);
  99     ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
 100     /* still has to do partial conversion */
 101     ok(!memcmp(bufW, stringW, 5 * sizeof(WCHAR)), "bufW/stringW mismatch\n");
 102
 103     memset(bufW, 'x', sizeof(bufW));
 104     lenA = -1;
 105     lenW = sizeof(bufW)/sizeof(bufW[0]);
 106     TRACE_2("Call IMultiLanguage2_ConvertStringToUnicode\n");
 107     ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, CP_UNICODE, stringA, &lenA, bufW, &lenW);
 108     ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
 109     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
 110     ok(lenW == lstrlenW(stringW)/(int)sizeof(WCHAR), "wrong lenW %u\n", lenW);
 111     ok(bufW[lenW] != 0, "buf should not be 0 terminated\n");
 112     bufW[lenW] = 0; /* -1 doesn't include 0 terminator */
 113     ok(!lstrcmpA((LPCSTR)bufW, stringA), "bufW/stringA mismatch\n");
 114
 115     memset(bufW, 'x', sizeof(bufW));
 116     lenA = lstrlenA(stringA);
 117     lenW = 0;
 118     ret = IMultiLanguage2_ConvertStringToUnicode(iML2, NULL, 1252, stringA, &lenA, NULL, &lenW);
 119     ok(ret == S_OK, "IMultiLanguage2_ConvertStringToUnicode failed: %08x\n", ret);
 120     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
 121     expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
 122     ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
 123
 124     memset(bufW, 'x', sizeof(bufW));
 125     lenA = lstrlenA(stringA);
 126     lenW = sizeof(bufW)/sizeof(bufW[0]);
 127     ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, &lenA, NULL, &lenW);
 128     ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
 129     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
 130     expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
 131     ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
 132
 133     memset(bufW, 'x', sizeof(bufW));
 134     lenA = lstrlenA(stringA);
 135     lenW = 0;
 136     ret = pConvertINetMultiByteToUnicode(NULL, 1252, stringA, &lenA, NULL, &lenW);
 137     ok(ret == S_OK, "ConvertINetMultiByteToUnicode failed: %08x\n", ret);
 138     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
 139     expected_len = MultiByteToWideChar(1252, 0, stringA, lenA, NULL, 0);
 140     ok(lenW == expected_len, "expected lenW %u, got %u\n", expected_len, lenW);
 141
 142     /* IMultiLanguage2_ConvertStringFromUnicode tests */
 143
 144     memset(bufA, 'x', sizeof(bufA));
 145     lenW = 0;
 146     lenA = sizeof(bufA);
 147     TRACE_2("Call IMultiLanguage2_ConvertStringFromUnicode\n");
 148     ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
 149     ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
 150     ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
 151     ok(lenW == 0, "expected lenW 0, got %u\n", lenW);
 152
 153     memset(bufA, 'x', sizeof(bufA));
 154     lenW = -1;
 155     lenA = sizeof(bufA);
 156     TRACE_2("Call IMultiLanguage2_ConvertStringFromUnicode\n");
 157     ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
 158     ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
 159     ok(lenA == lstrlenA(stringA), "expected lenA %u, got %u\n", lstrlenA(stringA), lenA);
 160     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
 161     ok(bufA[lenA] != 0, "buf should not be 0 terminated\n");
 162     bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
 163     ok(!lstrcmpA(bufA, stringA), "bufA/stringA mismatch\n");
 164
 165     memset(bufA, 'x', sizeof(bufA));
 166     lenW = -1;
 167     lenA = 5;
 168     TRACE_2("Call IMultiLanguage2_ConvertStringFromUnicode\n");
 169     ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, bufA, &lenA);
 170     ok(ret == E_FAIL, "IMultiLanguage2_ConvertStringFromUnicode should fail: %08x\n", ret);
 171     ok(lenA == 0, "expected lenA 0, got %u\n", lenA);
 172     /* still has to do partial conversion */
 173     ok(!memcmp(bufA, stringA, 5), "bufW/stringW mismatch\n");
 174
 175     memset(bufA, 'x', sizeof(bufA));
 176     lenW = -1;
 177     lenA = sizeof(bufA);
 178     TRACE_2("Call IMultiLanguage2_ConvertStringFromUnicode\n");
 179     ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, CP_UNICODE, stringW, &lenW, bufA, &lenA);
 180     ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
 181     ok(lenA == lstrlenA(stringA) * (int)sizeof(WCHAR), "wrong lenA %u\n", lenA);
 182     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
 183     ok(bufA[lenA] != 0 && bufA[lenA+1] != 0, "buf should not be 0 terminated\n");
 184     bufA[lenA] = 0; /* -1 doesn't include 0 terminator */
 185     bufA[lenA+1] = 0; /* sizeof(WCHAR) */
 186     ok(!lstrcmpW((LPCWSTR)bufA, stringW), "bufA/stringW mismatch\n");
 187
 188     memset(bufA, 'x', sizeof(bufA));
 189     lenW = lstrlenW(stringW);
 190     lenA = 0;
 191     ret = IMultiLanguage2_ConvertStringFromUnicode(iML2, NULL, 1252, stringW, &lenW, NULL, &lenA);
 192     ok(ret == S_OK, "IMultiLanguage2_ConvertStringFromUnicode failed: %08x\n", ret);
 193     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
 194     expected_len = WideCharToMultiByte(1252, 0, stringW, lenW, NULL, 0, NULL, NULL);
 195     ok(lenA == expected_len, "expected lenA %u, got %u\n", expected_len, lenA);
 196
 197     memset(bufA, 'x', sizeof(bufA));
 198     lenW = lstrlenW(stringW);
 199     lenA = sizeof(bufA);
 200     ret = pConvertINetUnicodeToMultiByte(NULL, 1252, stringW, &lenW, NULL, &lenA);
 201     ok(ret == S_OK, "ConvertINetUnicodeToMultiByte failed: %08x\n", ret);
 202     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
 203     expected_len = WideCharToMultiByte(1252, 0, stringW, lenW, NULL, 0, NULL, NULL);
 204     ok(lenA == expected_len, "expected lenA %u, got %u\n", expected_len, lenA);
 205
 206     memset(bufA, 'x', sizeof(bufA));
 207     lenW = lstrlenW(stringW);
 208     lenA = 0;
 209     ret = pConvertINetUnicodeToMultiByte(NULL, 1252, stringW, &lenW, NULL, &lenA);
 210     ok(ret == S_OK, "ConvertINetUnicodeToMultiByte failed: %08x\n", ret);
 211     ok(lenW == lstrlenW(stringW), "expected lenW %u, got %u\n", lstrlenW(stringW), lenW);
 212     expected_len = WideCharToMultiByte(1252, 0, stringW, lenW, NULL, 0, NULL, NULL);
 213     ok(lenA == expected_len, "expected lenA %u, got %u\n", expected_len, lenA);
 214 }
 215
 216 inline static void cpinfo_cmp(MIMECPINFO *cpinfo1, MIMECPINFO *cpinfo2)
 217 {
 218     ok(cpinfo1->dwFlags == cpinfo2->dwFlags, "dwFlags mismatch: %08x != %08x\n", cpinfo1->dwFlags, cpinfo2->dwFlags);
 219     ok(cpinfo1->uiCodePage == cpinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", cpinfo1->uiCodePage, cpinfo2->uiCodePage);
 220     ok(cpinfo1->uiFamilyCodePage == cpinfo2->uiFamilyCodePage, "uiFamilyCodePage mismatch: %u != %u\n", cpinfo1->uiFamilyCodePage, cpinfo2->uiFamilyCodePage);
 221     ok(!lstrcmpW(cpinfo1->wszDescription, cpinfo2->wszDescription), "wszDescription mismatch\n");
 222     ok(!lstrcmpW(cpinfo1->wszWebCharset, cpinfo2->wszWebCharset), "wszWebCharset mismatch\n");
 223     ok(!lstrcmpW(cpinfo1->wszHeaderCharset, cpinfo2->wszHeaderCharset), "wszHeaderCharset mismatch\n");
 224     ok(!lstrcmpW(cpinfo1->wszBodyCharset, cpinfo2->wszBodyCharset), "wszBodyCharset mismatch\n");
 225     ok(!lstrcmpW(cpinfo1->wszFixedWidthFont, cpinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
 226     ok(!lstrcmpW(cpinfo1->wszProportionalFont, cpinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
 227     ok(cpinfo1->bGDICharset == cpinfo2->bGDICharset, "bGDICharset mismatch: %d != %d\n", cpinfo1->bGDICharset, cpinfo2->bGDICharset);
 228 }
 229
 230 #ifdef DUMP_CP_INFO
 231 static const char *dump_mime_flags(DWORD flags)
 232 {
 233     static char buf[1024];
 234
 235     buf[0] = 0;
 236
 237     if (flags & MIMECONTF_MAILNEWS) strcat(buf, " MIMECONTF_MAILNEWS");
 238     if (flags & MIMECONTF_BROWSER) strcat(buf, " MIMECONTF_BROWSER");
 239     if (flags & MIMECONTF_MINIMAL) strcat(buf, " MIMECONTF_MINIMAL");
 240     if (flags & MIMECONTF_IMPORT) strcat(buf, " MIMECONTF_IMPORT");
 241     if (flags & MIMECONTF_SAVABLE_MAILNEWS) strcat(buf, " MIMECONTF_SAVABLE_MAILNEWS");
 242     if (flags & MIMECONTF_SAVABLE_BROWSER) strcat(buf, " MIMECONTF_SAVABLE_BROWSER");
 243     if (flags & MIMECONTF_EXPORT) strcat(buf, " MIMECONTF_EXPORT");
 244     if (flags & MIMECONTF_PRIVCONVERTER) strcat(buf, " MIMECONTF_PRIVCONVERTER");
 245     if (flags & MIMECONTF_VALID) strcat(buf, " MIMECONTF_VALID");
 246     if (flags & MIMECONTF_VALID_NLS) strcat(buf, " MIMECONTF_VALID_NLS");
 247     if (flags & MIMECONTF_MIME_IE4) strcat(buf, " MIMECONTF_MIME_IE4");
 248     if (flags & MIMECONTF_MIME_LATEST) strcat(buf, " MIMECONTF_MIME_LATEST");
 249     if (flags & MIMECONTF_MIME_REGISTRY) strcat(buf, " MIMECONTF_MIME_REGISTRY");
 250
 251     return buf;
 252 }
 253 #endif
 254
 255 static void test_EnumCodePages(IMultiLanguage2 *iML2, DWORD flags)
 256 {
 257     IEnumCodePage *iEnumCP = NULL;
 258     MIMECPINFO *cpinfo;
 259     MIMECPINFO cpinfo2;
 260     HRESULT ret;
 261     ULONG i, n;
 262     UINT total;
 263
 264     total = 0;
 265     TRACE_2("Call IMultiLanguage2_GetNumberOfCodePageInfo\n");
 266     ret = IMultiLanguage2_GetNumberOfCodePageInfo(iML2, &total);
 267     ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfCodePageInfo: expected S_OK/!0, got %08x/%u\n", ret, total);
 268
 269     trace("total mlang supported codepages %u\n", total);
 270
 271     TRACE_2("Call IMultiLanguage2_EnumCodePages\n");
 272     ret = IMultiLanguage2_EnumCodePages(iML2, flags, LANG_NEUTRAL, &iEnumCP);
 273     trace("IMultiLanguage2_EnumCodePages = %08x, iEnumCP = %p\n", ret, iEnumCP);
 274     ok(ret == S_OK && iEnumCP, "IMultiLanguage2_EnumCodePages: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumCP);
 275
 276     TRACE_2("Call IEnumCodePage_Reset\n");
 277     ret = IEnumCodePage_Reset(iEnumCP);
 278     ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
 279     n = 65536;
 280     TRACE_2("Call IEnumCodePage_Next\n");
 281     ret = IEnumCodePage_Next(iEnumCP, 0, NULL, &n);
 282     ok(n == 0 && ret == S_FALSE, "IEnumCodePage_Next: expected 0/S_FALSE, got %u/%08x\n", n, ret);
 283     TRACE_2("Call IEnumCodePage_Next\n");
 284     ret = IEnumCodePage_Next(iEnumCP, 0, NULL, NULL);
 285     ok(ret == S_FALSE, "IEnumCodePage_Next: expected S_FALSE, got %08x\n", ret);
 286
 287     cpinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*cpinfo) * total * 2);
 288
 289     n = total * 2;
 290     TRACE_2("Call IEnumCodePage_Next\n");
 291     ret = IEnumCodePage_Next(iEnumCP, 0, cpinfo, &n);
 292     trace("IEnumCodePage_Next = %08x, n = %u\n", ret, n);
 293     ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 294
 295     n = total * 2;
 296     TRACE_2("Call IEnumCodePage_Next\n");
 297     ret = IEnumCodePage_Next(iEnumCP, n, cpinfo, &n);
 298     ok(ret == S_OK && n != 0, "IEnumCodePage_Next: expected S_OK/!0, got %08x/%u\n", ret, n);
 299
 300     trace("flags %08x, enumerated codepages %u\n", flags, n);
 301
 302     if (!flags)
 303     {
 304         ok(n == total, "IEnumCodePage_Next: expected %u, got %u\n", total, n);
 305
 306         flags = MIMECONTF_MIME_LATEST;
 307     }
 308
 309     total = n;
 310
 311     for (i = 0; i < n; i++)
 312     {
 313         CPINFOEXA cpinfoex;
 314         CHARSETINFO csi;
 315         MIMECSETINFO mcsi;
 316         static const WCHAR autoW[] = {'_','a','u','t','o',0};
 317
 318 #ifdef DUMP_CP_INFO
 319         trace("MIMECPINFO #%u:\n"
 320               "dwFlags %08x %s\n"
 321               "uiCodePage %u\n"
 322               "uiFamilyCodePage %u\n"
 323               "wszDescription %s\n"
 324               "wszWebCharset %s\n"
 325               "wszHeaderCharset %s\n"
 326               "wszBodyCharset %s\n"
 327               "wszFixedWidthFont %s\n"
 328               "wszProportionalFont %s\n"
 329               "bGDICharset %d\n\n",
 330               i,
 331               cpinfo[i].dwFlags, dump_mime_flags(cpinfo[i].dwFlags),
 332               cpinfo[i].uiCodePage,
 333               cpinfo[i].uiFamilyCodePage,
 334               wine_dbgstr_w(cpinfo[i].wszDescription),
 335               wine_dbgstr_w(cpinfo[i].wszWebCharset),
 336               wine_dbgstr_w(cpinfo[i].wszHeaderCharset),
 337               wine_dbgstr_w(cpinfo[i].wszBodyCharset),
 338               wine_dbgstr_w(cpinfo[i].wszFixedWidthFont),
 339               wine_dbgstr_w(cpinfo[i].wszProportionalFont),
 340               cpinfo[i].bGDICharset);
 341 #endif
 342         ok(cpinfo[i].dwFlags & flags, "enumerated flags %08x do not include requested %08x\n", cpinfo[i].dwFlags, flags);
 343
 344         if (TranslateCharsetInfo((DWORD *)cpinfo[i].uiFamilyCodePage, &csi, TCI_SRCCODEPAGE))
 345             ok(cpinfo[i].bGDICharset == csi.ciCharset, "%d != %d\n", cpinfo[i].bGDICharset, csi.ciCharset);
 346         else
 347             trace("TranslateCharsetInfo failed for cp %u\n", cpinfo[i].uiFamilyCodePage);
 348
 349         if (pGetCPInfoExA)
 350         {
 351             if (pGetCPInfoExA(cpinfo[i].uiCodePage, 0, &cpinfoex))
 352                 trace("CodePage %u name: %s\n", cpinfo[i].uiCodePage, cpinfoex.CodePageName);
 353             else
 354                 trace("GetCPInfoExA failed for cp %u\n", cpinfo[i].uiCodePage);
 355             if (pGetCPInfoExA(cpinfo[i].uiFamilyCodePage, 0, &cpinfoex))
 356                 trace("CodePage %u name: %s\n", cpinfo[i].uiFamilyCodePage, cpinfoex.CodePageName);
 357             else
 358                 trace("GetCPInfoExA failed for cp %u\n", cpinfo[i].uiFamilyCodePage);
 359         }
 360
 361         /* Win95 does not support UTF-7 */
 362         if (cpinfo[i].uiCodePage == CP_UTF7) continue;
 363
 364         /* support files for some codepages might be not installed, or
 365          * the codepage is just an alias.
 366          */
 367         if (IsValidCodePage(cpinfo[i].uiCodePage))
 368         {
 369             TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 370             ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UNICODE);
 371             ok(ret == S_OK, "IMultiLanguage2_IsConvertible(%u -> CP_UNICODE) = %08x\n", cpinfo[i].uiCodePage, ret);
 372             TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 373             ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, cpinfo[i].uiCodePage);
 374             ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
 375
 376             TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 377             ret = IMultiLanguage2_IsConvertible(iML2, cpinfo[i].uiCodePage, CP_UTF8);
 378             ok(ret == S_OK, "IMultiLanguage2_IsConvertible(%u -> CP_UTF8) = %08x\n", cpinfo[i].uiCodePage, ret);
 379             TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 380             ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, cpinfo[i].uiCodePage);
 381             ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UTF8 -> %u) = %08x\n", cpinfo[i].uiCodePage, ret);
 382         }
 383         else
 384             trace("IsValidCodePage failed for cp %u\n", cpinfo[i].uiCodePage);
 385
 386         ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszWebCharset, &mcsi);
 387         /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
 388         if (memcmp(cpinfo[i].wszWebCharset, autoW, 5 * sizeof(WCHAR)))
 389         {
 390             ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
 391 #ifdef DUMP_CP_INFO
 392             trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszWebCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
 393 #endif
 394             ok(!lstrcmpiW(cpinfo[i].wszWebCharset, mcsi.wszCharset),
 395 #ifdef DUMP_CP_INFO
 396                 "%s != %s\n",
 397                 wine_dbgstr_w(cpinfo[i].wszWebCharset), wine_dbgstr_w(mcsi.wszCharset));
 398 #else
 399                 "wszWebCharset mismatch");
 400 #endif
 401
 402         if (0)
 403         {
 404             /* native mlang returns completely messed up encodings in some cases */
 405             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 406                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 407             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 408                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 409         }
 410         }
 411
 412         ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszHeaderCharset, &mcsi);
 413         /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
 414         if (memcmp(cpinfo[i].wszHeaderCharset, autoW, 5 * sizeof(WCHAR)))
 415         {
 416             ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
 417 #ifdef DUMP_CP_INFO
 418             trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszHeaderCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
 419 #endif
 420             ok(!lstrcmpiW(cpinfo[i].wszHeaderCharset, mcsi.wszCharset),
 421 #ifdef DUMP_CP_INFO
 422                 "%s != %s\n",
 423                 wine_dbgstr_w(cpinfo[i].wszHeaderCharset), wine_dbgstr_w(mcsi.wszCharset));
 424 #else
 425                 "wszHeaderCharset mismatch");
 426 #endif
 427
 428         if (0)
 429         {
 430             /* native mlang returns completely messed up encodings in some cases */
 431             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 432                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 433             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 434                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 435         }
 436         }
 437
 438         ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszBodyCharset, &mcsi);
 439         /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
 440         if (memcmp(cpinfo[i].wszBodyCharset, autoW, 5 * sizeof(WCHAR)))
 441         {
 442             ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
 443 #ifdef DUMP_CP_INFO
 444             trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszBodyCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
 445 #endif
 446             ok(!lstrcmpiW(cpinfo[i].wszBodyCharset, mcsi.wszCharset),
 447 #ifdef DUMP_CP_INFO
 448                 "%s != %s\n",
 449                 wine_dbgstr_w(cpinfo[i].wszBodyCharset), wine_dbgstr_w(mcsi.wszCharset));
 450 #else
 451                 "wszBodyCharset mismatch");
 452 #endif
 453
 454         if (0)
 455         {
 456             /* native mlang returns completely messed up encodings in some cases */
 457             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 458                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 459             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 460                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 461         }
 462         }
 463
 464         trace("---\n");
 465     }
 466
 467     /* now IEnumCodePage_Next should fail, since pointer is at the end */
 468     n = 1;
 469     ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 470     ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 471
 472     ret = IEnumCodePage_Reset(iEnumCP);
 473     ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
 474     n = 0;
 475     ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 476     ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 477     cpinfo_cmp(&cpinfo[0], &cpinfo2);
 478
 479     if (0)
 480     {
 481     /* Due to a bug in MS' implementation of IEnumCodePage_Skip
 482      * it's not used here.
 483      */
 484     ret = IEnumCodePage_Skip(iEnumCP, 1);
 485     ok(ret == S_OK, "IEnumCodePage_Skip: expected S_OK, got %08x\n", ret);
 486     }
 487     for (i = 0; i < total - 1; i++)
 488     {
 489         n = 0;
 490         ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 491         ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 492         cpinfo_cmp(&cpinfo[i + 1], &cpinfo2);
 493     }
 494
 495     HeapFree(GetProcessHeap(), 0, cpinfo);
 496     IEnumCodePage_Release(iEnumCP);
 497 }
 498
 499 inline static void scriptinfo_cmp(SCRIPTINFO *sinfo1, SCRIPTINFO *sinfo2)
 500 {
 501     ok(sinfo1->ScriptId == sinfo2->ScriptId, "ScriptId mismatch: %d != %d\n", sinfo1->ScriptId, sinfo2->ScriptId);
 502     ok(sinfo1->uiCodePage == sinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", sinfo1->uiCodePage, sinfo2->uiCodePage);
 503     ok(!lstrcmpW(sinfo1->wszDescription, sinfo2->wszDescription), "wszDescription mismatch\n");
 504     ok(!lstrcmpW(sinfo1->wszFixedWidthFont, sinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
 505     ok(!lstrcmpW(sinfo1->wszProportionalFont, sinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
 506 }
 507
 508 static void test_EnumScripts(IMultiLanguage2 *iML2, DWORD flags)
 509 {
 510     IEnumScript *iEnumScript = NULL;
 511     SCRIPTINFO *sinfo;
 512     SCRIPTINFO sinfo2;
 513     HRESULT ret;
 514     ULONG i, n;
 515     UINT total;
 516
 517     total = 0;
 518     TRACE_2("Call IMultiLanguage2_GetNumberOfScripts\n");
 519     ret = IMultiLanguage2_GetNumberOfScripts(iML2, &total);
 520     ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfScripts: expected S_OK/!0, got %08x/%u\n", ret, total);
 521
 522     trace("total mlang supported scripts %u\n", total);
 523
 524     TRACE_2("Call IMultiLanguage2_EnumScripts\n");
 525     ret = IMultiLanguage2_EnumScripts(iML2, flags, LANG_NEUTRAL, &iEnumScript);
 526     trace("IMultiLanguage2_EnumScripts = %08x, iEnumScript = %p\n", ret, iEnumScript);
 527     ok(ret == S_OK && iEnumScript, "IMultiLanguage2_EnumScripts: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumScript);
 528
 529     TRACE_2("Call IEnumScript_Reset\n");
 530     ret = IEnumScript_Reset(iEnumScript);
 531     ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
 532     n = 65536;
 533     TRACE_2("Call IEnumScript_Next\n");
 534     ret = IEnumScript_Next(iEnumScript, 0, NULL, &n);
 535     ok(n == 65536 && ret == E_FAIL, "IEnumScript_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
 536     TRACE_2("Call IEnumScript_Next\n");
 537     ret = IEnumScript_Next(iEnumScript, 0, NULL, NULL);
 538     ok(ret == E_FAIL, "IEnumScript_Next: expected E_FAIL, got %08x\n", ret);
 539
 540     sinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*sinfo) * total * 2);
 541
 542     n = total * 2;
 543     TRACE_2("Call IEnumScript_Next\n");
 544     ret = IEnumScript_Next(iEnumScript, 0, sinfo, &n);
 545     ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 546
 547     n = total * 2;
 548     TRACE_2("Call IEnumScript_Next\n");
 549     ret = IEnumScript_Next(iEnumScript, n, sinfo, &n);
 550     ok(ret == S_OK && n != 0, "IEnumScript_Next: expected S_OK, got %08x/%u\n", ret, n);
 551
 552     trace("flags %08x, enumerated scripts %u\n", flags, n);
 553
 554     if (!flags)
 555     {
 556         ok(n == total, "IEnumScript_Next: expected %u, got %u\n", total, n);
 557         flags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
 558     }
 559
 560     total = n;
 561
 562     for (i = 0; pGetCPInfoExA && i < n; i++)
 563     {
 564         CPINFOEXA cpinfoex;
 565 #ifdef DUMP_SCRIPT_INFO
 566         trace("SCRIPTINFO #%u:\n"
 567               "ScriptId %08x\n"
 568               "uiCodePage %u\n"
 569               "wszDescription %s\n"
 570               "wszFixedWidthFont %s\n"
 571               "wszProportionalFont %s\n\n",
 572               i,
 573               sinfo[i].ScriptId,
 574               sinfo[i].uiCodePage,
 575               wine_dbgstr_w(sinfo[i].wszDescription),
 576               wine_dbgstr_w(sinfo[i].wszFixedWidthFont),
 577               wine_dbgstr_w(sinfo[i].wszProportionalFont));
 578 #endif
 579         if (pGetCPInfoExA(sinfo[i].uiCodePage, 0, &cpinfoex))
 580             trace("CodePage %u name: %s\n", sinfo[i].uiCodePage, cpinfoex.CodePageName);
 581         else
 582             trace("GetCPInfoExA failed for cp %u\n", sinfo[i].uiCodePage);
 583
 584         trace("---\n");
 585     }
 586
 587     /* now IEnumScript_Next should fail, since pointer is at the end */
 588     n = 1;
 589     ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 590     ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 591
 592     ret = IEnumScript_Reset(iEnumScript);
 593     ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
 594     n = 0;
 595     ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 596     ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 597     scriptinfo_cmp(&sinfo[0], &sinfo2);
 598
 599     if (0)
 600     {
 601     /* Due to a bug in MS' implementation of IEnumScript_Skip
 602      * it's not used here.
 603      */
 604     ret = IEnumScript_Skip(iEnumScript, 1);
 605     ok(ret == S_OK, "IEnumScript_Skip: expected S_OK, got %08x\n", ret);
 606     }
 607     for (i = 0; i < total - 1; i++)
 608     {
 609         n = 0;
 610         ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 611         ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 612         scriptinfo_cmp(&sinfo[i + 1], &sinfo2);
 613     }
 614
 615     HeapFree(GetProcessHeap(), 0, sinfo);
 616     IEnumScript_Release(iEnumScript);
 617 }
 618
 619 static void IMLangFontLink_Test(IMLangFontLink* iMLFL)
 620 {
 621     DWORD   dwCodePages = 0;
 622     DWORD   dwManyCodePages = 0;
 623     UINT    CodePage = 0;
 624
 625     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 932, &dwCodePages)==S_OK,
 626             "IMLangFontLink_CodePageToCodePages failed\n");
 627     ok (dwCodePages != 0, "No CodePages returned\n");
 628     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwCodePages, 1035,
 629                 &CodePage)==S_OK,
 630             "IMLangFontLink_CodePagesToCodePage failed\n");
 631     ok(CodePage == 932, "Incorrect CodePage Returned (%i)\n",CodePage);
 632
 633     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 1252, &dwCodePages)==S_OK,
 634             "IMLangFontLink_CodePageToCodePages failed\n");
 635     dwManyCodePages = dwManyCodePages | dwCodePages;
 636     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 1256, &dwCodePages)==S_OK,
 637             "IMLangFontLink_CodePageToCodePages failed\n");
 638     dwManyCodePages = dwManyCodePages | dwCodePages;
 639     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 874, &dwCodePages)==S_OK,
 640             "IMLangFontLink_CodePageToCodePages failed\n");
 641     dwManyCodePages = dwManyCodePages | dwCodePages;
 642
 643     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 1256,
 644                 &CodePage)==S_OK,
 645             "IMLangFontLink_CodePagesToCodePage failed\n");
 646     ok(CodePage == 1256, "Incorrect CodePage Returned (%i)\n",CodePage);
 647
 648     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 936,
 649                 &CodePage)==S_OK,
 650             "IMLangFontLink_CodePagesToCodePage failed\n");
 651     ok(CodePage == 1252, "Incorrect CodePage Returned (%i)\n",CodePage);
 652 }
 653
 654 static void test_rfc1766(IMultiLanguage2 *iML2)
 655 {
 656     IEnumRfc1766 *pEnumRfc1766;
 657     RFC1766INFO info;
 658     ULONG n;
 659     HRESULT ret;
 660
 661     ret = IMultiLanguage2_EnumRfc1766(iML2, LANG_NEUTRAL, &pEnumRfc1766);
 662     ok(ret == S_OK, "IMultiLanguage2_EnumRfc1766 error %08x\n", ret);
 663
 664     while (1)
 665     {
 666         ret = IEnumRfc1766_Next(pEnumRfc1766, 1, &info, &n);
 667         if (ret != S_OK) break;
 668
 669 #ifdef DUMP_CP_INFO
 670         trace("lcid %04x rfc_name %s locale_name %s\n",
 671               info.lcid, wine_dbgstr_w(info.wszRfc1766), wine_dbgstr_w(info.wszLocaleName));
 672 #endif
 673
 674         ok(n == 1, "couldn't fetch 1 RFC1766INFO structure\n");
 675         ok(IsValidLocale(info.lcid, LCID_SUPPORTED), "invalid lcid %04x\n", info.lcid);
 676     }
 677 }
 678
 679 START_TEST(mlang)
 680 {
 681     IMultiLanguage2 *iML2 = NULL;
 682     IMLangFontLink  *iMLFL = NULL;
 683     HRESULT ret;
 684
 685     pGetCPInfoExA = (void *)GetProcAddress(GetModuleHandleA("kernel32.dll"), "GetCPInfoExA");
 686
 687     CoInitialize(NULL);
 688     TRACE_2("Call CoCreateInstance\n");
 689     ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
 690                            &IID_IMultiLanguage2, (void **)&iML2);
 691
 692     trace("ret = %08x, MultiLanguage2 iML2 = %p\n", ret, iML2);
 693     if (ret != S_OK || !iML2) return;
 694
 695     test_rfc1766(iML2);
 696
 697     test_EnumCodePages(iML2, 0);
 698     test_EnumCodePages(iML2, MIMECONTF_MIME_LATEST);
 699     test_EnumCodePages(iML2, MIMECONTF_BROWSER);
 700     test_EnumCodePages(iML2, MIMECONTF_MINIMAL);
 701     test_EnumCodePages(iML2, MIMECONTF_VALID);
 702     /* FIXME: why MIMECONTF_MIME_REGISTRY returns 0 of supported codepages? */
 703     /*test_EnumCodePages(iML2, MIMECONTF_MIME_REGISTRY);*/
 704
 705     test_EnumScripts(iML2, 0);
 706     test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER);
 707     test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM);
 708
 709     TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 710     ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, CP_UNICODE);
 711     ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UTF8 -> CP_UNICODE) = %08x\n", ret);
 712     TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 713     ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, CP_UTF8);
 714     ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> CP_UTF8) = %08x\n", ret);
 715
 716     test_multibyte_to_unicode_translations(iML2);
 717
 718     IMultiLanguage2_Release(iML2);
 719
 720     ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
 721                            &IID_IMLangFontLink, (void **)&iMLFL);
 722
 723     trace("ret = %08x, IMLangFontLink iMLFL = %p\n", ret, iMLFL);
 724     if (ret != S_OK || !iML2) return;
 725
 726     IMLangFontLink_Test(iMLFL);
 727     IMLangFontLink_Release(iMLFL);
 728
 729     CoUninitialize();
 730 }