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