2 * Copyright 2011 Jacek Caban for CodeWeavers
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.
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.
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
28 #include "vbsregexp55.h"
30 #include "wine/test.h"
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
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
52 extern const CLSID CLSID_VBScript
;
53 extern const CLSID CLSID_VBScriptRegExp
;
55 #define DEFINE_EXPECT(func) \
56 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
58 #define SET_EXPECT(func) \
59 expect_ ## func = TRUE
61 #define CHECK_EXPECT2(func) \
63 ok(expect_ ##func, "unexpected call " #func "\n"); \
64 called_ ## func = TRUE; \
67 #define CHECK_EXPECT(func) \
69 CHECK_EXPECT2(func); \
70 expect_ ## func = FALSE; \
73 #define CHECK_CALLED(func) \
75 ok(called_ ## func, "expected " #func "\n"); \
76 expect_ ## func = called_ ## func = FALSE; \
79 #define CLEAR_CALLED(func) \
80 expect_ ## func = called_ ## func = FALSE
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
);
100 DEFINE_EXPECT(GetWindow
);
101 DEFINE_EXPECT(GetUIBehavior
);
102 DEFINE_EXPECT(EnableModeless
);
103 DEFINE_EXPECT(OnScriptError
);
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
128 #define DISPID_TESTOBJ_PROPGET 2000
129 #define DISPID_TESTOBJ_PROPPUT 2001
131 #define DISPID_COLLOBJ_RESET 3000
133 #define FACILITY_VBS 0xa
134 #define MAKE_VBSERROR(code) MAKE_HRESULT(SEVERITY_ERROR, FACILITY_VBS, code)
136 static const WCHAR testW
[] = {'t','e','s','t',0};
137 static const WCHAR emptyW
[] = {0};
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
;
147 static BSTR
a2bstr(const char *str
)
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
);
159 static int strcmp_wa(LPCWSTR strw
, const char *stra
)
162 WideCharToMultiByte(CP_ACP
, 0, strw
, -1, buf
, sizeof(buf
), 0, 0);
163 return lstrcmpA(buf
, stra
);
166 static const char *vt2a(VARIANT
*v
)
168 if(V_VT(v
) == (VT_BYREF
|VT_VARIANT
)) {
170 sprintf(buf
, "%s*", vt2a(V_BYREF(v
)));
194 return "VT_DISPATCH";
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";
204 ok(0, "unknown vt %d\n", V_VT(v
));
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.
213 static void detect_locale(void)
215 HMODULE kernel32
= GetModuleHandleA("kernel32.dll");
216 LANGID (WINAPI
*pGetThreadUILanguage
)(void) = (void*)GetProcAddress(kernel32
, "GetThreadUILanguage");
218 is_english
= ((!pGetThreadUILanguage
|| PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH
) &&
219 PRIMARYLANGID(GetUserDefaultUILanguage()) == LANG_ENGLISH
&&
220 PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH
);
222 GetLocaleInfoA(LOCALE_USER_DEFAULT
, LOCALE_IFIRSTDAYOFWEEK
| LOCALE_RETURN_NUMBER
,
223 (void*)&first_day_of_week
, sizeof(first_day_of_week
));
224 first_day_of_week
= 1 + (first_day_of_week
+ 1) % 7;
227 static HRESULT WINAPI
ServiceProvider_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
229 ok(0, "unexpected call\n");
230 return E_NOINTERFACE
;
233 static ULONG WINAPI
ServiceProvider_AddRef(IServiceProvider
*iface
)
238 static ULONG WINAPI
ServiceProvider_Release(IServiceProvider
*iface
)
243 static HRESULT WINAPI
ServiceProvider_QueryService(IServiceProvider
*iface
, REFGUID guidService
,
244 REFIID riid
, void **ppv
)
246 ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService
));
247 return E_NOINTERFACE
;
250 static const IServiceProviderVtbl ServiceProviderVtbl
= {
251 ServiceProvider_QueryInterface
,
252 ServiceProvider_AddRef
,
253 ServiceProvider_Release
,
254 ServiceProvider_QueryService
257 static IServiceProvider caller_sp
= { &ServiceProviderVtbl
};
259 static void test_disp(IDispatch
*disp
)
261 DISPID id
, public_prop_id
, public_prop2_id
, public_func_id
, public_sub_id
, defvalget_id
, gs_getter_id
;
262 DISPID named_args
[5] = {DISPID_PROPERTYPUT
};
264 DISPPARAMS dp
= {args
, named_args
};
270 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
271 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
273 str
= a2bstr("publicProp");
274 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &public_prop_id
);
276 ok(hres
== S_OK
, "GetDispID(publicProp) failed: %08x\n", hres
);
278 str
= a2bstr("PUBLICPROP");
279 hres
= IDispatchEx_GetDispID(dispex
, str
, 0, &id
);
281 ok(hres
== S_OK
, "GetDispID(PUBLICPROP) failed: %08x\n", hres
);
282 ok(public_prop_id
== id
, "id = %d\n", public_prop_id
);
284 str
= a2bstr("publicPROP2");
285 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &public_prop2_id
);
287 ok(hres
== S_OK
, "GetDispID(publicProp2) failed: %08x\n", hres
);
289 str
= a2bstr("defValGet");
290 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &defvalget_id
);
292 ok(hres
== S_OK
, "GetDispID(defValGet) failed: %08x\n", hres
);
293 ok(defvalget_id
== DISPID_VALUE
, "id = %d\n", defvalget_id
);
295 str
= a2bstr("privateProp");
296 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &id
);
298 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
299 ok(id
== -1, "id = %d\n", id
);
301 str
= a2bstr("class_initialize");
302 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &id
);
304 ok(hres
== S_OK
, "GetDispID(publicProp2) failed: %08x\n", hres
);
306 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
307 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
308 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
310 V_VT(args
) = VT_BOOL
;
311 V_BOOL(args
) = VARIANT_TRUE
;
312 dp
.cArgs
= dp
.cNamedArgs
= 1;
314 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUT
, &dp
, &v
, &ei
, NULL
);
315 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
316 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
318 dp
.cArgs
= dp
.cNamedArgs
= 0;
319 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
320 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
321 ok(V_VT(&v
) == VT_BOOL
, "V_VT(v) = %d\n", V_VT(&v
));
322 ok(V_BOOL(&v
), "V_BOOL(v) = %x\n", V_BOOL(&v
));
324 dp
.cArgs
= dp
.cNamedArgs
= 0;
325 hres
= IDispatchEx_Invoke(dispex
, public_prop_id
, &IID_NULL
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
326 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
327 ok(V_VT(&v
) == VT_BOOL
, "V_VT(v) = %d\n", V_VT(&v
));
328 ok(V_BOOL(&v
), "V_BOOL(v) = %x\n", V_BOOL(&v
));
330 dp
.cArgs
= dp
.cNamedArgs
= 0;
331 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
332 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
333 ok(V_VT(&v
) == VT_BOOL
, "V_VT(v) = %d\n", V_VT(&v
));
334 ok(V_BOOL(&v
), "V_BOOL(v) = %x\n", V_BOOL(&v
));
337 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
338 ok(hres
== DISP_E_MEMBERNOTFOUND
, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres
);
339 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
341 SET_EXPECT(testobj_value_i
);
342 V_VT(args
) = VT_DISPATCH
;
343 V_DISPATCH(args
) = (IDispatch
*)&testObj
;
344 dp
.cArgs
= dp
.cNamedArgs
= 1;
345 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUT
, &dp
, NULL
, &ei
, NULL
);
346 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
347 CHECK_CALLED(testobj_value_i
);
349 dp
.cArgs
= dp
.cNamedArgs
= 0;
350 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
351 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
352 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
353 ok(V_I2(&v
) == 0, "V_I2(v) = %d\n", V_I2(&v
));
355 V_VT(args
) = VT_DISPATCH
;
356 V_DISPATCH(args
) = (IDispatch
*)&testObj
;
357 dp
.cArgs
= dp
.cNamedArgs
= 1;
358 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUT
|DISPATCH_PROPERTYPUTREF
, &dp
, NULL
, &ei
, NULL
);
359 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
361 V_VT(args
) = VT_DISPATCH
;
362 V_DISPATCH(args
) = (IDispatch
*)&testObj
;
363 dp
.cArgs
= dp
.cNamedArgs
= 1;
364 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUTREF
, &dp
, NULL
, &ei
, NULL
);
365 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
367 dp
.cArgs
= dp
.cNamedArgs
= 0;
368 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
369 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
370 ok(V_VT(&v
) == VT_DISPATCH
, "V_VT(v) = %d\n", V_VT(&v
));
371 ok(V_DISPATCH(&v
) == (IDispatch
*)&testObj
, "V_DISPATCH(v) != testObj\n");
373 V_VT(args
) = VT_BOOL
;
374 V_BOOL(args
) = VARIANT_TRUE
;
375 dp
.cArgs
= dp
.cNamedArgs
= 1;
376 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUT
|DISPATCH_PROPERTYPUTREF
, &dp
, NULL
, &ei
, NULL
);
377 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
379 dp
.cArgs
= dp
.cNamedArgs
= 0;
380 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
381 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
382 ok(V_VT(&v
) == VT_BOOL
, "V_VT(v) = %d\n", V_VT(&v
));
383 ok(V_BOOL(&v
) == VARIANT_TRUE
, "V_BOOL(v) = %x\n", V_BOOL(&v
));
385 V_VT(args
) = VT_BOOL
;
386 V_BOOL(args
) = VARIANT_FALSE
;
387 dp
.cArgs
= dp
.cNamedArgs
= 1;
388 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUTREF
, &dp
, NULL
, &ei
, NULL
);
389 ok(hres
== DISP_E_EXCEPTION
, "InvokeEx failed: %08x, expected DISP_E_EXCEPTION\n", hres
);
391 V_VT(args
) = VT_BOOL
;
392 V_BOOL(args
) = VARIANT_FALSE
;
396 hres
= IDispatchEx_InvokeEx(dispex
, public_prop_id
, 0, DISPATCH_PROPERTYPUT
, &dp
, NULL
, &ei
, NULL
);
397 ok(hres
== DISP_E_PARAMNOTOPTIONAL
, "InvokeEx failed: %08x, expected DISP_E_PARAMNOTOPTIONAL\n", hres
);
399 str
= a2bstr("publicFunction");
400 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &public_func_id
);
402 ok(hres
== S_OK
, "GetDispID(publicFunction) failed: %08x\n", hres
);
403 ok(public_func_id
!= -1, "public_func_id = -1\n");
405 str
= a2bstr("publicSub");
406 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &public_sub_id
);
408 ok(hres
== S_OK
, "GetDispID(publicSub) failed: %08x\n", hres
);
409 ok(public_sub_id
!= -1, "public_func_id = -1\n");
411 dp
.cArgs
= dp
.cNamedArgs
= 0;
412 hres
= IDispatchEx_InvokeEx(dispex
, public_func_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
413 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
414 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
415 ok(V_I2(&v
) == 4, "V_I2(v) = %d\n", V_I2(&v
));
417 dp
.cArgs
= dp
.cNamedArgs
= 0;
418 hres
= IDispatchEx_InvokeEx(dispex
, public_func_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
419 ok(hres
== DISP_E_MEMBERNOTFOUND
, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres
);
420 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
422 dp
.cArgs
= dp
.cNamedArgs
= 0;
423 hres
= IDispatchEx_InvokeEx(dispex
, public_func_id
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
424 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
425 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
426 ok(V_I2(&v
) == 4, "V_I2(v) = %d\n", V_I2(&v
));
428 dp
.cArgs
= dp
.cNamedArgs
= 0;
429 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
430 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
431 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
433 dp
.cArgs
= dp
.cNamedArgs
= 0;
434 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
435 ok(hres
== DISP_E_MEMBERNOTFOUND
, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres
);
436 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
438 dp
.cArgs
= dp
.cNamedArgs
= 0;
439 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
440 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
441 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
443 V_VT(args
) = VT_BOOL
;
444 V_BOOL(args
) = VARIANT_TRUE
;
445 dp
.cArgs
= dp
.cNamedArgs
= 1;
446 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_PROPERTYPUT
, &dp
, NULL
, &ei
, NULL
);
447 ok(FAILED(hres
), "InvokeEx succeeded: %08x\n", hres
);
449 dp
.cArgs
= dp
.cNamedArgs
= 0;
450 hres
= IDispatchEx_InvokeEx(dispex
, public_func_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
451 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
452 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
453 ok(V_I2(&v
) == 4, "V_I2(v) = %d\n", V_I2(&v
));
455 dp
.cArgs
= dp
.cNamedArgs
= 0;
456 hres
= IDispatchEx_InvokeEx(dispex
, public_func_id
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
457 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
458 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
459 ok(V_I2(&v
) == 4, "V_I2(v) = %d\n", V_I2(&v
));
461 dp
.cArgs
= dp
.cNamedArgs
= 0;
462 hres
= IDispatchEx_Invoke(dispex
, public_func_id
, &IID_NULL
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
463 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
464 ok(V_VT(&v
) == VT_I2
, "V_VT(v) = %d\n", V_VT(&v
));
465 ok(V_I2(&v
) == 4, "V_I2(v) = %d\n", V_I2(&v
));
467 dp
.cArgs
= dp
.cNamedArgs
= 0;
468 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
469 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
470 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
472 dp
.cArgs
= dp
.cNamedArgs
= 0;
473 hres
= IDispatchEx_InvokeEx(dispex
, public_sub_id
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
474 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
475 ok(V_VT(&v
) == VT_EMPTY
, "V_VT(v) = %d\n", V_VT(&v
));
477 str
= a2bstr("privateSub");
478 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &id
);
480 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(privateSub) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
481 ok(id
== -1, "id = %d\n", id
);
483 str
= a2bstr("dynprop");
484 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
|fdexNameEnsure
, &id
);
485 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
486 ok(id
== -1, "id = %d\n", id
);
487 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameEnsure
, &id
);
488 ok(hres
== DISP_E_UNKNOWNNAME
, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres
);
489 ok(id
== -1, "id = %d\n", id
);
492 str
= a2bstr("publicProp");
493 hres
= IDispatchEx_GetDispID(dispex
, str
, 0x80000000|fdexNameCaseInsensitive
, &public_prop_id
);
495 ok(hres
== S_OK
, "GetDispID(publicProp) failed: %08x\n", hres
);
498 str
= a2bstr("publicProp");
499 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
501 ok(hres
== S_OK
, "GetDispID(publicProp) failed: %08x\n", hres
);
502 ok(id
== public_prop_id
, "id = %d, expected %d\n", id
, public_prop_id
);
505 str
= a2bstr("publicprop");
506 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
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
);
511 str
= a2bstr("gsGetProp");
512 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseInsensitive
, &gs_getter_id
);
514 ok(hres
== S_OK
, "GetDispID(publicFunction) failed: %08x\n", hres
);
515 ok(gs_getter_id
!= -1, "gs_getter_id = -1\n");
517 V_VT(args
) = VT_BOOL
;
518 V_BOOL(args
) = VARIANT_TRUE
;
522 hres
= IDispatchEx_InvokeEx(dispex
, gs_getter_id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
523 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
524 ok(V_VT(&v
) == VT_BOOL
&& V_BOOL(&v
), "V_VT(v) = %d\n", V_VT(&v
));
526 hres
= IDispatchEx_InvokeEx(dispex
, gs_getter_id
, 0, DISPATCH_PROPERTYGET
, &dp
, NULL
, &ei
, NULL
);
527 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
529 V_VT(args
) = VT_BOOL
;
530 V_BOOL(args
) = VARIANT_FALSE
;
533 hres
= IDispatchEx_InvokeEx(dispex
, gs_getter_id
, 0, DISPATCH_PROPERTYGET
|DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
534 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
535 ok(V_VT(&v
) == VT_BOOL
&& !V_BOOL(&v
), "V_VT(v) = %d\n", V_VT(&v
));
537 V_VT(args
) = VT_BOOL
;
538 V_BOOL(args
) = VARIANT_TRUE
;
541 hres
= IDispatchEx_InvokeEx(dispex
, gs_getter_id
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, NULL
);
542 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
543 ok(V_VT(&v
) == VT_BOOL
&& V_BOOL(&v
), "V_VT(v) = %d\n", V_VT(&v
));
545 IDispatchEx_Release(dispex
);
548 static void test_safearray(SAFEARRAY
*safearray
, unsigned indims
)
550 int i
, exdims
= indims
;
554 ok(safearray
->cDims
== exdims
, "safearray->cDims = %d, expected %d\n", safearray
->cDims
, exdims
);
556 ok(safearray
->fFeatures
== (FADF_VARIANT
|FADF_HAVEVARTYPE
|FADF_FIXEDSIZE
|FADF_STATIC
),
557 "safearray->fFeatures = %x\n", safearray
->fFeatures
);
558 ok(safearray
->cbElements
== sizeof(VARIANT
), "safearray->cbElements = %x\n", safearray
->cbElements
);
559 ok(!safearray
->cLocks
, "safearray->cLocks = %x\n", safearray
->cLocks
);
561 for(i
=0; i
< safearray
->cDims
; i
++) {
562 ok(safearray
->rgsabound
[i
].cElements
== (indims
? i
+4 : 1), "safearray->rgsabound[%d].cElements = %d\n", i
,
563 safearray
->rgsabound
[i
].cElements
);
564 ok(!safearray
->rgsabound
[i
].lLbound
, "safearray->rgsabound[%d].lLbound = %d\n", i
, safearray
->rgsabound
[i
].lLbound
);
568 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
569 static void _test_grfdex(unsigned line
, DWORD grfdex
, DWORD expect
)
571 ok_(__FILE__
,line
)(grfdex
== expect
, "grfdex = %x, expected %x\n", grfdex
, expect
);
574 static IDispatchEx enumDisp
;
576 static HRESULT WINAPI
EnumVARIANT_QueryInterface(IEnumVARIANT
*iface
, REFIID riid
, void **ppv
)
578 if(IsEqualGUID(riid
, &IID_IUnknown
) || IsEqualGUID(riid
, &IID_IEnumVARIANT
)) {
583 if(IsEqualGUID(riid
, &IID_IDispatch
)) {
588 ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid
));
589 return E_NOINTERFACE
;
592 static ULONG WINAPI
EnumVARIANT_AddRef(IEnumVARIANT
*iface
)
597 static ULONG WINAPI
EnumVARIANT_Release(IEnumVARIANT
*iface
)
602 static unsigned next_cnt
;
604 static HRESULT WINAPI
EnumVARIANT_Next(IEnumVARIANT
*iface
, ULONG celt
, VARIANT
*rgVar
, ULONG
*pCeltFetched
)
606 if(strict_dispid_check
)
609 ok(celt
== 1, "celt = %d\n", celt
);
610 ok(V_VT(rgVar
) == VT_EMPTY
, "V_VT(rgVar) = %d\n", V_VT(rgVar
));
611 ok(!pCeltFetched
, "pCeltFetched = %p\n", pCeltFetched
);
615 V_I2(rgVar
) = next_cnt
;
622 static HRESULT WINAPI
EnumVARIANT_Skip(IEnumVARIANT
*iface
, ULONG celt
)
624 ok(0, "unexpected call\n");
628 static HRESULT WINAPI
EnumVARIANT_Reset(IEnumVARIANT
*iface
)
630 ok(0, "unexpected call\n");
634 static HRESULT WINAPI
EnumVARIANT_Clone(IEnumVARIANT
*iface
, IEnumVARIANT
**ppEnum
)
636 ok(0, "unexpected call\n");
640 static const IEnumVARIANTVtbl EnumVARIANTVtbl
= {
641 EnumVARIANT_QueryInterface
,
650 static IEnumVARIANT enumObj
= { &EnumVARIANTVtbl
};
652 static HRESULT WINAPI
DispatchEx_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
656 if(IsEqualGUID(riid
, &IID_IUnknown
)
657 || IsEqualGUID(riid
, &IID_IDispatch
)
658 || IsEqualGUID(riid
, &IID_IDispatchEx
))
661 trace("QI %s\n", wine_dbgstr_guid(riid
));
662 return E_NOINTERFACE
;
665 IUnknown_AddRef((IUnknown
*)*ppv
);
669 static ULONG WINAPI
DispatchEx_AddRef(IDispatchEx
*iface
)
674 static ULONG WINAPI
DispatchEx_Release(IDispatchEx
*iface
)
679 static HRESULT WINAPI
DispatchEx_GetTypeInfoCount(IDispatchEx
*iface
, UINT
*pctinfo
)
681 ok(0, "unexpected call\n");
685 static HRESULT WINAPI
DispatchEx_GetTypeInfo(IDispatchEx
*iface
, UINT iTInfo
,
686 LCID lcid
, ITypeInfo
**ppTInfo
)
688 ok(0, "unexpected call\n");
692 static HRESULT WINAPI
DispatchEx_GetIDsOfNames(IDispatchEx
*iface
, REFIID riid
,
693 LPOLESTR
*rgszNames
, UINT cNames
,
694 LCID lcid
, DISPID
*rgDispId
)
696 ok(0, "unexpected call\n");
700 static HRESULT WINAPI
DispatchEx_Invoke(IDispatchEx
*iface
, DISPID dispIdMember
,
701 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
702 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
704 ok(0, "unexpected call\n");
708 static HRESULT WINAPI
DispatchEx_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
710 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName
), grfdex
);
714 static HRESULT WINAPI
DispatchEx_DeleteMemberByDispID(IDispatchEx
*iface
, DISPID id
)
716 ok(0, "unexpected call\n");
720 static HRESULT WINAPI
DispatchEx_GetMemberProperties(IDispatchEx
*iface
, DISPID id
, DWORD grfdexFetch
, DWORD
*pgrfdex
)
722 ok(0, "unexpected call\n");
726 static HRESULT WINAPI
DispatchEx_GetMemberName(IDispatchEx
*iface
, DISPID id
, BSTR
*pbstrName
)
728 ok(0, "unexpected call\n");
732 static HRESULT WINAPI
DispatchEx_GetNextDispID(IDispatchEx
*iface
, DWORD grfdex
, DISPID id
, DISPID
*pid
)
734 ok(0, "unexpected call\n");
738 static HRESULT WINAPI
DispatchEx_GetNameSpaceParent(IDispatchEx
*iface
, IUnknown
**ppunk
)
740 ok(0, "unexpected call\n");
744 static HRESULT WINAPI
DispatchEx_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
746 ok(0, "unexpected call\n");
750 static HRESULT WINAPI
DispatchEx_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
751 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
753 ok(0, "unexpected call %d\n", id
);
757 static HRESULT WINAPI
testObj_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
759 if(!strcmp_wa(bstrName
, "propget")) {
760 CHECK_EXPECT(testobj_propget_d
);
761 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
762 *pid
= DISPID_TESTOBJ_PROPGET
;
765 if(!strcmp_wa(bstrName
, "propput")) {
766 CHECK_EXPECT(testobj_propput_d
);
767 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
768 *pid
= DISPID_TESTOBJ_PROPPUT
;
772 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName
));
773 return DISP_E_UNKNOWNNAME
;
776 static HRESULT WINAPI
testObj_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
777 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
784 CHECK_EXPECT(testobj_value_i
);
786 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
787 ok(pdp
!= NULL
, "pdp == NULL\n");
788 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
789 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
790 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
791 ok(pei
!= NULL
, "pei == NULL\n");
793 for(i
=0; i
<pdp
->cArgs
; i
++) {
794 arg
= pdp
->rgvarg
+pdp
->cArgs
-i
-1;
795 ok(V_VT(arg
) == VT_I2
, "V_VT(arg) = %d\n", V_VT(arg
));
796 ok(V_I2(arg
) == i
+1, "V_I2(arg) = %d\n", V_I2(arg
));
799 V_VT(pvarRes
) = VT_I2
;
800 V_I2(pvarRes
) = pdp
->cArgs
;
803 case DISPID_TESTOBJ_PROPGET
:
804 CHECK_EXPECT(testobj_propget_i
);
806 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
807 ok(pdp
!= NULL
, "pdp == NULL\n");
808 ok(!pdp
->rgvarg
, "rgvarg == NULL\n");
809 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
810 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
811 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
812 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
813 ok(pei
!= NULL
, "pei == NULL\n");
815 V_VT(pvarRes
) = VT_I2
;
818 case DISPID_TESTOBJ_PROPPUT
:
819 CHECK_EXPECT(testobj_propput_i
);
821 ok(wFlags
== DISPATCH_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
822 ok(pdp
!= NULL
, "pdp == NULL\n");
823 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
824 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
825 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
826 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
827 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
828 ok(!pvarRes
, "pvarRes != NULL\n");
829 ok(pei
!= NULL
, "pei == NULL\n");
831 ok(V_VT(pdp
->rgvarg
) == VT_I2
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
832 ok(V_I2(pdp
->rgvarg
) == 1, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp
->rgvarg
));
836 ok(0, "unexpected call %d\n", id
);
840 static IDispatchExVtbl testObjVtbl
= {
841 DispatchEx_QueryInterface
,
844 DispatchEx_GetTypeInfoCount
,
845 DispatchEx_GetTypeInfo
,
846 DispatchEx_GetIDsOfNames
,
850 DispatchEx_DeleteMemberByName
,
851 DispatchEx_DeleteMemberByDispID
,
852 DispatchEx_GetMemberProperties
,
853 DispatchEx_GetMemberName
,
854 DispatchEx_GetNextDispID
,
855 DispatchEx_GetNameSpaceParent
858 static IDispatchEx testObj
= { &testObjVtbl
};
860 static HRESULT WINAPI
enumDisp_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
862 return IEnumVARIANT_QueryInterface(&enumObj
, riid
, ppv
);
865 static IDispatchExVtbl enumDispVtbl
= {
866 enumDisp_QueryInterface
,
869 DispatchEx_GetTypeInfoCount
,
870 DispatchEx_GetTypeInfo
,
871 DispatchEx_GetIDsOfNames
,
873 DispatchEx_GetDispID
,
875 DispatchEx_DeleteMemberByName
,
876 DispatchEx_DeleteMemberByDispID
,
877 DispatchEx_GetMemberProperties
,
878 DispatchEx_GetMemberName
,
879 DispatchEx_GetNextDispID
,
880 DispatchEx_GetNameSpaceParent
883 static IDispatchEx enumDisp
= { &enumDispVtbl
};
885 static HRESULT WINAPI
collectionObj_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
887 if(!strcmp_wa(bstrName
, "reset")) {
888 *pid
= DISPID_COLLOBJ_RESET
;
892 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName
));
893 return DISP_E_UNKNOWNNAME
;
896 static HRESULT WINAPI
collectionObj_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
897 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
901 if(strict_dispid_check
)
902 CHECK_EXPECT(collectionobj_newenum_i
);
904 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
905 ok(pdp
!= NULL
, "pdp == NULL\n");
906 ok(!pdp
->rgvarg
, "rgvarg == NULL\n");
907 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
908 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
909 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
910 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
911 ok(pei
!= NULL
, "pei == NULL\n");
913 V_VT(pvarRes
) = VT_UNKNOWN
;
914 V_UNKNOWN(pvarRes
) = (IUnknown
*)&enumObj
;
916 case DISPID_COLLOBJ_RESET
:
921 ok(0, "unexpected call %d\n", id
);
925 static IDispatchExVtbl collectionObjVtbl
= {
926 DispatchEx_QueryInterface
,
929 DispatchEx_GetTypeInfoCount
,
930 DispatchEx_GetTypeInfo
,
931 DispatchEx_GetIDsOfNames
,
933 collectionObj_GetDispID
,
934 collectionObj_InvokeEx
,
935 DispatchEx_DeleteMemberByName
,
936 DispatchEx_DeleteMemberByDispID
,
937 DispatchEx_GetMemberProperties
,
938 DispatchEx_GetMemberName
,
939 DispatchEx_GetNextDispID
,
940 DispatchEx_GetNameSpaceParent
943 static IDispatchEx collectionObj
= { &collectionObjVtbl
};
945 static ULONG refobj_ref
;
947 static ULONG WINAPI
RefObj_AddRef(IDispatchEx
*iface
)
952 static ULONG WINAPI
RefObj_Release(IDispatchEx
*iface
)
957 static IDispatchExVtbl RefObjVtbl
= {
958 DispatchEx_QueryInterface
,
961 DispatchEx_GetTypeInfoCount
,
962 DispatchEx_GetTypeInfo
,
963 DispatchEx_GetIDsOfNames
,
965 DispatchEx_GetDispID
,
967 DispatchEx_DeleteMemberByName
,
968 DispatchEx_DeleteMemberByDispID
,
969 DispatchEx_GetMemberProperties
,
970 DispatchEx_GetMemberName
,
971 DispatchEx_GetNextDispID
,
972 DispatchEx_GetNameSpaceParent
975 static IDispatchEx RefObj
= { &RefObjVtbl
};
977 static HRESULT WINAPI
Global_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
979 if(!strcmp_wa(bstrName
, "ok")) {
980 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
981 *pid
= DISPID_GLOBAL_OK
;
984 if(!strcmp_wa(bstrName
, "todo_wine_ok")) {
985 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
986 *pid
= DISPID_GLOBAL_TODO_WINE_OK
;
989 if(!strcmp_wa(bstrName
, "trace")) {
990 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
991 *pid
= DISPID_GLOBAL_TRACE
;
994 if(!strcmp_wa(bstrName
, "reportSuccess")) {
995 CHECK_EXPECT(global_success_d
);
996 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
997 *pid
= DISPID_GLOBAL_REPORTSUCCESS
;
1000 if(!strcmp_wa(bstrName
, "getVT")) {
1001 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1002 *pid
= DISPID_GLOBAL_GETVT
;
1005 if(!strcmp_wa(bstrName
, "isEnglishLang")) {
1006 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1007 *pid
= DISPID_GLOBAL_ISENGLANG
;
1010 if(!strcmp_wa(bstrName
, "firstDayOfWeek")) {
1011 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1012 *pid
= DISPID_GLOBAL_WEEKSTARTDAY
;
1015 if(!strcmp_wa(bstrName
, "testObj")) {
1016 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1017 *pid
= DISPID_GLOBAL_TESTOBJ
;
1020 if(!strcmp_wa(bstrName
, "collectionObj")) {
1021 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1022 *pid
= DISPID_GLOBAL_COLLOBJ
;
1025 if(!strcmp_wa(bstrName
, "vbvar")) {
1026 CHECK_EXPECT(global_vbvar_d
);
1027 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1028 *pid
= DISPID_GLOBAL_VBVAR
;
1031 if(!strcmp_wa(bstrName
, "letobj")) {
1032 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1033 *pid
= DISPID_GLOBAL_LETOBJ
;
1036 if(!strcmp_wa(bstrName
, "setobj")) {
1037 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1038 *pid
= DISPID_GLOBAL_SETOBJ
;
1041 if(!strcmp_wa(bstrName
, "isNullDisp")) {
1042 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1043 *pid
= DISPID_GLOBAL_ISNULLDISP
;
1046 if(!strcmp_wa(bstrName
, "testDisp")) {
1047 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1048 *pid
= DISPID_GLOBAL_TESTDISP
;
1051 if(!strcmp_wa(bstrName
, "RefObj")) {
1052 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1053 *pid
= DISPID_GLOBAL_REFOBJ
;
1056 if(!strcmp_wa(bstrName
, "propargput")) {
1057 CHECK_EXPECT(global_propargput_d
);
1058 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1059 *pid
= DISPID_GLOBAL_PROPARGPUT
;
1062 if(!strcmp_wa(bstrName
, "propargput1")) {
1063 CHECK_EXPECT(global_propargput1_d
);
1064 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1065 *pid
= DISPID_GLOBAL_PROPARGPUT1
;
1068 if(!strcmp_wa(bstrName
, "counter")) {
1069 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1070 *pid
= DISPID_GLOBAL_COUNTER
;
1073 if(!strcmp_wa(bstrName
, "doubleAsString")) {
1074 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1075 *pid
= DISPID_GLOBAL_DOUBLEASSTRING
;
1078 if(!strcmp_wa(bstrName
, "testArray")) {
1079 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1080 *pid
= DISPID_GLOBAL_TESTARRAY
;
1083 if(!strcmp_wa(bstrName
, "throwInt")) {
1084 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1085 *pid
= DISPID_GLOBAL_THROWINT
;
1088 if(!strcmp_wa(bstrName
, "testOptionalArg")) {
1089 test_grfdex(grfdex
, fdexNameCaseInsensitive
);
1090 *pid
= DISPID_GLOBAL_TESTOPTIONALARG
;
1094 if(strict_dispid_check
&& strcmp_wa(bstrName
, "x"))
1095 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName
), grfdex
);
1096 return DISP_E_UNKNOWNNAME
;
1099 static HRESULT WINAPI
Global_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
1100 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
1103 case DISPID_GLOBAL_TODO_WINE_OK
:
1104 case DISPID_GLOBAL_OK
: {
1107 ok(wFlags
== INVOKE_FUNC
|| wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
1108 ok(pdp
!= NULL
, "pdp == NULL\n");
1109 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1110 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1111 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
1112 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1113 if(wFlags
& INVOKE_PROPERTYGET
)
1114 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1116 ok(!pvarRes
, "pvarRes != NULL\n");
1117 ok(pei
!= NULL
, "pei == NULL\n");
1119 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1122 if(V_VT(b
) == (VT_BYREF
|VT_VARIANT
))
1125 ok(V_VT(b
) == VT_BOOL
, "V_VT(b) = %d\n", V_VT(b
));
1127 todo_wine_if(id
== DISPID_GLOBAL_TODO_WINE_OK
)
1128 ok(V_BOOL(b
), "%s: %s\n", test_name
, wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
1132 case DISPID_GLOBAL_TRACE
:
1133 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1134 ok(pdp
!= NULL
, "pdp == NULL\n");
1135 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1136 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1137 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1138 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1139 ok(!pvarRes
, "pvarRes != NULL\n");
1140 ok(pei
!= NULL
, "pei == NULL\n");
1142 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1143 if(V_VT(pdp
->rgvarg
) == VT_BSTR
)
1144 trace("%s: %s\n", test_name
, wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
1148 case DISPID_GLOBAL_REPORTSUCCESS
:
1149 CHECK_EXPECT(global_success_i
);
1151 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1152 ok(pdp
!= NULL
, "pdp == NULL\n");
1153 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1154 ok(pdp
->cArgs
== 0, "cArgs = %d\n", pdp
->cArgs
);
1155 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1156 ok(!pvarRes
, "pvarRes != NULL\n");
1157 ok(pei
!= NULL
, "pei == NULL\n");
1161 case DISPID_GLOBAL_GETVT
:
1162 ok(pdp
!= NULL
, "pdp == NULL\n");
1163 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1164 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1165 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1166 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1167 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1168 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
1169 ok(pei
!= NULL
, "pei == NULL\n");
1171 V_VT(pvarRes
) = VT_BSTR
;
1172 V_BSTR(pvarRes
) = a2bstr(vt2a(pdp
->rgvarg
));
1175 case DISPID_GLOBAL_ISENGLANG
:
1176 ok(wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
1177 ok(pdp
!= NULL
, "pdp == NULL\n");
1178 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1179 ok(pdp
->cArgs
== 0, "cArgs = %d\n", pdp
->cArgs
);
1180 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1181 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1182 ok(pei
!= NULL
, "pei == NULL\n");
1184 V_VT(pvarRes
) = VT_BOOL
;
1185 V_BOOL(pvarRes
) = is_english
? VARIANT_TRUE
: VARIANT_FALSE
;
1188 case DISPID_GLOBAL_WEEKSTARTDAY
:
1189 V_VT(pvarRes
) = VT_I4
;
1190 V_I4(pvarRes
) = first_day_of_week
;
1193 case DISPID_GLOBAL_VBVAR
:
1194 CHECK_EXPECT(global_vbvar_i
);
1196 ok(wFlags
== DISPATCH_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
1197 ok(pdp
!= NULL
, "pdp == NULL\n");
1198 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1199 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
1200 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1201 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1202 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
1203 ok(!pvarRes
, "pvarRes != NULL\n");
1204 ok(pei
!= NULL
, "pei == NULL\n");
1206 ok(V_VT(pdp
->rgvarg
) == VT_I2
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1207 ok(V_I2(pdp
->rgvarg
) == 3, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp
->rgvarg
));
1210 case DISPID_GLOBAL_LETOBJ
:
1211 CHECK_EXPECT(global_letobj_i
);
1213 ok(wFlags
== DISPATCH_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
1214 ok(pdp
!= NULL
, "pdp == NULL\n");
1215 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1216 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
1217 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1218 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1219 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
1220 ok(!pvarRes
, "pvarRes != NULL\n");
1221 ok(pei
!= NULL
, "pei == NULL\n");
1223 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1224 ok(V_DISPATCH(pdp
->rgvarg
) == (IDispatch
*)&testObj
, "V_DISPATCH(psp->rgvargs) != testObj\n");
1227 case DISPID_GLOBAL_SETOBJ
:
1228 CHECK_EXPECT(global_setobj_i
);
1230 ok(wFlags
== DISPATCH_PROPERTYPUTREF
, "wFlags = %x\n", wFlags
);
1231 ok(pdp
!= NULL
, "pdp == NULL\n");
1232 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1233 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
1234 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1235 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1236 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
1237 ok(!pvarRes
, "pvarRes != NULL\n");
1238 ok(pei
!= NULL
, "pei == NULL\n");
1240 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1241 ok(V_DISPATCH(pdp
->rgvarg
) == (IDispatch
*)&testObj
, "V_DISPATCH(psp->rgvargs) != testObj\n");
1244 case DISPID_GLOBAL_TESTOBJ
:
1245 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
1247 ok(pdp
!= NULL
, "pdp == NULL\n");
1248 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
1249 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1250 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
1251 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1252 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1253 ok(pei
!= NULL
, "pei == NULL\n");
1255 V_VT(pvarRes
) = VT_DISPATCH
;
1256 V_DISPATCH(pvarRes
) = (IDispatch
*)&testObj
;
1259 case DISPID_GLOBAL_COLLOBJ
:
1260 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
1262 ok(pdp
!= NULL
, "pdp == NULL\n");
1263 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
1264 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1265 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
1266 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1267 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1268 ok(pei
!= NULL
, "pei == NULL\n");
1270 V_VT(pvarRes
) = VT_DISPATCH
;
1271 V_DISPATCH(pvarRes
) = (IDispatch
*)&collectionObj
;
1274 case DISPID_GLOBAL_REFOBJ
:
1275 ok(wFlags
== (DISPATCH_PROPERTYGET
|DISPATCH_METHOD
), "wFlags = %x\n", wFlags
);
1277 ok(pdp
!= NULL
, "pdp == NULL\n");
1278 ok(!pdp
->rgvarg
, "rgvarg == NULL\n");
1279 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1280 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
1281 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1282 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1283 ok(pei
!= NULL
, "pei == NULL\n");
1285 IDispatchEx_AddRef(&RefObj
);
1286 V_VT(pvarRes
) = VT_DISPATCH
;
1287 V_DISPATCH(pvarRes
) = (IDispatch
*)&RefObj
;
1290 case DISPID_GLOBAL_ISNULLDISP
: {
1293 ok(wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
1294 ok(pdp
!= NULL
, "pdp == NULL\n");
1295 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1296 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1297 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1298 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1299 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1300 ok(pei
!= NULL
, "pei == NULL\n");
1303 if(V_VT(v
) == (VT_VARIANT
|VT_BYREF
))
1304 v
= V_VARIANTREF(v
);
1306 ok(V_VT(v
) == VT_DISPATCH
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1307 V_VT(pvarRes
) = VT_BOOL
;
1308 V_BOOL(pvarRes
) = V_DISPATCH(v
) ? VARIANT_FALSE
: VARIANT_TRUE
;
1312 case DISPID_GLOBAL_TESTDISP
:
1313 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1314 ok(pdp
!= NULL
, "pdp == NULL\n");
1315 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1316 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1317 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1318 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1319 ok(!pvarRes
, "pvarRes != NULL\n");
1320 ok(pei
!= NULL
, "pei == NULL\n");
1322 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1323 test_disp(V_DISPATCH(pdp
->rgvarg
));
1326 case DISPID_GLOBAL_PROPARGPUT
:
1327 CHECK_EXPECT(global_propargput_i
);
1329 ok(wFlags
== DISPATCH_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
1330 ok(pdp
!= NULL
, "pdp == NULL\n");
1331 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1332 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
1333 ok(pdp
->cArgs
== 3, "cArgs = %d\n", pdp
->cArgs
);
1334 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1335 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
1336 ok(!pvarRes
, "pvarRes != NULL\n");
1337 ok(pei
!= NULL
, "pei == NULL\n");
1339 ok(V_VT(pdp
->rgvarg
) == VT_I2
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1340 ok(V_I2(pdp
->rgvarg
) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp
->rgvarg
));
1342 ok(V_VT(pdp
->rgvarg
+1) == VT_I2
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
+1));
1343 ok(V_I2(pdp
->rgvarg
+1) == 2, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp
->rgvarg
+1));
1345 ok(V_VT(pdp
->rgvarg
+2) == VT_I2
, "V_VT(psp->rgvargs+2) = %d\n", V_VT(pdp
->rgvarg
+2));
1346 ok(V_I2(pdp
->rgvarg
+2) == 1, "V_I2(psp->rgvargs+2) = %d\n", V_I2(pdp
->rgvarg
+2));
1349 case DISPID_GLOBAL_PROPARGPUT1
:
1350 CHECK_EXPECT(global_propargput1_i
);
1352 ok(wFlags
== DISPATCH_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
1353 ok(pdp
!= NULL
, "pdp == NULL\n");
1354 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1355 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
1356 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
1357 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1358 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
1359 ok(!pvarRes
, "pvarRes != NULL\n");
1360 ok(pei
!= NULL
, "pei == NULL\n");
1362 ok(V_VT(pdp
->rgvarg
) == VT_I2
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1363 ok(V_I2(pdp
->rgvarg
) == 0, "V_I2(psp->rgvargs) = %d\n", V_I2(pdp
->rgvarg
));
1365 ok(V_VT(pdp
->rgvarg
+1) == VT_I2
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
+1));
1366 ok(V_I2(pdp
->rgvarg
+1) == 1, "V_I2(psp->rgvargs+1) = %d\n", V_I2(pdp
->rgvarg
+1));
1370 case DISPID_GLOBAL_COUNTER
:
1371 ok(pdp
!= NULL
, "pdp == NULL\n");
1372 todo_wine
ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1373 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1374 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
1375 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1376 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1377 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
1378 ok(pei
!= NULL
, "pei == NULL\n");
1380 V_VT(pvarRes
) = VT_I2
;
1381 V_I2(pvarRes
) = test_counter
++;
1384 case DISPID_GLOBAL_DOUBLEASSTRING
:
1385 ok(wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
1386 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1387 ok(V_VT(pdp
->rgvarg
) == VT_R8
, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp
->rgvarg
));
1388 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
1390 V_VT(pvarRes
) = VT_BSTR
;
1391 return VarBstrFromR8(V_R8(pdp
->rgvarg
), 0, 0, &V_BSTR(pvarRes
));
1393 case DISPID_GLOBAL_TESTARRAY
:
1394 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1395 ok(pdp
!= NULL
, "pdp == NULL\n");
1396 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1397 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1398 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
1399 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1400 ok(!pvarRes
, "pvarRes != NULL\n");
1401 ok(pei
!= NULL
, "pei == NULL\n");
1403 ok(V_VT(pdp
->rgvarg
+1) == VT_I2
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
+1));
1404 ok(V_VT(pdp
->rgvarg
) == (VT_BYREF
|VT_VARIANT
), "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
1405 ok(V_VT(V_VARIANTREF(pdp
->rgvarg
)) == (VT_ARRAY
|VT_BYREF
|VT_VARIANT
),
1406 "V_VT(V_VARIANTREF(psp->rgvargs)) = %d\n", V_VT(V_VARIANTREF(pdp
->rgvarg
)));
1407 if(V_I2(pdp
->rgvarg
+1) == -1)
1408 ok(!*V_ARRAYREF(V_VARIANTREF(pdp
->rgvarg
)), "*V_ARRAYREF(V_VARIANTREF(pdp->rgvarg)) != NULL\n");
1410 test_safearray(*V_ARRAYREF(V_VARIANTREF(pdp
->rgvarg
)), V_I2(pdp
->rgvarg
+1));
1413 case DISPID_GLOBAL_THROWINT
: {
1414 VARIANT
*v
= pdp
->rgvarg
;
1417 ok((wFlags
& ~INVOKE_PROPERTYGET
) == INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1418 ok(pdp
!= NULL
, "pdp == NULL\n");
1419 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1420 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1421 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
1422 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1423 ok(pei
!= NULL
, "pei == NULL\n");
1425 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
1426 V_VT(pvarRes
) = VT_BOOL
;
1427 V_BOOL(pvarRes
) = VARIANT_FALSE
;
1430 if(V_VT(v
) == (VT_VARIANT
|VT_BYREF
))
1431 v
= V_VARIANTREF(v
);
1441 ok(0, "unexpected vt %d\n", V_VT(v
));
1442 return E_INVALIDARG
;
1448 case DISPID_GLOBAL_TESTOPTIONALARG
: {
1452 CHECK_EXPECT(global_testoptionalarg_i
);
1454 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
1455 ok(pdp
!= NULL
, "pdp == NULL\n");
1456 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
1457 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
1458 ok(pdp
->cArgs
== 3, "cArgs = %d\n", pdp
->cArgs
);
1459 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
1460 ok(!pvarRes
, "pvarRes != NULL\n");
1461 ok(pei
!= NULL
, "pei == NULL\n");
1463 ok(V_VT(pdp
->rgvarg
) == VT_I2
, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp
->rgvarg
));
1464 opt
= V_I2(pdp
->rgvarg
);
1465 ok(opt
== 1 || opt
== 2, "opt = %d\n", opt
);
1466 v
= pdp
->rgvarg
+pdp
->cArgs
-opt
;
1467 ok(V_VT(v
) == VT_ERROR
, "V_VT(v) = %d\n", V_VT(v
));
1468 ok(V_ERROR(v
) == DISP_E_PARAMNOTFOUND
, "V_ERROR(v) = %08x\n", V_ERROR(v
));
1473 ok(0, "unexpected call %d\n", id
);
1474 return DISP_E_MEMBERNOTFOUND
;
1477 static IDispatchExVtbl GlobalVtbl
= {
1478 DispatchEx_QueryInterface
,
1481 DispatchEx_GetTypeInfoCount
,
1482 DispatchEx_GetTypeInfo
,
1483 DispatchEx_GetIDsOfNames
,
1487 DispatchEx_DeleteMemberByName
,
1488 DispatchEx_DeleteMemberByDispID
,
1489 DispatchEx_GetMemberProperties
,
1490 DispatchEx_GetMemberName
,
1491 DispatchEx_GetNextDispID
,
1492 DispatchEx_GetNameSpaceParent
1495 static IDispatchEx Global
= { &GlobalVtbl
};
1497 static HRESULT WINAPI
ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow
*iface
, REFIID riid
, void **ppv
)
1499 ok(0, "unexpected call\n");
1500 return E_NOINTERFACE
;
1503 static ULONG WINAPI
ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow
*iface
)
1508 static ULONG WINAPI
ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow
*iface
)
1513 static HRESULT WINAPI
ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow
*iface
, HWND
*phwnd
)
1516 CHECK_EXPECT(GetWindow
);
1521 static HRESULT WINAPI
ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow
*iface
, BOOL fEnable
)
1526 CHECK_EXPECT(EnableModeless
);
1527 ok(!fEnable
, "fEnable = %x\n", fEnable
);
1531 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl
= {
1532 ActiveScriptSiteWindow_QueryInterface
,
1533 ActiveScriptSiteWindow_AddRef
,
1534 ActiveScriptSiteWindow_Release
,
1535 ActiveScriptSiteWindow_GetWindow
,
1536 ActiveScriptSiteWindow_EnableModeless
1539 static IActiveScriptSiteWindow ActiveScriptSiteWindow
= { &ActiveScriptSiteWindowVtbl
};
1541 static HRESULT WINAPI
ActiveScriptSiteUIControl_QueryInterface(IActiveScriptSiteUIControl
*iface
, REFIID riid
, void **ppv
)
1543 ok(0, "unexpected call\n");
1544 return E_NOINTERFACE
;
1547 static ULONG WINAPI
ActiveScriptSiteUIControl_AddRef(IActiveScriptSiteUIControl
*iface
)
1552 static ULONG WINAPI
ActiveScriptSiteUIControl_Release(IActiveScriptSiteUIControl
*iface
)
1557 static HRESULT WINAPI
ActiveScriptSiteUIControl_GetUIBehavior(IActiveScriptSiteUIControl
*iface
, SCRIPTUICITEM UicItem
,
1558 SCRIPTUICHANDLING
*pUicHandling
)
1561 CHECK_EXPECT(GetUIBehavior
);
1562 ok(UicItem
== SCRIPTUICITEM_MSGBOX
, "UidItem = %d\n", UicItem
);
1564 *pUicHandling
= uic_handling
;
1568 static const IActiveScriptSiteUIControlVtbl ActiveScriptSiteUIControlVtbl
= {
1569 ActiveScriptSiteUIControl_QueryInterface
,
1570 ActiveScriptSiteUIControl_AddRef
,
1571 ActiveScriptSiteUIControl_Release
,
1572 ActiveScriptSiteUIControl_GetUIBehavior
1575 static IActiveScriptSiteUIControl ActiveScriptSiteUIControl
= { &ActiveScriptSiteUIControlVtbl
};
1577 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
1581 if(IsEqualGUID(&IID_IUnknown
, riid
))
1583 else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
))
1585 else if(IsEqualGUID(&IID_IActiveScriptSiteWindow
, riid
))
1586 *ppv
= &ActiveScriptSiteWindow
;
1587 else if(IsEqualGUID(&IID_IActiveScriptSiteUIControl
, riid
))
1588 *ppv
= &ActiveScriptSiteUIControl
;
1590 return E_NOINTERFACE
;
1592 IUnknown_AddRef((IUnknown
*)*ppv
);
1596 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
1601 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
1606 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
1608 *plcid
= GetUserDefaultLCID();
1612 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
1613 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
1615 ok(dwReturnMask
== SCRIPTINFO_IUNKNOWN
, "unexpected dwReturnMask %x\n", dwReturnMask
);
1616 ok(!ppti
, "ppti != NULL\n");
1618 if(strcmp_wa(pstrName
, "test"))
1619 ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName
));
1621 *ppiunkItem
= (IUnknown
*)&Global
;
1625 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
1630 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
1631 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
1636 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
1641 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
1643 HRESULT hr
= onerror_hres
;
1645 if(!expect_OnScriptError
) {
1650 hres
= IActiveScriptError_GetSourcePosition(pscripterror
, NULL
, &line
, NULL
);
1652 hres
= IActiveScriptError_GetExceptionInfo(pscripterror
, &info
);
1654 trace("Error in line %u: %s\n", line
+1, wine_dbgstr_w(info
.bstrDescription
));
1657 CHECK_EXPECT(OnScriptError
);
1658 onerror_hres
= E_NOTIMPL
;
1663 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
1668 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
1673 #undef ACTSCPSITE_THIS
1675 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
1676 ActiveScriptSite_QueryInterface
,
1677 ActiveScriptSite_AddRef
,
1678 ActiveScriptSite_Release
,
1679 ActiveScriptSite_GetLCID
,
1680 ActiveScriptSite_GetItemInfo
,
1681 ActiveScriptSite_GetDocVersionString
,
1682 ActiveScriptSite_OnScriptTerminate
,
1683 ActiveScriptSite_OnStateChange
,
1684 ActiveScriptSite_OnScriptError
,
1685 ActiveScriptSite_OnEnterScript
,
1686 ActiveScriptSite_OnLeaveScript
1689 static IActiveScriptSite ActiveScriptSite
= { &ActiveScriptSiteVtbl
};
1691 static IActiveScript
*create_script(void)
1693 IActiveScript
*script
;
1696 hres
= CoCreateInstance(&CLSID_VBScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
1697 &IID_IActiveScript
, (void**)&script
);
1698 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
1703 static IActiveScript
*create_and_init_script(DWORD flags
)
1705 IActiveScriptParse
*parser
;
1706 IActiveScript
*engine
;
1709 engine
= create_script();
1713 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1714 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1716 hres
= IActiveScriptParse_InitNew(parser
);
1717 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1719 IActiveScriptParse_Release(parser
);
1721 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
1722 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1724 hres
= IActiveScript_AddNamedItem(engine
, testW
,
1725 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|flags
);
1726 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1728 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1729 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1734 static void close_script(IActiveScript
*script
)
1739 hres
= IActiveScript_Close(script
);
1740 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
1742 ref
= IActiveScript_Release(script
);
1743 ok(!ref
, "ref=%u\n", ref
);
1746 static HRESULT
parse_script(DWORD flags
, BSTR script_str
, const WCHAR
*delim
)
1748 IActiveScriptParse
*parser
;
1749 IActiveScript
*engine
;
1750 IDispatch
*script_disp
;
1754 engine
= create_and_init_script(flags
);
1758 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1759 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1762 IActiveScript_Release(engine
);
1766 hres
= IActiveScript_GetScriptDispatch(engine
, NULL
, &script_disp
);
1767 ok(hres
== S_OK
, "GetScriptDispatch failed: %08x\n", hres
);
1768 ok(script_disp
!= NULL
, "script_disp == NULL\n");
1769 ok(script_disp
!= (IDispatch
*)&Global
, "script_disp == Global\n");
1773 hres
= IActiveScriptParse_ParseScriptText(parser
, script_str
, NULL
, NULL
, delim
, 0, 0, 0, NULL
, NULL
);
1775 IActiveScript_Close(engine
);
1777 IDispatch_Release(script_disp
);
1778 IActiveScript_Release(engine
);
1780 ref
= IActiveScriptParse_Release(parser
);
1781 ok(!ref
, "ref=%d\n", ref
);
1785 static void parse_script_af(DWORD flags
, const char *src
)
1791 hres
= parse_script(flags
, tmp
, NULL
);
1793 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
1796 static HRESULT
parse_script_ar(const char *src
)
1802 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, tmp
, NULL
);
1807 static void parse_script_a(const char *src
)
1809 parse_script_af(SCRIPTITEM_GLOBALMEMBERS
, src
);
1812 #define parse_htmlscript_a(a) _parse_htmlscript_a(__LINE__,a)
1813 static void _parse_htmlscript_a(unsigned line
, const char *src
)
1818 static const WCHAR script_delimW
[] = {'<','/','S','C','R','I','P','T','>',0};
1821 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, tmp
, script_delimW
);
1823 ok_(__FILE__
,line
)(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
1826 static IDispatchEx
*parse_procedure(IActiveScriptParseProcedure2
*parse_proc
, const char *src
)
1828 IDispatchEx
*dispex
;
1833 static const WCHAR delimiterW
[] = {'\"',0};
1836 hres
= IActiveScriptParseProcedure2_ParseProcedureText(parse_proc
, str
, NULL
, emptyW
, NULL
, NULL
, delimiterW
, 0, 0,
1837 SCRIPTPROC_HOSTMANAGESSOURCE
|SCRIPTPROC_IMPLICIT_THIS
|SCRIPTPROC_IMPLICIT_PARENTS
, &disp
);
1839 ok(hres
== S_OK
, "ParseProcedureText failed: %08x\n", hres
);
1840 ok(disp
!= NULL
, "disp = NULL\n");
1842 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
1843 IDispatch_Release(disp
);
1844 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
1850 static void test_procedures(void)
1852 IActiveScriptParseProcedure2
*parse_proc
;
1853 DISPPARAMS dp
= {NULL
};
1854 IActiveScript
*script
;
1860 script
= create_and_init_script(0);
1862 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParseProcedure2
, (void**)&parse_proc
);
1863 ok(hres
== S_OK
, "Could not get IActiveScriptParseProcedure2 iface: %08x\n", hres
);
1865 proc
= parse_procedure(parse_proc
, "dim x\nif true then x=false");
1867 V_VT(&v
) = VT_EMPTY
;
1868 hres
= IDispatchEx_InvokeEx(proc
, DISPID_VALUE
, 0, DISPATCH_METHOD
, &dp
, &v
, &ei
, &caller_sp
);
1869 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
1871 IDispatchEx_Release(proc
);
1873 IActiveScriptParseProcedure2_Release(parse_proc
);
1875 close_script(script
);
1878 static void test_gc(void)
1880 IActiveScriptParse
*parser
;
1881 IActiveScript
*engine
;
1885 strict_dispid_check
= FALSE
;
1887 engine
= create_script();
1891 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1892 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1894 hres
= IActiveScriptParse_InitNew(parser
);
1895 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1897 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
1898 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1900 hres
= IActiveScript_AddNamedItem(engine
, testW
,
1901 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
);
1902 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1904 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1905 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1910 " Public Sub Class_Terminate\n"
1911 " Call reportSuccess()\n"
1917 "set x = nothing\n");
1919 hres
= IActiveScriptParse_ParseScriptText(parser
, src
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
1920 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1923 SET_EXPECT(global_success_d
);
1924 SET_EXPECT(global_success_i
);
1925 IActiveScript_Close(engine
);
1926 CHECK_CALLED(global_success_d
);
1927 CHECK_CALLED(global_success_i
);
1929 IActiveScript_Release(engine
);
1930 IActiveScriptParse_Release(parser
);
1933 static void test_msgbox(void)
1937 uic_handling
= SCRIPTUICHANDLING_NOUIDEFAULT
;
1939 SET_EXPECT(GetUIBehavior
);
1940 SET_EXPECT(GetWindow
);
1941 SET_EXPECT(EnableModeless
);
1942 hres
= parse_script_ar("MsgBox \"testing...\"");
1943 CLEAR_CALLED(GetUIBehavior
);
1944 CLEAR_CALLED(GetWindow
);
1945 CLEAR_CALLED(EnableModeless
);
1947 win_skip("Skipping MsgBox tests, broken (probably too old) vbscript\n");
1951 SET_EXPECT(GetUIBehavior
);
1952 parse_script_a("dim r\n r=MsgBox(\"testing...\")\n Call ok(r=0, \"r=\"&r)");
1953 CHECK_CALLED(GetUIBehavior
);
1955 SET_EXPECT(GetUIBehavior
);
1956 parse_script_a("MsgBox 10");
1957 CHECK_CALLED(GetUIBehavior
);
1959 uic_handling
= SCRIPTUICHANDLING_ALLOW
;
1961 SET_EXPECT(GetUIBehavior
);
1962 SET_EXPECT(GetWindow
);
1963 SET_EXPECT(EnableModeless
);
1964 SET_EXPECT(OnScriptError
);
1965 hres
= parse_script_ar("MsgBox \"testing...\"");
1966 ok(FAILED(hres
), "script not failed\n");
1967 CHECK_CALLED(GetUIBehavior
);
1968 CHECK_CALLED(GetWindow
);
1969 CHECK_CALLED(EnableModeless
);
1970 todo_wine
CHECK_CALLED(OnScriptError
);
1972 uic_handling
= SCRIPTUICHANDLING_NOUIERROR
;
1974 SET_EXPECT(GetUIBehavior
);
1975 SET_EXPECT(OnScriptError
);
1976 hres
= parse_script_ar("MsgBox \"testing...\"");
1977 ok(FAILED(hres
), "script not failed\n");
1978 CHECK_CALLED(GetUIBehavior
);
1979 todo_wine
CHECK_CALLED(OnScriptError
);
1982 static HRESULT
test_global_vars_ref(BOOL use_close
)
1984 IActiveScriptParse
*parser
;
1985 IActiveScript
*engine
;
1990 engine
= create_script();
1994 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1995 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1998 IActiveScript_Release(engine
);
2002 hres
= IActiveScriptParse_InitNew(parser
);
2003 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
2005 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
2006 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
2008 hres
= IActiveScript_AddNamedItem(engine
, testW
, SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
);
2009 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
2011 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
2012 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
2016 script_str
= a2bstr("Dim x\nset x = RefObj\n");
2017 hres
= IActiveScriptParse_ParseScriptText(parser
, script_str
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
2018 SysFreeString(script_str
);
2020 ok(refobj_ref
, "refobj_ref = 0\n");
2023 hres
= IActiveScript_Close(engine
);
2024 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
2026 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_UNINITIALIZED
);
2027 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
2030 ok(!refobj_ref
, "refobj_ref = %d\n", refobj_ref
);
2032 IActiveScript_Release(engine
);
2034 ref
= IActiveScriptParse_Release(parser
);
2035 ok(!ref
, "ref=%d\n", ref
);
2039 static BSTR
get_script_from_file(const char *filename
)
2043 const char *file_map
;
2046 file
= CreateFileA(filename
, GENERIC_READ
, 0, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_READONLY
, NULL
);
2047 if(file
== INVALID_HANDLE_VALUE
) {
2048 trace("Could not open file: %u\n", GetLastError());
2052 size
= GetFileSize(file
, NULL
);
2054 map
= CreateFileMappingW(file
, NULL
, PAGE_READONLY
, 0, 0, NULL
);
2056 if(map
== INVALID_HANDLE_VALUE
) {
2057 trace("Could not create file mapping: %u\n", GetLastError());
2061 file_map
= MapViewOfFile(map
, FILE_MAP_READ
, 0, 0, 0);
2064 trace("MapViewOfFile failed: %u\n", GetLastError());
2068 len
= MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, NULL
, 0);
2069 ret
= SysAllocStringLen(NULL
, len
);
2070 MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, ret
, len
);
2072 UnmapViewOfFile(file_map
);
2077 static void run_from_file(const char *filename
)
2082 script_str
= get_script_from_file(filename
);
2086 strict_dispid_check
= FALSE
;
2087 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, script_str
, NULL
);
2088 SysFreeString(script_str
);
2089 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
2092 static void run_from_res(const char *name
)
2100 strict_dispid_check
= FALSE
;
2103 src
= FindResourceA(NULL
, name
, (LPCSTR
)40);
2104 ok(src
!= NULL
, "Could not find resource %s\n", name
);
2106 size
= SizeofResource(NULL
, src
);
2107 data
= LoadResource(NULL
, src
);
2109 len
= MultiByteToWideChar(CP_ACP
, 0, data
, size
, NULL
, 0);
2110 str
= SysAllocStringLen(NULL
, len
);
2111 MultiByteToWideChar(CP_ACP
, 0, data
, size
, str
, len
);
2113 SET_EXPECT(global_success_d
);
2114 SET_EXPECT(global_success_i
);
2115 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, str
, NULL
);
2116 CHECK_CALLED(global_success_d
);
2117 CHECK_CALLED(global_success_i
);
2119 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
2123 static void run_tests(void)
2127 strict_dispid_check
= TRUE
;
2130 parse_script_a("' empty ;");
2132 SET_EXPECT(global_success_d
);
2133 SET_EXPECT(global_success_i
);
2134 parse_script_a("reportSuccess");
2135 CHECK_CALLED(global_success_d
);
2136 CHECK_CALLED(global_success_i
);
2138 SET_EXPECT(global_success_d
);
2139 SET_EXPECT(global_success_i
);
2140 parse_script_a("reportSuccess()");
2141 CHECK_CALLED(global_success_d
);
2142 CHECK_CALLED(global_success_i
);
2144 SET_EXPECT(global_success_d
);
2145 SET_EXPECT(global_success_i
);
2146 parse_script_a("Call reportSuccess");
2147 CHECK_CALLED(global_success_d
);
2148 CHECK_CALLED(global_success_i
);
2150 SET_EXPECT(global_success_d
);
2151 SET_EXPECT(global_success_i
);
2152 parse_script_a("test.reportSuccess()");
2153 CHECK_CALLED(global_success_d
);
2154 CHECK_CALLED(global_success_i
);
2156 SET_EXPECT(global_success_d
);
2157 SET_EXPECT(global_success_i
);
2158 parse_script_af(0, "TEST.reportSuccess()");
2159 CHECK_CALLED(global_success_d
);
2160 CHECK_CALLED(global_success_i
);
2162 SET_EXPECT(global_vbvar_d
);
2163 SET_EXPECT(global_vbvar_i
);
2164 parse_script_a("Option Explicit\nvbvar = 3");
2165 CHECK_CALLED(global_vbvar_d
);
2166 CHECK_CALLED(global_vbvar_i
);
2168 SET_EXPECT(global_vbvar_d
);
2169 SET_EXPECT(global_vbvar_i
);
2170 parse_script_a("Option Explicit\nvbvar() = 3");
2171 CHECK_CALLED(global_vbvar_d
);
2172 CHECK_CALLED(global_vbvar_i
);
2174 SET_EXPECT(global_letobj_i
);
2175 parse_script_a("Option Explicit\nletobj = testObj");
2176 CHECK_CALLED(global_letobj_i
);
2178 SET_EXPECT(global_letobj_i
);
2179 parse_script_a("Option Explicit\ntest.letobj = testObj");
2180 CHECK_CALLED(global_letobj_i
);
2182 SET_EXPECT(global_setobj_i
);
2183 parse_script_a("Option Explicit\nset setobj = testObj");
2184 CHECK_CALLED(global_setobj_i
);
2186 SET_EXPECT(global_setobj_i
);
2187 parse_script_a("Option Explicit\nset test.setobj = testObj");
2188 CHECK_CALLED(global_setobj_i
);
2190 SET_EXPECT(testobj_propget_d
);
2191 SET_EXPECT(testobj_propget_i
);
2192 parse_script_a("dim x\nx = testObj.propget");
2193 CHECK_CALLED(testobj_propget_d
);
2194 CHECK_CALLED(testobj_propget_i
);
2196 SET_EXPECT(testobj_propput_d
);
2197 SET_EXPECT(testobj_propput_i
);
2198 parse_script_a("testObj.propput = 1");
2199 CHECK_CALLED(testobj_propput_d
);
2200 CHECK_CALLED(testobj_propput_i
);
2202 SET_EXPECT(global_propargput_d
);
2203 SET_EXPECT(global_propargput_i
);
2204 parse_script_a("propargput(counter(), counter()) = counter()");
2205 CHECK_CALLED(global_propargput_d
);
2206 CHECK_CALLED(global_propargput_i
);
2208 SET_EXPECT(global_propargput_d
);
2209 SET_EXPECT(global_propargput_i
);
2210 parse_script_a("test.propargput(counter(), counter()) = counter()");
2211 CHECK_CALLED(global_propargput_d
);
2212 CHECK_CALLED(global_propargput_i
);
2214 SET_EXPECT(global_propargput1_d
);
2215 SET_EXPECT(global_propargput1_i
);
2216 parse_script_a("propargput1 (counter()) = counter()");
2217 CHECK_CALLED(global_propargput1_d
);
2218 CHECK_CALLED(global_propargput1_i
);
2220 SET_EXPECT(global_propargput1_d
);
2221 SET_EXPECT(global_propargput1_i
);
2222 parse_script_a("test.propargput1(counter()) = counter()");
2223 CHECK_CALLED(global_propargput1_d
);
2224 CHECK_CALLED(global_propargput1_i
);
2226 parse_htmlscript_a("<!--");
2227 parse_htmlscript_a(" -->");
2228 parse_htmlscript_a("<!--\ndim x\nx=1\n-->\n");
2229 parse_htmlscript_a("<!--\ndim x\n-->\n<!--\nx=1\n-->\n");
2231 SET_EXPECT(OnScriptError
);
2232 hres
= parse_script_ar("<!--");
2233 ok(FAILED(hres
), "script didn't fail\n");
2234 todo_wine
CHECK_CALLED(OnScriptError
);
2236 SET_EXPECT(global_success_d
);
2237 SET_EXPECT(global_success_i
);
2238 parse_htmlscript_a("<!--\n<!-- ignore this <> <>\n--> <>\nCall reportSuccess()\n-->\n");
2239 CHECK_CALLED(global_success_d
);
2240 CHECK_CALLED(global_success_i
);
2243 SET_EXPECT(collectionobj_newenum_i
);
2245 parse_script_a("for each x in collectionObj\nnext");
2246 CHECK_CALLED(collectionobj_newenum_i
);
2248 ok(next_cnt
== 4, "next_cnt = %d\n", next_cnt
);
2250 parse_script_a("x = 1\n Call ok(x = 1, \"x = \" & x)");
2252 parse_script_a("x = _ \n3");
2254 test_global_vars_ref(TRUE
);
2255 test_global_vars_ref(FALSE
);
2257 SET_EXPECT(OnScriptError
);
2258 hres
= parse_script_ar("throwInt(&h80080008&)");
2259 ok(hres
== 0x80080008, "hres = %08x\n", hres
);
2260 todo_wine
CHECK_CALLED(OnScriptError
);
2262 /* DISP_E_BADINDEX */
2263 SET_EXPECT(OnScriptError
);
2264 hres
= parse_script_ar("throwInt(&h8002000b&)");
2265 ok(hres
== MAKE_VBSERROR(9), "hres = %08x\n", hres
);
2266 todo_wine
CHECK_CALLED(OnScriptError
);
2268 SET_EXPECT(OnScriptError
);
2269 hres
= parse_script_ar("throwInt(&h800a0009&)");
2270 ok(hres
== MAKE_VBSERROR(9), "hres = %08x\n", hres
);
2271 todo_wine
CHECK_CALLED(OnScriptError
);
2273 onerror_hres
= S_OK
;
2274 SET_EXPECT(OnScriptError
);
2275 hres
= parse_script_ar("throwInt(&h800a0009&)");
2276 todo_wine
ok(hres
== SCRIPT_E_REPORTED
, "hres = %08x\n", hres
);
2277 todo_wine
CHECK_CALLED(OnScriptError
);
2280 SET_EXPECT(OnScriptError
);
2281 hres
= parse_script_ar("throwInt(&h80004001&)");
2282 ok(hres
== MAKE_VBSERROR(445), "hres = %08x\n", hres
);
2283 todo_wine
CHECK_CALLED(OnScriptError
);
2285 onerror_hres
= S_OK
;
2286 SET_EXPECT(OnScriptError
);
2287 hres
= parse_script_ar("throwInt(&h80004001&)");
2288 todo_wine
ok(hres
== SCRIPT_E_REPORTED
, "hres = %08x\n", hres
);
2289 todo_wine
CHECK_CALLED(OnScriptError
);
2291 SET_EXPECT(global_testoptionalarg_i
);
2292 parse_script_a("call testOptionalArg(1,,2)");
2293 CHECK_CALLED(global_testoptionalarg_i
);
2295 SET_EXPECT(global_testoptionalarg_i
);
2296 parse_script_a("call testOptionalArg(,1,1)");
2297 CHECK_CALLED(global_testoptionalarg_i
);
2299 SET_EXPECT(global_testoptionalarg_i
);
2300 parse_script_a("testOptionalArg 1,,2");
2301 CHECK_CALLED(global_testoptionalarg_i
);
2303 strict_dispid_check
= FALSE
;
2305 SET_EXPECT(testobj_value_i
);
2306 parse_script_a("dim n,o\n set o = testObj\n n = o(1,2)\n call ok(n=2, \"n = \" & n)\n");
2307 CHECK_CALLED(testobj_value_i
);
2309 SET_EXPECT(testobj_value_i
);
2310 parse_script_a("dim n,o\n set o = testObj\n n = o\n call ok(n=0, \"n = \" & n)\n");
2311 CHECK_CALLED(testobj_value_i
);
2313 parse_script_a("Sub testsub\n"
2315 "Call ok(x = 1, \"x = \" & x)\n"
2319 parse_script_a("Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n");
2320 parse_script_a("Call ok(x = \"\", \"x = \" & x)\n");
2321 parse_script_a("x = y\n"
2322 "Call ok(getVT(x) = \"VT_EMPTY*\", \"getVT(x) = \" & getVT(x))\n"
2323 "Call ok(getVT(y) = \"VT_EMPTY*\", \"getVT(y) = \" & getVT(y))");
2324 SET_EXPECT(OnScriptError
);
2325 hres
= parse_script_ar("x = y(\"a\")");
2326 ok(FAILED(hres
), "script didn't fail\n");
2327 todo_wine
CHECK_CALLED(OnScriptError
);
2329 run_from_res("lang.vbs");
2330 run_from_res("api.vbs");
2331 run_from_res("regexp.vbs");
2332 run_from_res("error.vbs");
2339 static BOOL
check_vbscript(void)
2345 hres
= CoCreateInstance(&CLSID_VBScriptRegExp
, NULL
,
2346 CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
2347 &IID_IUnknown
, (void**)&unk
);
2348 if(hres
== REGDB_E_CLASSNOTREG
)
2350 ok(hres
== S_OK
, "CoCreateInstance(CLSID_VBScriptRegExp) failed: %x\n", hres
);
2352 hres
= IUnknown_QueryInterface(unk
, &IID_IRegExp2
, (void**)®exp
);
2354 IRegExp2_Release(regexp
);
2355 IUnknown_Release(unk
);
2357 return hres
== S_OK
;
2367 skip("Skipping some tests in non-English locale\n");
2369 argc
= winetest_get_mainargs(&argv
);
2373 if(!check_vbscript()) {
2374 win_skip("Broken engine, probably too old\n");
2375 }else if(argc
> 2) {
2377 uic_handling
= SCRIPTUICHANDLING_ALLOW
;
2378 run_from_file(argv
[2]);