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