Alex Henrie : vbscript/tests: Try calling GetObject again if it fails the first time.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 8d8ebc964152ef0158fabea5c896ee5a0d93b400
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=8d8ebc964152ef0158fabea5c8...

Author: Alex Henrie 
Date:   Tue Oct 24 15:15:35 2017 +0100

vbscript/tests: Try calling GetObject again if it fails the first time.

Signed-off-by: Alex Henrie 
Signed-off-by: Jacek Caban 
Signed-off-by: Alexandre Julliard

---

dlls/vbscript/tests/createobj.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/dlls/vbscript/tests/createobj.c b/dlls/vbscript/tests/createobj.c
index 002f12f..1c72ed2 100644
--- a/dlls/vbscript/tests/createobj.c
+++ b/dlls/vbscript/tests/createobj.c
@@ -50,6 +50,8 @@

extern const CLSID CLSID_VBScript;

+#define VB_E_ACCESS_DENIED      0x800a0046
+
 #define DEFINE_EXPECT(func) \
     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

@@ -988,6 +990,8 @@ static void test_GetObject(void)
     SET_EXPECT(SetSite);
     SET_EXPECT(reportSuccess);
     hres = parse_script_ae(parser, "Call GetObject("clsid:" TESTOBJINST_CLSID "").reportSuccess()");
+    if(broken(hres == VB_E_ACCESS_DENIED)) /* 64-bit win8 fails on the first try */
+        hres = parse_script_ae(parser, "Call GetObject("clsid:" TESTOBJINST_CLSID "").reportSuccess()");
     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);