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