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