[ADVAPI32_WINETEST] Revert service.c changes from 3c1b7834e1 to avoid testbot hangs...
[reactos.git] / modules / rostests / winetests / jscript / caller.c
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 }