dlls/jscript/tests/run.c

   1 /*
   2  * Copyright 2008 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 "wine/test.h"
  29
  30 #ifdef _WIN64
  31
  32 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface
  33 #define IActiveScriptParse_Release IActiveScriptParse64_Release
  34 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
  35 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
  36 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
  37 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
  38
  39 #else
  40
  41 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
  42 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  43 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  44 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  45 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
  46 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
  47
  48 #endif
  49
  50 static const CLSID CLSID_JScript =
  51     {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
  52 static const CLSID CLSID_JScriptEncode =
  53     {0xf414c262,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
  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_EXPECT(global_propget_d);
  80 DEFINE_EXPECT(global_propget_i);
  81 DEFINE_EXPECT(global_propput_d);
  82 DEFINE_EXPECT(global_propput_i);
  83 DEFINE_EXPECT(global_propputref_d);
  84 DEFINE_EXPECT(global_propputref_i);
  85 DEFINE_EXPECT(global_propdelete_d);
  86 DEFINE_EXPECT(global_nopropdelete_d);
  87 DEFINE_EXPECT(global_propdeleteerror_d);
  88 DEFINE_EXPECT(global_success_d);
  89 DEFINE_EXPECT(global_success_i);
  90 DEFINE_EXPECT(global_notexists_d);
  91 DEFINE_EXPECT(global_propargput_d);
  92 DEFINE_EXPECT(global_propargput_i);
  93 DEFINE_EXPECT(global_testargtypes_i);
  94 DEFINE_EXPECT(puredisp_prop_d);
  95 DEFINE_EXPECT(puredisp_noprop_d);
  96 DEFINE_EXPECT(puredisp_value);
  97 DEFINE_EXPECT(dispexfunc_value);
  98 DEFINE_EXPECT(testobj_delete_test);
  99 DEFINE_EXPECT(testobj_delete_nodelete);
 100 DEFINE_EXPECT(testobj_value);
 101 DEFINE_EXPECT(testobj_construct);
 102 DEFINE_EXPECT(testobj_prop_d);
 103 DEFINE_EXPECT(testobj_withprop_d);
 104 DEFINE_EXPECT(testobj_withprop_i);
 105 DEFINE_EXPECT(testobj_noprop_d);
 106 DEFINE_EXPECT(testobj_onlydispid_d);
 107 DEFINE_EXPECT(testobj_onlydispid_i);
 108 DEFINE_EXPECT(testobj_notexists_d);
 109 DEFINE_EXPECT(GetItemInfo_testVal);
 110 DEFINE_EXPECT(ActiveScriptSite_OnScriptError);
 111 DEFINE_EXPECT(invoke_func);
 112 DEFINE_EXPECT(DeleteMemberByDispID);
 113 DEFINE_EXPECT(DeleteMemberByDispID_false);
 114 DEFINE_EXPECT(DeleteMemberByDispID_error);
 115 DEFINE_EXPECT(BindHandler);
 116
 117 #define DISPID_GLOBAL_TESTPROPGET   0x1000
 118 #define DISPID_GLOBAL_TESTPROPPUT   0x1001
 119 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
 120 #define DISPID_GLOBAL_TRACE         0x1003
 121 #define DISPID_GLOBAL_OK            0x1004
 122 #define DISPID_GLOBAL_GETVT         0x1005
 123 #define DISPID_GLOBAL_TESTOBJ       0x1006
 124 #define DISPID_GLOBAL_GETNULLBSTR   0x1007
 125 #define DISPID_GLOBAL_NULL_DISP     0x1008
 126 #define DISPID_GLOBAL_TESTTHIS      0x1009
 127 #define DISPID_GLOBAL_TESTTHIS2     0x100a
 128 #define DISPID_GLOBAL_INVOKEVERSION 0x100b
 129 #define DISPID_GLOBAL_CREATEARRAY   0x100c
 130 #define DISPID_GLOBAL_PROPGETFUNC   0x100d
 131 #define DISPID_GLOBAL_OBJECT_FLAG   0x100e
 132 #define DISPID_GLOBAL_ISWIN64       0x100f
 133 #define DISPID_GLOBAL_PUREDISP      0x1010
 134 #define DISPID_GLOBAL_ISNULLBSTR    0x1011
 135 #define DISPID_GLOBAL_PROPARGPUT    0x1012
 136 #define DISPID_GLOBAL_SHORTPROP     0x1013
 137 #define DISPID_GLOBAL_GETSHORT      0x1014
 138 #define DISPID_GLOBAL_TESTARGTYPES  0x1015
 139 #define DISPID_GLOBAL_INTPROP       0x1016
 140 #define DISPID_GLOBAL_DISPUNK       0x1017
 141 #define DISPID_GLOBAL_TESTRES       0x1018
 142 #define DISPID_GLOBAL_TESTNORES     0x1019
 143 #define DISPID_GLOBAL_DISPEXFUNC    0x101a
 144 #define DISPID_GLOBAL_TESTPROPPUTREF 0x101b
 145 #define DISPID_GLOBAL_GETSCRIPTSTATE 0x101c
 146 #define DISPID_GLOBAL_BINDEVENTHANDLER 0x101d
 147
 148 #define DISPID_GLOBAL_TESTPROPDELETE      0x2000
 149 #define DISPID_GLOBAL_TESTNOPROPDELETE    0x2001
 150 #define DISPID_GLOBAL_TESTPROPDELETEERROR 0x2002
 151
 152 #define DISPID_TESTOBJ_PROP         0x2000
 153 #define DISPID_TESTOBJ_ONLYDISPID   0x2001
 154 #define DISPID_TESTOBJ_WITHPROP     0x2002
 155
 156 #define JS_E_OUT_OF_MEMORY 0x800a03ec
 157 #define JS_E_INVALID_CHAR 0x800a03f6
 158
 159 static const WCHAR testW[] = {'t','e','s','t',0};
 160 static const CHAR testA[] = "test";
 161 static const WCHAR test_valW[] = {'t','e','s','t','V','a','l',0};
 162 static const CHAR test_valA[] = "testVal";
 163 static const WCHAR emptyW[] = {0};
 164
 165 static BOOL strict_dispid_check, testing_expr;
 166 static const char *test_name = "(null)";
 167 static IDispatch *script_disp;
 168 static int invoke_version;
 169 static IActiveScriptError *script_error;
 170 static IActiveScript *script_engine;
 171 static const CLSID *engine_clsid = &CLSID_JScript;
 172
 173 /* Returns true if the user interface is in English. Note that this does not
 174  * presume of the formatting of dates, numbers, etc.
 175  */
 176 static BOOL is_lang_english(void)
 177 {
 178     static HMODULE hkernel32 = NULL;
 179     static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
 180     static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
 181
 182     if (!hkernel32)
 183     {
 184         hkernel32 = GetModuleHandleA("kernel32.dll");
 185         pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
 186         pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
 187     }
 188     if (pGetThreadUILanguage)
 189         return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH;
 190     if (pGetUserDefaultUILanguage)
 191         return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH;
 192
 193     return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
 194 }
 195
 196 static BSTR a2bstr(const char *str)
 197 {
 198     BSTR ret;
 199     int len;
 200
 201     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 202     ret = SysAllocStringLen(NULL, len-1);
 203     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 204
 205     return ret;
 206 }
 207
 208 static int strcmp_wa(LPCWSTR strw, const char *stra)
 209 {
 210     CHAR buf[512];
 211     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
 212     return lstrcmpA(buf, stra);
 213 }
 214
 215 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
 216 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
 217 {
 218     expect |= invoke_version << 28;
 219     ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
 220 }
 221
 222 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 223 {
 224     *ppv = NULL;
 225
 226     if(IsEqualGUID(riid, &IID_IUnknown)
 227        || IsEqualGUID(riid, &IID_IDispatch)
 228        || IsEqualGUID(riid, &IID_IDispatchEx))
 229         *ppv = iface;
 230     else
 231         return E_NOINTERFACE;
 232
 233     return S_OK;
 234 }
 235
 236 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 237 {
 238     return 2;
 239 }
 240
 241 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 242 {
 243     return 1;
 244 }
 245
 246 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 247 {
 248     ok(0, "unexpected call\n");
 249     return E_NOTIMPL;
 250 }
 251
 252 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 253                                               LCID lcid, ITypeInfo **ppTInfo)
 254 {
 255     ok(0, "unexpected call\n");
 256     return E_NOTIMPL;
 257 }
 258
 259 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 260                                                 LPOLESTR *rgszNames, UINT cNames,
 261                                                 LCID lcid, DISPID *rgDispId)
 262 {
 263     ok(0, "unexpected call\n");
 264     return E_NOTIMPL;
 265 }
 266
 267 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 268                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 269                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 270 {
 271     ok(0, "unexpected call\n");
 272     return E_NOTIMPL;
 273 }
 274
 275 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 276 {
 277     ok(0, "unexpected call\n");
 278     return E_NOTIMPL;
 279 }
 280
 281 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 282         VARIANT *res, EXCEPINFO *pei, IServiceProvider *pspCaller)
 283 {
 284     ok(0, "unexpected call\n");
 285     return E_NOTIMPL;
 286 }
 287
 288 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 289 {
 290     ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
 291     return E_NOTIMPL;
 292 }
 293
 294 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 295 {
 296     ok(0, "unexpected call\n");
 297     return E_NOTIMPL;
 298 }
 299
 300 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 301 {
 302     ok(0, "unexpected call\n");
 303     return E_NOTIMPL;
 304 }
 305
 306 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 307 {
 308     ok(0, "unexpected call\n");
 309     return E_NOTIMPL;
 310 }
 311
 312 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 313 {
 314     ok(0, "unexpected call\n");
 315     return E_NOTIMPL;
 316 }
 317
 318 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 319 {
 320     ok(0, "unexpected call\n");
 321     return E_NOTIMPL;
 322 }
 323
 324 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 325 {
 326     if(!strcmp_wa(bstrName, "prop")) {
 327         CHECK_EXPECT(testobj_prop_d);
 328         test_grfdex(grfdex, fdexNameCaseSensitive);
 329         *pid = DISPID_TESTOBJ_PROP;
 330         return S_OK;
 331     }
 332     if(!strcmp_wa(bstrName, "withProp")) {
 333         CHECK_EXPECT(testobj_withprop_d);
 334         test_grfdex(grfdex, fdexNameCaseSensitive|fdexNameImplicit);
 335         *pid = DISPID_TESTOBJ_WITHPROP;
 336         return S_OK;
 337     }
 338     if(!strcmp_wa(bstrName, "noprop")) {
 339         CHECK_EXPECT(testobj_noprop_d);
 340         test_grfdex(grfdex, fdexNameCaseSensitive);
 341         return DISP_E_UNKNOWNNAME;
 342     }
 343     if(!strcmp_wa(bstrName, "onlyDispID")) {
 344         if(strict_dispid_check)
 345             CHECK_EXPECT(testobj_onlydispid_d);
 346         test_grfdex(grfdex, fdexNameCaseSensitive);
 347         *pid = DISPID_TESTOBJ_ONLYDISPID;
 348         return S_OK;
 349     }
 350     if(!strcmp_wa(bstrName, "notExists")) {
 351         CHECK_EXPECT(testobj_notexists_d);
 352         test_grfdex(grfdex, fdexNameCaseSensitive);
 353         return DISP_E_UNKNOWNNAME;
 354     }
 355
 356     ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
 357     return E_NOTIMPL;
 358 }
 359
 360 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 361         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 362 {
 363     ok(pspCaller != NULL, "pspCaller = NULL\n");
 364
 365     switch(id) {
 366     case DISPID_VALUE:
 367         ok(pdp != NULL, "pdp == NULL\n");
 368         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 369         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 370         ok(pvarRes != NULL, "pvarRes == NULL\n");
 371         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 372         ok(pei != NULL, "pei == NULL\n");
 373
 374         switch(wFlags) {
 375         case INVOKE_PROPERTYGET:
 376             CHECK_EXPECT(testobj_value);
 377             ok(!pdp->rgvarg, "rgvarg != NULL\n");
 378             ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 379             break;
 380         case INVOKE_FUNC:
 381             ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 382             break;
 383         case INVOKE_FUNC|INVOKE_PROPERTYGET:
 384             ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 385             break;
 386         case DISPATCH_CONSTRUCT:
 387             CHECK_EXPECT(testobj_construct);
 388             ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 389             break;
 390         default:
 391             ok(0, "invalid flag (%x)\n", wFlags);
 392         }
 393
 394         V_VT(pvarRes) = VT_I4;
 395         V_I4(pvarRes) = 1;
 396         return S_OK;
 397     case DISPID_TESTOBJ_ONLYDISPID:
 398         if(strict_dispid_check)
 399             CHECK_EXPECT(testobj_onlydispid_i);
 400         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 401         ok(pdp != NULL, "pdp == NULL\n");
 402         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 403         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 404         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 405         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 406         ok(pvarRes != NULL, "pvarRes == NULL\n");
 407         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 408         ok(pei != NULL, "pei == NULL\n");
 409         return DISP_E_MEMBERNOTFOUND;
 410      case DISPID_TESTOBJ_WITHPROP:
 411         CHECK_EXPECT(testobj_withprop_i);
 412
 413         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 414         ok(pdp != NULL, "pdp == NULL\n");
 415         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 416         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 417         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 418         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 419         ok(pvarRes != NULL, "pvarRes == NULL\n");
 420         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 421         ok(pei != NULL, "pei == NULL\n");
 422
 423         V_VT(pvarRes) = VT_I4;
 424         V_I4(pvarRes) = 1;
 425
 426         return S_OK;
 427     }
 428
 429     ok(0, "unexpected call %x\n", id);
 430     return DISP_E_MEMBERNOTFOUND;
 431 }
 432
 433 static HRESULT WINAPI testObj_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 434 {
 435     if(!strcmp_wa(bstrName, "deleteTest")) {
 436         CHECK_EXPECT(testobj_delete_test);
 437         test_grfdex(grfdex, fdexNameCaseSensitive);
 438         return S_OK;
 439     }
 440     if(!strcmp_wa(bstrName, "noDeleteTest")) {
 441         CHECK_EXPECT(testobj_delete_nodelete);
 442         test_grfdex(grfdex, fdexNameCaseSensitive);
 443         return S_FALSE;
 444     }
 445
 446     ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
 447     return E_FAIL;
 448 }
 449
 450 static IDispatchExVtbl testObjVtbl = {
 451     DispatchEx_QueryInterface,
 452     DispatchEx_AddRef,
 453     DispatchEx_Release,
 454     DispatchEx_GetTypeInfoCount,
 455     DispatchEx_GetTypeInfo,
 456     DispatchEx_GetIDsOfNames,
 457     DispatchEx_Invoke,
 458     testObj_GetDispID,
 459     testObj_InvokeEx,
 460     testObj_DeleteMemberByName,
 461     DispatchEx_DeleteMemberByDispID,
 462     DispatchEx_GetMemberProperties,
 463     DispatchEx_GetMemberName,
 464     DispatchEx_GetNextDispID,
 465     DispatchEx_GetNameSpaceParent
 466 };
 467
 468 static IDispatchEx testObj = { &testObjVtbl };
 469
 470 static HRESULT WINAPI dispexFunc_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 471         VARIANT *res, EXCEPINFO *pei, IServiceProvider *pspCaller)
 472 {
 473     ok(pspCaller != NULL, "pspCaller = NULL\n");
 474
 475     switch(id) {
 476     case DISPID_VALUE:
 477         CHECK_EXPECT(dispexfunc_value);
 478
 479         ok(pdp != NULL, "pdp == NULL\n");
 480         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 481         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs != NULL\n");
 482         ok(*pdp->rgdispidNamedArgs == DISPID_THIS, "*rgdispidNamedArgs = %d\n", *pdp->rgdispidNamedArgs);
 483         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
 484         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 485         ok(res != NULL, "res == NULL\n");
 486         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
 487         ok(pei != NULL, "pei == NULL\n");
 488
 489         ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
 490         ok(!V_BOOL(pdp->rgvarg+1), "V_BOOL(pdp->rgvarg+1) = %x\n", V_BOOL(pdp->rgvarg+1));
 491
 492         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 493         ok(V_DISPATCH(pdp->rgvarg) != NULL, "V_DISPATCH(pdp->rgvarg) == NULL\n");
 494
 495         if(res)
 496             V_VT(res) = VT_NULL;
 497         return S_OK;
 498     default:
 499         ok(0, "unexpected call %x\n", id);
 500         return DISP_E_MEMBERNOTFOUND;
 501     }
 502 }
 503
 504 static IDispatchExVtbl dispexFuncVtbl = {
 505     DispatchEx_QueryInterface,
 506     DispatchEx_AddRef,
 507     DispatchEx_Release,
 508     DispatchEx_GetTypeInfoCount,
 509     DispatchEx_GetTypeInfo,
 510     DispatchEx_GetIDsOfNames,
 511     DispatchEx_Invoke,
 512     DispatchEx_GetDispID,
 513     dispexFunc_InvokeEx,
 514     DispatchEx_DeleteMemberByName,
 515     DispatchEx_DeleteMemberByDispID,
 516     DispatchEx_GetMemberProperties,
 517     DispatchEx_GetMemberName,
 518     DispatchEx_GetNextDispID,
 519     DispatchEx_GetNameSpaceParent
 520 };
 521
 522 static IDispatchEx dispexFunc = { &dispexFuncVtbl };
 523
 524 static HRESULT WINAPI pureDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 525 {
 526     if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch)) {
 527         *ppv = iface;
 528         return S_OK;
 529     }
 530
 531     *ppv = NULL;
 532     return E_NOINTERFACE;
 533 }
 534
 535 static HRESULT WINAPI pureDisp_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 536                                                 LPOLESTR *rgszNames, UINT cNames,
 537                                                 LCID lcid, DISPID *rgDispId)
 538 {
 539     ok(IsEqualGUID(riid, &IID_NULL), "Expected IID_NULL\n");
 540     ok(cNames==1, "cNames = %d\n", cNames);
 541
 542     if(!strcmp_wa(*rgszNames, "prop")) {
 543         CHECK_EXPECT(puredisp_prop_d);
 544         *rgDispId = DISPID_TESTOBJ_PROP;
 545         return S_OK;
 546     } else if(!strcmp_wa(*rgszNames, "noprop")) {
 547         CHECK_EXPECT(puredisp_noprop_d);
 548         return DISP_E_UNKNOWNNAME;
 549     }
 550
 551     ok(0, "unexpected call\n");
 552     return E_NOTIMPL;
 553 }
 554
 555 static HRESULT WINAPI pureDisp_Invoke(IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid,
 556         WORD wFlags, DISPPARAMS *pdp, VARIANT *res, EXCEPINFO *ei, UINT *puArgErr)
 557 {
 558     ok(IsEqualGUID(&IID_NULL, riid), "unexpected riid\n");
 559
 560     switch(dispIdMember) {
 561     case DISPID_VALUE:
 562         CHECK_EXPECT(puredisp_value);
 563
 564         ok(pdp != NULL, "pdp == NULL\n");
 565         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 566         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 567         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 568         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 569         ok(res != NULL, "res == NULL\n");
 570         ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
 571         ok(ei != NULL, "ei == NULL\n");
 572         ok(puArgErr != NULL, "puArgErr == NULL\n");
 573
 574         ok(V_VT(pdp->rgvarg) == VT_BOOL, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 575         ok(!V_BOOL(pdp->rgvarg), "V_BOOL(pdp->rgvarg) = %x\n", V_BOOL(pdp->rgvarg));
 576
 577         if(res)
 578             V_VT(res) = VT_NULL;
 579         return S_OK;
 580     default:
 581         ok(0, "unexpected call\n");
 582         return E_NOTIMPL;
 583     }
 584 }
 585
 586 static IDispatchExVtbl pureDispVtbl = {
 587     pureDisp_QueryInterface,
 588     DispatchEx_AddRef,
 589     DispatchEx_Release,
 590     DispatchEx_GetTypeInfoCount,
 591     DispatchEx_GetTypeInfo,
 592     pureDisp_GetIDsOfNames,
 593     pureDisp_Invoke
 594 };
 595
 596 static IDispatchEx pureDisp = { &pureDispVtbl };
 597
 598 static HRESULT WINAPI BindEventHandler_QueryInterface(IBindEventHandler *iface, REFIID riid, void **ppv)
 599 {
 600     ok(0, "unexpected call\n");
 601     return E_NOINTERFACE;
 602 }
 603
 604 static ULONG WINAPI BindEventHandler_AddRef(IBindEventHandler *iface)
 605 {
 606     return 2;
 607 }
 608
 609 static ULONG WINAPI BindEventHandler_Release(IBindEventHandler *iface)
 610 {
 611     return 1;
 612 }
 613
 614 static HRESULT WINAPI BindEventHandler_BindHandler(IBindEventHandler *iface, const WCHAR *event, IDispatch *disp)
 615 {
 616     CHECK_EXPECT(BindHandler);
 617     ok(!strcmp_wa(event, "eventName"), "event = %s\n", wine_dbgstr_w(event));
 618     ok(disp != NULL, "disp = NULL\n");
 619     return S_OK;
 620 }
 621
 622 static const IBindEventHandlerVtbl BindEventHandlerVtbl = {
 623     BindEventHandler_QueryInterface,
 624     BindEventHandler_AddRef,
 625     BindEventHandler_Release,
 626     BindEventHandler_BindHandler
 627 };
 628
 629 static IBindEventHandler BindEventHandler = { &BindEventHandlerVtbl };
 630
 631 static HRESULT WINAPI bindEventHandlerDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 632 {
 633     if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) {
 634         *ppv = iface;
 635         return S_OK;
 636     }
 637
 638     if(IsEqualGUID(riid, &IID_IBindEventHandler)) {
 639         *ppv = &BindEventHandler;
 640         return S_OK;
 641     }
 642
 643     *ppv = NULL;
 644     return E_NOINTERFACE;
 645 }
 646
 647 static IDispatchExVtbl bindEventHandlerDispVtbl = {
 648     bindEventHandlerDisp_QueryInterface,
 649     DispatchEx_AddRef,
 650     DispatchEx_Release,
 651     DispatchEx_GetTypeInfoCount,
 652     DispatchEx_GetTypeInfo,
 653     DispatchEx_GetIDsOfNames,
 654     DispatchEx_Invoke,
 655     DispatchEx_GetDispID,
 656     DispatchEx_InvokeEx,
 657     DispatchEx_DeleteMemberByName,
 658     DispatchEx_DeleteMemberByDispID,
 659     DispatchEx_GetMemberProperties,
 660     DispatchEx_GetMemberName,
 661     DispatchEx_GetNextDispID,
 662     DispatchEx_GetNameSpaceParent
 663 };
 664
 665 static IDispatchEx bindEventHandlerDisp = { &bindEventHandlerDispVtbl };
 666
 667 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 668 {
 669     if(!strcmp_wa(bstrName, "ok")) {
 670         test_grfdex(grfdex, fdexNameCaseSensitive);
 671         *pid = DISPID_GLOBAL_OK;
 672         return S_OK;
 673     }
 674     if(!strcmp_wa(bstrName, "trace")) {
 675         test_grfdex(grfdex, fdexNameCaseSensitive);
 676         *pid = DISPID_GLOBAL_TRACE;
 677         return S_OK;
 678     }
 679     if(!strcmp_wa(bstrName, "reportSuccess")) {
 680         CHECK_EXPECT(global_success_d);
 681         test_grfdex(grfdex, fdexNameCaseSensitive);
 682         *pid = DISPID_GLOBAL_REPORTSUCCESS;
 683         return S_OK;
 684     }
 685     if(!strcmp_wa(bstrName, "testPropGet")) {
 686         CHECK_EXPECT(global_propget_d);
 687         test_grfdex(grfdex, fdexNameCaseSensitive);
 688         *pid = DISPID_GLOBAL_TESTPROPGET;
 689         return S_OK;
 690     }
 691     if(!strcmp_wa(bstrName, "testPropPut")) {
 692         CHECK_EXPECT(global_propput_d);
 693         test_grfdex(grfdex, fdexNameCaseSensitive);
 694         *pid = DISPID_GLOBAL_TESTPROPPUT;
 695         return S_OK;
 696     }
 697     if(!strcmp_wa(bstrName, "testPropPutRef")) {
 698         CHECK_EXPECT(global_propputref_d);
 699         test_grfdex(grfdex, fdexNameCaseSensitive);
 700         *pid = DISPID_GLOBAL_TESTPROPPUTREF;
 701         return S_OK;
 702     }
 703     if(!strcmp_wa(bstrName, "testPropDelete")) {
 704         CHECK_EXPECT(global_propdelete_d);
 705         test_grfdex(grfdex, fdexNameCaseSensitive);
 706         *pid = DISPID_GLOBAL_TESTPROPDELETE;
 707         return S_OK;
 708     }
 709     if(!strcmp_wa(bstrName, "testNoPropDelete")) {
 710         CHECK_EXPECT(global_nopropdelete_d);
 711         test_grfdex(grfdex, fdexNameCaseSensitive);
 712         *pid = DISPID_GLOBAL_TESTNOPROPDELETE;
 713         return S_OK;
 714     }
 715     if(!strcmp_wa(bstrName, "testPropDeleteError")) {
 716         CHECK_EXPECT(global_propdeleteerror_d);
 717         test_grfdex(grfdex, fdexNameCaseSensitive);
 718         *pid = DISPID_GLOBAL_TESTPROPDELETEERROR;
 719         return S_OK;
 720     }
 721     if(!strcmp_wa(bstrName, "getVT")) {
 722         test_grfdex(grfdex, fdexNameCaseSensitive);
 723         *pid = DISPID_GLOBAL_GETVT;
 724         return S_OK;
 725     }
 726     if(!strcmp_wa(bstrName, "testObj")) {
 727         test_grfdex(grfdex, fdexNameCaseSensitive);
 728         *pid = DISPID_GLOBAL_TESTOBJ;
 729         return S_OK;
 730     }
 731     if(!strcmp_wa(bstrName, "getNullBSTR")) {
 732         *pid = DISPID_GLOBAL_GETNULLBSTR;
 733         return S_OK;
 734     }
 735     if(!strcmp_wa(bstrName, "isNullBSTR")) {
 736         *pid = DISPID_GLOBAL_ISNULLBSTR;
 737         return S_OK;
 738     }
 739     if(!strcmp_wa(bstrName, "nullDisp")) {
 740         *pid = DISPID_GLOBAL_NULL_DISP;
 741         return S_OK;
 742     }
 743     if(!strcmp_wa(bstrName, "notExists")) {
 744         CHECK_EXPECT(global_notexists_d);
 745         test_grfdex(grfdex, fdexNameCaseSensitive);
 746         return DISP_E_UNKNOWNNAME;
 747     }
 748
 749     if(!strcmp_wa(bstrName, "testThis")) {
 750         test_grfdex(grfdex, fdexNameCaseSensitive);
 751         *pid = DISPID_GLOBAL_TESTTHIS;
 752         return S_OK;
 753     }
 754
 755     if(!strcmp_wa(bstrName, "testThis2")) {
 756         test_grfdex(grfdex, fdexNameCaseSensitive);
 757         *pid = DISPID_GLOBAL_TESTTHIS2;
 758         return S_OK;
 759     }
 760
 761     if(!strcmp_wa(bstrName, "invokeVersion")) {
 762         test_grfdex(grfdex, fdexNameCaseSensitive);
 763         *pid = DISPID_GLOBAL_INVOKEVERSION;
 764         return S_OK;
 765     }
 766     if(!strcmp_wa(bstrName, "createArray")) {
 767         test_grfdex(grfdex, fdexNameCaseSensitive);
 768         *pid = DISPID_GLOBAL_CREATEARRAY;
 769         return S_OK;
 770     }
 771     if(!strcmp_wa(bstrName, "propGetFunc")) {
 772         test_grfdex(grfdex, fdexNameCaseSensitive);
 773         *pid = DISPID_GLOBAL_PROPGETFUNC;
 774         return S_OK;
 775     }
 776     if(!strcmp_wa(bstrName, "objectFlag")) {
 777         test_grfdex(grfdex, fdexNameCaseSensitive);
 778         *pid = DISPID_GLOBAL_OBJECT_FLAG;
 779         return S_OK;
 780     }
 781
 782     if(!strcmp_wa(bstrName, "isWin64")) {
 783         test_grfdex(grfdex, fdexNameCaseSensitive);
 784         *pid = DISPID_GLOBAL_ISWIN64;
 785         return S_OK;
 786     }
 787
 788     if(!strcmp_wa(bstrName, "pureDisp")) {
 789         test_grfdex(grfdex, fdexNameCaseSensitive);
 790         *pid = DISPID_GLOBAL_PUREDISP;
 791         return S_OK;
 792     }
 793
 794     if(!strcmp_wa(bstrName, "propArgPutG")) {
 795         CHECK_EXPECT(global_propargput_d);
 796         test_grfdex(grfdex, fdexNameCaseSensitive);
 797         *pid = DISPID_GLOBAL_PROPARGPUT;
 798         return S_OK;
 799     }
 800
 801     if(!strcmp_wa(bstrName, "propArgPutO")) {
 802         CHECK_EXPECT(global_propargput_d);
 803         test_grfdex(grfdex, fdexNameEnsure|fdexNameCaseSensitive);
 804         *pid = DISPID_GLOBAL_PROPARGPUT;
 805         return S_OK;
 806     }
 807
 808     if(!strcmp_wa(bstrName, "shortProp")) {
 809         *pid = DISPID_GLOBAL_SHORTPROP;
 810         return S_OK;
 811     }
 812
 813     if(!strcmp_wa(bstrName, "getShort")) {
 814         *pid = DISPID_GLOBAL_GETSHORT;
 815         return S_OK;
 816     }
 817
 818     if(!strcmp_wa(bstrName, "testArgTypes")) {
 819         *pid = DISPID_GLOBAL_TESTARGTYPES;
 820         return S_OK;
 821     }
 822
 823     if(!strcmp_wa(bstrName, "intProp")) {
 824         *pid = DISPID_GLOBAL_INTPROP;
 825         return S_OK;
 826     }
 827
 828     if(!strcmp_wa(bstrName, "dispUnk")) {
 829         *pid = DISPID_GLOBAL_DISPUNK;
 830         return S_OK;
 831     }
 832
 833     if(!strcmp_wa(bstrName, "testRes")) {
 834         *pid = DISPID_GLOBAL_TESTRES;
 835         return S_OK;
 836     }
 837
 838     if(!strcmp_wa(bstrName, "testNoRes")) {
 839         *pid = DISPID_GLOBAL_TESTNORES;
 840         return S_OK;
 841     }
 842
 843     if(!strcmp_wa(bstrName, "dispexFunc")) {
 844         *pid = DISPID_GLOBAL_DISPEXFUNC;
 845         return S_OK;
 846     }
 847
 848     if(!strcmp_wa(bstrName, "getScriptState")) {
 849         *pid = DISPID_GLOBAL_GETSCRIPTSTATE;
 850         return S_OK;
 851     }
 852
 853     if(!strcmp_wa(bstrName, "bindEventHandler")) {
 854         *pid = DISPID_GLOBAL_BINDEVENTHANDLER;
 855         return S_OK;
 856     }
 857
 858     if(strict_dispid_check && strcmp_wa(bstrName, "t"))
 859         ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
 860     return DISP_E_UNKNOWNNAME;
 861 }
 862
 863 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 864         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 865 {
 866     ok(pspCaller != NULL, "pspCaller = NULL\n");
 867
 868     switch(id) {
 869     case DISPID_GLOBAL_OK:
 870         ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
 871         ok(pdp != NULL, "pdp == NULL\n");
 872         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 873         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 874         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
 875         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 876         if(wFlags & INVOKE_PROPERTYGET)
 877             ok(pvarRes != NULL, "pvarRes == NULL\n");
 878         else
 879             ok(!pvarRes, "pvarRes != NULL\n");
 880         ok(pei != NULL, "pei == NULL\n");
 881
 882         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 883         ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
 884         ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 885
 886         return S_OK;
 887
 888      case DISPID_GLOBAL_TRACE:
 889         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 890         ok(pdp != NULL, "pdp == NULL\n");
 891         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 892         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 893         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 894         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 895         ok(!pvarRes, "pvarRes != NULL\n");
 896         ok(pei != NULL, "pei == NULL\n");
 897
 898         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 899         if(V_VT(pdp->rgvarg) == VT_BSTR)
 900             trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 901
 902         return S_OK;
 903
 904     case DISPID_GLOBAL_REPORTSUCCESS:
 905         CHECK_EXPECT(global_success_i);
 906
 907         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 908         ok(pdp != NULL, "pdp == NULL\n");
 909         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 910         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
 911         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 912         if(!testing_expr)
 913             ok(!pvarRes, "pvarRes != NULL\n");
 914         ok(pei != NULL, "pei == NULL\n");
 915
 916         return S_OK;
 917
 918      case DISPID_GLOBAL_TESTPROPGET:
 919         CHECK_EXPECT(global_propget_i);
 920
 921         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 922         ok(pdp != NULL, "pdp == NULL\n");
 923         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 924         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 925         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 926         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 927         ok(pvarRes != NULL, "pvarRes == NULL\n");
 928         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 929         ok(pei != NULL, "pei == NULL\n");
 930
 931         V_VT(pvarRes) = VT_I4;
 932         V_I4(pvarRes) = 1;
 933
 934         return S_OK;
 935
 936     case DISPID_GLOBAL_TESTPROPPUT:
 937         CHECK_EXPECT(global_propput_i);
 938
 939         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
 940         ok(pdp != NULL, "pdp == NULL\n");
 941         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 942         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 943         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 944         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 945         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 946         ok(!pvarRes, "pvarRes != NULL\n");
 947
 948         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
 949         ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
 950         return S_OK;
 951
 952     case DISPID_GLOBAL_TESTPROPPUTREF:
 953         CHECK_EXPECT(global_propputref_i);
 954
 955         ok(wFlags == (INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF), "wFlags = %x\n", wFlags);
 956         ok(pdp != NULL, "pdp == NULL\n");
 957         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 958         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 959         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 960         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 961         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 962         ok(!pvarRes, "pvarRes != NULL\n");
 963
 964         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
 965         return S_OK;
 966
 967      case DISPID_GLOBAL_GETVT:
 968         ok(pdp != NULL, "pdp == NULL\n");
 969         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 970         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 971         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 972         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 973         ok(pvarRes != NULL, "pvarRes == NULL\n");
 974         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 975         ok(pei != NULL, "pei == NULL\n");
 976
 977         V_VT(pvarRes) = VT_BSTR;
 978         switch(V_VT(pdp->rgvarg)) {
 979         case VT_EMPTY:
 980             V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
 981             break;
 982         case VT_NULL:
 983             V_BSTR(pvarRes) = a2bstr("VT_NULL");
 984             break;
 985         case VT_I4:
 986             V_BSTR(pvarRes) = a2bstr("VT_I4");
 987             break;
 988         case VT_R8:
 989             V_BSTR(pvarRes) = a2bstr("VT_R8");
 990             break;
 991         case VT_BSTR:
 992             V_BSTR(pvarRes) = a2bstr("VT_BSTR");
 993             break;
 994         case VT_DISPATCH:
 995             V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
 996             break;
 997         case VT_BOOL:
 998             V_BSTR(pvarRes) = a2bstr("VT_BOOL");
 999             break;
1000         case VT_ARRAY|VT_VARIANT:
1001             V_BSTR(pvarRes) = a2bstr("VT_ARRAY|VT_VARIANT");
1002             break;
1003         default:
1004             ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
1005             return E_FAIL;
1006         }
1007
1008         return S_OK;
1009
1010     case DISPID_GLOBAL_TESTRES:
1011         ok(pvarRes != NULL, "pvarRes = NULL\n");
1012         if(pvarRes) {
1013             V_VT(pvarRes) = VT_BOOL;
1014             V_BOOL(pvarRes) = VARIANT_TRUE;
1015         }
1016         return S_OK;
1017
1018     case DISPID_GLOBAL_TESTNORES:
1019         ok(!pvarRes, "pvarRes != NULL\n");
1020         if(pvarRes)
1021             V_VT(pvarRes) = VT_NULL;
1022         return S_OK;
1023
1024     case DISPID_GLOBAL_TESTOBJ:
1025         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1026         ok(pdp != NULL, "pdp == NULL\n");
1027         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1028         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1029         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1030         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1031         ok(pvarRes != NULL, "pvarRes == NULL\n");
1032         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1033         ok(pei != NULL, "pei == NULL\n");
1034
1035         V_VT(pvarRes) = VT_DISPATCH;
1036         V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
1037         return S_OK;
1038
1039     case DISPID_GLOBAL_PUREDISP:
1040         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1041         ok(pdp != NULL, "pdp == NULL\n");
1042         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1043         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1044         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1045         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1046         ok(pvarRes != NULL, "pvarRes == NULL\n");
1047         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1048         ok(pei != NULL, "pei == NULL\n");
1049
1050         V_VT(pvarRes) = VT_DISPATCH;
1051         V_DISPATCH(pvarRes) = (IDispatch*)&pureDisp;
1052         return S_OK;
1053
1054     case DISPID_GLOBAL_DISPEXFUNC:
1055         V_VT(pvarRes) = VT_DISPATCH;
1056         V_DISPATCH(pvarRes) = (IDispatch*)&dispexFunc;
1057         return S_OK;
1058
1059     case DISPID_GLOBAL_GETNULLBSTR:
1060         if(pvarRes) {
1061             V_VT(pvarRes) = VT_BSTR;
1062             V_BSTR(pvarRes) = NULL;
1063         }
1064         return S_OK;
1065
1066     case DISPID_GLOBAL_ISNULLBSTR:
1067         ok(pdp != NULL, "pdp == NULL\n");
1068         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1069         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1070         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1071         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1072         ok(pvarRes != NULL, "pvarRes == NULL\n");
1073         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1074         ok(pei != NULL, "pei == NULL\n");
1075         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1076
1077         V_VT(pvarRes) = VT_BOOL;
1078         V_BOOL(pvarRes) = V_BSTR(pdp->rgvarg) ? VARIANT_FALSE : VARIANT_TRUE;
1079         return S_OK;
1080
1081     case DISPID_GLOBAL_ISWIN64:
1082         if(pvarRes) {
1083             V_VT(pvarRes) = VT_BOOL;
1084             V_BOOL(pvarRes) = sizeof(void*) == 8 ? VARIANT_TRUE : VARIANT_FALSE;
1085         }
1086         return S_OK;
1087
1088     case DISPID_GLOBAL_NULL_DISP:
1089         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1090         ok(pdp != NULL, "pdp == NULL\n");
1091         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1092         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1093         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1094         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1095         ok(pvarRes != NULL, "pvarRes == NULL\n");
1096         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1097         ok(pei != NULL, "pei == NULL\n");
1098
1099         V_VT(pvarRes) = VT_DISPATCH;
1100         V_DISPATCH(pvarRes) = NULL;
1101         return S_OK;
1102
1103     case DISPID_GLOBAL_TESTTHIS:
1104         ok(pdp != NULL, "pdp == NULL\n");
1105         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1106         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1107         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1108         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1109         ok(pvarRes == NULL, "pvarRes != NULL\n");
1110         ok(pei != NULL, "pei == NULL\n");
1111
1112         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1113         ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)iface, "disp != iface\n");
1114
1115         return S_OK;
1116
1117     case DISPID_GLOBAL_TESTTHIS2:
1118         ok(pdp != NULL, "pdp == NULL\n");
1119         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1120         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1121         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1122         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1123         ok(pvarRes == NULL, "pvarRes != NULL\n");
1124         ok(pei != NULL, "pei == NULL\n");
1125
1126         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(arg) = %d\n", V_VT(pdp->rgvarg));
1127         ok(V_DISPATCH(pdp->rgvarg) != (IDispatch*)iface, "disp == iface\n");
1128         ok(V_DISPATCH(pdp->rgvarg) == script_disp, "disp != script_disp\n");
1129
1130         return S_OK;
1131
1132      case DISPID_GLOBAL_INVOKEVERSION:
1133         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1134         ok(pdp != NULL, "pdp == NULL\n");
1135         ok(!pdp->rgvarg, "rgvarg != NULL\n");
1136         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1137         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1138         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1139         ok(pvarRes != NULL, "pvarRes == NULL\n");
1140         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1141         ok(pei != NULL, "pei == NULL\n");
1142
1143         V_VT(pvarRes) = VT_I4;
1144         V_I4(pvarRes) = invoke_version;
1145
1146         return S_OK;
1147
1148     case DISPID_GLOBAL_CREATEARRAY: {
1149         SAFEARRAYBOUND bound[2];
1150         VARIANT *data;
1151         int i,j;
1152
1153         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1154         ok(pdp != NULL, "pdp == NULL\n");
1155         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1156         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1157         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1158         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1159         ok(pvarRes != NULL, "pvarRes == NULL\n");
1160         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1161         ok(pei != NULL, "pei == NULL\n");
1162
1163         bound[0].lLbound = 0;
1164         bound[0].cElements = 5;
1165         bound[1].lLbound = 2;
1166         bound[1].cElements = 2;
1167
1168         V_VT(pvarRes) = VT_ARRAY|VT_VARIANT;
1169         V_ARRAY(pvarRes) = SafeArrayCreate(VT_VARIANT, 2, bound);
1170
1171         SafeArrayAccessData(V_ARRAY(pvarRes), (void**)&data);
1172         for(i=0; i<5; i++) {
1173             for(j=2; j<4; j++) {
1174                 V_VT(data) = VT_I4;
1175                 V_I4(data) = i*10+j;
1176                 data++;
1177             }
1178         }
1179         SafeArrayUnaccessData(V_ARRAY(pvarRes));
1180
1181         return S_OK;
1182     }
1183
1184     case DISPID_GLOBAL_PROPGETFUNC:
1185         switch(wFlags) {
1186         case INVOKE_FUNC:
1187             CHECK_EXPECT(invoke_func);
1188             break;
1189         case INVOKE_FUNC|INVOKE_PROPERTYGET:
1190             ok(pdp->cArgs != 0, "pdp->cArgs = %d\n", pdp->cArgs);
1191             ok(pvarRes != NULL, "pdp->pvarRes == NULL\n");
1192             break;
1193         default:
1194             ok(0, "invalid flag (%x)\n", wFlags);
1195         }
1196
1197         ok(pdp != NULL, "pdp == NULL\n");
1198         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1199         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1200         ok(pei != NULL, "pei == NULL\n");
1201
1202         if(pvarRes) {
1203             ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1204             V_VT(pvarRes) = VT_I4;
1205             V_I4(pvarRes) = pdp->cArgs;
1206         }
1207
1208         return S_OK;
1209
1210     case DISPID_GLOBAL_GETSCRIPTSTATE: {
1211         SCRIPTSTATE state;
1212         HRESULT hres;
1213
1214         hres = IActiveScript_GetScriptState(script_engine, &state);
1215         ok(hres == S_OK, "GetScriptState failed: %08x\n", hres);
1216
1217         V_VT(pvarRes) = VT_I4;
1218         V_I4(pvarRes) = state;
1219         return S_OK;
1220     }
1221
1222     case DISPID_GLOBAL_BINDEVENTHANDLER:
1223         V_VT(pvarRes) = VT_DISPATCH;
1224         V_DISPATCH(pvarRes) = (IDispatch*)&bindEventHandlerDisp;
1225         return S_OK;
1226
1227     case DISPID_GLOBAL_PROPARGPUT:
1228         CHECK_EXPECT(global_propargput_i);
1229         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
1230         ok(pdp != NULL, "pdp == NULL\n");
1231         ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
1232         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1233         ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
1234         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1235         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1236         ok(!pvarRes, "pvarRes != NULL\n");
1237         ok(pei != NULL, "pei == NULL\n");
1238
1239         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1240         ok(V_I4(pdp->rgvarg) == 2, "V_I4(pdp->rgvarg) = %d\n", V_I4(pdp->rgvarg));
1241
1242         ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
1243         ok(V_I4(pdp->rgvarg+1) == 1, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
1244
1245         ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
1246         ok(V_I4(pdp->rgvarg+2) == 0, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
1247         return S_OK;
1248
1249     case DISPID_GLOBAL_OBJECT_FLAG: {
1250         IDispatchEx *dispex;
1251         BSTR str;
1252         HRESULT hres;
1253
1254         hres = IDispatch_QueryInterface(script_disp, &IID_IDispatchEx, (void**)&dispex);
1255         ok(hres == S_OK, "hres = %x\n", hres);
1256
1257         str = a2bstr("Object");
1258         hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
1259         SysFreeString(str);
1260         ok(hres == S_OK, "hres = %x\n", hres);
1261
1262         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, NULL, pei, pspCaller);
1263         ok(hres == S_OK, "hres = %x\n", hres);
1264
1265         V_VT(pvarRes) = VT_EMPTY;
1266         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, pvarRes, pei, pspCaller);
1267         ok(hres == S_OK, "hres = %x\n", hres);
1268         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1269         VariantClear(pvarRes);
1270
1271         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD|DISPATCH_PROPERTYGET, pdp, NULL, pei, pspCaller);
1272         ok(hres == S_OK, "hres = %x\n", hres);
1273
1274         V_VT(pvarRes) = VT_EMPTY;
1275         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, pvarRes, pei, pspCaller);
1276         ok(hres == S_OK, "hres = %x\n", hres);
1277         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1278         VariantClear(pvarRes);
1279
1280         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, NULL, pei, pspCaller);
1281         ok(hres == S_OK, "hres = %x\n", hres);
1282
1283         V_VT(pvarRes) = VT_EMPTY;
1284         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT|DISPATCH_PROPERTYGET, pdp, pvarRes, pei, pspCaller);
1285         ok(hres == E_INVALIDARG, "hres = %x\n", hres);
1286
1287         V_VT(pvarRes) = VT_EMPTY;
1288         hres = IDispatchEx_InvokeEx(dispex, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1289         ok(hres == S_OK, "hres = %x\n", hres);
1290         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1291         IDispatchEx_Release(dispex);
1292         return S_OK;
1293     }
1294     case DISPID_GLOBAL_SHORTPROP:
1295     case DISPID_GLOBAL_GETSHORT:
1296         V_VT(pvarRes) = VT_I2;
1297         V_I2(pvarRes) = 10;
1298         return S_OK;
1299
1300     case DISPID_GLOBAL_INTPROP:
1301         V_VT(pvarRes) = VT_INT;
1302         V_INT(pvarRes) = 22;
1303         return S_OK;
1304
1305     case DISPID_GLOBAL_DISPUNK:
1306         V_VT(pvarRes) = VT_UNKNOWN;
1307         V_UNKNOWN(pvarRes) = (IUnknown*)&testObj;
1308         return S_OK;
1309
1310     case DISPID_GLOBAL_TESTARGTYPES: {
1311         VARIANT args[6], v;
1312         DISPPARAMS dp = {args, NULL, sizeof(args)/sizeof(*args), 0};
1313         HRESULT hres;
1314
1315         CHECK_EXPECT(global_testargtypes_i);
1316         ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
1317         ok(pdp != NULL, "pdp == NULL\n");
1318         ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
1319         ok(pdp->cArgs == 6, "cArgs = %d\n", pdp->cArgs);
1320         ok(!pvarRes, "pvarRes != NULL\n");
1321
1322         ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
1323         ok(V_I4(pdp->rgvarg+1) == 10, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
1324
1325         ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
1326         ok(V_I4(pdp->rgvarg+2) == 10, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
1327
1328         ok(V_VT(pdp->rgvarg+3) == VT_I4, "V_VT(pdp->rgvarg+3) = %d\n", V_VT(pdp->rgvarg+3));
1329         ok(V_I4(pdp->rgvarg+3) == 22, "V_I4(pdp->rgvarg+3) = %d\n", V_I4(pdp->rgvarg+3));
1330
1331         ok(V_VT(pdp->rgvarg+4) == VT_I4, "V_VT(pdp->rgvarg+4) = %d\n", V_VT(pdp->rgvarg+4));
1332         ok(V_I4(pdp->rgvarg+4) == 22, "V_I4(pdp->rgvarg+4) = %d\n", V_I4(pdp->rgvarg+4));
1333
1334         ok(V_VT(pdp->rgvarg+5) == VT_DISPATCH, "V_VT(pdp->rgvarg+5) = %d\n", V_VT(pdp->rgvarg+5));
1335         ok(V_DISPATCH(pdp->rgvarg+5) == (IDispatch*)&testObj, "V_DISPATCH(pdp->rgvarg+5) != testObj\n");
1336
1337         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1338
1339         V_VT(args) = VT_I2;
1340         V_I2(args) = 2;
1341         V_VT(args+1) = VT_INT;
1342         V_INT(args+1) = 22;
1343         V_VT(args+2) = VT_UNKNOWN;
1344         V_UNKNOWN(args+2) = (IUnknown*)&testObj;
1345         V_VT(args+3) = VT_UNKNOWN;
1346         V_UNKNOWN(args+3) = NULL;
1347         V_VT(args+4) = VT_UI4;
1348         V_UI4(args+4) = 0xffffffff;
1349         V_VT(args+5) = VT_BYREF|VT_VARIANT;
1350         V_VARIANTREF(args+5) = &v;
1351         V_VT(&v) = VT_I4;
1352         V_I4(&v) = 2;
1353         hres = IDispatch_Invoke(V_DISPATCH(pdp->rgvarg), DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
1354         ok(hres == S_OK, "Invoke failed: %08x\n", hres);
1355
1356         return S_OK;
1357     }
1358     }
1359
1360     ok(0, "unexpected call %x\n", id);
1361     return DISP_E_MEMBERNOTFOUND;
1362 }
1363
1364 static HRESULT WINAPI Global_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1365 {
1366     switch(id) {
1367     case DISPID_GLOBAL_TESTPROPDELETE:
1368         CHECK_EXPECT(DeleteMemberByDispID);
1369         return S_OK;
1370     case DISPID_GLOBAL_TESTNOPROPDELETE:
1371         CHECK_EXPECT(DeleteMemberByDispID_false);
1372         return S_FALSE;
1373     case DISPID_GLOBAL_TESTPROPDELETEERROR:
1374         CHECK_EXPECT(DeleteMemberByDispID_error);
1375         return E_FAIL;
1376     default:
1377         ok(0, "id = %d\n", id);
1378     }
1379
1380     return E_FAIL;
1381 }
1382
1383 static IDispatchExVtbl GlobalVtbl = {
1384     DispatchEx_QueryInterface,
1385     DispatchEx_AddRef,
1386     DispatchEx_Release,
1387     DispatchEx_GetTypeInfoCount,
1388     DispatchEx_GetTypeInfo,
1389     DispatchEx_GetIDsOfNames,
1390     DispatchEx_Invoke,
1391     Global_GetDispID,
1392     Global_InvokeEx,
1393     DispatchEx_DeleteMemberByName,
1394     Global_DeleteMemberByDispID,
1395     DispatchEx_GetMemberProperties,
1396     DispatchEx_GetMemberName,
1397     DispatchEx_GetNextDispID,
1398     DispatchEx_GetNameSpaceParent
1399 };
1400
1401 static IDispatchEx Global = { &GlobalVtbl };
1402
1403 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
1404 {
1405     *ppv = NULL;
1406
1407     if(IsEqualGUID(&IID_IUnknown, riid))
1408         *ppv = iface;
1409     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
1410         *ppv = iface;
1411     else
1412         return E_NOINTERFACE;
1413
1414     IUnknown_AddRef((IUnknown*)*ppv);
1415     return S_OK;
1416 }
1417
1418 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
1419 {
1420     return 2;
1421 }
1422
1423 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
1424 {
1425     return 1;
1426 }
1427
1428 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
1429 {
1430     *plcid = GetUserDefaultLCID();
1431     return S_OK;
1432 }
1433
1434 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
1435         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
1436 {
1437     ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
1438     ok(!ppti, "ppti != NULL\n");
1439
1440     if(!strcmp_wa(pstrName, test_valA))
1441         CHECK_EXPECT(GetItemInfo_testVal);
1442     else if(strcmp_wa(pstrName, testA))
1443         ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
1444
1445     *ppiunkItem = (IUnknown*)&Global;
1446     return S_OK;
1447 }
1448
1449 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
1450 {
1451     return E_NOTIMPL;
1452 }
1453
1454 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
1455         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
1456 {
1457     return E_NOTIMPL;
1458 }
1459
1460 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
1461 {
1462     return E_NOTIMPL;
1463 }
1464
1465 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1466 {
1467     return E_NOTIMPL;
1468 }
1469
1470 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
1471 {
1472     return E_NOTIMPL;
1473 }
1474
1475 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
1476 {
1477     return E_NOTIMPL;
1478 }
1479
1480 #undef ACTSCPSITE_THIS
1481
1482 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
1483     ActiveScriptSite_QueryInterface,
1484     ActiveScriptSite_AddRef,
1485     ActiveScriptSite_Release,
1486     ActiveScriptSite_GetLCID,
1487     ActiveScriptSite_GetItemInfo,
1488     ActiveScriptSite_GetDocVersionString,
1489     ActiveScriptSite_OnScriptTerminate,
1490     ActiveScriptSite_OnStateChange,
1491     ActiveScriptSite_OnScriptError,
1492     ActiveScriptSite_OnEnterScript,
1493     ActiveScriptSite_OnLeaveScript
1494 };
1495
1496 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
1497
1498 static HRESULT WINAPI ActiveScriptSite_OnScriptError_CheckError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1499 {
1500     ok(pscripterror != NULL, "ActiveScriptSite_OnScriptError -- expected pscripterror to be set, got NULL\n");
1501
1502     script_error = pscripterror;
1503     IActiveScriptError_AddRef(script_error);
1504
1505     CHECK_EXPECT(ActiveScriptSite_OnScriptError);
1506
1507     return S_OK;
1508 }
1509
1510 static const IActiveScriptSiteVtbl ActiveScriptSite_CheckErrorVtbl = {
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_CheckError,
1520     ActiveScriptSite_OnEnterScript,
1521     ActiveScriptSite_OnLeaveScript
1522 };
1523
1524 static IActiveScriptSite ActiveScriptSite_CheckError = { &ActiveScriptSite_CheckErrorVtbl };
1525
1526 static HRESULT set_script_prop(IActiveScript *engine, DWORD property, VARIANT *val)
1527 {
1528     IActiveScriptProperty *script_prop;
1529     HRESULT hres;
1530
1531     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptProperty,
1532             (void**)&script_prop);
1533     ok(hres == S_OK, "Could not get IActiveScriptProperty iface: %08x\n", hres);
1534
1535     hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
1536     IActiveScriptProperty_Release(script_prop);
1537
1538     return hres;
1539 }
1540
1541 static IActiveScript *create_script(void)
1542 {
1543     IActiveScript *script;
1544     VARIANT v;
1545     HRESULT hres;
1546
1547     hres = CoCreateInstance(engine_clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1548             &IID_IActiveScript, (void**)&script);
1549     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1550
1551     V_VT(&v) = VT_I4;
1552     V_I4(&v) = invoke_version;
1553     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
1554     ok(hres == S_OK || broken(hres == E_NOTIMPL), "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
1555     if(invoke_version && FAILED(hres)) {
1556         IActiveScript_Release(script);
1557         return NULL;
1558     }
1559
1560     return script;
1561 }
1562
1563 static HRESULT parse_script(DWORD flags, BSTR script_str)
1564 {
1565     IActiveScriptParse *parser;
1566     IActiveScript *engine;
1567     HRESULT hres;
1568
1569     engine = create_script();
1570     if(!engine)
1571         return S_OK;
1572
1573     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1574     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1575     if (FAILED(hres))
1576     {
1577         IActiveScript_Release(engine);
1578         return hres;
1579     }
1580
1581     hres = IActiveScriptParse_InitNew(parser);
1582     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1583
1584     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1585     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1586
1587     hres = IActiveScript_AddNamedItem(engine, testW,
1588             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1589     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1590
1591     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1592     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1593
1594     hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1595     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1596     ok(script_disp != NULL, "script_disp == NULL\n");
1597     ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1598
1599     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1600
1601     IDispatch_Release(script_disp);
1602     IActiveScript_Release(engine);
1603     IActiveScriptParse_Release(parser);
1604
1605     return hres;
1606 }
1607
1608 static HRESULT invoke_procedure(const char *argsa, const char *sourcea, DISPPARAMS *dp)
1609 {
1610     IActiveScriptParseProcedure2 *parse_proc;
1611     IActiveScriptParse *parser;
1612     IActiveScript *engine;
1613     IDispatchEx *dispex;
1614     EXCEPINFO ei = {0};
1615     BSTR source, args;
1616     IDispatch *disp;
1617     VARIANT res;
1618     HRESULT hres;
1619
1620     engine = create_script();
1621     if(!engine)
1622         return S_OK;
1623
1624     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1625     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1626
1627     hres = IActiveScriptParse_InitNew(parser);
1628     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1629
1630     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1631     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1632
1633     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1634     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1635
1636     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
1637     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1638
1639     source = a2bstr(sourcea);
1640     args = argsa ? a2bstr(argsa) : NULL;
1641     hres = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, source, args, emptyW, NULL, NULL, NULL, 0, 0,
1642         SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1643     ok(hres == S_OK, "ParseProcedureText failed: %08x\n", hres);
1644     SysFreeString(source);
1645     SysFreeString(args);
1646
1647     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1648     ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
1649     IDispatch_Release(disp);
1650
1651     V_VT(&res) = VT_EMPTY;
1652     hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, 0, DISPATCH_METHOD, dp, &res, &ei, NULL);
1653     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
1654     ok(V_VT(&res) == VT_BOOL && V_BOOL(&res), "InvokeEx returned vt %d (%x)\n", V_VT(&res), V_I4(&res));
1655     IDispatchEx_Release(dispex);
1656
1657     IActiveScriptParseProcedure2_Release(parse_proc);
1658     IActiveScript_Release(engine);
1659     IActiveScriptParse_Release(parser);
1660
1661     return hres;
1662 }
1663
1664 static HRESULT parse_htmlscript(BSTR script_str)
1665 {
1666     IActiveScriptParse *parser;
1667     IActiveScript *engine;
1668     HRESULT hres;
1669     BSTR tmp = a2bstr("</SCRIPT>");
1670
1671     engine = create_script();
1672     if(!engine)
1673         return E_FAIL;
1674
1675     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1676     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1677     if (FAILED(hres))
1678     {
1679         IActiveScript_Release(engine);
1680         return E_FAIL;
1681     }
1682
1683     hres = IActiveScriptParse_InitNew(parser);
1684     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1685
1686     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1687     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1688
1689     hres = IActiveScript_AddNamedItem(engine, testW,
1690             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1691     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1692
1693     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1694     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1695
1696     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, tmp, 0, 0, 0, NULL, NULL);
1697
1698     IActiveScript_Release(engine);
1699     IActiveScriptParse_Release(parser);
1700     SysFreeString(tmp);
1701
1702     return hres;
1703 }
1704
1705 static void test_IActiveScriptError(IActiveScriptError *error, SCODE errorcode, ULONG line, LONG pos, BSTR script_source, BSTR description, BSTR line_text)
1706 {
1707     HRESULT hres;
1708     DWORD source_context;
1709     ULONG line_number;
1710     LONG char_position;
1711     BSTR linetext;
1712     EXCEPINFO excep;
1713
1714     /* IActiveScriptError_GetSourcePosition */
1715
1716     hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, NULL);
1717     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1718
1719     source_context = 0xdeadbeef;
1720     hres = IActiveScriptError_GetSourcePosition(error, &source_context, NULL, NULL);
1721     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1722     ok(source_context == 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context);
1723
1724     line_number = 0xdeadbeef;
1725     hres = IActiveScriptError_GetSourcePosition(error, NULL, &line_number, NULL);
1726     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1727     ok(line_number == line, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line, line_number);
1728
1729     char_position = 0xdeadbeef;
1730     hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, &char_position);
1731     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1732     ok(char_position == pos, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos, char_position);
1733
1734     /* IActiveScriptError_GetSourceLineText */
1735
1736     hres = IActiveScriptError_GetSourceLineText(error, NULL);
1737     ok(hres == E_POINTER, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres);
1738
1739     linetext = NULL;
1740     hres = IActiveScriptError_GetSourceLineText(error, &linetext);
1741     if (line_text) {
1742         ok(hres == S_OK, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1743         ok(linetext != NULL && !lstrcmpW(linetext, line_text),
1744            "IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text), wine_dbgstr_w(linetext));
1745     } else {
1746         ok(hres == E_FAIL, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1747         ok(linetext == NULL,
1748            "IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext));
1749     }
1750     SysFreeString(linetext);
1751
1752     /* IActiveScriptError_GetExceptionInfo */
1753
1754     hres = IActiveScriptError_GetExceptionInfo(error, NULL);
1755     ok(hres == E_POINTER, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres);
1756
1757     excep.wCode = 0xdead;
1758     excep.wReserved = 0xdead;
1759     excep.bstrSource = (BSTR)0xdeadbeef;
1760     excep.bstrDescription = (BSTR)0xdeadbeef;
1761     excep.bstrHelpFile = (BSTR)0xdeadbeef;
1762     excep.dwHelpContext = 0xdeadbeef;
1763     excep.pvReserved = (void *)0xdeadbeef;
1764     excep.pfnDeferredFillIn = (void *)0xdeadbeef;
1765     excep.scode = 0xdeadbeef;
1766
1767     hres = IActiveScriptError_GetExceptionInfo(error, &excep);
1768     ok(hres == S_OK, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres);
1769
1770     ok(excep.wCode == 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep.wCode);
1771     ok(excep.wReserved == 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep.wReserved);
1772     if (!is_lang_english())
1773         skip("Non-english UI (test with hardcoded strings)\n");
1774     else {
1775         ok(excep.bstrSource != NULL && !lstrcmpW(excep.bstrSource, script_source),
1776            "IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
1777            wine_dbgstr_w(script_source), wine_dbgstr_w(excep.bstrSource));
1778         ok(excep.bstrDescription != NULL && !lstrcmpW(excep.bstrDescription, description),
1779            "IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep.bstrDescription));
1780     }
1781     ok(excep.bstrHelpFile == NULL,
1782        "IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep.bstrHelpFile));
1783     ok(excep.dwHelpContext == 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep.dwHelpContext);
1784     ok(excep.pvReserved == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep.pvReserved);
1785     ok(excep.pfnDeferredFillIn == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep.pfnDeferredFillIn);
1786     ok(excep.scode == errorcode, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode, excep.scode);
1787
1788     SysFreeString(excep.bstrSource);
1789     SysFreeString(excep.bstrDescription);
1790     SysFreeString(excep.bstrHelpFile);
1791 }
1792
1793 static void parse_script_with_error(DWORD flags, BSTR script_str, SCODE errorcode, ULONG line, LONG pos, BSTR script_source, BSTR description, BSTR line_text)
1794 {
1795     IActiveScriptParse *parser;
1796     IActiveScript *engine;
1797     HRESULT hres;
1798
1799     engine = create_script();
1800     if(!engine)
1801         return;
1802
1803     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1804     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1805     if (FAILED(hres))
1806     {
1807         IActiveScript_Release(engine);
1808         return;
1809     }
1810
1811     hres = IActiveScriptParse_InitNew(parser);
1812     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1813
1814     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
1815     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1816
1817     hres = IActiveScript_AddNamedItem(engine, testW,
1818             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1819     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1820
1821     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1822     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1823
1824     hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1825     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1826     ok(script_disp != NULL, "script_disp == NULL\n");
1827     ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1828
1829     script_error = NULL;
1830     SET_EXPECT(ActiveScriptSite_OnScriptError);
1831     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1832     todo_wine ok(hres == 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres);
1833     todo_wine CHECK_CALLED(ActiveScriptSite_OnScriptError);
1834
1835     if (script_error)
1836     {
1837         test_IActiveScriptError(script_error, errorcode, line, pos, script_source, description, line_text);
1838
1839         IActiveScriptError_Release(script_error);
1840     }
1841
1842     IDispatch_Release(script_disp);
1843     IActiveScript_Release(engine);
1844     IActiveScriptParse_Release(parser);
1845 }
1846
1847 static void parse_script_af(DWORD flags, const char *src)
1848 {
1849     BSTR tmp;
1850     HRESULT hres;
1851
1852     tmp = a2bstr(src);
1853     hres = parse_script(flags, tmp);
1854     SysFreeString(tmp);
1855     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1856 }
1857
1858 static void parse_script_a(const char *src)
1859 {
1860     parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1861 }
1862
1863 static void parse_script_ae(const char *src, HRESULT exhres)
1864 {
1865     BSTR tmp;
1866     HRESULT hres;
1867
1868     tmp = a2bstr(src);
1869     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp);
1870     SysFreeString(tmp);
1871     ok(hres == exhres, "parse_script failed: %08x, expected %08x\n", hres, exhres);
1872 }
1873
1874 static void parse_script_with_error_a(const char *src, SCODE errorcode, ULONG line, LONG pos, LPCSTR source, LPCSTR desc, LPCSTR linetext)
1875 {
1876     BSTR tmp, script_source, description, line_text;
1877
1878     tmp = a2bstr(src);
1879     script_source = a2bstr(source);
1880     description = a2bstr(desc);
1881     line_text = a2bstr(linetext);
1882
1883     parse_script_with_error(SCRIPTITEM_GLOBALMEMBERS, tmp, errorcode, line, pos, script_source, description, line_text);
1884
1885     SysFreeString(line_text);
1886     SysFreeString(description);
1887     SysFreeString(script_source);
1888     SysFreeString(tmp);
1889 }
1890
1891 static HRESULT parse_htmlscript_a(const char *src)
1892 {
1893     HRESULT hres;
1894     BSTR tmp = a2bstr(src);
1895     hres = parse_htmlscript(tmp);
1896     SysFreeString(tmp);
1897
1898     return hres;
1899 }
1900
1901 static BSTR get_script_from_file(const char *filename)
1902 {
1903     DWORD size, len;
1904     HANDLE file, map;
1905     const char *file_map;
1906     BSTR ret;
1907
1908     file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
1909     if(file == INVALID_HANDLE_VALUE) {
1910         trace("Could not open file: %u\n", GetLastError());
1911         return NULL;
1912     }
1913
1914     size = GetFileSize(file, NULL);
1915
1916     map = CreateFileMappingW(file, NULL, PAGE_READONLY, 0, 0, NULL);
1917     CloseHandle(file);
1918     if(map == INVALID_HANDLE_VALUE) {
1919         trace("Could not create file mapping: %u\n", GetLastError());
1920         return NULL;
1921     }
1922
1923     file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
1924     CloseHandle(map);
1925     if(!file_map) {
1926         trace("MapViewOfFile failed: %u\n", GetLastError());
1927         return NULL;
1928     }
1929
1930     len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
1931     ret = SysAllocStringLen(NULL, len);
1932     MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
1933
1934     UnmapViewOfFile(file_map);
1935
1936     return ret;
1937 }
1938
1939 static void run_from_file(const char *filename)
1940 {
1941     BSTR script_str;
1942     HRESULT hres;
1943
1944     script_str = get_script_from_file(filename);
1945     if(!script_str)
1946         return;
1947
1948     strict_dispid_check = FALSE;
1949     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str);
1950     SysFreeString(script_str);
1951     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1952 }
1953
1954 static BSTR load_res(const char *name)
1955 {
1956     const char *data;
1957     DWORD size, len;
1958     BSTR str;
1959     HRSRC src;
1960
1961     strict_dispid_check = FALSE;
1962     test_name = name;
1963
1964     src = FindResourceA(NULL, name, (LPCSTR)40);
1965     ok(src != NULL, "Could not find resource %s\n", name);
1966
1967     size = SizeofResource(NULL, src);
1968     data = LoadResource(NULL, src);
1969
1970     len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
1971     str = SysAllocStringLen(NULL, len);
1972     MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
1973
1974     return str;
1975 }
1976
1977 static void run_from_res(const char *name)
1978 {
1979     BSTR str;
1980     HRESULT hres;
1981
1982     str = load_res(name);
1983
1984     SET_EXPECT(global_success_d);
1985     SET_EXPECT(global_success_i);
1986     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str);
1987     CHECK_CALLED(global_success_d);
1988     CHECK_CALLED(global_success_i);
1989
1990     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1991     SysFreeString(str);
1992 }
1993
1994 static void test_isvisible(BOOL global_members)
1995 {
1996     IActiveScriptParse *parser;
1997     IActiveScript *engine;
1998     HRESULT hres;
1999
2000     static const WCHAR script_textW[] =
2001         {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
2002
2003     engine = create_script();
2004     if(!engine)
2005         return;
2006
2007     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2008     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2009     if (FAILED(hres))
2010     {
2011         IActiveScript_Release(engine);
2012         return;
2013     }
2014
2015     hres = IActiveScriptParse_InitNew(parser);
2016     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2017
2018     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2019     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2020
2021     if(global_members)
2022         SET_EXPECT(GetItemInfo_testVal);
2023     hres = IActiveScript_AddNamedItem(engine, test_valW,
2024             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|
2025             (global_members ? SCRIPTITEM_GLOBALMEMBERS : 0));
2026     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2027     if(global_members)
2028         CHECK_CALLED(GetItemInfo_testVal);
2029
2030     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2031     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2032
2033     if(!global_members)
2034         SET_EXPECT(GetItemInfo_testVal);
2035     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2036     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2037     if(!global_members)
2038         CHECK_CALLED(GetItemInfo_testVal);
2039
2040     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2041     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2042
2043     IActiveScript_Release(engine);
2044     IActiveScriptParse_Release(parser);
2045 }
2046
2047 static void test_start(void)
2048 {
2049     IActiveScriptParse *parser;
2050     IActiveScript *engine;
2051     BSTR str;
2052     HRESULT hres;
2053
2054     script_engine = engine = create_script();
2055     if(!engine)
2056         return;
2057
2058     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2059     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2060
2061     hres = IActiveScriptParse_InitNew(parser);
2062     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2063
2064     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2065     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2066
2067     hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2068     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2069
2070     str = a2bstr("ok(getScriptState() === 5, \"getScriptState = \" + getScriptState());\n"
2071                  "reportSuccess();");
2072     hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2073     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2074     SysFreeString(str);
2075
2076     SET_EXPECT(global_success_d);
2077     SET_EXPECT(global_success_i);
2078     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2079     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2080     CHECK_CALLED(global_success_d);
2081     CHECK_CALLED(global_success_i);
2082
2083     IActiveScript_Release(engine);
2084     IActiveScriptParse_Release(parser);
2085     script_engine = NULL;
2086 }
2087
2088 static void test_automagic(void)
2089 {
2090     IActiveScriptParse *parser;
2091     IActiveScript *engine;
2092     BSTR str;
2093     HRESULT hres;
2094
2095     script_engine = engine = create_script();
2096     if(!engine)
2097         return;
2098
2099     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2100     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2101
2102     hres = IActiveScriptParse_InitNew(parser);
2103     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2104
2105     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2106     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2107
2108     hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2109     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2110
2111     str = a2bstr("function bindEventHandler::eventName() {}\n"
2112                  "reportSuccess();");
2113     hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2114     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2115     SysFreeString(str);
2116
2117     SET_EXPECT(BindHandler);
2118     SET_EXPECT(global_success_d);
2119     SET_EXPECT(global_success_i);
2120     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2121     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2122     CHECK_CALLED(BindHandler);
2123     CHECK_CALLED(global_success_d);
2124     CHECK_CALLED(global_success_i);
2125
2126     IActiveScript_Release(engine);
2127     IActiveScriptParse_Release(parser);
2128     script_engine = NULL;
2129 }
2130
2131 static HRESULT parse_script_expr(const char *expr, VARIANT *res, IActiveScript **engine_ret)
2132 {
2133     IActiveScriptParse *parser;
2134     IActiveScript *engine;
2135     BSTR str;
2136     HRESULT hres;
2137
2138     engine = create_script();
2139
2140     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2141     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2142
2143     hres = IActiveScriptParse_InitNew(parser);
2144     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2145
2146     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2147     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2148
2149     SET_EXPECT(GetItemInfo_testVal);
2150     hres = IActiveScript_AddNamedItem(engine, test_valW,
2151             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2152     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2153     CHECK_CALLED(GetItemInfo_testVal);
2154
2155     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2156     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2157
2158     str = a2bstr(expr);
2159     hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, SCRIPTTEXT_ISEXPRESSION, res, NULL);
2160     SysFreeString(str);
2161
2162     IActiveScriptParse_Release(parser);
2163
2164     if(engine_ret) {
2165         *engine_ret = engine;
2166     }else {
2167         IActiveScript_Close(engine);
2168         IActiveScript_Release(engine);
2169     }
2170     return hres;
2171 }
2172
2173 static void test_retval(void)
2174 {
2175     BSTR str = a2bstr("reportSuccess(), true");
2176     IActiveScriptParse *parser;
2177     IActiveScript *engine;
2178     SCRIPTSTATE state;
2179     VARIANT res;
2180     HRESULT hres;
2181
2182     engine = create_script();
2183
2184     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2185     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2186
2187     hres = IActiveScriptParse_InitNew(parser);
2188     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2189
2190     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2191     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2192
2193     SET_EXPECT(GetItemInfo_testVal);
2194     hres = IActiveScript_AddNamedItem(engine, test_valW,
2195             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2196     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2197     CHECK_CALLED(GetItemInfo_testVal);
2198
2199     V_VT(&res) = VT_NULL;
2200     SET_EXPECT(global_success_d);
2201     SET_EXPECT(global_success_i);
2202     hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, &res, NULL);
2203     CHECK_CALLED(global_success_d);
2204     CHECK_CALLED(global_success_i);
2205     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2206     ok(V_VT(&res) == VT_EMPTY, "V_VT(&res) = %d\n", V_VT(&res));
2207
2208     hres = IActiveScript_GetScriptState(engine, &state);
2209     ok(hres == S_OK, "GetScriptState failed: %08x\n", hres);
2210     ok(state == SCRIPTSTATE_INITIALIZED, "state = %d\n", state);
2211
2212     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2213     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2214
2215     hres = IActiveScript_Close(engine);
2216     ok(hres == S_OK, "Close failed: %08x\n", hres);
2217
2218     IActiveScriptParse_Release(parser);
2219     IActiveScript_Release(engine);
2220     SysFreeString(str);
2221 }
2222
2223 static void test_default_value(void)
2224 {
2225     DISPPARAMS dp = {0};
2226     IDispatch *disp;
2227     VARIANT v;
2228     HRESULT hres;
2229
2230     hres = parse_script_expr("new Date()", &v, NULL);
2231     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2232     ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
2233     disp = V_DISPATCH(&v);
2234
2235     V_VT(&v) = VT_EMPTY;
2236     hres = IDispatch_Invoke(disp, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2237     ok(hres == S_OK || broken(hres == 0x8000ffff), "Invoke failed: %08x\n", hres);
2238     if(hres == S_OK)
2239     {
2240         ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2241     }
2242
2243     VariantClear(&v);
2244     IDispatch_Release(disp);
2245 }
2246
2247 static void test_script_exprs(void)
2248 {
2249     VARIANT v;
2250     HRESULT hres;
2251
2252     testing_expr = TRUE;
2253
2254     hres = parse_script_expr("true", &v, NULL);
2255     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2256     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2257     ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2258
2259     hres = parse_script_expr("false, true", &v, NULL);
2260     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2261     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2262     ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2263
2264     SET_EXPECT(global_success_d);
2265     SET_EXPECT(global_success_i);
2266     hres = parse_script_expr("reportSuccess(); true", &v, NULL);
2267     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2268     ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2269     ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2270     CHECK_CALLED(global_success_d);
2271     CHECK_CALLED(global_success_i);
2272
2273     hres = parse_script_expr("if(false) true", &v, NULL);
2274     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2275     ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
2276
2277     hres = parse_script_expr("return testPropGet", &v, NULL);
2278     ok(hres == 0x800a03fa, "parse_script_expr failed: %08x\n", hres);
2279
2280     hres = parse_script_expr("reportSuccess(); return true", &v, NULL);
2281     ok(hres == 0x800a03fa, "parse_script_expr failed: %08x\n", hres);
2282
2283     SET_EXPECT(global_success_d);
2284     SET_EXPECT(global_success_i);
2285     hres = parse_script_expr("reportSuccess(); true", NULL, NULL);
2286     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2287     CHECK_CALLED(global_success_d);
2288     CHECK_CALLED(global_success_i);
2289
2290     test_default_value();
2291     test_retval();
2292
2293     testing_expr = FALSE;
2294 }
2295
2296 static void test_invokeex(void)
2297 {
2298     DISPID func_id, prop_id;
2299     DISPPARAMS dp = {NULL};
2300     IActiveScript *script;
2301     IDispatchEx *dispex;
2302     VARIANT v;
2303     BSTR str;
2304     HRESULT hres;
2305
2306     hres = parse_script_expr("var o = {func: function() {return 3;}, prop: 6}; o", &v, &script);
2307     ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2308     ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
2309
2310     hres = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IDispatchEx, (void**)&dispex);
2311     ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
2312     VariantClear(&v);
2313
2314     str = a2bstr("func");
2315     hres = IDispatchEx_GetDispID(dispex, str, 0, &func_id);
2316     SysFreeString(str);
2317     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2318
2319     str = a2bstr("prop");
2320     hres = IDispatchEx_GetDispID(dispex, str, 0, &prop_id);
2321     SysFreeString(str);
2322     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2323
2324     hres = IDispatchEx_InvokeEx(dispex, func_id, 0, DISPATCH_METHOD, &dp, &v, NULL, NULL);
2325     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2326     ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2327     ok(V_I4(&v) == 3, "V_I4(v) = %d\n", V_I4(&v));
2328
2329     hres = IDispatchEx_InvokeEx(dispex, prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2330     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2331     ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2332     ok(V_I4(&v) == 6, "V_I4(v) = %d\n", V_I4(&v));
2333
2334     hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_UNINITIALIZED);
2335     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2336
2337     str = a2bstr("func");
2338     hres = IDispatchEx_GetDispID(dispex, str, 0, &func_id);
2339     SysFreeString(str);
2340     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2341
2342     hres = IDispatchEx_InvokeEx(dispex, func_id, 0, DISPATCH_METHOD, &dp, &v, NULL, NULL);
2343     ok(hres == E_UNEXPECTED || broken(hres == 0x800a1393), "InvokeEx failed: %08x\n", hres);
2344
2345     hres = IDispatchEx_InvokeEx(dispex, prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2346     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2347     ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2348     ok(V_I4(&v) == 6, "V_I4(v) = %d\n", V_I4(&v));
2349
2350     IDispatchEx_Release(dispex);
2351     IActiveScript_Release(script);
2352 }
2353
2354 struct bom_test
2355 {
2356     WCHAR str[1024];
2357     HRESULT hres;
2358 };
2359
2360 static void run_bom_tests(void)
2361 {
2362     BSTR src;
2363     int i;
2364     HRESULT hres;
2365     struct bom_test bom_tests[] = {
2366         {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2367         {{0xFEFF,'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2368         {{'v',0xFEFF,'a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, JS_E_OUT_OF_MEMORY},
2369         {{'v','a','r',0xFEFF,' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2370         {{'v','a','r',' ','a',' ','=',' ','1',';',' ',0xFEFF,'r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2371         {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t',0xFEFF,'S','u','c','c','e','s','s','(',')',';','\0'}, JS_E_OUT_OF_MEMORY},
2372         {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s',0xFEFF,'(',')',';','\0'}, S_OK},
2373         {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2374         {{'v','a','r',' ','a',' ','=',0xFEFF,' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2375         {{0xFEFF,'v','a','r',' ','a',' ','=',0xFEFF,0xFEFF,' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2376         {{0}}
2377     };
2378
2379     engine_clsid = &CLSID_JScript;
2380
2381     for (i = 0; bom_tests[i].str[0]; i++)
2382     {
2383         if(bom_tests[i].hres == S_OK)
2384         {
2385              SET_EXPECT(global_success_d);
2386              SET_EXPECT(global_success_i);
2387              src = SysAllocString(bom_tests[i].str);
2388              hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2389              ok(hres == S_OK, "test %s failed with %08x\n", wine_dbgstr_w(src), hres);
2390              SysFreeString(src);
2391              CHECK_CALLED(global_success_d);
2392              CHECK_CALLED(global_success_i);
2393         }
2394         else
2395         {
2396              src = SysAllocString(bom_tests[i].str);
2397              hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2398              todo_wine ok(hres == bom_tests[i].hres, "test %s returned with %08x\n", wine_dbgstr_w(src), hres);
2399              SysFreeString(src);
2400         }
2401     }
2402 }
2403
2404 static BOOL run_tests(void)
2405 {
2406     HRESULT hres;
2407
2408     if(invoke_version) {
2409         IActiveScript *script;
2410
2411         script = create_script();
2412         if(!script) {
2413             win_skip("Could not create script\n");
2414             return FALSE;
2415         }
2416         IActiveScript_Release(script);
2417     }
2418
2419     strict_dispid_check = TRUE;
2420
2421     parse_script_a("");
2422     parse_script_a("/* empty */ ;");
2423
2424     SET_EXPECT(global_propget_d);
2425     SET_EXPECT(global_propget_i);
2426     parse_script_a("testPropGet;");
2427     CHECK_CALLED(global_propget_d);
2428     CHECK_CALLED(global_propget_i);
2429
2430     SET_EXPECT(global_propput_d);
2431     SET_EXPECT(global_propput_i);
2432     parse_script_a("testPropPut = 1;");
2433     CHECK_CALLED(global_propput_d);
2434     CHECK_CALLED(global_propput_i);
2435
2436     SET_EXPECT(global_propputref_d);
2437     SET_EXPECT(global_propputref_i);
2438     parse_script_a("testPropPutRef = new Object();");
2439     CHECK_CALLED(global_propputref_d);
2440     CHECK_CALLED(global_propputref_i);
2441
2442     SET_EXPECT(global_propputref_d);
2443     SET_EXPECT(global_propputref_i);
2444     parse_script_a("testPropPutRef = testObj;");
2445     CHECK_CALLED(global_propputref_d);
2446     CHECK_CALLED(global_propputref_i);
2447
2448     SET_EXPECT(global_success_d);
2449     SET_EXPECT(global_success_i);
2450     parse_script_a("reportSuccess();");
2451     CHECK_CALLED(global_success_d);
2452     CHECK_CALLED(global_success_i);
2453
2454     SET_EXPECT(testobj_delete_test);
2455     parse_script_a("ok((delete testObj.deleteTest) === true, 'delete testObj.deleteTest did not return true');");
2456     CHECK_CALLED(testobj_delete_test);
2457
2458     SET_EXPECT(testobj_delete_nodelete);
2459     parse_script_a("ok((delete testObj.noDeleteTest) === false, 'delete testObj.noDeleteTest did not return false');");
2460     CHECK_CALLED(testobj_delete_nodelete);
2461
2462     SET_EXPECT(global_propdelete_d);
2463     SET_EXPECT(DeleteMemberByDispID);
2464     parse_script_a("ok((delete testPropDelete) === true, 'delete testPropDelete did not return true');");
2465     CHECK_CALLED(global_propdelete_d);
2466     CHECK_CALLED(DeleteMemberByDispID);
2467
2468     SET_EXPECT(global_nopropdelete_d);
2469     SET_EXPECT(DeleteMemberByDispID_false);
2470     parse_script_a("ok((delete testNoPropDelete) === false, 'delete testPropDelete did not return false');");
2471     CHECK_CALLED(global_nopropdelete_d);
2472     CHECK_CALLED(DeleteMemberByDispID_false);
2473
2474     SET_EXPECT(global_propdeleteerror_d);
2475     SET_EXPECT(DeleteMemberByDispID_error);
2476     parse_script_ae("delete testPropDeleteError;", E_FAIL);
2477     CHECK_CALLED(global_propdeleteerror_d);
2478     CHECK_CALLED(DeleteMemberByDispID_error);
2479
2480     SET_EXPECT(puredisp_prop_d);
2481     parse_script_a("ok((delete pureDisp.prop) === false, 'delete pureDisp.prop did not return true');");
2482     CHECK_CALLED(puredisp_prop_d);
2483
2484     SET_EXPECT(puredisp_noprop_d);
2485     parse_script_a("ok((delete pureDisp.noprop) === true, 'delete pureDisp.noprop did not return false');");
2486     CHECK_CALLED(puredisp_noprop_d);
2487
2488     SET_EXPECT(puredisp_value);
2489     parse_script_a("var t=pureDisp; t=t(false);");
2490     CHECK_CALLED(puredisp_value);
2491
2492     SET_EXPECT(puredisp_value);
2493     parse_script_a("var t = {func: pureDisp}; t = t.func(false);");
2494     CHECK_CALLED(puredisp_value);
2495
2496     SET_EXPECT(dispexfunc_value);
2497     parse_script_a("var t = dispexFunc; t = t(false);");
2498     CHECK_CALLED(dispexfunc_value);
2499
2500     SET_EXPECT(dispexfunc_value);
2501     parse_script_a("var t = {func: dispexFunc}; t = t.func(false);");
2502     CHECK_CALLED(dispexfunc_value);
2503
2504     parse_script_a("(function reportSuccess() {})()");
2505
2506     parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
2507
2508     parse_script_a("function reportSuccess() {}; reportSuccess();");
2509
2510     SET_EXPECT(global_propget_d);
2511     parse_script_a("var testPropGet");
2512     CHECK_CALLED(global_propget_d);
2513
2514     SET_EXPECT(global_propget_d);
2515     parse_script_a("eval('var testPropGet;');");
2516     CHECK_CALLED(global_propget_d);
2517
2518     SET_EXPECT(global_notexists_d);
2519     parse_script_a("var notExists; notExists = 1;");
2520     CHECK_CALLED(global_notexists_d);
2521
2522     SET_EXPECT(testobj_notexists_d);
2523     parse_script_a("testObj.notExists;");
2524     CHECK_CALLED(testobj_notexists_d);
2525
2526     parse_script_a("function f() { var testPropGet; }");
2527     parse_script_a("(function () { var testPropGet; })();");
2528     parse_script_a("(function () { eval('var testPropGet;'); })();");
2529
2530     SET_EXPECT(invoke_func);
2531     parse_script_a("ok(propGetFunc() == 0, \"Incorrect propGetFunc value\");");
2532     CHECK_CALLED(invoke_func);
2533     parse_script_a("ok(propGetFunc(1) == 1, \"Incorrect propGetFunc value\");");
2534     parse_script_a("ok(propGetFunc(1, 2) == 2, \"Incorrect propGetFunc value\");");
2535     SET_EXPECT(invoke_func);
2536     parse_script_a("ok(propGetFunc().toString() == 0, \"Incorrect propGetFunc value\");");
2537     CHECK_CALLED(invoke_func);
2538     parse_script_a("ok(propGetFunc(1).toString() == 1, \"Incorrect propGetFunc value\");");
2539     SET_EXPECT(invoke_func);
2540     parse_script_a("propGetFunc(1);");
2541     CHECK_CALLED(invoke_func);
2542
2543     parse_script_a("objectFlag(1).toString();");
2544
2545     parse_script_a("(function() { var tmp = (function () { return testObj; })()(1);})();");
2546     parse_script_a("(function() { var tmp = (function () { return testObj; })()();})();");
2547
2548     parse_script_a("ok((testObj instanceof Object) === false, 'testObj is instance of Object');");
2549
2550     SET_EXPECT(testobj_prop_d);
2551     parse_script_a("ok(('prop' in testObj) === true, 'prop is not in testObj');");
2552     CHECK_CALLED(testobj_prop_d);
2553
2554     SET_EXPECT(testobj_noprop_d);
2555     parse_script_a("ok(('noprop' in testObj) === false, 'noprop is in testObj');");
2556     CHECK_CALLED(testobj_noprop_d);
2557
2558     SET_EXPECT(testobj_prop_d);
2559     parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'prop') === true, 'hasOwnProperty(\\\"prop\\\") returned false');");
2560     CHECK_CALLED(testobj_prop_d);
2561
2562     SET_EXPECT(testobj_noprop_d);
2563     parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
2564     CHECK_CALLED(testobj_noprop_d);
2565
2566     SET_EXPECT(puredisp_prop_d);
2567     parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'prop') === true, 'hasOwnProperty(\\\"noprop\\\") returned false');");
2568     CHECK_CALLED(puredisp_prop_d);
2569
2570     SET_EXPECT(puredisp_noprop_d);
2571     parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
2572     CHECK_CALLED(puredisp_noprop_d);
2573
2574     SET_EXPECT(testobj_value);
2575     parse_script_a("ok(String(testObj) === '1', 'wrong testObj value');");
2576     CHECK_CALLED(testobj_value);
2577
2578     SET_EXPECT(testobj_value);
2579     parse_script_a("ok(String.prototype.concat.call(testObj, ' OK') === '1 OK', 'wrong concat result');");
2580     CHECK_CALLED(testobj_value);
2581
2582     SET_EXPECT(testobj_construct);
2583     parse_script_a("var t = new testObj(1);");
2584     CHECK_CALLED(testobj_construct);
2585
2586     SET_EXPECT(global_propget_d);
2587     SET_EXPECT(global_propget_i);
2588     parse_script_a("this.testPropGet;");
2589     CHECK_CALLED(global_propget_d);
2590     CHECK_CALLED(global_propget_i);
2591
2592     SET_EXPECT(global_propputref_d);
2593     SET_EXPECT(global_propputref_i);
2594     parse_script_a("testPropPutRef = nullDisp;");
2595     CHECK_CALLED(global_propputref_d);
2596     CHECK_CALLED(global_propputref_i);
2597
2598     SET_EXPECT(global_propget_d);
2599     SET_EXPECT(global_propget_i);
2600     parse_script_a("(function () { this.testPropGet; })();");
2601     CHECK_CALLED(global_propget_d);
2602     CHECK_CALLED(global_propget_i);
2603
2604     parse_script_a("testThis(this);");
2605     parse_script_a("(function () { testThis(this); })();");
2606     parse_script_a("function x() { testThis(this); }; x();");
2607     parse_script_a("var t = {func: function () { ok(this === t, 'this !== t'); }}; with(t) { func(); }");
2608     parse_script_a("function x() { testThis(this); }; with({y: 1}) { x(); }");
2609     parse_script_a("(function () { function x() { testThis(this);} x(); })();");
2610
2611     SET_EXPECT(testobj_onlydispid_d);
2612     SET_EXPECT(testobj_onlydispid_i);
2613     parse_script_a("ok(typeof(testObj.onlyDispID) === 'unknown', 'unexpected typeof(testObj.onlyDispID)');");
2614     CHECK_CALLED(testobj_onlydispid_d);
2615     CHECK_CALLED(testobj_onlydispid_i);
2616
2617     SET_EXPECT(global_propargput_d);
2618     SET_EXPECT(global_propargput_i);
2619     parse_script_a("var t=0; propArgPutG(t++, t++) = t++;");
2620     CHECK_CALLED(global_propargput_d);
2621     CHECK_CALLED(global_propargput_i);
2622
2623     SET_EXPECT(global_propargput_d);
2624     SET_EXPECT(global_propargput_i);
2625     parse_script_a("var t=0; test.propArgPutO(t++, t++) = t++;");
2626     CHECK_CALLED(global_propargput_d);
2627     CHECK_CALLED(global_propargput_i);
2628
2629     SET_EXPECT(global_testargtypes_i);
2630     parse_script_a("testArgTypes(dispUnk, intProp(), intProp, getShort(), shortProp, function(i4ref,ui4,nullunk,d,i,s) {"
2631                    "    ok(getVT(i) === 'VT_I4', 'getVT(i) = ' + getVT(i));"
2632                    "    ok(getVT(s) === 'VT_I4', 'getVT(s) = ' + getVT(s));"
2633                    "    ok(getVT(d) === 'VT_DISPATCH', 'getVT(d) = ' + getVT(d));"
2634                    "    ok(getVT(nullunk) === 'VT_DISPATCH', 'getVT(nullunk) = ' + getVT(nullunk));"
2635                    "    ok(nullunk === null, 'nullunk !== null');"
2636                    "    ok(getVT(ui4) === 'VT_R8', 'getVT(ui4) = ' + getVT(ui4));"
2637                    "    ok(ui4 > 0, 'ui4 = ' + ui4);"
2638                    "    ok(getVT(i4ref) === 'VT_I4', 'getVT(i4ref) = ' + getVT(i4ref));"
2639                    "    ok(i4ref === 2, 'i4ref = ' + i4ref);"
2640                    "});");
2641     CHECK_CALLED(global_testargtypes_i);
2642
2643     SET_EXPECT(testobj_withprop_d);
2644     SET_EXPECT(testobj_withprop_i);
2645     parse_script_a("var t = (function () { with(testObj) { return withProp; }})(); ok(t === 1, 't = ' + t);");
2646     CHECK_CALLED(testobj_withprop_d);
2647     CHECK_CALLED(testobj_withprop_i);
2648
2649     parse_script_a("@set @t=2\nok(@t === 2, '@t = ' + @t);");
2650
2651     SET_EXPECT(global_success_d);
2652     SET_EXPECT(global_success_i);
2653     parse_script_a("@if(true)\nif(@_jscript) reportSuccess();\n@end");
2654     CHECK_CALLED(global_success_d);
2655     CHECK_CALLED(global_success_i);
2656
2657     run_from_res("lang.js");
2658     run_from_res("api.js");
2659     run_from_res("regexp.js");
2660     run_from_res("cc.js");
2661
2662     test_isvisible(FALSE);
2663     test_isvisible(TRUE);
2664     test_start();
2665     test_automagic();
2666
2667     parse_script_af(0, "test.testThis2(this);");
2668     parse_script_af(0, "(function () { test.testThis2(this); })();");
2669
2670     hres = parse_htmlscript_a("<!--");
2671     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2672     hres = parse_htmlscript_a("-->");
2673     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2674     hres = parse_htmlscript_a("<!--\nvar a=1;\n-->\n");
2675     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2676     hres = parse_htmlscript_a("<!--\n<!-- ignore this\n-->\n");
2677     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2678     hres = parse_htmlscript_a("var a=1;\nif(a-->0) a=5;\n");
2679     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2680     hres = parse_htmlscript_a("var a=1;\nif(a\n-->0) a=5;\n");
2681     ok(hres != S_OK, "ParseScriptText have not failed\n");
2682
2683     test_script_exprs();
2684     test_invokeex();
2685
2686     parse_script_with_error_a(
2687         "?",
2688         0x800a03ea, 0, 0,
2689         "Microsoft JScript compilation error",
2690         "Syntax error",
2691         "?");
2692
2693     parse_script_with_error_a(
2694         "var a=1;\nif(a\n-->0) a=5;\n",
2695         0x800a03ee, 2, 0,
2696         "Microsoft JScript compilation error",
2697         "Expected ')'",
2698         "-->0) a=5;");
2699
2700     parse_script_with_error_a(
2701         "new 3;",
2702         0x800a01bd, 0, 0,
2703         "Microsoft JScript runtime error",
2704         "Object doesn't support this action",
2705         NULL);
2706
2707     parse_script_with_error_a(
2708         "new null;",
2709         0x800a138f, 0, 0,
2710         "Microsoft JScript runtime error",
2711         "Object expected",
2712         NULL);
2713
2714     parse_script_with_error_a(
2715         "var a;\nnew null;",
2716         0x800a138f, 1, 0,
2717         "Microsoft JScript runtime error",
2718         "Object expected",
2719         NULL);
2720
2721     parse_script_with_error_a(
2722         "var a; new null;",
2723         0x800a138f, 0, 7,
2724         "Microsoft JScript runtime error",
2725         "Object expected",
2726         NULL);
2727
2728     run_bom_tests();
2729
2730     return TRUE;
2731 }
2732
2733 static void test_parse_proc(void)
2734 {
2735     VARIANT args[2];
2736     DISPPARAMS dp = {args};
2737
2738     dp.cArgs = 0;
2739     invoke_procedure(NULL, "return true;", &dp);
2740
2741     dp.cArgs = 1;
2742     V_VT(args) = VT_EMPTY;
2743     invoke_procedure(NULL, "return arguments.length == 1;", &dp);
2744
2745     V_VT(args) = VT_BOOL;
2746     V_BOOL(args) = VARIANT_TRUE;
2747     invoke_procedure(" x ", "return x;", &dp);
2748
2749     dp.cArgs = 2;
2750     V_VT(args) = VT_I4;
2751     V_I4(args) = 2;
2752     V_VT(args+1) = VT_I4;
2753     V_I4(args+1) = 1;
2754     invoke_procedure(" _x1 , y_2", "return _x1 === 1 && y_2 === 2;", &dp);
2755 }
2756
2757 static void run_encoded_tests(void)
2758 {
2759     BSTR src;
2760     HRESULT hres;
2761
2762     engine_clsid = &CLSID_JScriptEncode;
2763
2764     SET_EXPECT(global_success_d);
2765     SET_EXPECT(global_success_i);
2766     /*             |reportSuccess();                           | */
2767     parse_script_a("#@~^EAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
2768     CHECK_CALLED(global_success_d);
2769     CHECK_CALLED(global_success_i);
2770
2771     SET_EXPECT(global_success_d);
2772     SET_EXPECT(global_success_i);
2773     parse_script_a("reportSuccess();");
2774     CHECK_CALLED(global_success_d);
2775     CHECK_CALLED(global_success_i);
2776
2777     SET_EXPECT(global_success_d);
2778     SET_EXPECT(global_success_i);
2779     /*                   |Success                         | */
2780     parse_script_a("report#@~^BwAAAA==j!m^\x7f/k2QIAAA==^#~@();");
2781     CHECK_CALLED(global_success_d);
2782     CHECK_CALLED(global_success_i);
2783
2784     SET_EXPECT(global_success_d);
2785     SET_EXPECT(global_success_i);
2786     /*             |\r\n\treportSuccess();\r\n                        | */
2787     parse_script_a("#@~^GQAAAA==@#@&d.\x7fwKDYUE1^+k/c#p@#@&OAYAAA==^#~@");
2788     CHECK_CALLED(global_success_d);
2789     CHECK_CALLED(global_success_i);
2790
2791     /*                   v                                   */
2792     src = a2bstr("#@~^EAA*AA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
2793     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2794     SysFreeString(src);
2795     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
2796
2797     /*                      vv                                 */
2798     src = a2bstr("#@~^EAAAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
2799     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2800     SysFreeString(src);
2801     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
2802
2803     /*                      v                                */
2804     src = a2bstr("#@~^EAAAAA^=.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
2805     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2806     SysFreeString(src);
2807     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
2808
2809     /*                                     v                 */
2810     src = a2bstr("#@~^EAAAAA==.\x7fwGMYUEm1ekd`*iAQYAAA==^#~@");
2811     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2812     SysFreeString(src);
2813     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
2814
2815     /*                                                    vv  */
2816     src = a2bstr("#@~^EAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^~#@");
2817     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2818     SysFreeString(src);
2819     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
2820 }
2821
2822 static void run_benchmark(const char *script_name)
2823 {
2824     IActiveScriptParse *parser;
2825     IActiveScript *engine;
2826     ULONG start, end;
2827     BSTR src;
2828     HRESULT hres;
2829
2830     engine = create_script();
2831     if(!engine)
2832         return;
2833
2834     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2835     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2836     if (FAILED(hres)) {
2837         IActiveScript_Release(engine);
2838         return;
2839     }
2840
2841     hres = IActiveScriptParse_InitNew(parser);
2842     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2843
2844     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2845     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2846
2847     hres = IActiveScript_AddNamedItem(engine, testW,
2848             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE);
2849     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2850
2851     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2852     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2853
2854     src = load_res(script_name);
2855
2856     start = GetTickCount();
2857     hres = IActiveScriptParse_ParseScriptText(parser, src, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2858     end = GetTickCount();
2859     ok(hres == S_OK, "%s: ParseScriptText failed: %08x\n", script_name, hres);
2860
2861     trace("%s ran in %u ms\n", script_name, end-start);
2862
2863     IActiveScript_Release(engine);
2864     IActiveScriptParse_Release(parser);
2865     SysFreeString(src);
2866 }
2867
2868 static void run_benchmarks(void)
2869 {
2870     trace("Running benchmarks...\n");
2871
2872     run_benchmark("dna.js");
2873     run_benchmark("base64.js");
2874     run_benchmark("validateinput.js");
2875 }
2876
2877 static BOOL check_jscript(void)
2878 {
2879     IActiveScriptProperty *script_prop;
2880     BSTR str;
2881     HRESULT hres;
2882
2883     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
2884             &IID_IActiveScriptProperty, (void**)&script_prop);
2885     if(FAILED(hres))
2886         return FALSE;
2887     IActiveScriptProperty_Release(script_prop);
2888
2889     str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
2890     hres = parse_script(0, str);
2891     SysFreeString(str);
2892
2893     return hres == S_OK;
2894 }
2895
2896 START_TEST(run)
2897 {
2898     int argc;
2899     char **argv;
2900
2901     argc = winetest_get_mainargs(&argv);
2902
2903     CoInitialize(NULL);
2904
2905     if(!check_jscript()) {
2906         win_skip("Broken engine, probably too old\n");
2907     }else if(argc > 2) {
2908         invoke_version = 2;
2909         run_from_file(argv[2]);
2910     }else {
2911         trace("invoke version 0\n");
2912         invoke_version = 0;
2913         run_tests();
2914
2915         trace("invoke version 2\n");
2916         invoke_version = 2;
2917         if(run_tests()) {
2918             trace("JSctipt.Encode tests...\n");
2919             run_encoded_tests();
2920             trace("ParseProcedureText tests...\n");
2921             test_parse_proc();
2922         }
2923
2924         if(winetest_interactive)
2925             run_benchmarks();
2926     }
2927
2928     CoUninitialize();
2929 }