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 /* native mlang returns completely messed up encodings in some cases */
 403             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 404                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 405             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 406                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 407 #endif
 408         }
 409
 410         ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszHeaderCharset, &mcsi);
 411         /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
 412         if (memcmp(cpinfo[i].wszHeaderCharset, autoW, 5 * sizeof(WCHAR)))
 413         {
 414             ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
 415 #ifdef DUMP_CP_INFO
 416             trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszHeaderCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
 417 #endif
 418             ok(!lstrcmpiW(cpinfo[i].wszHeaderCharset, mcsi.wszCharset),
 419 #ifdef DUMP_CP_INFO
 420                 "%s != %s\n",
 421                 wine_dbgstr_w(cpinfo[i].wszHeaderCharset), wine_dbgstr_w(mcsi.wszCharset));
 422 #else
 423                 "wszHeaderCharset mismatch");
 424 #endif
 425
 426 #if 0 /* native mlang returns completely messed up encodings in some cases */
 427             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 428                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 429             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 430                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 431 #endif
 432         }
 433
 434         ret = IMultiLanguage2_GetCharsetInfo(iML2, cpinfo[i].wszBodyCharset, &mcsi);
 435         /* _autoxxx charsets are a fake and GetCharsetInfo fails for them */
 436         if (memcmp(cpinfo[i].wszBodyCharset, autoW, 5 * sizeof(WCHAR)))
 437         {
 438             ok (ret == S_OK, "IMultiLanguage2_GetCharsetInfo failed: %08x\n", ret);
 439 #ifdef DUMP_CP_INFO
 440             trace("%s: %u %u %s\n", wine_dbgstr_w(cpinfo[i].wszBodyCharset), mcsi.uiCodePage, mcsi.uiInternetEncoding, wine_dbgstr_w(mcsi.wszCharset));
 441 #endif
 442             ok(!lstrcmpiW(cpinfo[i].wszBodyCharset, mcsi.wszCharset),
 443 #ifdef DUMP_CP_INFO
 444                 "%s != %s\n",
 445                 wine_dbgstr_w(cpinfo[i].wszBodyCharset), wine_dbgstr_w(mcsi.wszCharset));
 446 #else
 447                 "wszBodyCharset mismatch");
 448 #endif
 449
 450 #if 0 /* native mlang returns completely messed up encodings in some cases */
 451             ok(mcsi.uiInternetEncoding == cpinfo[i].uiCodePage || mcsi.uiInternetEncoding == cpinfo[i].uiFamilyCodePage,
 452                 "%u != %u || %u\n", mcsi.uiInternetEncoding, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 453             ok(mcsi.uiCodePage == cpinfo[i].uiCodePage || mcsi.uiCodePage == cpinfo[i].uiFamilyCodePage,
 454                 "%u != %u || %u\n", mcsi.uiCodePage, cpinfo[i].uiCodePage, cpinfo[i].uiFamilyCodePage);
 455 #endif
 456         }
 457
 458         trace("---\n");
 459     }
 460
 461     /* now IEnumCodePage_Next should fail, since pointer is at the end */
 462     n = 1;
 463     ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 464     ok(ret == S_FALSE && n == 0, "IEnumCodePage_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 465
 466     ret = IEnumCodePage_Reset(iEnumCP);
 467     ok(ret == S_OK, "IEnumCodePage_Reset: expected S_OK, got %08x\n", ret);
 468     n = 0;
 469     ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 470     ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 471     cpinfo_cmp(&cpinfo[0], &cpinfo2);
 472
 473 #if 0
 474     /* Due to a bug in MS' implementation of IEnumCodePage_Skip
 475      * it's not used here.
 476      */
 477     ret = IEnumCodePage_Skip(iEnumCP, 1);
 478     ok(ret == S_OK, "IEnumCodePage_Skip: expected S_OK, got %08x\n", ret);
 479 #endif
 480     for (i = 0; i < total - 1; i++)
 481     {
 482         n = 0;
 483         ret = IEnumCodePage_Next(iEnumCP, 1, &cpinfo2, &n);
 484         ok(n == 1 && ret == S_OK, "IEnumCodePage_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 485         cpinfo_cmp(&cpinfo[i + 1], &cpinfo2);
 486     }
 487
 488     HeapFree(GetProcessHeap(), 0, cpinfo);
 489     IEnumCodePage_Release(iEnumCP);
 490 }
 491
 492 inline static void scriptinfo_cmp(SCRIPTINFO *sinfo1, SCRIPTINFO *sinfo2)
 493 {
 494     ok(sinfo1->ScriptId == sinfo2->ScriptId, "ScriptId mismatch: %d != %d\n", sinfo1->ScriptId, sinfo2->ScriptId);
 495     ok(sinfo1->uiCodePage == sinfo2->uiCodePage, "uiCodePage mismatch: %u != %u\n", sinfo1->uiCodePage, sinfo2->uiCodePage);
 496     ok(!lstrcmpW(sinfo1->wszDescription, sinfo2->wszDescription), "wszDescription mismatch\n");
 497     ok(!lstrcmpW(sinfo1->wszFixedWidthFont, sinfo2->wszFixedWidthFont), "wszFixedWidthFont mismatch\n");
 498     ok(!lstrcmpW(sinfo1->wszProportionalFont, sinfo2->wszProportionalFont), "wszProportionalFont mismatch\n");
 499 }
 500
 501 static void test_EnumScripts(IMultiLanguage2 *iML2, DWORD flags)
 502 {
 503     IEnumScript *iEnumScript = NULL;
 504     SCRIPTINFO *sinfo;
 505     SCRIPTINFO sinfo2;
 506     HRESULT ret;
 507     ULONG i, n;
 508     UINT total;
 509
 510     total = 0;
 511     TRACE_2("Call IMultiLanguage2_GetNumberOfScripts\n");
 512     ret = IMultiLanguage2_GetNumberOfScripts(iML2, &total);
 513     ok(ret == S_OK && total != 0, "IMultiLanguage2_GetNumberOfScripts: expected S_OK/!0, got %08x/%u\n", ret, total);
 514
 515     trace("total mlang supported scripts %u\n", total);
 516
 517     TRACE_2("Call IMultiLanguage2_EnumScripts\n");
 518     ret = IMultiLanguage2_EnumScripts(iML2, flags, LANG_NEUTRAL, &iEnumScript);
 519     trace("IMultiLanguage2_EnumScripts = %08x, iEnumScript = %p\n", ret, iEnumScript);
 520     ok(ret == S_OK && iEnumScript, "IMultiLanguage2_EnumScripts: expected S_OK/!NULL, got %08x/%p\n", ret, iEnumScript);
 521
 522     TRACE_2("Call IEnumScript_Reset\n");
 523     ret = IEnumScript_Reset(iEnumScript);
 524     ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
 525     n = 65536;
 526     TRACE_2("Call IEnumScript_Next\n");
 527     ret = IEnumScript_Next(iEnumScript, 0, NULL, &n);
 528     ok(n == 65536 && ret == E_FAIL, "IEnumScript_Next: expected 65536/E_FAIL, got %u/%08x\n", n, ret);
 529     TRACE_2("Call IEnumScript_Next\n");
 530     ret = IEnumScript_Next(iEnumScript, 0, NULL, NULL);
 531     ok(ret == E_FAIL, "IEnumScript_Next: expected E_FAIL, got %08x\n", ret);
 532
 533     sinfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*sinfo) * total * 2);
 534
 535     n = total * 2;
 536     TRACE_2("Call IEnumScript_Next\n");
 537     ret = IEnumScript_Next(iEnumScript, 0, sinfo, &n);
 538     ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 539
 540     n = total * 2;
 541     TRACE_2("Call IEnumScript_Next\n");
 542     ret = IEnumScript_Next(iEnumScript, n, sinfo, &n);
 543     ok(ret == S_OK && n != 0, "IEnumScript_Next: expected S_OK, got %08x/%u\n", ret, n);
 544
 545     trace("flags %08x, enumerated scripts %u\n", flags, n);
 546
 547     if (!flags)
 548     {
 549         ok(n == total, "IEnumScript_Next: expected %u, got %u\n", total, n);
 550         flags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
 551     }
 552
 553     total = n;
 554
 555     for (i = 0; pGetCPInfoExA && i < n; i++)
 556     {
 557         CPINFOEXA cpinfoex;
 558 #ifdef DUMP_SCRIPT_INFO
 559         trace("SCRIPTINFO #%u:\n"
 560               "ScriptId %08x\n"
 561               "uiCodePage %u\n"
 562               "wszDescription %s\n"
 563               "wszFixedWidthFont %s\n"
 564               "wszProportionalFont %s\n\n",
 565               i,
 566               sinfo[i].ScriptId,
 567               sinfo[i].uiCodePage,
 568               wine_dbgstr_w(sinfo[i].wszDescription),
 569               wine_dbgstr_w(sinfo[i].wszFixedWidthFont),
 570               wine_dbgstr_w(sinfo[i].wszProportionalFont));
 571 #endif
 572         if (pGetCPInfoExA(sinfo[i].uiCodePage, 0, &cpinfoex))
 573             trace("CodePage %u name: %s\n", sinfo[i].uiCodePage, cpinfoex.CodePageName);
 574         else
 575             trace("GetCPInfoExA failed for cp %u\n", sinfo[i].uiCodePage);
 576
 577         trace("---\n");
 578     }
 579
 580     /* now IEnumScript_Next should fail, since pointer is at the end */
 581     n = 1;
 582     ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 583     ok(ret == S_FALSE && n == 0, "IEnumScript_Next: expected S_FALSE/0, got %08x/%u\n", ret, n);
 584
 585     ret = IEnumScript_Reset(iEnumScript);
 586     ok(ret == S_OK, "IEnumScript_Reset: expected S_OK, got %08x\n", ret);
 587     n = 0;
 588     ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 589     ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 590     scriptinfo_cmp(&sinfo[0], &sinfo2);
 591
 592 #if 0
 593     /* Due to a bug in MS' implementation of IEnumScript_Skip
 594      * it's not used here.
 595      */
 596     ret = IEnumScript_Skip(iEnumScript, 1);
 597     ok(ret == S_OK, "IEnumScript_Skip: expected S_OK, got %08x\n", ret);
 598 #endif
 599     for (i = 0; i < total - 1; i++)
 600     {
 601         n = 0;
 602         ret = IEnumScript_Next(iEnumScript, 1, &sinfo2, &n);
 603         ok(n == 1 && ret == S_OK, "IEnumScript_Next: expected 1/S_OK, got %u/%08x\n", n, ret);
 604         scriptinfo_cmp(&sinfo[i + 1], &sinfo2);
 605     }
 606
 607     HeapFree(GetProcessHeap(), 0, sinfo);
 608     IEnumScript_Release(iEnumScript);
 609 }
 610
 611 static void IMLangFontLink_Test(IMLangFontLink* iMLFL)
 612 {
 613     DWORD   dwCodePages = 0;
 614     DWORD   dwManyCodePages = 0;
 615     UINT    CodePage = 0;
 616
 617     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 932, &dwCodePages)==S_OK,
 618             "IMLangFontLink_CodePageToCodePages failed\n");
 619     ok (dwCodePages != 0, "No CodePages returned\n");
 620     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwCodePages, 1035,
 621                 &CodePage)==S_OK,
 622             "IMLangFontLink_CodePagesToCodePage failed\n");
 623     ok(CodePage == 932, "Incorrect CodePage Returned (%i)\n",CodePage);
 624
 625     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 1252, &dwCodePages)==S_OK,
 626             "IMLangFontLink_CodePageToCodePages failed\n");
 627     dwManyCodePages = dwManyCodePages | dwCodePages;
 628     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 1256, &dwCodePages)==S_OK,
 629             "IMLangFontLink_CodePageToCodePages failed\n");
 630     dwManyCodePages = dwManyCodePages | dwCodePages;
 631     ok(IMLangFontLink_CodePageToCodePages(iMLFL, 874, &dwCodePages)==S_OK,
 632             "IMLangFontLink_CodePageToCodePages failed\n");
 633     dwManyCodePages = dwManyCodePages | dwCodePages;
 634
 635     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 1256,
 636                 &CodePage)==S_OK,
 637             "IMLangFontLink_CodePagesToCodePage failed\n");
 638     ok(CodePage == 1256, "Incorrect CodePage Returned (%i)\n",CodePage);
 639
 640     ok(IMLangFontLink_CodePagesToCodePage(iMLFL, dwManyCodePages, 936,
 641                 &CodePage)==S_OK,
 642             "IMLangFontLink_CodePagesToCodePage failed\n");
 643     ok(CodePage == 1252, "Incorrect CodePage Returned (%i)\n",CodePage);
 644 }
 645
 646 static void test_rfc1766(IMultiLanguage2 *iML2)
 647 {
 648     IEnumRfc1766 *pEnumRfc1766;
 649     RFC1766INFO info;
 650     ULONG n;
 651     HRESULT ret;
 652
 653     ret = IMultiLanguage2_EnumRfc1766(iML2, LANG_NEUTRAL, &pEnumRfc1766);
 654     ok(ret == S_OK, "IMultiLanguage2_EnumRfc1766 error %08x\n", ret);
 655
 656     while (1)
 657     {
 658         ret = IEnumRfc1766_Next(pEnumRfc1766, 1, &info, &n);
 659         if (ret != S_OK) break;
 660
 661 #ifdef DUMP_CP_INFO
 662         trace("lcid %04x rfc_name %s locale_name %s\n",
 663               info.lcid, wine_dbgstr_w(info.wszRfc1766), wine_dbgstr_w(info.wszLocaleName));
 664 #endif
 665
 666         ok(n == 1, "couldn't fetch 1 RFC1766INFO structure\n");
 667         ok(IsValidLocale(info.lcid, LCID_SUPPORTED), "invalid lcid %04x\n", info.lcid);
 668     }
 669 }
 670
 671 START_TEST(mlang)
 672 {
 673     IMultiLanguage2 *iML2 = NULL;
 674     IMLangFontLink  *iMLFL = NULL;
 675     HRESULT ret;
 676
 677     pGetCPInfoExA = (void *)GetProcAddress(GetModuleHandleA("kernel32.dll"), "GetCPInfoExA");
 678
 679     CoInitialize(NULL);
 680     TRACE_2("Call CoCreateInstance\n");
 681     ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
 682                            &IID_IMultiLanguage2, (void **)&iML2);
 683
 684     trace("ret = %08x, MultiLanguage2 iML2 = %p\n", ret, iML2);
 685     if (ret != S_OK || !iML2) return;
 686
 687     test_rfc1766(iML2);
 688
 689     test_EnumCodePages(iML2, 0);
 690     test_EnumCodePages(iML2, MIMECONTF_MIME_LATEST);
 691     test_EnumCodePages(iML2, MIMECONTF_BROWSER);
 692     test_EnumCodePages(iML2, MIMECONTF_MINIMAL);
 693     test_EnumCodePages(iML2, MIMECONTF_VALID);
 694     /* FIXME: why MIMECONTF_MIME_REGISTRY returns 0 of supported codepages? */
 695     /*test_EnumCodePages(iML2, MIMECONTF_MIME_REGISTRY);*/
 696
 697     test_EnumScripts(iML2, 0);
 698     test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER);
 699     test_EnumScripts(iML2, SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM);
 700
 701     TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 702     ret = IMultiLanguage2_IsConvertible(iML2, CP_UTF8, CP_UNICODE);
 703     ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UTF8 -> CP_UNICODE) = %08x\n", ret);
 704     TRACE_2("Call IMultiLanguage2_IsConvertible\n");
 705     ret = IMultiLanguage2_IsConvertible(iML2, CP_UNICODE, CP_UTF8);
 706     ok(ret == S_OK, "IMultiLanguage2_IsConvertible(CP_UNICODE -> CP_UTF8) = %08x\n", ret);
 707
 708     test_multibyte_to_unicode_translations(iML2);
 709
 710     IMultiLanguage2_Release(iML2);
 711
 712     ret = CoCreateInstance(&CLSID_CMultiLanguage, NULL, CLSCTX_INPROC_SERVER,
 713                            &IID_IMLangFontLink, (void **)&iMLFL);
 714
 715     trace("ret = %08x, IMLangFontLink iMLFL = %p\n", ret, iMLFL);
 716     if (ret != S_OK || !iML2) return;
 717
 718     IMLangFontLink_Test(iMLFL);
 719     IMLangFontLink_Release(iMLFL);
 720
 721     CoUninitialize();
 722 }