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