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 /* Returns true if the user interface is in English. Note that this does not
112 * presume of the formatting of dates, numbers, etc.
114 static BOOL is_lang_english(void)
116 static HMODULE hkernel32 = NULL;
117 static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL;
118 static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL;
122 hkernel32 = GetModuleHandleA("kernel32.dll");
123 pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage");
124 pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage");
126 if (pGetThreadUILanguage)
127 return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH;
128 if (pGetUserDefaultUILanguage)
129 return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH;
131 return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
134 static BSTR a2bstr(const char *str)
139 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
140 ret = SysAllocStringLen(NULL, len-1);
141 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
146 static int strcmp_wa(LPCWSTR strw, const char *stra)
149 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
150 return lstrcmpA(buf, stra);
153 #define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
154 static void _test_grfdex(unsigned line, DWORD grfdex, DWORD expect)
156 expect |= invoke_version << 28;
157 ok_(__FILE__,line)(grfdex == expect, "grfdex = %x, expected %x\n", grfdex, expect);
160 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
164 if(IsEqualGUID(riid, &IID_IUnknown)
165 || IsEqualGUID(riid, &IID_IDispatch)
166 || IsEqualGUID(riid, &IID_IDispatchEx))
169 return E_NOINTERFACE;
174 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
179 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
184 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
186 ok(0, "unexpected call\n");
190 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
191 LCID lcid, ITypeInfo **ppTInfo)
193 ok(0, "unexpected call\n");
197 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
198 LPOLESTR *rgszNames, UINT cNames,
199 LCID lcid, DISPID *rgDispId)
201 ok(IsEqualGUID(riid, &IID_NULL), "Expected IID_NULL\n");
202 ok(cNames==1, "cNames = %d\n", cNames);
204 if(!strcmp_wa(*rgszNames, "prop")) {
205 CHECK_EXPECT(puredisp_prop_d);
206 *rgDispId = DISPID_TESTOBJ_PROP;
208 } else if(!strcmp_wa(*rgszNames, "noprop")) {
209 CHECK_EXPECT(puredisp_noprop_d);
210 return DISP_E_UNKNOWNNAME;
213 ok(0, "unexpected call\n");
217 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
218 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
219 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
221 ok(0, "unexpected call\n");
225 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
227 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
231 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
233 ok(0, "unexpected call\n");
237 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
239 ok(0, "unexpected call\n");
243 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
245 ok(0, "unexpected call\n");
249 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
251 ok(0, "unexpected call\n");
255 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
257 ok(0, "unexpected call\n");
261 static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
263 if(!strcmp_wa(bstrName, "prop")) {
264 CHECK_EXPECT(testobj_prop_d);
265 test_grfdex(grfdex, fdexNameCaseSensitive);
266 *pid = DISPID_TESTOBJ_PROP;
269 if(!strcmp_wa(bstrName, "noprop")) {
270 CHECK_EXPECT(testobj_noprop_d);
271 test_grfdex(grfdex, fdexNameCaseSensitive);
272 return DISP_E_UNKNOWNNAME;
274 if(!strcmp_wa(bstrName, "onlyDispID")) {
275 if(strict_dispid_check)
276 CHECK_EXPECT(testobj_onlydispid_d);
277 test_grfdex(grfdex, fdexNameCaseSensitive);
278 *pid = DISPID_TESTOBJ_ONLYDISPID;
282 ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
286 static HRESULT WINAPI testObj_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
287 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
291 ok(pdp != NULL, "pdp == NULL\n");
292 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
293 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
294 ok(pvarRes != NULL, "pvarRes == NULL\n");
295 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
296 ok(pei != NULL, "pei == NULL\n");
299 case INVOKE_PROPERTYGET:
300 CHECK_EXPECT(testobj_value);
301 ok(!pdp->rgvarg, "rgvarg != NULL\n");
302 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
305 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
307 case INVOKE_FUNC|INVOKE_PROPERTYGET:
308 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
311 ok(0, "invalid flag (%x)\n", wFlags);
314 V_VT(pvarRes) = VT_I4;
317 case DISPID_TESTOBJ_ONLYDISPID:
318 if(strict_dispid_check)
319 CHECK_EXPECT(testobj_onlydispid_i);
320 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
321 ok(pdp != NULL, "pdp == NULL\n");
322 ok(!pdp->rgvarg, "rgvarg != NULL\n");
323 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
324 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
325 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
326 ok(pvarRes != NULL, "pvarRes == NULL\n");
327 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
328 ok(pei != NULL, "pei == NULL\n");
329 return DISP_E_MEMBERNOTFOUND;
332 ok(0, "unexpected call %x\n", id);
333 return DISP_E_MEMBERNOTFOUND;
336 static HRESULT WINAPI testObj_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
338 CHECK_EXPECT(testobj_delete);
340 ok(!strcmp_wa(bstrName, "deleteTest"), "unexpected name %s\n", wine_dbgstr_w(bstrName));
341 test_grfdex(grfdex, fdexNameCaseSensitive);
345 static IDispatchExVtbl testObjVtbl = {
346 DispatchEx_QueryInterface,
349 DispatchEx_GetTypeInfoCount,
350 DispatchEx_GetTypeInfo,
351 DispatchEx_GetIDsOfNames,
355 testObj_DeleteMemberByName,
356 DispatchEx_DeleteMemberByDispID,
357 DispatchEx_GetMemberProperties,
358 DispatchEx_GetMemberName,
359 DispatchEx_GetNextDispID,
360 DispatchEx_GetNameSpaceParent
363 static IDispatchEx testObj = { &testObjVtbl };
365 static HRESULT WINAPI pureDisp_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
367 if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch)) {
373 return E_NOINTERFACE;
376 static IDispatchExVtbl pureDispVtbl = {
377 pureDisp_QueryInterface,
380 DispatchEx_GetTypeInfoCount,
381 DispatchEx_GetTypeInfo,
382 DispatchEx_GetIDsOfNames,
386 static IDispatchEx pureDisp = { &pureDispVtbl };
388 static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
390 if(!strcmp_wa(bstrName, "ok")) {
391 test_grfdex(grfdex, fdexNameCaseSensitive);
392 *pid = DISPID_GLOBAL_OK;
395 if(!strcmp_wa(bstrName, "trace")) {
396 test_grfdex(grfdex, fdexNameCaseSensitive);
397 *pid = DISPID_GLOBAL_TRACE;
400 if(!strcmp_wa(bstrName, "reportSuccess")) {
401 CHECK_EXPECT(global_success_d);
402 test_grfdex(grfdex, fdexNameCaseSensitive);
403 *pid = DISPID_GLOBAL_REPORTSUCCESS;
406 if(!strcmp_wa(bstrName, "testPropGet")) {
407 CHECK_EXPECT(global_propget_d);
408 test_grfdex(grfdex, fdexNameCaseSensitive);
409 *pid = DISPID_GLOBAL_TESTPROPGET;
412 if(!strcmp_wa(bstrName, "testPropPut")) {
413 CHECK_EXPECT(global_propput_d);
414 test_grfdex(grfdex, fdexNameCaseSensitive);
415 *pid = DISPID_GLOBAL_TESTPROPPUT;
418 if(!strcmp_wa(bstrName, "getVT")) {
419 test_grfdex(grfdex, fdexNameCaseSensitive);
420 *pid = DISPID_GLOBAL_GETVT;
423 if(!strcmp_wa(bstrName, "testObj")) {
424 test_grfdex(grfdex, fdexNameCaseSensitive);
425 *pid = DISPID_GLOBAL_TESTOBJ;
428 if(!strcmp_wa(bstrName, "createNullBSTR")) {
429 *pid = DISPID_GLOBAL_NULL_BSTR;
432 if(!strcmp_wa(bstrName, "nullDisp")) {
433 *pid = DISPID_GLOBAL_NULL_DISP;
436 if(!strcmp_wa(bstrName, "notExists")) {
437 CHECK_EXPECT(global_notexists_d);
438 test_grfdex(grfdex, fdexNameCaseSensitive);
439 return DISP_E_UNKNOWNNAME;
442 if(!strcmp_wa(bstrName, "testThis")) {
443 test_grfdex(grfdex, fdexNameCaseSensitive);
444 *pid = DISPID_GLOBAL_TESTTHIS;
448 if(!strcmp_wa(bstrName, "testThis2")) {
449 test_grfdex(grfdex, fdexNameCaseSensitive);
450 *pid = DISPID_GLOBAL_TESTTHIS2;
454 if(!strcmp_wa(bstrName, "invokeVersion")) {
455 test_grfdex(grfdex, fdexNameCaseSensitive);
456 *pid = DISPID_GLOBAL_INVOKEVERSION;
459 if(!strcmp_wa(bstrName, "createArray")) {
460 test_grfdex(grfdex, fdexNameCaseSensitive);
461 *pid = DISPID_GLOBAL_CREATEARRAY;
464 if(!strcmp_wa(bstrName, "propGetFunc")) {
465 test_grfdex(grfdex, fdexNameCaseSensitive);
466 *pid = DISPID_GLOBAL_PROPGETFUNC;
469 if(!strcmp_wa(bstrName, "objectFlag")) {
470 test_grfdex(grfdex, fdexNameCaseSensitive);
471 *pid = DISPID_GLOBAL_OBJECT_FLAG;
475 if(!strcmp_wa(bstrName, "isWin64")) {
476 test_grfdex(grfdex, fdexNameCaseSensitive);
477 *pid = DISPID_GLOBAL_ISWIN64;
481 if(!strcmp_wa(bstrName, "pureDisp")) {
482 test_grfdex(grfdex, fdexNameCaseSensitive);
483 *pid = DISPID_GLOBAL_PUREDISP;
487 if(strict_dispid_check)
488 ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
489 return DISP_E_UNKNOWNNAME;
492 static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
493 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
496 case DISPID_GLOBAL_OK:
497 ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
498 ok(pdp != NULL, "pdp == NULL\n");
499 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
500 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
501 ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
502 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
503 if(wFlags & INVOKE_PROPERTYGET)
504 ok(pvarRes != NULL, "pvarRes == NULL\n");
506 ok(!pvarRes, "pvarRes != NULL\n");
507 ok(pei != NULL, "pei == NULL\n");
509 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
510 ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
511 ok(V_BOOL(pdp->rgvarg+1), "%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
515 case DISPID_GLOBAL_TRACE:
516 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
517 ok(pdp != NULL, "pdp == NULL\n");
518 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
519 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
520 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
521 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
522 ok(!pvarRes, "pvarRes != NULL\n");
523 ok(pei != NULL, "pei == NULL\n");
525 ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
526 if(V_VT(pdp->rgvarg) == VT_BSTR)
527 trace("%s: %s\n", test_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
531 case DISPID_GLOBAL_REPORTSUCCESS:
532 CHECK_EXPECT(global_success_i);
534 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
535 ok(pdp != NULL, "pdp == NULL\n");
536 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
537 ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
538 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
539 ok(!pvarRes, "pvarRes != NULL\n");
540 ok(pei != NULL, "pei == NULL\n");
544 case DISPID_GLOBAL_TESTPROPGET:
545 CHECK_EXPECT(global_propget_i);
547 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
548 ok(pdp != NULL, "pdp == NULL\n");
549 ok(!pdp->rgvarg, "rgvarg != NULL\n");
550 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
551 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
552 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
553 ok(pvarRes != NULL, "pvarRes == NULL\n");
554 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
555 ok(pei != NULL, "pei == NULL\n");
557 V_VT(pvarRes) = VT_I4;
562 case DISPID_GLOBAL_TESTPROPPUT:
563 CHECK_EXPECT(global_propput_i);
565 ok(wFlags == INVOKE_PROPERTYPUT, "wFlags = %x\n", wFlags);
566 ok(pdp != NULL, "pdp == NULL\n");
567 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
568 ok(pdp->rgdispidNamedArgs != NULL, "rgdispidNamedArgs == NULL\n");
569 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
570 ok(pdp->cNamedArgs == 1, "cNamedArgs = %d\n", pdp->cNamedArgs);
571 ok(pdp->rgdispidNamedArgs[0] == DISPID_PROPERTYPUT, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
572 ok(!pvarRes, "pvarRes != NULL\n");
574 ok(V_VT(pdp->rgvarg) == VT_I4, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp->rgvarg));
575 ok(V_I4(pdp->rgvarg) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp->rgvarg));
578 case DISPID_GLOBAL_GETVT:
579 ok(pdp != NULL, "pdp == NULL\n");
580 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
581 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
582 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
583 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
584 ok(pvarRes != NULL, "pvarRes == NULL\n");
585 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
586 ok(pei != NULL, "pei == NULL\n");
588 V_VT(pvarRes) = VT_BSTR;
589 switch(V_VT(pdp->rgvarg)) {
591 V_BSTR(pvarRes) = a2bstr("VT_EMPTY");
594 V_BSTR(pvarRes) = a2bstr("VT_NULL");
597 V_BSTR(pvarRes) = a2bstr("VT_I4");
600 V_BSTR(pvarRes) = a2bstr("VT_R8");
603 V_BSTR(pvarRes) = a2bstr("VT_BSTR");
606 V_BSTR(pvarRes) = a2bstr("VT_DISPATCH");
609 V_BSTR(pvarRes) = a2bstr("VT_BOOL");
611 case VT_ARRAY|VT_VARIANT:
612 V_BSTR(pvarRes) = a2bstr("VT_ARRAY|VT_VARIANT");
615 ok(0, "unknown vt %d\n", V_VT(pdp->rgvarg));
621 case DISPID_GLOBAL_TESTOBJ:
622 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
623 ok(pdp != NULL, "pdp == NULL\n");
624 ok(!pdp->rgvarg, "rgvarg != NULL\n");
625 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
626 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
627 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
628 ok(pvarRes != NULL, "pvarRes == NULL\n");
629 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
630 ok(pei != NULL, "pei == NULL\n");
632 V_VT(pvarRes) = VT_DISPATCH;
633 V_DISPATCH(pvarRes) = (IDispatch*)&testObj;
636 case DISPID_GLOBAL_PUREDISP:
637 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
638 ok(pdp != NULL, "pdp == NULL\n");
639 ok(!pdp->rgvarg, "rgvarg != NULL\n");
640 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
641 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
642 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
643 ok(pvarRes != NULL, "pvarRes == NULL\n");
644 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
645 ok(pei != NULL, "pei == NULL\n");
647 V_VT(pvarRes) = VT_DISPATCH;
648 V_DISPATCH(pvarRes) = (IDispatch*)&pureDisp;
651 case DISPID_GLOBAL_NULL_BSTR:
653 V_VT(pvarRes) = VT_BSTR;
654 V_BSTR(pvarRes) = NULL;
658 case DISPID_GLOBAL_ISWIN64:
660 V_VT(pvarRes) = VT_BOOL;
661 V_BOOL(pvarRes) = sizeof(void*) == 8 ? VARIANT_TRUE : VARIANT_FALSE;
665 case DISPID_GLOBAL_NULL_DISP:
666 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
667 ok(pdp != NULL, "pdp == NULL\n");
668 ok(!pdp->rgvarg, "rgvarg != NULL\n");
669 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
670 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
671 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
672 ok(pvarRes != NULL, "pvarRes == NULL\n");
673 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
674 ok(pei != NULL, "pei == NULL\n");
676 V_VT(pvarRes) = VT_DISPATCH;
677 V_DISPATCH(pvarRes) = NULL;
680 case DISPID_GLOBAL_TESTTHIS:
681 ok(pdp != NULL, "pdp == NULL\n");
682 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
683 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
684 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
685 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
686 ok(pvarRes == NULL, "pvarRes != NULL\n");
687 ok(pei != NULL, "pei == NULL\n");
689 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(arg) = %d\n", V_VT(pdp->rgvarg));
690 ok(V_DISPATCH(pdp->rgvarg) == (IDispatch*)iface, "disp != iface\n");
694 case DISPID_GLOBAL_TESTTHIS2:
695 ok(pdp != NULL, "pdp == NULL\n");
696 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
697 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
698 ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
699 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
700 ok(pvarRes == NULL, "pvarRes != NULL\n");
701 ok(pei != NULL, "pei == NULL\n");
703 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(arg) = %d\n", V_VT(pdp->rgvarg));
704 ok(V_DISPATCH(pdp->rgvarg) != (IDispatch*)iface, "disp == iface\n");
705 ok(V_DISPATCH(pdp->rgvarg) == script_disp, "disp != script_disp\n");
709 case DISPID_GLOBAL_INVOKEVERSION:
710 ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
711 ok(pdp != NULL, "pdp == NULL\n");
712 ok(!pdp->rgvarg, "rgvarg != NULL\n");
713 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
714 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
715 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
716 ok(pvarRes != NULL, "pvarRes == NULL\n");
717 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
718 ok(pei != NULL, "pei == NULL\n");
720 V_VT(pvarRes) = VT_I4;
721 V_I4(pvarRes) = invoke_version;
725 case DISPID_GLOBAL_CREATEARRAY: {
726 SAFEARRAYBOUND bound[2];
730 ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
731 ok(pdp != NULL, "pdp == NULL\n");
732 ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
733 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
734 ok(!pdp->cArgs, "cArgs = %d\n", pdp->cArgs);
735 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
736 ok(pvarRes != NULL, "pvarRes == NULL\n");
737 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
738 ok(pei != NULL, "pei == NULL\n");
740 bound[0].lLbound = 0;
741 bound[0].cElements = 5;
742 bound[1].lLbound = 2;
743 bound[1].cElements = 2;
745 V_VT(pvarRes) = VT_ARRAY|VT_VARIANT;
746 V_ARRAY(pvarRes) = SafeArrayCreate(VT_VARIANT, 2, bound);
748 SafeArrayAccessData(V_ARRAY(pvarRes), (void**)&data);
756 SafeArrayUnaccessData(V_ARRAY(pvarRes));
761 case DISPID_GLOBAL_PROPGETFUNC:
764 CHECK_EXPECT(invoke_func);
766 case INVOKE_FUNC|INVOKE_PROPERTYGET:
767 ok(pdp->cArgs != 0, "pdp->cArgs = %d\n", pdp->cArgs);
768 ok(pvarRes != NULL, "pdp->pvarRes == NULL\n");
771 ok(0, "invalid flag (%x)\n", wFlags);
774 ok(pdp != NULL, "pdp == NULL\n");
775 ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
776 ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
777 ok(pei != NULL, "pei == NULL\n");
780 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
781 V_VT(pvarRes) = VT_I4;
782 V_I4(pvarRes) = pdp->cArgs;
787 case DISPID_GLOBAL_OBJECT_FLAG: {
792 hres = IDispatch_QueryInterface(script_disp, &IID_IDispatchEx, (void**)&dispex);
793 ok(hres == S_OK, "hres = %x\n", hres);
795 str = a2bstr("Object");
796 hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
798 ok(hres == S_OK, "hres = %x\n", hres);
800 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, NULL, pei, pspCaller);
801 ok(hres == S_OK, "hres = %x\n", hres);
803 V_VT(pvarRes) = VT_EMPTY;
804 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD, pdp, pvarRes, pei, pspCaller);
805 ok(hres == S_OK, "hres = %x\n", hres);
806 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
807 VariantClear(pvarRes);
809 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_METHOD|DISPATCH_PROPERTYGET, pdp, NULL, pei, pspCaller);
810 ok(hres == S_OK, "hres = %x\n", hres);
812 V_VT(pvarRes) = VT_EMPTY;
813 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, pvarRes, pei, pspCaller);
814 ok(hres == S_OK, "hres = %x\n", hres);
815 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
816 VariantClear(pvarRes);
818 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT, pdp, NULL, pei, pspCaller);
819 ok(hres == S_OK, "hres = %x\n", hres);
821 V_VT(pvarRes) = VT_EMPTY;
822 hres = IDispatchEx_InvokeEx(dispex, id, lcid, DISPATCH_CONSTRUCT|DISPATCH_PROPERTYGET, pdp, pvarRes, pei, pspCaller);
823 ok(hres == E_INVALIDARG, "hres = %x\n", hres);
825 V_VT(pvarRes) = VT_EMPTY;
826 hres = IDispatchEx_InvokeEx(dispex, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
827 ok(hres == S_OK, "hres = %x\n", hres);
828 ok(V_VT(pvarRes) == VT_DISPATCH, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
829 IDispatchEx_Release(dispex);
834 ok(0, "unexpected call %x\n", id);
835 return DISP_E_MEMBERNOTFOUND;
838 static IDispatchExVtbl GlobalVtbl = {
839 DispatchEx_QueryInterface,
842 DispatchEx_GetTypeInfoCount,
843 DispatchEx_GetTypeInfo,
844 DispatchEx_GetIDsOfNames,
848 DispatchEx_DeleteMemberByName,
849 DispatchEx_DeleteMemberByDispID,
850 DispatchEx_GetMemberProperties,
851 DispatchEx_GetMemberName,
852 DispatchEx_GetNextDispID,
853 DispatchEx_GetNameSpaceParent
856 static IDispatchEx Global = { &GlobalVtbl };
858 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
862 if(IsEqualGUID(&IID_IUnknown, riid))
864 else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
867 return E_NOINTERFACE;
869 IUnknown_AddRef((IUnknown*)*ppv);
873 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
878 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
883 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
885 *plcid = GetUserDefaultLCID();
889 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
890 DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
892 ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
893 ok(!ppti, "ppti != NULL\n");
895 if(!strcmp_wa(pstrName, test_valA))
896 CHECK_EXPECT(GetItemInfo_testVal);
897 else if(strcmp_wa(pstrName, testA))
898 ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
900 *ppiunkItem = (IUnknown*)&Global;
904 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
909 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
910 const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
915 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
920 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
925 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
930 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
935 #undef ACTSCPSITE_THIS
937 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
938 ActiveScriptSite_QueryInterface,
939 ActiveScriptSite_AddRef,
940 ActiveScriptSite_Release,
941 ActiveScriptSite_GetLCID,
942 ActiveScriptSite_GetItemInfo,
943 ActiveScriptSite_GetDocVersionString,
944 ActiveScriptSite_OnScriptTerminate,
945 ActiveScriptSite_OnStateChange,
946 ActiveScriptSite_OnScriptError,
947 ActiveScriptSite_OnEnterScript,
948 ActiveScriptSite_OnLeaveScript
951 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
953 static HRESULT WINAPI ActiveScriptSite_OnScriptError_CheckError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
955 ok(pscripterror != NULL, "ActiveScriptSite_OnScriptError -- expected pscripterror to be set, got NULL\n");
957 script_error = pscripterror;
958 IUnknown_AddRef(script_error);
960 CHECK_EXPECT(ActiveScriptSite_OnScriptError);
965 static const IActiveScriptSiteVtbl ActiveScriptSite_CheckErrorVtbl = {
966 ActiveScriptSite_QueryInterface,
967 ActiveScriptSite_AddRef,
968 ActiveScriptSite_Release,
969 ActiveScriptSite_GetLCID,
970 ActiveScriptSite_GetItemInfo,
971 ActiveScriptSite_GetDocVersionString,
972 ActiveScriptSite_OnScriptTerminate,
973 ActiveScriptSite_OnStateChange,
974 ActiveScriptSite_OnScriptError_CheckError,
975 ActiveScriptSite_OnEnterScript,
976 ActiveScriptSite_OnLeaveScript
979 static IActiveScriptSite ActiveScriptSite_CheckError = { &ActiveScriptSite_CheckErrorVtbl };
981 static HRESULT set_script_prop(IActiveScript *engine, DWORD property, VARIANT *val)
983 IActiveScriptProperty *script_prop;
986 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptProperty,
987 (void**)&script_prop);
988 ok(hres == S_OK, "Could not get IActiveScriptProperty iface: %08x\n", hres);
990 hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
991 IActiveScriptProperty_Release(script_prop);
996 static IActiveScript *create_script(void)
998 IActiveScript *script;
1002 hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1003 &IID_IActiveScript, (void**)&script);
1004 ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
1007 V_I4(&v) = invoke_version;
1008 hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
1009 ok(hres == S_OK || broken(hres == E_NOTIMPL), "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
1010 if(invoke_version && FAILED(hres)) {
1011 IActiveScript_Release(script);
1018 static HRESULT parse_script(DWORD flags, BSTR script_str)
1020 IActiveScriptParse *parser;
1021 IActiveScript *engine;
1024 engine = create_script();
1028 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1029 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1032 IActiveScript_Release(engine);
1036 hres = IActiveScriptParse64_InitNew(parser);
1037 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1039 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1040 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1042 hres = IActiveScript_AddNamedItem(engine, testW,
1043 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1044 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1046 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1047 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1049 hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1050 ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1051 ok(script_disp != NULL, "script_disp == NULL\n");
1052 ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1054 hres = IActiveScriptParse64_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1056 IDispatch_Release(script_disp);
1057 IActiveScript_Release(engine);
1058 IUnknown_Release(parser);
1063 static HRESULT parse_htmlscript(BSTR script_str)
1065 IActiveScriptParse *parser;
1066 IActiveScript *engine;
1068 BSTR tmp = a2bstr("</SCRIPT>");
1070 engine = create_script();
1074 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1075 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1078 IActiveScript_Release(engine);
1082 hres = IActiveScriptParse64_InitNew(parser);
1083 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1085 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1086 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1088 hres = IActiveScript_AddNamedItem(engine, testW,
1089 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
1090 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1092 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1093 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1095 hres = IActiveScriptParse64_ParseScriptText(parser, script_str, NULL, NULL, tmp, 0, 0, 0, NULL, NULL);
1097 IActiveScript_Release(engine);
1098 IUnknown_Release(parser);
1104 static void test_IActiveScriptError(IActiveScriptError *error, SCODE errorcode, ULONG line, LONG pos, BSTR script_source, BSTR description, BSTR line_text)
1107 DWORD source_context;
1113 /* IActiveScriptError_GetSourcePosition */
1115 hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, NULL);
1116 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1118 source_context = 0xdeadbeef;
1119 hres = IActiveScriptError_GetSourcePosition(error, &source_context, NULL, NULL);
1120 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1121 ok(source_context == 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context);
1123 line_number = 0xdeadbeef;
1124 hres = IActiveScriptError_GetSourcePosition(error, NULL, &line_number, NULL);
1125 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1126 ok(line_number == line, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line, line_number);
1128 char_position = 0xdeadbeef;
1129 hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, &char_position);
1130 ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
1131 ok(char_position == pos, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos, char_position);
1133 /* IActiveScriptError_GetSourceLineText */
1135 hres = IActiveScriptError_GetSourceLineText(error, NULL);
1136 ok(hres == E_POINTER, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres);
1139 hres = IActiveScriptError_GetSourceLineText(error, &linetext);
1141 ok(hres == S_OK, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1142 ok(linetext != NULL && !lstrcmpW(linetext, line_text),
1143 "IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text), wine_dbgstr_w(linetext));
1145 ok(hres == E_FAIL, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
1146 ok(linetext == NULL,
1147 "IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext));
1149 SysFreeString(linetext);
1151 /* IActiveScriptError_GetExceptionInfo */
1153 hres = IActiveScriptError_GetExceptionInfo(error, NULL);
1154 ok(hres == E_POINTER, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres);
1156 excep.wCode = 0xdead;
1157 excep.wReserved = 0xdead;
1158 excep.bstrSource = (BSTR)0xdeadbeef;
1159 excep.bstrDescription = (BSTR)0xdeadbeef;
1160 excep.bstrHelpFile = (BSTR)0xdeadbeef;
1161 excep.dwHelpContext = 0xdeadbeef;
1162 excep.pvReserved = (void *)0xdeadbeef;
1163 excep.pfnDeferredFillIn = (void *)0xdeadbeef;
1164 excep.scode = 0xdeadbeef;
1166 hres = IActiveScriptError_GetExceptionInfo(error, &excep);
1167 ok(hres == S_OK, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres);
1169 ok(excep.wCode == 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep.wCode);
1170 ok(excep.wReserved == 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep.wReserved);
1171 if (!is_lang_english())
1172 skip("Non-english UI (test with hardcoded strings)\n");
1174 ok(excep.bstrSource != NULL && !lstrcmpW(excep.bstrSource, script_source),
1175 "IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
1176 wine_dbgstr_w(script_source), wine_dbgstr_w(excep.bstrSource));
1177 ok(excep.bstrDescription != NULL && !lstrcmpW(excep.bstrDescription, description),
1178 "IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep.bstrDescription));
1180 ok(excep.bstrHelpFile == NULL,
1181 "IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep.bstrHelpFile));
1182 ok(excep.dwHelpContext == 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep.dwHelpContext);
1183 ok(excep.pvReserved == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep.pvReserved);
1184 ok(excep.pfnDeferredFillIn == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep.pfnDeferredFillIn);
1185 ok(excep.scode == errorcode, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode, excep.scode);
1187 SysFreeString(excep.bstrSource);
1188 SysFreeString(excep.bstrDescription);
1189 SysFreeString(excep.bstrHelpFile);
1192 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)
1194 IActiveScriptParse *parser;
1195 IActiveScript *engine;
1198 engine = create_script();
1202 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1203 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1206 IActiveScript_Release(engine);
1210 hres = IActiveScriptParse64_InitNew(parser);
1211 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1213 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
1214 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1216 hres = IActiveScript_AddNamedItem(engine, testW,
1217 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
1218 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1220 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1221 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1223 hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
1224 ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
1225 ok(script_disp != NULL, "script_disp == NULL\n");
1226 ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
1228 script_error = NULL;
1229 SET_EXPECT(ActiveScriptSite_OnScriptError);
1230 hres = IActiveScriptParse64_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1231 todo_wine ok(hres == 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres);
1232 todo_wine CHECK_CALLED(ActiveScriptSite_OnScriptError);
1236 test_IActiveScriptError(script_error, errorcode, line, pos, script_source, description, line_text);
1238 IUnknown_Release(script_error);
1241 IDispatch_Release(script_disp);
1242 IActiveScript_Release(engine);
1243 IUnknown_Release(parser);
1246 static void parse_script_af(DWORD flags, const char *src)
1252 hres = parse_script(flags, tmp);
1254 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1257 static void parse_script_a(const char *src)
1259 parse_script_af(SCRIPTITEM_GLOBALMEMBERS, src);
1262 static void parse_script_with_error_a(const char *src, SCODE errorcode, ULONG line, LONG pos, LPCSTR source, LPCSTR desc, LPCSTR linetext)
1264 BSTR tmp, script_source, description, line_text;
1267 script_source = a2bstr(source);
1268 description = a2bstr(desc);
1269 line_text = a2bstr(linetext);
1271 parse_script_with_error(SCRIPTITEM_GLOBALMEMBERS, tmp, errorcode, line, pos, script_source, description, line_text);
1273 SysFreeString(line_text);
1274 SysFreeString(description);
1275 SysFreeString(script_source);
1279 static HRESULT parse_htmlscript_a(const char *src)
1282 BSTR tmp = a2bstr(src);
1283 hres = parse_htmlscript(tmp);
1289 static BSTR get_script_from_file(const char *filename)
1293 const char *file_map;
1296 file = CreateFileA(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
1297 if(file == INVALID_HANDLE_VALUE) {
1298 trace("Could not open file: %u\n", GetLastError());
1302 size = GetFileSize(file, NULL);
1304 map = CreateFileMapping(file, NULL, PAGE_READONLY, 0, 0, NULL);
1306 if(map == INVALID_HANDLE_VALUE) {
1307 trace("Could not create file mapping: %u\n", GetLastError());
1311 file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
1314 trace("MapViewOfFile failed: %u\n", GetLastError());
1318 len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
1319 ret = SysAllocStringLen(NULL, len);
1320 MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
1322 UnmapViewOfFile(file_map);
1327 static void run_from_file(const char *filename)
1332 script_str = get_script_from_file(filename);
1336 strict_dispid_check = FALSE;
1337 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, script_str);
1338 SysFreeString(script_str);
1339 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1342 static void run_from_res(const char *name)
1350 strict_dispid_check = FALSE;
1353 src = FindResourceA(NULL, name, (LPCSTR)40);
1354 ok(src != NULL, "Could not find resource %s\n", name);
1356 size = SizeofResource(NULL, src);
1357 data = LoadResource(NULL, src);
1359 len = MultiByteToWideChar(CP_ACP, 0, data, size, NULL, 0);
1360 str = SysAllocStringLen(NULL, len);
1361 MultiByteToWideChar(CP_ACP, 0, data, size, str, len);
1363 SET_EXPECT(global_success_d);
1364 SET_EXPECT(global_success_i);
1365 hres = parse_script(SCRIPTITEM_GLOBALMEMBERS, str);
1366 CHECK_CALLED(global_success_d);
1367 CHECK_CALLED(global_success_i);
1369 ok(hres == S_OK, "parse_script failed: %08x\n", hres);
1373 static void test_isvisible(BOOL global_members)
1375 IActiveScriptParse *parser;
1376 IActiveScript *engine;
1379 static const WCHAR script_textW[] =
1380 {'v','a','r',' ','v',' ','=',' ','t','e','s','t','V','a','l',';',0};
1382 engine = create_script();
1386 hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
1387 ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
1390 IActiveScript_Release(engine);
1394 hres = IActiveScriptParse64_InitNew(parser);
1395 ok(hres == S_OK, "InitNew failed: %08x\n", hres);
1397 hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite);
1398 ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
1401 SET_EXPECT(GetItemInfo_testVal);
1402 hres = IActiveScript_AddNamedItem(engine, test_valW,
1403 SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|
1404 (global_members ? SCRIPTITEM_GLOBALMEMBERS : 0));
1405 ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
1407 CHECK_CALLED(GetItemInfo_testVal);
1409 hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
1410 ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
1413 SET_EXPECT(GetItemInfo_testVal);
1414 hres = IActiveScriptParse64_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1415 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1417 CHECK_CALLED(GetItemInfo_testVal);
1419 hres = IActiveScriptParse64_ParseScriptText(parser, script_textW, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
1420 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1422 IActiveScript_Release(engine);
1423 IUnknown_Release(parser);
1426 static void run_tests(void)
1430 if(invoke_version) {
1431 IActiveScript *script;
1433 script = create_script();
1435 win_skip("Could not create script\n");
1438 IActiveScript_Release(script);
1441 strict_dispid_check = TRUE;
1444 parse_script_a("/* empty */ ;");
1446 SET_EXPECT(global_propget_d);
1447 SET_EXPECT(global_propget_i);
1448 parse_script_a("testPropGet;");
1449 CHECK_CALLED(global_propget_d);
1450 CHECK_CALLED(global_propget_i);
1452 SET_EXPECT(global_propput_d);
1453 SET_EXPECT(global_propput_i);
1454 parse_script_a("testPropPut = 1;");
1455 CHECK_CALLED(global_propput_d);
1456 CHECK_CALLED(global_propput_i);
1458 SET_EXPECT(global_success_d);
1459 SET_EXPECT(global_success_i);
1460 parse_script_a("reportSuccess();");
1461 CHECK_CALLED(global_success_d);
1462 CHECK_CALLED(global_success_i);
1464 SET_EXPECT(testobj_delete);
1465 parse_script_a("delete testObj.deleteTest;");
1466 CHECK_CALLED(testobj_delete);
1468 parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
1470 parse_script_a("function reportSuccess() {}; reportSuccess();");
1472 SET_EXPECT(global_propget_d);
1473 parse_script_a("var testPropGet");
1474 CHECK_CALLED(global_propget_d);
1476 SET_EXPECT(global_propget_d);
1477 parse_script_a("eval('var testPropGet;');");
1478 CHECK_CALLED(global_propget_d);
1480 SET_EXPECT(global_notexists_d);
1481 parse_script_a("var notExists; notExists = 1;");
1482 CHECK_CALLED(global_notexists_d);
1484 parse_script_a("function f() { var testPropGet; }");
1485 parse_script_a("(function () { var testPropGet; })();");
1486 parse_script_a("(function () { eval('var testPropGet;'); })();");
1488 SET_EXPECT(invoke_func);
1489 parse_script_a("ok(propGetFunc() == 0, \"Incorrect propGetFunc value\");");
1490 CHECK_CALLED(invoke_func);
1491 parse_script_a("ok(propGetFunc(1) == 1, \"Incorrect propGetFunc value\");");
1492 parse_script_a("ok(propGetFunc(1, 2) == 2, \"Incorrect propGetFunc value\");");
1493 SET_EXPECT(invoke_func);
1494 parse_script_a("ok(propGetFunc().toString() == 0, \"Incorrect propGetFunc value\");");
1495 CHECK_CALLED(invoke_func);
1496 parse_script_a("ok(propGetFunc(1).toString() == 1, \"Incorrect propGetFunc value\");");
1497 SET_EXPECT(invoke_func);
1498 parse_script_a("propGetFunc(1);");
1499 CHECK_CALLED(invoke_func);
1501 parse_script_a("objectFlag(1).toString();");
1503 parse_script_a("(function() { var tmp = (function () { return testObj; })()(1);})();");
1504 parse_script_a("(function() { var tmp = (function () { return testObj; })()();})();");
1506 parse_script_a("ok((testObj instanceof Object) === false, 'testObj is instance of Object');");
1508 SET_EXPECT(testobj_prop_d);
1509 parse_script_a("ok(('prop' in testObj) === true, 'prop is not in testObj');");
1510 CHECK_CALLED(testobj_prop_d);
1512 SET_EXPECT(testobj_noprop_d);
1513 parse_script_a("ok(('noprop' in testObj) === false, 'noprop is in testObj');");
1514 CHECK_CALLED(testobj_noprop_d);
1516 SET_EXPECT(testobj_prop_d);
1517 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'prop') === true, 'hasOwnProperty(\\\"prop\\\") returned false');");
1518 CHECK_CALLED(testobj_prop_d);
1520 SET_EXPECT(testobj_noprop_d);
1521 parse_script_a("ok(Object.prototype.hasOwnProperty.call(testObj, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1522 CHECK_CALLED(testobj_noprop_d);
1524 SET_EXPECT(puredisp_prop_d);
1525 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'prop') === true, 'hasOwnProperty(\\\"noprop\\\") returned false');");
1526 CHECK_CALLED(puredisp_prop_d);
1528 SET_EXPECT(puredisp_noprop_d);
1529 parse_script_a("ok(Object.prototype.hasOwnProperty.call(pureDisp, 'noprop') === false, 'hasOwnProperty(\\\"noprop\\\") returned true');");
1530 CHECK_CALLED(puredisp_noprop_d);
1532 SET_EXPECT(testobj_value);
1533 parse_script_a("ok(String(testObj) === '1', 'wrong testObj value');");
1534 CHECK_CALLED(testobj_value);
1536 SET_EXPECT(testobj_value);
1537 parse_script_a("ok(String.prototype.concat.call(testObj, ' OK') === '1 OK', 'wrong concat result');");
1538 CHECK_CALLED(testobj_value);
1540 SET_EXPECT(global_propget_d);
1541 SET_EXPECT(global_propget_i);
1542 parse_script_a("this.testPropGet;");
1543 CHECK_CALLED(global_propget_d);
1544 CHECK_CALLED(global_propget_i);
1546 SET_EXPECT(global_propget_d);
1547 SET_EXPECT(global_propget_i);
1548 parse_script_a("(function () { this.testPropGet; })();");
1549 CHECK_CALLED(global_propget_d);
1550 CHECK_CALLED(global_propget_i);
1552 parse_script_a("testThis(this);");
1553 parse_script_a("(function () { testThis(this); })();");
1555 SET_EXPECT(testobj_onlydispid_d);
1556 SET_EXPECT(testobj_onlydispid_i);
1557 parse_script_a("ok(typeof(testObj.onlyDispID) === 'unknown', 'unexpected typeof(testObj.onlyDispID)');");
1558 CHECK_CALLED(testobj_onlydispid_d);
1559 CHECK_CALLED(testobj_onlydispid_i);
1561 run_from_res("lang.js");
1562 run_from_res("api.js");
1563 run_from_res("regexp.js");
1564 run_from_res("cc.js");
1566 test_isvisible(FALSE);
1567 test_isvisible(TRUE);
1569 parse_script_af(0, "test.testThis2(this);");
1570 parse_script_af(0, "(function () { test.testThis2(this); })();");
1572 hres = parse_htmlscript_a("<!--");
1573 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1574 hres = parse_htmlscript_a("-->");
1575 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1576 hres = parse_htmlscript_a("<!--\nvar a=1;\n-->\n");
1577 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1578 hres = parse_htmlscript_a("<!--\n<!-- ignore this\n-->\n");
1579 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1580 hres = parse_htmlscript_a("var a=1;\nif(a-->0) a=5;\n");
1581 ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
1582 hres = parse_htmlscript_a("var a=1;\nif(a\n-->0) a=5;\n");
1583 ok(hres != S_OK, "ParseScriptText have not failed\n");
1585 parse_script_with_error_a(
1588 "Microsoft JScript compilation error",
1592 parse_script_with_error_a(
1593 "var a=1;\nif(a\n-->0) a=5;\n",
1595 "Microsoft JScript compilation error",
1599 parse_script_with_error_a(
1602 "Microsoft JScript runtime error",
1603 "Object doesn't support this action",
1606 parse_script_with_error_a(
1609 "Microsoft JScript runtime error",
1613 parse_script_with_error_a(
1614 "var a;\nnew null;",
1616 "Microsoft JScript runtime error",
1620 parse_script_with_error_a(
1623 "Microsoft JScript runtime error",
1628 static BOOL check_jscript(void)
1630 IActiveScriptProperty *script_prop;
1634 hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
1635 &IID_IActiveScriptProperty, (void**)&script_prop);
1638 IActiveScriptProperty_Release(script_prop);
1640 str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
1641 hres = parse_script(0, str);
1644 return hres == S_OK;
1652 argc = winetest_get_mainargs(&argv);
1656 if(!check_jscript()) {
1657 win_skip("Broken engine, probably too old\n");
1658 }else if(argc > 2) {
1659 run_from_file(argv[2]);
1661 trace("invoke version 0\n");
1665 trace("invoke version 2\n");