git.oblomov.eu Git - wine/blob - 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
  37 #else
  38
  39 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
  40 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  41 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  42 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  43
  44 #endif
  45
  46 static const CLSID CLSID_JScript =
  47     {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
  48 static const CLSID CLSID_JScriptEncode =
  49     {0xf414c262,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
  50
  51 #define DEFINE_EXPECT(func) \
  52     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  53
  54 #define SET_EXPECT(func) \
  55     expect_ ## func = TRUE
  56
  57 #define CHECK_EXPECT2(func) \
  58     do { \
  59         ok(expect_ ##func, "unexpected call " #func "\n"); \
  60         called_ ## func = TRUE; \
  61     }while(0)
  62
  63 #define CHECK_EXPECT(func) \
  64     do { \
  65         CHECK_EXPECT2(func); \
  66         expect_ ## func = FALSE; \
  67     }while(0)
  68
  69 #define CHECK_CALLED(func) \
  70     do { \
  71         ok(called_ ## func, "expected " #func "\n"); \
  72         expect_ ## func = called_ ## func = FALSE; \
  73     }while(0)
  74
  75 DEFINE_EXPECT(global_propget_d);
  76 DEFINE_EXPECT(global_propget_i);
  77 DEFINE_EXPECT(global_propput_d);
  78 DEFINE_EXPECT(global_propput_i);
  79 DEFINE_EXPECT(global_propdelete_d);
  80 DEFINE_EXPECT(global_success_d);
  81 DEFINE_EXPECT(global_success_i);
  82 DEFINE_EXPECT(global_notexists_d);
  83 DEFINE_EXPECT(global_propargput_d);
  84 DEFINE_EXPECT(global_propargput_i);
  85 DEFINE_EXPECT(global_testargtypes_i);
  86 DEFINE_EXPECT(puredisp_prop_d);
  87 DEFINE_EXPECT(puredisp_noprop_d);
  88 DEFINE_EXPECT(testobj_delete);
  89 DEFINE_EXPECT(testobj_value);
  90 DEFINE_EXPECT(testobj_prop_d);
  91 DEFINE_EXPECT(testobj_withprop_d);
  92 DEFINE_EXPECT(testobj_withprop_i);
  93 DEFINE_EXPECT(testobj_noprop_d);
  94 DEFINE_EXPECT(testobj_onlydispid_d);
  95 DEFINE_EXPECT(testobj_onlydispid_i);
  96 DEFINE_EXPECT(GetItemInfo_testVal);
  97 DEFINE_EXPECT(ActiveScriptSite_OnScriptError);
  98 DEFINE_EXPECT(invoke_func);
  99 DEFINE_EXPECT(DeleteMemberByDispID);
 100
 101 #define DISPID_GLOBAL_TESTPROPGET   0x1000
 102 #define DISPID_GLOBAL_TESTPROPPUT   0x1001
 103 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
 104 #define DISPID_GLOBAL_TRACE         0x1003
 105 #define DISPID_GLOBAL_OK            0x1004
 106 #define DISPID_GLOBAL_GETVT         0x1005
 107 #define DISPID_GLOBAL_TESTOBJ       0x1006
 108 #define DISPID_GLOBAL_GETNULLBSTR   0x1007
 109 #define DISPID_GLOBAL_NULL_DISP     0x1008
 110 #define DISPID_GLOBAL_TESTTHIS      0x1009
 111 #define DISPID_GLOBAL_TESTTHIS2     0x100a
 112 #define DISPID_GLOBAL_INVOKEVERSION 0x100b
 113 #define DISPID_GLOBAL_CREATEARRAY   0x100c
 114 #define DISPID_GLOBAL_PROPGETFUNC   0x100d
 115 #define DISPID_GLOBAL_OBJECT_FLAG   0x100e
 116 #define DISPID_GLOBAL_ISWIN64       0x100f
 117 #define DISPID_GLOBAL_PUREDISP      0x1010
 118 #define DISPID_GLOBAL_ISNULLBSTR    0x1011
 119 #define DISPID_GLOBAL_PROPARGPUT    0x1012
 120 #define DISPID_GLOBAL_SHORTPROP     0x1013
 121 #define DISPID_GLOBAL_GETSHORT      0x1014
 122 #define DISPID_GLOBAL_TESTARGTYPES  0x1015
 123 #define DISPID_GLOBAL_INTPROP       0x1016
 124
 125 #define DISPID_GLOBAL_TESTPROPDELETE  0x2000
 126
 127 #define DISPID_TESTOBJ_PROP         0x2000
 128 #define DISPID_TESTOBJ_ONLYDISPID   0x2001
 129 #define DISPID_TESTOBJ_WITHPROP     0x2002
 130
 131 #define JS_E_INVALID_CHAR 0x800a03f6
 132
 133 static const WCHAR testW[] = {'t','e','s','t',0};
 134 static const CHAR testA[] = "test";
 135 static const WCHAR test_valW[] = {'t','e','s','t','V','a','l',0};
 136 static const CHAR test_valA[] = "testVal";
 137
 138 static BOOL strict_dispid_check;
 139 static const char *test_name = "(null)";
 140 static IDispatch *script_disp;
 141 static int invoke_version;
 142 static IActiveScriptError *script_error;
 143 static const CLSID *engine_clsid = &CLSID_JScript;
 144
 145 /* Returns true if the user interface is in English. Note that this does not
 146  * presume of the formatting of dates, numbers, etc.
 147  */
 148 static BOOL is_lang_english(void)
 149 {
 150     static HMODULE hkernel32 = NULL;
 151     static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
 152     static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
 153
 154     if (!hkernel32)
 155     {
 156         hkernel32 = GetModuleHandleA("kernel32.dll");
 157         pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
 158         pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
 159     }
 160     if (pGetThreadUILanguage)
 161         return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH;
 162     if (pGetUserDefaultUILanguage)
 163         return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH;
 164
 165     return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
 166 }
 167
 168 static BSTR a2bstr(const char *str)
 169 {
 170     BSTR ret;
 171     int len;
 172
 173     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 174     ret = SysAllocStringLen(NULL, len-1);
 175     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 176
 177     return ret;
 178 }
 179
 180 static int strcmp_wa(LPCWSTR strw, const char *stra)
 181 {
 182     CHAR buf[512];
 183     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
 184     return lstrcmpA(buf, stra);
 185 }
 186
 187 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
 188 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
 189 {
 190     expect |= invoke_version << 28;
 191     ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
 192 }
 193
 194 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 195 {
 196     *ppv = NULL;
 197
 198     if(IsEqualGUID(riid, &IID_IUnknown)
 199        || IsEqualGUID(riid, &IID_IDispatch)
 200        || IsEqualGUID(riid, &IID_IDispatchEx))
 201         *ppv = iface;
 202     else
 203         return E_NOINTERFACE;
 204
 205     return S_OK;
 206 }
 207
 208 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 209 {
 210     return 2;
 211 }
 212
 213 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 214 {
 215     return 1;
 216 }
 217
 218 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 219 {
 220     ok(0, "unexpected call\n");
 221     return E_NOTIMPL;
 222 }
 223
 224 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 225                                               LCID lcid, ITypeInfo **ppTInfo)
 226 {
 227     ok(0, "unexpected call\n");
 228     return E_NOTIMPL;
 229 }
 230
 231 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 232                                                 LPOLESTR *rgszNames, UINT cNames,
 233                                                 LCID lcid, DISPID *rgDispId)
 234 {
 235     ok(IsEqualGUID(riid, &IID_NULL), "Expected IID_NULL\n");
 236     ok(cNames==1, "cNames = %d\n", cNames);
 237
 238     if(!strcmp_wa(*rgszNames, "prop")) {
 239         CHECK_EXPECT(puredisp_prop_d);
 240         *rgDispId = DISPID_TESTOBJ_PROP;
 241         return S_OK;
 242     } else if(!strcmp_wa(*rgszNames, "noprop")) {
 243         CHECK_EXPECT(puredisp_noprop_d);
 244         return DISP_E_UNKNOWNNAME;
 245     }
 246
 247     ok(0, "unexpected call\n");
 248     return E_NOTIMPL;
 249 }
 250
 251 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 252                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 253                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 254 {
 255     ok(0, "unexpected call\n");
 256     return E_NOTIMPL;
 257 }
 258
 259 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 260 {
 261     ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
 262     return E_NOTIMPL;
 263 }
 264
 265 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 266 {
 267     ok(0, "unexpected call\n");
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 272 {
 273     ok(0, "unexpected call\n");
 274     return E_NOTIMPL;
 275 }
 276
 277 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 278 {
 279     ok(0, "unexpected call\n");
 280     return E_NOTIMPL;
 281 }
 282
 283 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 284 {
 285     ok(0, "unexpected call\n");
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 290 {
 291     ok(0, "unexpected call\n");
 292     return E_NOTIMPL;
 293 }
 294
 295 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 296 {
 297     if(!strcmp_wa(bstrName, "prop")) {
 298         CHECK_EXPECT(testobj_prop_d);
 299         test_grfdex(grfdex, fdexNameCaseSensitive);
 300         *pid = DISPID_TESTOBJ_PROP;
 301         return S_OK;
 302     }
 303     if(!strcmp_wa(bstrName, "withProp")) {
 304         CHECK_EXPECT(testobj_withprop_d);
 305         test_grfdex(grfdex, fdexNameCaseSensitive|fdexNameImplicit);
 306         *pid = DISPID_TESTOBJ_WITHPROP;
 307         return S_OK;
 308     }
 309     if(!strcmp_wa(bstrName, "noprop")) {
 310         CHECK_EXPECT(testobj_noprop_d);
 311         test_grfdex(grfdex, fdexNameCaseSensitive);
 312         return DISP_E_UNKNOWNNAME;
 313     }
 314     if(!strcmp_wa(bstrName, "onlyDispID")) {
 315         if(strict_dispid_check)
 316             CHECK_EXPECT(testobj_onlydispid_d);
 317         test_grfdex(grfdex, fdexNameCaseSensitive);
 318         *pid = DISPID_TESTOBJ_ONLYDISPID;
 319         return S_OK;
 320     }
 321
 322     ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
 323     return E_NOTIMPL;
 324 }
 325
 326 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 327         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 328 {
 329     ok(pspCaller != NULL, "pspCaller = NULL\n");
 330
 331     switch(id) {
 332     case DISPID_VALUE:
 333         ok(pdp != NULL, "pdp == NULL\n");
 334         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 335         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 336         ok(pvarRes != NULL, "pvarRes == NULL\n");
 337         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 338         ok(pei != NULL, "pei == NULL\n");
 339
 340         switch(wFlags) {
 341         case INVOKE_PROPERTYGET:
 342             CHECK_EXPECT(testobj_value);
 343             ok(!pdp->rgvarg, "rgvarg != NULL\n");
 344             ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 345             break;
 346         case INVOKE_FUNC:
 347             ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 348             break;
 349         case INVOKE_FUNC|INVOKE_PROPERTYGET:
 350             ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 351             break;
 352         default:
 353             ok(0, "invalid flag (%x)\n", wFlags);
 354         }
 355
 356         V_VT(pvarRes) = VT_I4;
 357         V_I4(pvarRes) = 1;
 358         return S_OK;
 359     case DISPID_TESTOBJ_ONLYDISPID:
 360         if(strict_dispid_check)
 361             CHECK_EXPECT(testobj_onlydispid_i);
 362         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 363         ok(pdp != NULL, "pdp == NULL\n");
 364         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 365         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 366         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 367         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 368         ok(pvarRes != NULL, "pvarRes == NULL\n");
 369         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 370         ok(pei != NULL, "pei == NULL\n");
 371         return DISP_E_MEMBERNOTFOUND;
 372      case DISPID_TESTOBJ_WITHPROP:
 373         CHECK_EXPECT(testobj_withprop_i);
 374
 375         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 376         ok(pdp != NULL, "pdp == NULL\n");
 377         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 378         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 379         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 380         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 381         ok(pvarRes != NULL, "pvarRes == NULL\n");
 382         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 383         ok(pei != NULL, "pei == NULL\n");
 384
 385         V_VT(pvarRes) = VT_I4;
 386         V_I4(pvarRes) = 1;
 387
 388         return S_OK;
 389     }
 390
 391     ok(0, "unexpected call %x\n", id);
 392     return DISP_E_MEMBERNOTFOUND;
 393 }
 394
 395 static HRESULT WINAPI testObj_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 396 {
 397     CHECK_EXPECT(testobj_delete);
 398
 399     ok(!strcmp_wa(bstrName, "deleteTest"), "unexpected name %s\n", wine_dbgstr_w(bstrName));
 400     test_grfdex(grfdex, fdexNameCaseSensitive);
 401     return S_OK;
 402 }
 403
 404 static IDispatchExVtbl testObjVtbl = {
 405     DispatchEx_QueryInterface,
 406     DispatchEx_AddRef,
 407     DispatchEx_Release,
 408     DispatchEx_GetTypeInfoCount,
 409     DispatchEx_GetTypeInfo,
 410     DispatchEx_GetIDsOfNames,
 411     DispatchEx_Invoke,
 412     testObj_GetDispID,
 413     testObj_InvokeEx,
 414     testObj_DeleteMemberByName,
 415     DispatchEx_DeleteMemberByDispID,
 416     DispatchEx_GetMemberProperties,
 417     DispatchEx_GetMemberName,
 418     DispatchEx_GetNextDispID,
 419     DispatchEx_GetNameSpaceParent
 420 };
 421
 422 static IDispatchEx testObj = { &testObjVtbl };
 423
 424 static HRESULT WINAPI pureDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 425 {
 426     if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch)) {
 427         *ppv = iface;
 428         return S_OK;
 429     }
 430
 431     *ppv = NULL;
 432     return E_NOINTERFACE;
 433 }
 434
 435 static IDispatchExVtbl pureDispVtbl = {
 436     pureDisp_QueryInterface,
 437     DispatchEx_AddRef,
 438     DispatchEx_Release,
 439     DispatchEx_GetTypeInfoCount,
 440     DispatchEx_GetTypeInfo,
 441     DispatchEx_GetIDsOfNames,
 442     DispatchEx_Invoke
 443 };
 444
 445 static IDispatchEx pureDisp = { &pureDispVtbl };
 446
 447 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 448 {
 449     if(!strcmp_wa(bstrName, "ok")) {
 450         test_grfdex(grfdex, fdexNameCaseSensitive);
 451         *pid = DISPID_GLOBAL_OK;
 452         return S_OK;
 453     }
 454     if(!strcmp_wa(bstrName, "trace")) {
 455         test_grfdex(grfdex, fdexNameCaseSensitive);
 456         *pid = DISPID_GLOBAL_TRACE;
 457         return S_OK;
 458     }
 459     if(!strcmp_wa(bstrName, "reportSuccess")) {
 460         CHECK_EXPECT(global_success_d);
 461         test_grfdex(grfdex, fdexNameCaseSensitive);
 462         *pid = DISPID_GLOBAL_REPORTSUCCESS;
 463         return S_OK;
 464     }
 465     if(!strcmp_wa(bstrName, "testPropGet")) {
 466         CHECK_EXPECT(global_propget_d);
 467         test_grfdex(grfdex, fdexNameCaseSensitive);
 468         *pid = DISPID_GLOBAL_TESTPROPGET;
 469         return S_OK;
 470     }
 471     if(!strcmp_wa(bstrName, "testPropPut")) {
 472         CHECK_EXPECT(global_propput_d);
 473         test_grfdex(grfdex, fdexNameCaseSensitive);
 474         *pid = DISPID_GLOBAL_TESTPROPPUT;
 475         return S_OK;
 476     }
 477     if(!strcmp_wa(bstrName, "testPropDelete")) {
 478         CHECK_EXPECT(global_propdelete_d);
 479         test_grfdex(grfdex, fdexNameCaseSensitive);
 480         *pid = DISPID_GLOBAL_TESTPROPDELETE;
 481         return S_OK;
 482     }
 483     if(!strcmp_wa(bstrName, "getVT")) {
 484         test_grfdex(grfdex, fdexNameCaseSensitive);
 485         *pid = DISPID_GLOBAL_GETVT;
 486         return S_OK;
 487     }
 488     if(!strcmp_wa(bstrName, "testObj")) {
 489         test_grfdex(grfdex, fdexNameCaseSensitive);
 490         *pid = DISPID_GLOBAL_TESTOBJ;
 491         return S_OK;
 492     }
 493     if(!strcmp_wa(bstrName, "getNullBSTR")) {
 494         *pid = DISPID_GLOBAL_GETNULLBSTR;
 495         return S_OK;
 496     }
 497     if(!strcmp_wa(bstrName, "isNullBSTR")) {
 498         *pid = DISPID_GLOBAL_ISNULLBSTR;
 499         return S_OK;
 500     }
 501     if(!strcmp_wa(bstrName, "nullDisp")) {
 502         *pid = DISPID_GLOBAL_NULL_DISP;
 503         return S_OK;
 504     }
 505     if(!strcmp_wa(bstrName, "notExists")) {
 506         CHECK_EXPECT(global_notexists_d);
 507         test_grfdex(grfdex, fdexNameCaseSensitive);
 508         return DISP_E_UNKNOWNNAME;
 509     }
 510
 511     if(!strcmp_wa(bstrName, "testThis")) {
 512         test_grfdex(grfdex, fdexNameCaseSensitive);
 513         *pid = DISPID_GLOBAL_TESTTHIS;
 514         return S_OK;
 515     }
 516
 517     if(!strcmp_wa(bstrName, "testThis2")) {
 518         test_grfdex(grfdex, fdexNameCaseSensitive);
 519         *pid = DISPID_GLOBAL_TESTTHIS2;
 520         return S_OK;
 521     }
 522
 523     if(!strcmp_wa(bstrName, "invokeVersion")) {
 524         test_grfdex(grfdex, fdexNameCaseSensitive);
 525         *pid = DISPID_GLOBAL_INVOKEVERSION;
 526         return S_OK;
 527     }
 528     if(!strcmp_wa(bstrName, "createArray")) {
 529         test_grfdex(grfdex, fdexNameCaseSensitive);
 530         *pid = DISPID_GLOBAL_CREATEARRAY;
 531         return S_OK;
 532     }
 533     if(!strcmp_wa(bstrName, "propGetFunc")) {
 534         test_grfdex(grfdex, fdexNameCaseSensitive);
 535         *pid = DISPID_GLOBAL_PROPGETFUNC;
 536         return S_OK;
 537     }
 538     if(!strcmp_wa(bstrName, "objectFlag")) {
 539         test_grfdex(grfdex, fdexNameCaseSensitive);
 540         *pid = DISPID_GLOBAL_OBJECT_FLAG;
 541         return S_OK;
 542     }
 543
 544     if(!strcmp_wa(bstrName, "isWin64")) {
 545         test_grfdex(grfdex, fdexNameCaseSensitive);
 546         *pid = DISPID_GLOBAL_ISWIN64;
 547         return S_OK;
 548     }
 549
 550     if(!strcmp_wa(bstrName, "pureDisp")) {
 551         test_grfdex(grfdex, fdexNameCaseSensitive);
 552         *pid = DISPID_GLOBAL_PUREDISP;
 553         return S_OK;
 554     }
 555
 556     if(!strcmp_wa(bstrName, "propArgPutG")) {
 557         CHECK_EXPECT(global_propargput_d);
 558         test_grfdex(grfdex, fdexNameCaseSensitive);
 559         *pid = DISPID_GLOBAL_PROPARGPUT;
 560         return S_OK;
 561     }
 562
 563     if(!strcmp_wa(bstrName, "propArgPutO")) {
 564         CHECK_EXPECT(global_propargput_d);
 565         test_grfdex(grfdex, fdexNameEnsure|fdexNameCaseSensitive);
 566         *pid = DISPID_GLOBAL_PROPARGPUT;
 567         return S_OK;
 568     }
 569
 570     if(!strcmp_wa(bstrName, "shortProp")) {
 571         *pid = DISPID_GLOBAL_SHORTPROP;
 572         return S_OK;
 573     }
 574
 575     if(!strcmp_wa(bstrName, "getShort")) {
 576         *pid = DISPID_GLOBAL_GETSHORT;
 577         return S_OK;
 578     }
 579
 580     if(!strcmp_wa(bstrName, "testArgTypes")) {
 581         *pid = DISPID_GLOBAL_TESTARGTYPES;
 582         return S_OK;
 583     }
 584
 585     if(!strcmp_wa(bstrName, "intProp")) {
 586         *pid = DISPID_GLOBAL_INTPROP;
 587         return S_OK;
 588     }
 589
 590     if(strict_dispid_check && strcmp_wa(bstrName, "t"))
 591         ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
 592     return DISP_E_UNKNOWNNAME;
 593 }
 594
 595 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 596         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 597 {
 598     ok(pspCaller != NULL, "pspCaller = NULL\n");
 599
 600     switch(id) {
 601     case DISPID_GLOBAL_OK:
 602         ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
 603         ok(pdp != NULL, "pdp == NULL\n");
 604         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 605         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 606         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
 607         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 608         if(wFlags & INVOKE_PROPERTYGET)
 609             ok(pvarRes != NULL, "pvarRes == NULL\n");
 610         else
 611             ok(!pvarRes, "pvarRes != NULL\n");
 612         ok(pei != NULL, "pei == NULL\n");
 613
 614         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 615         ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
 616         ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 617
 618         return S_OK;
 619
 620      case DISPID_GLOBAL_TRACE:
 621         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 622         ok(pdp != NULL, "pdp == NULL\n");
 623         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 624         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 625         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 626         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 627         ok(!pvarRes, "pvarRes != NULL\n");
 628         ok(pei != NULL, "pei == NULL\n");
 629
 630         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 631         if(V_VT(pdp->rgvarg) == VT_BSTR)
 632             trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 633
 634         return S_OK;
 635
 636     case DISPID_GLOBAL_REPORTSUCCESS:
 637         CHECK_EXPECT(global_success_i);
 638
 639         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 640         ok(pdp != NULL, "pdp == NULL\n");
 641         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 642         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
 643         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 644         ok(!pvarRes, "pvarRes != NULL\n");
 645         ok(pei != NULL, "pei == NULL\n");
 646
 647         return S_OK;
 648
 649      case DISPID_GLOBAL_TESTPROPGET:
 650         CHECK_EXPECT(global_propget_i);
 651
 652         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 653         ok(pdp != NULL, "pdp == NULL\n");
 654         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 655         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 656         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 657         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 658         ok(pvarRes != NULL, "pvarRes == NULL\n");
 659         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 660         ok(pei != NULL, "pei == NULL\n");
 661
 662         V_VT(pvarRes) = VT_I4;
 663         V_I4(pvarRes) = 1;
 664
 665         return S_OK;
 666
 667     case DISPID_GLOBAL_TESTPROPPUT:
 668         CHECK_EXPECT(global_propput_i);
 669
 670         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
 671         ok(pdp != NULL, "pdp == NULL\n");
 672         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 673         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 674         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 675         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 676         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 677         ok(!pvarRes, "pvarRes != NULL\n");
 678
 679         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
 680         ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
 681         return S_OK;
 682
 683      case DISPID_GLOBAL_GETVT:
 684         ok(pdp != NULL, "pdp == NULL\n");
 685         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 686         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 687         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 688         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 689         ok(pvarRes != NULL, "pvarRes == NULL\n");
 690         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 691         ok(pei != NULL, "pei == NULL\n");
 692
 693         V_VT(pvarRes) = VT_BSTR;
 694         switch(V_VT(pdp->rgvarg)) {
 695         case VT_EMPTY:
 696             V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
 697             break;
 698         case VT_NULL:
 699             V_BSTR(pvarRes) = a2bstr("VT_NULL");
 700             break;
 701         case VT_I4:
 702             V_BSTR(pvarRes) = a2bstr("VT_I4");
 703             break;
 704         case VT_R8:
 705             V_BSTR(pvarRes) = a2bstr("VT_R8");
 706             break;
 707         case VT_BSTR:
 708             V_BSTR(pvarRes) = a2bstr("VT_BSTR");
 709             break;
 710         case VT_DISPATCH:
 711             V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
 712             break;
 713         case VT_BOOL:
 714             V_BSTR(pvarRes) = a2bstr("VT_BOOL");
 715             break;
 716         case VT_ARRAY|VT_VARIANT:
 717             V_BSTR(pvarRes) = a2bstr("VT_ARRAY|VT_VARIANT");
 718             break;
 719         default:
 720             ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
 721             return E_FAIL;
 722         }
 723
 724         return S_OK;
 725
 726     case DISPID_GLOBAL_TESTOBJ:
 727         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 728         ok(pdp != NULL, "pdp == NULL\n");
 729         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 730         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 731         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 732         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 733         ok(pvarRes != NULL, "pvarRes == NULL\n");
 734         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 735         ok(pei != NULL, "pei == NULL\n");
 736
 737         V_VT(pvarRes) = VT_DISPATCH;
 738         V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
 739         return S_OK;
 740
 741     case DISPID_GLOBAL_PUREDISP:
 742         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 743         ok(pdp != NULL, "pdp == NULL\n");
 744         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 745         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 746         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 747         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 748         ok(pvarRes != NULL, "pvarRes == NULL\n");
 749         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 750         ok(pei != NULL, "pei == NULL\n");
 751
 752         V_VT(pvarRes) = VT_DISPATCH;
 753         V_DISPATCH(pvarRes) = (IDispatch*)&pureDisp;
 754         return S_OK;
 755
 756     case DISPID_GLOBAL_GETNULLBSTR:
 757         if(pvarRes) {
 758             V_VT(pvarRes) = VT_BSTR;
 759             V_BSTR(pvarRes) = NULL;
 760         }
 761         return S_OK;
 762
 763     case DISPID_GLOBAL_ISNULLBSTR:
 764         ok(pdp != NULL, "pdp == NULL\n");
 765         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 766         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 767         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 768         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 769         ok(pvarRes != NULL, "pvarRes == NULL\n");
 770         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 771         ok(pei != NULL, "pei == NULL\n");
 772         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 773
 774         V_VT(pvarRes) = VT_BOOL;
 775         V_BOOL(pvarRes) = V_BSTR(pdp->rgvarg) ? VARIANT_FALSE : VARIANT_TRUE;
 776         return S_OK;
 777
 778     case DISPID_GLOBAL_ISWIN64:
 779         if(pvarRes) {
 780             V_VT(pvarRes) = VT_BOOL;
 781             V_BOOL(pvarRes) = sizeof(void*) == 8 ? VARIANT_TRUE : VARIANT_FALSE;
 782         }
 783         return S_OK;
 784
 785     case DISPID_GLOBAL_NULL_DISP:
 786         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 787         ok(pdp != NULL, "pdp == NULL\n");
 788         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 789         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 790         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 791         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 792         ok(pvarRes != NULL, "pvarRes == NULL\n");
 793         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 794         ok(pei != NULL, "pei == NULL\n");
 795
 796         V_VT(pvarRes) = VT_DISPATCH;
 797         V_DISPATCH(pvarRes) = NULL;
 798         return S_OK;
 799
 800     case DISPID_GLOBAL_TESTTHIS:
 801         ok(pdp != NULL, "pdp == NULL\n");
 802         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 803         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 804         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 805         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 806         ok(pvarRes == NULL, "pvarRes != NULL\n");
 807         ok(pei != NULL, "pei == NULL\n");
 808
 809         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 810         ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)iface, "disp != iface\n");
 811
 812         return S_OK;
 813
 814     case DISPID_GLOBAL_TESTTHIS2:
 815         ok(pdp != NULL, "pdp == NULL\n");
 816         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 817         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 818         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 819         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 820         ok(pvarRes == NULL, "pvarRes != NULL\n");
 821         ok(pei != NULL, "pei == NULL\n");
 822
 823         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(arg) = %d\n", V_VT(pdp->rgvarg));
 824         ok(V_DISPATCH(pdp->rgvarg) != (IDispatch*)iface, "disp == iface\n");
 825         ok(V_DISPATCH(pdp->rgvarg) == script_disp, "disp != script_disp\n");
 826
 827         return S_OK;
 828
 829      case DISPID_GLOBAL_INVOKEVERSION:
 830         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 831         ok(pdp != NULL, "pdp == NULL\n");
 832         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 833         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 834         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 835         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 836         ok(pvarRes != NULL, "pvarRes == NULL\n");
 837         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 838         ok(pei != NULL, "pei == NULL\n");
 839
 840         V_VT(pvarRes) = VT_I4;
 841         V_I4(pvarRes) = invoke_version;
 842
 843         return S_OK;
 844
 845     case DISPID_GLOBAL_CREATEARRAY: {
 846         SAFEARRAYBOUND bound[2];
 847         VARIANT *data;
 848         int i,j;
 849
 850         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 851         ok(pdp != NULL, "pdp == NULL\n");
 852         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 853         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 854         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 855         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 856         ok(pvarRes != NULL, "pvarRes == NULL\n");
 857         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 858         ok(pei != NULL, "pei == NULL\n");
 859
 860         bound[0].lLbound = 0;
 861         bound[0].cElements = 5;
 862         bound[1].lLbound = 2;
 863         bound[1].cElements = 2;
 864
 865         V_VT(pvarRes) = VT_ARRAY|VT_VARIANT;
 866         V_ARRAY(pvarRes) = SafeArrayCreate(VT_VARIANT, 2, bound);
 867
 868         SafeArrayAccessData(V_ARRAY(pvarRes), (void**)&data);
 869         for(i=0; i<5; i++) {
 870             for(j=2; j<4; j++) {
 871                 V_VT(data) = VT_I4;
 872                 V_I4(data) = i*10+j;
 873                 data++;
 874             }
 875         }
 876         SafeArrayUnaccessData(V_ARRAY(pvarRes));
 877
 878         return S_OK;
 879     }
 880
 881     case DISPID_GLOBAL_PROPGETFUNC:
 882         switch(wFlags) {
 883         case INVOKE_FUNC:
 884             CHECK_EXPECT(invoke_func);
 885             break;
 886         case INVOKE_FUNC|INVOKE_PROPERTYGET:
 887             ok(pdp->cArgs != 0, "pdp->cArgs = %d\n", pdp->cArgs);
 888             ok(pvarRes != NULL, "pdp->pvarRes == NULL\n");
 889             break;
 890         default:
 891             ok(0, "invalid flag (%x)\n", wFlags);
 892         }
 893
 894         ok(pdp != NULL, "pdp == NULL\n");
 895         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 896         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 897         ok(pei != NULL, "pei == NULL\n");
 898
 899         if(pvarRes) {
 900             ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 901             V_VT(pvarRes) = VT_I4;
 902             V_I4(pvarRes) = pdp->cArgs;
 903         }
 904
 905         return S_OK;
 906
 907     case DISPID_GLOBAL_PROPARGPUT:
 908         CHECK_EXPECT(global_propargput_i);
 909         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
 910         ok(pdp != NULL, "pdp == NULL\n");
 911         ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
 912         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 913         ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
 914         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 915         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 916         ok(!pvarRes, "pvarRes != NULL\n");
 917         ok(pei != NULL, "pei == NULL\n");
 918
 919         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
 920         ok(V_I4(pdp->rgvarg) == 2, "V_I4(pdp->rgvarg) = %d\n", V_I4(pdp->rgvarg));
 921
 922         ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
 923         ok(V_I4(pdp->rgvarg+1) == 1, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
 924
 925         ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
 926         ok(V_I4(pdp->rgvarg+2) == 0, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
 927         return S_OK;
 928
 929     case DISPID_GLOBAL_OBJECT_FLAG: {
 930         IDispatchEx *dispex;
 931         BSTR str;
 932         HRESULT hres;
 933
 934         hres = IDispatch_QueryInterface(script_disp, &IID_IDispatchEx, (void**)&dispex);
 935         ok(hres == S_OK, "hres = %x\n", hres);
 936
 937         str = a2bstr("Object");
 938         hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
 939         SysFreeString(str);
 940         ok(hres == S_OK, "hres = %x\n", hres);
 941
 942         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, NULL, pei, pspCaller);
 943         ok(hres == S_OK, "hres = %x\n", hres);
 944
 945         V_VT(pvarRes) = VT_EMPTY;
 946         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, pvarRes, pei, pspCaller);
 947         ok(hres == S_OK, "hres = %x\n", hres);
 948         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 949         VariantClear(pvarRes);
 950
 951         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD|DISPATCH_PROPERTYGET, pdp, NULL, pei, pspCaller);
 952         ok(hres == S_OK, "hres = %x\n", hres);
 953
 954         V_VT(pvarRes) = VT_EMPTY;
 955         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, pvarRes, pei, pspCaller);
 956         ok(hres == S_OK, "hres = %x\n", hres);
 957         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 958         VariantClear(pvarRes);
 959
 960         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, NULL, pei, pspCaller);
 961         ok(hres == S_OK, "hres = %x\n", hres);
 962
 963         V_VT(pvarRes) = VT_EMPTY;
 964         hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT|DISPATCH_PROPERTYGET, pdp, pvarRes, pei, pspCaller);
 965         ok(hres == E_INVALIDARG, "hres = %x\n", hres);
 966
 967         V_VT(pvarRes) = VT_EMPTY;
 968         hres = IDispatchEx_InvokeEx(dispex, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
 969         ok(hres == S_OK, "hres = %x\n", hres);
 970         ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 971         IDispatchEx_Release(dispex);
 972         return S_OK;
 973     }
 974     case DISPID_GLOBAL_SHORTPROP:
 975     case DISPID_GLOBAL_GETSHORT:
 976         V_VT(pvarRes) = VT_I2;
 977         V_I2(pvarRes) = 10;
 978         return S_OK;
 979
 980     case DISPID_GLOBAL_INTPROP:
 981         V_VT(pvarRes) = VT_INT;
 982         V_INT(pvarRes) = 22;
 983         return S_OK;
 984
 985     case DISPID_GLOBAL_TESTARGTYPES: {
 986         VARIANT args[2];
 987         DISPPARAMS dp = {args, NULL, sizeof(args)/sizeof(*args), 0};
 988         HRESULT hres;
 989
 990         CHECK_EXPECT(global_testargtypes_i);
 991         ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
 992         ok(pdp != NULL, "pdp == NULL\n");
 993         ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
 994         ok(pdp->cArgs == 5, "cArgs = %d\n", pdp->cArgs);
 995         ok(!pvarRes, "pvarRes != NULL\n");
 996
 997         ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
 998         ok(V_I4(pdp->rgvarg+1) == 10, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
 999
1000         ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
1001         ok(V_I4(pdp->rgvarg+2) == 10, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
1002
1003         ok(V_VT(pdp->rgvarg+3) == VT_I4, "V_VT(pdp->rgvarg+3) = %d\n", V_VT(pdp->rgvarg+3));
1004         ok(V_I4(pdp->rgvarg+3) == 22, "V_I4(pdp->rgvarg+3) = %d\n", V_I4(pdp->rgvarg+3));
1005
1006         ok(V_VT(pdp->rgvarg+4) == VT_I4, "V_VT(pdp->rgvarg+4) = %d\n", V_VT(pdp->rgvarg+4));
1007         ok(V_I4(pdp->rgvarg+4) == 22, "V_I4(pdp->rgvarg+4) = %d\n", V_I4(pdp->rgvarg+4));
1008
1009         ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1010
1011         V_VT(args) = VT_I2;
1012         V_I2(args) = 2;
1013         V_VT(args+1) = VT_INT;
1014         V_INT(args+1) = 22;
1015         hres = IDispatch_Invoke(V_DISPATCH(pdp->rgvarg), DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
1016         ok(hres == S_OK, "Invoke failed: %08x\n", hres);
1017
1018         return S_OK;
1019     }
1020     }
1021
1022     ok(0, "unexpected call %x\n", id);
1023     return DISP_E_MEMBERNOTFOUND;
1024 }
1025
1026 static HRESULT WINAPI Global_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1027 {
1028     CHECK_EXPECT(DeleteMemberByDispID);
1029     ok(id == DISPID_GLOBAL_TESTPROPDELETE, "id = %d\n", id);
1030     return S_OK;
1031 }
1032
1033 static IDispatchExVtbl GlobalVtbl = {
1034     DispatchEx_QueryInterface,
1035     DispatchEx_AddRef,
1036     DispatchEx_Release,
1037     DispatchEx_GetTypeInfoCount,
1038     DispatchEx_GetTypeInfo,
1039     DispatchEx_GetIDsOfNames,
1040     DispatchEx_Invoke,
1041     Global_GetDispID,
1042     Global_InvokeEx,
1043     DispatchEx_DeleteMemberByName,
1044     Global_DeleteMemberByDispID,
1045     DispatchEx_GetMemberProperties,
1046     DispatchEx_GetMemberName,
1047     DispatchEx_GetNextDispID,
1048     DispatchEx_GetNameSpaceParent
1049 };
1050
1051 static IDispatchEx Global = { &GlobalVtbl };
1052
1053 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
1054 {
1055     *ppv = NULL;
1056
1057     if(IsEqualGUID(&IID_IUnknown, riid))
1058         *ppv = iface;
1059     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
1060         *ppv = iface;
1061     else
1062         return E_NOINTERFACE;
1063
1064     IUnknown_AddRef((IUnknown*)*ppv);
1065     return S_OK;
1066 }
1067
1068 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
1069 {
1070     return 2;
1071 }
1072
1073 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
1074 {
1075     return 1;
1076 }
1077
1078 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
1079 {
1080     *plcid = GetUserDefaultLCID();
1081     return S_OK;
1082 }
1083
1084 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
1085         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
1086 {
1087     ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
1088     ok(!ppti, "ppti != NULL\n");
1089
1090     if(!strcmp_wa(pstrName, test_valA))
1091         CHECK_EXPECT(GetItemInfo_testVal);
1092     else if(strcmp_wa(pstrName, testA))
1093         ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
1094
1095     *ppiunkItem = (IUnknown*)&Global;
1096     return S_OK;
1097 }
1098
1099 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
1100 {
1101     return E_NOTIMPL;
1102 }
1103
1104 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
1105         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
1106 {
1107     return E_NOTIMPL;
1108 }
1109
1110 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
1111 {
1112     return E_NOTIMPL;
1113 }
1114
1115 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1116 {
1117     return E_NOTIMPL;
1118 }
1119
1120 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
1121 {
1122     return E_NOTIMPL;
1123 }
1124
1125 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
1126 {
1127     return E_NOTIMPL;
1128 }
1129
1130 #undef ACTSCPSITE_THIS
1131
1132 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
1133     ActiveScriptSite_QueryInterface,
1134     ActiveScriptSite_AddRef,
1135     ActiveScriptSite_Release,
1136     ActiveScriptSite_GetLCID,
1137     ActiveScriptSite_GetItemInfo,
1138     ActiveScriptSite_GetDocVersionString,
1139     ActiveScriptSite_OnScriptTerminate,
1140     ActiveScriptSite_OnStateChange,
1141     ActiveScriptSite_OnScriptError,
1142     ActiveScriptSite_OnEnterScript,
1143     ActiveScriptSite_OnLeaveScript
1144 };
1145
1146 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
1147
1148 static HRESULT WINAPI ActiveScriptSite_OnScriptError_CheckError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1149 {
1150     ok(pscripterror != NULL, "ActiveScriptSite_OnScriptError -- expected pscripterror to be set, got NULL\n");
1151
1152     script_error = pscripterror;
1153     IActiveScriptError_AddRef(script_error);
1154
1155     CHECK_EXPECT(ActiveScriptSite_OnScriptError);
1156
1157     return S_OK;
1158 }
1159
1160 static const IActiveScriptSiteVtbl ActiveScriptSite_CheckErrorVtbl = {
1161     ActiveScriptSite_QueryInterface,
1162     ActiveScriptSite_AddRef,
1163     ActiveScriptSite_Release,
1164     ActiveScriptSite_GetLCID,
1165     ActiveScriptSite_GetItemInfo,
1166     ActiveScriptSite_GetDocVersionString,
1167     ActiveScriptSite_OnScriptTerminate,
1168     ActiveScriptSite_OnStateChange,
1169     ActiveScriptSite_OnScriptError_CheckError,
1170     ActiveScriptSite_OnEnterScript,
1171     ActiveScriptSite_OnLeaveScript
1172 };
1173
1174 static IActiveScriptSite ActiveScriptSite_CheckError = { &ActiveScriptSite_CheckErrorVtbl };
1175
1176 static HRESULT set_script_prop(IActiveScript *engine, DWORD property, VARIANT *val)
1177 {
1178     IActiveScriptProperty *script_prop;
1179     HRESULT hres;
1180
1181     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptProperty,
1182             (void**)&script_prop);
1183     ok(hres == S_OK, "Could not get IActiveScriptProperty iface: %08x\n", hres);
1184
1185     hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
1186     IActiveScriptProperty_Release(script_prop);
1187
1188     return hres;
1189 }
1190
1191 static IActiveScript *create_script(void)
1192 {
1193     IActiveScript *script;
1194     VARIANT v;
1195     HRESULT hres;
1196
1197     hres = CoCreateInstance(engine_clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1198             &IID_IActiveScript, (void**)&script);
1199     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1200
1201     V_VT(&v) = VT_I4;
1202     V_I4(&v) = invoke_version;
1203     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
1204     ok(hres == S_OK || broken(hres == E_NOTIMPL), "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
1205     if(invoke_version && FAILED(hres)) {
1206         IActiveScript_Release(script);
1207         return NULL;
1208     }
1209
1210     return script;
1211 }
1212
1213 static HRESULT parse_script(DWORD flags, BSTR script_str)
1214 {
1215     IActiveScriptParse *parser;
1216     IActiveScript *engine;
1217     HRESULT hres;
1218
1219     engine = create_script();
1220     if(!engine)
1221         return S_OK;
1222
1223     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1224     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1225     if (FAILED(hres))
1226     {
1227         IActiveScript_Release(engine);
1228         return hres;
1229     }
1230
1231     hres = IActiveScriptParse_InitNew(parser);
1232     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1233
1234     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1235     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1236
1237     hres = IActiveScript_AddNamedItem(engine, testW,
1238             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1239     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1240
1241     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1242     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1243
1244     hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1245     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1246     ok(script_disp != NULL, "script_disp == NULL\n");
1247     ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1248
1249     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1250
1251     IDispatch_Release(script_disp);
1252     IActiveScript_Release(engine);
1253     IActiveScriptParse_Release(parser);
1254
1255     return hres;
1256 }
1257
1258 static HRESULT parse_htmlscript(BSTR script_str)
1259 {
1260     IActiveScriptParse *parser;
1261     IActiveScript *engine;
1262     HRESULT hres;
1263     BSTR tmp = a2bstr("</SCRIPT>");
1264
1265     engine = create_script();
1266     if(!engine)
1267         return E_FAIL;
1268
1269     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1270     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1271     if (FAILED(hres))
1272     {
1273         IActiveScript_Release(engine);
1274         return E_FAIL;
1275     }
1276
1277     hres = IActiveScriptParse_InitNew(parser);
1278     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1279
1280     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1281     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1282
1283     hres = IActiveScript_AddNamedItem(engine, testW,
1284             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1285     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1286
1287     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1288     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1289
1290     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, tmp, 0, 0, 0, NULL, NULL);
1291
1292     IActiveScript_Release(engine);
1293     IActiveScriptParse_Release(parser);
1294     SysFreeString(tmp);
1295
1296     return hres;
1297 }
1298
1299 static void test_IActiveScriptError(IActiveScriptError *error, SCODE errorcode, ULONG line, LONG pos, BSTR script_source, BSTR description, BSTR line_text)
1300 {
1301     HRESULT hres;
1302     DWORD source_context;
1303     ULONG line_number;
1304     LONG char_position;
1305     BSTR linetext;
1306     EXCEPINFO excep;
1307
1308     /* IActiveScriptError_GetSourcePosition */
1309
1310     hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, NULL);
1311     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1312
1313     source_context = 0xdeadbeef;
1314     hres = IActiveScriptError_GetSourcePosition(error, &source_context, NULL, NULL);
1315     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1316     ok(source_context == 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context);
1317
1318     line_number = 0xdeadbeef;
1319     hres = IActiveScriptError_GetSourcePosition(error, NULL, &line_number, NULL);
1320     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1321     ok(line_number == line, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line, line_number);
1322
1323     char_position = 0xdeadbeef;
1324     hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, &char_position);
1325     ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1326     ok(char_position == pos, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos, char_position);
1327
1328     /* IActiveScriptError_GetSourceLineText */
1329
1330     hres = IActiveScriptError_GetSourceLineText(error, NULL);
1331     ok(hres == E_POINTER, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres);
1332
1333     linetext = NULL;
1334     hres = IActiveScriptError_GetSourceLineText(error, &linetext);
1335     if (line_text) {
1336         ok(hres == S_OK, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1337         ok(linetext != NULL && !lstrcmpW(linetext, line_text),
1338            "IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text), wine_dbgstr_w(linetext));
1339     } else {
1340         ok(hres == E_FAIL, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1341         ok(linetext == NULL,
1342            "IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext));
1343     }
1344     SysFreeString(linetext);
1345
1346     /* IActiveScriptError_GetExceptionInfo */
1347
1348     hres = IActiveScriptError_GetExceptionInfo(error, NULL);
1349     ok(hres == E_POINTER, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres);
1350
1351     excep.wCode = 0xdead;
1352     excep.wReserved = 0xdead;
1353     excep.bstrSource = (BSTR)0xdeadbeef;
1354     excep.bstrDescription = (BSTR)0xdeadbeef;
1355     excep.bstrHelpFile = (BSTR)0xdeadbeef;
1356     excep.dwHelpContext = 0xdeadbeef;
1357     excep.pvReserved = (void *)0xdeadbeef;
1358     excep.pfnDeferredFillIn = (void *)0xdeadbeef;
1359     excep.scode = 0xdeadbeef;
1360
1361     hres = IActiveScriptError_GetExceptionInfo(error, &excep);
1362     ok(hres == S_OK, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres);
1363
1364     ok(excep.wCode == 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep.wCode);
1365     ok(excep.wReserved == 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep.wReserved);
1366     if (!is_lang_english())
1367         skip("Non-english UI (test with hardcoded strings)\n");
1368     else {
1369         ok(excep.bstrSource != NULL && !lstrcmpW(excep.bstrSource, script_source),
1370            "IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
1371            wine_dbgstr_w(script_source), wine_dbgstr_w(excep.bstrSource));
1372         ok(excep.bstrDescription != NULL && !lstrcmpW(excep.bstrDescription, description),
1373            "IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep.bstrDescription));
1374     }
1375     ok(excep.bstrHelpFile == NULL,
1376        "IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep.bstrHelpFile));
1377     ok(excep.dwHelpContext == 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep.dwHelpContext);
1378     ok(excep.pvReserved == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep.pvReserved);
1379     ok(excep.pfnDeferredFillIn == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep.pfnDeferredFillIn);
1380     ok(excep.scode == errorcode, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode, excep.scode);
1381
1382     SysFreeString(excep.bstrSource);
1383     SysFreeString(excep.bstrDescription);
1384     SysFreeString(excep.bstrHelpFile);
1385 }
1386
1387 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)
1388 {
1389     IActiveScriptParse *parser;
1390     IActiveScript *engine;
1391     HRESULT hres;
1392
1393     engine = create_script();
1394     if(!engine)
1395         return;
1396
1397     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1398     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1399     if (FAILED(hres))
1400     {
1401         IActiveScript_Release(engine);
1402         return;
1403     }
1404
1405     hres = IActiveScriptParse_InitNew(parser);
1406     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1407
1408     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
1409     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1410
1411     hres = IActiveScript_AddNamedItem(engine, testW,
1412             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1413     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1414
1415     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1416     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1417
1418     hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1419     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1420     ok(script_disp != NULL, "script_disp == NULL\n");
1421     ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1422
1423     script_error = NULL;
1424     SET_EXPECT(ActiveScriptSite_OnScriptError);
1425     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1426     todo_wine ok(hres == 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres);
1427     todo_wine CHECK_CALLED(ActiveScriptSite_OnScriptError);
1428
1429     if (script_error)
1430     {
1431         test_IActiveScriptError(script_error, errorcode, line, pos, script_source, description, line_text);
1432
1433         IActiveScriptError_Release(script_error);
1434     }
1435
1436     IDispatch_Release(script_disp);
1437     IActiveScript_Release(engine);
1438     IActiveScriptParse_Release(parser);
1439 }
1440
1441 static void parse_script_af(DWORD flags, const char *src)
1442 {
1443     BSTR tmp;
1444     HRESULT hres;
1445
1446     tmp = a2bstr(src);
1447     hres = parse_script(flags, tmp);
1448     SysFreeString(tmp);
1449     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1450 }
1451
1452 static void parse_script_a(const char *src)
1453 {
1454     parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1455 }
1456
1457 static void parse_script_with_error_a(const char *src, SCODE errorcode, ULONG line, LONG pos, LPCSTR source, LPCSTR desc, LPCSTR linetext)
1458 {
1459     BSTR tmp, script_source, description, line_text;
1460
1461     tmp = a2bstr(src);
1462     script_source = a2bstr(source);
1463     description = a2bstr(desc);
1464     line_text = a2bstr(linetext);
1465
1466     parse_script_with_error(SCRIPTITEM_GLOBALMEMBERS, tmp, errorcode, line, pos, script_source, description, line_text);
1467
1468     SysFreeString(line_text);
1469     SysFreeString(description);
1470     SysFreeString(script_source);
1471     SysFreeString(tmp);
1472 }
1473
1474 static HRESULT parse_htmlscript_a(const char *src)
1475 {
1476     HRESULT hres;
1477     BSTR tmp = a2bstr(src);
1478     hres = parse_htmlscript(tmp);
1479     SysFreeString(tmp);
1480
1481     return hres;
1482 }
1483
1484 static BSTR get_script_from_file(const char *filename)
1485 {
1486     DWORD size, len;
1487     HANDLE file, map;
1488     const char *file_map;
1489     BSTR ret;
1490
1491     file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
1492     if(file == INVALID_HANDLE_VALUE) {
1493         trace("Could not open file: %u\n", GetLastError());
1494         return NULL;
1495     }
1496
1497     size = GetFileSize(file, NULL);
1498
1499     map = CreateFileMapping(file, NULL, PAGE_READONLY, 0, 0, NULL);
1500     CloseHandle(file);
1501     if(map == INVALID_HANDLE_VALUE) {
1502         trace("Could not create file mapping: %u\n", GetLastError());
1503         return NULL;
1504     }
1505
1506     file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
1507     CloseHandle(map);
1508     if(!file_map) {
1509         trace("MapViewOfFile failed: %u\n", GetLastError());
1510         return NULL;
1511     }
1512
1513     len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
1514     ret = SysAllocStringLen(NULL, len);
1515     MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
1516
1517     UnmapViewOfFile(file_map);
1518
1519     return ret;
1520 }
1521
1522 static void run_from_file(const char *filename)
1523 {
1524     BSTR script_str;
1525     HRESULT hres;
1526
1527     script_str = get_script_from_file(filename);
1528     if(!script_str)
1529         return;
1530
1531     strict_dispid_check = FALSE;
1532     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str);
1533     SysFreeString(script_str);
1534     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1535 }
1536
1537 static void run_from_res(const char *name)
1538 {
1539     const char *data;
1540     DWORD size, len;
1541     BSTR str;
1542     HRSRC src;
1543     HRESULT hres;
1544
1545     strict_dispid_check = FALSE;
1546     test_name = name;
1547
1548     src = FindResourceA(NULL, name, (LPCSTR)40);
1549     ok(src != NULL, "Could not find resource %s\n", name);
1550
1551     size = SizeofResource(NULL, src);
1552     data = LoadResource(NULL, src);
1553
1554     len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
1555     str = SysAllocStringLen(NULL, len);
1556     MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
1557
1558     SET_EXPECT(global_success_d);
1559     SET_EXPECT(global_success_i);
1560     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str);
1561     CHECK_CALLED(global_success_d);
1562     CHECK_CALLED(global_success_i);
1563
1564     ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1565     SysFreeString(str);
1566 }
1567
1568 static void test_isvisible(BOOL global_members)
1569 {
1570     IActiveScriptParse *parser;
1571     IActiveScript *engine;
1572     HRESULT hres;
1573
1574     static const WCHAR script_textW[] =
1575         {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
1576
1577     engine = create_script();
1578     if(!engine)
1579         return;
1580
1581     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1582     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1583     if (FAILED(hres))
1584     {
1585         IActiveScript_Release(engine);
1586         return;
1587     }
1588
1589     hres = IActiveScriptParse_InitNew(parser);
1590     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1591
1592     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1593     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1594
1595     if(global_members)
1596         SET_EXPECT(GetItemInfo_testVal);
1597     hres = IActiveScript_AddNamedItem(engine, test_valW,
1598             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|
1599             (global_members ? SCRIPTITEM_GLOBALMEMBERS : 0));
1600     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1601     if(global_members)
1602         CHECK_CALLED(GetItemInfo_testVal);
1603
1604     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1605     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1606
1607     if(!global_members)
1608         SET_EXPECT(GetItemInfo_testVal);
1609     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1610     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1611     if(!global_members)
1612         CHECK_CALLED(GetItemInfo_testVal);
1613
1614     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1615     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1616
1617     IActiveScript_Release(engine);
1618     IActiveScriptParse_Release(parser);
1619 }
1620
1621 static BOOL run_tests(void)
1622 {
1623     HRESULT hres;
1624
1625     if(invoke_version) {
1626         IActiveScript *script;
1627
1628         script = create_script();
1629         if(!script) {
1630             win_skip("Could not create script\n");
1631             return FALSE;
1632         }
1633         IActiveScript_Release(script);
1634     }
1635
1636     strict_dispid_check = TRUE;
1637
1638     parse_script_a("");
1639     parse_script_a("/* empty */ ;");
1640
1641     SET_EXPECT(global_propget_d);
1642     SET_EXPECT(global_propget_i);
1643     parse_script_a("testPropGet;");
1644     CHECK_CALLED(global_propget_d);
1645     CHECK_CALLED(global_propget_i);
1646
1647     SET_EXPECT(global_propput_d);
1648     SET_EXPECT(global_propput_i);
1649     parse_script_a("testPropPut = 1;");
1650     CHECK_CALLED(global_propput_d);
1651     CHECK_CALLED(global_propput_i);
1652
1653     SET_EXPECT(global_success_d);
1654     SET_EXPECT(global_success_i);
1655     parse_script_a("reportSuccess();");
1656     CHECK_CALLED(global_success_d);
1657     CHECK_CALLED(global_success_i);
1658
1659     SET_EXPECT(testobj_delete);
1660     parse_script_a("delete testObj.deleteTest;");
1661     CHECK_CALLED(testobj_delete);
1662
1663     SET_EXPECT(global_propdelete_d);
1664     SET_EXPECT(DeleteMemberByDispID);
1665     parse_script_a("delete testPropDelete;");
1666     CHECK_CALLED(global_propdelete_d);
1667     CHECK_CALLED(DeleteMemberByDispID);
1668
1669     parse_script_a("(function reportSuccess() {})()");
1670
1671     parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
1672
1673     parse_script_a("function reportSuccess() {}; reportSuccess();");
1674
1675     SET_EXPECT(global_propget_d);
1676     parse_script_a("var testPropGet");
1677     CHECK_CALLED(global_propget_d);
1678
1679     SET_EXPECT(global_propget_d);
1680     parse_script_a("eval('var testPropGet;');");
1681     CHECK_CALLED(global_propget_d);
1682
1683     SET_EXPECT(global_notexists_d);
1684     parse_script_a("var notExists; notExists = 1;");
1685     CHECK_CALLED(global_notexists_d);
1686
1687     parse_script_a("function f() { var testPropGet; }");
1688     parse_script_a("(function () { var testPropGet; })();");
1689     parse_script_a("(function () { eval('var testPropGet;'); })();");
1690
1691     SET_EXPECT(invoke_func);
1692     parse_script_a("ok(propGetFunc() == 0, \"Incorrect propGetFunc value\");");
1693     CHECK_CALLED(invoke_func);
1694     parse_script_a("ok(propGetFunc(1) == 1, \"Incorrect propGetFunc value\");");
1695     parse_script_a("ok(propGetFunc(1, 2) == 2, \"Incorrect propGetFunc value\");");
1696     SET_EXPECT(invoke_func);
1697     parse_script_a("ok(propGetFunc().toString() == 0, \"Incorrect propGetFunc value\");");
1698     CHECK_CALLED(invoke_func);
1699     parse_script_a("ok(propGetFunc(1).toString() == 1, \"Incorrect propGetFunc value\");");
1700     SET_EXPECT(invoke_func);
1701     parse_script_a("propGetFunc(1);");
1702     CHECK_CALLED(invoke_func);
1703
1704     parse_script_a("objectFlag(1).toString();");
1705
1706     parse_script_a("(function() { var tmp = (function () { return testObj; })()(1);})();");
1707     parse_script_a("(function() { var tmp = (function () { return testObj; })()();})();");
1708
1709     parse_script_a("ok((testObj instanceof Object) === false, 'testObj is instance of Object');");
1710
1711     SET_EXPECT(testobj_prop_d);
1712     parse_script_a("ok(('prop' in testObj) === true, 'prop is not in testObj');");
1713     CHECK_CALLED(testobj_prop_d);
1714
1715     SET_EXPECT(testobj_noprop_d);
1716     parse_script_a("ok(('noprop' in testObj) === false, 'noprop is in testObj');");
1717     CHECK_CALLED(testobj_noprop_d);
1718
1719     SET_EXPECT(testobj_prop_d);
1720     parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'prop') === true, 'hasOwnProperty(\\\"prop\\\") returned false');");
1721     CHECK_CALLED(testobj_prop_d);
1722
1723     SET_EXPECT(testobj_noprop_d);
1724     parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1725     CHECK_CALLED(testobj_noprop_d);
1726
1727     SET_EXPECT(puredisp_prop_d);
1728     parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'prop') === true, 'hasOwnProperty(\\\"noprop\\\") returned false');");
1729     CHECK_CALLED(puredisp_prop_d);
1730
1731     SET_EXPECT(puredisp_noprop_d);
1732     parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1733     CHECK_CALLED(puredisp_noprop_d);
1734
1735     SET_EXPECT(testobj_value);
1736     parse_script_a("ok(String(testObj) === '1', 'wrong testObj value');");
1737     CHECK_CALLED(testobj_value);
1738
1739     SET_EXPECT(testobj_value);
1740     parse_script_a("ok(String.prototype.concat.call(testObj, ' OK') === '1 OK', 'wrong concat result');");
1741     CHECK_CALLED(testobj_value);
1742
1743     SET_EXPECT(global_propget_d);
1744     SET_EXPECT(global_propget_i);
1745     parse_script_a("this.testPropGet;");
1746     CHECK_CALLED(global_propget_d);
1747     CHECK_CALLED(global_propget_i);
1748
1749     SET_EXPECT(global_propget_d);
1750     SET_EXPECT(global_propget_i);
1751     parse_script_a("(function () { this.testPropGet; })();");
1752     CHECK_CALLED(global_propget_d);
1753     CHECK_CALLED(global_propget_i);
1754
1755     parse_script_a("testThis(this);");
1756     parse_script_a("(function () { testThis(this); })();");
1757
1758     SET_EXPECT(testobj_onlydispid_d);
1759     SET_EXPECT(testobj_onlydispid_i);
1760     parse_script_a("ok(typeof(testObj.onlyDispID) === 'unknown', 'unexpected typeof(testObj.onlyDispID)');");
1761     CHECK_CALLED(testobj_onlydispid_d);
1762     CHECK_CALLED(testobj_onlydispid_i);
1763
1764     SET_EXPECT(global_propargput_d);
1765     SET_EXPECT(global_propargput_i);
1766     parse_script_a("var t=0; propArgPutG(t++, t++) = t++;");
1767     CHECK_CALLED(global_propargput_d);
1768     CHECK_CALLED(global_propargput_i);
1769
1770     SET_EXPECT(global_propargput_d);
1771     SET_EXPECT(global_propargput_i);
1772     parse_script_a("var t=0; test.propArgPutO(t++, t++) = t++;");
1773     CHECK_CALLED(global_propargput_d);
1774     CHECK_CALLED(global_propargput_i);
1775
1776     SET_EXPECT(global_testargtypes_i);
1777     parse_script_a("testArgTypes(intProp(), intProp, getShort(), shortProp, function(i,s) {"
1778                    "    ok(getVT(i) === 'VT_I4', 'getVT(i) = ' + getVT(i));"
1779                    "    ok(getVT(s) === 'VT_I4', 'getVT(s) = ' + getVT(s));"
1780                    "});");
1781     CHECK_CALLED(global_testargtypes_i);
1782
1783     SET_EXPECT(testobj_withprop_d);
1784     SET_EXPECT(testobj_withprop_i);
1785     parse_script_a("var t = (function () { with(testObj) { return withProp; }})(); ok(t === 1, 't = ' + t);");
1786     CHECK_CALLED(testobj_withprop_d);
1787     CHECK_CALLED(testobj_withprop_i);
1788
1789     run_from_res("lang.js");
1790     run_from_res("api.js");
1791     run_from_res("regexp.js");
1792     run_from_res("cc.js");
1793
1794     test_isvisible(FALSE);
1795     test_isvisible(TRUE);
1796
1797     parse_script_af(0, "test.testThis2(this);");
1798     parse_script_af(0, "(function () { test.testThis2(this); })();");
1799
1800     hres = parse_htmlscript_a("<!--");
1801     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1802     hres = parse_htmlscript_a("-->");
1803     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1804     hres = parse_htmlscript_a("<!--\nvar a=1;\n-->\n");
1805     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1806     hres = parse_htmlscript_a("<!--\n<!-- ignore this\n-->\n");
1807     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1808     hres = parse_htmlscript_a("var a=1;\nif(a-->0) a=5;\n");
1809     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1810     hres = parse_htmlscript_a("var a=1;\nif(a\n-->0) a=5;\n");
1811     ok(hres != S_OK, "ParseScriptText have not failed\n");
1812
1813     parse_script_with_error_a(
1814         "?",
1815         0x800a03ea, 0, 0,
1816         "Microsoft JScript compilation error",
1817         "Syntax error",
1818         "?");
1819
1820     parse_script_with_error_a(
1821         "var a=1;\nif(a\n-->0) a=5;\n",
1822         0x800a03ee, 2, 0,
1823         "Microsoft JScript compilation error",
1824         "Expected ')'",
1825         "-->0) a=5;");
1826
1827     parse_script_with_error_a(
1828         "new 3;",
1829         0x800a01bd, 0, 0,
1830         "Microsoft JScript runtime error",
1831         "Object doesn't support this action",
1832         NULL);
1833
1834     parse_script_with_error_a(
1835         "new null;",
1836         0x800a138f, 0, 0,
1837         "Microsoft JScript runtime error",
1838         "Object expected",
1839         NULL);
1840
1841     parse_script_with_error_a(
1842         "var a;\nnew null;",
1843         0x800a138f, 1, 0,
1844         "Microsoft JScript runtime error",
1845         "Object expected",
1846         NULL);
1847
1848     parse_script_with_error_a(
1849         "var a; new null;",
1850         0x800a138f, 0, 7,
1851         "Microsoft JScript runtime error",
1852         "Object expected",
1853         NULL);
1854
1855     return TRUE;
1856 }
1857
1858 static void run_encoded_tests(void)
1859 {
1860     BSTR src;
1861     HRESULT hres;
1862
1863     engine_clsid = &CLSID_JScriptEncode;
1864
1865     SET_EXPECT(global_success_d);
1866     SET_EXPECT(global_success_i);
1867     /*             |reportSuccess();                           | */
1868     parse_script_a("#@~^EAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
1869     CHECK_CALLED(global_success_d);
1870     CHECK_CALLED(global_success_i);
1871
1872     SET_EXPECT(global_success_d);
1873     SET_EXPECT(global_success_i);
1874     parse_script_a("reportSuccess();");
1875     CHECK_CALLED(global_success_d);
1876     CHECK_CALLED(global_success_i);
1877
1878     SET_EXPECT(global_success_d);
1879     SET_EXPECT(global_success_i);
1880     /*                   |Success                         | */
1881     parse_script_a("report#@~^BwAAAA==j!m^\x7f/k2QIAAA==^#~@();");
1882     CHECK_CALLED(global_success_d);
1883     CHECK_CALLED(global_success_i);
1884
1885     SET_EXPECT(global_success_d);
1886     SET_EXPECT(global_success_i);
1887     /*             |\r\n\treportSuccess();\r\n                        | */
1888     parse_script_a("#@~^GQAAAA==@#@&d.\x7fwKDYUE1^+k/c#p@#@&OAYAAA==^#~@");
1889     CHECK_CALLED(global_success_d);
1890     CHECK_CALLED(global_success_i);
1891
1892     /*                   v                                   */
1893     src = a2bstr("#@~^EAA*AA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
1894     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
1895     SysFreeString(src);
1896     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
1897
1898     /*                      vv                                 */
1899     src = a2bstr("#@~^EAAAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
1900     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
1901     SysFreeString(src);
1902     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
1903
1904     /*                      v                                */
1905     src = a2bstr("#@~^EAAAAA^=.\x7fwGMYUEm1+kd`*iAQYAAA==^#~@");
1906     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
1907     SysFreeString(src);
1908     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
1909
1910     /*                                     v                 */
1911     src = a2bstr("#@~^EAAAAA==.\x7fwGMYUEm1ekd`*iAQYAAA==^#~@");
1912     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
1913     SysFreeString(src);
1914     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
1915
1916     /*                                                    vv  */
1917     src = a2bstr("#@~^EAAAAA==.\x7fwGMYUEm1+kd`*iAQYAAA==^~#@");
1918     hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
1919     SysFreeString(src);
1920     ok(hres == JS_E_INVALID_CHAR, "parse_script failed %08x\n", hres);
1921 }
1922
1923 static BOOL check_jscript(void)
1924 {
1925     IActiveScriptProperty *script_prop;
1926     BSTR str;
1927     HRESULT hres;
1928
1929     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1930             &IID_IActiveScriptProperty, (void**)&script_prop);
1931     if(FAILED(hres))
1932         return FALSE;
1933     IActiveScriptProperty_Release(script_prop);
1934
1935     str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
1936     hres = parse_script(0, str);
1937     SysFreeString(str);
1938
1939     return hres == S_OK;
1940 }
1941
1942 START_TEST(run)
1943 {
1944     int argc;
1945     char **argv;
1946
1947     argc = winetest_get_mainargs(&argv);
1948
1949     CoInitialize(NULL);
1950
1951     if(!check_jscript()) {
1952         win_skip("Broken engine, probably too old\n");
1953     }else if(argc > 2) {
1954         invoke_version = 2;
1955         run_from_file(argv[2]);
1956     }else {
1957         trace("invoke version 0\n");
1958         invoke_version = 0;
1959         run_tests();
1960
1961         trace("invoke version 2\n");
1962         invoke_version = 2;
1963         if(run_tests()) {
1964             trace("JSctipt.Encode tests...\n");
1965             run_encoded_tests();
1966         }
1967     }
1968
1969     CoUninitialize();
1970 }