Jacek Caban : wshom.ocx: Added beginning WshShell object tests.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 13fef511b2a3e1503250db237b710137fcda1569
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=13fef511b2a3e1503250db237b...

Author: Jacek Caban <jacek(a)codeweavers.com>
Date:   Tue Sep 20 11:55:52 2011 +0200

wshom.ocx: Added beginning WshShell object tests.

---

 configure                        |    1 +
 configure.ac                     |    1 +
 dlls/wshom.ocx/tests/Makefile.in |    7 ++++
 dlls/wshom.ocx/tests/wshom.c     |   59 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 68 insertions(+), 0 deletions(-)

diff --git a/configure b/configure
index f18a7b7..ae33294 100755
--- a/configure
+++ b/configure
@@ -15184,6 +15184,7 @@ wine_fn_config_dll wow32 enable_win16 implib
 wine_fn_config_dll ws2_32 enable_ws2_32 implib
 wine_fn_config_test dlls/ws2_32/tests ws2_32_test
 wine_fn_config_dll wshom.ocx enable_wshom_ocx
+wine_fn_config_test dlls/wshom.ocx/tests wshom.ocx_test
 wine_fn_config_dll wsock32 enable_wsock32 implib
 wine_fn_config_dll wtsapi32 enable_wtsapi32 implib
 wine_fn_config_dll wuapi enable_wuapi
diff --git a/configure.ac b/configure.ac
index e12fb37..1401072 100644
--- a/configure.ac
+++ b/configure.ac
@@ -2877,6 +2877,7 @@ WINE_CONFIG_DLL(wow32,enable_win16,[implib])
 WINE_CONFIG_DLL(ws2_32,,[implib])
 WINE_CONFIG_TEST(dlls/ws2_32/tests)
 WINE_CONFIG_DLL(wshom.ocx)
+WINE_CONFIG_TEST(dlls/wshom.ocx/tests)
 WINE_CONFIG_DLL(wsock32,,[implib])
 WINE_CONFIG_DLL(wtsapi32,,[implib])
 WINE_CONFIG_DLL(wuapi)
diff --git a/dlls/wshom.ocx/tests/Makefile.in b/dlls/wshom.ocx/tests/Makefile.in
new file mode 100644
index 0000000..90094fb
--- /dev/null
+++ b/dlls/wshom.ocx/tests/Makefile.in
@@ -0,0 +1,7 @@
+TESTDLL   = wshom.ocx
+IMPORTS   = ole32
+
+C_SRCS = \
+	wshom.c
+
+(a)MAKE_TEST_RULES@
diff --git a/dlls/wshom.ocx/tests/wshom.c b/dlls/wshom.ocx/tests/wshom.c
new file mode 100644
index 0000000..f9768b9
--- /dev/null
+++ b/dlls/wshom.ocx/tests/wshom.c
@@ -0,0 +1,59 @@
+/*
+ * Copyright 2011 Jacek Caban for CodeWeavers
+ *
+ * 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 CONST_VTABLE
+
+#include <initguid.h>
+#include <ole2.h>
+#include <dispex.h>
+
+#include "wine/test.h"
+
+DEFINE_GUID(CLSID_WshShell, 0x72c24dd5, 0xd70a, 0x438b, 0x8a,0x42, 0x98,0x42,0x4b,0x88,0xaf,0xb8);
+
+DEFINE_GUID(IID_IWshShell3, 0x41904400, 0xbe18, 0x11d3, 0xa2,0x8b, 0x00,0x10,0x4b,0xd3,0x50,0x90);
+
+static void test_wshshell(void)
+{
+    IDispatch *disp;
+    IUnknown *shell;
+    HRESULT hres;
+
+    hres = CoCreateInstance(&CLSID_WshShell, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
+            &IID_IDispatch, (void**)&disp);
+    if(FAILED(hres)) {
+        win_skip("Could not create WshShell object: %08x\n", hres);
+        return;
+    }
+
+    hres = IDispatch_QueryInterface(disp, &IID_IWshShell3, (void**)&shell);
+    IDispatch_Release(disp);
+    ok(hres == S_OK, "Could not get IWshShell3 iface: %08x\n", hres);
+
+    IUnknown_Release(shell);
+}
+
+START_TEST(wshom)
+{
+    CoInitialize(NULL);
+
+    test_wshshell();
+
+    CoUninitialize();
+}