?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
vbscript/tests: Fix test for WeekDayName(foo, bar, 0).
[wine.git] / dlls / vbscript / tests / run.c
blob7c97db2a9b835403d4d25ea7f03943e67cd3c42b
1 /*
2 * Copyright 2011 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 "vbsregexp55.h"
29
30 #include "wine/test.h"
31
32 #ifdef _WIN64
33
34 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface
35 #define IActiveScriptParse_Release IActiveScriptParse64_Release
36 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
37 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
38 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
39 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
40
41 #else
42
43 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
44 #define IActiveScriptParse_Release IActiveScriptParse32_Release
45 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
46 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
47 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
48 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
49
50 #endif
51
52 extern const CLSID CLSID_VBScript;
53 extern const CLSID CLSID_VBScriptRegExp;
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 CLEAR_CALLED(func) \
80 expect_ ## func = called_ ## func = FALSE
81
82 DEFINE_EXPECT(global_success_d);
83 DEFINE_EXPECT(global_success_i);
84 DEFINE_EXPECT(global_vbvar_d);
85 DEFINE_EXPECT(global_vbvar_i);
86 DEFINE_EXPECT(global_letobj_i);
87 DEFINE_EXPECT(global_setobj_i);
88 DEFINE_EXPECT(testobj_propget_d);
89 DEFINE_EXPECT(testobj_propget_i);
90 DEFINE_EXPECT(testobj_propput_d);
91 DEFINE_EXPECT(testobj_propput_i);
92 DEFINE_EXPECT(testobj_value_i);
93 DEFINE_EXPECT(global_propargput_d);
94 DEFINE_EXPECT(global_propargput_i);
95 DEFINE_EXPECT(global_propargput1_d);
96 DEFINE_EXPECT(global_propargput1_i);
97 DEFINE_EXPECT(global_testoptionalarg_i);
98 DEFINE_EXPECT(collectionobj_newenum_i);
99 DEFINE_EXPECT(Next);
100 DEFINE_EXPECT(GetWindow);
101 DEFINE_EXPECT(GetUIBehavior);
102 DEFINE_EXPECT(EnableModeless);
103 DEFINE_EXPECT(OnScriptError);
104
105 #define DISPID_GLOBAL_REPORTSUCCESS 1000
106 #define DISPID_GLOBAL_TRACE 1001
107 #define DISPID_GLOBAL_OK 1002
108 #define DISPID_GLOBAL_GETVT 1003
109 #define DISPID_GLOBAL_ISENGLANG 1004
110 #define DISPID_GLOBAL_VBVAR 1005
111 #define DISPID_GLOBAL_TESTOBJ 1006
112 #define DISPID_GLOBAL_ISNULLDISP 1007
113 #define DISPID_GLOBAL_TESTDISP 1008
114 #define DISPID_GLOBAL_REFOBJ 1009
115 #define DISPID_GLOBAL_COUNTER 1010
116 #define DISPID_GLOBAL_PROPARGPUT 1011
117 #define DISPID_GLOBAL_PROPARGPUT1 1012
118 #define DISPID_GLOBAL_COLLOBJ 1013
119 #define DISPID_GLOBAL_DOUBLEASSTRING 1014
120 #define DISPID_GLOBAL_TESTARRAY 1015
121 #define DISPID_GLOBAL_THROWINT 1016
122 #define DISPID_GLOBAL_TESTOPTIONALARG 1017
123 #define DISPID_GLOBAL_LETOBJ 1018
124 #define DISPID_GLOBAL_SETOBJ 1019
125 #define DISPID_GLOBAL_TODO_WINE_OK 1020
126 #define DISPID_GLOBAL_WEEKSTARTDAY 1021
127
128 #define DISPID_TESTOBJ_PROPGET 2000
129 #define DISPID_TESTOBJ_PROPPUT 2001
130
131 #define DISPID_COLLOBJ_RESET 3000
132
133 #define FACILITY_VBS 0xa
134 #define MAKE_VBSERROR(code) MAKE_HRESULT(SEVERITY_ERROR, FACILITY_VBS, code)
135
136 static const WCHAR testW[] = {'t','e','s','t',0};
137 static const WCHAR emptyW[] = {0};
138
139 static BOOL strict_dispid_check, is_english, allow_ui;
140 static int first_day_of_week;
141 static const char *test_name = "(null)";
142 static int test_counter;
143 static SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_NOUIERROR;
144 static IDispatchEx testObj;
145 static HRESULT onerror_hres = E_NOTIMPL;
146
147 static BSTR a2bstr(const char *str)
148 {
149 BSTR ret;
150 int len;
151
152 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
153 ret = SysAllocStringLen(NULL, len-1);
154 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
155
156 return ret;
157 }
158
159 static int strcmp_wa(LPCWSTR strw, const char *stra)
160 {
161 CHAR buf[512];
162 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
163 return lstrcmpA(buf, stra);
164 }
165
166 static const char *vt2a(VARIANT *v)
167 {
168 if(V_VT(v) == (VT_BYREF|VT_VARIANT)) {
169 static char buf[64];
170 sprintf(buf, "%s*", vt2a(V_BYREF(v)));
171 return buf;
172 }
173
174 switch(V_VT(v)) {
175 case VT_EMPTY:
176 return "VT_EMPTY";
177 case VT_NULL:
178 return "VT_NULL";
179 case VT_I2:
180 return "VT_I2";
181 case VT_I4:
182 return "VT_I4";
183 case VT_R4:
184 return "VT_R4";
185 case VT_R8:
186 return "VT_R8";
187 case VT_CY:
188 return "VT_CY";
189 case VT_DATE:
190 return "VT_DATE";
191 case VT_BSTR:
192 return "VT_BSTR";
193 case VT_DISPATCH:
194 return "VT_DISPATCH";
195 case VT_BOOL:
196 return "VT_BOOL";
197 case VT_ARRAY|VT_VARIANT:
198 return "VT_ARRAY|VT_VARIANT";
199 case VT_ARRAY|VT_BYREF|VT_VARIANT:
200 return "VT_ARRAY|VT_BYREF|VT_VARIANT";
201 case VT_UI1:
202 return "VT_UI1";
203 default:
204 ok(0, "unknown vt %d\n", V_VT(v));
205 return NULL;
206 }
207 }
208
209 /* Sets is_english to true if the user interface is in English. Note that this
210 * does not presume the formatting of dates, numbers, etc.
211 * Sets first_day_of_week to 1 if Sunday, 2 if Monday, and so on.
212 */
213 static void detect_locale(void)
214 {
215 HMODULE kernel32 = GetModuleHandleA("kernel32.dll");
216 LANGID (WINAPI *pGetThreadUILanguage)(void) = (void*)GetProcAddress(kernel32, "GetThreadUILanguage");
217
218 is_english = ((!pGetThreadUILanguage || PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH) &&
219 PRIMARYLANGID(GetUserDefaultUILanguage()) == LANG_ENGLISH &&
220 PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH);
221
222 GetLocaleInfoA(pGetThreadUILanguage ? pGetThreadUILanguage() : GetUserDefaultUILanguage(),
223 LOCALE_IFIRSTDAYOFWEEK | LOCALE_RETURN_NUMBER,
224 (void*)&first_day_of_week, sizeof(first_day_of_week));
225 first_day_of_week = 1 + (first_day_of_week + 1) % 7;
226 }
227
228 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
229 {
230 ok(0, "unexpected call\n");
231 return E_NOINTERFACE;
232 }
233
234 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
235 {
236 return 2;
237 }
238
239 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
240 {
241 return 1;
242 }
243
244 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
245 REFIID riid, void **ppv)
246 {
247 ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
248 return E_NOINTERFACE;
249 }
250
251 static const IServiceProviderVtbl ServiceProviderVtbl = {
252 ServiceProvider_QueryInterface,
253 ServiceProvider_AddRef,
254 ServiceProvider_Release,
255 ServiceProvider_QueryService
256 };
257
258 static IServiceProvider caller_sp = { &ServiceProviderVtbl };
259
260 static void test_disp(IDispatch *disp)
261 {
262 DISPID id, public_prop_id, public_prop2_id, public_func_id, public_sub_id, defvalget_id, gs_getter_id;
263 DISPID named_args[5] = {DISPID_PROPERTYPUT};
264 VARIANT v, args[5];
265 DISPPARAMS dp = {args, named_args};
266 IDispatchEx *dispex;
267 EXCEPINFO ei = {0};
268 BSTR str;
269 HRESULT hres;
270
271 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
272 ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
273
274 str = a2bstr("publicProp");
275 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop_id);
276 SysFreeString(str);
277 ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
278
279 str = a2bstr("PUBLICPROP");
280 hres = IDispatchEx_GetDispID(dispex, str, 0, &id);
281 SysFreeString(str);
282 ok(hres == S_OK, "GetDispID(PUBLICPROP) failed: %08x\n", hres);
283 ok(public_prop_id == id, "id = %d\n", public_prop_id);
284
285 str = a2bstr("publicPROP2");
286 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop2_id);
287 SysFreeString(str);
288 ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres);
289
290 str = a2bstr("defValGet");
291 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &defvalget_id);
292 SysFreeString(str);
293 ok(hres == S_OK, "GetDispID(defValGet) failed: %08x\n", hres);
294 ok(defvalget_id == DISPID_VALUE, "id = %d\n", defvalget_id);
295
296 str = a2bstr("privateProp");
297 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
298 SysFreeString(str);
299 ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
300 ok(id == -1, "id = %d\n", id);
301
302 str = a2bstr("class_initialize");
303 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
304 SysFreeString(str);
305 ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres);
306
307 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
308 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
309 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
310
311 V_VT(args) = VT_BOOL;
312 V_BOOL(args) = VARIANT_TRUE;
313 dp.cArgs = dp.cNamedArgs = 1;
314 V_VT(&v) = VT_BOOL;
315 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, &v, &ei, NULL);
316 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
317 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
318
319 dp.cArgs = dp.cNamedArgs = 0;
320 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
321 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
322 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
323 ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
324
325 dp.cArgs = dp.cNamedArgs = 0;
326 hres = IDispatchEx_Invoke(dispex, public_prop_id, &IID_NULL, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
327 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
328 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
329 ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
330
331 dp.cArgs = dp.cNamedArgs = 0;
332 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
333 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
334 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
335 ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v));
336
337 dp.cArgs = 1;
338 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
339 ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
340 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
341
342 SET_EXPECT(testobj_value_i);
343 V_VT(args) = VT_DISPATCH;
344 V_DISPATCH(args) = (IDispatch*)&testObj;
345 dp.cArgs = dp.cNamedArgs = 1;
346 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL);
347 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
348 CHECK_CALLED(testobj_value_i);
349
350 dp.cArgs = dp.cNamedArgs = 0;
351 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
352 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
353 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
354 ok(V_I2(&v) == 0, "V_I2(v) = %d\n", V_I2(&v));
355
356 V_VT(args) = VT_DISPATCH;
357 V_DISPATCH(args) = (IDispatch*)&testObj;
358 dp.cArgs = dp.cNamedArgs = 1;
359 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT|DISPATCH_PROPERTYPUTREF, &dp, NULL, &ei, NULL);
360 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
361
362 V_VT(args) = VT_DISPATCH;
363 V_DISPATCH(args) = (IDispatch*)&testObj;
364 dp.cArgs = dp.cNamedArgs = 1;
365 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUTREF, &dp, NULL, &ei, NULL);
366 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
367
368 dp.cArgs = dp.cNamedArgs = 0;
369 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
370 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
371 ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
372 ok(V_DISPATCH(&v) == (IDispatch*)&testObj, "V_DISPATCH(v) != testObj\n");
373
374 V_VT(args) = VT_BOOL;
375 V_BOOL(args) = VARIANT_TRUE;
376 dp.cArgs = dp.cNamedArgs = 1;
377 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT|DISPATCH_PROPERTYPUTREF, &dp, NULL, &ei, NULL);
378 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
379
380 dp.cArgs = dp.cNamedArgs = 0;
381 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
382 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
383 ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v));
384 ok(V_BOOL(&v) == VARIANT_TRUE, "V_BOOL(v) = %x\n", V_BOOL(&v));
385
386 V_VT(args) = VT_BOOL;
387 V_BOOL(args) = VARIANT_FALSE;
388 dp.cArgs = dp.cNamedArgs = 1;
389 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUTREF, &dp, NULL, &ei, NULL);
390 ok(hres == DISP_E_EXCEPTION, "InvokeEx failed: %08x, expected DISP_E_EXCEPTION\n", hres);
391
392 V_VT(args) = VT_BOOL;
393 V_BOOL(args) = VARIANT_FALSE;
394 dp.cArgs = 1;
395 dp.cNamedArgs = 0;
396 V_VT(&v) = VT_BOOL;
397 hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL);
398 ok(hres == DISP_E_PARAMNOTOPTIONAL, "InvokeEx failed: %08x, expected DISP_E_PARAMNOTOPTIONAL\n", hres);
399
400 str = a2bstr("publicFunction");
401 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_func_id);
402 SysFreeString(str);
403 ok(hres == S_OK, "GetDispID(publicFunction) failed: %08x\n", hres);
404 ok(public_func_id != -1, "public_func_id = -1\n");
405
406 str = a2bstr("publicSub");
407 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_sub_id);
408 SysFreeString(str);
409 ok(hres == S_OK, "GetDispID(publicSub) failed: %08x\n", hres);
410 ok(public_sub_id != -1, "public_func_id = -1\n");
411
412 dp.cArgs = dp.cNamedArgs = 0;
413 hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
414 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
415 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
416 ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
417
418 dp.cArgs = dp.cNamedArgs = 0;
419 hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
420 ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
421 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
422
423 dp.cArgs = dp.cNamedArgs = 0;
424 hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
425 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
426 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
427 ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
428
429 dp.cArgs = dp.cNamedArgs = 0;
430 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
431 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
432 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
433
434 dp.cArgs = dp.cNamedArgs = 0;
435 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
436 ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres);
437 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
438
439 dp.cArgs = dp.cNamedArgs = 0;
440 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
441 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
442 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
443
444 V_VT(args) = VT_BOOL;
445 V_BOOL(args) = VARIANT_TRUE;
446 dp.cArgs = dp.cNamedArgs = 1;
447 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL);
448 ok(FAILED(hres), "InvokeEx succeeded: %08x\n", hres);
449
450 dp.cArgs = dp.cNamedArgs = 0;
451 hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
452 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
453 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
454 ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
455
456 dp.cArgs = dp.cNamedArgs = 0;
457 hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
458 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
459 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
460 ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
461
462 dp.cArgs = dp.cNamedArgs = 0;
463 hres = IDispatchEx_Invoke(dispex, public_func_id, &IID_NULL, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
464 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
465 ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));
466 ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v));
467
468 dp.cArgs = dp.cNamedArgs = 0;
469 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
470 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
471 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
472
473 dp.cArgs = dp.cNamedArgs = 0;
474 hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
475 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
476 ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v));
477
478 str = a2bstr("privateSub");
479 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id);
480 SysFreeString(str);
481 ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateSub) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
482 ok(id == -1, "id = %d\n", id);
483
484 str = a2bstr("dynprop");
485 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive|fdexNameEnsure, &id);
486 ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
487 ok(id == -1, "id = %d\n", id);
488 hres = IDispatchEx_GetDispID(dispex, str, fdexNameEnsure, &id);
489 ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres);
490 ok(id == -1, "id = %d\n", id);
491 SysFreeString(str);
492
493 str = a2bstr("publicProp");
494 hres = IDispatchEx_GetDispID(dispex, str, 0x80000000|fdexNameCaseInsensitive, &public_prop_id);
495 SysFreeString(str);
496 ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
497
498 id = 0xdeadbeef;
499 str = a2bstr("publicProp");
500 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
501 SysFreeString(str);
502 ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
503 ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
504
505 id = 0xdeadbeef;
506 str = a2bstr("publicprop");
507 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
508 SysFreeString(str);
509 ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
510 ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
511
512 str = a2bstr("gsGetProp");
513 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &gs_getter_id);
514 SysFreeString(str);
515 ok(hres == S_OK, "GetDispID(publicFunction) failed: %08x\n", hres);
516 ok(gs_getter_id != -1, "gs_getter_id = -1\n");
517
518 V_VT(args) = VT_BOOL;
519 V_BOOL(args) = VARIANT_TRUE;
520 dp.cNamedArgs = 0;
521 dp.cArgs = 1;
522 V_VT(&v) = VT_I8;
523 hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
524 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
525 ok(V_VT(&v) == VT_BOOL && V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
526
527 hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET, &dp, NULL, &ei, NULL);
528 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
529
530 V_VT(args) = VT_BOOL;
531 V_BOOL(args) = VARIANT_FALSE;
532 dp.cArgs = 1;
533 V_VT(&v) = VT_I8;
534 hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL);
535 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
536 ok(V_VT(&v) == VT_BOOL && !V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
537
538 V_VT(args) = VT_BOOL;
539 V_BOOL(args) = VARIANT_TRUE;
540 V_VT(&v) = VT_I8;
541 dp.cArgs = 1;
542 hres = IDispatchEx_InvokeEx(dispex, gs_getter_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL);
543 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
544 ok(V_VT(&v) == VT_BOOL && V_BOOL(&v), "V_VT(v) = %d\n", V_VT(&v));
545
546 IDispatchEx_Release(dispex);
547 }
548
549 static void test_safearray(SAFEARRAY *safearray, unsigned indims)
550 {
551 int i, exdims = indims;
552
553 if(!exdims)
554 exdims = 1;
555 ok(safearray->cDims == exdims, "safearray->cDims = %d, expected %d\n", safearray->cDims, exdims);
556 todo_wine
557 ok(safearray->fFeatures == (FADF_VARIANT|FADF_HAVEVARTYPE|FADF_FIXEDSIZE|FADF_STATIC),
558 "safearray->fFeatures = %x\n", safearray->fFeatures);
559 ok(safearray->cbElements == sizeof(VARIANT), "safearray->cbElements = %x\n", safearray->cbElements);
560 ok(!safearray->cLocks, "safearray->cLocks = %x\n", safearray->cLocks);
561
562 for(i=0; i < safearray->cDims; i++) {
563 ok(safearray->rgsabound[i].cElements == (indims ? i+4 : 1), "safearray->rgsabound[%d].cElements = %d\n", i,
564 safearray->rgsabound[i].cElements);
565 ok(!safearray->rgsabound[i].lLbound, "safearray->rgsabound[%d].lLbound = %d\n", i, safearray->rgsabound[i].lLbound);
566 }
567 }
568
569 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
570 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
571 {
572 ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
573 }
574
575 static IDispatchEx enumDisp;
576
577 static HRESULT WINAPI EnumVARIANT_QueryInterface(IEnumVARIANT *iface, REFIID riid, void **ppv)
578 {
579 if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IEnumVARIANT)) {
580 *ppv = iface;
581 return S_OK;
582 }
583
584 if(IsEqualGUID(riid, &IID_IDispatch)) {
585 *ppv = &enumDisp;
586 return S_OK;
587 }
588
589 ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid));
590 return E_NOINTERFACE;
591 }
592
593 static ULONG WINAPI EnumVARIANT_AddRef(IEnumVARIANT *iface)
594 {
595 return 2;
596 }
597
598 static ULONG WINAPI EnumVARIANT_Release(IEnumVARIANT *iface)
599 {
600 return 1;
601 }
602
603 static unsigned next_cnt;
604
605 static HRESULT WINAPI EnumVARIANT_Next(IEnumVARIANT *iface, ULONG celt, VARIANT *rgVar, ULONG *pCeltFetched)
606 {
607 if(strict_dispid_check)
608 CHECK_EXPECT2(Next);
609
610 ok(celt == 1, "celt = %d\n", celt);
611 ok(V_VT(rgVar) == VT_EMPTY, "V_VT(rgVar) = %d\n", V_VT(rgVar));
612 ok(!pCeltFetched, "pCeltFetched = %p\n", pCeltFetched);
613
614 if(next_cnt++ < 3) {
615 V_VT(rgVar) = VT_I2;
616 V_I2(rgVar) = next_cnt;
617 return S_OK;
618 }
619
620 return S_FALSE;
621 }
622
623 static HRESULT WINAPI EnumVARIANT_Skip(IEnumVARIANT *iface, ULONG celt)
624 {
625 ok(0, "unexpected call\n");
626 return E_NOTIMPL;
627 }
628
629 static HRESULT WINAPI EnumVARIANT_Reset(IEnumVARIANT *iface)
630 {
631 ok(0, "unexpected call\n");
632 return E_NOTIMPL;
633 }
634
635 static HRESULT WINAPI EnumVARIANT_Clone(IEnumVARIANT *iface, IEnumVARIANT **ppEnum)
636 {
637 ok(0, "unexpected call\n");
638 return E_NOTIMPL;
639 }
640
641 static const IEnumVARIANTVtbl EnumVARIANTVtbl = {
642 EnumVARIANT_QueryInterface,
643 EnumVARIANT_AddRef,
644 EnumVARIANT_Release,
645 EnumVARIANT_Next,
646 EnumVARIANT_Skip,
647 EnumVARIANT_Reset,
648 EnumVARIANT_Clone
649 };
650
651 static IEnumVARIANT enumObj = { &EnumVARIANTVtbl };
652
653 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
654 {
655 *ppv = NULL;
656
657 if(IsEqualGUID(riid, &IID_IUnknown)
658 || IsEqualGUID(riid, &IID_IDispatch)
659 || IsEqualGUID(riid, &IID_IDispatchEx))
660 *ppv = iface;
661 else {
662 trace("QI %s\n", wine_dbgstr_guid(riid));
663 return E_NOINTERFACE;
664 }
665
666 IUnknown_AddRef((IUnknown*)*ppv);
667 return S_OK;
668 }
669
670 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
671 {
672 return 2;
673 }
674
675 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
676 {
677 return 1;
678 }
679
680 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
681 {
682 ok(0, "unexpected call\n");
683 return E_NOTIMPL;
684 }
685
686 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
687 LCID lcid, ITypeInfo **ppTInfo)
688 {
689 ok(0, "unexpected call\n");
690 return E_NOTIMPL;
691 }
692
693 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
694 LPOLESTR *rgszNames, UINT cNames,
695 LCID lcid, DISPID *rgDispId)
696 {
697 ok(0, "unexpected call\n");
698 return E_NOTIMPL;
699 }
700
701 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
702 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
703 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
704 {
705 ok(0, "unexpected call\n");
706 return E_NOTIMPL;
707 }
708
709 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
710 {
711 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
712 return E_NOTIMPL;
713 }
714
715 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
716 {
717 ok(0, "unexpected call\n");
718 return E_NOTIMPL;
719 }
720
721 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
722 {
723 ok(0, "unexpected call\n");
724 return E_NOTIMPL;
725 }
726
727 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
728 {
729 ok(0, "unexpected call\n");
730 return E_NOTIMPL;
731 }
732
733 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
734 {
735 ok(0, "unexpected call\n");
736 return E_NOTIMPL;
737 }
738
739 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
740 {
741 ok(0, "unexpected call\n");
742 return E_NOTIMPL;
743 }
744
745 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
746 {
747 ok(0, "unexpected call\n");
748 return E_NOTIMPL;
749 }
750
751 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
752 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
753 {
754 ok(0, "unexpected call %d\n", id);
755 return E_NOTIMPL;
756 }
757
758 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
759 {
760 if(!strcmp_wa(bstrName, "propget")) {
761 CHECK_EXPECT(testobj_propget_d);
762 test_grfdex(grfdex, fdexNameCaseInsensitive);
763 *pid = DISPID_TESTOBJ_PROPGET;
764 return S_OK;
765 }
766 if(!strcmp_wa(bstrName, "propput")) {
767 CHECK_EXPECT(testobj_propput_d);
768 test_grfdex(grfdex, fdexNameCaseInsensitive);
769 *pid = DISPID_TESTOBJ_PROPPUT;
770 return S_OK;
771 }
772
773 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
774 return DISP_E_UNKNOWNNAME;
775 }
776
777 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
778 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
779 {
780 switch(id) {
781 case DISPID_VALUE: {
782 VARIANT *arg;
783 int i;
784
785 CHECK_EXPECT(testobj_value_i);
786
787 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
788 ok(pdp != NULL, "pdp == NULL\n");
789 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
790 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
791 ok(pvarRes != NULL, "pvarRes == NULL\n");
792 ok(pei != NULL, "pei == NULL\n");
793
794 for(i=0; i<pdp->cArgs; i++) {
795 arg = pdp->rgvarg+pdp->cArgs-i-1;
796 ok(V_VT(arg) == VT_I2, "V_VT(arg) = %d\n", V_VT(arg));
797 ok(V_I2(arg) == i+1, "V_I2(arg) = %d\n", V_I2(arg));
798 }
799
800 V_VT(pvarRes) = VT_I2;
801 V_I2(pvarRes) = pdp->cArgs;
802 return S_OK;
803 }
804 case DISPID_TESTOBJ_PROPGET:
805 CHECK_EXPECT(testobj_propget_i);
806
807 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
808 ok(pdp != NULL, "pdp == NULL\n");
809 ok(!pdp->rgvarg, "rgvarg == NULL\n");
810 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
811 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
812 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
813 ok(pvarRes != NULL, "pvarRes == NULL\n");
814 ok(pei != NULL, "pei == NULL\n");
815
816 V_VT(pvarRes) = VT_I2;
817 V_I2(pvarRes) = 10;
818 return S_OK;
819 case DISPID_TESTOBJ_PROPPUT:
820 CHECK_EXPECT(testobj_propput_i);
821
822 ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
823 ok(pdp != NULL, "pdp == NULL\n");
824 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
825 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
826 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
827 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
828 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
829 ok(!pvarRes, "pvarRes != NULL\n");
830 ok(pei != NULL, "pei == NULL\n");
831
832 ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
833 ok(V_I2(pdp->rgvarg) == 1, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
834 return S_OK;
835 }
836
837 ok(0, "unexpected call %d\n", id);
838 return E_FAIL;
839 }
840
841 static IDispatchExVtbl testObjVtbl = {
842 DispatchEx_QueryInterface,
843 DispatchEx_AddRef,
844 DispatchEx_Release,
845 DispatchEx_GetTypeInfoCount,
846 DispatchEx_GetTypeInfo,
847 DispatchEx_GetIDsOfNames,
848 DispatchEx_Invoke,
849 testObj_GetDispID,
850 testObj_InvokeEx,
851 DispatchEx_DeleteMemberByName,
852 DispatchEx_DeleteMemberByDispID,
853 DispatchEx_GetMemberProperties,
854 DispatchEx_GetMemberName,
855 DispatchEx_GetNextDispID,
856 DispatchEx_GetNameSpaceParent
857 };
858
859 static IDispatchEx testObj = { &testObjVtbl };
860
861 static HRESULT WINAPI enumDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
862 {
863 return IEnumVARIANT_QueryInterface(&enumObj, riid, ppv);
864 }
865
866 static IDispatchExVtbl enumDispVtbl = {
867 enumDisp_QueryInterface,
868 DispatchEx_AddRef,
869 DispatchEx_Release,
870 DispatchEx_GetTypeInfoCount,
871 DispatchEx_GetTypeInfo,
872 DispatchEx_GetIDsOfNames,
873 DispatchEx_Invoke,
874 DispatchEx_GetDispID,
875 DispatchEx_InvokeEx,
876 DispatchEx_DeleteMemberByName,
877 DispatchEx_DeleteMemberByDispID,
878 DispatchEx_GetMemberProperties,
879 DispatchEx_GetMemberName,
880 DispatchEx_GetNextDispID,
881 DispatchEx_GetNameSpaceParent
882 };
883
884 static IDispatchEx enumDisp = { &enumDispVtbl };
885
886 static HRESULT WINAPI collectionObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
887 {
888 if(!strcmp_wa(bstrName, "reset")) {
889 *pid = DISPID_COLLOBJ_RESET;
890 return S_OK;
891 }
892
893 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
894 return DISP_E_UNKNOWNNAME;
895 }
896
897 static HRESULT WINAPI collectionObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
898 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
899 {
900 switch(id) {
901 case DISPID_NEWENUM:
902 if(strict_dispid_check)
903 CHECK_EXPECT(collectionobj_newenum_i);
904
905 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
906 ok(pdp != NULL, "pdp == NULL\n");
907 ok(!pdp->rgvarg, "rgvarg == NULL\n");
908 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
909 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
910 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
911 ok(pvarRes != NULL, "pvarRes == NULL\n");
912 ok(pei != NULL, "pei == NULL\n");
913
914 V_VT(pvarRes) = VT_UNKNOWN;
915 V_UNKNOWN(pvarRes) = (IUnknown*)&enumObj;
916 return S_OK;
917 case DISPID_COLLOBJ_RESET:
918 next_cnt = 0;
919 return S_OK;
920 }
921
922 ok(0, "unexpected call %d\n", id);
923 return E_NOTIMPL;
924 }
925
926 static IDispatchExVtbl collectionObjVtbl = {
927 DispatchEx_QueryInterface,
928 DispatchEx_AddRef,
929 DispatchEx_Release,
930 DispatchEx_GetTypeInfoCount,
931 DispatchEx_GetTypeInfo,
932 DispatchEx_GetIDsOfNames,
933 DispatchEx_Invoke,
934 collectionObj_GetDispID,
935 collectionObj_InvokeEx,
936 DispatchEx_DeleteMemberByName,
937 DispatchEx_DeleteMemberByDispID,
938 DispatchEx_GetMemberProperties,
939 DispatchEx_GetMemberName,
940 DispatchEx_GetNextDispID,
941 DispatchEx_GetNameSpaceParent
942 };
943
944 static IDispatchEx collectionObj = { &collectionObjVtbl };
945
946 static ULONG refobj_ref;
947
948 static ULONG WINAPI RefObj_AddRef(IDispatchEx *iface)
949 {
950 return ++refobj_ref;
951 }
952
953 static ULONG WINAPI RefObj_Release(IDispatchEx *iface)
954 {
955 return --refobj_ref;
956 }
957
958 static IDispatchExVtbl RefObjVtbl = {
959 DispatchEx_QueryInterface,
960 RefObj_AddRef,
961 RefObj_Release,
962 DispatchEx_GetTypeInfoCount,
963 DispatchEx_GetTypeInfo,
964 DispatchEx_GetIDsOfNames,
965 DispatchEx_Invoke,
966 DispatchEx_GetDispID,
967 DispatchEx_InvokeEx,
968 DispatchEx_DeleteMemberByName,
969 DispatchEx_DeleteMemberByDispID,
970 DispatchEx_GetMemberProperties,
971 DispatchEx_GetMemberName,
972 DispatchEx_GetNextDispID,
973 DispatchEx_GetNameSpaceParent
974 };
975
976 static IDispatchEx RefObj = { &RefObjVtbl };
977
978 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
979 {
980 if(!strcmp_wa(bstrName, "ok")) {
981 test_grfdex(grfdex, fdexNameCaseInsensitive);
982 *pid = DISPID_GLOBAL_OK;
983 return S_OK;
984 }
985 if(!strcmp_wa(bstrName, "todo_wine_ok")) {
986 test_grfdex(grfdex, fdexNameCaseInsensitive);
987 *pid = DISPID_GLOBAL_TODO_WINE_OK;
988 return S_OK;
989 }
990 if(!strcmp_wa(bstrName, "trace")) {
991 test_grfdex(grfdex, fdexNameCaseInsensitive);
992 *pid = DISPID_GLOBAL_TRACE;
993 return S_OK;
994 }
995 if(!strcmp_wa(bstrName, "reportSuccess")) {
996 CHECK_EXPECT(global_success_d);
997 test_grfdex(grfdex, fdexNameCaseInsensitive);
998 *pid = DISPID_GLOBAL_REPORTSUCCESS;
999 return S_OK;
1000 }
1001 if(!strcmp_wa(bstrName, "getVT")) {
1002 test_grfdex(grfdex, fdexNameCaseInsensitive);
1003 *pid = DISPID_GLOBAL_GETVT;
1004 return S_OK;
1005 }
1006 if(!strcmp_wa(bstrName, "isEnglishLang")) {
1007 test_grfdex(grfdex, fdexNameCaseInsensitive);
1008 *pid = DISPID_GLOBAL_ISENGLANG;
1009 return S_OK;
1010 }
1011 if(!strcmp_wa(bstrName, "firstDayOfWeek")) {
1012 test_grfdex(grfdex, fdexNameCaseInsensitive);
1013 *pid = DISPID_GLOBAL_WEEKSTARTDAY;
1014 return S_OK;
1015 }
1016 if(!strcmp_wa(bstrName, "testObj")) {
1017 test_grfdex(grfdex, fdexNameCaseInsensitive);
1018 *pid = DISPID_GLOBAL_TESTOBJ;
1019 return S_OK;
1020 }
1021 if(!strcmp_wa(bstrName, "collectionObj")) {
1022 test_grfdex(grfdex, fdexNameCaseInsensitive);
1023 *pid = DISPID_GLOBAL_COLLOBJ;
1024 return S_OK;
1025 }
1026 if(!strcmp_wa(bstrName, "vbvar")) {
1027 CHECK_EXPECT(global_vbvar_d);
1028 test_grfdex(grfdex, fdexNameCaseInsensitive);
1029 *pid = DISPID_GLOBAL_VBVAR;
1030 return S_OK;
1031 }
1032 if(!strcmp_wa(bstrName, "letobj")) {
1033 test_grfdex(grfdex, fdexNameCaseInsensitive);
1034 *pid = DISPID_GLOBAL_LETOBJ;
1035 return S_OK;
1036 }
1037 if(!strcmp_wa(bstrName, "setobj")) {
1038 test_grfdex(grfdex, fdexNameCaseInsensitive);
1039 *pid = DISPID_GLOBAL_SETOBJ;
1040 return S_OK;
1041 }
1042 if(!strcmp_wa(bstrName, "isNullDisp")) {
1043 test_grfdex(grfdex, fdexNameCaseInsensitive);
1044 *pid = DISPID_GLOBAL_ISNULLDISP;
1045 return S_OK;
1046 }
1047 if(!strcmp_wa(bstrName, "testDisp")) {
1048 test_grfdex(grfdex, fdexNameCaseInsensitive);
1049 *pid = DISPID_GLOBAL_TESTDISP;
1050 return S_OK;
1051 }
1052 if(!strcmp_wa(bstrName, "RefObj")) {
1053 test_grfdex(grfdex, fdexNameCaseInsensitive);
1054 *pid = DISPID_GLOBAL_REFOBJ;
1055 return S_OK;
1056 }
1057 if(!strcmp_wa(bstrName, "propargput")) {
1058 CHECK_EXPECT(global_propargput_d);
1059 test_grfdex(grfdex, fdexNameCaseInsensitive);
1060 *pid = DISPID_GLOBAL_PROPARGPUT;
1061 return S_OK;
1062 }
1063 if(!strcmp_wa(bstrName, "propargput1")) {
1064 CHECK_EXPECT(global_propargput1_d);
1065 test_grfdex(grfdex, fdexNameCaseInsensitive);
1066 *pid = DISPID_GLOBAL_PROPARGPUT1;
1067 return S_OK;
1068 }
1069 if(!strcmp_wa(bstrName, "counter")) {
1070 test_grfdex(grfdex, fdexNameCaseInsensitive);
1071 *pid = DISPID_GLOBAL_COUNTER;
1072 return S_OK;
1073 }
1074 if(!strcmp_wa(bstrName, "doubleAsString")) {
1075 test_grfdex(grfdex, fdexNameCaseInsensitive);
1076 *pid = DISPID_GLOBAL_DOUBLEASSTRING;
1077 return S_OK;
1078 }
1079 if(!strcmp_wa(bstrName, "testArray")) {
1080 test_grfdex(grfdex, fdexNameCaseInsensitive);
1081 *pid = DISPID_GLOBAL_TESTARRAY;
1082 return S_OK;
1083 }
1084 if(!strcmp_wa(bstrName, "throwInt")) {
1085 test_grfdex(grfdex, fdexNameCaseInsensitive);
1086 *pid = DISPID_GLOBAL_THROWINT;
1087 return S_OK;
1088 }
1089 if(!strcmp_wa(bstrName, "testOptionalArg")) {
1090 test_grfdex(grfdex, fdexNameCaseInsensitive);
1091 *pid = DISPID_GLOBAL_TESTOPTIONALARG;
1092 return S_OK;
1093 }
1094
1095 if(strict_dispid_check && strcmp_wa(bstrName, "x"))
1096 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
1097 return DISP_E_UNKNOWNNAME;
1098 }
1099
1100 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1101 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1102 {
1103 switch(id) {
1104 case DISPID_GLOBAL_TODO_WINE_OK:
1105 case DISPID_GLOBAL_OK: {
1106 VARIANT *b;
1107
1108 ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1109 ok(pdp != NULL, "pdp == NULL\n");
1110 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1111 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1112 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1113 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1114 if(wFlags & INVOKE_PROPERTYGET)
1115 ok(pvarRes != NULL, "pvarRes == NULL\n");
1116 else
1117 ok(!pvarRes, "pvarRes != NULL\n");
1118 ok(pei != NULL, "pei == NULL\n");
1119
1120 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1121
1122 b = pdp->rgvarg+1;
1123 if(V_VT(b) == (VT_BYREF|VT_VARIANT))
1124 b = V_BYREF(b);
1125
1126 ok(V_VT(b) == VT_BOOL, "V_VT(b) = %d\n", V_VT(b));
1127
1128 todo_wine_if(id == DISPID_GLOBAL_TODO_WINE_OK)
1129 ok(V_BOOL(b), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
1130 return S_OK;
1131 }
1132
1133 case DISPID_GLOBAL_TRACE:
1134 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1135 ok(pdp != NULL, "pdp == NULL\n");
1136 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1137 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1138 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1139 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1140 ok(!pvarRes, "pvarRes != NULL\n");
1141 ok(pei != NULL, "pei == NULL\n");
1142
1143 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1144 if(V_VT(pdp->rgvarg) == VT_BSTR)
1145 trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
1146
1147 return S_OK;
1148
1149 case DISPID_GLOBAL_REPORTSUCCESS:
1150 CHECK_EXPECT(global_success_i);
1151
1152 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1153 ok(pdp != NULL, "pdp == NULL\n");
1154 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1155 ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
1156 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1157 ok(!pvarRes, "pvarRes != NULL\n");
1158 ok(pei != NULL, "pei == NULL\n");
1159
1160 return S_OK;
1161
1162 case DISPID_GLOBAL_GETVT:
1163 ok(pdp != NULL, "pdp == NULL\n");
1164 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1165 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1166 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1167 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1168 ok(pvarRes != NULL, "pvarRes == NULL\n");
1169 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1170 ok(pei != NULL, "pei == NULL\n");
1171
1172 V_VT(pvarRes) = VT_BSTR;
1173 V_BSTR(pvarRes) = a2bstr(vt2a(pdp->rgvarg));
1174 return S_OK;
1175
1176 case DISPID_GLOBAL_ISENGLANG:
1177 ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1178 ok(pdp != NULL, "pdp == NULL\n");
1179 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1180 ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
1181 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1182 ok(pvarRes != NULL, "pvarRes == NULL\n");
1183 ok(pei != NULL, "pei == NULL\n");
1184
1185 V_VT(pvarRes) = VT_BOOL;
1186 V_BOOL(pvarRes) = is_english ? VARIANT_TRUE : VARIANT_FALSE;
1187 return S_OK;
1188
1189 case DISPID_GLOBAL_WEEKSTARTDAY:
1190 V_VT(pvarRes) = VT_I4;
1191 V_I4(pvarRes) = first_day_of_week;
1192 return S_OK;
1193
1194 case DISPID_GLOBAL_VBVAR:
1195 CHECK_EXPECT(global_vbvar_i);
1196
1197 ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1198 ok(pdp != NULL, "pdp == NULL\n");
1199 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1200 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1201 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1202 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1203 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1204 ok(!pvarRes, "pvarRes != NULL\n");
1205 ok(pei != NULL, "pei == NULL\n");
1206
1207 ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1208 ok(V_I2(pdp->rgvarg) == 3, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1209 return S_OK;
1210
1211 case DISPID_GLOBAL_LETOBJ:
1212 CHECK_EXPECT(global_letobj_i);
1213
1214 ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1215 ok(pdp != NULL, "pdp == NULL\n");
1216 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1217 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1218 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1219 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1220 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1221 ok(!pvarRes, "pvarRes != NULL\n");
1222 ok(pei != NULL, "pei == NULL\n");
1223
1224 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1225 ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)&testObj, "V_DISPATCH(psp->rgvargs) != testObj\n");
1226 return S_OK;
1227
1228 case DISPID_GLOBAL_SETOBJ:
1229 CHECK_EXPECT(global_setobj_i);
1230
1231 ok(wFlags == DISPATCH_PROPERTYPUTREF, "wFlags = %x\n", wFlags);
1232 ok(pdp != NULL, "pdp == NULL\n");
1233 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1234 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1235 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1236 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1237 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1238 ok(!pvarRes, "pvarRes != NULL\n");
1239 ok(pei != NULL, "pei == NULL\n");
1240
1241 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1242 ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)&testObj, "V_DISPATCH(psp->rgvargs) != testObj\n");
1243 return S_OK;
1244
1245 case DISPID_GLOBAL_TESTOBJ:
1246 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1247
1248 ok(pdp != NULL, "pdp == NULL\n");
1249 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1250 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1251 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1252 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1253 ok(pvarRes != NULL, "pvarRes == NULL\n");
1254 ok(pei != NULL, "pei == NULL\n");
1255
1256 V_VT(pvarRes) = VT_DISPATCH;
1257 V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
1258 return S_OK;
1259
1260 case DISPID_GLOBAL_COLLOBJ:
1261 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1262
1263 ok(pdp != NULL, "pdp == NULL\n");
1264 ok(!pdp->rgvarg, "rgvarg != NULL\n");
1265 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1266 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1267 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1268 ok(pvarRes != NULL, "pvarRes == NULL\n");
1269 ok(pei != NULL, "pei == NULL\n");
1270
1271 V_VT(pvarRes) = VT_DISPATCH;
1272 V_DISPATCH(pvarRes) = (IDispatch*)&collectionObj;
1273 return S_OK;
1274
1275 case DISPID_GLOBAL_REFOBJ:
1276 ok(wFlags == (DISPATCH_PROPERTYGET|DISPATCH_METHOD), "wFlags = %x\n", wFlags);
1277
1278 ok(pdp != NULL, "pdp == NULL\n");
1279 ok(!pdp->rgvarg, "rgvarg == NULL\n");
1280 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1281 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1282 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1283 ok(pvarRes != NULL, "pvarRes == NULL\n");
1284 ok(pei != NULL, "pei == NULL\n");
1285
1286 IDispatchEx_AddRef(&RefObj);
1287 V_VT(pvarRes) = VT_DISPATCH;
1288 V_DISPATCH(pvarRes) = (IDispatch*)&RefObj;
1289 return S_OK;
1290
1291 case DISPID_GLOBAL_ISNULLDISP: {
1292 VARIANT *v;
1293
1294 ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1295 ok(pdp != NULL, "pdp == NULL\n");
1296 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1297 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1298 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1299 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1300 ok(pvarRes != NULL, "pvarRes == NULL\n");
1301 ok(pei != NULL, "pei == NULL\n");
1302
1303 v = pdp->rgvarg;
1304 if(V_VT(v) == (VT_VARIANT|VT_BYREF))
1305 v = V_VARIANTREF(v);
1306
1307 ok(V_VT(v) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1308 V_VT(pvarRes) = VT_BOOL;
1309 V_BOOL(pvarRes) = V_DISPATCH(v) ? VARIANT_FALSE : VARIANT_TRUE;
1310 return S_OK;
1311 }
1312
1313 case DISPID_GLOBAL_TESTDISP:
1314 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1315 ok(pdp != NULL, "pdp == NULL\n");
1316 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1317 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1318 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1319 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1320 ok(!pvarRes, "pvarRes != NULL\n");
1321 ok(pei != NULL, "pei == NULL\n");
1322
1323 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1324 test_disp(V_DISPATCH(pdp->rgvarg));
1325 return S_OK;
1326
1327 case DISPID_GLOBAL_PROPARGPUT:
1328 CHECK_EXPECT(global_propargput_i);
1329
1330 ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1331 ok(pdp != NULL, "pdp == NULL\n");
1332 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1333 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1334 ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
1335 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1336 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1337 ok(!pvarRes, "pvarRes != NULL\n");
1338 ok(pei != NULL, "pei == NULL\n");
1339
1340 ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1341 ok(V_I2(pdp->rgvarg) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1342
1343 ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1344 ok(V_I2(pdp->rgvarg+1) == 2, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp->rgvarg+1));
1345
1346 ok(V_VT(pdp->rgvarg+2) == VT_I2, "V_VT(psp->rgvargs+2) = %d\n", V_VT(pdp->rgvarg+2));
1347 ok(V_I2(pdp->rgvarg+2) == 1, "V_I2(psp->rgvargs+2) = %d\n", V_I2(pdp->rgvarg+2));
1348 return S_OK;
1349
1350 case DISPID_GLOBAL_PROPARGPUT1:
1351 CHECK_EXPECT(global_propargput1_i);
1352
1353 ok(wFlags == DISPATCH_PROPERTYPUT, "wFlags = %x\n", wFlags);
1354 ok(pdp != NULL, "pdp == NULL\n");
1355 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1356 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
1357 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1358 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
1359 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
1360 ok(!pvarRes, "pvarRes != NULL\n");
1361 ok(pei != NULL, "pei == NULL\n");
1362
1363 ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1364 ok(V_I2(pdp->rgvarg) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp->rgvarg));
1365
1366 ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1367 ok(V_I2(pdp->rgvarg+1) == 1, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp->rgvarg+1));
1368
1369 return S_OK;
1370
1371 case DISPID_GLOBAL_COUNTER:
1372 ok(pdp != NULL, "pdp == NULL\n");
1373 todo_wine ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1374 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1375 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
1376 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1377 ok(pvarRes != NULL, "pvarRes == NULL\n");
1378 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1379 ok(pei != NULL, "pei == NULL\n");
1380
1381 V_VT(pvarRes) = VT_I2;
1382 V_I2(pvarRes) = test_counter++;
1383 return S_OK;
1384
1385 case DISPID_GLOBAL_DOUBLEASSTRING:
1386 ok(wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
1387 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1388 ok(V_VT(pdp->rgvarg) == VT_R8, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1389 ok(pvarRes != NULL, "pvarRes == NULL\n");
1390
1391 V_VT(pvarRes) = VT_BSTR;
1392 return VarBstrFromR8(V_R8(pdp->rgvarg), 0, 0, &V_BSTR(pvarRes));
1393
1394 case DISPID_GLOBAL_TESTARRAY:
1395 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1396 ok(pdp != NULL, "pdp == NULL\n");
1397 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1398 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1399 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
1400 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1401 ok(!pvarRes, "pvarRes != NULL\n");
1402 ok(pei != NULL, "pei == NULL\n");
1403
1404 ok(V_VT(pdp->rgvarg+1) == VT_I2, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg+1));
1405 ok(V_VT(pdp->rgvarg) == (VT_BYREF|VT_VARIANT), "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
1406 ok(V_VT(V_VARIANTREF(pdp->rgvarg)) == (VT_ARRAY|VT_BYREF|VT_VARIANT),
1407 "V_VT(V_VARIANTREF(psp->rgvargs)) = %d\n", V_VT(V_VARIANTREF(pdp->rgvarg)));
1408 if(V_I2(pdp->rgvarg+1) == -1)
1409 ok(!*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)), "*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)) != NULL\n");
1410 else
1411 test_safearray(*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)), V_I2(pdp->rgvarg+1));
1412 return S_OK;
1413
1414 case DISPID_GLOBAL_THROWINT: {
1415 VARIANT *v = pdp->rgvarg;
1416 HRESULT hres;
1417
1418 ok((wFlags & ~INVOKE_PROPERTYGET) == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1419 ok(pdp != NULL, "pdp == NULL\n");
1420 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1421 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1422 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
1423 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1424 ok(pei != NULL, "pei == NULL\n");
1425 if(pvarRes) {
1426 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
1427 V_VT(pvarRes) = VT_BOOL;
1428 V_BOOL(pvarRes) = VARIANT_FALSE;
1429 }
1430
1431 if(V_VT(v) == (VT_VARIANT|VT_BYREF))
1432 v = V_VARIANTREF(v);
1433
1434 switch(V_VT(v)) {
1435 case VT_I2:
1436 hres = V_I2(v);
1437 break;
1438 case VT_I4:
1439 hres = V_I4(v);
1440 break;
1441 default:
1442 ok(0, "unexpected vt %d\n", V_VT(v));
1443 return E_INVALIDARG;
1444 }
1445
1446 return hres;
1447 }
1448
1449 case DISPID_GLOBAL_TESTOPTIONALARG: {
1450 VARIANT *v;
1451 int opt;
1452
1453 CHECK_EXPECT(global_testoptionalarg_i);
1454
1455 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
1456 ok(pdp != NULL, "pdp == NULL\n");
1457 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
1458 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
1459 ok(pdp->cArgs == 3, "cArgs = %d\n", pdp->cArgs);
1460 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
1461 ok(!pvarRes, "pvarRes != NULL\n");
1462 ok(pei != NULL, "pei == NULL\n");
1463
1464 ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
1465 opt = V_I2(pdp->rgvarg);
1466 ok(opt == 1 || opt == 2, "opt = %d\n", opt);
1467 v = pdp->rgvarg+pdp->cArgs-opt;
1468 ok(V_VT(v) == VT_ERROR, "V_VT(v) = %d\n", V_VT(v));
1469 ok(V_ERROR(v) == DISP_E_PARAMNOTFOUND, "V_ERROR(v) = %08x\n", V_ERROR(v));
1470 return S_OK;
1471 }
1472 }
1473
1474 ok(0, "unexpected call %d\n", id);
1475 return DISP_E_MEMBERNOTFOUND;
1476 }
1477
1478 static IDispatchExVtbl GlobalVtbl = {
1479 DispatchEx_QueryInterface,
1480 DispatchEx_AddRef,
1481 DispatchEx_Release,
1482 DispatchEx_GetTypeInfoCount,
1483 DispatchEx_GetTypeInfo,
1484 DispatchEx_GetIDsOfNames,
1485 DispatchEx_Invoke,
1486 Global_GetDispID,
1487 Global_InvokeEx,
1488 DispatchEx_DeleteMemberByName,
1489 DispatchEx_DeleteMemberByDispID,
1490 DispatchEx_GetMemberProperties,
1491 DispatchEx_GetMemberName,
1492 DispatchEx_GetNextDispID,
1493 DispatchEx_GetNameSpaceParent
1494 };
1495
1496 static IDispatchEx Global = { &GlobalVtbl };
1497
1498 static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface, REFIID riid, void **ppv)
1499 {
1500 ok(0, "unexpected call\n");
1501 return E_NOINTERFACE;
1502 }
1503
1504 static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface)
1505 {
1506 return 2;
1507 }
1508
1509 static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface)
1510 {
1511 return 1;
1512 }
1513
1514 static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *phwnd)
1515 {
1516 if(!allow_ui)
1517 CHECK_EXPECT(GetWindow);
1518 *phwnd = NULL;
1519 return S_OK;
1520 }
1521
1522 static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL fEnable)
1523 {
1524 if(allow_ui)
1525 return S_OK;
1526
1527 CHECK_EXPECT(EnableModeless);
1528 ok(!fEnable, "fEnable = %x\n", fEnable);
1529 return E_FAIL;
1530 }
1531
1532 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = {
1533 ActiveScriptSiteWindow_QueryInterface,
1534 ActiveScriptSiteWindow_AddRef,
1535 ActiveScriptSiteWindow_Release,
1536 ActiveScriptSiteWindow_GetWindow,
1537 ActiveScriptSiteWindow_EnableModeless
1538 };
1539
1540 static IActiveScriptSiteWindow ActiveScriptSiteWindow = { &ActiveScriptSiteWindowVtbl };
1541
1542 static HRESULT WINAPI ActiveScriptSiteUIControl_QueryInterface(IActiveScriptSiteUIControl *iface, REFIID riid, void **ppv)
1543 {
1544 ok(0, "unexpected call\n");
1545 return E_NOINTERFACE;
1546 }
1547
1548 static ULONG WINAPI ActiveScriptSiteUIControl_AddRef(IActiveScriptSiteUIControl *iface)
1549 {
1550 return 2;
1551 }
1552
1553 static ULONG WINAPI ActiveScriptSiteUIControl_Release(IActiveScriptSiteUIControl *iface)
1554 {
1555 return 1;
1556 }
1557
1558 static HRESULT WINAPI ActiveScriptSiteUIControl_GetUIBehavior(IActiveScriptSiteUIControl *iface, SCRIPTUICITEM UicItem,
1559 SCRIPTUICHANDLING *pUicHandling)
1560 {
1561 if(!allow_ui) {
1562 CHECK_EXPECT(GetUIBehavior);
1563 ok(UicItem == SCRIPTUICITEM_MSGBOX, "UidItem = %d\n", UicItem);
1564 }
1565 *pUicHandling = uic_handling;
1566 return S_OK;
1567 }
1568
1569 static const IActiveScriptSiteUIControlVtbl ActiveScriptSiteUIControlVtbl = {
1570 ActiveScriptSiteUIControl_QueryInterface,
1571 ActiveScriptSiteUIControl_AddRef,
1572 ActiveScriptSiteUIControl_Release,
1573 ActiveScriptSiteUIControl_GetUIBehavior
1574 };
1575
1576 static IActiveScriptSiteUIControl ActiveScriptSiteUIControl = { &ActiveScriptSiteUIControlVtbl };
1577
1578 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
1579 {
1580 *ppv = NULL;
1581
1582 if(IsEqualGUID(&IID_IUnknown, riid))
1583 *ppv = iface;
1584 else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
1585 *ppv = iface;
1586 else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid))
1587 *ppv = &ActiveScriptSiteWindow;
1588 else if(IsEqualGUID(&IID_IActiveScriptSiteUIControl, riid))
1589 *ppv = &ActiveScriptSiteUIControl;
1590 else
1591 return E_NOINTERFACE;
1592
1593 IUnknown_AddRef((IUnknown*)*ppv);
1594 return S_OK;
1595 }
1596
1597 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
1598 {
1599 return 2;
1600 }
1601
1602 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
1603 {
1604 return 1;
1605 }
1606
1607 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
1608 {
1609 *plcid = GetUserDefaultLCID();
1610 return S_OK;
1611 }
1612
1613 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
1614 DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
1615 {
1616 ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
1617 ok(!ppti, "ppti != NULL\n");
1618
1619 if(strcmp_wa(pstrName, "test"))
1620 ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
1621
1622 *ppiunkItem = (IUnknown*)&Global;
1623 return S_OK;
1624 }
1625
1626 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
1627 {
1628 return E_NOTIMPL;
1629 }
1630
1631 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
1632 const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
1633 {
1634 return E_NOTIMPL;
1635 }
1636
1637 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
1638 {
1639 return E_NOTIMPL;
1640 }
1641
1642 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
1643 {
1644 HRESULT hr = onerror_hres;
1645
1646 if(!expect_OnScriptError) {
1647 EXCEPINFO info;
1648 ULONG line;
1649 HRESULT hres;
1650
1651 hres = IActiveScriptError_GetSourcePosition(pscripterror, NULL, &line, NULL);
1652 if(SUCCEEDED(hres))
1653 hres = IActiveScriptError_GetExceptionInfo(pscripterror, &info);
1654 if(SUCCEEDED(hres))
1655 trace("Error in line %u: %s\n", line+1, wine_dbgstr_w(info.bstrDescription));
1656 }
1657
1658 CHECK_EXPECT(OnScriptError);
1659 onerror_hres = E_NOTIMPL;
1660
1661 return hr;
1662 }
1663
1664 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
1665 {
1666 return E_NOTIMPL;
1667 }
1668
1669 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
1670 {
1671 return E_NOTIMPL;
1672 }
1673
1674 #undef ACTSCPSITE_THIS
1675
1676 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
1677 ActiveScriptSite_QueryInterface,
1678 ActiveScriptSite_AddRef,
1679 ActiveScriptSite_Release,
1680 ActiveScriptSite_GetLCID,
1681 ActiveScriptSite_GetItemInfo,
1682 ActiveScriptSite_GetDocVersionString,
1683 ActiveScriptSite_OnScriptTerminate,
1684 ActiveScriptSite_OnStateChange,
1685 ActiveScriptSite_OnScriptError,
1686 ActiveScriptSite_OnEnterScript,
1687 ActiveScriptSite_OnLeaveScript
1688 };
1689
1690 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
1691
1692 static IActiveScript *create_script(void)
1693 {
1694 IActiveScript *script;
1695 HRESULT hres;
1696
1697 hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1698 &IID_IActiveScript, (void**)&script);
1699 ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1700
1701 return script;
1702 }
1703
1704 static IActiveScript *create_and_init_script(DWORD flags)
1705 {
1706 IActiveScriptParse *parser;
1707 IActiveScript *engine;
1708 HRESULT hres;
1709
1710 engine = create_script();
1711 if(!engine)
1712 return NULL;
1713
1714 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1715 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1716
1717 hres = IActiveScriptParse_InitNew(parser);
1718 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1719
1720 IActiveScriptParse_Release(parser);
1721
1722 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1723 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1724
1725 hres = IActiveScript_AddNamedItem(engine, testW,
1726 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1727 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1728
1729 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1730 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1731
1732 return engine;
1733 }
1734
1735 static void close_script(IActiveScript *script)
1736 {
1737 ULONG ref;
1738 HRESULT hres;
1739
1740 hres = IActiveScript_Close(script);
1741 ok(hres == S_OK, "Close failed: %08x\n", hres);
1742
1743 ref = IActiveScript_Release(script);
1744 ok(!ref, "ref=%u\n", ref);
1745 }
1746
1747 static HRESULT parse_script(DWORD flags, BSTR script_str, const WCHAR *delim)
1748 {
1749 IActiveScriptParse *parser;
1750 IActiveScript *engine;
1751 IDispatch *script_disp;
1752 LONG ref;
1753 HRESULT hres;
1754
1755 engine = create_and_init_script(flags);
1756 if(!engine)
1757 return S_OK;
1758
1759 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1760 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1761 if (FAILED(hres))
1762 {
1763 IActiveScript_Release(engine);
1764 return hres;
1765 }
1766
1767 hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1768 ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1769 ok(script_disp != NULL, "script_disp == NULL\n");
1770 ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1771
1772 test_counter = 0;
1773
1774 hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, delim, 0, 0, 0, NULL, NULL);
1775
1776 IActiveScript_Close(engine);
1777
1778 IDispatch_Release(script_disp);
1779 IActiveScript_Release(engine);
1780
1781 ref = IActiveScriptParse_Release(parser);
1782 ok(!ref, "ref=%d\n", ref);
1783 return hres;
1784 }
1785
1786 static void parse_script_af(DWORD flags, const char *src)
1787 {
1788 BSTR tmp;
1789 HRESULT hres;
1790
1791 tmp = a2bstr(src);
1792 hres = parse_script(flags, tmp, NULL);
1793 SysFreeString(tmp);
1794 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1795 }
1796
1797 static HRESULT parse_script_ar(const char *src)
1798 {
1799 BSTR tmp;
1800 HRESULT hres;
1801
1802 tmp = a2bstr(src);
1803 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp, NULL);
1804 SysFreeString(tmp);
1805 return hres;
1806 }
1807
1808 static void parse_script_a(const char *src)
1809 {
1810 parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1811 }
1812
1813 #define parse_htmlscript_a(a) _parse_htmlscript_a(__LINE__,a)
1814 static void _parse_htmlscript_a(unsigned line, const char *src)
1815 {
1816 BSTR tmp;
1817 HRESULT hres;
1818
1819 static const WCHAR script_delimW[] = {'<','/','S','C','R','I','P','T','>',0};
1820
1821 tmp = a2bstr(src);
1822 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, tmp, script_delimW);
1823 SysFreeString(tmp);
1824 ok_(__FILE__,line)(hres == S_OK, "parse_script failed: %08x\n", hres);
1825 }
1826
1827 static IDispatchEx *parse_procedure(IActiveScriptParseProcedure2 *parse_proc, const char *src)
1828 {
1829 IDispatchEx *dispex;
1830 IDispatch *disp;
1831 BSTR str;
1832 HRESULT hres;
1833
1834 static const WCHAR delimiterW[] = {'\"',0};
1835
1836 str = a2bstr(src);
1837 hres = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, str, NULL, emptyW, NULL, NULL, delimiterW, 0, 0,
1838 SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1839 SysFreeString(str);
1840 ok(hres == S_OK, "ParseProcedureText failed: %08x\n", hres);
1841 ok(disp != NULL, "disp = NULL\n");
1842
1843 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1844 IDispatch_Release(disp);
1845 ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
1846
1847 return dispex;
1848 }
1849
1850
1851 static void test_procedures(void)
1852 {
1853 IActiveScriptParseProcedure2 *parse_proc;
1854 DISPPARAMS dp = {NULL};
1855 IActiveScript *script;
1856 IDispatchEx *proc;
1857 EXCEPINFO ei = {0};
1858 VARIANT v;
1859 HRESULT hres;
1860
1861 script = create_and_init_script(0);
1862
1863 hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
1864 ok(hres == S_OK, "Could not get IActiveScriptParseProcedure2 iface: %08x\n", hres);
1865
1866 proc = parse_procedure(parse_proc, "dim x\nif true then x=false");
1867
1868 V_VT(&v) = VT_EMPTY;
1869 hres = IDispatchEx_InvokeEx(proc, DISPID_VALUE, 0, DISPATCH_METHOD, &dp, &v, &ei, &caller_sp);
1870 ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
1871
1872 IDispatchEx_Release(proc);
1873
1874 IActiveScriptParseProcedure2_Release(parse_proc);
1875
1876 close_script(script);
1877 }
1878
1879 static void test_gc(void)
1880 {
1881 IActiveScriptParse *parser;
1882 IActiveScript *engine;
1883 BSTR src;
1884 HRESULT hres;
1885
1886 strict_dispid_check = FALSE;
1887
1888 engine = create_script();
1889 if(!engine)
1890 return;
1891
1892 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1893 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1894
1895 hres = IActiveScriptParse_InitNew(parser);
1896 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1897
1898 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1899 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1900
1901 hres = IActiveScript_AddNamedItem(engine, testW,
1902 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1903 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1904
1905 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1906 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1907
1908 src = a2bstr(
1909 "class C\n"
1910 " Public ref\n"
1911 " Public Sub Class_Terminate\n"
1912 " Call reportSuccess()\n"
1913 " End Sub\n"
1914 "End Class\n"
1915 "Dim x\n"
1916 "set x = new C\n"
1917 "set x.ref = x\n"
1918 "set x = nothing\n");
1919
1920 hres = IActiveScriptParse_ParseScriptText(parser, src, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1921 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1922 SysFreeString(src);
1923
1924 SET_EXPECT(global_success_d);
1925 SET_EXPECT(global_success_i);
1926 IActiveScript_Close(engine);
1927 CHECK_CALLED(global_success_d);
1928 CHECK_CALLED(global_success_i);
1929
1930 IActiveScript_Release(engine);
1931 IActiveScriptParse_Release(parser);
1932 }
1933
1934 static void test_msgbox(void)
1935 {
1936 HRESULT hres;
1937
1938 uic_handling = SCRIPTUICHANDLING_NOUIDEFAULT;
1939
1940 SET_EXPECT(GetUIBehavior);
1941 SET_EXPECT(GetWindow);
1942 SET_EXPECT(EnableModeless);
1943 hres = parse_script_ar("MsgBox \"testing...\"");
1944 CLEAR_CALLED(GetUIBehavior);
1945 CLEAR_CALLED(GetWindow);
1946 CLEAR_CALLED(EnableModeless);
1947 if(FAILED(hres)) {
1948 win_skip("Skipping MsgBox tests, broken (probably too old) vbscript\n");
1949 return;
1950 }
1951
1952 SET_EXPECT(GetUIBehavior);
1953 parse_script_a("dim r\n r=MsgBox(\"testing...\")\n Call ok(r=0, \"r=\"&r)");
1954 CHECK_CALLED(GetUIBehavior);
1955
1956 SET_EXPECT(GetUIBehavior);
1957 parse_script_a("MsgBox 10");
1958 CHECK_CALLED(GetUIBehavior);
1959
1960 uic_handling = SCRIPTUICHANDLING_ALLOW;
1961
1962 SET_EXPECT(GetUIBehavior);
1963 SET_EXPECT(GetWindow);
1964 SET_EXPECT(EnableModeless);
1965 SET_EXPECT(OnScriptError);
1966 hres = parse_script_ar("MsgBox \"testing...\"");
1967 ok(FAILED(hres), "script not failed\n");
1968 CHECK_CALLED(GetUIBehavior);
1969 CHECK_CALLED(GetWindow);
1970 CHECK_CALLED(EnableModeless);
1971 todo_wine CHECK_CALLED(OnScriptError);
1972
1973 uic_handling = SCRIPTUICHANDLING_NOUIERROR;
1974
1975 SET_EXPECT(GetUIBehavior);
1976 SET_EXPECT(OnScriptError);
1977 hres = parse_script_ar("MsgBox \"testing...\"");
1978 ok(FAILED(hres), "script not failed\n");
1979 CHECK_CALLED(GetUIBehavior);
1980 todo_wine CHECK_CALLED(OnScriptError);
1981 }
1982
1983 static HRESULT test_global_vars_ref(BOOL use_close)
1984 {
1985 IActiveScriptParse *parser;
1986 IActiveScript *engine;
1987 BSTR script_str;
1988 LONG ref;
1989 HRESULT hres;
1990
1991 engine = create_script();
1992 if(!engine)
1993 return S_OK;
1994
1995 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1996 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1997 if (FAILED(hres))
1998 {
1999 IActiveScript_Release(engine);
2000 return hres;
2001 }
2002
2003 hres = IActiveScriptParse_InitNew(parser);
2004 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
2005
2006 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
2007 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
2008
2009 hres = IActiveScript_AddNamedItem(engine, testW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
2010 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
2011
2012 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
2013 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2014
2015 refobj_ref = 0;
2016
2017 script_str = a2bstr("Dim x\nset x = RefObj\n");
2018 hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
2019 SysFreeString(script_str);
2020
2021 ok(refobj_ref, "refobj_ref = 0\n");
2022
2023 if(use_close) {
2024 hres = IActiveScript_Close(engine);
2025 ok(hres == S_OK, "Close failed: %08x\n", hres);
2026 }else {
2027 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_UNINITIALIZED);
2028 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
2029 }
2030
2031 ok(!refobj_ref, "refobj_ref = %d\n", refobj_ref);
2032
2033 IActiveScript_Release(engine);
2034
2035 ref = IActiveScriptParse_Release(parser);
2036 ok(!ref, "ref=%d\n", ref);
2037 return hres;
2038 }
2039
2040 static BSTR get_script_from_file(const char *filename)
2041 {
2042 DWORD size, len;
2043 HANDLE file, map;
2044 const char *file_map;
2045 BSTR ret;
2046
2047 file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
2048 if(file == INVALID_HANDLE_VALUE) {
2049 trace("Could not open file: %u\n", GetLastError());
2050 return NULL;
2051 }
2052
2053 size = GetFileSize(file, NULL);
2054
2055 map = CreateFileMappingW(file, NULL, PAGE_READONLY, 0, 0, NULL);
2056 CloseHandle(file);
2057 if(map == INVALID_HANDLE_VALUE) {
2058 trace("Could not create file mapping: %u\n", GetLastError());
2059 return NULL;
2060 }
2061
2062 file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
2063 CloseHandle(map);
2064 if(!file_map) {
2065 trace("MapViewOfFile failed: %u\n", GetLastError());
2066 return NULL;
2067 }
2068
2069 len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
2070 ret = SysAllocStringLen(NULL, len);
2071 MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
2072
2073 UnmapViewOfFile(file_map);
2074
2075 return ret;
2076 }
2077
2078 static void run_from_file(const char *filename)
2079 {
2080 BSTR script_str;
2081 HRESULT hres;
2082
2083 script_str = get_script_from_file(filename);
2084 if(!script_str)
2085 return;
2086
2087 strict_dispid_check = FALSE;
2088 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str, NULL);
2089 SysFreeString(script_str);
2090 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
2091 }
2092
2093 static void run_from_res(const char *name)
2094 {
2095 const char *data;
2096 DWORD size, len;
2097 BSTR str;
2098 HRSRC src;
2099 HRESULT hres;
2100
2101 strict_dispid_check = FALSE;
2102 test_name = name;
2103
2104 src = FindResourceA(NULL, name, (LPCSTR)40);
2105 ok(src != NULL, "Could not find resource %s\n", name);
2106
2107 size = SizeofResource(NULL, src);
2108 data = LoadResource(NULL, src);
2109
2110 len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
2111 str = SysAllocStringLen(NULL, len);
2112 MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
2113
2114 SET_EXPECT(global_success_d);
2115 SET_EXPECT(global_success_i);
2116 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str, NULL);
2117 CHECK_CALLED(global_success_d);
2118 CHECK_CALLED(global_success_i);
2119
2120 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
2121 SysFreeString(str);
2122 }
2123
2124 static void run_tests(void)
2125 {
2126 HRESULT hres;
2127
2128 strict_dispid_check = TRUE;
2129
2130 parse_script_a("");
2131 parse_script_a("' empty ;");
2132
2133 SET_EXPECT(global_success_d);
2134 SET_EXPECT(global_success_i);
2135 parse_script_a("reportSuccess");
2136 CHECK_CALLED(global_success_d);
2137 CHECK_CALLED(global_success_i);
2138
2139 SET_EXPECT(global_success_d);
2140 SET_EXPECT(global_success_i);
2141 parse_script_a("reportSuccess()");
2142 CHECK_CALLED(global_success_d);
2143 CHECK_CALLED(global_success_i);
2144
2145 SET_EXPECT(global_success_d);
2146 SET_EXPECT(global_success_i);
2147 parse_script_a("Call reportSuccess");
2148 CHECK_CALLED(global_success_d);
2149 CHECK_CALLED(global_success_i);
2150
2151 SET_EXPECT(global_success_d);
2152 SET_EXPECT(global_success_i);
2153 parse_script_a("test.reportSuccess()");
2154 CHECK_CALLED(global_success_d);
2155 CHECK_CALLED(global_success_i);
2156
2157 SET_EXPECT(global_success_d);
2158 SET_EXPECT(global_success_i);
2159 parse_script_af(0, "TEST.reportSuccess()");
2160 CHECK_CALLED(global_success_d);
2161 CHECK_CALLED(global_success_i);
2162
2163 SET_EXPECT(global_vbvar_d);
2164 SET_EXPECT(global_vbvar_i);
2165 parse_script_a("Option Explicit\nvbvar = 3");
2166 CHECK_CALLED(global_vbvar_d);
2167 CHECK_CALLED(global_vbvar_i);
2168
2169 SET_EXPECT(global_vbvar_d);
2170 SET_EXPECT(global_vbvar_i);
2171 parse_script_a("Option Explicit\nvbvar() = 3");
2172 CHECK_CALLED(global_vbvar_d);
2173 CHECK_CALLED(global_vbvar_i);
2174
2175 SET_EXPECT(global_letobj_i);
2176 parse_script_a("Option Explicit\nletobj = testObj");
2177 CHECK_CALLED(global_letobj_i);
2178
2179 SET_EXPECT(global_letobj_i);
2180 parse_script_a("Option Explicit\ntest.letobj = testObj");
2181 CHECK_CALLED(global_letobj_i);
2182
2183 SET_EXPECT(global_setobj_i);
2184 parse_script_a("Option Explicit\nset setobj = testObj");
2185 CHECK_CALLED(global_setobj_i);
2186
2187 SET_EXPECT(global_setobj_i);
2188 parse_script_a("Option Explicit\nset test.setobj = testObj");
2189 CHECK_CALLED(global_setobj_i);
2190
2191 SET_EXPECT(testobj_propget_d);
2192 SET_EXPECT(testobj_propget_i);
2193 parse_script_a("dim x\nx = testObj.propget");
2194 CHECK_CALLED(testobj_propget_d);
2195 CHECK_CALLED(testobj_propget_i);
2196
2197 SET_EXPECT(testobj_propput_d);
2198 SET_EXPECT(testobj_propput_i);
2199 parse_script_a("testObj.propput = 1");
2200 CHECK_CALLED(testobj_propput_d);
2201 CHECK_CALLED(testobj_propput_i);
2202
2203 SET_EXPECT(global_propargput_d);
2204 SET_EXPECT(global_propargput_i);
2205 parse_script_a("propargput(counter(), counter()) = counter()");
2206 CHECK_CALLED(global_propargput_d);
2207 CHECK_CALLED(global_propargput_i);
2208
2209 SET_EXPECT(global_propargput_d);
2210 SET_EXPECT(global_propargput_i);
2211 parse_script_a("test.propargput(counter(), counter()) = counter()");
2212 CHECK_CALLED(global_propargput_d);
2213 CHECK_CALLED(global_propargput_i);
2214
2215 SET_EXPECT(global_propargput1_d);
2216 SET_EXPECT(global_propargput1_i);
2217 parse_script_a("propargput1 (counter()) = counter()");
2218 CHECK_CALLED(global_propargput1_d);
2219 CHECK_CALLED(global_propargput1_i);
2220
2221 SET_EXPECT(global_propargput1_d);
2222 SET_EXPECT(global_propargput1_i);
2223 parse_script_a("test.propargput1(counter()) = counter()");
2224 CHECK_CALLED(global_propargput1_d);
2225 CHECK_CALLED(global_propargput1_i);
2226
2227 parse_htmlscript_a("<!--");
2228 parse_htmlscript_a(" -->");
2229 parse_htmlscript_a("<!--\ndim x\nx=1\n-->\n");
2230 parse_htmlscript_a("<!--\ndim x\n-->\n<!--\nx=1\n-->\n");
2231
2232 SET_EXPECT(OnScriptError);
2233 hres = parse_script_ar("<!--");
2234 ok(FAILED(hres), "script didn't fail\n");
2235 todo_wine CHECK_CALLED(OnScriptError);
2236
2237 SET_EXPECT(global_success_d);
2238 SET_EXPECT(global_success_i);
2239 parse_htmlscript_a("<!--\n<!-- ignore this <> <>\n--> <>\nCall reportSuccess()\n-->\n");
2240 CHECK_CALLED(global_success_d);
2241 CHECK_CALLED(global_success_i);
2242
2243 next_cnt = 0;
2244 SET_EXPECT(collectionobj_newenum_i);
2245 SET_EXPECT(Next);
2246 parse_script_a("for each x in collectionObj\nnext");
2247 CHECK_CALLED(collectionobj_newenum_i);
2248 CHECK_CALLED(Next);
2249 ok(next_cnt == 4, "next_cnt = %d\n", next_cnt);
2250
2251 parse_script_a("x = 1\n Call ok(x = 1, \"x = \" & x)");
2252
2253 parse_script_a("x = _ \n3");
2254
2255 test_global_vars_ref(TRUE);
2256 test_global_vars_ref(FALSE);
2257
2258 SET_EXPECT(OnScriptError);
2259 hres = parse_script_ar("throwInt(&h80080008&)");
2260 ok(hres == 0x80080008, "hres = %08x\n", hres);
2261 todo_wine CHECK_CALLED(OnScriptError);
2262
2263 /* DISP_E_BADINDEX */
2264 SET_EXPECT(OnScriptError);
2265 hres = parse_script_ar("throwInt(&h8002000b&)");
2266 ok(hres == MAKE_VBSERROR(9), "hres = %08x\n", hres);
2267 todo_wine CHECK_CALLED(OnScriptError);
2268
2269 SET_EXPECT(OnScriptError);
2270 hres = parse_script_ar("throwInt(&h800a0009&)");
2271 ok(hres == MAKE_VBSERROR(9), "hres = %08x\n", hres);
2272 todo_wine CHECK_CALLED(OnScriptError);
2273
2274 onerror_hres = S_OK;
2275 SET_EXPECT(OnScriptError);
2276 hres = parse_script_ar("throwInt(&h800a0009&)");
2277 todo_wine ok(hres == SCRIPT_E_REPORTED, "hres = %08x\n", hres);
2278 todo_wine CHECK_CALLED(OnScriptError);
2279
2280 /* E_NOTIMPL */
2281 SET_EXPECT(OnScriptError);
2282 hres = parse_script_ar("throwInt(&h80004001&)");
2283 ok(hres == MAKE_VBSERROR(445), "hres = %08x\n", hres);
2284 todo_wine CHECK_CALLED(OnScriptError);
2285
2286 onerror_hres = S_OK;
2287 SET_EXPECT(OnScriptError);
2288 hres = parse_script_ar("throwInt(&h80004001&)");
2289 todo_wine ok(hres == SCRIPT_E_REPORTED, "hres = %08x\n", hres);
2290 todo_wine CHECK_CALLED(OnScriptError);
2291
2292 SET_EXPECT(global_testoptionalarg_i);
2293 parse_script_a("call testOptionalArg(1,,2)");
2294 CHECK_CALLED(global_testoptionalarg_i);
2295
2296 SET_EXPECT(global_testoptionalarg_i);
2297 parse_script_a("call testOptionalArg(,1,1)");
2298 CHECK_CALLED(global_testoptionalarg_i);
2299
2300 SET_EXPECT(global_testoptionalarg_i);
2301 parse_script_a("testOptionalArg 1,,2");
2302 CHECK_CALLED(global_testoptionalarg_i);
2303
2304 strict_dispid_check = FALSE;
2305
2306 SET_EXPECT(testobj_value_i);
2307 parse_script_a("dim n,o\n set o = testObj\n n = o(1,2)\n call ok(n=2, \"n = \" & n)\n");
2308 CHECK_CALLED(testobj_value_i);
2309
2310 SET_EXPECT(testobj_value_i);
2311 parse_script_a("dim n,o\n set o = testObj\n n = o\n call ok(n=0, \"n = \" & n)\n");
2312 CHECK_CALLED(testobj_value_i);
2313
2314 parse_script_a("Sub testsub\n"
2315 "x = 1\n"
2316 "Call ok(x = 1, \"x = \" & x)\n"
2317 "End Sub\n"
2318 "Call testsub()");
2319
2320 parse_script_a("Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n");
2321 parse_script_a("Call ok(x = \"\", \"x = \" & x)\n");
2322 parse_script_a("x = y\n"
2323 "Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n"
2324 "Call ok(getVT(y) = \"VT_EMPTY*\", \"getVT(y) = \" & getVT(y))");
2325 SET_EXPECT(OnScriptError);
2326 hres = parse_script_ar("x = y(\"a\")");
2327 ok(FAILED(hres), "script didn't fail\n");
2328 todo_wine CHECK_CALLED(OnScriptError);
2329
2330 run_from_res("lang.vbs");
2331 run_from_res("api.vbs");
2332 run_from_res("regexp.vbs");
2333 run_from_res("error.vbs");
2334
2335 test_procedures();
2336 test_gc();
2337 test_msgbox();
2338 }
2339
2340 static BOOL check_vbscript(void)
2341 {
2342 IRegExp2 *regexp;
2343 IUnknown *unk;
2344 HRESULT hres;
2345
2346 hres = CoCreateInstance(&CLSID_VBScriptRegExp, NULL,
2347 CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
2348 &IID_IUnknown, (void**)&unk);
2349 if(hres == REGDB_E_CLASSNOTREG)
2350 return FALSE;
2351 ok(hres == S_OK, "CoCreateInstance(CLSID_VBScriptRegExp) failed: %x\n", hres);
2352
2353 hres = IUnknown_QueryInterface(unk, &IID_IRegExp2, (void**)&regexp);
2354 if(SUCCEEDED(hres))
2355 IRegExp2_Release(regexp);
2356 IUnknown_Release(unk);
2357
2358 return hres == S_OK;
2359 }
2360
2361 START_TEST(run)
2362 {
2363 int argc;
2364 char **argv;
2365
2366 detect_locale();
2367 if(!is_english)
2368 skip("Skipping some tests in non-English locale\n");
2369
2370 argc = winetest_get_mainargs(&argv);
2371
2372 CoInitialize(NULL);
2373
2374 if(!check_vbscript()) {
2375 win_skip("Broken engine, probably too old\n");
2376 }else if(argc > 2) {
2377 allow_ui = TRUE;
2378 uic_handling = SCRIPTUICHANDLING_ALLOW;
2379 run_from_file(argv[2]);
2380 }else {
2381 run_tests();
2382 }
2383
2384 CoUninitialize();
2385 }
Windows API implementation