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(testobj_delete);
  67 DEFINE_EXPECT(GetItemInfo_testVal);
  68
  69 #define DISPID_GLOBAL_TESTPROPGET   0x1000
  70 #define DISPID_GLOBAL_TESTPROPPUT   0x1001
  71 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
  72 #define DISPID_GLOBAL_TRACE         0x1003
  73 #define DISPID_GLOBAL_OK            0x1004
  74 #define DISPID_GLOBAL_GETVT         0x1005
  75 #define DISPID_GLOBAL_TESTOBJ       0x1006
  76
  77 static const WCHAR testW[] = {'t','e','s','t',0};
  78 static const WCHAR test_valW[] = {'t','e','s','t','V','a','l',0};
  79
  80 static BOOL strict_dispid_check;
  81 static const char *test_name = "(null)";
  82
  83 static const char *debugstr_w(LPCWSTR str)
  84 {
  85     static char buf[1024];
  86
  87     if(!str)
  88         return "(null)";
  89
  90     WideCharToMultiByte(CP_ACP, 0, str, -1, buf, sizeof(buf), NULL, NULL);
  91     return buf;
  92 }
  93
  94 static BSTR a2bstr(const char *str)
  95 {
  96     BSTR ret;
  97     int len;
  98
  99     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 100     ret = SysAllocStringLen(NULL, len-1);
 101     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 102
 103     return ret;
 104 }
 105
 106 static int strcmp_wa(LPCWSTR strw, const char *stra)
 107 {
 108     CHAR buf[512];
 109     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
 110     return lstrcmpA(buf, stra);
 111 }
 112
 113 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 114 {
 115     *ppv = NULL;
 116
 117     if(IsEqualGUID(riid, &IID_IUnknown)
 118        || IsEqualGUID(riid, &IID_IDispatch)
 119        || IsEqualGUID(riid, &IID_IDispatchEx))
 120         *ppv = iface;
 121     else
 122         return E_NOINTERFACE;
 123
 124     return S_OK;
 125 }
 126
 127 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 128 {
 129     return 2;
 130 }
 131
 132 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 133 {
 134     return 1;
 135 }
 136
 137 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 138 {
 139     ok(0, "unexpected call\n");
 140     return E_NOTIMPL;
 141 }
 142
 143 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 144                                               LCID lcid, ITypeInfo **ppTInfo)
 145 {
 146     ok(0, "unexpected call\n");
 147     return E_NOTIMPL;
 148 }
 149
 150 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 151                                                 LPOLESTR *rgszNames, UINT cNames,
 152                                                 LCID lcid, DISPID *rgDispId)
 153 {
 154     ok(0, "unexpected call\n");
 155     return E_NOTIMPL;
 156 }
 157
 158 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 159                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 160                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 161 {
 162     ok(0, "unexpected call\n");
 163     return E_NOTIMPL;
 164 }
 165
 166 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 167 {
 168     ok(0, "unexpected call %s %x\n", debugstr_w(bstrName), grfdex);
 169     return E_NOTIMPL;
 170 }
 171
 172 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 173 {
 174     ok(0, "unexpected call\n");
 175     return E_NOTIMPL;
 176 }
 177
 178 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 179 {
 180     ok(0, "unexpected call\n");
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 185 {
 186     ok(0, "unexpected call\n");
 187     return E_NOTIMPL;
 188 }
 189
 190 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 191 {
 192     ok(0, "unexpected call\n");
 193     return E_NOTIMPL;
 194 }
 195
 196 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 197 {
 198     ok(0, "unexpected call\n");
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 203 {
 204     ok(0, "unexpected call\n");
 205     return E_NOTIMPL;
 206 }
 207
 208 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 209         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 210 {
 211     ok(0, "unexpected call\n");
 212     return E_NOTIMPL;
 213 }
 214
 215 static HRESULT WINAPI testObj_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 216 {
 217     CHECK_EXPECT(testobj_delete);
 218
 219     ok(!strcmp_wa(bstrName, "deleteTest"), "unexpected name %s\n", debugstr_w(bstrName));
 220     ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 221     return S_OK;
 222 }
 223
 224 static IDispatchExVtbl testObjVtbl = {
 225     DispatchEx_QueryInterface,
 226     DispatchEx_AddRef,
 227     DispatchEx_Release,
 228     DispatchEx_GetTypeInfoCount,
 229     DispatchEx_GetTypeInfo,
 230     DispatchEx_GetIDsOfNames,
 231     DispatchEx_Invoke,
 232     DispatchEx_GetDispID,
 233     DispatchEx_InvokeEx,
 234     testObj_DeleteMemberByName,
 235     DispatchEx_DeleteMemberByDispID,
 236     DispatchEx_GetMemberProperties,
 237     DispatchEx_GetMemberName,
 238     DispatchEx_GetNextDispID,
 239     DispatchEx_GetNameSpaceParent
 240 };
 241
 242 static IDispatchEx testObj = { &testObjVtbl };
 243
 244 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 245 {
 246     if(!strcmp_wa(bstrName, "ok")) {
 247         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 248         *pid = DISPID_GLOBAL_OK;
 249         return S_OK;
 250     }
 251     if(!strcmp_wa(bstrName, "trace")) {
 252         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 253         *pid = DISPID_GLOBAL_TRACE;
 254         return S_OK;
 255     }
 256     if(!strcmp_wa(bstrName, "reportSuccess")) {
 257         CHECK_EXPECT(global_success_d);
 258         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 259         *pid = DISPID_GLOBAL_REPORTSUCCESS;
 260         return S_OK;
 261     }
 262     if(!strcmp_wa(bstrName, "testPropGet")) {
 263         CHECK_EXPECT(global_propget_d);
 264         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 265         *pid = DISPID_GLOBAL_TESTPROPGET;
 266         return S_OK;
 267     }
 268     if(!strcmp_wa(bstrName, "testPropPut")) {
 269         CHECK_EXPECT(global_propput_d);
 270         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 271         *pid = DISPID_GLOBAL_TESTPROPPUT;
 272         return S_OK;
 273     }
 274     if(!strcmp_wa(bstrName, "getVT")) {
 275         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 276         *pid = DISPID_GLOBAL_GETVT;
 277         return S_OK;
 278     }
 279     if(!strcmp_wa(bstrName, "testObj")) {
 280         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 281         *pid = DISPID_GLOBAL_TESTOBJ;
 282         return S_OK;
 283     }
 284
 285     if(strict_dispid_check)
 286         ok(0, "unexpected call %s\n", debugstr_w(bstrName));
 287     return DISP_E_UNKNOWNNAME;
 288 }
 289
 290 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 291         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 292 {
 293     switch(id) {
 294     case DISPID_GLOBAL_OK:
 295         ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
 296         ok(pdp != NULL, "pdp == NULL\n");
 297         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 298         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 299         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
 300         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 301         if(wFlags & INVOKE_PROPERTYGET)
 302             ok(pvarRes != NULL, "pvarRes == NULL\n");
 303         else
 304             ok(!pvarRes, "pvarRes != NULL\n");
 305         ok(pei != NULL, "pei == NULL\n");
 306
 307         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 308         ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
 309         ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, debugstr_w(V_BSTR(pdp->rgvarg)));
 310
 311         return S_OK;
 312
 313      case DISPID_GLOBAL_TRACE:
 314         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 315         ok(pdp != NULL, "pdp == NULL\n");
 316         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 317         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 318         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 319         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 320         ok(!pvarRes, "pvarRes != NULL\n");
 321         ok(pei != NULL, "pei == NULL\n");
 322
 323         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 324         if(V_VT(pdp->rgvarg) == VT_BSTR)
 325             trace("%s: %s\n", test_name, debugstr_w(V_BSTR(pdp->rgvarg)));
 326
 327         return S_OK;
 328
 329     case DISPID_GLOBAL_REPORTSUCCESS:
 330         CHECK_EXPECT(global_success_i);
 331
 332         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 333         ok(pdp != NULL, "pdp == NULL\n");
 334         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 335         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
 336         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 337         ok(!pvarRes, "pvarRes != NULL\n");
 338         ok(pei != NULL, "pei == NULL\n");
 339
 340         return S_OK;
 341
 342      case DISPID_GLOBAL_TESTPROPGET:
 343         CHECK_EXPECT(global_propget_i);
 344
 345         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 346         ok(pdp != NULL, "pdp == NULL\n");
 347         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 348         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 349         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 350         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 351         ok(pvarRes != NULL, "pvarRes == NULL\n");
 352         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 353         ok(pei != NULL, "pei == NULL\n");
 354
 355         V_VT(pvarRes) = VT_I4;
 356         V_I4(pvarRes) = 1;
 357
 358         return S_OK;
 359
 360     case DISPID_GLOBAL_TESTPROPPUT:
 361         CHECK_EXPECT(global_propput_i);
 362
 363         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
 364         ok(pdp != NULL, "pdp == NULL\n");
 365         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 366         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 367         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 368         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 369         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 370         ok(!pvarRes, "pvarRes != NULL\n");
 371
 372         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
 373         ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
 374         return S_OK;
 375
 376      case DISPID_GLOBAL_GETVT:
 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 == 1, "cArgs = %d\n", pdp->cArgs);
 381         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 382         ok(pvarRes != NULL, "pvarRes == NULL\n");
 383         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 384         ok(pei != NULL, "pei == NULL\n");
 385
 386         V_VT(pvarRes) = VT_BSTR;
 387         switch(V_VT(pdp->rgvarg)) {
 388         case VT_EMPTY:
 389             V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
 390             break;
 391         case VT_NULL:
 392             V_BSTR(pvarRes) = a2bstr("VT_NULL");
 393             break;
 394         case VT_I4:
 395             V_BSTR(pvarRes) = a2bstr("VT_I4");
 396             break;
 397         case VT_R8:
 398             V_BSTR(pvarRes) = a2bstr("VT_R8");
 399             break;
 400         case VT_BSTR:
 401             V_BSTR(pvarRes) = a2bstr("VT_BSTR");
 402             break;
 403         case VT_DISPATCH:
 404             V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
 405             break;
 406         case VT_BOOL:
 407             V_BSTR(pvarRes) = a2bstr("VT_BOOL");
 408             break;
 409         default:
 410             ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
 411             return E_FAIL;
 412         }
 413
 414         return S_OK;
 415
 416     case DISPID_GLOBAL_TESTOBJ:
 417         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 418         ok(pdp != NULL, "pdp == NULL\n");
 419         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 420         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 421         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 422         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 423         ok(pvarRes != NULL, "pvarRes == NULL\n");
 424         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 425         ok(pei != NULL, "pei == NULL\n");
 426
 427         V_VT(pvarRes) = VT_DISPATCH;
 428         V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
 429         return S_OK;
 430     }
 431
 432     ok(0, "unexpected call %x\n", id);
 433     return DISP_E_MEMBERNOTFOUND;
 434 }
 435
 436 static IDispatchExVtbl GlobalVtbl = {
 437     DispatchEx_QueryInterface,
 438     DispatchEx_AddRef,
 439     DispatchEx_Release,
 440     DispatchEx_GetTypeInfoCount,
 441     DispatchEx_GetTypeInfo,
 442     DispatchEx_GetIDsOfNames,
 443     DispatchEx_Invoke,
 444     Global_GetDispID,
 445     Global_InvokeEx,
 446     DispatchEx_DeleteMemberByName,
 447     DispatchEx_DeleteMemberByDispID,
 448     DispatchEx_GetMemberProperties,
 449     DispatchEx_GetMemberName,
 450     DispatchEx_GetNextDispID,
 451     DispatchEx_GetNameSpaceParent
 452 };
 453
 454 static IDispatchEx Global = { &GlobalVtbl };
 455
 456 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
 457 {
 458     *ppv = NULL;
 459
 460     if(IsEqualGUID(&IID_IUnknown, riid))
 461         *ppv = iface;
 462     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
 463         *ppv = iface;
 464     else
 465         return E_NOINTERFACE;
 466
 467     IUnknown_AddRef((IUnknown*)*ppv);
 468     return S_OK;
 469 }
 470
 471 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
 472 {
 473     return 2;
 474 }
 475
 476 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
 477 {
 478     return 1;
 479 }
 480
 481 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
 482 {
 483     *plcid = GetUserDefaultLCID();
 484     return S_OK;
 485 }
 486
 487 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
 488         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
 489 {
 490     ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
 491     ok(!ppti, "ppti != NULL\n");
 492
 493     if(!lstrcmpW(pstrName, test_valW))
 494         CHECK_EXPECT(GetItemInfo_testVal);
 495     else if(lstrcmpW(pstrName, testW))
 496         ok(0, "unexpected pstrName %s\n", debugstr_w(pstrName));
 497
 498     *ppiunkItem = (IUnknown*)&Global;
 499     return S_OK;
 500 }
 501
 502 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
 503 {
 504     return E_NOTIMPL;
 505 }
 506
 507 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
 508         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
 509 {
 510     return E_NOTIMPL;
 511 }
 512
 513 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
 514 {
 515     return E_NOTIMPL;
 516 }
 517
 518 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
 519 {
 520     return E_NOTIMPL;
 521 }
 522
 523 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
 524 {
 525     return E_NOTIMPL;
 526 }
 527
 528 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
 529 {
 530     return E_NOTIMPL;
 531 }
 532
 533 #undef ACTSCPSITE_THIS
 534
 535 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
 536     ActiveScriptSite_QueryInterface,
 537     ActiveScriptSite_AddRef,
 538     ActiveScriptSite_Release,
 539     ActiveScriptSite_GetLCID,
 540     ActiveScriptSite_GetItemInfo,
 541     ActiveScriptSite_GetDocVersionString,
 542     ActiveScriptSite_OnScriptTerminate,
 543     ActiveScriptSite_OnStateChange,
 544     ActiveScriptSite_OnScriptError,
 545     ActiveScriptSite_OnEnterScript,
 546     ActiveScriptSite_OnLeaveScript
 547 };
 548
 549 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
 550
 551 static IActiveScript *create_script(void)
 552 {
 553     IActiveScript *script;
 554     HRESULT hres;
 555
 556     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 557             &IID_IActiveScript, (void**)&script);
 558     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 559
 560     return script;
 561 }
 562
 563 static void parse_script(BSTR script_str)
 564 {
 565     IActiveScriptParse *parser;
 566     IActiveScript *engine;
 567     HRESULT hres;
 568
 569     engine = create_script();
 570     if(!engine)
 571         return;
 572
 573     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
 574     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
 575
 576     hres = IActiveScriptParse_InitNew(parser);
 577     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
 578
 579     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
 580     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
 581
 582     hres = IActiveScript_AddNamedItem(engine, testW,
 583             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
 584     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
 585
 586     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
 587     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
 588
 589     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
 590     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
 591
 592     IActiveScript_Release(engine);
 593     IActiveScriptParse_Release(parser);
 594 }
 595
 596 static void parse_script_a(const char *src)
 597 {
 598     BSTR tmp = a2bstr(src);
 599     parse_script(tmp);
 600     SysFreeString(tmp);
 601 }
 602
 603 static BSTR get_script_from_file(const char *filename)
 604 {
 605     DWORD size, len;
 606     HANDLE file, map;
 607     const char *file_map;
 608     BSTR ret;
 609
 610     file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
 611     if(file == INVALID_HANDLE_VALUE) {
 612         trace("Could not open file: %u\n", GetLastError());
 613         return NULL;
 614     }
 615
 616     size = GetFileSize(file, NULL);
 617
 618     map = CreateFileMapping(file, NULL, PAGE_READONLY, 0, 0, NULL);
 619     CloseHandle(file);
 620     if(map == INVALID_HANDLE_VALUE) {
 621         trace("Could not create file mapping: %u\n", GetLastError());
 622         return NULL;
 623     }
 624
 625     file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
 626     CloseHandle(map);
 627     if(!file_map) {
 628         trace("MapViewOfFile failed: %u\n", GetLastError());
 629         return NULL;
 630     }
 631
 632     len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
 633     ret = SysAllocStringLen(NULL, len);
 634     MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
 635
 636     UnmapViewOfFile(file_map);
 637
 638     return ret;
 639 }
 640
 641 static void run_from_file(const char *filename)
 642 {
 643     BSTR script_str = get_script_from_file(filename);
 644
 645     strict_dispid_check = FALSE;
 646
 647     if(script_str)
 648         parse_script(script_str);
 649
 650     SysFreeString(script_str);
 651 }
 652
 653 static void run_from_res(const char *name)
 654 {
 655     const char *data;
 656     DWORD size, len;
 657     BSTR str;
 658     HRSRC src;
 659
 660     strict_dispid_check = FALSE;
 661     test_name = name;
 662
 663     src = FindResourceA(NULL, name, (LPCSTR)40);
 664     ok(src != NULL, "Could not find resource %s\n", name);
 665
 666     size = SizeofResource(NULL, src);
 667     data = LoadResource(NULL, src);
 668
 669     len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
 670     str = SysAllocStringLen(NULL, len);
 671     len = MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
 672
 673     SET_EXPECT(global_success_d);
 674     SET_EXPECT(global_success_i);
 675     parse_script(str);
 676     CHECK_CALLED(global_success_d);
 677     CHECK_CALLED(global_success_i);
 678
 679     SysFreeString(str);
 680 }
 681
 682 static void test_isvisible(BOOL global_members)
 683 {
 684     IActiveScriptParse *parser;
 685     IActiveScript *engine;
 686     HRESULT hres;
 687
 688     static const WCHAR script_textW[] =
 689         {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
 690
 691     engine = create_script();
 692     if(!engine)
 693         return;
 694
 695     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
 696     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
 697
 698     hres = IActiveScriptParse_InitNew(parser);
 699     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
 700
 701     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
 702     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
 703
 704     if(global_members)
 705         SET_EXPECT(GetItemInfo_testVal);
 706     hres = IActiveScript_AddNamedItem(engine, test_valW,
 707             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|
 708             (global_members ? SCRIPTITEM_GLOBALMEMBERS : 0));
 709     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
 710     if(global_members)
 711         CHECK_CALLED(GetItemInfo_testVal);
 712
 713     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
 714     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
 715
 716     if(!global_members)
 717         SET_EXPECT(GetItemInfo_testVal);
 718     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
 719     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
 720     if(!global_members)
 721         CHECK_CALLED(GetItemInfo_testVal);
 722
 723     hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
 724     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
 725
 726     IActiveScript_Release(engine);
 727     IActiveScriptParse_Release(parser);
 728 }
 729
 730 static void run_tests(void)
 731 {
 732     strict_dispid_check = TRUE;
 733
 734     parse_script_a("");
 735     parse_script_a("/* empty */ ;");
 736
 737     SET_EXPECT(global_propget_d);
 738     SET_EXPECT(global_propget_i);
 739     parse_script_a("testPropGet;");
 740     CHECK_CALLED(global_propget_d);
 741     CHECK_CALLED(global_propget_i);
 742
 743     SET_EXPECT(global_propput_d);
 744     SET_EXPECT(global_propput_i);
 745     parse_script_a("testPropPut = 1;");
 746     CHECK_CALLED(global_propput_d);
 747     CHECK_CALLED(global_propput_i);
 748
 749     SET_EXPECT(global_success_d);
 750     SET_EXPECT(global_success_i);
 751     parse_script_a("reportSuccess();");
 752     CHECK_CALLED(global_success_d);
 753     CHECK_CALLED(global_success_i);
 754
 755     SET_EXPECT(testobj_delete);
 756     parse_script_a("delete testObj.deleteTest;");
 757     CHECK_CALLED(testobj_delete);
 758
 759     parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
 760
 761     run_from_res("lang.js");
 762     run_from_res("api.js");
 763     run_from_res("regexp.js");
 764
 765     test_isvisible(FALSE);
 766     test_isvisible(TRUE);
 767 }
 768
 769 START_TEST(run)
 770 {
 771     int argc;
 772     char **argv;
 773
 774     argc = winetest_get_mainargs(&argv);
 775
 776     CoInitialize(NULL);
 777
 778     if(argc > 2)
 779         run_from_file(argv[2]);
 780     else
 781         run_tests();
 782
 783     CoUninitialize();
 784 }