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