dlls/vbscript/tests/run.c

   1 /*
   2  * Copyright 2011 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdio.h>
  20
  21 #define COBJMACROS
  22 #define CONST_VTABLE
  23
  24 #include <ole2.h>
  25 #include <dispex.h>
  26 #include <activscp.h>
  27
  28 #include "vbsregexp55.h"
  29
  30 #include "wine/test.h"
  31
  32 #ifdef _WIN64
  33
  34 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface
  35 #define IActiveScriptParse_Release IActiveScriptParse64_Release
  36 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
  37 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
  38 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
  39 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
  40
  41 #else
  42
  43 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
  44 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  45 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  46 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  47 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
  48 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
  49
  50 #endif
  51
  52 extern const CLSID CLSID_VBScript;
  53 extern const CLSID CLSID_VBScriptRegExp;
  54
  55 #define DEFINE_EXPECT(func) \
  56     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  57
  58 #define SET_EXPECT(func) \
  59     expect_ ## func = TRUE
  60
  61 #define CHECK_EXPECT2(func) \
  62     do { \
  63         ok(expect_ ##func, "unexpected call " #func "\n"); \
  64         called_ ## func = TRUE; \
  65     }while(0)
  66
  67 #define CHECK_EXPECT(func) \
  68     do { \
  69         CHECK_EXPECT2(func); \
  70         expect_ ## func = FALSE; \
  71     }while(0)
  72
  73 #define CHECK_CALLED(func) \
  74     do { \
  75         ok(called_ ## func, "expected " #func "\n"); \
  76         expect_ ## func = called_ ## func = FALSE; \
  77     }while(0)
  78
  79 #define CLEAR_CALLED(func) \
  80     expect_ ## func = called_ ## func = FALSE
  81
  82 DEFINE_EXPECT(global_success_d);
  83 DEFINE_EXPECT(global_success_i);
  84 DEFINE_EXPECT(global_vbvar_d);
  85 DEFINE_EXPECT(global_vbvar_i);
  86 DEFINE_EXPECT(testobj_propget_d);
  87 DEFINE_EXPECT(testobj_propget_i);
  88 DEFINE_EXPECT(testobj_propput_d);
  89 DEFINE_EXPECT(testobj_propput_i);
  90 DEFINE_EXPECT(testobj_value_i);
  91 DEFINE_EXPECT(global_propargput_d);
  92 DEFINE_EXPECT(global_propargput_i);
  93 DEFINE_EXPECT(global_propargput1_d);
  94 DEFINE_EXPECT(global_propargput1_i);
  95 DEFINE_EXPECT(collectionobj_newenum_i);
  96 DEFINE_EXPECT(Next);
  97 DEFINE_EXPECT(GetWindow);
  98 DEFINE_EXPECT(GetUIBehavior);
  99 DEFINE_EXPECT(EnableModeless);
 100
 101 #define DISPID_GLOBAL_REPORTSUCCESS 1000
 102 #define DISPID_GLOBAL_TRACE         1001
 103 #define DISPID_GLOBAL_OK            1002
 104 #define DISPID_GLOBAL_GETVT         1003
 105 #define DISPID_GLOBAL_ISENGLANG     1004
 106 #define DISPID_GLOBAL_VBVAR         1005
 107 #define DISPID_GLOBAL_TESTOBJ       1006
 108 #define DISPID_GLOBAL_ISNULLDISP    1007
 109 #define DISPID_GLOBAL_TESTDISP      1008
 110 #define DISPID_GLOBAL_REFOBJ        1009
 111 #define DISPID_GLOBAL_COUNTER       1010
 112 #define DISPID_GLOBAL_PROPARGPUT    1011
 113 #define DISPID_GLOBAL_PROPARGPUT1   1012
 114 #define DISPID_GLOBAL_COLLOBJ       1013
 115 #define DISPID_GLOBAL_DOUBLEASSTRING 1014
 116 #define DISPID_GLOBAL_TESTARRAY     1015
 117 #define DISPID_GLOBAL_THROWINT      1016
 118
 119 #define DISPID_TESTOBJ_PROPGET      2000
 120 #define DISPID_TESTOBJ_PROPPUT      2001
 121
 122 #define DISPID_COLLOBJ_RESET        3000
 123
 124 #define FACILITY_VBS 0xa
 125 #define MAKE_VBSERROR(code) MAKE_HRESULT(SEVERITY_ERROR, FACILITY_VBS, code)
 126
 127 static const WCHAR testW[] = {'t','e','s','t',0};
 128 static const WCHAR emptyW[] = {0};
 129
 130 static BOOL strict_dispid_check, is_english, allow_ui;
 131 static const char *test_name = "(null)";
 132 static int test_counter;
 133 static SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_NOUIERROR;
 134
 135 static BSTR a2bstr(const char *str)
 136 {
 137     BSTR ret;
 138     int len;
 139
 140     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 141     ret = SysAllocStringLen(NULL, len-1);
 142     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 143
 144     return ret;
 145 }
 146
 147 static int strcmp_wa(LPCWSTR strw, const char *stra)
 148 {
 149     CHAR buf[512];
 150     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
 151     return lstrcmpA(buf, stra);
 152 }
 153
 154 static const char *vt2a(VARIANT *v)
 155 {
 156     if(V_VT(v) == (VT_BYREF|VT_VARIANT)) {
 157         static char buf[64];
 158         sprintf(buf, "%s*", vt2a(V_BYREF(v)));
 159         return buf;
 160     }
 161
 162     switch(V_VT(v)) {
 163     case VT_EMPTY:
 164         return "VT_EMPTY";
 165     case VT_NULL:
 166         return "VT_NULL";
 167     case VT_I2:
 168         return "VT_I2";
 169     case VT_I4:
 170         return "VT_I4";
 171     case VT_R4:
 172         return "VT_R4";
 173     case VT_R8:
 174         return "VT_R8";
 175     case VT_CY:
 176         return "VT_CY";
 177     case VT_DATE:
 178         return "VT_DATE";
 179     case VT_BSTR:
 180         return "VT_BSTR";
 181     case VT_DISPATCH:
 182         return "VT_DISPATCH";
 183     case VT_BOOL:
 184         return "VT_BOOL";
 185     case VT_ARRAY|VT_VARIANT:
 186         return "VT_ARRAY|VT_VARIANT";
 187     case VT_ARRAY|VT_BYREF|VT_VARIANT:
 188         return "VT_ARRAY|VT_BYREF|VT_VARIANT";
 189     case VT_UI1:
 190         return "VT_UI1";
 191     default:
 192         ok(0, "unknown vt %d\n", V_VT(v));
 193         return NULL;
 194     }
 195 }
 196
 197 /* Returns true if the user interface is in English. Note that this does not
 198  * presume of the formatting of dates, numbers, etc.
 199  */
 200 static BOOL is_lang_english(void)
 201 {
 202     static HMODULE hkernel32 = NULL;
 203     static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
 204     static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
 205
 206     if (!hkernel32)
 207     {
 208         hkernel32 = GetModuleHandleA("kernel32.dll");
 209         pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
 210         pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
 211     }
 212     if (pGetThreadUILanguage && PRIMARYLANGID(pGetThreadUILanguage()) != LANG_ENGLISH)
 213         return FALSE;
 214     if (pGetUserDefaultUILanguage && PRIMARYLANGID(pGetUserDefaultUILanguage()) != LANG_ENGLISH)
 215         return FALSE;
 216
 217     return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
 218 }
 219
 220 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
 221 {
 222     ok(0, "unexpected call\n");
 223     return E_NOINTERFACE;
 224 }
 225
 226 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
 227 {
 228     return 2;
 229 }
 230
 231 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
 232 {
 233     return 1;
 234 }
 235
 236 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
 237         REFIID riid, void **ppv)
 238 {
 239     ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
 240     return E_NOINTERFACE;
 241 }
 242
 243 static const IServiceProviderVtbl ServiceProviderVtbl = {
 244     ServiceProvider_QueryInterface,
 245     ServiceProvider_AddRef,
 246     ServiceProvider_Release,
 247     ServiceProvider_QueryService
 248 };
 249
 250 static IServiceProvider caller_sp = { &ServiceProviderVtbl };
 251
 252 static void test_disp(IDispatch *disp)
 253 {
 254     DISPID id, public_prop_id, public_prop2_id, public_func_id, public_sub_id, defvalget_id, gs_getter_id;
 255     DISPID named_args[5] = {DISPID_PROPERTYPUT};
 256     VARIANT v, args[5];
 257     DISPPARAMS dp = {args, named_args};
 258     IDispatchEx *dispex;
 259     EXCEPINFO ei = {0};
 260     BSTR str;
 261     HRESULT hres;
 262
 263     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
 264     ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
 265
 266     str = a2bstr("publicProp");
 267     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop_id);
 268     SysFreeString(str);
 269     ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
 270
 271     str = a2bstr("PUBLICPROP");
 272     hres = IDispatchEx_GetDispID(dispex, str, 0, &id);
 273     SysFreeString(str);
 274     ok(hres == S_OK, "GetDispID(PUBLICPROP) failed: %08x\n", hres);
 275     ok(public_prop_id == id, "id = %d\n", public_prop_id);
 276
 277     str = a2bstr("publicPROP2");
 278     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop2_id);
 279     SysFreeString(str);
 280     ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres);
 281
 282     str = a2bstr("defValGet");
 283     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &defvalget_id);
 284     SysFreeString(str);
 285     ok(hres == S_OK, "GetDispID(defValGet) failed: %08x\n", hres);
 286     ok(defvalget_id == DISPID_VALUE, "id = %d\n", defvalget_id);
 287
 288     str = a2bstr("privateProp");
 289     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
 290     SysFreeString(str);
 291     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
 292     ok(id == -1, "id = %d\n", id);
 293
 294     str = a2bstr("class_initialize");
 295     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
 296     SysFreeString(str);
 297     ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres);
 298
 299     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 300     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 301     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 302
 303     V_VT(args) = VT_BOOL;
 304     V_BOOL(args) = VARIANT_TRUE;
 305     dp.cArgs = dp.cNamedArgs = 1;
 306     V_VT(&v) = VT_BOOL;
 307     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, &v, &ei, NULL);
 308     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 309     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 310
 311     dp.cArgs = dp.cNamedArgs = 0;
 312     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 313     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 314     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
 315     ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
 316
 317     dp.cArgs = dp.cNamedArgs = 0;
 318     hres = IDispatchEx_Invoke(dispex, public_prop_id, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 319     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 320     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
 321     ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
 322
 323     dp.cArgs = dp.cNamedArgs = 0;
 324     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
 325     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 326     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
 327     ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
 328
 329     dp.cArgs = 1;
 330     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 331     ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
 332     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 333
 334     V_VT(args) = VT_BOOL;
 335     V_BOOL(args) = VARIANT_FALSE;
 336     dp.cArgs = 1;
 337     V_VT(&v) = VT_BOOL;
 338     hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL);
 339     ok(hres == DISP_E_PARAMNOTOPTIONAL, "InvokeEx failed: %08x, expected DISP_E_PARAMNOTOPTIONAL\n", hres);
 340
 341     str = a2bstr("publicFunction");
 342     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_func_id);
 343     SysFreeString(str);
 344     ok(hres == S_OK, "GetDispID(publicFunction) failed: %08x\n", hres);
 345     ok(public_func_id != -1, "public_func_id = -1\n");
 346
 347     str = a2bstr("publicSub");
 348     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_sub_id);
 349     SysFreeString(str);
 350     ok(hres == S_OK, "GetDispID(publicSub) failed: %08x\n", hres);
 351     ok(public_sub_id != -1, "public_func_id = -1\n");
 352
 353     dp.cArgs = dp.cNamedArgs = 0;
 354     hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 355     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 356     ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
 357     ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
 358
 359     dp.cArgs = dp.cNamedArgs = 0;
 360     hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
 361     ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
 362     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 363
 364     dp.cArgs = dp.cNamedArgs = 0;
 365     hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 366     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 367     ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
 368     ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
 369
 370     dp.cArgs = dp.cNamedArgs = 0;
 371     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 372     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 373     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 374
 375     dp.cArgs = dp.cNamedArgs = 0;
 376     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
 377     ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
 378     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 379
 380     dp.cArgs = dp.cNamedArgs = 0;
 381     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 382     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 383     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 384
 385     V_VT(args) = VT_BOOL;
 386     V_BOOL(args) = VARIANT_TRUE;
 387     dp.cArgs = dp.cNamedArgs = 1;
 388     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL);
 389     ok(FAILED(hres), "InvokeEx succeeded: %08x\n", hres);
 390
 391     dp.cArgs = dp.cNamedArgs = 0;
 392     hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 393     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 394     ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
 395     ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
 396
 397     dp.cArgs = dp.cNamedArgs = 0;
 398     hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 399     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 400     ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
 401     ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
 402
 403     dp.cArgs = dp.cNamedArgs = 0;
 404     hres = IDispatchEx_Invoke(dispex, public_func_id, &IID_NULL, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 405     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 406     ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
 407     ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
 408
 409     dp.cArgs = dp.cNamedArgs = 0;
 410     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 411     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 412     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 413
 414     dp.cArgs = dp.cNamedArgs = 0;
 415     hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 416     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 417     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
 418
 419     str = a2bstr("privateSub");
 420     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
 421     SysFreeString(str);
 422     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateSub) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
 423     ok(id == -1, "id = %d\n", id);
 424
 425     str = a2bstr("dynprop");
 426     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive|fdexNameEnsure, &id);
 427     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
 428     ok(id == -1, "id = %d\n", id);
 429     hres = IDispatchEx_GetDispID(dispex, str, fdexNameEnsure, &id);
 430     ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
 431     ok(id == -1, "id = %d\n", id);
 432     SysFreeString(str);
 433
 434     str = a2bstr("publicProp");
 435     hres = IDispatchEx_GetDispID(dispex, str, 0x80000000|fdexNameCaseInsensitive, &public_prop_id);
 436     SysFreeString(str);
 437     ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
 438
 439     id = 0xdeadbeef;
 440     str = a2bstr("publicProp");
 441     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
 442     SysFreeString(str);
 443     ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
 444     ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
 445
 446     id = 0xdeadbeef;
 447     str = a2bstr("publicprop");
 448     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
 449     SysFreeString(str);
 450     ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
 451     ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
 452
 453     str = a2bstr("gsGetProp");
 454     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &gs_getter_id);
 455     SysFreeString(str);
 456     ok(hres == S_OK, "GetDispID(publicFunction) failed: %08x\n", hres);
 457     ok(gs_getter_id != -1, "gs_getter_id = -1\n");
 458
 459     V_VT(args) = VT_BOOL;
 460     V_BOOL(args) = VARIANT_TRUE;
 461     dp.cNamedArgs = 0;
 462     dp.cArgs = 1;
 463     V_VT(&v) = VT_I8;
 464     hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
 465     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 466     ok(V_VT(&v) == VT_BOOL && V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
 467
 468     hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET, &dp, NULL, &ei, NULL);
 469     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 470
 471     V_VT(args) = VT_BOOL;
 472     V_BOOL(args) = VARIANT_FALSE;
 473     dp.cArgs = 1;
 474     V_VT(&v) = VT_I8;
 475     hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
 476     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 477     ok(V_VT(&v) == VT_BOOL && !V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
 478
 479     V_VT(args) = VT_BOOL;
 480     V_BOOL(args) = VARIANT_TRUE;
 481     V_VT(&v) = VT_I8;
 482     dp.cArgs = 1;
 483     hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
 484     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 485     ok(V_VT(&v) == VT_BOOL && V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
 486
 487     IDispatchEx_Release(dispex);
 488 }
 489
 490 static void test_safearray(SAFEARRAY *safearray, unsigned indims)
 491 {
 492     int i, exdims = indims;
 493
 494     if(!exdims)
 495         exdims = 1;
 496     ok(safearray->cDims == exdims, "safearray->cDims = %d, expected %d\n", safearray->cDims, exdims);
 497     todo_wine
 498     ok(safearray->fFeatures == (FADF_VARIANT|FADF_HAVEVARTYPE|FADF_FIXEDSIZE|FADF_STATIC),
 499        "safearray->fFeatures = %x\n", safearray->fFeatures);
 500     ok(safearray->cbElements == sizeof(VARIANT), "safearray->cbElements = %x\n", safearray->cbElements);
 501     ok(!safearray->cLocks, "safearray->cLocks = %x\n", safearray->cLocks);
 502
 503     for(i=0; i < safearray->cDims; i++) {
 504         ok(safearray->rgsabound[i].cElements == indims ? i+4 : 1, "safearray->rgsabound[%d].cElements = %d\n", i,
 505            safearray->rgsabound[i].cElements);
 506         ok(!safearray->rgsabound[i].lLbound, "safearray->rgsabound[%d].lLbound = %d\n", i, safearray->rgsabound[i].lLbound);
 507     }
 508 }
 509
 510 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
 511 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
 512 {
 513     ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
 514 }
 515
 516 static IDispatchEx enumDisp;
 517
 518 static HRESULT WINAPI EnumVARIANT_QueryInterface(IEnumVARIANT *iface, REFIID riid, void **ppv)
 519 {
 520     if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IEnumVARIANT)) {
 521         *ppv = iface;
 522         return S_OK;
 523     }
 524
 525     if(IsEqualGUID(riid, &IID_IDispatch)) {
 526         *ppv = &enumDisp;
 527         return S_OK;
 528     }
 529
 530     ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid));
 531     return E_NOINTERFACE;
 532 }
 533
 534 static ULONG WINAPI EnumVARIANT_AddRef(IEnumVARIANT *iface)
 535 {
 536     return 2;
 537 }
 538
 539 static ULONG WINAPI EnumVARIANT_Release(IEnumVARIANT *iface)
 540 {
 541     return 1;
 542 }
 543
 544 static unsigned next_cnt;
 545
 546 static HRESULT WINAPI EnumVARIANT_Next(IEnumVARIANT *iface, ULONG celt, VARIANT *rgVar, ULONG *pCeltFetched)
 547 {
 548     if(strict_dispid_check)
 549         CHECK_EXPECT2(Next);
 550
 551     ok(celt == 1, "celt = %d\n", celt);
 552     ok(V_VT(rgVar) == VT_EMPTY, "V_VT(rgVar) = %d\n", V_VT(rgVar));
 553     ok(!pCeltFetched, "pCeltFetched = %p\n", pCeltFetched);
 554
 555     if(next_cnt++ < 3) {
 556         V_VT(rgVar) = VT_I2;
 557         V_I2(rgVar) = next_cnt;
 558         return S_OK;
 559     }
 560
 561     return S_FALSE;
 562 }
 563
 564 static HRESULT WINAPI EnumVARIANT_Skip(IEnumVARIANT *iface, ULONG celt)
 565 {
 566     ok(0, "unexpected call\n");
 567     return E_NOTIMPL;
 568 }
 569
 570 static HRESULT WINAPI EnumVARIANT_Reset(IEnumVARIANT *iface)
 571 {
 572     ok(0, "unexpected call\n");
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT WINAPI EnumVARIANT_Clone(IEnumVARIANT *iface, IEnumVARIANT **ppEnum)
 577 {
 578     ok(0, "unexpected call\n");
 579     return E_NOTIMPL;
 580 }
 581
 582 static const IEnumVARIANTVtbl EnumVARIANTVtbl = {
 583     EnumVARIANT_QueryInterface,
 584     EnumVARIANT_AddRef,
 585     EnumVARIANT_Release,
 586     EnumVARIANT_Next,
 587     EnumVARIANT_Skip,
 588     EnumVARIANT_Reset,
 589     EnumVARIANT_Clone
 590 };
 591
 592 static IEnumVARIANT enumObj = { &EnumVARIANTVtbl };
 593
 594 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 595 {
 596     *ppv = NULL;
 597
 598     if(IsEqualGUID(riid, &IID_IUnknown)
 599        || IsEqualGUID(riid, &IID_IDispatch)
 600        || IsEqualGUID(riid, &IID_IDispatchEx))
 601         *ppv = iface;
 602     else {
 603         trace("QI %s\n", wine_dbgstr_guid(riid));
 604         return E_NOINTERFACE;
 605     }
 606
 607     IUnknown_AddRef((IUnknown*)*ppv);
 608     return S_OK;
 609 }
 610
 611 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 612 {
 613     return 2;
 614 }
 615
 616 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 617 {
 618     return 1;
 619 }
 620
 621 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 622 {
 623     ok(0, "unexpected call\n");
 624     return E_NOTIMPL;
 625 }
 626
 627 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 628                                               LCID lcid, ITypeInfo **ppTInfo)
 629 {
 630     ok(0, "unexpected call\n");
 631     return E_NOTIMPL;
 632 }
 633
 634 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 635                                                 LPOLESTR *rgszNames, UINT cNames,
 636                                                 LCID lcid, DISPID *rgDispId)
 637 {
 638     ok(0, "unexpected call\n");
 639     return E_NOTIMPL;
 640 }
 641
 642 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 643                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 644                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 645 {
 646     ok(0, "unexpected call\n");
 647     return E_NOTIMPL;
 648 }
 649
 650 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 651 {
 652     ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
 653     return E_NOTIMPL;
 654 }
 655
 656 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 657 {
 658     ok(0, "unexpected call\n");
 659     return E_NOTIMPL;
 660 }
 661
 662 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 663 {
 664     ok(0, "unexpected call\n");
 665     return E_NOTIMPL;
 666 }
 667
 668 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 669 {
 670     ok(0, "unexpected call\n");
 671     return E_NOTIMPL;
 672 }
 673
 674 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 675 {
 676     ok(0, "unexpected call\n");
 677     return E_NOTIMPL;
 678 }
 679
 680 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 681 {
 682     ok(0, "unexpected call\n");
 683     return E_NOTIMPL;
 684 }
 685
 686 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 687 {
 688     ok(0, "unexpected call\n");
 689     return E_NOTIMPL;
 690 }
 691
 692 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 693         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 694 {
 695     ok(0, "unexpected call %d\n", id);
 696     return E_NOTIMPL;
 697 }
 698
 699 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 700 {
 701     if(!strcmp_wa(bstrName, "propget")) {
 702         CHECK_EXPECT(testobj_propget_d);
 703         test_grfdex(grfdex, fdexNameCaseInsensitive);
 704         *pid = DISPID_TESTOBJ_PROPGET;
 705         return S_OK;
 706     }
 707     if(!strcmp_wa(bstrName, "propput")) {
 708         CHECK_EXPECT(testobj_propput_d);
 709         test_grfdex(grfdex, fdexNameCaseInsensitive);
 710         *pid = DISPID_TESTOBJ_PROPPUT;
 711         return S_OK;
 712     }
 713
 714     ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
 715     return DISP_E_UNKNOWNNAME;
 716 }
 717
 718 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 719         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 720 {
 721     switch(id) {
 722     case DISPID_VALUE: {
 723         VARIANT *arg;
 724         int i;
 725
 726         CHECK_EXPECT(testobj_value_i);
 727
 728         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
 729         ok(pdp != NULL, "pdp == NULL\n");
 730         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 731         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 732         ok(pvarRes != NULL, "pvarRes == NULL\n");
 733         ok(pei != NULL, "pei == NULL\n");
 734
 735         for(i=0; i<pdp->cArgs; i++) {
 736             arg = pdp->rgvarg+pdp->cArgs-i-1;
 737             ok(V_VT(arg) == VT_I2, "V_VT(arg) = %d\n", V_VT(arg));
 738             ok(V_I2(arg) == i+1, "V_I2(arg) = %d\n", V_I2(arg));
 739         }
 740
 741         V_VT(pvarRes) = VT_I2;
 742         V_I2(pvarRes) = pdp->cArgs;
 743         return S_OK;
 744     }
 745     case DISPID_TESTOBJ_PROPGET:
 746         CHECK_EXPECT(testobj_propget_i);
 747
 748         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
 749         ok(pdp != NULL, "pdp == NULL\n");
 750         ok(!pdp->rgvarg, "rgvarg == NULL\n");
 751         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 752         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 753         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 754         ok(pvarRes != NULL, "pvarRes == NULL\n");
 755         ok(pei != NULL, "pei == NULL\n");
 756
 757         V_VT(pvarRes) = VT_I2;
 758         V_I2(pvarRes) = 10;
 759         return S_OK;
 760     case DISPID_TESTOBJ_PROPPUT:
 761         CHECK_EXPECT(testobj_propput_i);
 762
 763         ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
 764         ok(pdp != NULL, "pdp == NULL\n");
 765         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 766         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 767         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 768         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 769         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 770         ok(!pvarRes, "pvarRes != NULL\n");
 771         ok(pei != NULL, "pei == NULL\n");
 772
 773         ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 774         ok(V_I2(pdp->rgvarg) == 1, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
 775         return S_OK;
 776     }
 777
 778     ok(0, "unexpected call %d\n", id);
 779     return E_FAIL;
 780 }
 781
 782 static IDispatchExVtbl testObjVtbl = {
 783     DispatchEx_QueryInterface,
 784     DispatchEx_AddRef,
 785     DispatchEx_Release,
 786     DispatchEx_GetTypeInfoCount,
 787     DispatchEx_GetTypeInfo,
 788     DispatchEx_GetIDsOfNames,
 789     DispatchEx_Invoke,
 790     testObj_GetDispID,
 791     testObj_InvokeEx,
 792     DispatchEx_DeleteMemberByName,
 793     DispatchEx_DeleteMemberByDispID,
 794     DispatchEx_GetMemberProperties,
 795     DispatchEx_GetMemberName,
 796     DispatchEx_GetNextDispID,
 797     DispatchEx_GetNameSpaceParent
 798 };
 799
 800 static IDispatchEx testObj = { &testObjVtbl };
 801
 802 static HRESULT WINAPI enumDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 803 {
 804     return IEnumVARIANT_QueryInterface(&enumObj, riid, ppv);
 805 }
 806
 807 static IDispatchExVtbl enumDispVtbl = {
 808     enumDisp_QueryInterface,
 809     DispatchEx_AddRef,
 810     DispatchEx_Release,
 811     DispatchEx_GetTypeInfoCount,
 812     DispatchEx_GetTypeInfo,
 813     DispatchEx_GetIDsOfNames,
 814     DispatchEx_Invoke,
 815     DispatchEx_GetDispID,
 816     DispatchEx_InvokeEx,
 817     DispatchEx_DeleteMemberByName,
 818     DispatchEx_DeleteMemberByDispID,
 819     DispatchEx_GetMemberProperties,
 820     DispatchEx_GetMemberName,
 821     DispatchEx_GetNextDispID,
 822     DispatchEx_GetNameSpaceParent
 823 };
 824
 825 static IDispatchEx enumDisp = { &enumDispVtbl };
 826
 827 static HRESULT WINAPI collectionObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 828 {
 829     if(!strcmp_wa(bstrName, "reset")) {
 830         *pid = DISPID_COLLOBJ_RESET;
 831         return S_OK;
 832     }
 833
 834     ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
 835     return DISP_E_UNKNOWNNAME;
 836 }
 837
 838 static HRESULT WINAPI collectionObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 839         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 840 {
 841     switch(id) {
 842     case DISPID_NEWENUM:
 843         if(strict_dispid_check)
 844             CHECK_EXPECT(collectionobj_newenum_i);
 845
 846         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
 847         ok(pdp != NULL, "pdp == NULL\n");
 848         ok(!pdp->rgvarg, "rgvarg == NULL\n");
 849         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 850         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 851         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 852         ok(pvarRes != NULL, "pvarRes == NULL\n");
 853         ok(pei != NULL, "pei == NULL\n");
 854
 855         V_VT(pvarRes) = VT_UNKNOWN;
 856         V_UNKNOWN(pvarRes) = (IUnknown*)&enumObj;
 857         return S_OK;
 858     case DISPID_COLLOBJ_RESET:
 859         next_cnt = 0;
 860         return S_OK;
 861     }
 862
 863     ok(0, "unexpected call %d\n", id);
 864     return E_NOTIMPL;
 865 }
 866
 867 static IDispatchExVtbl collectionObjVtbl = {
 868     DispatchEx_QueryInterface,
 869     DispatchEx_AddRef,
 870     DispatchEx_Release,
 871     DispatchEx_GetTypeInfoCount,
 872     DispatchEx_GetTypeInfo,
 873     DispatchEx_GetIDsOfNames,
 874     DispatchEx_Invoke,
 875     collectionObj_GetDispID,
 876     collectionObj_InvokeEx,
 877     DispatchEx_DeleteMemberByName,
 878     DispatchEx_DeleteMemberByDispID,
 879     DispatchEx_GetMemberProperties,
 880     DispatchEx_GetMemberName,
 881     DispatchEx_GetNextDispID,
 882     DispatchEx_GetNameSpaceParent
 883 };
 884
 885 static IDispatchEx collectionObj = { &collectionObjVtbl };
 886
 887 static ULONG refobj_ref;
 888
 889 static ULONG WINAPI RefObj_AddRef(IDispatchEx *iface)
 890 {
 891     return ++refobj_ref;
 892 }
 893
 894 static ULONG WINAPI RefObj_Release(IDispatchEx *iface)
 895 {
 896     return --refobj_ref;
 897 }
 898
 899 static IDispatchExVtbl RefObjVtbl = {
 900     DispatchEx_QueryInterface,
 901     RefObj_AddRef,
 902     RefObj_Release,
 903     DispatchEx_GetTypeInfoCount,
 904     DispatchEx_GetTypeInfo,
 905     DispatchEx_GetIDsOfNames,
 906     DispatchEx_Invoke,
 907     DispatchEx_GetDispID,
 908     DispatchEx_InvokeEx,
 909     DispatchEx_DeleteMemberByName,
 910     DispatchEx_DeleteMemberByDispID,
 911     DispatchEx_GetMemberProperties,
 912     DispatchEx_GetMemberName,
 913     DispatchEx_GetNextDispID,
 914     DispatchEx_GetNameSpaceParent
 915 };
 916
 917 static IDispatchEx RefObj = { &RefObjVtbl };
 918
 919 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 920 {
 921     if(!strcmp_wa(bstrName, "ok")) {
 922         test_grfdex(grfdex, fdexNameCaseInsensitive);
 923         *pid = DISPID_GLOBAL_OK;
 924         return S_OK;
 925     }
 926     if(!strcmp_wa(bstrName, "trace")) {
 927         test_grfdex(grfdex, fdexNameCaseInsensitive);
 928         *pid = DISPID_GLOBAL_TRACE;
 929         return S_OK;
 930     }
 931     if(!strcmp_wa(bstrName, "reportSuccess")) {
 932         CHECK_EXPECT(global_success_d);
 933         test_grfdex(grfdex, fdexNameCaseInsensitive);
 934         *pid = DISPID_GLOBAL_REPORTSUCCESS;
 935         return S_OK;
 936     }
 937     if(!strcmp_wa(bstrName, "getVT")) {
 938         test_grfdex(grfdex, fdexNameCaseInsensitive);
 939         *pid = DISPID_GLOBAL_GETVT;
 940         return S_OK;
 941     }
 942     if(!strcmp_wa(bstrName, "isEnglishLang")) {
 943         test_grfdex(grfdex, fdexNameCaseInsensitive);
 944         *pid = DISPID_GLOBAL_ISENGLANG;
 945         return S_OK;
 946     }
 947     if(!strcmp_wa(bstrName, "testObj")) {
 948         test_grfdex(grfdex, fdexNameCaseInsensitive);
 949         *pid = DISPID_GLOBAL_TESTOBJ;
 950         return S_OK;
 951     }
 952     if(!strcmp_wa(bstrName, "collectionObj")) {
 953         test_grfdex(grfdex, fdexNameCaseInsensitive);
 954         *pid = DISPID_GLOBAL_COLLOBJ;
 955         return S_OK;
 956     }
 957     if(!strcmp_wa(bstrName, "vbvar")) {
 958         CHECK_EXPECT(global_vbvar_d);
 959         test_grfdex(grfdex, fdexNameCaseInsensitive);
 960         *pid = DISPID_GLOBAL_VBVAR;
 961         return S_OK;
 962     }
 963     if(!strcmp_wa(bstrName, "isNullDisp")) {
 964         test_grfdex(grfdex, fdexNameCaseInsensitive);
 965         *pid = DISPID_GLOBAL_ISNULLDISP;
 966         return S_OK;
 967     }
 968     if(!strcmp_wa(bstrName, "testDisp")) {
 969         test_grfdex(grfdex, fdexNameCaseInsensitive);
 970         *pid = DISPID_GLOBAL_TESTDISP;
 971         return S_OK;
 972     }
 973     if(!strcmp_wa(bstrName, "RefObj")) {
 974         test_grfdex(grfdex, fdexNameCaseInsensitive);
 975         *pid = DISPID_GLOBAL_REFOBJ;
 976         return S_OK;
 977     }
 978     if(!strcmp_wa(bstrName, "propargput")) {
 979         CHECK_EXPECT(global_propargput_d);
 980         test_grfdex(grfdex, fdexNameCaseInsensitive);
 981         *pid = DISPID_GLOBAL_PROPARGPUT;
 982         return S_OK;
 983     }
 984     if(!strcmp_wa(bstrName, "propargput1")) {
 985         CHECK_EXPECT(global_propargput1_d);
 986         test_grfdex(grfdex, fdexNameCaseInsensitive);
 987         *pid = DISPID_GLOBAL_PROPARGPUT1;
 988         return S_OK;
 989     }
 990     if(!strcmp_wa(bstrName, "counter")) {
 991         test_grfdex(grfdex, fdexNameCaseInsensitive);
 992         *pid = DISPID_GLOBAL_COUNTER;
 993         return S_OK;
 994     }
 995     if(!strcmp_wa(bstrName, "doubleAsString")) {
 996         test_grfdex(grfdex, fdexNameCaseInsensitive);
 997         *pid = DISPID_GLOBAL_DOUBLEASSTRING;
 998         return S_OK;
 999     }
1000     if(!strcmp_wa(bstrName, "testArray")) {
1001         test_grfdex(grfdex, fdexNameCaseInsensitive);
1002         *pid = DISPID_GLOBAL_TESTARRAY;
1003         return S_OK;
1004     }
1005     if(!strcmp_wa(bstrName, "throwInt")) {
1006         test_grfdex(grfdex, fdexNameCaseInsensitive);
1007         *pid = DISPID_GLOBAL_THROWINT;
1008         return S_OK;
1009     }
1010
1011     if(strict_dispid_check && strcmp_wa(bstrName, "x"))
1012         ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
1013     return DISP_E_UNKNOWNNAME;
1014 }
1015
1016 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1017         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1018 {
1019     switch(id) {
1020     case DISPID_GLOBAL_OK: {
1021         VARIANT *b;
1022
1023         ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1024         ok(pdp != NULL, "pdp == NULL\n");
1025         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1026         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1027         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1028         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1029         if(wFlags & INVOKE_PROPERTYGET)
1030             ok(pvarRes != NULL, "pvarRes == NULL\n");
1031         else
1032             ok(!pvarRes, "pvarRes != NULL\n");
1033         ok(pei != NULL, "pei == NULL\n");
1034
1035         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1036
1037         b = pdp->rgvarg+1;
1038         if(V_VT(b) == (VT_BYREF|VT_VARIANT))
1039             b = V_BYREF(b);
1040
1041         ok(V_VT(b) == VT_BOOL, "V_VT(b) = %d\n", V_VT(b));
1042
1043         ok(V_BOOL(b), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
1044         return S_OK;
1045     }
1046
1047      case DISPID_GLOBAL_TRACE:
1048         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1049         ok(pdp != NULL, "pdp == NULL\n");
1050         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1051         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1052         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1053         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1054         ok(!pvarRes, "pvarRes != NULL\n");
1055         ok(pei != NULL, "pei == NULL\n");
1056
1057         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1058         if(V_VT(pdp->rgvarg) == VT_BSTR)
1059             trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
1060
1061         return S_OK;
1062
1063     case DISPID_GLOBAL_REPORTSUCCESS:
1064         CHECK_EXPECT(global_success_i);
1065
1066         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1067         ok(pdp != NULL, "pdp == NULL\n");
1068         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1069         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
1070         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1071         ok(!pvarRes, "pvarRes != NULL\n");
1072         ok(pei != NULL, "pei == NULL\n");
1073
1074         return S_OK;
1075
1076     case DISPID_GLOBAL_GETVT:
1077         ok(pdp != NULL, "pdp == NULL\n");
1078         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1079         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1080         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1081         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1082         ok(pvarRes != NULL, "pvarRes == NULL\n");
1083         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1084         ok(pei != NULL, "pei == NULL\n");
1085
1086         V_VT(pvarRes) = VT_BSTR;
1087         V_BSTR(pvarRes) = a2bstr(vt2a(pdp->rgvarg));
1088         return S_OK;
1089
1090     case DISPID_GLOBAL_ISENGLANG:
1091         ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1092         ok(pdp != NULL, "pdp == NULL\n");
1093         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1094         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
1095         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1096         ok(pvarRes != NULL, "pvarRes == NULL\n");
1097         ok(pei != NULL, "pei == NULL\n");
1098
1099         V_VT(pvarRes) = VT_BOOL;
1100         V_BOOL(pvarRes) = is_english ? VARIANT_TRUE : VARIANT_FALSE;
1101         return S_OK;
1102
1103     case DISPID_GLOBAL_VBVAR:
1104         CHECK_EXPECT(global_vbvar_i);
1105
1106         ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1107         ok(pdp != NULL, "pdp == NULL\n");
1108         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1109         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1110         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1111         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1112         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1113         ok(!pvarRes, "pvarRes != NULL\n");
1114         ok(pei != NULL, "pei == NULL\n");
1115
1116         ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1117         ok(V_I2(pdp->rgvarg) == 3, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1118         return S_OK;
1119
1120     case DISPID_GLOBAL_TESTOBJ:
1121         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1122
1123         ok(pdp != NULL, "pdp == NULL\n");
1124         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1125         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1126         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1127         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1128         ok(pvarRes != NULL, "pvarRes == NULL\n");
1129         ok(pei != NULL, "pei == NULL\n");
1130
1131         V_VT(pvarRes) = VT_DISPATCH;
1132         V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
1133         return S_OK;
1134
1135     case DISPID_GLOBAL_COLLOBJ:
1136         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1137
1138         ok(pdp != NULL, "pdp == NULL\n");
1139         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1140         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1141         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1142         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1143         ok(pvarRes != NULL, "pvarRes == NULL\n");
1144         ok(pei != NULL, "pei == NULL\n");
1145
1146         V_VT(pvarRes) = VT_DISPATCH;
1147         V_DISPATCH(pvarRes) = (IDispatch*)&collectionObj;
1148         return S_OK;
1149
1150     case DISPID_GLOBAL_REFOBJ:
1151         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1152
1153         ok(pdp != NULL, "pdp == NULL\n");
1154         ok(!pdp->rgvarg, "rgvarg == NULL\n");
1155         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1156         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1157         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1158         ok(pvarRes != NULL, "pvarRes == NULL\n");
1159         ok(pei != NULL, "pei == NULL\n");
1160
1161         IDispatchEx_AddRef(&RefObj);
1162         V_VT(pvarRes) = VT_DISPATCH;
1163         V_DISPATCH(pvarRes) = (IDispatch*)&RefObj;
1164         return S_OK;
1165
1166     case DISPID_GLOBAL_ISNULLDISP: {
1167         VARIANT *v;
1168
1169         ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1170         ok(pdp != NULL, "pdp == NULL\n");
1171         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1172         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1173         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1174         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1175         ok(pvarRes != NULL, "pvarRes == NULL\n");
1176         ok(pei != NULL, "pei == NULL\n");
1177
1178         v = pdp->rgvarg;
1179         if(V_VT(v) == (VT_VARIANT|VT_BYREF))
1180             v = V_VARIANTREF(v);
1181
1182         ok(V_VT(v) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1183         V_VT(pvarRes) = VT_BOOL;
1184         V_BOOL(pvarRes) = V_DISPATCH(v) ? VARIANT_FALSE : VARIANT_TRUE;
1185         return S_OK;
1186     }
1187
1188     case DISPID_GLOBAL_TESTDISP:
1189         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1190         ok(pdp != NULL, "pdp == NULL\n");
1191         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1192         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1193         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1194         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1195         ok(!pvarRes, "pvarRes != NULL\n");
1196         ok(pei != NULL, "pei == NULL\n");
1197
1198         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1199         test_disp(V_DISPATCH(pdp->rgvarg));
1200         return S_OK;
1201
1202     case DISPID_GLOBAL_PROPARGPUT:
1203         CHECK_EXPECT(global_propargput_i);
1204
1205         ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1206         ok(pdp != NULL, "pdp == NULL\n");
1207         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1208         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1209         ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
1210         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1211         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1212         ok(!pvarRes, "pvarRes != NULL\n");
1213         ok(pei != NULL, "pei == NULL\n");
1214
1215         ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1216         ok(V_I2(pdp->rgvarg) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1217
1218         ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1219         ok(V_I2(pdp->rgvarg+1) == 2, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp->rgvarg+1));
1220
1221         ok(V_VT(pdp->rgvarg+2) == VT_I2, "V_VT(psp->rgvargs+2) = %d\n", V_VT(pdp->rgvarg+2));
1222         ok(V_I2(pdp->rgvarg+2) == 1, "V_I2(psp->rgvargs+2) = %d\n", V_I2(pdp->rgvarg+2));
1223         return S_OK;
1224
1225     case DISPID_GLOBAL_PROPARGPUT1:
1226         CHECK_EXPECT(global_propargput1_i);
1227
1228         ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1229         ok(pdp != NULL, "pdp == NULL\n");
1230         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1231         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1232         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1233         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1234         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1235         ok(!pvarRes, "pvarRes != NULL\n");
1236         ok(pei != NULL, "pei == NULL\n");
1237
1238         ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1239         ok(V_I2(pdp->rgvarg) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1240
1241         ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1242         ok(V_I2(pdp->rgvarg+1) == 1, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp->rgvarg+1));
1243
1244         return S_OK;
1245
1246     case DISPID_GLOBAL_COUNTER:
1247         ok(pdp != NULL, "pdp == NULL\n");
1248         todo_wine ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1249         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1250         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1251         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1252         ok(pvarRes != NULL, "pvarRes == NULL\n");
1253         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1254         ok(pei != NULL, "pei == NULL\n");
1255
1256         V_VT(pvarRes) = VT_I2;
1257         V_I2(pvarRes) = test_counter++;
1258         return S_OK;
1259
1260     case DISPID_GLOBAL_DOUBLEASSTRING:
1261         ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1262         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1263         ok(V_VT(pdp->rgvarg) == VT_R8, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1264         ok(pvarRes != NULL, "pvarRes == NULL\n");
1265
1266         V_VT(pvarRes) = VT_BSTR;
1267         return VarBstrFromR8(V_R8(pdp->rgvarg), 0, 0, &V_BSTR(pvarRes));
1268
1269     case DISPID_GLOBAL_TESTARRAY:
1270         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1271         ok(pdp != NULL, "pdp == NULL\n");
1272         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1273         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1274         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1275         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1276         ok(!pvarRes, "pvarRes != NULL\n");
1277         ok(pei != NULL, "pei == NULL\n");
1278
1279         ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1280         ok(V_VT(pdp->rgvarg) == (VT_BYREF|VT_VARIANT), "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1281         ok(V_VT(V_VARIANTREF(pdp->rgvarg)) == (VT_ARRAY|VT_BYREF|VT_VARIANT),
1282            "V_VT(V_VARIANTREF(psp->rgvargs)) = %d\n", V_VT(V_VARIANTREF(pdp->rgvarg)));
1283         if(V_I2(pdp->rgvarg+1) == -1)
1284             ok(!*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)), "*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)) != NULL\n");
1285         else
1286             test_safearray(*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)), V_I2(pdp->rgvarg+1));
1287         return S_OK;
1288
1289     case DISPID_GLOBAL_THROWINT: {
1290         VARIANT *v = pdp->rgvarg;
1291         HRESULT hres;
1292
1293         ok((wFlags & ~INVOKE_PROPERTYGET) == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1294         ok(pdp != NULL, "pdp == NULL\n");
1295         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1296         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1297         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1298         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1299         ok(pei != NULL, "pei == NULL\n");
1300         if(pvarRes) {
1301             ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1302             V_VT(pvarRes) = VT_BOOL;
1303             V_BOOL(pvarRes) = VARIANT_FALSE;
1304         }
1305
1306         if(V_VT(v) == (VT_VARIANT|VT_BYREF))
1307             v = V_VARIANTREF(v);
1308
1309         switch(V_VT(v)) {
1310         case VT_I2:
1311             hres = V_I2(v);
1312             break;
1313         case VT_I4:
1314             hres = V_I4(v);
1315             break;
1316         default:
1317             ok(0, "unexpected vt %d\n", V_VT(v));
1318             return E_INVALIDARG;
1319         }
1320
1321         return hres;
1322     }
1323     }
1324
1325     ok(0, "unexpected call %d\n", id);
1326     return DISP_E_MEMBERNOTFOUND;
1327 }
1328
1329 static IDispatchExVtbl GlobalVtbl = {
1330     DispatchEx_QueryInterface,
1331     DispatchEx_AddRef,
1332     DispatchEx_Release,
1333     DispatchEx_GetTypeInfoCount,
1334     DispatchEx_GetTypeInfo,
1335     DispatchEx_GetIDsOfNames,
1336     DispatchEx_Invoke,
1337     Global_GetDispID,
1338     Global_InvokeEx,
1339     DispatchEx_DeleteMemberByName,
1340     DispatchEx_DeleteMemberByDispID,
1341     DispatchEx_GetMemberProperties,
1342     DispatchEx_GetMemberName,
1343     DispatchEx_GetNextDispID,
1344     DispatchEx_GetNameSpaceParent
1345 };
1346
1347 static IDispatchEx Global = { &GlobalVtbl };
1348
1349 static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface, REFIID riid, void **ppv)
1350 {
1351     ok(0, "unexpected call\n");
1352     return E_NOINTERFACE;
1353 }
1354
1355 static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface)
1356 {
1357     return 2;
1358 }
1359
1360 static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface)
1361 {
1362     return 1;
1363 }
1364
1365 static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *phwnd)
1366 {
1367     if(!allow_ui)
1368         CHECK_EXPECT(GetWindow);
1369     *phwnd = NULL;
1370     return S_OK;
1371 }
1372
1373 static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL fEnable)
1374 {
1375     if(allow_ui)
1376         return S_OK;
1377
1378     CHECK_EXPECT(EnableModeless);
1379     ok(!fEnable, "fEnable = %x\n", fEnable);
1380     return E_FAIL;
1381 }
1382
1383 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = {
1384     ActiveScriptSiteWindow_QueryInterface,
1385     ActiveScriptSiteWindow_AddRef,
1386     ActiveScriptSiteWindow_Release,
1387     ActiveScriptSiteWindow_GetWindow,
1388     ActiveScriptSiteWindow_EnableModeless
1389 };
1390
1391 static IActiveScriptSiteWindow ActiveScriptSiteWindow = { &ActiveScriptSiteWindowVtbl };
1392
1393 static HRESULT WINAPI ActiveScriptSiteUIControl_QueryInterface(IActiveScriptSiteUIControl *iface, REFIID riid, void **ppv)
1394 {
1395     ok(0, "unexpected call\n");
1396     return E_NOINTERFACE;
1397 }
1398
1399 static ULONG WINAPI ActiveScriptSiteUIControl_AddRef(IActiveScriptSiteUIControl *iface)
1400 {
1401     return 2;
1402 }
1403
1404 static ULONG WINAPI ActiveScriptSiteUIControl_Release(IActiveScriptSiteUIControl *iface)
1405 {
1406     return 1;
1407 }
1408
1409 static HRESULT WINAPI ActiveScriptSiteUIControl_GetUIBehavior(IActiveScriptSiteUIControl *iface, SCRIPTUICITEM UicItem,
1410         SCRIPTUICHANDLING *pUicHandling)
1411 {
1412     if(!allow_ui) {
1413         CHECK_EXPECT(GetUIBehavior);
1414         ok(UicItem == SCRIPTUICITEM_MSGBOX, "UidItem = %d\n", UicItem);
1415     }
1416     *pUicHandling = uic_handling;
1417     return S_OK;
1418 }
1419
1420 static const IActiveScriptSiteUIControlVtbl ActiveScriptSiteUIControlVtbl = {
1421     ActiveScriptSiteUIControl_QueryInterface,
1422     ActiveScriptSiteUIControl_AddRef,
1423     ActiveScriptSiteUIControl_Release,
1424     ActiveScriptSiteUIControl_GetUIBehavior
1425 };
1426
1427 static IActiveScriptSiteUIControl ActiveScriptSiteUIControl = { &ActiveScriptSiteUIControlVtbl };
1428
1429 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
1430 {
1431     *ppv = NULL;
1432
1433     if(IsEqualGUID(&IID_IUnknown, riid))
1434         *ppv = iface;
1435     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
1436         *ppv = iface;
1437     else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid))
1438         *ppv = &ActiveScriptSiteWindow;
1439     else if(IsEqualGUID(&IID_IActiveScriptSiteUIControl, riid))
1440         *ppv = &ActiveScriptSiteUIControl;
1441     else
1442         return E_NOINTERFACE;
1443
1444     IUnknown_AddRef((IUnknown*)*ppv);
1445     return S_OK;
1446 }
1447
1448 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
1449 {
1450     return 2;
1451 }
1452
1453 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
1454 {
1455     return 1;
1456 }
1457
1458 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
1459 {
1460     *plcid = GetUserDefaultLCID();
1461     return S_OK;
1462 }
1463
1464 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
1465         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
1466 {
1467     ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
1468     ok(!ppti, "ppti != NULL\n");
1469
1470     if(strcmp_wa(pstrName, "test"))
1471         ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
1472
1473     *ppiunkItem = (IUnknown*)&Global;
1474     return S_OK;
1475 }
1476
1477 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
1478 {
1479     return E_NOTIMPL;
1480 }
1481
1482 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
1483         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
1484 {
1485     return E_NOTIMPL;
1486 }
1487
1488 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
1489 {
1490     return E_NOTIMPL;
1491 }
1492
1493 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1494 {
1495     return E_NOTIMPL;
1496 }
1497
1498 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
1499 {
1500     return E_NOTIMPL;
1501 }
1502
1503 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
1504 {
1505     return E_NOTIMPL;
1506 }
1507
1508 #undef ACTSCPSITE_THIS
1509
1510 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
1511     ActiveScriptSite_QueryInterface,
1512     ActiveScriptSite_AddRef,
1513     ActiveScriptSite_Release,
1514     ActiveScriptSite_GetLCID,
1515     ActiveScriptSite_GetItemInfo,
1516     ActiveScriptSite_GetDocVersionString,
1517     ActiveScriptSite_OnScriptTerminate,
1518     ActiveScriptSite_OnStateChange,
1519     ActiveScriptSite_OnScriptError,
1520     ActiveScriptSite_OnEnterScript,
1521     ActiveScriptSite_OnLeaveScript
1522 };
1523
1524 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
1525
1526 static IActiveScript *create_script(void)
1527 {
1528     IActiveScript *script;
1529     HRESULT hres;
1530
1531     hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1532             &IID_IActiveScript, (void**)&script);
1533     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1534
1535     return script;
1536 }
1537
1538 static IActiveScript *create_and_init_script(DWORD flags)
1539 {
1540     IActiveScriptParse *parser;
1541     IActiveScript *engine;
1542     HRESULT hres;
1543
1544     engine = create_script();
1545     if(!engine)
1546         return NULL;
1547
1548     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1549     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1550
1551     hres = IActiveScriptParse_InitNew(parser);
1552     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1553
1554     IActiveScriptParse_Release(parser);
1555
1556     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1557     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1558
1559     hres = IActiveScript_AddNamedItem(engine, testW,
1560             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1561     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1562
1563     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1564     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1565
1566     return engine;
1567 }
1568
1569 static void close_script(IActiveScript *script)
1570 {
1571     ULONG ref;
1572     HRESULT hres;
1573
1574     hres = IActiveScript_Close(script);
1575     ok(hres == S_OK, "Close failed: %08x\n", hres);
1576
1577     ref = IActiveScript_Release(script);
1578     ok(!ref, "ref=%u\n", ref);
1579 }
1580
1581 static HRESULT parse_script(DWORD flags, BSTR script_str, const WCHAR *delim)
1582 {
1583     IActiveScriptParse *parser;
1584     IActiveScript *engine;
1585     IDispatch *script_disp;
1586     LONG ref;
1587     HRESULT hres;
1588
1589     engine = create_and_init_script(flags);
1590     if(!engine)
1591         return S_OK;
1592
1593     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1594     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1595     if (FAILED(hres))
1596     {
1597         IActiveScript_Release(engine);
1598         return hres;
1599     }
1600
1601     hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1602     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1603     ok(script_disp != NULL, "script_disp == NULL\n");
1604     ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1605
1606     test_counter = 0;
1607
1608     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, delim, 0, 0, 0, NULL, NULL);
1609
1610     IActiveScript_Close(engine);
1611
1612     IDispatch_Release(script_disp);
1613     IActiveScript_Release(engine);
1614
1615     ref = IActiveScriptParse_Release(parser);
1616     ok(!ref, "ref=%d\n", ref);
1617     return hres;
1618 }
1619
1620 static void parse_script_af(DWORD flags, const char *src)
1621 {
1622     BSTR tmp;
1623     HRESULT hres;
1624
1625     tmp = a2bstr(src);
1626     hres = parse_script(flags, tmp, NULL);
1627     SysFreeString(tmp);
1628     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1629 }
1630
1631 static HRESULT parse_script_ar(const char *src)
1632 {
1633     BSTR tmp;
1634     HRESULT hres;
1635
1636     tmp = a2bstr(src);
1637     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp, NULL);
1638     SysFreeString(tmp);
1639     return hres;
1640 }
1641
1642 static void parse_script_a(const char *src)
1643 {
1644     parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1645 }
1646
1647 #define parse_htmlscript_a(a) _parse_htmlscript_a(__LINE__,a)
1648 static void _parse_htmlscript_a(unsigned line, const char *src)
1649 {
1650     BSTR tmp;
1651     HRESULT hres;
1652
1653     static const WCHAR script_delimW[] = {'<','/','S','C','R','I','P','T','>',0};
1654
1655     tmp = a2bstr(src);
1656     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp, script_delimW);
1657     SysFreeString(tmp);
1658     ok_(__FILE__,line)(hres == S_OK, "parse_script failed: %08x\n", hres);
1659 }
1660
1661 static IDispatchEx *parse_procedure(IActiveScriptParseProcedure2 *parse_proc, const char *src)
1662 {
1663     IDispatchEx *dispex;
1664     IDispatch *disp;
1665     BSTR str;
1666     HRESULT hres;
1667
1668     static const WCHAR delimiterW[] = {'\"',0};
1669
1670     str = a2bstr(src);
1671     hres = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, str, NULL, emptyW, NULL, NULL, delimiterW, 0, 0,
1672             SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1673     SysFreeString(str);
1674     ok(hres == S_OK, "ParseProcedureText failed: %08x\n", hres);
1675     ok(disp != NULL, "disp = NULL\n");
1676
1677     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1678     IDispatch_Release(disp);
1679     ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
1680
1681     return dispex;
1682 }
1683
1684
1685 static void test_procedures(void)
1686 {
1687     IActiveScriptParseProcedure2 *parse_proc;
1688     DISPPARAMS dp = {NULL};
1689     IActiveScript *script;
1690     IDispatchEx *proc;
1691     EXCEPINFO ei = {0};
1692     VARIANT v;
1693     HRESULT hres;
1694
1695     script = create_and_init_script(0);
1696
1697     hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
1698     ok(hres == S_OK, "Could not get IActiveScriptParseProcedure2 iface: %08x\n", hres);
1699
1700     proc = parse_procedure(parse_proc, "dim x\nif true then x=false");
1701
1702     V_VT(&v) = VT_EMPTY;
1703     hres = IDispatchEx_InvokeEx(proc, DISPID_VALUE, 0, DISPATCH_METHOD, &dp, &v, &ei, &caller_sp);
1704     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
1705
1706     IDispatchEx_Release(proc);
1707
1708     IActiveScriptParseProcedure2_Release(parse_proc);
1709
1710     close_script(script);
1711 }
1712
1713 static void test_gc(void)
1714 {
1715     IActiveScriptParse *parser;
1716     IActiveScript *engine;
1717     BSTR src;
1718     HRESULT hres;
1719
1720     strict_dispid_check = FALSE;
1721
1722     engine = create_script();
1723     if(!engine)
1724         return;
1725
1726     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1727     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1728
1729     hres = IActiveScriptParse_InitNew(parser);
1730     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1731
1732     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1733     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1734
1735     hres = IActiveScript_AddNamedItem(engine, testW,
1736             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1737     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1738
1739     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1740     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1741
1742     src = a2bstr(
1743             "class C\n"
1744             "    Public ref\n"
1745             "    Public Sub Class_Terminate\n"
1746             "        Call reportSuccess()\n"
1747             "    End Sub\n"
1748             "End Class\n"
1749             "Dim x\n"
1750             "set x = new C\n"
1751             "set x.ref = x\n"
1752             "set x = nothing\n");
1753
1754     hres = IActiveScriptParse_ParseScriptText(parser, src, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1755     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1756     SysFreeString(src);
1757
1758     SET_EXPECT(global_success_d);
1759     SET_EXPECT(global_success_i);
1760     IActiveScript_Close(engine);
1761     CHECK_CALLED(global_success_d);
1762     CHECK_CALLED(global_success_i);
1763
1764     IActiveScript_Release(engine);
1765     IActiveScriptParse_Release(parser);
1766 }
1767
1768 static void test_msgbox(void)
1769 {
1770     HRESULT hres;
1771
1772     uic_handling = SCRIPTUICHANDLING_NOUIDEFAULT;
1773
1774     SET_EXPECT(GetUIBehavior);
1775     SET_EXPECT(GetWindow);
1776     SET_EXPECT(EnableModeless);
1777     hres = parse_script_ar("MsgBox \"testing...\"");
1778     CLEAR_CALLED(GetUIBehavior);
1779     CLEAR_CALLED(GetWindow);
1780     CLEAR_CALLED(EnableModeless);
1781     if(FAILED(hres)) {
1782         win_skip("Skipping MsgBox tests, broken (probably too old) vbscript\n");
1783         return;
1784     }
1785
1786     SET_EXPECT(GetUIBehavior);
1787     parse_script_a("dim r\n r=MsgBox(\"testing...\")\n Call ok(r=0, \"r=\"&r)");
1788     CHECK_CALLED(GetUIBehavior);
1789
1790     SET_EXPECT(GetUIBehavior);
1791     parse_script_a("MsgBox 10");
1792     CHECK_CALLED(GetUIBehavior);
1793
1794     uic_handling = SCRIPTUICHANDLING_ALLOW;
1795
1796     SET_EXPECT(GetUIBehavior);
1797     SET_EXPECT(GetWindow);
1798     SET_EXPECT(EnableModeless);
1799     hres = parse_script_ar("MsgBox \"testing...\"");
1800     ok(FAILED(hres), "script not failed\n");
1801     CHECK_CALLED(GetUIBehavior);
1802     CHECK_CALLED(GetWindow);
1803     CHECK_CALLED(EnableModeless);
1804
1805     uic_handling = SCRIPTUICHANDLING_NOUIERROR;
1806
1807     SET_EXPECT(GetUIBehavior);
1808     hres = parse_script_ar("MsgBox \"testing...\"");
1809     ok(FAILED(hres), "script not failed\n");
1810     CHECK_CALLED(GetUIBehavior);
1811 }
1812
1813 static HRESULT test_global_vars_ref(BOOL use_close)
1814 {
1815     IActiveScriptParse *parser;
1816     IActiveScript *engine;
1817     BSTR script_str;
1818     LONG ref;
1819     HRESULT hres;
1820
1821     engine = create_script();
1822     if(!engine)
1823         return S_OK;
1824
1825     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1826     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1827     if (FAILED(hres))
1828     {
1829         IActiveScript_Release(engine);
1830         return hres;
1831     }
1832
1833     hres = IActiveScriptParse_InitNew(parser);
1834     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1835
1836     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1837     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1838
1839     hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1840     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1841
1842     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1843     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1844
1845     refobj_ref = 0;
1846
1847     script_str = a2bstr("Dim x\nset x = RefObj\n");
1848     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1849     SysFreeString(script_str);
1850
1851     ok(refobj_ref, "refobj_ref = 0\n");
1852
1853     if(use_close) {
1854         hres = IActiveScript_Close(engine);
1855         ok(hres == S_OK, "Close failed: %08x\n", hres);
1856     }else {
1857         hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_UNINITIALIZED);
1858         ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1859     }
1860
1861     ok(!refobj_ref, "refobj_ref = %d\n", refobj_ref);
1862
1863     IActiveScript_Release(engine);
1864
1865     ref = IActiveScriptParse_Release(parser);
1866     ok(!ref, "ref=%d\n", ref);
1867     return hres;
1868 }
1869
1870 static BSTR get_script_from_file(const char *filename)
1871 {
1872     DWORD size, len;
1873     HANDLE file, map;
1874     const char *file_map;
1875     BSTR ret;
1876
1877     file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
1878     if(file == INVALID_HANDLE_VALUE) {
1879         trace("Could not open file: %u\n", GetLastError());
1880         return NULL;
1881     }
1882
1883     size = GetFileSize(file, NULL);
1884
1885     map = CreateFileMappingW(file, NULL, PAGE_READONLY, 0, 0, NULL);
1886     CloseHandle(file);
1887     if(map == INVALID_HANDLE_VALUE) {
1888         trace("Could not create file mapping: %u\n", GetLastError());
1889         return NULL;
1890     }
1891
1892     file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
1893     CloseHandle(map);
1894     if(!file_map) {
1895         trace("MapViewOfFile failed: %u\n", GetLastError());
1896         return NULL;
1897     }
1898
1899     len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
1900     ret = SysAllocStringLen(NULL, len);
1901     MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
1902
1903     UnmapViewOfFile(file_map);
1904
1905     return ret;
1906 }
1907
1908 static void run_from_file(const char *filename)
1909 {
1910     BSTR script_str;
1911     HRESULT hres;
1912
1913     script_str = get_script_from_file(filename);
1914     if(!script_str)
1915         return;
1916
1917     strict_dispid_check = FALSE;
1918     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str, NULL);
1919     SysFreeString(script_str);
1920     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1921 }
1922
1923 static void run_from_res(const char *name)
1924 {
1925     const char *data;
1926     DWORD size, len;
1927     BSTR str;
1928     HRSRC src;
1929     HRESULT hres;
1930
1931     strict_dispid_check = FALSE;
1932     test_name = name;
1933
1934     src = FindResourceA(NULL, name, (LPCSTR)40);
1935     ok(src != NULL, "Could not find resource %s\n", name);
1936
1937     size = SizeofResource(NULL, src);
1938     data = LoadResource(NULL, src);
1939
1940     len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
1941     str = SysAllocStringLen(NULL, len);
1942     MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
1943
1944     SET_EXPECT(global_success_d);
1945     SET_EXPECT(global_success_i);
1946     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str, NULL);
1947     CHECK_CALLED(global_success_d);
1948     CHECK_CALLED(global_success_i);
1949
1950     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1951     SysFreeString(str);
1952 }
1953
1954 static void run_tests(void)
1955 {
1956     HRESULT hres;
1957
1958     strict_dispid_check = TRUE;
1959
1960     parse_script_a("");
1961     parse_script_a("' empty ;");
1962
1963     SET_EXPECT(global_success_d);
1964     SET_EXPECT(global_success_i);
1965     parse_script_a("reportSuccess");
1966     CHECK_CALLED(global_success_d);
1967     CHECK_CALLED(global_success_i);
1968
1969     SET_EXPECT(global_success_d);
1970     SET_EXPECT(global_success_i);
1971     parse_script_a("reportSuccess()");
1972     CHECK_CALLED(global_success_d);
1973     CHECK_CALLED(global_success_i);
1974
1975     SET_EXPECT(global_success_d);
1976     SET_EXPECT(global_success_i);
1977     parse_script_a("Call reportSuccess");
1978     CHECK_CALLED(global_success_d);
1979     CHECK_CALLED(global_success_i);
1980
1981     SET_EXPECT(global_success_d);
1982     SET_EXPECT(global_success_i);
1983     parse_script_a("test.reportSuccess()");
1984     CHECK_CALLED(global_success_d);
1985     CHECK_CALLED(global_success_i);
1986
1987     SET_EXPECT(global_vbvar_d);
1988     SET_EXPECT(global_vbvar_i);
1989     parse_script_a("Option Explicit\nvbvar = 3");
1990     CHECK_CALLED(global_vbvar_d);
1991     CHECK_CALLED(global_vbvar_i);
1992
1993     SET_EXPECT(global_vbvar_d);
1994     SET_EXPECT(global_vbvar_i);
1995     parse_script_a("Option Explicit\nvbvar() = 3");
1996     CHECK_CALLED(global_vbvar_d);
1997     CHECK_CALLED(global_vbvar_i);
1998
1999     SET_EXPECT(testobj_propget_d);
2000     SET_EXPECT(testobj_propget_i);
2001     parse_script_a("dim x\nx = testObj.propget");
2002     CHECK_CALLED(testobj_propget_d);
2003     CHECK_CALLED(testobj_propget_i);
2004
2005     SET_EXPECT(testobj_propput_d);
2006     SET_EXPECT(testobj_propput_i);
2007     parse_script_a("testObj.propput = 1");
2008     CHECK_CALLED(testobj_propput_d);
2009     CHECK_CALLED(testobj_propput_i);
2010
2011     SET_EXPECT(global_propargput_d);
2012     SET_EXPECT(global_propargput_i);
2013     parse_script_a("propargput(counter(), counter()) = counter()");
2014     CHECK_CALLED(global_propargput_d);
2015     CHECK_CALLED(global_propargput_i);
2016
2017     SET_EXPECT(global_propargput_d);
2018     SET_EXPECT(global_propargput_i);
2019     parse_script_a("test.propargput(counter(), counter()) = counter()");
2020     CHECK_CALLED(global_propargput_d);
2021     CHECK_CALLED(global_propargput_i);
2022
2023     SET_EXPECT(global_propargput1_d);
2024     SET_EXPECT(global_propargput1_i);
2025     parse_script_a("propargput1 (counter()) = counter()");
2026     CHECK_CALLED(global_propargput1_d);
2027     CHECK_CALLED(global_propargput1_i);
2028
2029     SET_EXPECT(global_propargput1_d);
2030     SET_EXPECT(global_propargput1_i);
2031     parse_script_a("test.propargput1(counter()) = counter()");
2032     CHECK_CALLED(global_propargput1_d);
2033     CHECK_CALLED(global_propargput1_i);
2034
2035     parse_htmlscript_a("<!--");
2036     parse_htmlscript_a(" -->");
2037     parse_htmlscript_a("<!--\ndim x\nx=1\n-->\n");
2038     parse_htmlscript_a("<!--\ndim x\n-->\n<!--\nx=1\n-->\n");
2039
2040     hres = parse_script_ar("<!--");
2041     ok(FAILED(hres), "script didn't fail\n");
2042
2043     SET_EXPECT(global_success_d);
2044     SET_EXPECT(global_success_i);
2045     parse_htmlscript_a("<!--\n<!-- ignore this <> <>\n--> <>\nCall reportSuccess()\n-->\n");
2046     CHECK_CALLED(global_success_d);
2047     CHECK_CALLED(global_success_i);
2048
2049     next_cnt = 0;
2050     SET_EXPECT(collectionobj_newenum_i);
2051     SET_EXPECT(Next);
2052     parse_script_a("for each x in collectionObj\nnext");
2053     CHECK_CALLED(collectionobj_newenum_i);
2054     CHECK_CALLED(Next);
2055     ok(next_cnt == 4, "next_cnt = %d\n", next_cnt);
2056
2057     parse_script_a("x = 1\n Call ok(x = 1, \"x = \" & x)");
2058
2059     parse_script_a("x = _    \n3");
2060
2061     test_global_vars_ref(TRUE);
2062     test_global_vars_ref(FALSE);
2063
2064     hres = parse_script_ar("throwInt(&h80080008&)");
2065     ok(hres == 0x80080008, "hres = %08x\n", hres);
2066
2067     /* DISP_E_BADINDEX */
2068     hres = parse_script_ar("throwInt(&h8002000b&)");
2069     ok(hres == MAKE_VBSERROR(9), "hres = %08x\n", hres);
2070
2071     hres = parse_script_ar("throwInt(&h800a0009&)");
2072     ok(hres == MAKE_VBSERROR(9), "hres = %08x\n", hres);
2073
2074     /* E_NOTIMPL */
2075     hres = parse_script_ar("throwInt(&h80004001&)");
2076     ok(hres == MAKE_VBSERROR(445), "hres = %08x\n", hres);
2077
2078     strict_dispid_check = FALSE;
2079
2080     SET_EXPECT(testobj_value_i);
2081     parse_script_a("dim n,o\n set o = testObj\n n = o(1,2)\n call ok(n=2, \"n = \" & n)\n");
2082     CHECK_CALLED(testobj_value_i);
2083
2084     SET_EXPECT(testobj_value_i);
2085     parse_script_a("dim n,o\n set o = testObj\n n = o\n call ok(n=0, \"n = \" & n)\n");
2086     CHECK_CALLED(testobj_value_i);
2087
2088     parse_script_a("Sub testsub\n"
2089                    "x = 1\n"
2090                    "Call ok(x = 1, \"x = \" & x)\n"
2091                    "End Sub\n"
2092                    "Call testsub()");
2093
2094     parse_script_a("Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n");
2095     parse_script_a("Call ok(x = \"\", \"x = \" & x)\n");
2096     parse_script_a("x = y\n"
2097                    "Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n"
2098                    "Call ok(getVT(y) = \"VT_EMPTY*\", \"getVT(y) = \" & getVT(y))");
2099     hres = parse_script_ar("x = y(\"a\")");
2100     ok(FAILED(hres), "script didn't fail\n");
2101
2102     run_from_res("lang.vbs");
2103     run_from_res("api.vbs");
2104     run_from_res("regexp.vbs");
2105     run_from_res("error.vbs");
2106
2107     test_procedures();
2108     test_gc();
2109     test_msgbox();
2110 }
2111
2112 static BOOL check_vbscript(void)
2113 {
2114     IRegExp2 *regexp;
2115     IUnknown *unk;
2116     HRESULT hres;
2117
2118     hres = CoCreateInstance(&CLSID_VBScriptRegExp, NULL,
2119             CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
2120             &IID_IUnknown, (void**)&unk);
2121     if(hres == REGDB_E_CLASSNOTREG)
2122         return FALSE;
2123     ok(hres == S_OK, "CoCreateInstance(CLSID_VBScriptRegExp) failed: %x\n", hres);
2124
2125     hres = IUnknown_QueryInterface(unk, &IID_IRegExp2, (void**)&regexp);
2126     if(SUCCEEDED(hres))
2127         IRegExp2_Release(regexp);
2128     IUnknown_Release(unk);
2129
2130     return hres == S_OK;
2131 }
2132
2133 START_TEST(run)
2134 {
2135     int argc;
2136     char **argv;
2137
2138     is_english = is_lang_english();
2139     if(!is_english)
2140         skip("Skipping some tests in non-English locale\n");
2141
2142     argc = winetest_get_mainargs(&argv);
2143
2144     CoInitialize(NULL);
2145
2146     if(!check_vbscript()) {
2147         win_skip("Broken engine, probably too old\n");
2148     }else if(argc > 2) {
2149         allow_ui = TRUE;
2150         uic_handling = SCRIPTUICHANDLING_ALLOW;
2151         run_from_file(argv[2]);
2152     }else {
2153         run_tests();
2154     }
2155
2156     CoUninitialize();
2157 }