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