Vincent Povirk : mscoree: Add test for creating CLRMetaHost.
Alexandre Julliard
julliard at winehq.org
Mon Oct 4 11:04:05 CDT 2010
Module: wine
Branch: master
Commit: ddda173064a7f7e19004e340b882107d8e5af57a
URL: http://source.winehq.org/git/wine.git/?a=commit;h=ddda173064a7f7e19004e340b882107d8e5af57a
Author: Vincent Povirk <vincent at codeweavers.com>
Date: Tue Sep 21 15:55:05 2010 -0500
mscoree: Add test for creating CLRMetaHost.
---
dlls/mscoree/tests/Makefile.in | 1 +
dlls/mscoree/tests/metahost.c | 71 ++++++++++++++++++++++++++++++++++++++++
2 files changed, 72 insertions(+), 0 deletions(-)
diff --git a/dlls/mscoree/tests/Makefile.in b/dlls/mscoree/tests/Makefile.in
index 5077958..0ff1e2b 100644
--- a/dlls/mscoree/tests/Makefile.in
+++ b/dlls/mscoree/tests/Makefile.in
@@ -1,6 +1,7 @@
TESTDLL = mscoree.dll
C_SRCS = \
+ metahost.c \
mscoree.c
@MAKE_TEST_RULES@
diff --git a/dlls/mscoree/tests/metahost.c b/dlls/mscoree/tests/metahost.c
new file mode 100644
index 0000000..b79c9b6
--- /dev/null
+++ b/dlls/mscoree/tests/metahost.c
@@ -0,0 +1,71 @@
+/*
+ * Copyright 2010 Vincent Povirk
+ *
+ * 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
+
+#include <stdarg.h>
+
+#include "windef.h"
+#include "ole2.h"
+
+#include "initguid.h"
+#include "metahost.h"
+#include "wine/test.h"
+
+static HMODULE hmscoree;
+
+static HRESULT (WINAPI *pCLRCreateInstance)(REFCLSID clsid, REFIID riid, LPVOID *ppInterface);
+
+static ICLRMetaHost *metahost;
+
+BOOL init_pointers(void)
+{
+ HRESULT hr = E_FAIL;
+
+ hmscoree = LoadLibraryA("mscoree.dll");
+
+ if (hmscoree)
+ pCLRCreateInstance = (void *)GetProcAddress(hmscoree, "CLRCreateInstance");
+
+ if (pCLRCreateInstance)
+ hr = pCLRCreateInstance(&CLSID_CLRMetaHost, &IID_ICLRMetaHost, (void**)&metahost);
+
+ if (FAILED(hr))
+ {
+ todo_wine win_skip(".NET 4 is not installed\n");
+ FreeLibrary(hmscoree);
+ return FALSE;
+ }
+
+ return TRUE;
+}
+
+void cleanup(void)
+{
+ ICLRMetaHost_Release(metahost);
+
+ FreeLibrary(hmscoree);
+}
+
+START_TEST(metahost)
+{
+ if (!init_pointers())
+ return;
+
+ cleanup();
+}
More information about the wine-cvs
mailing list