inetcomm/tests: Start of IMimeInternational tests.
diff --git a/dlls/inetcomm/tests/Makefile.in b/dlls/inetcomm/tests/Makefile.in
index e35636f..8e302db 100644
--- a/dlls/inetcomm/tests/Makefile.in
+++ b/dlls/inetcomm/tests/Makefile.in
@@ -6,6 +6,7 @@
IMPORTS = inetcomm ole32 kernel32
CTESTS = \
+ mimeintl.c \
mimeole.c
@MAKE_TEST_RULES@
diff --git a/dlls/inetcomm/tests/mimeintl.c b/dlls/inetcomm/tests/mimeintl.c
new file mode 100644
index 0000000..defe3f9
--- /dev/null
+++ b/dlls/inetcomm/tests/mimeintl.c
@@ -0,0 +1,60 @@
+/*
+ * MimeInternational tests
+ *
+ * Copyright 2008 Huw Davies
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#define COBJMACROS
+#define NONAMELESSUNION
+
+#include "windows.h"
+#include "ole2.h"
+#include "ocidl.h"
+
+#include "mimeole.h"
+
+#include <stdio.h>
+#include <assert.h>
+
+#include "wine/test.h"
+
+static void test_create(void)
+{
+ IMimeInternational *internat, *internat2;
+ HRESULT hr;
+ ULONG ref;
+
+ hr = MimeOleGetInternat(&internat);
+ ok(hr == S_OK, "ret %08x\n", hr);
+ hr = MimeOleGetInternat(&internat2);
+ ok(hr == S_OK, "ret %08x\n", hr);
+
+ /* test to show that the object is a singleton with
+ a reference held by the dll. */
+ ok(internat == internat2, "instances differ\n");
+ ref = IMimeInternational_Release(internat2);
+ ok(ref == 2, "got %d\n", ref);
+
+ IMimeInternational_Release(internat);
+}
+
+START_TEST(mimeintl)
+{
+ OleInitialize(NULL);
+ test_create();
+ OleUninitialize();
+}
