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
  67 #define DISPID_GLOBAL_TESTPROPGET   0x1000
  68 #define DISPID_GLOBAL_TESTPROPPUT   0x1001
  69 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
  70 #define DISPID_GLOBAL_TRACE         0x1003
  71 #define DISPID_GLOBAL_OK            0x1004
  72 #define DISPID_GLOBAL_GETVT         0x1005
  73
  74 static const WCHAR testW[] = {'t','e','s','t',0};
  75
  76 static BOOL strict_dispid_check;
  77 static const char *test_name = "(null)";
  78
  79 static const char *debugstr_w(LPCWSTR str)
  80 {
  81     static char buf[1024];
  82
  83     if(!str)
  84         return "(null)";
  85
  86     WideCharToMultiByte(CP_ACP, 0, str, -1, buf, sizeof(buf), NULL, NULL);
  87     return buf;
  88 }
  89
  90 static BSTR a2bstr(const char *str)
  91 {
  92     BSTR ret;
  93     int len;
  94
  95     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
  96     ret = SysAllocStringLen(NULL, len-1);
  97     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
  98
  99     return ret;
 100 }
 101
 102 static int strcmp_wa(LPCWSTR strw, const char *stra)
 103 {
 104     CHAR buf[512];
 105     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
 106     return lstrcmpA(buf, stra);
 107 }
 108
 109 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 110 {
 111     *ppv = NULL;
 112
 113     if(IsEqualGUID(riid, &IID_IUnknown)
 114        || IsEqualGUID(riid, &IID_IDispatch)
 115        || IsEqualGUID(riid, &IID_IDispatchEx))
 116         *ppv = iface;
 117     else
 118         return E_NOINTERFACE;
 119
 120     return S_OK;
 121 }
 122
 123 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 124 {
 125     return 2;
 126 }
 127
 128 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 129 {
 130     return 1;
 131 }
 132
 133 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 134 {
 135     ok(0, "unexpected call\n");
 136     return E_NOTIMPL;
 137 }
 138
 139 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 140                                               LCID lcid, ITypeInfo **ppTInfo)
 141 {
 142     ok(0, "unexpected call\n");
 143     return E_NOTIMPL;
 144 }
 145
 146 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 147                                                 LPOLESTR *rgszNames, UINT cNames,
 148                                                 LCID lcid, DISPID *rgDispId)
 149 {
 150     ok(0, "unexpected call\n");
 151     return E_NOTIMPL;
 152 }
 153
 154 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 155                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 156                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 157 {
 158     ok(0, "unexpected call\n");
 159     return E_NOTIMPL;
 160 }
 161
 162 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 163 {
 164     ok(0, "unexpected call %s %x\n", debugstr_w(bstrName), grfdex);
 165     return E_NOTIMPL;
 166 }
 167
 168 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 169 {
 170     ok(0, "unexpected call\n");
 171     return E_NOTIMPL;
 172 }
 173
 174 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 175 {
 176     ok(0, "unexpected call\n");
 177     return E_NOTIMPL;
 178 }
 179
 180 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 181 {
 182     ok(0, "unexpected call\n");
 183     return E_NOTIMPL;
 184 }
 185
 186 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 187 {
 188     ok(0, "unexpected call\n");
 189     return E_NOTIMPL;
 190 }
 191
 192 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 193 {
 194     ok(0, "unexpected call\n");
 195     return E_NOTIMPL;
 196 }
 197
 198 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 199 {
 200     if(!strcmp_wa(bstrName, "ok")) {
 201         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 202         *pid = DISPID_GLOBAL_OK;
 203         return S_OK;
 204     }
 205     if(!strcmp_wa(bstrName, "trace")) {
 206         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 207         *pid = DISPID_GLOBAL_TRACE;
 208         return S_OK;
 209     }
 210     if(!strcmp_wa(bstrName, "reportSuccess")) {
 211         CHECK_EXPECT(global_success_d);
 212         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 213         *pid = DISPID_GLOBAL_REPORTSUCCESS;
 214         return S_OK;
 215     }
 216     if(!strcmp_wa(bstrName, "testPropGet")) {
 217         CHECK_EXPECT(global_propget_d);
 218         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 219         *pid = DISPID_GLOBAL_TESTPROPGET;
 220         return S_OK;
 221     }
 222     if(!strcmp_wa(bstrName, "testPropPut")) {
 223         CHECK_EXPECT(global_propput_d);
 224         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 225         *pid = DISPID_GLOBAL_TESTPROPPUT;
 226         return S_OK;
 227     }
 228     if(!strcmp_wa(bstrName, "getVT")) {
 229         ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
 230         *pid = DISPID_GLOBAL_GETVT;
 231         return S_OK;
 232     }
 233
 234     if(strict_dispid_check)
 235         ok(0, "unexpected call %s\n", debugstr_w(bstrName));
 236     return DISP_E_UNKNOWNNAME;
 237 }
 238
 239 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 240         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 241 {
 242     switch(id) {
 243     case DISPID_GLOBAL_OK:
 244         ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
 245         ok(pdp != NULL, "pdp == NULL\n");
 246         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 247         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 248         ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
 249         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 250         if(wFlags & INVOKE_PROPERTYGET)
 251             ok(pvarRes != NULL, "pvarRes == NULL\n");
 252         else
 253             ok(!pvarRes, "pvarRes != NULL\n");
 254         ok(pei != NULL, "pei == NULL\n");
 255
 256         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 257         ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
 258         ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, debugstr_w(V_BSTR(pdp->rgvarg)));
 259
 260         return S_OK;
 261
 262      case DISPID_GLOBAL_TRACE:
 263         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 264         ok(pdp != NULL, "pdp == NULL\n");
 265         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 266         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 267         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 268         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 269         ok(!pvarRes, "pvarRes != NULL\n");
 270         ok(pei != NULL, "pei == NULL\n");
 271
 272         ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 273         if(V_VT(pdp->rgvarg) == VT_BSTR)
 274             trace("%s: %s\n", test_name, debugstr_w(V_BSTR(pdp->rgvarg)));
 275
 276         return S_OK;
 277
 278     case DISPID_GLOBAL_REPORTSUCCESS:
 279         CHECK_EXPECT(global_success_i);
 280
 281         ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
 282         ok(pdp != NULL, "pdp == NULL\n");
 283         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 284         ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
 285         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 286         ok(!pvarRes, "pvarRes != NULL\n");
 287         ok(pei != NULL, "pei == NULL\n");
 288
 289         return S_OK;
 290
 291      case DISPID_GLOBAL_TESTPROPGET:
 292         CHECK_EXPECT(global_propget_i);
 293
 294         ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
 295         ok(pdp != NULL, "pdp == NULL\n");
 296         ok(!pdp->rgvarg, "rgvarg != NULL\n");
 297         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 298         ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
 299         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 300         ok(pvarRes != NULL, "pvarRes == NULL\n");
 301         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 302         ok(pei != NULL, "pei == NULL\n");
 303
 304         V_VT(pvarRes) = VT_I4;
 305         V_I4(pvarRes) = 1;
 306
 307         return S_OK;
 308
 309     case DISPID_GLOBAL_TESTPROPPUT:
 310         CHECK_EXPECT(global_propput_i);
 311
 312         ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
 313         ok(pdp != NULL, "pdp == NULL\n");
 314         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 315         ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
 316         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 317         ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
 318         ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
 319         ok(!pvarRes, "pvarRes != NULL\n");
 320
 321         ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
 322         ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
 323         return S_OK;
 324
 325      case DISPID_GLOBAL_GETVT:
 326         ok(pdp != NULL, "pdp == NULL\n");
 327         ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
 328         ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
 329         ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
 330         ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 331         ok(pvarRes != NULL, "pvarRes == NULL\n");
 332         ok(V_VT(pvarRes) ==  VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
 333         ok(pei != NULL, "pei == NULL\n");
 334
 335         V_VT(pvarRes) = VT_BSTR;
 336         switch(V_VT(pdp->rgvarg)) {
 337         case VT_EMPTY:
 338             V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
 339             break;
 340         case VT_NULL:
 341             V_BSTR(pvarRes) = a2bstr("VT_NULL");
 342             break;
 343         case VT_I4:
 344             V_BSTR(pvarRes) = a2bstr("VT_I4");
 345             break;
 346         case VT_R8:
 347             V_BSTR(pvarRes) = a2bstr("VT_R8");
 348             break;
 349         case VT_BSTR:
 350             V_BSTR(pvarRes) = a2bstr("VT_BSTR");
 351             break;
 352         case VT_DISPATCH:
 353             V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
 354             break;
 355         case VT_BOOL:
 356             V_BSTR(pvarRes) = a2bstr("VT_BOOL");
 357             break;
 358         default:
 359             ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
 360             return E_FAIL;
 361         }
 362
 363         return S_OK;
 364      }
 365
 366     ok(0, "unexpected call %x\n", id);
 367     return DISP_E_MEMBERNOTFOUND;
 368 }
 369
 370 static IDispatchExVtbl GlobalVtbl = {
 371     DispatchEx_QueryInterface,
 372     DispatchEx_AddRef,
 373     DispatchEx_Release,
 374     DispatchEx_GetTypeInfoCount,
 375     DispatchEx_GetTypeInfo,
 376     DispatchEx_GetIDsOfNames,
 377     DispatchEx_Invoke,
 378     Global_GetDispID,
 379     Global_InvokeEx,
 380     DispatchEx_DeleteMemberByName,
 381     DispatchEx_DeleteMemberByDispID,
 382     DispatchEx_GetMemberProperties,
 383     DispatchEx_GetMemberName,
 384     DispatchEx_GetNextDispID,
 385     DispatchEx_GetNameSpaceParent
 386 };
 387
 388 static IDispatchEx Global = { &GlobalVtbl };
 389
 390 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
 391 {
 392     *ppv = NULL;
 393
 394     if(IsEqualGUID(&IID_IUnknown, riid))
 395         *ppv = iface;
 396     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
 397         *ppv = iface;
 398     else
 399         return E_NOINTERFACE;
 400
 401     IUnknown_AddRef((IUnknown*)*ppv);
 402     return S_OK;
 403 }
 404
 405 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
 406 {
 407     return 2;
 408 }
 409
 410 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
 411 {
 412     return 1;
 413 }
 414
 415 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
 416 {
 417     *plcid = GetUserDefaultLCID();
 418     return S_OK;
 419 }
 420
 421 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
 422         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
 423 {
 424     ok(!lstrcmpW(pstrName, testW), "unexpected pstrName %s\n", debugstr_w(pstrName));
 425     ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
 426     ok(!ppti, "ppti != NULL\n");
 427
 428     *ppiunkItem = (IUnknown*)&Global;
 429     return S_OK;
 430 }
 431
 432 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
 433 {
 434     return E_NOTIMPL;
 435 }
 436
 437 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
 438         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
 439 {
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
 444 {
 445     return E_NOTIMPL;
 446 }
 447
 448 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
 449 {
 450     return E_NOTIMPL;
 451 }
 452
 453 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
 454 {
 455     return E_NOTIMPL;
 456 }
 457
 458 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
 459 {
 460     return E_NOTIMPL;
 461 }
 462
 463 #undef ACTSCPSITE_THIS
 464
 465 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
 466     ActiveScriptSite_QueryInterface,
 467     ActiveScriptSite_AddRef,
 468     ActiveScriptSite_Release,
 469     ActiveScriptSite_GetLCID,
 470     ActiveScriptSite_GetItemInfo,
 471     ActiveScriptSite_GetDocVersionString,
 472     ActiveScriptSite_OnScriptTerminate,
 473     ActiveScriptSite_OnStateChange,
 474     ActiveScriptSite_OnScriptError,
 475     ActiveScriptSite_OnEnterScript,
 476     ActiveScriptSite_OnLeaveScript
 477 };
 478
 479 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
 480
 481 static IActiveScript *create_script(void)
 482 {
 483     IActiveScript *script;
 484     HRESULT hres;
 485
 486     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 487             &IID_IActiveScript, (void**)&script);
 488     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
 489
 490     return script;
 491 }
 492
 493 static void parse_script(BSTR script_str)
 494 {
 495     IActiveScriptParse *parser;
 496     IActiveScript *engine;
 497     HRESULT hres;
 498
 499     engine = create_script();
 500     if(!engine)
 501         return;
 502
 503     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
 504     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
 505
 506     hres = IActiveScriptParse_InitNew(parser);
 507     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
 508
 509     hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
 510     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
 511
 512     hres = IActiveScript_AddNamedItem(engine, testW,
 513             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
 514     ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
 515
 516     hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
 517     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres);
 518
 519     hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
 520     ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
 521
 522     IActiveScript_Release(engine);
 523     IActiveScriptParse_Release(parser);
 524 }
 525
 526 static void parse_script_a(const char *src)
 527 {
 528     BSTR tmp = a2bstr(src);
 529     parse_script(tmp);
 530     SysFreeString(tmp);
 531 }
 532
 533 static void run_from_res(const char *name)
 534 {
 535     const char *data;
 536     DWORD size, len;
 537     BSTR str;
 538     HRSRC src;
 539
 540     strict_dispid_check = FALSE;
 541     test_name = name;
 542
 543     src = FindResourceA(NULL, name, (LPCSTR)40);
 544     ok(src != NULL, "Could not find resource %s\n", name);
 545
 546     size = SizeofResource(NULL, src);
 547     data = LoadResource(NULL, src);
 548
 549     len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
 550     str = SysAllocStringLen(NULL, len);
 551     len = MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
 552
 553     SET_EXPECT(global_success_d);
 554     SET_EXPECT(global_success_i);
 555     parse_script(str);
 556     CHECK_CALLED(global_success_d);
 557     CHECK_CALLED(global_success_i);
 558
 559     SysFreeString(str);
 560 }
 561
 562 static void run_tests(void)
 563 {
 564     strict_dispid_check = TRUE;
 565
 566     parse_script_a("");
 567     parse_script_a("/* empty */ ;");
 568
 569     SET_EXPECT(global_propget_d);
 570     SET_EXPECT(global_propget_i);
 571     parse_script_a("testPropGet;");
 572     CHECK_CALLED(global_propget_d);
 573     CHECK_CALLED(global_propget_i);
 574
 575     SET_EXPECT(global_propput_d);
 576     SET_EXPECT(global_propput_i);
 577     parse_script_a("testPropPut = 1;");
 578     CHECK_CALLED(global_propput_d);
 579     CHECK_CALLED(global_propput_i);
 580
 581     SET_EXPECT(global_success_d);
 582     SET_EXPECT(global_success_i);
 583     parse_script_a("reportSuccess();");
 584     CHECK_CALLED(global_success_d);
 585     CHECK_CALLED(global_success_i);
 586
 587     run_from_res("lang.js");
 588     run_from_res("api.js");
 589     run_from_res("regexp.js");
 590 }
 591
 592 START_TEST(run)
 593 {
 594     CoInitialize(NULL);
 595
 596     run_tests();
 597
 598     CoUninitialize();
 599 }