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