1 /* 2 * Copyright 2012 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 #include <objsafe.h> 28 29 #include "wine/test.h" 30 31 #ifdef _WIN64 32 33 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface 34 #define IActiveScriptParse_Release IActiveScriptParse64_Release 35 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew 36 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText 37 38 #else 39 40 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface 41 #define IActiveScriptParse_Release IActiveScriptParse32_Release 42 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew 43 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText 44 45 #endif 46 47 static const CLSID CLSID_JScript = 48 {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}}; 49 50 #define DEFINE_EXPECT(func) \ 51 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE 52 53 #define SET_EXPECT(func) \ 54 expect_ ## func = TRUE 55 56 #define CHECK_EXPECT2(func) \ 57 do { \ 58 ok(expect_ ##func, "unexpected call " #func "\n"); \ 59 called_ ## func = TRUE; \ 60 }while(0) 61 62 #define CHECK_EXPECT(func) \ 63 do { \ 64 CHECK_EXPECT2(func); \ 65 expect_ ## func = FALSE; \ 66 }while(0) 67 68 #define CHECK_CALLED(func) \ 69 do { \ 70 ok(called_ ## func, "expected " #func "\n"); \ 71 expect_ ## func = called_ ## func = FALSE; \ 72 }while(0) 73 74 DEFINE_EXPECT(testArgConv); 75 76 static const WCHAR testW[] = {'t','e','s','t',0}; 77 78 static IVariantChangeType *script_change_type; 79 static IDispatch *stored_obj; 80 81 #define DISPID_TEST_TESTARGCONV 0x1000 82 83 static BSTR a2bstr(const char *str) 84 { 85 BSTR ret; 86 int len; 87 88 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0); 89 ret = SysAllocStringLen(NULL, len-1); 90 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len); 91 92 return ret; 93 } 94 95 static int strcmp_wa(LPCWSTR strw, const char *stra) 96 { 97 CHAR buf[512]; 98 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0); 99 return lstrcmpA(buf, stra); 100 } 101 102 typedef struct { 103 int int_result; 104 const char *str_result; 105 VARIANT_BOOL bool_result; 106 int test_double; 107 double double_result; 108 } conv_results_t; 109 110 #define call_change_type(a,b,c,d) _call_change_type(__LINE__,a,b,c,d) 111 static void _call_change_type(unsigned line, IVariantChangeType *change_type, VARIANT *dst, VARIANT *src, VARTYPE vt) 112 { 113 HRESULT hres; 114 115 VariantInit(dst); 116 hres = IVariantChangeType_ChangeType(change_type, dst, src, 0, vt); 117 ok_(__FILE__,line)(hres == S_OK, "ChangeType(%d) failed: %08x\n", vt, hres); 118 ok_(__FILE__,line)(V_VT(dst) == vt, "V_VT(dst) = %d\n", V_VT(dst)); 119 } 120 121 #define change_type_fail(a,b,c,d) _change_type_fail(__LINE__,a,b,c,d) 122 static void _change_type_fail(unsigned line, IVariantChangeType *change_type, VARIANT *src, VARTYPE vt, HRESULT exhres) 123 { 124 VARIANT v; 125 HRESULT hres; 126 127 V_VT(&v) = VT_EMPTY; 128 hres = IVariantChangeType_ChangeType(change_type, &v, src, 0, vt); 129 ok_(__FILE__,line)(hres == exhres, "ChangeType failed: %08x, expected %08x\n", hres, exhres); 130 } 131 132 static void test_change_type(IVariantChangeType *change_type, VARIANT *src, const conv_results_t *ex) 133 { 134 VARIANT v; 135 136 call_change_type(change_type, &v, src, VT_I4); 137 ok(V_I4(&v) == ex->int_result, "V_I4(v) = %d, expected %d\n", V_I4(&v), ex->int_result); 138 139 call_change_type(change_type, &v, src, VT_BSTR); 140 ok(!strcmp_wa(V_BSTR(&v), ex->str_result), "V_BSTR(v) = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), ex->str_result); 141 VariantClear(&v); 142 143 call_change_type(change_type, &v, src, VT_BOOL); 144 ok(V_BOOL(&v) == ex->bool_result, "V_BOOL(v) = %x, expected %x\n", V_BOOL(&v), ex->bool_result); 145 146 if(ex->test_double) { 147 call_change_type(change_type, &v, src, VT_R8); 148 ok(V_R8(&v) == ex->double_result, "V_R8(v) = %lf, expected %lf\n", V_R8(&v), ex->double_result); 149 150 call_change_type(change_type, &v, src, VT_R4); 151 ok(V_R4(&v) == (float)ex->double_result, "V_R4(v) = %f, expected %f\n", V_R4(&v), (float)ex->double_result); 152 } 153 154 if(V_VT(src) == VT_NULL) 155 call_change_type(change_type, &v, src, VT_NULL); 156 else 157 change_type_fail(change_type, src, VT_NULL, E_NOTIMPL); 158 159 if(V_VT(src) == VT_EMPTY) 160 call_change_type(change_type, &v, src, VT_EMPTY); 161 else 162 change_type_fail(change_type, src, VT_EMPTY, E_NOTIMPL); 163 164 call_change_type(change_type, &v, src, VT_I2); 165 ok(V_I2(&v) == (INT16)ex->int_result, "V_I2(v) = %d, expected %d\n", V_I2(&v), ex->int_result); 166 } 167 168 static void test_change_types(IVariantChangeType *change_type, IDispatch *obj_disp) 169 { 170 VARIANT v, dst; 171 BSTR str; 172 HRESULT hres; 173 174 static const conv_results_t bool_results[] = { 175 {0, "false", VARIANT_FALSE, 1,0.0}, 176 {1, "true", VARIANT_TRUE, 1,1.0}}; 177 static const conv_results_t int_results[] = { 178 {0, "0", VARIANT_FALSE, 1,0.0}, 179 {-100, "-100", VARIANT_TRUE, 1,-100.0}, 180 {0x10010, "65552", VARIANT_TRUE, 1,65552.0}}; 181 static const conv_results_t empty_results = 182 {0, "undefined", VARIANT_FALSE, 0,0}; 183 static const conv_results_t null_results = 184 {0, "null", VARIANT_FALSE, 0,0}; 185 static const conv_results_t obj_results = 186 {10, "strval", VARIANT_TRUE, 1,10.0}; 187 188 V_VT(&v) = VT_BOOL; 189 V_BOOL(&v) = VARIANT_FALSE; 190 test_change_type(change_type, &v, bool_results); 191 V_BOOL(&v) = VARIANT_TRUE; 192 test_change_type(change_type, &v, bool_results+1); 193 194 V_VT(&v) = VT_I4; 195 V_I4(&v) = 0; 196 test_change_type(change_type, &v, int_results); 197 V_I4(&v) = -100; 198 test_change_type(change_type, &v, int_results+1); 199 V_I4(&v) = 0x10010; 200 test_change_type(change_type, &v, int_results+2); 201 202 V_VT(&v) = VT_EMPTY; 203 test_change_type(change_type, &v, &empty_results); 204 205 V_VT(&v) = VT_NULL; 206 test_change_type(change_type, &v, &null_results); 207 208 V_VT(&v) = VT_DISPATCH; 209 V_DISPATCH(&v) = obj_disp; 210 test_change_type(change_type, &v, &obj_results); 211 212 V_VT(&v) = VT_BOOL; 213 V_BOOL(&v) = VARIANT_FALSE; 214 V_VT(&dst) = 0xdead; 215 hres = IVariantChangeType_ChangeType(change_type, &dst, &v, 0, VT_I4); 216 ok(hres == DISP_E_BADVARTYPE, "ChangeType failed: %08x, expected DISP_E_BADVARTYPE\n", hres); 217 ok(V_VT(&dst) == 0xdead, "V_VT(dst) = %d\n", V_VT(&dst)); 218 219 /* Test conversion in place */ 220 V_VT(&v) = VT_BSTR; 221 V_BSTR(&v) = str = a2bstr("test"); 222 hres = IVariantChangeType_ChangeType(change_type, &v, &v, 0, VT_BSTR); 223 ok(hres == S_OK, "ChangeType failed: %08x\n", hres); 224 ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v)); 225 ok(V_BSTR(&v) != str, "V_BSTR(v) == str\n"); 226 ok(!strcmp_wa(V_BSTR(&v), "test"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v))); 227 } 228 229 static void test_caller(IServiceProvider *caller, IDispatch *arg_obj) 230 { 231 IVariantChangeType *change_type; 232 HRESULT hres; 233 234 hres = IServiceProvider_QueryService(caller, &SID_VariantConversion, &IID_IVariantChangeType, (void**)&change_type); 235 ok(hres == S_OK, "Could not get SID_VariantConversion service: %08x\n", hres); 236 237 ok(change_type == script_change_type, "change_type != script_change_type\n"); 238 test_change_types(change_type, arg_obj); 239 240 IVariantChangeType_Release(change_type); 241 } 242 243 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv) 244 { 245 if(IsEqualGUID(riid, &IID_IUnknown)) { 246 *ppv = iface; 247 }else if(IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) { 248 *ppv = iface; 249 }else if(IsEqualGUID(&IID_IObjectSafety, riid)) { 250 ok(0, "Unexpected IID_IObjectSafety query\n"); 251 }else { 252 *ppv = NULL; 253 return E_NOINTERFACE; 254 } 255 256 return S_OK; 257 } 258 259 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface) 260 { 261 return 2; 262 } 263 264 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface) 265 { 266 return 1; 267 } 268 269 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo) 270 { 271 ok(0, "unexpected call\n"); 272 return E_NOTIMPL; 273 } 274 275 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo, 276 LCID lcid, ITypeInfo **ppTInfo) 277 { 278 ok(0, "unexpected call\n"); 279 return E_NOTIMPL; 280 } 281 282 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid, 283 LPOLESTR *rgszNames, UINT cNames, 284 LCID lcid, DISPID *rgDispId) 285 { 286 ok(0, "unexpected call\n"); 287 return E_NOTIMPL; 288 } 289 290 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember, 291 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, 292 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr) 293 { 294 ok(0, "unexpected call\n"); 295 return E_NOTIMPL; 296 } 297 298 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex) 299 { 300 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex); 301 return E_NOTIMPL; 302 } 303 304 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id) 305 { 306 ok(0, "unexpected call\n"); 307 return E_NOTIMPL; 308 } 309 310 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex) 311 { 312 ok(0, "unexpected call\n"); 313 return E_NOTIMPL; 314 } 315 316 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName) 317 { 318 ok(0, "unexpected call\n"); 319 return E_NOTIMPL; 320 } 321 322 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid) 323 { 324 ok(0, "unexpected call\n"); 325 return E_NOTIMPL; 326 } 327 328 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk) 329 { 330 ok(0, "unexpected call\n"); 331 return E_NOTIMPL; 332 } 333 334 static HRESULT WINAPI Test_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid) 335 { 336 if(!strcmp_wa(bstrName, "testArgConv")) { 337 ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex); 338 *pid = DISPID_TEST_TESTARGCONV; 339 return S_OK; 340 } 341 342 return E_NOTIMPL; 343 } 344 345 static HRESULT WINAPI Test_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, 346 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller) 347 { 348 ok(pspCaller != NULL, "pspCaller == NULL\n"); 349 350 switch(id) { 351 case DISPID_TEST_TESTARGCONV: 352 CHECK_EXPECT(testArgConv); 353 354 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags); 355 ok(pdp != NULL, "pdp == NULL\n"); 356 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n"); 357 ok(!pvarRes, "pvarRes != NULL\n"); 358 ok(pei != NULL, "pei == NULL\n"); 359 360 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs); 361 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg)); 362 363 test_caller(pspCaller, V_DISPATCH(pdp->rgvarg)); 364 365 stored_obj = V_DISPATCH(pdp->rgvarg); 366 IDispatch_AddRef(stored_obj); 367 break; 368 369 default: 370 ok(0, "unexpected call\n"); 371 return E_NOTIMPL; 372 } 373 374 return S_OK; 375 } 376 377 static IDispatchExVtbl testObjVtbl = { 378 DispatchEx_QueryInterface, 379 DispatchEx_AddRef, 380 DispatchEx_Release, 381 DispatchEx_GetTypeInfoCount, 382 DispatchEx_GetTypeInfo, 383 DispatchEx_GetIDsOfNames, 384 DispatchEx_Invoke, 385 Test_GetDispID, 386 Test_InvokeEx, 387 DispatchEx_DeleteMemberByName, 388 DispatchEx_DeleteMemberByDispID, 389 DispatchEx_GetMemberProperties, 390 DispatchEx_GetMemberName, 391 DispatchEx_GetNextDispID, 392 DispatchEx_GetNameSpaceParent 393 }; 394 395 static IDispatchEx testObj = { &testObjVtbl }; 396 397 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv) 398 { 399 if(IsEqualGUID(&IID_IUnknown, riid)) { 400 *ppv = iface; 401 }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) { 402 *ppv = iface; 403 }else { 404 *ppv = NULL; 405 return E_NOINTERFACE; 406 } 407 408 IUnknown_AddRef((IUnknown*)*ppv); 409 return S_OK; 410 } 411 412 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface) 413 { 414 return 2; 415 } 416 417 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface) 418 { 419 return 1; 420 } 421 422 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid) 423 { 424 *plcid = GetUserDefaultLCID(); 425 return S_OK; 426 } 427 428 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName, 429 DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti) 430 { 431 ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask); 432 ok(!ppti, "ppti != NULL\n"); 433 ok(!strcmp_wa(pstrName, "test"), "pstrName = %s\n", wine_dbgstr_w(pstrName)); 434 435 *ppiunkItem = (IUnknown*)&testObj; 436 return S_OK; 437 } 438 439 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion) 440 { 441 return E_NOTIMPL; 442 } 443 444 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, 445 const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo) 446 { 447 return E_NOTIMPL; 448 } 449 450 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState) 451 { 452 return E_NOTIMPL; 453 } 454 455 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror) 456 { 457 return E_NOTIMPL; 458 } 459 460 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface) 461 { 462 return E_NOTIMPL; 463 } 464 465 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface) 466 { 467 return E_NOTIMPL; 468 } 469 470 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = { 471 ActiveScriptSite_QueryInterface, 472 ActiveScriptSite_AddRef, 473 ActiveScriptSite_Release, 474 ActiveScriptSite_GetLCID, 475 ActiveScriptSite_GetItemInfo, 476 ActiveScriptSite_GetDocVersionString, 477 ActiveScriptSite_OnScriptTerminate, 478 ActiveScriptSite_OnStateChange, 479 ActiveScriptSite_OnScriptError, 480 ActiveScriptSite_OnEnterScript, 481 ActiveScriptSite_OnLeaveScript 482 }; 483 484 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }; 485 486 #define parse_script_a(p,s) _parse_script_a(__LINE__,p,s) 487 static void _parse_script_a(unsigned line, IActiveScriptParse *parser, const char *script) 488 { 489 BSTR str; 490 HRESULT hres; 491 492 str = a2bstr(script); 493 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL); 494 SysFreeString(str); 495 ok_(__FILE__,line)(hres == S_OK, "ParseScriptText failed: %08x\n", hres); 496 } 497 498 static IActiveScriptParse *create_script(void) 499 { 500 IActiveScriptParse *parser; 501 IActiveScript *script; 502 HRESULT hres; 503 504 hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER, 505 &IID_IActiveScript, (void**)&script); 506 if(FAILED(hres)) 507 return NULL; 508 509 hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)&parser); 510 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres); 511 512 hres = IActiveScriptParse_InitNew(parser); 513 ok(hres == S_OK, "InitNew failed: %08x\n", hres); 514 515 hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite); 516 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres); 517 518 hres = IActiveScript_AddNamedItem(script, testW, 519 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS); 520 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres); 521 522 hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED); 523 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres); 524 525 IActiveScript_Release(script); 526 527 return parser; 528 } 529 530 static void run_scripts(void) 531 { 532 IActiveScriptParse *parser; 533 HRESULT hres; 534 535 parser = create_script(); 536 537 hres = IActiveScriptParse_QueryInterface(parser, &IID_IVariantChangeType, (void**)&script_change_type); 538 ok(hres == S_OK, "Could not get IVariantChangeType iface: %08x\n", hres); 539 540 SET_EXPECT(testArgConv); 541 parse_script_a(parser, 542 "var obj = {" 543 " toString: function() { return 'strval'; }," 544 " valueOf: function() { return 10; }" 545 "};" 546 "testArgConv(obj);"); 547 CHECK_CALLED(testArgConv); 548 549 test_change_types(script_change_type, stored_obj); 550 IDispatch_Release(stored_obj); 551 IVariantChangeType_Release(script_change_type); 552 553 IActiveScriptParse_Release(parser); 554 } 555 556 static BOOL check_jscript(void) 557 { 558 IActiveScriptProperty *script_prop; 559 IActiveScriptParse *parser; 560 BSTR str; 561 HRESULT hres; 562 563 parser = create_script(); 564 if(!parser) 565 return FALSE; 566 567 str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;"); 568 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL); 569 SysFreeString(str); 570 571 if(hres == S_OK) 572 hres = IActiveScriptParse_QueryInterface(parser, &IID_IActiveScriptProperty, (void**)&script_prop); 573 IActiveScriptParse_Release(parser); 574 if(hres == S_OK) 575 IActiveScriptProperty_Release(script_prop); 576 577 return hres == S_OK; 578 } 579 580 START_TEST(caller) 581 { 582 CoInitialize(NULL); 583 584 if(check_jscript()) 585 run_scripts(); 586 else 587 win_skip("Broken (too old) jscript\n"); 588 589 CoUninitialize(); 590 } 591