From d234bcdb25d74926438ab65fa1fd4caf2b1f405f Mon Sep 17 00:00:00 2001
From: Nikolay Sivov <nsivov@codeweavers.com>
Date: Sat, 2 Nov 2013 12:00:23 +0400
Subject: [PATCH] vbscript/tests: Use a defined name for error code.

---
 dlls/vbscript/tests/createobj.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/dlls/vbscript/tests/createobj.c b/dlls/vbscript/tests/createobj.c
index fd598278ff2..3fffb5f8294 100644
--- a/dlls/vbscript/tests/createobj.c
+++ b/dlls/vbscript/tests/createobj.c
@@ -1000,7 +1000,7 @@ static void test_GetObject(void)
     SET_EXPECT(SetSite);
     SET_EXPECT(reportSuccess);
     hres = parse_script_ae(parser, "Call GetObject(\"clsid:" TESTOBJINST_CLSID "\").reportSuccess()");
-    if(hres == 0x8007007e) { /* Workaround for broken win2k */
+    if(hres == HRESULT_FROM_WIN32(ERROR_MOD_NOT_FOUND)) { /* Workaround for broken win2k */
         win_skip("got unexpected error %08x\n", hres);
         CLEAR_CALLED(QI_IObjectWithSite);
         CLEAR_CALLED(SetSite);
@@ -1008,6 +1008,7 @@ static void test_GetObject(void)
         IActiveScriptParse_Release(parser);
         return;
     }
+    ok(hres == S_OK, "hres = %08x\n", hres);
     CHECK_CALLED(QI_IObjectWithSite);
     CHECK_CALLED(SetSite);
     CHECK_CALLED(reportSuccess);