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