Robert Wilhelm : wshom.ocx: Add WShNetwork object creation test.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 7ed17ec2511c85ce2e1f1fed0a9d04d85f658a5b
URL:    https://gitlab.winehq.org/wine/wine/-/commit/7ed17ec2511c85ce2e1f1fed0a9d04d...

Author: Robert Wilhelm <robert.wilhelm(a)gmx.net>
Date:   Sat Nov 26 23:51:15 2022 +0100

wshom.ocx: Add WShNetwork object creation test.

---

 dlls/wshom.ocx/tests/wshom.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/dlls/wshom.ocx/tests/wshom.c b/dlls/wshom.ocx/tests/wshom.c
index 34a02a8d1f9..f3b6ec77c51 100644
--- a/dlls/wshom.ocx/tests/wshom.c
+++ b/dlls/wshom.ocx/tests/wshom.c
@@ -673,6 +673,21 @@ static void test_popup(void)
     SysFreeString(text);
     IWshShell_Release(sh);
 }
+static void test_wshnetwork(void)
+{
+    IDispatch *disp;
+    IUnknown *network;
+    HRESULT hr;
+
+    hr = CoCreateInstance(&CLSID_WshNetwork, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
+            &IID_IDispatch, (void**)&disp);
+    ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
+
+    hr = IDispatch_QueryInterface(disp, &IID_IWshNetwork2, (void**)&network);
+    ok(hr == S_OK, "Unexpected hr %#lx.\n", hr);
+
+    IUnknown_Release(network);
+}
 
 START_TEST(wshom)
 {
@@ -693,6 +708,7 @@ START_TEST(wshom)
     test_wshshell();
     test_registry();
     test_popup();
+    test_wshnetwork();
 
     CoUninitialize();
 }