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