Huw Davies : inetcomm/tests: Add test for IMimeInternational_GetDefaultCharset.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 4271524b8a4e77a937b4c6e065f760f9c3bef9b7
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=4271524b8a4e77a937b4c6e065...

Author: Huw Davies 
Date:   Wed Sep 10 14:42:42 2008 +0100

inetcomm/tests: Add test for IMimeInternational_GetDefaultCharset.

---

dlls/inetcomm/tests/mimeintl.c |   19 +++++++++++++++++++
 1 files changed, 19 insertions(+), 0 deletions(-)

diff --git a/dlls/inetcomm/tests/mimeintl.c b/dlls/inetcomm/tests/mimeintl.c
index 029798a..746628a 100644
--- a/dlls/inetcomm/tests/mimeintl.c
+++ b/dlls/inetcomm/tests/mimeintl.c
@@ -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();
 }