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