2 * Copyright 2008 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 "wine/test.h"
30 static const CLSID CLSID_JScript
=
31 {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
33 #define DEFINE_EXPECT(func) \
34 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
36 #define SET_EXPECT(func) \
37 expect_ ## func = TRUE
39 #define SET_CALLED(func) \
40 called_ ## func = TRUE
42 #define CHECK_EXPECT2(func) \
44 ok(expect_ ##func, "unexpected call " #func "\n"); \
45 called_ ## func = TRUE; \
48 #define CHECK_EXPECT(func) \
50 CHECK_EXPECT2(func); \
51 expect_ ## func = FALSE; \
54 #define CHECK_CALLED(func) \
56 ok(called_ ## func, "expected " #func "\n"); \
57 expect_ ## func = called_ ## func = FALSE; \
60 DEFINE_EXPECT(global_propget_d
);
61 DEFINE_EXPECT(global_propget_i
);
62 DEFINE_EXPECT(global_propput_d
);
63 DEFINE_EXPECT(global_propput_i
);
64 DEFINE_EXPECT(global_success_d
);
65 DEFINE_EXPECT(global_success_i
);
66 DEFINE_EXPECT(global_notexists_d
);
67 DEFINE_EXPECT(puredisp_prop_d
);
68 DEFINE_EXPECT(puredisp_noprop_d
);
69 DEFINE_EXPECT(testobj_delete
);
70 DEFINE_EXPECT(testobj_value
);
71 DEFINE_EXPECT(testobj_prop_d
);
72 DEFINE_EXPECT(testobj_noprop_d
);
73 DEFINE_EXPECT(testobj_onlydispid_d
);
74 DEFINE_EXPECT(testobj_onlydispid_i
);
75 DEFINE_EXPECT(GetItemInfo_testVal
);
76 DEFINE_EXPECT(ActiveScriptSite_OnScriptError
);
77 DEFINE_EXPECT(invoke_func
);
79 #define DISPID_GLOBAL_TESTPROPGET 0x1000
80 #define DISPID_GLOBAL_TESTPROPPUT 0x1001
81 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
82 #define DISPID_GLOBAL_TRACE 0x1003
83 #define DISPID_GLOBAL_OK 0x1004
84 #define DISPID_GLOBAL_GETVT 0x1005
85 #define DISPID_GLOBAL_TESTOBJ 0x1006
86 #define DISPID_GLOBAL_NULL_BSTR 0x1007
87 #define DISPID_GLOBAL_NULL_DISP 0x1008
88 #define DISPID_GLOBAL_TESTTHIS 0x1009
89 #define DISPID_GLOBAL_TESTTHIS2 0x100a
90 #define DISPID_GLOBAL_INVOKEVERSION 0x100b
91 #define DISPID_GLOBAL_CREATEARRAY 0x100c
92 #define DISPID_GLOBAL_PROPGETFUNC 0x100d
93 #define DISPID_GLOBAL_OBJECT_FLAG 0x100e
94 #define DISPID_GLOBAL_ISWIN64 0x100f
95 #define DISPID_GLOBAL_PUREDISP 0x1010
97 #define DISPID_TESTOBJ_PROP 0x2000
98 #define DISPID_TESTOBJ_ONLYDISPID 0x2001
100 static const WCHAR testW
[] = {'t','e','s','t',0};
101 static const CHAR testA
[] = "test";
102 static const WCHAR test_valW
[] = {'t','e','s','t','V','a','l',0};
103 static const CHAR test_valA
[] = "testVal";
105 static BOOL strict_dispid_check
;
106 static const char *test_name
= "(null)";
107 static IDispatch
*script_disp
;
108 static int invoke_version
;
109 static IActiveScriptError
*script_error
;
111 static BSTR
a2bstr(const char *str
)
116 len
= MultiByteToWideChar(CP_ACP
, 0, str
, -1, NULL
, 0);
117 ret
= SysAllocStringLen(NULL
, len
-1);
118 MultiByteToWideChar(CP_ACP
, 0, str
, -1, ret
, len
);
123 static int strcmp_wa(LPCWSTR strw
, const char *stra
)
126 WideCharToMultiByte(CP_ACP
, 0, strw
, -1, buf
, sizeof(buf
), 0, 0);
127 return lstrcmpA(buf
, stra
);
130 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
131 static void _test_grfdex(unsigned line
, DWORD grfdex
, DWORD expect
)
133 expect
|= invoke_version
<< 28;
134 ok_(__FILE__
,line
)(grfdex
== expect
, "grfdex = %x, expected %x\n", grfdex
, expect
);
137 static HRESULT WINAPI
DispatchEx_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
141 if(IsEqualGUID(riid
, &IID_IUnknown
)
142 || IsEqualGUID(riid
, &IID_IDispatch
)
143 || IsEqualGUID(riid
, &IID_IDispatchEx
))
146 return E_NOINTERFACE
;
151 static ULONG WINAPI
DispatchEx_AddRef(IDispatchEx
*iface
)
156 static ULONG WINAPI
DispatchEx_Release(IDispatchEx
*iface
)
161 static HRESULT WINAPI
DispatchEx_GetTypeInfoCount(IDispatchEx
*iface
, UINT
*pctinfo
)
163 ok(0, "unexpected call\n");
167 static HRESULT WINAPI
DispatchEx_GetTypeInfo(IDispatchEx
*iface
, UINT iTInfo
,
168 LCID lcid
, ITypeInfo
**ppTInfo
)
170 ok(0, "unexpected call\n");
174 static HRESULT WINAPI
DispatchEx_GetIDsOfNames(IDispatchEx
*iface
, REFIID riid
,
175 LPOLESTR
*rgszNames
, UINT cNames
,
176 LCID lcid
, DISPID
*rgDispId
)
178 ok(IsEqualGUID(riid
, &IID_NULL
), "Expected IID_NULL\n");
179 ok(cNames
==1, "cNames = %d\n", cNames
);
181 if(!strcmp_wa(*rgszNames
, "prop")) {
182 CHECK_EXPECT(puredisp_prop_d
);
183 *rgDispId
= DISPID_TESTOBJ_PROP
;
185 } else if(!strcmp_wa(*rgszNames
, "noprop")) {
186 CHECK_EXPECT(puredisp_noprop_d
);
187 return DISP_E_UNKNOWNNAME
;
190 ok(0, "unexpected call\n");
194 static HRESULT WINAPI
DispatchEx_Invoke(IDispatchEx
*iface
, DISPID dispIdMember
,
195 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
196 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
198 ok(0, "unexpected call\n");
202 static HRESULT WINAPI
DispatchEx_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
204 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName
), grfdex
);
208 static HRESULT WINAPI
DispatchEx_DeleteMemberByDispID(IDispatchEx
*iface
, DISPID id
)
210 ok(0, "unexpected call\n");
214 static HRESULT WINAPI
DispatchEx_GetMemberProperties(IDispatchEx
*iface
, DISPID id
, DWORD grfdexFetch
, DWORD
*pgrfdex
)
216 ok(0, "unexpected call\n");
220 static HRESULT WINAPI
DispatchEx_GetMemberName(IDispatchEx
*iface
, DISPID id
, BSTR
*pbstrName
)
222 ok(0, "unexpected call\n");
226 static HRESULT WINAPI
DispatchEx_GetNextDispID(IDispatchEx
*iface
, DWORD grfdex
, DISPID id
, DISPID
*pid
)
228 ok(0, "unexpected call\n");
232 static HRESULT WINAPI
DispatchEx_GetNameSpaceParent(IDispatchEx
*iface
, IUnknown
**ppunk
)
234 ok(0, "unexpected call\n");
238 static HRESULT WINAPI
testObj_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
240 if(!strcmp_wa(bstrName
, "prop")) {
241 CHECK_EXPECT(testobj_prop_d
);
242 test_grfdex(grfdex
, fdexNameCaseSensitive
);
243 *pid
= DISPID_TESTOBJ_PROP
;
246 if(!strcmp_wa(bstrName
, "noprop")) {
247 CHECK_EXPECT(testobj_noprop_d
);
248 test_grfdex(grfdex
, fdexNameCaseSensitive
);
249 return DISP_E_UNKNOWNNAME
;
251 if(!strcmp_wa(bstrName
, "onlyDispID")) {
252 if(strict_dispid_check
)
253 CHECK_EXPECT(testobj_onlydispid_d
);
254 test_grfdex(grfdex
, fdexNameCaseSensitive
);
255 *pid
= DISPID_TESTOBJ_ONLYDISPID
;
259 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName
));
263 static HRESULT WINAPI
testObj_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
264 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
268 ok(pdp
!= NULL
, "pdp == NULL\n");
269 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
270 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
271 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
272 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
273 ok(pei
!= NULL
, "pei == NULL\n");
276 case INVOKE_PROPERTYGET
:
277 CHECK_EXPECT(testobj_value
);
278 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
279 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
282 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
284 case INVOKE_FUNC
|INVOKE_PROPERTYGET
:
285 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
288 ok(0, "invalid flag (%x)\n", wFlags
);
291 V_VT(pvarRes
) = VT_I4
;
294 case DISPID_TESTOBJ_ONLYDISPID
:
295 if(strict_dispid_check
)
296 CHECK_EXPECT(testobj_onlydispid_i
);
297 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
298 ok(pdp
!= NULL
, "pdp == NULL\n");
299 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
300 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
301 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
302 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
303 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
304 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
305 ok(pei
!= NULL
, "pei == NULL\n");
306 return DISP_E_MEMBERNOTFOUND
;
309 ok(0, "unexpected call %x\n", id
);
310 return DISP_E_MEMBERNOTFOUND
;
313 static HRESULT WINAPI
testObj_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
315 CHECK_EXPECT(testobj_delete
);
317 ok(!strcmp_wa(bstrName
, "deleteTest"), "unexpected name %s\n", wine_dbgstr_w(bstrName
));
318 test_grfdex(grfdex
, fdexNameCaseSensitive
);
322 static IDispatchExVtbl testObjVtbl
= {
323 DispatchEx_QueryInterface
,
326 DispatchEx_GetTypeInfoCount
,
327 DispatchEx_GetTypeInfo
,
328 DispatchEx_GetIDsOfNames
,
332 testObj_DeleteMemberByName
,
333 DispatchEx_DeleteMemberByDispID
,
334 DispatchEx_GetMemberProperties
,
335 DispatchEx_GetMemberName
,
336 DispatchEx_GetNextDispID
,
337 DispatchEx_GetNameSpaceParent
340 static IDispatchEx testObj
= { &testObjVtbl
};
342 static HRESULT WINAPI
pureDisp_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
344 if(IsEqualGUID(riid
, &IID_IUnknown
) || IsEqualGUID(riid
, &IID_IDispatch
)) {
350 return E_NOINTERFACE
;
353 static IDispatchExVtbl pureDispVtbl
= {
354 pureDisp_QueryInterface
,
357 DispatchEx_GetTypeInfoCount
,
358 DispatchEx_GetTypeInfo
,
359 DispatchEx_GetIDsOfNames
,
363 static IDispatchEx pureDisp
= { &pureDispVtbl
};
365 static HRESULT WINAPI
Global_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
367 if(!strcmp_wa(bstrName
, "ok")) {
368 test_grfdex(grfdex
, fdexNameCaseSensitive
);
369 *pid
= DISPID_GLOBAL_OK
;
372 if(!strcmp_wa(bstrName
, "trace")) {
373 test_grfdex(grfdex
, fdexNameCaseSensitive
);
374 *pid
= DISPID_GLOBAL_TRACE
;
377 if(!strcmp_wa(bstrName
, "reportSuccess")) {
378 CHECK_EXPECT(global_success_d
);
379 test_grfdex(grfdex
, fdexNameCaseSensitive
);
380 *pid
= DISPID_GLOBAL_REPORTSUCCESS
;
383 if(!strcmp_wa(bstrName
, "testPropGet")) {
384 CHECK_EXPECT(global_propget_d
);
385 test_grfdex(grfdex
, fdexNameCaseSensitive
);
386 *pid
= DISPID_GLOBAL_TESTPROPGET
;
389 if(!strcmp_wa(bstrName
, "testPropPut")) {
390 CHECK_EXPECT(global_propput_d
);
391 test_grfdex(grfdex
, fdexNameCaseSensitive
);
392 *pid
= DISPID_GLOBAL_TESTPROPPUT
;
395 if(!strcmp_wa(bstrName
, "getVT")) {
396 test_grfdex(grfdex
, fdexNameCaseSensitive
);
397 *pid
= DISPID_GLOBAL_GETVT
;
400 if(!strcmp_wa(bstrName
, "testObj")) {
401 test_grfdex(grfdex
, fdexNameCaseSensitive
);
402 *pid
= DISPID_GLOBAL_TESTOBJ
;
405 if(!strcmp_wa(bstrName
, "createNullBSTR")) {
406 *pid
= DISPID_GLOBAL_NULL_BSTR
;
409 if(!strcmp_wa(bstrName
, "nullDisp")) {
410 *pid
= DISPID_GLOBAL_NULL_DISP
;
413 if(!strcmp_wa(bstrName
, "notExists")) {
414 CHECK_EXPECT(global_notexists_d
);
415 test_grfdex(grfdex
, fdexNameCaseSensitive
);
416 return DISP_E_UNKNOWNNAME
;
419 if(!strcmp_wa(bstrName
, "testThis")) {
420 test_grfdex(grfdex
, fdexNameCaseSensitive
);
421 *pid
= DISPID_GLOBAL_TESTTHIS
;
425 if(!strcmp_wa(bstrName
, "testThis2")) {
426 test_grfdex(grfdex
, fdexNameCaseSensitive
);
427 *pid
= DISPID_GLOBAL_TESTTHIS2
;
431 if(!strcmp_wa(bstrName
, "invokeVersion")) {
432 test_grfdex(grfdex
, fdexNameCaseSensitive
);
433 *pid
= DISPID_GLOBAL_INVOKEVERSION
;
436 if(!strcmp_wa(bstrName
, "createArray")) {
437 test_grfdex(grfdex
, fdexNameCaseSensitive
);
438 *pid
= DISPID_GLOBAL_CREATEARRAY
;
441 if(!strcmp_wa(bstrName
, "propGetFunc")) {
442 test_grfdex(grfdex
, fdexNameCaseSensitive
);
443 *pid
= DISPID_GLOBAL_PROPGETFUNC
;
446 if(!strcmp_wa(bstrName
, "objectFlag")) {
447 test_grfdex(grfdex
, fdexNameCaseSensitive
);
448 *pid
= DISPID_GLOBAL_OBJECT_FLAG
;
452 if(!strcmp_wa(bstrName
, "isWin64")) {
453 test_grfdex(grfdex
, fdexNameCaseSensitive
);
454 *pid
= DISPID_GLOBAL_ISWIN64
;
458 if(!strcmp_wa(bstrName
, "pureDisp")) {
459 test_grfdex(grfdex
, fdexNameCaseSensitive
);
460 *pid
= DISPID_GLOBAL_PUREDISP
;
464 if(strict_dispid_check
)
465 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName
));
466 return DISP_E_UNKNOWNNAME
;
469 static HRESULT WINAPI
Global_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
470 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
473 case DISPID_GLOBAL_OK
:
474 ok(wFlags
== INVOKE_FUNC
|| wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
475 ok(pdp
!= NULL
, "pdp == NULL\n");
476 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
477 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
478 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
479 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
480 if(wFlags
& INVOKE_PROPERTYGET
)
481 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
483 ok(!pvarRes
, "pvarRes != NULL\n");
484 ok(pei
!= NULL
, "pei == NULL\n");
486 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
487 ok(V_VT(pdp
->rgvarg
+1) == VT_BOOL
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
));
488 ok(V_BOOL(pdp
->rgvarg
+1), "%s: %s\n", test_name
, wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
492 case DISPID_GLOBAL_TRACE
:
493 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
494 ok(pdp
!= NULL
, "pdp == NULL\n");
495 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
496 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
497 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
498 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
499 ok(!pvarRes
, "pvarRes != NULL\n");
500 ok(pei
!= NULL
, "pei == NULL\n");
502 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
503 if(V_VT(pdp
->rgvarg
) == VT_BSTR
)
504 trace("%s: %s\n", test_name
, wine_dbgstr_w(V_BSTR(pdp
->rgvarg
)));
508 case DISPID_GLOBAL_REPORTSUCCESS
:
509 CHECK_EXPECT(global_success_i
);
511 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
512 ok(pdp
!= NULL
, "pdp == NULL\n");
513 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
514 ok(pdp
->cArgs
== 0, "cArgs = %d\n", pdp
->cArgs
);
515 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
516 ok(!pvarRes
, "pvarRes != NULL\n");
517 ok(pei
!= NULL
, "pei == NULL\n");
521 case DISPID_GLOBAL_TESTPROPGET
:
522 CHECK_EXPECT(global_propget_i
);
524 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
525 ok(pdp
!= NULL
, "pdp == NULL\n");
526 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
527 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
528 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
529 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
530 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
531 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
532 ok(pei
!= NULL
, "pei == NULL\n");
534 V_VT(pvarRes
) = VT_I4
;
539 case DISPID_GLOBAL_TESTPROPPUT
:
540 CHECK_EXPECT(global_propput_i
);
542 ok(wFlags
== INVOKE_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
543 ok(pdp
!= NULL
, "pdp == NULL\n");
544 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
545 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
546 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
547 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
548 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
549 ok(!pvarRes
, "pvarRes != NULL\n");
551 ok(V_VT(pdp
->rgvarg
) == VT_I4
, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp
->rgvarg
));
552 ok(V_I4(pdp
->rgvarg
) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp
->rgvarg
));
555 case DISPID_GLOBAL_GETVT
:
556 ok(pdp
!= NULL
, "pdp == NULL\n");
557 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
558 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
559 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
560 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
561 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
562 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
563 ok(pei
!= NULL
, "pei == NULL\n");
565 V_VT(pvarRes
) = VT_BSTR
;
566 switch(V_VT(pdp
->rgvarg
)) {
568 V_BSTR(pvarRes
) = a2bstr("VT_EMPTY");
571 V_BSTR(pvarRes
) = a2bstr("VT_NULL");
574 V_BSTR(pvarRes
) = a2bstr("VT_I4");
577 V_BSTR(pvarRes
) = a2bstr("VT_R8");
580 V_BSTR(pvarRes
) = a2bstr("VT_BSTR");
583 V_BSTR(pvarRes
) = a2bstr("VT_DISPATCH");
586 V_BSTR(pvarRes
) = a2bstr("VT_BOOL");
588 case VT_ARRAY
|VT_VARIANT
:
589 V_BSTR(pvarRes
) = a2bstr("VT_ARRAY|VT_VARIANT");
592 ok(0, "unknown vt %d\n", V_VT(pdp
->rgvarg
));
598 case DISPID_GLOBAL_TESTOBJ
:
599 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
600 ok(pdp
!= NULL
, "pdp == NULL\n");
601 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
602 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
603 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
604 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
605 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
606 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
607 ok(pei
!= NULL
, "pei == NULL\n");
609 V_VT(pvarRes
) = VT_DISPATCH
;
610 V_DISPATCH(pvarRes
) = (IDispatch
*)&testObj
;
613 case DISPID_GLOBAL_PUREDISP
:
614 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
615 ok(pdp
!= NULL
, "pdp == NULL\n");
616 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
617 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
618 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
619 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
620 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
621 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
622 ok(pei
!= NULL
, "pei == NULL\n");
624 V_VT(pvarRes
) = VT_DISPATCH
;
625 V_DISPATCH(pvarRes
) = (IDispatch
*)&pureDisp
;
628 case DISPID_GLOBAL_NULL_BSTR
:
630 V_VT(pvarRes
) = VT_BSTR
;
631 V_BSTR(pvarRes
) = NULL
;
635 case DISPID_GLOBAL_ISWIN64
:
637 V_VT(pvarRes
) = VT_BOOL
;
638 V_BOOL(pvarRes
) = sizeof(void*) == 8 ? VARIANT_TRUE
: VARIANT_FALSE
;
642 case DISPID_GLOBAL_NULL_DISP
:
643 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
644 ok(pdp
!= NULL
, "pdp == NULL\n");
645 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
646 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
647 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
648 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
649 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
650 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
651 ok(pei
!= NULL
, "pei == NULL\n");
653 V_VT(pvarRes
) = VT_DISPATCH
;
654 V_DISPATCH(pvarRes
) = NULL
;
657 case DISPID_GLOBAL_TESTTHIS
:
658 ok(pdp
!= NULL
, "pdp == NULL\n");
659 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
660 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
661 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
662 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
663 ok(pvarRes
== NULL
, "pvarRes != NULL\n");
664 ok(pei
!= NULL
, "pei == NULL\n");
666 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(arg) = %d\n", V_VT(pdp
->rgvarg
));
667 ok(V_DISPATCH(pdp
->rgvarg
) == (IDispatch
*)iface
, "disp != iface\n");
671 case DISPID_GLOBAL_TESTTHIS2
:
672 ok(pdp
!= NULL
, "pdp == NULL\n");
673 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
674 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
675 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
676 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
677 ok(pvarRes
== NULL
, "pvarRes != NULL\n");
678 ok(pei
!= NULL
, "pei == NULL\n");
680 ok(V_VT(pdp
->rgvarg
) == VT_DISPATCH
, "V_VT(arg) = %d\n", V_VT(pdp
->rgvarg
));
681 ok(V_DISPATCH(pdp
->rgvarg
) != (IDispatch
*)iface
, "disp == iface\n");
682 ok(V_DISPATCH(pdp
->rgvarg
) == script_disp
, "disp != script_disp\n");
686 case DISPID_GLOBAL_INVOKEVERSION
:
687 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
688 ok(pdp
!= NULL
, "pdp == NULL\n");
689 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
690 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
691 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
692 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
693 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
694 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
695 ok(pei
!= NULL
, "pei == NULL\n");
697 V_VT(pvarRes
) = VT_I4
;
698 V_I4(pvarRes
) = invoke_version
;
702 case DISPID_GLOBAL_CREATEARRAY
: {
703 SAFEARRAYBOUND bound
[2];
707 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
708 ok(pdp
!= NULL
, "pdp == NULL\n");
709 todo_wine
ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
710 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
711 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
712 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
713 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
714 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
715 ok(pei
!= NULL
, "pei == NULL\n");
717 bound
[0].lLbound
= 0;
718 bound
[0].cElements
= 5;
719 bound
[1].lLbound
= 2;
720 bound
[1].cElements
= 2;
722 V_VT(pvarRes
) = VT_ARRAY
|VT_VARIANT
;
723 V_ARRAY(pvarRes
) = SafeArrayCreate(VT_VARIANT
, 2, bound
);
725 SafeArrayAccessData(V_ARRAY(pvarRes
), (void**)&data
);
733 SafeArrayUnaccessData(V_ARRAY(pvarRes
));
738 case DISPID_GLOBAL_PROPGETFUNC
:
741 CHECK_EXPECT(invoke_func
);
743 case INVOKE_FUNC
|INVOKE_PROPERTYGET
:
744 ok(pdp
->cArgs
!= 0, "pdp->cArgs = %d\n", pdp
->cArgs
);
745 ok(pvarRes
!= NULL
, "pdp->pvarRes == NULL\n");
748 ok(0, "invalid flag (%x)\n", wFlags
);
751 ok(pdp
!= NULL
, "pdp == NULL\n");
752 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
753 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
754 ok(pei
!= NULL
, "pei == NULL\n");
757 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
758 V_VT(pvarRes
) = VT_I4
;
759 V_I4(pvarRes
) = pdp
->cArgs
;
764 case DISPID_GLOBAL_OBJECT_FLAG
: {
769 hres
= IDispatch_QueryInterface(script_disp
, &IID_IDispatchEx
, (void**)&dispex
);
770 ok(hres
== S_OK
, "hres = %x\n", hres
);
772 str
= a2bstr("Object");
773 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
775 ok(hres
== S_OK
, "hres = %x\n", hres
);
777 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_METHOD
, pdp
, NULL
, pei
, pspCaller
);
778 ok(hres
== S_OK
, "hres = %x\n", hres
);
780 V_VT(pvarRes
) = VT_EMPTY
;
781 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_METHOD
, pdp
, pvarRes
, pei
, pspCaller
);
782 ok(hres
== S_OK
, "hres = %x\n", hres
);
783 ok(V_VT(pvarRes
) == VT_DISPATCH
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
784 VariantClear(pvarRes
);
786 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_METHOD
|DISPATCH_PROPERTYGET
, pdp
, NULL
, pei
, pspCaller
);
787 ok(hres
== S_OK
, "hres = %x\n", hres
);
789 V_VT(pvarRes
) = VT_EMPTY
;
790 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_CONSTRUCT
, pdp
, pvarRes
, pei
, pspCaller
);
791 ok(hres
== S_OK
, "hres = %x\n", hres
);
792 ok(V_VT(pvarRes
) == VT_DISPATCH
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
793 VariantClear(pvarRes
);
795 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_CONSTRUCT
, pdp
, NULL
, pei
, pspCaller
);
796 ok(hres
== S_OK
, "hres = %x\n", hres
);
798 V_VT(pvarRes
) = VT_EMPTY
;
799 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, DISPATCH_CONSTRUCT
|DISPATCH_PROPERTYGET
, pdp
, pvarRes
, pei
, pspCaller
);
800 ok(hres
== E_INVALIDARG
, "hres = %x\n", hres
);
802 V_VT(pvarRes
) = VT_EMPTY
;
803 hres
= IDispatchEx_InvokeEx(dispex
, id
, lcid
, wFlags
, pdp
, pvarRes
, pei
, pspCaller
);
804 ok(hres
== S_OK
, "hres = %x\n", hres
);
805 ok(V_VT(pvarRes
) == VT_DISPATCH
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
806 IDispatchEx_Release(dispex
);
811 ok(0, "unexpected call %x\n", id
);
812 return DISP_E_MEMBERNOTFOUND
;
815 static IDispatchExVtbl GlobalVtbl
= {
816 DispatchEx_QueryInterface
,
819 DispatchEx_GetTypeInfoCount
,
820 DispatchEx_GetTypeInfo
,
821 DispatchEx_GetIDsOfNames
,
825 DispatchEx_DeleteMemberByName
,
826 DispatchEx_DeleteMemberByDispID
,
827 DispatchEx_GetMemberProperties
,
828 DispatchEx_GetMemberName
,
829 DispatchEx_GetNextDispID
,
830 DispatchEx_GetNameSpaceParent
833 static IDispatchEx Global
= { &GlobalVtbl
};
835 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
839 if(IsEqualGUID(&IID_IUnknown
, riid
))
841 else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
))
844 return E_NOINTERFACE
;
846 IUnknown_AddRef((IUnknown
*)*ppv
);
850 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
855 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
860 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
862 *plcid
= GetUserDefaultLCID();
866 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
867 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
869 ok(dwReturnMask
== SCRIPTINFO_IUNKNOWN
, "unexpected dwReturnMask %x\n", dwReturnMask
);
870 ok(!ppti
, "ppti != NULL\n");
872 if(!strcmp_wa(pstrName
, test_valA
))
873 CHECK_EXPECT(GetItemInfo_testVal
);
874 else if(strcmp_wa(pstrName
, testA
))
875 ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName
));
877 *ppiunkItem
= (IUnknown
*)&Global
;
881 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
886 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
887 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
892 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
897 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
902 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
907 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
912 #undef ACTSCPSITE_THIS
914 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
915 ActiveScriptSite_QueryInterface
,
916 ActiveScriptSite_AddRef
,
917 ActiveScriptSite_Release
,
918 ActiveScriptSite_GetLCID
,
919 ActiveScriptSite_GetItemInfo
,
920 ActiveScriptSite_GetDocVersionString
,
921 ActiveScriptSite_OnScriptTerminate
,
922 ActiveScriptSite_OnStateChange
,
923 ActiveScriptSite_OnScriptError
,
924 ActiveScriptSite_OnEnterScript
,
925 ActiveScriptSite_OnLeaveScript
928 static IActiveScriptSite ActiveScriptSite
= { &ActiveScriptSiteVtbl
};
930 static HRESULT WINAPI
ActiveScriptSite_OnScriptError_CheckError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
932 ok(pscripterror
!= NULL
, "ActiveScriptSite_OnScriptError -- expected pscripterror to be set, got NULL\n");
934 script_error
= pscripterror
;
935 IUnknown_AddRef(script_error
);
937 CHECK_EXPECT(ActiveScriptSite_OnScriptError
);
942 static const IActiveScriptSiteVtbl ActiveScriptSite_CheckErrorVtbl
= {
943 ActiveScriptSite_QueryInterface
,
944 ActiveScriptSite_AddRef
,
945 ActiveScriptSite_Release
,
946 ActiveScriptSite_GetLCID
,
947 ActiveScriptSite_GetItemInfo
,
948 ActiveScriptSite_GetDocVersionString
,
949 ActiveScriptSite_OnScriptTerminate
,
950 ActiveScriptSite_OnStateChange
,
951 ActiveScriptSite_OnScriptError_CheckError
,
952 ActiveScriptSite_OnEnterScript
,
953 ActiveScriptSite_OnLeaveScript
956 static IActiveScriptSite ActiveScriptSite_CheckError
= { &ActiveScriptSite_CheckErrorVtbl
};
958 static HRESULT
set_script_prop(IActiveScript
*engine
, DWORD property
, VARIANT
*val
)
960 IActiveScriptProperty
*script_prop
;
963 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptProperty
,
964 (void**)&script_prop
);
965 ok(hres
== S_OK
, "Could not get IActiveScriptProperty iface: %08x\n", hres
);
967 hres
= IActiveScriptProperty_SetProperty(script_prop
, property
, NULL
, val
);
968 IActiveScriptProperty_Release(script_prop
);
973 static IActiveScript
*create_script(void)
975 IActiveScript
*script
;
979 hres
= CoCreateInstance(&CLSID_JScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
980 &IID_IActiveScript
, (void**)&script
);
981 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
984 V_I4(&v
) = invoke_version
;
985 hres
= set_script_prop(script
, SCRIPTPROP_INVOKEVERSIONING
, &v
);
986 ok(hres
== S_OK
|| broken(hres
== E_NOTIMPL
), "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres
);
987 if(invoke_version
&& FAILED(hres
)) {
988 IActiveScript_Release(script
);
995 static HRESULT
parse_script(DWORD flags
, BSTR script_str
)
997 IActiveScriptParse
*parser
;
998 IActiveScript
*engine
;
1001 engine
= create_script();
1005 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1006 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1009 IActiveScript_Release(engine
);
1013 hres
= IActiveScriptParse64_InitNew(parser
);
1014 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1016 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
1017 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1019 hres
= IActiveScript_AddNamedItem(engine
, testW
,
1020 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|flags
);
1021 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1023 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1024 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1026 hres
= IActiveScript_GetScriptDispatch(engine
, NULL
, &script_disp
);
1027 ok(hres
== S_OK
, "GetScriptDispatch failed: %08x\n", hres
);
1028 ok(script_disp
!= NULL
, "script_disp == NULL\n");
1029 ok(script_disp
!= (IDispatch
*)&Global
, "script_disp == Global\n");
1031 hres
= IActiveScriptParse64_ParseScriptText(parser
, script_str
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
1033 IDispatch_Release(script_disp
);
1034 IActiveScript_Release(engine
);
1035 IUnknown_Release(parser
);
1040 static HRESULT
parse_htmlscript(BSTR script_str
)
1042 IActiveScriptParse
*parser
;
1043 IActiveScript
*engine
;
1045 BSTR tmp
= a2bstr("</SCRIPT>");
1047 engine
= create_script();
1051 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1052 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1055 IActiveScript_Release(engine
);
1059 hres
= IActiveScriptParse64_InitNew(parser
);
1060 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1062 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
1063 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1065 hres
= IActiveScript_AddNamedItem(engine
, testW
,
1066 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
);
1067 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1069 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1070 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1072 hres
= IActiveScriptParse64_ParseScriptText(parser
, script_str
, NULL
, NULL
, tmp
, 0, 0, 0, NULL
, NULL
);
1074 IActiveScript_Release(engine
);
1075 IUnknown_Release(parser
);
1081 static void test_IActiveScriptError(IActiveScriptError
*error
, SCODE errorcode
, ULONG line
, LONG pos
, BSTR script_source
, BSTR description
, BSTR line_text
)
1084 DWORD source_context
;
1090 /* IActiveScriptError_GetSourcePosition */
1092 hres
= IActiveScriptError_GetSourcePosition(error
, NULL
, NULL
, NULL
);
1093 ok(hres
== S_OK
, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres
);
1095 source_context
= 0xdeadbeef;
1096 hres
= IActiveScriptError_GetSourcePosition(error
, &source_context
, NULL
, NULL
);
1097 ok(hres
== S_OK
, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres
);
1098 ok(source_context
== 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context
);
1100 line_number
= 0xdeadbeef;
1101 hres
= IActiveScriptError_GetSourcePosition(error
, NULL
, &line_number
, NULL
);
1102 ok(hres
== S_OK
, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres
);
1103 ok(line_number
== line
, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line
, line_number
);
1105 char_position
= 0xdeadbeef;
1106 hres
= IActiveScriptError_GetSourcePosition(error
, NULL
, NULL
, &char_position
);
1107 ok(hres
== S_OK
, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres
);
1108 ok(char_position
== pos
, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos
, char_position
);
1110 /* IActiveScriptError_GetSourceLineText */
1112 hres
= IActiveScriptError_GetSourceLineText(error
, NULL
);
1113 ok(hres
== E_POINTER
, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres
);
1116 hres
= IActiveScriptError_GetSourceLineText(error
, &linetext
);
1118 ok(hres
== S_OK
, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres
);
1119 ok(linetext
!= NULL
&& !lstrcmpW(linetext
, line_text
),
1120 "IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text
), wine_dbgstr_w(linetext
));
1122 ok(hres
== E_FAIL
, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres
);
1123 ok(linetext
== NULL
,
1124 "IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext
));
1126 SysFreeString(linetext
);
1128 /* IActiveScriptError_GetExceptionInfo */
1130 hres
= IActiveScriptError_GetExceptionInfo(error
, NULL
);
1131 ok(hres
== E_POINTER
, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres
);
1133 excep
.wCode
= 0xdead;
1134 excep
.wReserved
= 0xdead;
1135 excep
.bstrSource
= (BSTR
)0xdeadbeef;
1136 excep
.bstrDescription
= (BSTR
)0xdeadbeef;
1137 excep
.bstrHelpFile
= (BSTR
)0xdeadbeef;
1138 excep
.dwHelpContext
= 0xdeadbeef;
1139 excep
.pvReserved
= (void *)0xdeadbeef;
1140 excep
.pfnDeferredFillIn
= (void *)0xdeadbeef;
1141 excep
.scode
= 0xdeadbeef;
1143 hres
= IActiveScriptError_GetExceptionInfo(error
, &excep
);
1144 ok(hres
== S_OK
, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres
);
1146 ok(excep
.wCode
== 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep
.wCode
);
1147 ok(excep
.wReserved
== 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep
.wReserved
);
1148 if (PRIMARYLANGID(LANGIDFROMLCID(GetThreadLocale())) != LANG_ENGLISH
)
1149 skip("Non-english locale (test with hardcoded strings)\n");
1151 ok(excep
.bstrSource
!= NULL
&& !lstrcmpW(excep
.bstrSource
, script_source
),
1152 "IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
1153 wine_dbgstr_w(script_source
), wine_dbgstr_w(excep
.bstrSource
));
1154 ok(excep
.bstrDescription
!= NULL
&& !lstrcmpW(excep
.bstrDescription
, description
),
1155 "IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep
.bstrDescription
));
1157 ok(excep
.bstrHelpFile
== NULL
,
1158 "IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep
.bstrHelpFile
));
1159 ok(excep
.dwHelpContext
== 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep
.dwHelpContext
);
1160 ok(excep
.pvReserved
== NULL
, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep
.pvReserved
);
1161 ok(excep
.pfnDeferredFillIn
== NULL
, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep
.pfnDeferredFillIn
);
1162 ok(excep
.scode
== errorcode
, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode
, excep
.scode
);
1164 SysFreeString(excep
.bstrSource
);
1165 SysFreeString(excep
.bstrDescription
);
1166 SysFreeString(excep
.bstrHelpFile
);
1169 static void parse_script_with_error(DWORD flags
, BSTR script_str
, SCODE errorcode
, ULONG line
, LONG pos
, BSTR script_source
, BSTR description
, BSTR line_text
)
1171 IActiveScriptParse
*parser
;
1172 IActiveScript
*engine
;
1175 engine
= create_script();
1179 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1180 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1183 IActiveScript_Release(engine
);
1187 hres
= IActiveScriptParse64_InitNew(parser
);
1188 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1190 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite_CheckError
);
1191 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1193 hres
= IActiveScript_AddNamedItem(engine
, testW
,
1194 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|flags
);
1195 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1197 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1198 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1200 hres
= IActiveScript_GetScriptDispatch(engine
, NULL
, &script_disp
);
1201 ok(hres
== S_OK
, "GetScriptDispatch failed: %08x\n", hres
);
1202 ok(script_disp
!= NULL
, "script_disp == NULL\n");
1203 ok(script_disp
!= (IDispatch
*)&Global
, "script_disp == Global\n");
1205 script_error
= NULL
;
1206 SET_EXPECT(ActiveScriptSite_OnScriptError
);
1207 hres
= IActiveScriptParse64_ParseScriptText(parser
, script_str
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
1208 todo_wine
ok(hres
== 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres
);
1209 todo_wine
CHECK_CALLED(ActiveScriptSite_OnScriptError
);
1213 test_IActiveScriptError(script_error
, errorcode
, line
, pos
, script_source
, description
, line_text
);
1215 IUnknown_Release(script_error
);
1218 IDispatch_Release(script_disp
);
1219 IActiveScript_Release(engine
);
1220 IUnknown_Release(parser
);
1223 static void parse_script_af(DWORD flags
, const char *src
)
1229 hres
= parse_script(flags
, tmp
);
1231 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
1234 static void parse_script_a(const char *src
)
1236 parse_script_af(SCRIPTITEM_GLOBALMEMBERS
, src
);
1239 static void parse_script_with_error_a(const char *src
, SCODE errorcode
, ULONG line
, LONG pos
, LPCSTR source
, LPCSTR desc
, LPCSTR linetext
)
1241 BSTR tmp
, script_source
, description
, line_text
;
1244 script_source
= a2bstr(source
);
1245 description
= a2bstr(desc
);
1246 line_text
= a2bstr(linetext
);
1248 parse_script_with_error(SCRIPTITEM_GLOBALMEMBERS
, tmp
, errorcode
, line
, pos
, script_source
, description
, line_text
);
1250 SysFreeString(line_text
);
1251 SysFreeString(description
);
1252 SysFreeString(script_source
);
1256 static HRESULT
parse_htmlscript_a(const char *src
)
1259 BSTR tmp
= a2bstr(src
);
1260 hres
= parse_htmlscript(tmp
);
1266 static BSTR
get_script_from_file(const char *filename
)
1270 const char *file_map
;
1273 file
= CreateFileA(filename
, GENERIC_READ
, 0, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_READONLY
, NULL
);
1274 if(file
== INVALID_HANDLE_VALUE
) {
1275 trace("Could not open file: %u\n", GetLastError());
1279 size
= GetFileSize(file
, NULL
);
1281 map
= CreateFileMapping(file
, NULL
, PAGE_READONLY
, 0, 0, NULL
);
1283 if(map
== INVALID_HANDLE_VALUE
) {
1284 trace("Could not create file mapping: %u\n", GetLastError());
1288 file_map
= MapViewOfFile(map
, FILE_MAP_READ
, 0, 0, 0);
1291 trace("MapViewOfFile failed: %u\n", GetLastError());
1295 len
= MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, NULL
, 0);
1296 ret
= SysAllocStringLen(NULL
, len
);
1297 MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, ret
, len
);
1299 UnmapViewOfFile(file_map
);
1304 static void run_from_file(const char *filename
)
1309 script_str
= get_script_from_file(filename
);
1313 strict_dispid_check
= FALSE
;
1314 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, script_str
);
1315 SysFreeString(script_str
);
1316 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
1319 static void run_from_res(const char *name
)
1327 strict_dispid_check
= FALSE
;
1330 src
= FindResourceA(NULL
, name
, (LPCSTR
)40);
1331 ok(src
!= NULL
, "Could not find resource %s\n", name
);
1333 size
= SizeofResource(NULL
, src
);
1334 data
= LoadResource(NULL
, src
);
1336 len
= MultiByteToWideChar(CP_ACP
, 0, data
, size
, NULL
, 0);
1337 str
= SysAllocStringLen(NULL
, len
);
1338 MultiByteToWideChar(CP_ACP
, 0, data
, size
, str
, len
);
1340 SET_EXPECT(global_success_d
);
1341 SET_EXPECT(global_success_i
);
1342 hres
= parse_script(SCRIPTITEM_GLOBALMEMBERS
, str
);
1343 CHECK_CALLED(global_success_d
);
1344 CHECK_CALLED(global_success_i
);
1346 ok(hres
== S_OK
, "parse_script failed: %08x\n", hres
);
1350 static void test_isvisible(BOOL global_members
)
1352 IActiveScriptParse
*parser
;
1353 IActiveScript
*engine
;
1356 static const WCHAR script_textW
[] =
1357 {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
1359 engine
= create_script();
1363 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
1364 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
1367 IActiveScript_Release(engine
);
1371 hres
= IActiveScriptParse64_InitNew(parser
);
1372 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
1374 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
1375 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
1378 SET_EXPECT(GetItemInfo_testVal
);
1379 hres
= IActiveScript_AddNamedItem(engine
, test_valW
,
1380 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|
1381 (global_members
? SCRIPTITEM_GLOBALMEMBERS
: 0));
1382 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
1384 CHECK_CALLED(GetItemInfo_testVal
);
1386 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
1387 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
1390 SET_EXPECT(GetItemInfo_testVal
);
1391 hres
= IActiveScriptParse64_ParseScriptText(parser
, script_textW
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
1392 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1394 CHECK_CALLED(GetItemInfo_testVal
);
1396 hres
= IActiveScriptParse64_ParseScriptText(parser
, script_textW
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
1397 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1399 IActiveScript_Release(engine
);
1400 IUnknown_Release(parser
);
1403 static void run_tests(void)
1407 if(invoke_version
) {
1408 IActiveScript
*script
;
1410 script
= create_script();
1412 win_skip("Could not create script\n");
1415 IActiveScript_Release(script
);
1418 strict_dispid_check
= TRUE
;
1421 parse_script_a("/* empty */ ;");
1423 SET_EXPECT(global_propget_d
);
1424 SET_EXPECT(global_propget_i
);
1425 parse_script_a("testPropGet;");
1426 CHECK_CALLED(global_propget_d
);
1427 CHECK_CALLED(global_propget_i
);
1429 SET_EXPECT(global_propput_d
);
1430 SET_EXPECT(global_propput_i
);
1431 parse_script_a("testPropPut = 1;");
1432 CHECK_CALLED(global_propput_d
);
1433 CHECK_CALLED(global_propput_i
);
1435 SET_EXPECT(global_success_d
);
1436 SET_EXPECT(global_success_i
);
1437 parse_script_a("reportSuccess();");
1438 CHECK_CALLED(global_success_d
);
1439 CHECK_CALLED(global_success_i
);
1441 SET_EXPECT(testobj_delete
);
1442 parse_script_a("delete testObj.deleteTest;");
1443 CHECK_CALLED(testobj_delete
);
1445 parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
1447 parse_script_a("function reportSuccess() {}; reportSuccess();");
1449 SET_EXPECT(global_propget_d
);
1450 parse_script_a("var testPropGet");
1451 CHECK_CALLED(global_propget_d
);
1453 SET_EXPECT(global_propget_d
);
1454 parse_script_a("eval('var testPropGet;');");
1455 CHECK_CALLED(global_propget_d
);
1457 SET_EXPECT(global_notexists_d
);
1458 parse_script_a("var notExists; notExists = 1;");
1459 CHECK_CALLED(global_notexists_d
);
1461 parse_script_a("function f() { var testPropGet; }");
1462 parse_script_a("(function () { var testPropGet; })();");
1463 parse_script_a("(function () { eval('var testPropGet;'); })();");
1465 SET_EXPECT(invoke_func
);
1466 parse_script_a("ok(propGetFunc() == 0, \"Incorrect propGetFunc value\");");
1467 CHECK_CALLED(invoke_func
);
1468 parse_script_a("ok(propGetFunc(1) == 1, \"Incorrect propGetFunc value\");");
1469 parse_script_a("ok(propGetFunc(1, 2) == 2, \"Incorrect propGetFunc value\");");
1470 SET_EXPECT(invoke_func
);
1471 parse_script_a("ok(propGetFunc().toString() == 0, \"Incorrect propGetFunc value\");");
1472 CHECK_CALLED(invoke_func
);
1473 parse_script_a("ok(propGetFunc(1).toString() == 1, \"Incorrect propGetFunc value\");");
1474 SET_EXPECT(invoke_func
);
1475 parse_script_a("propGetFunc(1);");
1476 CHECK_CALLED(invoke_func
);
1478 parse_script_a("objectFlag(1).toString();");
1480 parse_script_a("(function() { var tmp = (function () { return testObj; })()(1);})();");
1481 parse_script_a("(function() { var tmp = (function () { return testObj; })()();})();");
1483 parse_script_a("ok((testObj instanceof Object) === false, 'testObj is instance of Object');");
1485 SET_EXPECT(testobj_prop_d
);
1486 parse_script_a("ok(('prop' in testObj) === true, 'prop is not in testObj');");
1487 CHECK_CALLED(testobj_prop_d
);
1489 SET_EXPECT(testobj_noprop_d
);
1490 parse_script_a("ok(('noprop' in testObj) === false, 'noprop is in testObj');");
1491 CHECK_CALLED(testobj_noprop_d
);
1493 SET_EXPECT(testobj_prop_d
);
1494 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'prop') === true, 'hasOwnProperty(\\\"prop\\\") returned false');");
1495 CHECK_CALLED(testobj_prop_d
);
1497 SET_EXPECT(testobj_noprop_d
);
1498 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1499 CHECK_CALLED(testobj_noprop_d
);
1501 SET_EXPECT(puredisp_prop_d
);
1502 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'prop') === true, 'hasOwnProperty(\\\"noprop\\\") returned false');");
1503 CHECK_CALLED(puredisp_prop_d
);
1505 SET_EXPECT(puredisp_noprop_d
);
1506 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1507 CHECK_CALLED(puredisp_noprop_d
);
1509 SET_EXPECT(testobj_value
);
1510 parse_script_a("ok(String(testObj) === '1', 'wrong testObj value');");
1511 CHECK_CALLED(testobj_value
);
1513 SET_EXPECT(testobj_value
);
1514 parse_script_a("ok(String.prototype.concat.call(testObj, ' OK') === '1 OK', 'wrong concat result');");
1515 CHECK_CALLED(testobj_value
);
1517 SET_EXPECT(global_propget_d
);
1518 SET_EXPECT(global_propget_i
);
1519 parse_script_a("this.testPropGet;");
1520 CHECK_CALLED(global_propget_d
);
1521 CHECK_CALLED(global_propget_i
);
1523 SET_EXPECT(global_propget_d
);
1524 SET_EXPECT(global_propget_i
);
1525 parse_script_a("(function () { this.testPropGet; })();");
1526 CHECK_CALLED(global_propget_d
);
1527 CHECK_CALLED(global_propget_i
);
1529 parse_script_a("testThis(this);");
1530 parse_script_a("(function () { testThis(this); })();");
1532 SET_EXPECT(testobj_onlydispid_d
);
1533 SET_EXPECT(testobj_onlydispid_i
);
1534 parse_script_a("ok(typeof(testObj.onlyDispID) === 'unknown', 'unexpected typeof(testObj.onlyDispID)');");
1535 CHECK_CALLED(testobj_onlydispid_d
);
1536 CHECK_CALLED(testobj_onlydispid_i
);
1538 run_from_res("lang.js");
1539 run_from_res("api.js");
1540 run_from_res("regexp.js");
1541 run_from_res("cc.js");
1543 test_isvisible(FALSE
);
1544 test_isvisible(TRUE
);
1546 parse_script_af(0, "test.testThis2(this);");
1547 parse_script_af(0, "(function () { test.testThis2(this); })();");
1549 hres
= parse_htmlscript_a("<!--");
1550 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1551 hres
= parse_htmlscript_a("-->");
1552 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1553 hres
= parse_htmlscript_a("<!--\nvar a=1;\n-->\n");
1554 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1555 hres
= parse_htmlscript_a("<!--\n<!-- ignore this\n-->\n");
1556 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1557 hres
= parse_htmlscript_a("var a=1;\nif(a-->0) a=5;\n");
1558 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
1559 hres
= parse_htmlscript_a("var a=1;\nif(a\n-->0) a=5;\n");
1560 ok(hres
!= S_OK
, "ParseScriptText have not failed\n");
1562 parse_script_with_error_a(
1565 "Microsoft JScript compilation error",
1569 parse_script_with_error_a(
1570 "var a=1;\nif(a\n-->0) a=5;\n",
1572 "Microsoft JScript compilation error",
1576 parse_script_with_error_a(
1579 "Microsoft JScript runtime error",
1580 "Object doesn't support this action",
1583 parse_script_with_error_a(
1586 "Microsoft JScript runtime error",
1590 parse_script_with_error_a(
1591 "var a;\nnew null;",
1593 "Microsoft JScript runtime error",
1597 parse_script_with_error_a(
1600 "Microsoft JScript runtime error",
1605 static BOOL
check_jscript(void)
1607 IActiveScriptProperty
*script_prop
;
1611 hres
= CoCreateInstance(&CLSID_JScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
1612 &IID_IActiveScriptProperty
, (void**)&script_prop
);
1615 IActiveScriptProperty_Release(script_prop
);
1617 str
= a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
1618 hres
= parse_script(0, str
);
1621 return hres
== S_OK
;
1629 argc
= winetest_get_mainargs(&argv
);
1633 if(!check_jscript()) {
1634 win_skip("Broken engine, probably too old\n");
1635 }else if(argc
> 2) {
1636 run_from_file(argv
[2]);
1638 trace("invoke version 0\n");
1642 trace("invoke version 2\n");