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