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