[ADVAPI32_WINETEST] Revert service.c changes from 3c1b7834e1 to avoid testbot hangs...
[reactos.git] / modules / rostests / winetests / jscript / 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 #ifdef _WIN64
31
32 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface
33 #define IActiveScriptParse_Release IActiveScriptParse64_Release
34 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
35 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
36 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
37 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
38
39 #else
40
41 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
42 #define IActiveScriptParse_Release IActiveScriptParse32_Release
43 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
44 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
45 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
46 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
47
48 #endif
49
50 static const CLSID CLSID_JScript =
51 {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
52 static const CLSID CLSID_JScriptEncode =
53 {0xf414c262,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
54
55 #define DEFINE_EXPECT(func) \
56 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
57
58 #define SET_EXPECT(func) \
59 expect_ ## func = TRUE
60
61 #define CHECK_EXPECT2(func) \
62 do { \
63 ok(expect_ ##func, "unexpected call " #func "\n"); \
64 called_ ## func = TRUE; \
65 }while(0)
66
67 #define CHECK_EXPECT(func) \
68 do { \
69 CHECK_EXPECT2(func); \
70 expect_ ## func = FALSE; \
71 }while(0)
72
73 #define CHECK_CALLED(func) \
74 do { \
75 ok(called_ ## func, "expected " #func "\n"); \
76 expect_ ## func = called_ ## func = FALSE; \
77 }while(0)
78
79 DEFINE_EXPECT(global_propget_d);
80 DEFINE_EXPECT(global_propget_i);
81 DEFINE_EXPECT(global_propput_d);
82 DEFINE_EXPECT(global_propput_i);
83 DEFINE_EXPECT(global_propputref_d);
84 DEFINE_EXPECT(global_propputref_i);
85 DEFINE_EXPECT(global_propdelete_d);
86 DEFINE_EXPECT(global_nopropdelete_d);
87 DEFINE_EXPECT(global_propdeleteerror_d);
88 DEFINE_EXPECT(global_success_d);
89 DEFINE_EXPECT(global_success_i);
90 DEFINE_EXPECT(global_notexists_d);
91 DEFINE_EXPECT(global_propargput_d);
92 DEFINE_EXPECT(global_propargput_i);
93 DEFINE_EXPECT(global_testargtypes_i);
94 DEFINE_EXPECT(puredisp_prop_d);
95 DEFINE_EXPECT(puredisp_noprop_d);
96 DEFINE_EXPECT(puredisp_value);
97 DEFINE_EXPECT(dispexfunc_value);
98 DEFINE_EXPECT(testobj_delete_test);
99 DEFINE_EXPECT(testobj_delete_nodelete);
100 DEFINE_EXPECT(testobj_value);
101 DEFINE_EXPECT(testobj_construct);
102 DEFINE_EXPECT(testobj_prop_d);
103 DEFINE_EXPECT(testobj_withprop_d);
104 DEFINE_EXPECT(testobj_withprop_i);
105 DEFINE_EXPECT(testobj_noprop_d);
106 DEFINE_EXPECT(testobj_onlydispid_d);
107 DEFINE_EXPECT(testobj_onlydispid_i);
108 DEFINE_EXPECT(testobj_notexists_d);
109 DEFINE_EXPECT(GetItemInfo_testVal);
110 DEFINE_EXPECT(ActiveScriptSite_OnScriptError);
111 DEFINE_EXPECT(invoke_func);
112 DEFINE_EXPECT(DeleteMemberByDispID);
113 DEFINE_EXPECT(DeleteMemberByDispID_false);
114 DEFINE_EXPECT(DeleteMemberByDispID_error);
115 DEFINE_EXPECT(BindHandler);
116
117 #define DISPID_GLOBAL_TESTPROPGET 0x1000
118 #define DISPID_GLOBAL_TESTPROPPUT 0x1001
119 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
120 #define DISPID_GLOBAL_TRACE 0x1003
121 #define DISPID_GLOBAL_OK 0x1004
122 #define DISPID_GLOBAL_GETVT 0x1005
123 #define DISPID_GLOBAL_TESTOBJ 0x1006
124 #define DISPID_GLOBAL_GETNULLBSTR 0x1007
125 #define DISPID_GLOBAL_NULL_DISP 0x1008
126 #define DISPID_GLOBAL_TESTTHIS 0x1009
127 #define DISPID_GLOBAL_TESTTHIS2 0x100a
128 #define DISPID_GLOBAL_INVOKEVERSION 0x100b
129 #define DISPID_GLOBAL_CREATEARRAY 0x100c
130 #define DISPID_GLOBAL_PROPGETFUNC 0x100d
131 #define DISPID_GLOBAL_OBJECT_FLAG 0x100e
132 #define DISPID_GLOBAL_ISWIN64 0x100f
133 #define DISPID_GLOBAL_PUREDISP 0x1010
134 #define DISPID_GLOBAL_ISNULLBSTR 0x1011
135 #define DISPID_GLOBAL_PROPARGPUT 0x1012
136 #define DISPID_GLOBAL_SHORTPROP 0x1013
137 #define DISPID_GLOBAL_GETSHORT 0x1014
138 #define DISPID_GLOBAL_TESTARGTYPES 0x1015
139 #define DISPID_GLOBAL_INTPROP 0x1016
140 #define DISPID_GLOBAL_DISPUNK 0x1017
141 #define DISPID_GLOBAL_TESTRES 0x1018
142 #define DISPID_GLOBAL_TESTNORES 0x1019
143 #define DISPID_GLOBAL_DISPEXFUNC 0x101a
144 #define DISPID_GLOBAL_TESTPROPPUTREF 0x101b
145 #define DISPID_GLOBAL_GETSCRIPTSTATE 0x101c
146 #define DISPID_GLOBAL_BINDEVENTHANDLER 0x101d
147
148 #define DISPID_GLOBAL_TESTPROPDELETE 0x2000
149 #define DISPID_GLOBAL_TESTNOPROPDELETE 0x2001
150 #define DISPID_GLOBAL_TESTPROPDELETEERROR 0x2002
151
152 #define DISPID_TESTOBJ_PROP 0x2000
153 #define DISPID_TESTOBJ_ONLYDISPID 0x2001
154 #define DISPID_TESTOBJ_WITHPROP 0x2002
155
156 #define JS_E_OUT_OF_MEMORY 0x800a03ec
157 #define JS_E_INVALID_CHAR 0x800a03f6
158
159 static const WCHAR testW[] = {'t','e','s','t',0};
160 static const CHAR testA[] = "test";
161 static const WCHAR test_valW[] = {'t','e','s','t','V','a','l',0};
162 static const CHAR test_valA[] = "testVal";
163 static const WCHAR emptyW[] = {0};
164
165 static BOOL strict_dispid_check, testing_expr;
166 static const char *test_name = "(null)";
167 static IDispatch *script_disp;
168 static int invoke_version;
169 static IActiveScriptError *script_error;
170 static IActiveScript *script_engine;
171 static const CLSID *engine_clsid = &CLSID_JScript;
172
173 /* Returns true if the user interface is in English. Note that this does not
174 * presume of the formatting of dates, numbers, etc.
175 */
176 static BOOL is_lang_english(void)
177 {
178 static HMODULE hkernel32 = NULL;
179 static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
180 static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
181
182 if (!hkernel32)
183 {
184 hkernel32 = GetModuleHandleA("kernel32.dll");
185 pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
186 pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
187 }
188 if (pGetThreadUILanguage)
189 return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH;
190 if (pGetUserDefaultUILanguage)
191 return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH;
192
193 return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
194 }
195
196 static BSTR a2bstr(const char *str)
197 {
198 BSTR ret;
199 int len;
200
201 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
202 ret = SysAllocStringLen(NULL, len-1);
203 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
204
205 return ret;
206 }
207
208 static int strcmp_wa(LPCWSTR strw, const char *stra)
209 {
210 CHAR buf[512];
211 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
212 return lstrcmpA(buf, stra);
213 }
214
215 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
216 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
217 {
218 expect |= invoke_version << 28;
219 ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
220 }
221
222 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
223 {
224 *ppv = NULL;
225
226 if(IsEqualGUID(riid, &IID_IUnknown)
227 || IsEqualGUID(riid, &IID_IDispatch)
228 || IsEqualGUID(riid, &IID_IDispatchEx))
229 *ppv = iface;
230 else
231 return E_NOINTERFACE;
232
233 return S_OK;
234 }
235
236 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
237 {
238 return 2;
239 }
240
241 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
242 {
243 return 1;
244 }
245
246 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
247 {
248 ok(0, "unexpected call\n");
249 return E_NOTIMPL;
250 }
251
252 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
253 LCID lcid, ITypeInfo **ppTInfo)
254 {
255 ok(0, "unexpected call\n");
256 return E_NOTIMPL;
257 }
258
259 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
260 LPOLESTR *rgszNames, UINT cNames,
261 LCID lcid, DISPID *rgDispId)
262 {
263 ok(0, "unexpected call\n");
264 return E_NOTIMPL;
265 }
266
267 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
268 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
269 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
270 {
271 ok(0, "unexpected call\n");
272 return E_NOTIMPL;
273 }
274
275 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
276 {
277 ok(0, "unexpected call\n");
278 return E_NOTIMPL;
279 }
280
281 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
282 VARIANT *res, EXCEPINFO *pei, IServiceProvider *pspCaller)
283 {
284 ok(0, "unexpected call\n");
285 return E_NOTIMPL;
286 }
287
288 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
289 {
290 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
291 return E_NOTIMPL;
292 }
293
294 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
295 {
296 ok(0, "unexpected call\n");
297 return E_NOTIMPL;
298 }
299
300 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
301 {
302 ok(0, "unexpected call\n");
303 return E_NOTIMPL;
304 }
305
306 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
307 {
308 ok(0, "unexpected call\n");
309 return E_NOTIMPL;
310 }
311
312 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
313 {
314 ok(0, "unexpected call\n");
315 return E_NOTIMPL;
316 }
317
318 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
319 {
320 ok(0, "unexpected call\n");
321 return E_NOTIMPL;
322 }
323
324 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
325 {
326 if(!strcmp_wa(bstrName, "prop")) {
327 CHECK_EXPECT(testobj_prop_d);
328 test_grfdex(grfdex, fdexNameCaseSensitive);
329 *pid = DISPID_TESTOBJ_PROP;
330 return S_OK;
331 }
332 if(!strcmp_wa(bstrName, "withProp")) {
333 CHECK_EXPECT(testobj_withprop_d);
334 test_grfdex(grfdex, fdexNameCaseSensitive|fdexNameImplicit);
335 *pid = DISPID_TESTOBJ_WITHPROP;
336 return S_OK;
337 }
338 if(!strcmp_wa(bstrName, "noprop")) {
339 CHECK_EXPECT(testobj_noprop_d);
340 test_grfdex(grfdex, fdexNameCaseSensitive);
341 return DISP_E_UNKNOWNNAME;
342 }
343 if(!strcmp_wa(bstrName, "onlyDispID")) {
344 if(strict_dispid_check)
345 CHECK_EXPECT(testobj_onlydispid_d);
346 test_grfdex(grfdex, fdexNameCaseSensitive);
347 *pid = DISPID_TESTOBJ_ONLYDISPID;
348 return S_OK;
349 }
350 if(!strcmp_wa(bstrName, "notExists")) {
351 CHECK_EXPECT(testobj_notexists_d);
352 test_grfdex(grfdex, fdexNameCaseSensitive);
353 return DISP_E_UNKNOWNNAME;
354 }
355
356 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
357 return E_NOTIMPL;
358 }
359
360 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
361 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
362 {
363 ok(pspCaller != NULL, "pspCaller = NULL\n");
364
365 switch(id) {
366 case DISPID_VALUE:
367 ok(pdp != NULL, "pdp == NULL\n");
368 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
369 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
370 ok(pvarRes != NULL, "pvarRes == NULL\n");
371 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
372 ok(pei != NULL, "pei == NULL\n");
373
374 switch(wFlags) {
375 case INVOKE_PROPERTYGET:
376 CHECK_EXPECT(testobj_value);
377 ok(!pdp->rgvarg, "rgvarg != NULL\n");
378 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
379 break;
380 case INVOKE_FUNC:
381 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
382 break;
383 case INVOKE_FUNC|INVOKE_PROPERTYGET:
384 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
385 break;
386 case DISPATCH_CONSTRUCT:
387 CHECK_EXPECT(testobj_construct);
388 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
389 break;
390 default:
391 ok(0, "invalid flag (%x)\n", wFlags);
392 }
393
394 V_VT(pvarRes) = VT_I4;
395 V_I4(pvarRes) = 1;
396 return S_OK;
397 case DISPID_TESTOBJ_ONLYDISPID:
398 if(strict_dispid_check)
399 CHECK_EXPECT(testobj_onlydispid_i);
400 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
401 ok(pdp != NULL, "pdp == NULL\n");
402 ok(!pdp->rgvarg, "rgvarg != NULL\n");
403 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
404 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
405 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
406 ok(pvarRes != NULL, "pvarRes == NULL\n");
407 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
408 ok(pei != NULL, "pei == NULL\n");
409 return DISP_E_MEMBERNOTFOUND;
410 case DISPID_TESTOBJ_WITHPROP:
411 CHECK_EXPECT(testobj_withprop_i);
412
413 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
414 ok(pdp != NULL, "pdp == NULL\n");
415 ok(!pdp->rgvarg, "rgvarg != NULL\n");
416 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
417 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
418 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
419 ok(pvarRes != NULL, "pvarRes == NULL\n");
420 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
421 ok(pei != NULL, "pei == NULL\n");
422
423 V_VT(pvarRes) = VT_I4;
424 V_I4(pvarRes) = 1;
425
426 return S_OK;
427 }
428
429 ok(0, "unexpected call %x\n", id);
430 return DISP_E_MEMBERNOTFOUND;
431 }
432
433 static HRESULT WINAPI testObj_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
434 {
435 if(!strcmp_wa(bstrName, "deleteTest")) {
436 CHECK_EXPECT(testobj_delete_test);
437 test_grfdex(grfdex, fdexNameCaseSensitive);
438 return S_OK;
439 }
440 if(!strcmp_wa(bstrName, "noDeleteTest")) {
441 CHECK_EXPECT(testobj_delete_nodelete);
442 test_grfdex(grfdex, fdexNameCaseSensitive);
443 return S_FALSE;
444 }
445
446 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
447 return E_FAIL;
448 }
449
450 static IDispatchExVtbl testObjVtbl = {
451 DispatchEx_QueryInterface,
452 DispatchEx_AddRef,
453 DispatchEx_Release,
454 DispatchEx_GetTypeInfoCount,
455 DispatchEx_GetTypeInfo,
456 DispatchEx_GetIDsOfNames,
457 DispatchEx_Invoke,
458 testObj_GetDispID,
459 testObj_InvokeEx,
460 testObj_DeleteMemberByName,
461 DispatchEx_DeleteMemberByDispID,
462 DispatchEx_GetMemberProperties,
463 DispatchEx_GetMemberName,
464 DispatchEx_GetNextDispID,
465 DispatchEx_GetNameSpaceParent
466 };
467
468 static IDispatchEx testObj = { &testObjVtbl };
469
470 static HRESULT WINAPI dispexFunc_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
471 VARIANT *res, EXCEPINFO *pei, IServiceProvider *pspCaller)
472 {
473 ok(pspCaller != NULL, "pspCaller = NULL\n");
474
475 switch(id) {
476 case DISPID_VALUE:
477 CHECK_EXPECT(dispexfunc_value);
478
479 ok(pdp != NULL, "pdp == NULL\n");
480 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
481 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs != NULL\n");
482 ok(*pdp->rgdispidNamedArgs == DISPID_THIS, "*rgdispidNamedArgs = %d\n", *pdp->rgdispidNamedArgs);
483 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
484 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
485 ok(res != NULL, "res == NULL\n");
486 ok(pei != NULL, "pei == NULL\n");
487
488 ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
489
490 if(V_BOOL(pdp->rgvarg+1))
491 /* NOTE: If called by Function.apply(), native doesn't set DISPATCH_PROPERTYGET flag. */
492 todo_wine ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
493 else
494 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
495
496 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
497 ok(V_DISPATCH(pdp->rgvarg) != NULL, "V_DISPATCH(pdp->rgvarg) == NULL\n");
498
499 if(res)
500 V_VT(res) = VT_NULL;
501 return S_OK;
502 default:
503 ok(0, "unexpected call %x\n", id);
504 return DISP_E_MEMBERNOTFOUND;
505 }
506 }
507
508 static IDispatchExVtbl dispexFuncVtbl = {
509 DispatchEx_QueryInterface,
510 DispatchEx_AddRef,
511 DispatchEx_Release,
512 DispatchEx_GetTypeInfoCount,
513 DispatchEx_GetTypeInfo,
514 DispatchEx_GetIDsOfNames,
515 DispatchEx_Invoke,
516 DispatchEx_GetDispID,
517 dispexFunc_InvokeEx,
518 DispatchEx_DeleteMemberByName,
519 DispatchEx_DeleteMemberByDispID,
520 DispatchEx_GetMemberProperties,
521 DispatchEx_GetMemberName,
522 DispatchEx_GetNextDispID,
523 DispatchEx_GetNameSpaceParent
524 };
525
526 static IDispatchEx dispexFunc = { &dispexFuncVtbl };
527
528 static HRESULT WINAPI pureDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
529 {
530 if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch)) {
531 *ppv = iface;
532 return S_OK;
533 }
534
535 *ppv = NULL;
536 return E_NOINTERFACE;
537 }
538
539 static HRESULT WINAPI pureDisp_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
540 LPOLESTR *rgszNames, UINT cNames,
541 LCID lcid, DISPID *rgDispId)
542 {
543 ok(IsEqualGUID(riid, &IID_NULL), "Expected IID_NULL\n");
544 ok(cNames==1, "cNames = %d\n", cNames);
545
546 if(!strcmp_wa(*rgszNames, "prop")) {
547 CHECK_EXPECT(puredisp_prop_d);
548 *rgDispId = DISPID_TESTOBJ_PROP;
549 return S_OK;
550 } else if(!strcmp_wa(*rgszNames, "noprop")) {
551 CHECK_EXPECT(puredisp_noprop_d);
552 return DISP_E_UNKNOWNNAME;
553 }
554
555 ok(0, "unexpected call\n");
556 return E_NOTIMPL;
557 }
558
559 static HRESULT WINAPI pureDisp_Invoke(IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid,
560 WORD wFlags, DISPPARAMS *pdp, VARIANT *res, EXCEPINFO *ei, UINT *puArgErr)
561 {
562 ok(IsEqualGUID(&IID_NULL, riid), "unexpected riid\n");
563
564 switch(dispIdMember) {
565 case DISPID_VALUE:
566 CHECK_EXPECT(puredisp_value);
567
568 ok(pdp != NULL, "pdp == NULL\n");
569 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
570 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
571 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
572 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
573 ok(res != NULL, "res == NULL\n");
574 ok(ei != NULL, "ei == NULL\n");
575 ok(puArgErr != NULL, "puArgErr == NULL\n");
576
577 ok(V_VT(pdp->rgvarg) == VT_BOOL, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
578
579 if(V_BOOL(pdp->rgvarg))
580 todo_wine ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
581 else
582 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
583
584 if(res)
585 V_VT(res) = VT_NULL;
586 return S_OK;
587 default:
588 ok(0, "unexpected call\n");
589 return E_NOTIMPL;
590 }
591 }
592
593 static IDispatchExVtbl pureDispVtbl = {
594 pureDisp_QueryInterface,
595 DispatchEx_AddRef,
596 DispatchEx_Release,
597 DispatchEx_GetTypeInfoCount,
598 DispatchEx_GetTypeInfo,
599 pureDisp_GetIDsOfNames,
600 pureDisp_Invoke
601 };
602
603 static IDispatchEx pureDisp = { &pureDispVtbl };
604
605 static HRESULT WINAPI BindEventHandler_QueryInterface(IBindEventHandler *iface, REFIID riid, void **ppv)
606 {
607 ok(0, "unexpected call\n");
608 return E_NOINTERFACE;
609 }
610
611 static ULONG WINAPI BindEventHandler_AddRef(IBindEventHandler *iface)
612 {
613 return 2;
614 }
615
616 static ULONG WINAPI BindEventHandler_Release(IBindEventHandler *iface)
617 {
618 return 1;
619 }
620
621 static HRESULT WINAPI BindEventHandler_BindHandler(IBindEventHandler *iface, const WCHAR *event, IDispatch *disp)
622 {
623 CHECK_EXPECT(BindHandler);
624 ok(!strcmp_wa(event, "eventName"), "event = %s\n", wine_dbgstr_w(event));
625 ok(disp != NULL, "disp = NULL\n");
626 return S_OK;
627 }
628
629 static const IBindEventHandlerVtbl BindEventHandlerVtbl = {
630 BindEventHandler_QueryInterface,
631 BindEventHandler_AddRef,
632 BindEventHandler_Release,
633 BindEventHandler_BindHandler
634 };
635
636 static IBindEventHandler BindEventHandler = { &BindEventHandlerVtbl };
637
638 static HRESULT WINAPI bindEventHandlerDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
639 {
640 if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) {
641 *ppv = iface;
642 return S_OK;
643 }
644
645 if(IsEqualGUID(riid, &IID_IBindEventHandler)) {
646 *ppv = &BindEventHandler;
647 return S_OK;
648 }
649
650 *ppv = NULL;
651 return E_NOINTERFACE;
652 }
653
654 static IDispatchExVtbl bindEventHandlerDispVtbl = {
655 bindEventHandlerDisp_QueryInterface,
656 DispatchEx_AddRef,
657 DispatchEx_Release,
658 DispatchEx_GetTypeInfoCount,
659 DispatchEx_GetTypeInfo,
660 DispatchEx_GetIDsOfNames,
661 DispatchEx_Invoke,
662 DispatchEx_GetDispID,
663 DispatchEx_InvokeEx,
664 DispatchEx_DeleteMemberByName,
665 DispatchEx_DeleteMemberByDispID,
666 DispatchEx_GetMemberProperties,
667 DispatchEx_GetMemberName,
668 DispatchEx_GetNextDispID,
669 DispatchEx_GetNameSpaceParent
670 };
671
672 static IDispatchEx bindEventHandlerDisp = { &bindEventHandlerDispVtbl };
673
674 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
675 {
676 if(!strcmp_wa(bstrName, "ok")) {
677 test_grfdex(grfdex, fdexNameCaseSensitive);
678 *pid = DISPID_GLOBAL_OK;
679 return S_OK;
680 }
681 if(!strcmp_wa(bstrName, "trace")) {
682 test_grfdex(grfdex, fdexNameCaseSensitive);
683 *pid = DISPID_GLOBAL_TRACE;
684 return S_OK;
685 }
686 if(!strcmp_wa(bstrName, "reportSuccess")) {
687 CHECK_EXPECT(global_success_d);
688 test_grfdex(grfdex, fdexNameCaseSensitive);
689 *pid = DISPID_GLOBAL_REPORTSUCCESS;
690 return S_OK;
691 }
692 if(!strcmp_wa(bstrName, "testPropGet")) {
693 CHECK_EXPECT(global_propget_d);
694 test_grfdex(grfdex, fdexNameCaseSensitive);
695 *pid = DISPID_GLOBAL_TESTPROPGET;
696 return S_OK;
697 }
698 if(!strcmp_wa(bstrName, "testPropPut")) {
699 CHECK_EXPECT(global_propput_d);
700 test_grfdex(grfdex, fdexNameCaseSensitive);
701 *pid = DISPID_GLOBAL_TESTPROPPUT;
702 return S_OK;
703 }
704 if(!strcmp_wa(bstrName, "testPropPutRef")) {
705 CHECK_EXPECT(global_propputref_d);
706 test_grfdex(grfdex, fdexNameCaseSensitive);
707 *pid = DISPID_GLOBAL_TESTPROPPUTREF;
708 return S_OK;
709 }
710 if(!strcmp_wa(bstrName, "testPropDelete")) {
711 CHECK_EXPECT(global_propdelete_d);
712 test_grfdex(grfdex, fdexNameCaseSensitive);
713 *pid = DISPID_GLOBAL_TESTPROPDELETE;
714 return S_OK;
715 }
716 if(!strcmp_wa(bstrName, "testNoPropDelete")) {
717 CHECK_EXPECT(global_nopropdelete_d);
718 test_grfdex(grfdex, fdexNameCaseSensitive);
719 *pid = DISPID_GLOBAL_TESTNOPROPDELETE;
720 return S_OK;
721 }
722 if(!strcmp_wa(bstrName, "testPropDeleteError")) {
723 CHECK_EXPECT(global_propdeleteerror_d);
724 test_grfdex(grfdex, fdexNameCaseSensitive);
725 *pid = DISPID_GLOBAL_TESTPROPDELETEERROR;
726 return S_OK;
727 }
728 if(!strcmp_wa(bstrName, "getVT")) {
729 test_grfdex(grfdex, fdexNameCaseSensitive);
730 *pid = DISPID_GLOBAL_GETVT;
731 return S_OK;
732 }
733 if(!strcmp_wa(bstrName, "testObj")) {
734 test_grfdex(grfdex, fdexNameCaseSensitive);
735 *pid = DISPID_GLOBAL_TESTOBJ;
736 return S_OK;
737 }
738 if(!strcmp_wa(bstrName, "getNullBSTR")) {
739 *pid = DISPID_GLOBAL_GETNULLBSTR;
740 return S_OK;
741 }
742 if(!strcmp_wa(bstrName, "isNullBSTR")) {
743 *pid = DISPID_GLOBAL_ISNULLBSTR;
744 return S_OK;
745 }
746 if(!strcmp_wa(bstrName, "nullDisp")) {
747 *pid = DISPID_GLOBAL_NULL_DISP;
748 return S_OK;
749 }
750 if(!strcmp_wa(bstrName, "notExists")) {
751 CHECK_EXPECT(global_notexists_d);
752 test_grfdex(grfdex, fdexNameCaseSensitive);
753 return DISP_E_UNKNOWNNAME;
754 }
755
756 if(!strcmp_wa(bstrName, "testThis")) {
757 test_grfdex(grfdex, fdexNameCaseSensitive);
758 *pid = DISPID_GLOBAL_TESTTHIS;
759 return S_OK;
760 }
761
762 if(!strcmp_wa(bstrName, "testThis2")) {
763 test_grfdex(grfdex, fdexNameCaseSensitive);
764 *pid = DISPID_GLOBAL_TESTTHIS2;
765 return S_OK;
766 }
767
768 if(!strcmp_wa(bstrName, "invokeVersion")) {
769 test_grfdex(grfdex, fdexNameCaseSensitive);
770 *pid = DISPID_GLOBAL_INVOKEVERSION;
771 return S_OK;
772 }
773 if(!strcmp_wa(bstrName, "createArray")) {
774 test_grfdex(grfdex, fdexNameCaseSensitive);
775 *pid = DISPID_GLOBAL_CREATEARRAY;
776 return S_OK;
777 }
778 if(!strcmp_wa(bstrName, "propGetFunc")) {
779 test_grfdex(grfdex, fdexNameCaseSensitive);
780 *pid = DISPID_GLOBAL_PROPGETFUNC;
781 return S_OK;
782 }
783 if(!strcmp_wa(bstrName, "objectFlag")) {
784 test_grfdex(grfdex, fdexNameCaseSensitive);
785 *pid = DISPID_GLOBAL_OBJECT_FLAG;
786 return S_OK;
787 }
788
789 if(!strcmp_wa(bstrName, "isWin64")) {
790 test_grfdex(grfdex, fdexNameCaseSensitive);
791 *pid = DISPID_GLOBAL_ISWIN64;
792 return S_OK;
793 }
794
795 if(!strcmp_wa(bstrName, "pureDisp")) {
796 test_grfdex(grfdex, fdexNameCaseSensitive);
797 *pid = DISPID_GLOBAL_PUREDISP;
798 return S_OK;
799 }
800
801 if(!strcmp_wa(bstrName, "propArgPutG")) {
802 CHECK_EXPECT(global_propargput_d);
803 test_grfdex(grfdex, fdexNameCaseSensitive);
804 *pid = DISPID_GLOBAL_PROPARGPUT;
805 return S_OK;
806 }
807
808 if(!strcmp_wa(bstrName, "propArgPutO")) {
809 CHECK_EXPECT(global_propargput_d);
810 test_grfdex(grfdex, fdexNameEnsure|fdexNameCaseSensitive);
811 *pid = DISPID_GLOBAL_PROPARGPUT;
812 return S_OK;
813 }
814
815 if(!strcmp_wa(bstrName, "shortProp")) {
816 *pid = DISPID_GLOBAL_SHORTPROP;
817 return S_OK;
818 }
819
820 if(!strcmp_wa(bstrName, "getShort")) {
821 *pid = DISPID_GLOBAL_GETSHORT;
822 return S_OK;
823 }
824
825 if(!strcmp_wa(bstrName, "testArgTypes")) {
826 *pid = DISPID_GLOBAL_TESTARGTYPES;
827 return S_OK;
828 }
829
830 if(!strcmp_wa(bstrName, "intProp")) {
831 *pid = DISPID_GLOBAL_INTPROP;
832 return S_OK;
833 }
834
835 if(!strcmp_wa(bstrName, "dispUnk")) {
836 *pid = DISPID_GLOBAL_DISPUNK;
837 return S_OK;
838 }
839
840 if(!strcmp_wa(bstrName, "testRes")) {
841 *pid = DISPID_GLOBAL_TESTRES;
842 return S_OK;
843 }
844
845 if(!strcmp_wa(bstrName, "testNoRes")) {
846 *pid = DISPID_GLOBAL_TESTNORES;
847 return S_OK;
848 }
849
850 if(!strcmp_wa(bstrName, "dispexFunc")) {
851 *pid = DISPID_GLOBAL_DISPEXFUNC;
852 return S_OK;
853 }
854
855 if(!strcmp_wa(bstrName, "getScriptState")) {
856 *pid = DISPID_GLOBAL_GETSCRIPTSTATE;
857 return S_OK;
858 }
859
860 if(!strcmp_wa(bstrName, "bindEventHandler")) {
861 *pid = DISPID_GLOBAL_BINDEVENTHANDLER;
862 return S_OK;
863 }
864
865 if(strict_dispid_check && strcmp_wa(bstrName, "t"))
866 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
867 return DISP_E_UNKNOWNNAME;
868 }
869
870 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
871 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
872 {
873 ok(pspCaller != NULL, "pspCaller = NULL\n");
874
875 switch(id) {
876 case DISPID_GLOBAL_OK:
877 ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
878 ok(pdp != NULL, "pdp == NULL\n");
879 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
880 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
881 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
882 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
883 if(wFlags & INVOKE_PROPERTYGET)
884 ok(pvarRes != NULL, "pvarRes == NULL\n");
885 else
886 ok(!pvarRes, "pvarRes != NULL\n");
887 ok(pei != NULL, "pei == NULL\n");
888
889 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
890 ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
891 ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
892
893 return S_OK;
894
895 case DISPID_GLOBAL_TRACE:
896 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
897 ok(pdp != NULL, "pdp == NULL\n");
898 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
899 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
900 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
901 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
902 ok(!pvarRes, "pvarRes != NULL\n");
903 ok(pei != NULL, "pei == NULL\n");
904
905 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
906 if(V_VT(pdp->rgvarg) == VT_BSTR)
907 trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
908
909 return S_OK;
910
911 case DISPID_GLOBAL_REPORTSUCCESS:
912 CHECK_EXPECT(global_success_i);
913
914 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
915 ok(pdp != NULL, "pdp == NULL\n");
916 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
917 ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
918 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
919 if(!testing_expr)
920 ok(!pvarRes, "pvarRes != NULL\n");
921 ok(pei != NULL, "pei == NULL\n");
922
923 return S_OK;
924
925 case DISPID_GLOBAL_TESTPROPGET:
926 CHECK_EXPECT(global_propget_i);
927
928 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
929 ok(pdp != NULL, "pdp == NULL\n");
930 ok(!pdp->rgvarg, "rgvarg != NULL\n");
931 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
932 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
933 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
934 ok(pvarRes != NULL, "pvarRes == NULL\n");
935 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
936 ok(pei != NULL, "pei == NULL\n");
937
938 V_VT(pvarRes) = VT_I4;
939 V_I4(pvarRes) = 1;
940
941 return S_OK;
942
943 case DISPID_GLOBAL_TESTPROPPUT:
944 CHECK_EXPECT(global_propput_i);
945
946 ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
947 ok(pdp != NULL, "pdp == NULL\n");
948 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
949 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
950 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
951 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
952 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
953 ok(!pvarRes, "pvarRes != NULL\n");
954
955 ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
956 ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
957 return S_OK;
958
959 case DISPID_GLOBAL_TESTPROPPUTREF:
960 CHECK_EXPECT(global_propputref_i);
961
962 ok(wFlags == (INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF), "wFlags = %x\n", wFlags);
963 ok(pdp != NULL, "pdp == NULL\n");
964 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
965 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
966 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
967 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
968 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
969 ok(!pvarRes, "pvarRes != NULL\n");
970
971 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
972 return S_OK;
973
974 case DISPID_GLOBAL_GETVT:
975 ok(pdp != NULL, "pdp == NULL\n");
976 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
977 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
978 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
979 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
980 ok(pvarRes != NULL, "pvarRes == NULL\n");
981 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
982 ok(pei != NULL, "pei == NULL\n");
983
984 V_VT(pvarRes) = VT_BSTR;
985 switch(V_VT(pdp->rgvarg)) {
986 case VT_EMPTY:
987 V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
988 break;
989 case VT_NULL:
990 V_BSTR(pvarRes) = a2bstr("VT_NULL");
991 break;
992 case VT_I4:
993 V_BSTR(pvarRes) = a2bstr("VT_I4");
994 break;
995 case VT_R8:
996 V_BSTR(pvarRes) = a2bstr("VT_R8");
997 break;
998 case VT_BSTR:
999 V_BSTR(pvarRes) = a2bstr("VT_BSTR");
1000 break;
1001 case VT_DISPATCH:
1002 V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
1003 break;
1004 case VT_BOOL:
1005 V_BSTR(pvarRes) = a2bstr("VT_BOOL");
1006 break;
1007 case VT_ARRAY|VT_VARIANT:
1008 V_BSTR(pvarRes) = a2bstr("VT_ARRAY|VT_VARIANT");
1009 break;
1010 default:
1011 ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
1012 return E_FAIL;
1013 }
1014
1015 return S_OK;
1016
1017 case DISPID_GLOBAL_TESTRES:
1018 ok(pvarRes != NULL, "pvarRes = NULL\n");
1019 if(pvarRes) {
1020 V_VT(pvarRes) = VT_BOOL;
1021 V_BOOL(pvarRes) = VARIANT_TRUE;
1022 }
1023 return S_OK;
1024
1025 case DISPID_GLOBAL_TESTNORES:
1026 ok(!pvarRes, "pvarRes != NULL\n");
1027 if(pvarRes)
1028 V_VT(pvarRes) = VT_NULL;
1029 return S_OK;
1030
1031 case DISPID_GLOBAL_TESTOBJ:
1032 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1033 ok(pdp != NULL, "pdp == NULL\n");
1034 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1035 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1036 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1037 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1038 ok(pvarRes != NULL, "pvarRes == NULL\n");
1039 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1040 ok(pei != NULL, "pei == NULL\n");
1041
1042 V_VT(pvarRes) = VT_DISPATCH;
1043 V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
1044 return S_OK;
1045
1046 case DISPID_GLOBAL_PUREDISP:
1047 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1048 ok(pdp != NULL, "pdp == NULL\n");
1049 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1050 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1051 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1052 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1053 ok(pvarRes != NULL, "pvarRes == NULL\n");
1054 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1055 ok(pei != NULL, "pei == NULL\n");
1056
1057 V_VT(pvarRes) = VT_DISPATCH;
1058 V_DISPATCH(pvarRes) = (IDispatch*)&pureDisp;
1059 return S_OK;
1060
1061 case DISPID_GLOBAL_DISPEXFUNC:
1062 V_VT(pvarRes) = VT_DISPATCH;
1063 V_DISPATCH(pvarRes) = (IDispatch*)&dispexFunc;
1064 return S_OK;
1065
1066 case DISPID_GLOBAL_GETNULLBSTR:
1067 if(pvarRes) {
1068 V_VT(pvarRes) = VT_BSTR;
1069 V_BSTR(pvarRes) = NULL;
1070 }
1071 return S_OK;
1072
1073 case DISPID_GLOBAL_ISNULLBSTR:
1074 ok(pdp != NULL, "pdp == NULL\n");
1075 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1076 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1077 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1078 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1079 ok(pvarRes != NULL, "pvarRes == NULL\n");
1080 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1081 ok(pei != NULL, "pei == NULL\n");
1082 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1083
1084 V_VT(pvarRes) = VT_BOOL;
1085 V_BOOL(pvarRes) = V_BSTR(pdp->rgvarg) ? VARIANT_FALSE : VARIANT_TRUE;
1086 return S_OK;
1087
1088 case DISPID_GLOBAL_ISWIN64:
1089 if(pvarRes) {
1090 V_VT(pvarRes) = VT_BOOL;
1091 V_BOOL(pvarRes) = sizeof(void*) == 8 ? VARIANT_TRUE : VARIANT_FALSE;
1092 }
1093 return S_OK;
1094
1095 case DISPID_GLOBAL_NULL_DISP:
1096 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1097 ok(pdp != NULL, "pdp == NULL\n");
1098 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1099 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1100 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1101 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1102 ok(pvarRes != NULL, "pvarRes == NULL\n");
1103 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1104 ok(pei != NULL, "pei == NULL\n");
1105
1106 V_VT(pvarRes) = VT_DISPATCH;
1107 V_DISPATCH(pvarRes) = NULL;
1108 return S_OK;
1109
1110 case DISPID_GLOBAL_TESTTHIS:
1111 ok(pdp != NULL, "pdp == NULL\n");
1112 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1113 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1114 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1115 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1116 ok(pvarRes == NULL, "pvarRes != NULL\n");
1117 ok(pei != NULL, "pei == NULL\n");
1118
1119 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1120 ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)iface, "disp != iface\n");
1121
1122 return S_OK;
1123
1124 case DISPID_GLOBAL_TESTTHIS2:
1125 ok(pdp != NULL, "pdp == NULL\n");
1126 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1127 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1128 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1129 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1130 ok(pvarRes == NULL, "pvarRes != NULL\n");
1131 ok(pei != NULL, "pei == NULL\n");
1132
1133 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(arg) = %d\n", V_VT(pdp->rgvarg));
1134 ok(V_DISPATCH(pdp->rgvarg) != (IDispatch*)iface, "disp == iface\n");
1135 ok(V_DISPATCH(pdp->rgvarg) == script_disp, "disp != script_disp\n");
1136
1137 return S_OK;
1138
1139 case DISPID_GLOBAL_INVOKEVERSION:
1140 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
1141 ok(pdp != NULL, "pdp == NULL\n");
1142 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1143 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1144 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1145 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1146 ok(pvarRes != NULL, "pvarRes == NULL\n");
1147 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1148 ok(pei != NULL, "pei == NULL\n");
1149
1150 V_VT(pvarRes) = VT_I4;
1151 V_I4(pvarRes) = invoke_version;
1152
1153 return S_OK;
1154
1155 case DISPID_GLOBAL_CREATEARRAY: {
1156 SAFEARRAYBOUND bound[2];
1157 VARIANT *data;
1158 int i,j;
1159
1160 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1161 ok(pdp != NULL, "pdp == NULL\n");
1162 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1163 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1164 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1165 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1166 ok(pvarRes != NULL, "pvarRes == NULL\n");
1167 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1168 ok(pei != NULL, "pei == NULL\n");
1169
1170 bound[0].lLbound = 0;
1171 bound[0].cElements = 5;
1172 bound[1].lLbound = 2;
1173 bound[1].cElements = 2;
1174
1175 V_VT(pvarRes) = VT_ARRAY|VT_VARIANT;
1176 V_ARRAY(pvarRes) = SafeArrayCreate(VT_VARIANT, 2, bound);
1177
1178 SafeArrayAccessData(V_ARRAY(pvarRes), (void**)&data);
1179 for(i=0; i<5; i++) {
1180 for(j=2; j<4; j++) {
1181 V_VT(data) = VT_I4;
1182 V_I4(data) = i*10+j;
1183 data++;
1184 }
1185 }
1186 SafeArrayUnaccessData(V_ARRAY(pvarRes));
1187
1188 return S_OK;
1189 }
1190
1191 case DISPID_GLOBAL_PROPGETFUNC:
1192 switch(wFlags) {
1193 case INVOKE_FUNC:
1194 CHECK_EXPECT(invoke_func);
1195 break;
1196 case INVOKE_FUNC|INVOKE_PROPERTYGET:
1197 ok(pdp->cArgs != 0, "pdp->cArgs = %d\n", pdp->cArgs);
1198 ok(pvarRes != NULL, "pdp->pvarRes == NULL\n");
1199 break;
1200 default:
1201 ok(0, "invalid flag (%x)\n", wFlags);
1202 }
1203
1204 ok(pdp != NULL, "pdp == NULL\n");
1205 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1206 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1207 ok(pei != NULL, "pei == NULL\n");
1208
1209 if(pvarRes) {
1210 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1211 V_VT(pvarRes) = VT_I4;
1212 V_I4(pvarRes) = pdp->cArgs;
1213 }
1214
1215 return S_OK;
1216
1217 case DISPID_GLOBAL_GETSCRIPTSTATE: {
1218 SCRIPTSTATE state;
1219 HRESULT hres;
1220
1221 hres = IActiveScript_GetScriptState(script_engine, &state);
1222 ok(hres == S_OK, "GetScriptState failed: %08x\n", hres);
1223
1224 V_VT(pvarRes) = VT_I4;
1225 V_I4(pvarRes) = state;
1226 return S_OK;
1227 }
1228
1229 case DISPID_GLOBAL_BINDEVENTHANDLER:
1230 V_VT(pvarRes) = VT_DISPATCH;
1231 V_DISPATCH(pvarRes) = (IDispatch*)&bindEventHandlerDisp;
1232 return S_OK;
1233
1234 case DISPID_GLOBAL_PROPARGPUT:
1235 CHECK_EXPECT(global_propargput_i);
1236 ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
1237 ok(pdp != NULL, "pdp == NULL\n");
1238 ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
1239 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1240 ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
1241 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1242 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1243 ok(!pvarRes, "pvarRes != NULL\n");
1244 ok(pei != NULL, "pei == NULL\n");
1245
1246 ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1247 ok(V_I4(pdp->rgvarg) == 2, "V_I4(pdp->rgvarg) = %d\n", V_I4(pdp->rgvarg));
1248
1249 ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
1250 ok(V_I4(pdp->rgvarg+1) == 1, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
1251
1252 ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
1253 ok(V_I4(pdp->rgvarg+2) == 0, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
1254 return S_OK;
1255
1256 case DISPID_GLOBAL_OBJECT_FLAG: {
1257 IDispatchEx *dispex;
1258 BSTR str;
1259 HRESULT hres;
1260
1261 hres = IDispatch_QueryInterface(script_disp, &IID_IDispatchEx, (void**)&dispex);
1262 ok(hres == S_OK, "hres = %x\n", hres);
1263
1264 str = a2bstr("Object");
1265 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
1266 SysFreeString(str);
1267 ok(hres == S_OK, "hres = %x\n", hres);
1268
1269 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, NULL, pei, pspCaller);
1270 ok(hres == S_OK, "hres = %x\n", hres);
1271
1272 V_VT(pvarRes) = VT_EMPTY;
1273 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, pvarRes, pei, pspCaller);
1274 ok(hres == S_OK, "hres = %x\n", hres);
1275 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1276 VariantClear(pvarRes);
1277
1278 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD|DISPATCH_PROPERTYGET, pdp, NULL, pei, pspCaller);
1279 ok(hres == S_OK, "hres = %x\n", hres);
1280
1281 V_VT(pvarRes) = VT_EMPTY;
1282 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, pvarRes, pei, pspCaller);
1283 ok(hres == S_OK, "hres = %x\n", hres);
1284 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1285 VariantClear(pvarRes);
1286
1287 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, NULL, pei, pspCaller);
1288 ok(hres == S_OK, "hres = %x\n", hres);
1289
1290 V_VT(pvarRes) = VT_EMPTY;
1291 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT|DISPATCH_PROPERTYGET, pdp, pvarRes, pei, pspCaller);
1292 ok(hres == E_INVALIDARG, "hres = %x\n", hres);
1293
1294 V_VT(pvarRes) = VT_EMPTY;
1295 hres = IDispatchEx_InvokeEx(dispex, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1296 ok(hres == S_OK, "hres = %x\n", hres);
1297 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1298 IDispatchEx_Release(dispex);
1299 return S_OK;
1300 }
1301 case DISPID_GLOBAL_SHORTPROP:
1302 case DISPID_GLOBAL_GETSHORT:
1303 V_VT(pvarRes) = VT_I2;
1304 V_I2(pvarRes) = 10;
1305 return S_OK;
1306
1307 case DISPID_GLOBAL_INTPROP:
1308 V_VT(pvarRes) = VT_INT;
1309 V_INT(pvarRes) = 22;
1310 return S_OK;
1311
1312 case DISPID_GLOBAL_DISPUNK:
1313 V_VT(pvarRes) = VT_UNKNOWN;
1314 V_UNKNOWN(pvarRes) = (IUnknown*)&testObj;
1315 return S_OK;
1316
1317 case DISPID_GLOBAL_TESTARGTYPES: {
1318 VARIANT args[8], v;
1319 DISPPARAMS dp = {args, NULL, sizeof(args)/sizeof(*args), 0};
1320 HRESULT hres;
1321
1322 CHECK_EXPECT(global_testargtypes_i);
1323 ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
1324 ok(pdp != NULL, "pdp == NULL\n");
1325 ok(pdp->rgvarg != NULL, "rgvarg != NULL\n");
1326 ok(pdp->cArgs == 6, "cArgs = %d\n", pdp->cArgs);
1327 ok(!pvarRes, "pvarRes != NULL\n");
1328
1329 ok(V_VT(pdp->rgvarg+1) == VT_I4, "V_VT(pdp->rgvarg+1) = %d\n", V_VT(pdp->rgvarg+1));
1330 ok(V_I4(pdp->rgvarg+1) == 10, "V_I4(pdp->rgvarg+1) = %d\n", V_I4(pdp->rgvarg+1));
1331
1332 ok(V_VT(pdp->rgvarg+2) == VT_I4, "V_VT(pdp->rgvarg+2) = %d\n", V_VT(pdp->rgvarg+2));
1333 ok(V_I4(pdp->rgvarg+2) == 10, "V_I4(pdp->rgvarg+2) = %d\n", V_I4(pdp->rgvarg+2));
1334
1335 ok(V_VT(pdp->rgvarg+3) == VT_I4, "V_VT(pdp->rgvarg+3) = %d\n", V_VT(pdp->rgvarg+3));
1336 ok(V_I4(pdp->rgvarg+3) == 22, "V_I4(pdp->rgvarg+3) = %d\n", V_I4(pdp->rgvarg+3));
1337
1338 ok(V_VT(pdp->rgvarg+4) == VT_I4, "V_VT(pdp->rgvarg+4) = %d\n", V_VT(pdp->rgvarg+4));
1339 ok(V_I4(pdp->rgvarg+4) == 22, "V_I4(pdp->rgvarg+4) = %d\n", V_I4(pdp->rgvarg+4));
1340
1341 ok(V_VT(pdp->rgvarg+5) == VT_DISPATCH, "V_VT(pdp->rgvarg+5) = %d\n", V_VT(pdp->rgvarg+5));
1342 ok(V_DISPATCH(pdp->rgvarg+5) == (IDispatch*)&testObj, "V_DISPATCH(pdp->rgvarg+5) != testObj\n");
1343
1344 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1345
1346 V_VT(args) = VT_I2;
1347 V_I2(args) = 2;
1348 V_VT(args+1) = VT_INT;
1349 V_INT(args+1) = 22;
1350 V_VT(args+2) = VT_UNKNOWN;
1351 V_UNKNOWN(args+2) = (IUnknown*)&testObj;
1352 V_VT(args+3) = VT_UNKNOWN;
1353 V_UNKNOWN(args+3) = NULL;
1354 V_VT(args+4) = VT_UI4;
1355 V_UI4(args+4) = 0xffffffff;
1356 V_VT(args+5) = VT_BYREF|VT_VARIANT;
1357 V_VARIANTREF(args+5) = &v;
1358 V_VT(args+6) = VT_R4;
1359 V_R4(args+6) = 0.5;
1360 V_VT(args+7) = VT_UI2;
1361 V_R4(args+7) = 3;
1362 V_VT(&v) = VT_I4;
1363 V_I4(&v) = 2;
1364 hres = IDispatch_Invoke(V_DISPATCH(pdp->rgvarg), DISPID_VALUE, &IID_NULL, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
1365 ok(hres == S_OK, "Invoke failed: %08x\n", hres);
1366
1367 return S_OK;
1368 }
1369 }
1370
1371 ok(0, "unexpected call %x\n", id);
1372 return DISP_E_MEMBERNOTFOUND;
1373 }
1374
1375 static HRESULT WINAPI Global_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1376 {
1377 switch(id) {
1378 case DISPID_GLOBAL_TESTPROPDELETE:
1379 CHECK_EXPECT(DeleteMemberByDispID);
1380 return S_OK;
1381 case DISPID_GLOBAL_TESTNOPROPDELETE:
1382 CHECK_EXPECT(DeleteMemberByDispID_false);
1383 return S_FALSE;
1384 case DISPID_GLOBAL_TESTPROPDELETEERROR:
1385 CHECK_EXPECT(DeleteMemberByDispID_error);
1386 return E_FAIL;
1387 default:
1388 ok(0, "id = %d\n", id);
1389 }
1390
1391 return E_FAIL;
1392 }
1393
1394 static IDispatchExVtbl GlobalVtbl = {
1395 DispatchEx_QueryInterface,
1396 DispatchEx_AddRef,
1397 DispatchEx_Release,
1398 DispatchEx_GetTypeInfoCount,
1399 DispatchEx_GetTypeInfo,
1400 DispatchEx_GetIDsOfNames,
1401 DispatchEx_Invoke,
1402 Global_GetDispID,
1403 Global_InvokeEx,
1404 DispatchEx_DeleteMemberByName,
1405 Global_DeleteMemberByDispID,
1406 DispatchEx_GetMemberProperties,
1407 DispatchEx_GetMemberName,
1408 DispatchEx_GetNextDispID,
1409 DispatchEx_GetNameSpaceParent
1410 };
1411
1412 static IDispatchEx Global = { &GlobalVtbl };
1413
1414 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
1415 {
1416 *ppv = NULL;
1417
1418 if(IsEqualGUID(&IID_IUnknown, riid))
1419 *ppv = iface;
1420 else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
1421 *ppv = iface;
1422 else
1423 return E_NOINTERFACE;
1424
1425 IUnknown_AddRef((IUnknown*)*ppv);
1426 return S_OK;
1427 }
1428
1429 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
1430 {
1431 return 2;
1432 }
1433
1434 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
1435 {
1436 return 1;
1437 }
1438
1439 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
1440 {
1441 *plcid = GetUserDefaultLCID();
1442 return S_OK;
1443 }
1444
1445 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
1446 DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
1447 {
1448 ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
1449 ok(!ppti, "ppti != NULL\n");
1450
1451 if(!strcmp_wa(pstrName, test_valA))
1452 CHECK_EXPECT(GetItemInfo_testVal);
1453 else if(strcmp_wa(pstrName, testA))
1454 ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
1455
1456 *ppiunkItem = (IUnknown*)&Global;
1457 return S_OK;
1458 }
1459
1460 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
1461 {
1462 return E_NOTIMPL;
1463 }
1464
1465 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
1466 const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
1467 {
1468 return E_NOTIMPL;
1469 }
1470
1471 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
1472 {
1473 return E_NOTIMPL;
1474 }
1475
1476 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1477 {
1478 return E_NOTIMPL;
1479 }
1480
1481 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
1482 {
1483 return E_NOTIMPL;
1484 }
1485
1486 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
1487 {
1488 return E_NOTIMPL;
1489 }
1490
1491 #undef ACTSCPSITE_THIS
1492
1493 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
1494 ActiveScriptSite_QueryInterface,
1495 ActiveScriptSite_AddRef,
1496 ActiveScriptSite_Release,
1497 ActiveScriptSite_GetLCID,
1498 ActiveScriptSite_GetItemInfo,
1499 ActiveScriptSite_GetDocVersionString,
1500 ActiveScriptSite_OnScriptTerminate,
1501 ActiveScriptSite_OnStateChange,
1502 ActiveScriptSite_OnScriptError,
1503 ActiveScriptSite_OnEnterScript,
1504 ActiveScriptSite_OnLeaveScript
1505 };
1506
1507 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
1508
1509 static HRESULT WINAPI ActiveScriptSite_OnScriptError_CheckError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1510 {
1511 ok(pscripterror != NULL, "ActiveScriptSite_OnScriptError -- expected pscripterror to be set, got NULL\n");
1512
1513 script_error = pscripterror;
1514 IActiveScriptError_AddRef(script_error);
1515
1516 CHECK_EXPECT(ActiveScriptSite_OnScriptError);
1517
1518 return S_OK;
1519 }
1520
1521 static const IActiveScriptSiteVtbl ActiveScriptSite_CheckErrorVtbl = {
1522 ActiveScriptSite_QueryInterface,
1523 ActiveScriptSite_AddRef,
1524 ActiveScriptSite_Release,
1525 ActiveScriptSite_GetLCID,
1526 ActiveScriptSite_GetItemInfo,
1527 ActiveScriptSite_GetDocVersionString,
1528 ActiveScriptSite_OnScriptTerminate,
1529 ActiveScriptSite_OnStateChange,
1530 ActiveScriptSite_OnScriptError_CheckError,
1531 ActiveScriptSite_OnEnterScript,
1532 ActiveScriptSite_OnLeaveScript
1533 };
1534
1535 static IActiveScriptSite ActiveScriptSite_CheckError = { &ActiveScriptSite_CheckErrorVtbl };
1536
1537 static HRESULT set_script_prop(IActiveScript *engine, DWORD property, VARIANT *val)
1538 {
1539 IActiveScriptProperty *script_prop;
1540 HRESULT hres;
1541
1542 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptProperty,
1543 (void**)&script_prop);
1544 ok(hres == S_OK, "Could not get IActiveScriptProperty iface: %08x\n", hres);
1545
1546 hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
1547 IActiveScriptProperty_Release(script_prop);
1548
1549 return hres;
1550 }
1551
1552 static IActiveScript *create_script(void)
1553 {
1554 IActiveScript *script;
1555 VARIANT v;
1556 HRESULT hres;
1557
1558 hres = CoCreateInstance(engine_clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1559 &IID_IActiveScript, (void**)&script);
1560 ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1561
1562 V_VT(&v) = VT_I4;
1563 V_I4(&v) = invoke_version;
1564 hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
1565 ok(hres == S_OK || broken(hres == E_NOTIMPL), "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
1566 if(invoke_version && FAILED(hres)) {
1567 IActiveScript_Release(script);
1568 return NULL;
1569 }
1570
1571 return script;
1572 }
1573
1574 static HRESULT parse_script(DWORD flags, BSTR script_str)
1575 {
1576 IActiveScriptParse *parser;
1577 IActiveScript *engine;
1578 HRESULT hres;
1579
1580 engine = create_script();
1581 if(!engine)
1582 return S_OK;
1583
1584 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1585 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1586 if (FAILED(hres))
1587 {
1588 IActiveScript_Release(engine);
1589 return hres;
1590 }
1591
1592 hres = IActiveScriptParse_InitNew(parser);
1593 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1594
1595 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1596 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1597
1598 hres = IActiveScript_AddNamedItem(engine, testW,
1599 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1600 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1601
1602 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1603 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1604
1605 hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1606 ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1607 ok(script_disp != NULL, "script_disp == NULL\n");
1608 ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1609
1610 hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1611
1612 IDispatch_Release(script_disp);
1613 IActiveScript_Release(engine);
1614 IActiveScriptParse_Release(parser);
1615
1616 return hres;
1617 }
1618
1619 static HRESULT invoke_procedure(const char *argsa, const char *sourcea, DISPPARAMS *dp)
1620 {
1621 IActiveScriptParseProcedure2 *parse_proc;
1622 IActiveScriptParse *parser;
1623 IActiveScript *engine;
1624 IDispatchEx *dispex;
1625 EXCEPINFO ei = {0};
1626 BSTR source, args;
1627 IDispatch *disp;
1628 VARIANT res;
1629 HRESULT hres;
1630
1631 engine = create_script();
1632 if(!engine)
1633 return S_OK;
1634
1635 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1636 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1637
1638 hres = IActiveScriptParse_InitNew(parser);
1639 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1640
1641 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1642 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1643
1644 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1645 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1646
1647 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
1648 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1649
1650 source = a2bstr(sourcea);
1651 args = argsa ? a2bstr(argsa) : NULL;
1652 hres = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, source, args, emptyW, NULL, NULL, NULL, 0, 0,
1653 SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1654 ok(hres == S_OK, "ParseProcedureText failed: %08x\n", hres);
1655 SysFreeString(source);
1656 SysFreeString(args);
1657
1658 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1659 ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
1660 IDispatch_Release(disp);
1661
1662 V_VT(&res) = VT_EMPTY;
1663 hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, 0, DISPATCH_METHOD, dp, &res, &ei, NULL);
1664 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
1665 ok(V_VT(&res) == VT_BOOL && V_BOOL(&res), "InvokeEx returned vt %d (%x)\n", V_VT(&res), V_I4(&res));
1666 IDispatchEx_Release(dispex);
1667
1668 IActiveScriptParseProcedure2_Release(parse_proc);
1669 IActiveScript_Release(engine);
1670 IActiveScriptParse_Release(parser);
1671
1672 return hres;
1673 }
1674
1675 static HRESULT parse_htmlscript(BSTR script_str)
1676 {
1677 IActiveScriptParse *parser;
1678 IActiveScript *engine;
1679 HRESULT hres;
1680 BSTR tmp = a2bstr("</SCRIPT>");
1681
1682 engine = create_script();
1683 if(!engine)
1684 return E_FAIL;
1685
1686 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1687 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1688 if (FAILED(hres))
1689 {
1690 IActiveScript_Release(engine);
1691 return E_FAIL;
1692 }
1693
1694 hres = IActiveScriptParse_InitNew(parser);
1695 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1696
1697 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1698 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1699
1700 hres = IActiveScript_AddNamedItem(engine, testW,
1701 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1702 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1703
1704 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1705 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1706
1707 hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, tmp, 0, 0, 0, NULL, NULL);
1708
1709 IActiveScript_Release(engine);
1710 IActiveScriptParse_Release(parser);
1711 SysFreeString(tmp);
1712
1713 return hres;
1714 }
1715
1716 static void test_IActiveScriptError(IActiveScriptError *error, SCODE errorcode, ULONG line, LONG pos, BSTR script_source, BSTR description, BSTR line_text)
1717 {
1718 HRESULT hres;
1719 DWORD source_context;
1720 ULONG line_number;
1721 LONG char_position;
1722 BSTR linetext;
1723 EXCEPINFO excep;
1724
1725 /* IActiveScriptError_GetSourcePosition */
1726
1727 hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, NULL);
1728 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1729
1730 source_context = 0xdeadbeef;
1731 hres = IActiveScriptError_GetSourcePosition(error, &source_context, NULL, NULL);
1732 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1733 ok(source_context == 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context);
1734
1735 line_number = 0xdeadbeef;
1736 hres = IActiveScriptError_GetSourcePosition(error, NULL, &line_number, NULL);
1737 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1738 ok(line_number == line, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line, line_number);
1739
1740 char_position = 0xdeadbeef;
1741 hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, &char_position);
1742 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1743 ok(char_position == pos, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos, char_position);
1744
1745 /* IActiveScriptError_GetSourceLineText */
1746
1747 hres = IActiveScriptError_GetSourceLineText(error, NULL);
1748 ok(hres == E_POINTER, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres);
1749
1750 linetext = NULL;
1751 hres = IActiveScriptError_GetSourceLineText(error, &linetext);
1752 if (line_text) {
1753 ok(hres == S_OK, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1754 ok(linetext != NULL && !lstrcmpW(linetext, line_text),
1755 "IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text), wine_dbgstr_w(linetext));
1756 } else {
1757 ok(hres == E_FAIL, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1758 ok(linetext == NULL,
1759 "IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext));
1760 }
1761 SysFreeString(linetext);
1762
1763 /* IActiveScriptError_GetExceptionInfo */
1764
1765 hres = IActiveScriptError_GetExceptionInfo(error, NULL);
1766 ok(hres == E_POINTER, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres);
1767
1768 excep.wCode = 0xdead;
1769 excep.wReserved = 0xdead;
1770 excep.bstrSource = (BSTR)0xdeadbeef;
1771 excep.bstrDescription = (BSTR)0xdeadbeef;
1772 excep.bstrHelpFile = (BSTR)0xdeadbeef;
1773 excep.dwHelpContext = 0xdeadbeef;
1774 excep.pvReserved = (void *)0xdeadbeef;
1775 excep.pfnDeferredFillIn = (void *)0xdeadbeef;
1776 excep.scode = 0xdeadbeef;
1777
1778 hres = IActiveScriptError_GetExceptionInfo(error, &excep);
1779 ok(hres == S_OK, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres);
1780
1781 ok(excep.wCode == 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep.wCode);
1782 ok(excep.wReserved == 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep.wReserved);
1783 if (!is_lang_english())
1784 skip("Non-english UI (test with hardcoded strings)\n");
1785 else {
1786 ok(excep.bstrSource != NULL && !lstrcmpW(excep.bstrSource, script_source),
1787 "IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
1788 wine_dbgstr_w(script_source), wine_dbgstr_w(excep.bstrSource));
1789 ok(excep.bstrDescription != NULL && !lstrcmpW(excep.bstrDescription, description),
1790 "IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep.bstrDescription));
1791 }
1792 ok(excep.bstrHelpFile == NULL,
1793 "IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep.bstrHelpFile));
1794 ok(excep.dwHelpContext == 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep.dwHelpContext);
1795 ok(excep.pvReserved == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep.pvReserved);
1796 ok(excep.pfnDeferredFillIn == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep.pfnDeferredFillIn);
1797 ok(excep.scode == errorcode, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode, excep.scode);
1798
1799 SysFreeString(excep.bstrSource);
1800 SysFreeString(excep.bstrDescription);
1801 SysFreeString(excep.bstrHelpFile);
1802 }
1803
1804 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)
1805 {
1806 IActiveScriptParse *parser;
1807 IActiveScript *engine;
1808 HRESULT hres;
1809
1810 engine = create_script();
1811 if(!engine)
1812 return;
1813
1814 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1815 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1816 if (FAILED(hres))
1817 {
1818 IActiveScript_Release(engine);
1819 return;
1820 }
1821
1822 hres = IActiveScriptParse_InitNew(parser);
1823 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1824
1825 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
1826 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1827
1828 hres = IActiveScript_AddNamedItem(engine, testW,
1829 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1830 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1831
1832 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1833 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1834
1835 hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1836 ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1837 ok(script_disp != NULL, "script_disp == NULL\n");
1838 ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1839
1840 script_error = NULL;
1841 SET_EXPECT(ActiveScriptSite_OnScriptError);
1842 hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1843 todo_wine ok(hres == 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres);
1844 todo_wine CHECK_CALLED(ActiveScriptSite_OnScriptError);
1845
1846 if (script_error)
1847 {
1848 test_IActiveScriptError(script_error, errorcode, line, pos, script_source, description, line_text);
1849
1850 IActiveScriptError_Release(script_error);
1851 }
1852
1853 IDispatch_Release(script_disp);
1854 IActiveScript_Release(engine);
1855 IActiveScriptParse_Release(parser);
1856 }
1857
1858 static void parse_script_af(DWORD flags, const char *src)
1859 {
1860 BSTR tmp;
1861 HRESULT hres;
1862
1863 tmp = a2bstr(src);
1864 hres = parse_script(flags, tmp);
1865 SysFreeString(tmp);
1866 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1867 }
1868
1869 static void parse_script_a(const char *src)
1870 {
1871 parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1872 }
1873
1874 static void parse_script_ae(const char *src, HRESULT exhres)
1875 {
1876 BSTR tmp;
1877 HRESULT hres;
1878
1879 tmp = a2bstr(src);
1880 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp);
1881 SysFreeString(tmp);
1882 ok(hres == exhres, "parse_script failed: %08x, expected %08x\n", hres, exhres);
1883 }
1884
1885 static void parse_script_with_error_a(const char *src, SCODE errorcode, ULONG line, LONG pos, LPCSTR source, LPCSTR desc, LPCSTR linetext)
1886 {
1887 BSTR tmp, script_source, description, line_text;
1888
1889 tmp = a2bstr(src);
1890 script_source = a2bstr(source);
1891 description = a2bstr(desc);
1892 line_text = a2bstr(linetext);
1893
1894 parse_script_with_error(SCRIPTITEM_GLOBALMEMBERS, tmp, errorcode, line, pos, script_source, description, line_text);
1895
1896 SysFreeString(line_text);
1897 SysFreeString(description);
1898 SysFreeString(script_source);
1899 SysFreeString(tmp);
1900 }
1901
1902 static HRESULT parse_htmlscript_a(const char *src)
1903 {
1904 HRESULT hres;
1905 BSTR tmp = a2bstr(src);
1906 hres = parse_htmlscript(tmp);
1907 SysFreeString(tmp);
1908
1909 return hres;
1910 }
1911
1912 static BSTR get_script_from_file(const char *filename)
1913 {
1914 DWORD size, len;
1915 HANDLE file, map;
1916 const char *file_map;
1917 BSTR ret;
1918
1919 file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
1920 if(file == INVALID_HANDLE_VALUE) {
1921 trace("Could not open file: %u\n", GetLastError());
1922 return NULL;
1923 }
1924
1925 size = GetFileSize(file, NULL);
1926
1927 map = CreateFileMappingW(file, NULL, PAGE_READONLY, 0, 0, NULL);
1928 CloseHandle(file);
1929 if(map == INVALID_HANDLE_VALUE) {
1930 trace("Could not create file mapping: %u\n", GetLastError());
1931 return NULL;
1932 }
1933
1934 file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
1935 CloseHandle(map);
1936 if(!file_map) {
1937 trace("MapViewOfFile failed: %u\n", GetLastError());
1938 return NULL;
1939 }
1940
1941 len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
1942 ret = SysAllocStringLen(NULL, len);
1943 MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
1944
1945 UnmapViewOfFile(file_map);
1946
1947 return ret;
1948 }
1949
1950 static void run_from_file(const char *filename)
1951 {
1952 BSTR script_str;
1953 HRESULT hres;
1954
1955 script_str = get_script_from_file(filename);
1956 if(!script_str)
1957 return;
1958
1959 strict_dispid_check = FALSE;
1960 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str);
1961 SysFreeString(script_str);
1962 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1963 }
1964
1965 static BSTR load_res(const char *name)
1966 {
1967 const char *data;
1968 DWORD size, len;
1969 BSTR str;
1970 HRSRC src;
1971
1972 strict_dispid_check = FALSE;
1973 test_name = name;
1974
1975 src = FindResourceA(NULL, name, (LPCSTR)40);
1976 ok(src != NULL, "Could not find resource %s\n", name);
1977
1978 size = SizeofResource(NULL, src);
1979 data = LoadResource(NULL, src);
1980
1981 len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
1982 str = SysAllocStringLen(NULL, len);
1983 MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
1984
1985 return str;
1986 }
1987
1988 static void run_from_res(const char *name)
1989 {
1990 BSTR str;
1991 HRESULT hres;
1992
1993 str = load_res(name);
1994
1995 SET_EXPECT(global_success_d);
1996 SET_EXPECT(global_success_i);
1997 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str);
1998 CHECK_CALLED(global_success_d);
1999 CHECK_CALLED(global_success_i);
2000
2001 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
2002 SysFreeString(str);
2003 }
2004
2005 static void test_isvisible(BOOL global_members)
2006 {
2007 IActiveScriptParse *parser;
2008 IActiveScript *engine;
2009 HRESULT hres;
2010
2011 static const WCHAR script_textW[] =
2012 {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
2013
2014 engine = create_script();
2015 if(!engine)
2016 return;
2017
2018 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2019 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2020 if (FAILED(hres))
2021 {
2022 IActiveScript_Release(engine);
2023 return;
2024 }
2025
2026 hres = IActiveScriptParse_InitNew(parser);
2027 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2028
2029 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2030 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2031
2032 if(global_members)
2033 SET_EXPECT(GetItemInfo_testVal);
2034 hres = IActiveScript_AddNamedItem(engine, test_valW,
2035 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|
2036 (global_members ? SCRIPTITEM_GLOBALMEMBERS : 0));
2037 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2038 if(global_members)
2039 CHECK_CALLED(GetItemInfo_testVal);
2040
2041 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2042 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2043
2044 if(!global_members)
2045 SET_EXPECT(GetItemInfo_testVal);
2046 hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2047 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2048 if(!global_members)
2049 CHECK_CALLED(GetItemInfo_testVal);
2050
2051 hres = IActiveScriptParse_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2052 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2053
2054 IActiveScript_Release(engine);
2055 IActiveScriptParse_Release(parser);
2056 }
2057
2058 static void test_start(void)
2059 {
2060 IActiveScriptParse *parser;
2061 IActiveScript *engine;
2062 BSTR str;
2063 HRESULT hres;
2064
2065 script_engine = engine = create_script();
2066 if(!engine)
2067 return;
2068
2069 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2070 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2071
2072 hres = IActiveScriptParse_InitNew(parser);
2073 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2074
2075 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2076 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2077
2078 hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2079 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2080
2081 str = a2bstr("ok(getScriptState() === 5, \"getScriptState = \" + getScriptState());\n"
2082 "reportSuccess();");
2083 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2084 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2085 SysFreeString(str);
2086
2087 SET_EXPECT(global_success_d);
2088 SET_EXPECT(global_success_i);
2089 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2090 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2091 CHECK_CALLED(global_success_d);
2092 CHECK_CALLED(global_success_i);
2093
2094 IActiveScript_Release(engine);
2095 IActiveScriptParse_Release(parser);
2096 script_engine = NULL;
2097 }
2098
2099 static void test_automagic(void)
2100 {
2101 IActiveScriptParse *parser;
2102 IActiveScript *engine;
2103 BSTR str;
2104 HRESULT hres;
2105
2106 script_engine = engine = create_script();
2107 if(!engine)
2108 return;
2109
2110 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2111 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2112
2113 hres = IActiveScriptParse_InitNew(parser);
2114 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2115
2116 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2117 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2118
2119 hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2120 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2121
2122 str = a2bstr("function bindEventHandler::eventName() {}\n"
2123 "reportSuccess();");
2124 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2125 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2126 SysFreeString(str);
2127
2128 SET_EXPECT(BindHandler);
2129 SET_EXPECT(global_success_d);
2130 SET_EXPECT(global_success_i);
2131 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2132 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2133 CHECK_CALLED(BindHandler);
2134 CHECK_CALLED(global_success_d);
2135 CHECK_CALLED(global_success_i);
2136
2137 IActiveScript_Release(engine);
2138 IActiveScriptParse_Release(parser);
2139 script_engine = NULL;
2140 }
2141
2142 static HRESULT parse_script_expr(const char *expr, VARIANT *res, IActiveScript **engine_ret)
2143 {
2144 IActiveScriptParse *parser;
2145 IActiveScript *engine;
2146 BSTR str;
2147 HRESULT hres;
2148
2149 engine = create_script();
2150 if(!engine)
2151 return E_FAIL;
2152
2153 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2154 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2155
2156 hres = IActiveScriptParse_InitNew(parser);
2157 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2158
2159 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2160 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2161
2162 SET_EXPECT(GetItemInfo_testVal);
2163 hres = IActiveScript_AddNamedItem(engine, test_valW,
2164 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2165 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2166 CHECK_CALLED(GetItemInfo_testVal);
2167
2168 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2169 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2170
2171 str = a2bstr(expr);
2172 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, SCRIPTTEXT_ISEXPRESSION, res, NULL);
2173 SysFreeString(str);
2174
2175 IActiveScriptParse_Release(parser);
2176
2177 if(engine_ret) {
2178 *engine_ret = engine;
2179 }else {
2180 IActiveScript_Close(engine);
2181 IActiveScript_Release(engine);
2182 }
2183 return hres;
2184 }
2185
2186 static void test_retval(void)
2187 {
2188 BSTR str = a2bstr("reportSuccess(), true");
2189 IActiveScriptParse *parser;
2190 IActiveScript *engine;
2191 SCRIPTSTATE state;
2192 VARIANT res;
2193 HRESULT hres;
2194
2195 engine = create_script();
2196 if(!engine)
2197 return;
2198
2199 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
2200 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
2201
2202 hres = IActiveScriptParse_InitNew(parser);
2203 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2204
2205 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2206 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2207
2208 SET_EXPECT(GetItemInfo_testVal);
2209 hres = IActiveScript_AddNamedItem(engine, test_valW,
2210 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2211 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2212 CHECK_CALLED(GetItemInfo_testVal);
2213
2214 V_VT(&res) = VT_NULL;
2215 SET_EXPECT(global_success_d);
2216 SET_EXPECT(global_success_i);
2217 hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, &res, NULL);
2218 CHECK_CALLED(global_success_d);
2219 CHECK_CALLED(global_success_i);
2220 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2221 ok(V_VT(&res) == VT_EMPTY, "V_VT(&res) = %d\n", V_VT(&res));
2222
2223 hres = IActiveScript_GetScriptState(engine, &state);
2224 ok(hres == S_OK, "GetScriptState failed: %08x\n", hres);
2225 ok(state == SCRIPTSTATE_INITIALIZED, "state = %d\n", state);
2226
2227 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2228 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2229
2230 hres = IActiveScript_Close(engine);
2231 ok(hres == S_OK, "Close failed: %08x\n", hres);
2232
2233 IActiveScriptParse_Release(parser);
2234 IActiveScript_Release(engine);
2235 SysFreeString(str);
2236 }
2237
2238 static void test_default_value(void)
2239 {
2240 DISPPARAMS dp = {0};
2241 IDispatch *disp;
2242 VARIANT v;
2243 HRESULT hres;
2244
2245 hres = parse_script_expr("new Date()", &v, NULL);
2246 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2247 ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
2248 disp = V_DISPATCH(&v);
2249
2250 V_VT(&v) = VT_EMPTY;
2251 hres = IDispatch_Invoke(disp, DISPID_VALUE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2252 ok(hres == S_OK || broken(hres == 0x8000ffff), "Invoke failed: %08x\n", hres);
2253 if(hres == S_OK)
2254 {
2255 ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
2256 }
2257
2258 VariantClear(&v);
2259 IDispatch_Release(disp);
2260 }
2261
2262 static void test_script_exprs(void)
2263 {
2264 VARIANT v;
2265 HRESULT hres;
2266
2267 testing_expr = TRUE;
2268
2269 hres = parse_script_expr("true", &v, NULL);
2270 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2271 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2272 ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2273
2274 hres = parse_script_expr("false, true", &v, NULL);
2275 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2276 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2277 ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2278
2279 SET_EXPECT(global_success_d);
2280 SET_EXPECT(global_success_i);
2281 hres = parse_script_expr("reportSuccess(); true", &v, NULL);
2282 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2283 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
2284 ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
2285 CHECK_CALLED(global_success_d);
2286 CHECK_CALLED(global_success_i);
2287
2288 hres = parse_script_expr("if(false) true", &v, NULL);
2289 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2290 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
2291
2292 hres = parse_script_expr("return testPropGet", &v, NULL);
2293 ok(hres == 0x800a03fa, "parse_script_expr failed: %08x\n", hres);
2294
2295 hres = parse_script_expr("reportSuccess(); return true", &v, NULL);
2296 ok(hres == 0x800a03fa, "parse_script_expr failed: %08x\n", hres);
2297
2298 SET_EXPECT(global_success_d);
2299 SET_EXPECT(global_success_i);
2300 hres = parse_script_expr("reportSuccess(); true", NULL, NULL);
2301 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2302 CHECK_CALLED(global_success_d);
2303 CHECK_CALLED(global_success_i);
2304
2305 test_default_value();
2306 test_retval();
2307
2308 testing_expr = FALSE;
2309 }
2310
2311 static void test_invokeex(void)
2312 {
2313 DISPID func_id, prop_id;
2314 DISPPARAMS dp = {NULL};
2315 IActiveScript *script;
2316 IDispatchEx *dispex;
2317 VARIANT v;
2318 BSTR str;
2319 HRESULT hres;
2320
2321 hres = parse_script_expr("var o = {func: function() {return 3;}, prop: 6}; o", &v, &script);
2322 ok(hres == S_OK, "parse_script_expr failed: %08x\n", hres);
2323 ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
2324
2325 hres = IDispatch_QueryInterface(V_DISPATCH(&v), &IID_IDispatchEx, (void**)&dispex);
2326 ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
2327 VariantClear(&v);
2328
2329 str = a2bstr("func");
2330 hres = IDispatchEx_GetDispID(dispex, str, 0, &func_id);
2331 SysFreeString(str);
2332 ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2333
2334 str = a2bstr("prop");
2335 hres = IDispatchEx_GetDispID(dispex, str, 0, &prop_id);
2336 SysFreeString(str);
2337 ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2338
2339 hres = IDispatchEx_InvokeEx(dispex, func_id, 0, DISPATCH_METHOD, &dp, &v, NULL, NULL);
2340 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2341 ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2342 ok(V_I4(&v) == 3, "V_I4(v) = %d\n", V_I4(&v));
2343
2344 hres = IDispatchEx_InvokeEx(dispex, prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2345 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2346 ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2347 ok(V_I4(&v) == 6, "V_I4(v) = %d\n", V_I4(&v));
2348
2349 hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_UNINITIALIZED);
2350 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2351
2352 str = a2bstr("func");
2353 hres = IDispatchEx_GetDispID(dispex, str, 0, &func_id);
2354 SysFreeString(str);
2355 ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
2356
2357 hres = IDispatchEx_InvokeEx(dispex, func_id, 0, DISPATCH_METHOD, &dp, &v, NULL, NULL);
2358 ok(hres == E_UNEXPECTED || broken(hres == 0x800a1393), "InvokeEx failed: %08x\n", hres);
2359
2360 hres = IDispatchEx_InvokeEx(dispex, prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, NULL, NULL);
2361 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
2362 ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
2363 ok(V_I4(&v) == 6, "V_I4(v) = %d\n", V_I4(&v));
2364
2365 IDispatchEx_Release(dispex);
2366 IActiveScript_Release(script);
2367 }
2368
2369 struct bom_test
2370 {
2371 WCHAR str[1024];
2372 HRESULT hres;
2373 };
2374
2375 static void run_bom_tests(void)
2376 {
2377 BSTR src;
2378 int i;
2379 HRESULT hres;
2380 struct bom_test bom_tests[] = {
2381 {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2382 {{0xFEFF,'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2383 {{'v',0xFEFF,'a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, JS_E_OUT_OF_MEMORY},
2384 {{'v','a','r',0xFEFF,' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2385 {{'v','a','r',' ','a',' ','=',' ','1',';',' ',0xFEFF,'r','e','p','o','r','t','S','u','c','c','e','s','s','(',')',';','\0'}, S_OK},
2386 {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t',0xFEFF,'S','u','c','c','e','s','s','(',')',';','\0'}, JS_E_OUT_OF_MEMORY},
2387 {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s',0xFEFF,'(',')',';','\0'}, S_OK},
2388 {{'v','a','r',' ','a',' ','=',' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2389 {{'v','a','r',' ','a',' ','=',0xFEFF,' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2390 {{0xFEFF,'v','a','r',' ','a',' ','=',0xFEFF,0xFEFF,' ','1',';',' ','r','e','p','o','r','t','S','u','c','c','e','s','s','(',0xFEFF,')',';','\0'}, S_OK},
2391 {{0}}
2392 };
2393
2394 engine_clsid = &CLSID_JScript;
2395
2396 for (i = 0; bom_tests[i].str[0]; i++)
2397 {
2398 if(bom_tests[i].hres == S_OK)
2399 {
2400 SET_EXPECT(global_success_d);
2401 SET_EXPECT(global_success_i);
2402 src = SysAllocString(bom_tests[i].str);
2403 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2404 ok(hres == S_OK, "test %s failed with %08x\n", wine_dbgstr_w(src), hres);
2405 SysFreeString(src);
2406 CHECK_CALLED(global_success_d);
2407 CHECK_CALLED(global_success_i);
2408 }
2409 else
2410 {
2411 src = SysAllocString(bom_tests[i].str);
2412 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, src);
2413 todo_wine ok(hres == bom_tests[i].hres, "test %s returned with %08x\n", wine_dbgstr_w(src), hres);
2414 SysFreeString(src);
2415 }
2416 }
2417 }
2418
2419 static BOOL run_tests(void)
2420 {
2421 HRESULT hres;
2422
2423 if(invoke_version) {
2424 IActiveScript *script;
2425
2426 script = create_script();
2427 if(!script) {
2428 win_skip("Could not create script\n");
2429 return FALSE;
2430 }
2431 IActiveScript_Release(script);
2432 }
2433
2434 strict_dispid_check = TRUE;
2435
2436 parse_script_a("");
2437 parse_script_a("/* empty */ ;");
2438
2439 SET_EXPECT(global_propget_d);
2440 SET_EXPECT(global_propget_i);
2441 parse_script_a("testPropGet;");
2442 CHECK_CALLED(global_propget_d);
2443 CHECK_CALLED(global_propget_i);
2444
2445 SET_EXPECT(global_propput_d);
2446 SET_EXPECT(global_propput_i);
2447 parse_script_a("testPropPut = 1;");
2448 CHECK_CALLED(global_propput_d);
2449 CHECK_CALLED(global_propput_i);
2450
2451 SET_EXPECT(global_propputref_d);
2452 SET_EXPECT(global_propputref_i);
2453 parse_script_a("testPropPutRef = new Object();");
2454 CHECK_CALLED(global_propputref_d);
2455 CHECK_CALLED(global_propputref_i);
2456
2457 SET_EXPECT(global_propputref_d);
2458 SET_EXPECT(global_propputref_i);
2459 parse_script_a("testPropPutRef = testObj;");
2460 CHECK_CALLED(global_propputref_d);
2461 CHECK_CALLED(global_propputref_i);
2462
2463 SET_EXPECT(global_success_d);
2464 SET_EXPECT(global_success_i);
2465 parse_script_a("reportSuccess();");
2466 CHECK_CALLED(global_success_d);
2467 CHECK_CALLED(global_success_i);
2468
2469 SET_EXPECT(testobj_delete_test);
2470 parse_script_a("ok((delete testObj.deleteTest) === true, 'delete testObj.deleteTest did not return true');");
2471 CHECK_CALLED(testobj_delete_test);
2472
2473 SET_EXPECT(testobj_delete_nodelete);
2474 parse_script_a("ok((delete testObj.noDeleteTest) === false, 'delete testObj.noDeleteTest did not return false');");
2475 CHECK_CALLED(testobj_delete_nodelete);
2476
2477 SET_EXPECT(global_propdelete_d);
2478 SET_EXPECT(DeleteMemberByDispID);
2479 parse_script_a("ok((delete testPropDelete) === true, 'delete testPropDelete did not return true');");
2480 CHECK_CALLED(global_propdelete_d);
2481 CHECK_CALLED(DeleteMemberByDispID);
2482
2483 SET_EXPECT(global_nopropdelete_d);
2484 SET_EXPECT(DeleteMemberByDispID_false);
2485 parse_script_a("ok((delete testNoPropDelete) === false, 'delete testPropDelete did not return false');");
2486 CHECK_CALLED(global_nopropdelete_d);
2487 CHECK_CALLED(DeleteMemberByDispID_false);
2488
2489 SET_EXPECT(global_propdeleteerror_d);
2490 SET_EXPECT(DeleteMemberByDispID_error);
2491 parse_script_ae("delete testPropDeleteError;", E_FAIL);
2492 CHECK_CALLED(global_propdeleteerror_d);
2493 CHECK_CALLED(DeleteMemberByDispID_error);
2494
2495 SET_EXPECT(puredisp_prop_d);
2496 parse_script_a("ok((delete pureDisp.prop) === false, 'delete pureDisp.prop did not return true');");
2497 CHECK_CALLED(puredisp_prop_d);
2498
2499 SET_EXPECT(puredisp_noprop_d);
2500 parse_script_a("ok((delete pureDisp.noprop) === true, 'delete pureDisp.noprop did not return false');");
2501 CHECK_CALLED(puredisp_noprop_d);
2502
2503 SET_EXPECT(puredisp_value);
2504 parse_script_a("var t=pureDisp; t=t(false);");
2505 CHECK_CALLED(puredisp_value);
2506
2507 SET_EXPECT(puredisp_value);
2508 parse_script_a("var t = {func: pureDisp}; t = t.func(false);");
2509 CHECK_CALLED(puredisp_value);
2510
2511 SET_EXPECT(dispexfunc_value);
2512 parse_script_a("var t = dispexFunc; t = t(false);");
2513 CHECK_CALLED(dispexfunc_value);
2514
2515 SET_EXPECT(dispexfunc_value);
2516 parse_script_a("var t = {func: dispexFunc}; t = t.func(false);");
2517 CHECK_CALLED(dispexfunc_value);
2518
2519 SET_EXPECT(dispexfunc_value);
2520 parse_script_a("Function.prototype.apply.call(dispexFunc, testObj, [true]);");
2521 CHECK_CALLED(dispexfunc_value);
2522
2523 SET_EXPECT(puredisp_value);
2524 parse_script_a("Function.prototype.apply.call(pureDisp, testObj, [true]);");
2525 CHECK_CALLED(puredisp_value);
2526
2527 parse_script_a("(function reportSuccess() {})()");
2528
2529 parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
2530
2531 parse_script_a("function reportSuccess() {}; reportSuccess();");
2532
2533 SET_EXPECT(global_propget_d);
2534 parse_script_a("var testPropGet");
2535 CHECK_CALLED(global_propget_d);
2536
2537 SET_EXPECT(global_propget_d);
2538 parse_script_a("eval('var testPropGet;');");
2539 CHECK_CALLED(global_propget_d);
2540
2541 parse_script_a("var testPropGet; function testPropGet() {}");
2542
2543 SET_EXPECT(global_notexists_d);
2544 parse_script_a("var notExists; notExists = 1;");
2545 CHECK_CALLED(global_notexists_d);
2546
2547 SET_EXPECT(testobj_notexists_d);
2548 parse_script_a("testObj.notExists;");
2549 CHECK_CALLED(testobj_notexists_d);
2550
2551 parse_script_a("function f() { var testPropGet; }");
2552 parse_script_a("(function () { var testPropGet; })();");
2553 parse_script_a("(function () { eval('var testPropGet;'); })();");
2554
2555 SET_EXPECT(invoke_func);
2556 parse_script_a("ok(propGetFunc() == 0, \"Incorrect propGetFunc value\");");
2557 CHECK_CALLED(invoke_func);
2558 parse_script_a("ok(propGetFunc(1) == 1, \"Incorrect propGetFunc value\");");
2559 parse_script_a("ok(propGetFunc(1, 2) == 2, \"Incorrect propGetFunc value\");");
2560 SET_EXPECT(invoke_func);
2561 parse_script_a("ok(propGetFunc().toString() == 0, \"Incorrect propGetFunc value\");");
2562 CHECK_CALLED(invoke_func);
2563 parse_script_a("ok(propGetFunc(1).toString() == 1, \"Incorrect propGetFunc value\");");
2564 SET_EXPECT(invoke_func);
2565 parse_script_a("propGetFunc(1);");
2566 CHECK_CALLED(invoke_func);
2567
2568 parse_script_a("objectFlag(1).toString();");
2569
2570 parse_script_a("(function() { var tmp = (function () { return testObj; })()(1);})();");
2571 parse_script_a("(function() { var tmp = (function () { return testObj; })()();})();");
2572
2573 parse_script_a("ok((testObj instanceof Object) === false, 'testObj is instance of Object');");
2574
2575 SET_EXPECT(testobj_prop_d);
2576 parse_script_a("ok(('prop' in testObj) === true, 'prop is not in testObj');");
2577 CHECK_CALLED(testobj_prop_d);
2578
2579 SET_EXPECT(testobj_noprop_d);
2580 parse_script_a("ok(('noprop' in testObj) === false, 'noprop is in testObj');");
2581 CHECK_CALLED(testobj_noprop_d);
2582
2583 SET_EXPECT(testobj_prop_d);
2584 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'prop') === true, 'hasOwnProperty(\\\"prop\\\") returned false');");
2585 CHECK_CALLED(testobj_prop_d);
2586
2587 SET_EXPECT(testobj_noprop_d);
2588 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
2589 CHECK_CALLED(testobj_noprop_d);
2590
2591 SET_EXPECT(puredisp_prop_d);
2592 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'prop') === true, 'hasOwnProperty(\\\"noprop\\\") returned false');");
2593 CHECK_CALLED(puredisp_prop_d);
2594
2595 SET_EXPECT(puredisp_noprop_d);
2596 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
2597 CHECK_CALLED(puredisp_noprop_d);
2598
2599 SET_EXPECT(testobj_value);
2600 parse_script_a("ok(String(testObj) === '1', 'wrong testObj value');");
2601 CHECK_CALLED(testobj_value);
2602
2603 SET_EXPECT(testobj_value);
2604 parse_script_a("ok(String.prototype.concat.call(testObj, ' OK') === '1 OK', 'wrong concat result');");
2605 CHECK_CALLED(testobj_value);
2606
2607 SET_EXPECT(testobj_construct);
2608 parse_script_a("var t = new testObj(1);");
2609 CHECK_CALLED(testobj_construct);
2610
2611 SET_EXPECT(global_propget_d);
2612 SET_EXPECT(global_propget_i);
2613 parse_script_a("this.testPropGet;");
2614 CHECK_CALLED(global_propget_d);
2615 CHECK_CALLED(global_propget_i);
2616
2617 SET_EXPECT(global_propputref_d);
2618 SET_EXPECT(global_propputref_i);
2619 parse_script_a("testPropPutRef = nullDisp;");
2620 CHECK_CALLED(global_propputref_d);
2621 CHECK_CALLED(global_propputref_i);
2622
2623 SET_EXPECT(global_propget_d);
2624 SET_EXPECT(global_propget_i);
2625 parse_script_a("(function () { this.testPropGet; })();");
2626 CHECK_CALLED(global_propget_d);
2627 CHECK_CALLED(global_propget_i);
2628
2629 parse_script_a("testThis(this);");
2630 parse_script_a("(function () { testThis(this); })();");
2631 parse_script_a("function x() { testThis(this); }; x();");
2632 parse_script_a("var t = {func: function () { ok(this === t, 'this !== t'); }}; with(t) { func(); }");
2633 parse_script_a("function x() { testThis(this); }; with({y: 1}) { x(); }");
2634 parse_script_a("(function () { function x() { testThis(this);} x(); })();");
2635
2636 SET_EXPECT(testobj_onlydispid_d);
2637 SET_EXPECT(testobj_onlydispid_i);
2638 parse_script_a("ok(typeof(testObj.onlyDispID) === 'unknown', 'unexpected typeof(testObj.onlyDispID)');");
2639 CHECK_CALLED(testobj_onlydispid_d);
2640 CHECK_CALLED(testobj_onlydispid_i);
2641
2642 SET_EXPECT(global_propargput_d);
2643 SET_EXPECT(global_propargput_i);
2644 parse_script_a("var t=0; propArgPutG(t++, t++) = t++;");
2645 CHECK_CALLED(global_propargput_d);
2646 CHECK_CALLED(global_propargput_i);
2647
2648 SET_EXPECT(global_propargput_d);
2649 SET_EXPECT(global_propargput_i);
2650 parse_script_a("var t=0; test.propArgPutO(t++, t++) = t++;");
2651 CHECK_CALLED(global_propargput_d);
2652 CHECK_CALLED(global_propargput_i);
2653
2654 SET_EXPECT(global_testargtypes_i);
2655 parse_script_a("testArgTypes(dispUnk, intProp(), intProp, getShort(), shortProp,"
2656 "function(ui2,r4,i4ref,ui4,nullunk,d,i,s) {"
2657 " ok(getVT(i) === 'VT_I4', 'getVT(i) = ' + getVT(i));"
2658 " ok(getVT(s) === 'VT_I4', 'getVT(s) = ' + getVT(s));"
2659 " ok(getVT(d) === 'VT_DISPATCH', 'getVT(d) = ' + getVT(d));"
2660 " ok(getVT(nullunk) === 'VT_DISPATCH', 'getVT(nullunk) = ' + getVT(nullunk));"
2661 " ok(nullunk === null, 'nullunk !== null');"
2662 " ok(getVT(ui4) === 'VT_R8', 'getVT(ui4) = ' + getVT(ui4));"
2663 " ok(ui4 > 0, 'ui4 = ' + ui4);"
2664 " ok(getVT(i4ref) === 'VT_I4', 'getVT(i4ref) = ' + getVT(i4ref));"
2665 " ok(i4ref === 2, 'i4ref = ' + i4ref);"
2666 " ok(r4 === 0.5, 'r4 = ' + r4);"
2667 " ok(getVT(r4) === 'VT_R8', 'getVT(r4) = ' + getVT(r4));"
2668 " ok(getVT(ui2) === 'VT_I4', 'getVT(ui2) = ' + getVT(ui2));"
2669 "});");
2670 CHECK_CALLED(global_testargtypes_i);
2671
2672 SET_EXPECT(testobj_withprop_d);
2673 SET_EXPECT(testobj_withprop_i);
2674 parse_script_a("var t = (function () { with(testObj) { return withProp; }})(); ok(t === 1, 't = ' + t);");
2675 CHECK_CALLED(testobj_withprop_d);
2676 CHECK_CALLED(testobj_withprop_i);
2677
2678 parse_script_a("@set @t=2\nok(@t === 2, '@t = ' + @t);");
2679
2680 SET_EXPECT(global_success_d);
2681 SET_EXPECT(global_success_i);
2682 parse_script_a("@if(true)\nif(@_jscript) reportSuccess();\n@end");
2683 CHECK_CALLED(global_success_d);
2684 CHECK_CALLED(global_success_i);
2685
2686 run_from_res("lang.js");
2687 run_from_res("api.js");
2688 run_from_res("regexp.js");
2689 run_from_res("cc.js");
2690
2691 test_isvisible(FALSE);
2692 test_isvisible(TRUE);
2693 test_start();
2694 test_automagic();
2695
2696 parse_script_af(0, "test.testThis2(this);");
2697 parse_script_af(0, "(function () { test.testThis2(this); })();");
2698
2699 hres = parse_htmlscript_a("<!--");
2700 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2701 hres = parse_htmlscript_a("-->");
2702 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2703 hres = parse_htmlscript_a("<!--\nvar a=1;\n-->\n");
2704 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2705 hres = parse_htmlscript_a("<!--\n<!-- ignore this\n-->\n");
2706 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2707 hres = parse_htmlscript_a("var a=1;\nif(a-->0) a=5;\n");
2708 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
2709 hres = parse_htmlscript_a("var a=1;\nif(a\n-->0) a=5;\n");
2710 ok(hres != S_OK, "ParseScriptText have not failed\n");
2711
2712 test_script_exprs();
2713 test_invokeex();
2714
2715 parse_script_with_error_a(
2716 "?",
2717 0x800a03ea, 0, 0,
2718 "Microsoft JScript compilation error",
2719 "Syntax error",
2720 "?");
2721
2722 parse_script_with_error_a(
2723 "var a=1;\nif(a\n-->0) a=5;\n",
2724 0x800a03ee, 2, 0,
2725 "Microsoft JScript compilation error",
2726 "Expected ')'",
2727 "-->0) a=5;");
2728
2729 parse_script_with_error_a(
2730 "new 3;",
2731 0x800a01bd, 0, 0,
2732 "Microsoft JScript runtime error",
2733 "Object doesn't support this action",
2734 NULL);
2735
2736 parse_script_with_error_a(
2737 "new null;",
2738 0x800a138f, 0, 0,
2739 "Microsoft JScript runtime error",
2740 "Object expected",
2741 NULL);
2742
2743 parse_script_with_error_a(
2744 "var a;\nnew null;",
2745 0x800a138f, 1, 0,
2746 "Microsoft JScript runtime error",
2747 "Object expected",
2748 NULL);
2749
2750 parse_script_with_error_a(
2751 "var a; new null;",
2752 0x800a138f, 0, 7,
2753 "Microsoft JScript runtime error",
2754 "Object expected",
2755 NULL);
2756
2757 run_bom_tests();
2758
2759 return TRUE;
2760 }
2761
2762 static void test_parse_proc(void)
2763 {
2764 VARIANT args[2];
2765 DISPPARAMS dp = {args};
2766
2767 dp.cArgs = 0;
2768 invoke_procedure(NULL, "return true;", &dp);
2769
2770 dp.cArgs = 1;
2771 V_VT(args) = VT_EMPTY;
2772 invoke_procedure(NULL, "return arguments.length == 1;", &dp);
2773