Jacek Caban : vbscript: Skip tests on too old vbscript.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 32d1bb2bbff61cf25cd513f27a593f16d4c8c4f3
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=32d1bb2bbff61cf25cd513f27a...

Author: Jacek Caban 
Date:   Wed Sep 12 09:35:57 2012 +0200

vbscript: Skip tests on too old vbscript.

---

dlls/vbscript/tests/run.c      |    6 +++---
 dlls/vbscript/tests/vbscript.c |    8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index 0e292af..9c3725b 100644
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -1740,13 +1740,13 @@ static void run_tests(void)

static BOOL check_vbscript(void)
 {
-    IActiveScript *vbscript;
+    IActiveScriptParseProcedure2 *vbscript;
     HRESULT hres;

hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
-            &IID_IActiveScript, (void**)&vbscript);
+            &IID_IActiveScriptParseProcedure2, (void**)&vbscript);
     if(SUCCEEDED(hres))
-        IActiveScript_Release(vbscript);
+        IActiveScriptParseProcedure2_Release(vbscript);

return hres == S_OK;
 }
diff --git a/dlls/vbscript/tests/vbscript.c b/dlls/vbscript/tests/vbscript.c
index ec53712..27153f8 100644
--- a/dlls/vbscript/tests/vbscript.c
+++ b/dlls/vbscript/tests/vbscript.c
@@ -774,13 +774,13 @@ static void test_vbscript_initializing(void)

static BOOL check_vbscript(void)
 {
-    IActiveScript *vbscript;
+    IActiveScriptParseProcedure2 *vbscript;
     HRESULT hres;

hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
-            &IID_IActiveScript, (void**)&vbscript);
+            &IID_IActiveScriptParseProcedure2, (void**)&vbscript);
     if(SUCCEEDED(hres))
-        IActiveScript_Release(vbscript);
+        IActiveScriptParseProcedure2_Release(vbscript);

return hres == S_OK;
 }
@@ -797,7 +797,7 @@ START_TEST(vbscript)
         test_vbscript_initializing();
         test_scriptdisp();
     }else {
-        win_skip("VBScript engine not available\n");
+        win_skip("VBScript engine not available or too old\n");
     }

CoUninitialize();