inetcomm/tests: Add test for IMimeInternational_GetDefaultCharset.

This commit is contained in:
Huw Davies 2008-09-10 14:42:42 +01:00 committed by Alexandre Julliard
parent 8b68a6296c
commit 4271524b8a

View File

@ -181,10 +181,29 @@ static void test_charset(void)
IMimeInternational_Release(internat);
}
static void test_defaultcharset(void)
{
IMimeInternational *internat;
HRESULT hr;
HCHARSET hcs_default, hcs;
hr = MimeOleGetInternat(&internat);
ok(hr == S_OK, "ret %08x\n", hr);
hr = IMimeInternational_GetDefaultCharset(internat, &hcs_default);
ok(hr == S_OK, "ret %08x\n", hr);
hr = IMimeInternational_GetCodePageCharset(internat, GetACP(), CHARSET_BODY, &hcs);
ok(hr == S_OK, "ret %08x\n", hr);
ok(hcs_default == hcs, "Unexpected default charset\n");
IMimeInternational_Release(internat);
}
START_TEST(mimeintl)
{
OleInitialize(NULL);
test_create();
test_charset();
test_defaultcharset();
OleUninitialize();
}