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