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(testobj_delete
);
68 #define DISPID_GLOBAL_TESTPROPGET 0x1000
69 #define DISPID_GLOBAL_TESTPROPPUT 0x1001
70 #define DISPID_GLOBAL_REPORTSUCCESS 0x1002
71 #define DISPID_GLOBAL_TRACE 0x1003
72 #define DISPID_GLOBAL_OK 0x1004
73 #define DISPID_GLOBAL_GETVT 0x1005
74 #define DISPID_GLOBAL_TESTOBJ 0x1006
76 static const WCHAR testW
[] = {'t','e','s','t',0};
78 static BOOL strict_dispid_check
;
79 static const char *test_name
= "(null)";
81 static const char *debugstr_w(LPCWSTR str
)
83 static char buf
[1024];
88 WideCharToMultiByte(CP_ACP
, 0, str
, -1, buf
, sizeof(buf
), NULL
, NULL
);
92 static BSTR
a2bstr(const char *str
)
97 len
= MultiByteToWideChar(CP_ACP
, 0, str
, -1, NULL
, 0);
98 ret
= SysAllocStringLen(NULL
, len
-1);
99 MultiByteToWideChar(CP_ACP
, 0, str
, -1, ret
, len
);
104 static int strcmp_wa(LPCWSTR strw
, const char *stra
)
107 WideCharToMultiByte(CP_ACP
, 0, strw
, -1, buf
, sizeof(buf
), 0, 0);
108 return lstrcmpA(buf
, stra
);
111 static HRESULT WINAPI
DispatchEx_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
115 if(IsEqualGUID(riid
, &IID_IUnknown
)
116 || IsEqualGUID(riid
, &IID_IDispatch
)
117 || IsEqualGUID(riid
, &IID_IDispatchEx
))
120 return E_NOINTERFACE
;
125 static ULONG WINAPI
DispatchEx_AddRef(IDispatchEx
*iface
)
130 static ULONG WINAPI
DispatchEx_Release(IDispatchEx
*iface
)
135 static HRESULT WINAPI
DispatchEx_GetTypeInfoCount(IDispatchEx
*iface
, UINT
*pctinfo
)
137 ok(0, "unexpected call\n");
141 static HRESULT WINAPI
DispatchEx_GetTypeInfo(IDispatchEx
*iface
, UINT iTInfo
,
142 LCID lcid
, ITypeInfo
**ppTInfo
)
144 ok(0, "unexpected call\n");
148 static HRESULT WINAPI
DispatchEx_GetIDsOfNames(IDispatchEx
*iface
, REFIID riid
,
149 LPOLESTR
*rgszNames
, UINT cNames
,
150 LCID lcid
, DISPID
*rgDispId
)
152 ok(0, "unexpected call\n");
156 static HRESULT WINAPI
DispatchEx_Invoke(IDispatchEx
*iface
, DISPID dispIdMember
,
157 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
158 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
160 ok(0, "unexpected call\n");
164 static HRESULT WINAPI
DispatchEx_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
166 ok(0, "unexpected call %s %x\n", debugstr_w(bstrName
), grfdex
);
170 static HRESULT WINAPI
DispatchEx_DeleteMemberByDispID(IDispatchEx
*iface
, DISPID id
)
172 ok(0, "unexpected call\n");
176 static HRESULT WINAPI
DispatchEx_GetMemberProperties(IDispatchEx
*iface
, DISPID id
, DWORD grfdexFetch
, DWORD
*pgrfdex
)
178 ok(0, "unexpected call\n");
182 static HRESULT WINAPI
DispatchEx_GetMemberName(IDispatchEx
*iface
, DISPID id
, BSTR
*pbstrName
)
184 ok(0, "unexpected call\n");
188 static HRESULT WINAPI
DispatchEx_GetNextDispID(IDispatchEx
*iface
, DWORD grfdex
, DISPID id
, DISPID
*pid
)
190 ok(0, "unexpected call\n");
194 static HRESULT WINAPI
DispatchEx_GetNameSpaceParent(IDispatchEx
*iface
, IUnknown
**ppunk
)
196 ok(0, "unexpected call\n");
200 static HRESULT WINAPI
DispatchEx_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
202 ok(0, "unexpected call\n");
206 static HRESULT WINAPI
DispatchEx_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
207 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
209 ok(0, "unexpected call\n");
213 static HRESULT WINAPI
testObj_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
215 CHECK_EXPECT(testobj_delete
);
217 ok(!strcmp_wa(bstrName
, "deleteTest"), "unexpected name %s\n", debugstr_w(bstrName
));
218 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
222 static IDispatchExVtbl testObjVtbl
= {
223 DispatchEx_QueryInterface
,
226 DispatchEx_GetTypeInfoCount
,
227 DispatchEx_GetTypeInfo
,
228 DispatchEx_GetIDsOfNames
,
230 DispatchEx_GetDispID
,
232 testObj_DeleteMemberByName
,
233 DispatchEx_DeleteMemberByDispID
,
234 DispatchEx_GetMemberProperties
,
235 DispatchEx_GetMemberName
,
236 DispatchEx_GetNextDispID
,
237 DispatchEx_GetNameSpaceParent
240 static IDispatchEx testObj
= { &testObjVtbl
};
242 static HRESULT WINAPI
Global_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
244 if(!strcmp_wa(bstrName
, "ok")) {
245 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
246 *pid
= DISPID_GLOBAL_OK
;
249 if(!strcmp_wa(bstrName
, "trace")) {
250 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
251 *pid
= DISPID_GLOBAL_TRACE
;
254 if(!strcmp_wa(bstrName
, "reportSuccess")) {
255 CHECK_EXPECT(global_success_d
);
256 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
257 *pid
= DISPID_GLOBAL_REPORTSUCCESS
;
260 if(!strcmp_wa(bstrName
, "testPropGet")) {
261 CHECK_EXPECT(global_propget_d
);
262 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
263 *pid
= DISPID_GLOBAL_TESTPROPGET
;
266 if(!strcmp_wa(bstrName
, "testPropPut")) {
267 CHECK_EXPECT(global_propput_d
);
268 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
269 *pid
= DISPID_GLOBAL_TESTPROPPUT
;
272 if(!strcmp_wa(bstrName
, "getVT")) {
273 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
274 *pid
= DISPID_GLOBAL_GETVT
;
277 if(!strcmp_wa(bstrName
, "testObj")) {
278 ok(grfdex
== fdexNameCaseSensitive
, "grfdex = %x\n", grfdex
);
279 *pid
= DISPID_GLOBAL_TESTOBJ
;
283 if(strict_dispid_check
)
284 ok(0, "unexpected call %s\n", debugstr_w(bstrName
));
285 return DISP_E_UNKNOWNNAME
;
288 static HRESULT WINAPI
Global_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
289 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
292 case DISPID_GLOBAL_OK
:
293 ok(wFlags
== INVOKE_FUNC
|| wFlags
== (INVOKE_FUNC
|INVOKE_PROPERTYGET
), "wFlags = %x\n", wFlags
);
294 ok(pdp
!= NULL
, "pdp == NULL\n");
295 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
296 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
297 ok(pdp
->cArgs
== 2, "cArgs = %d\n", pdp
->cArgs
);
298 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
299 if(wFlags
& INVOKE_PROPERTYGET
)
300 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
302 ok(!pvarRes
, "pvarRes != NULL\n");
303 ok(pei
!= NULL
, "pei == NULL\n");
305 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
306 ok(V_VT(pdp
->rgvarg
+1) == VT_BOOL
, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp
->rgvarg
));
307 ok(V_BOOL(pdp
->rgvarg
+1), "%s: %s\n", test_name
, debugstr_w(V_BSTR(pdp
->rgvarg
)));
311 case DISPID_GLOBAL_TRACE
:
312 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
313 ok(pdp
!= NULL
, "pdp == NULL\n");
314 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
315 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
316 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
317 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
318 ok(!pvarRes
, "pvarRes != NULL\n");
319 ok(pei
!= NULL
, "pei == NULL\n");
321 ok(V_VT(pdp
->rgvarg
) == VT_BSTR
, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp
->rgvarg
));
322 if(V_VT(pdp
->rgvarg
) == VT_BSTR
)
323 trace("%s: %s\n", test_name
, debugstr_w(V_BSTR(pdp
->rgvarg
)));
327 case DISPID_GLOBAL_REPORTSUCCESS
:
328 CHECK_EXPECT(global_success_i
);
330 ok(wFlags
== INVOKE_FUNC
, "wFlags = %x\n", wFlags
);
331 ok(pdp
!= NULL
, "pdp == NULL\n");
332 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
333 ok(pdp
->cArgs
== 0, "cArgs = %d\n", pdp
->cArgs
);
334 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
335 ok(!pvarRes
, "pvarRes != NULL\n");
336 ok(pei
!= NULL
, "pei == NULL\n");
340 case DISPID_GLOBAL_TESTPROPGET
:
341 CHECK_EXPECT(global_propget_i
);
343 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
344 ok(pdp
!= NULL
, "pdp == NULL\n");
345 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
346 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
347 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
348 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
349 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
350 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
351 ok(pei
!= NULL
, "pei == NULL\n");
353 V_VT(pvarRes
) = VT_I4
;
358 case DISPID_GLOBAL_TESTPROPPUT
:
359 CHECK_EXPECT(global_propput_i
);
361 ok(wFlags
== INVOKE_PROPERTYPUT
, "wFlags = %x\n", wFlags
);
362 ok(pdp
!= NULL
, "pdp == NULL\n");
363 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
364 ok(pdp
->rgdispidNamedArgs
!= NULL
, "rgdispidNamedArgs == NULL\n");
365 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
366 ok(pdp
->cNamedArgs
== 1, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
367 ok(pdp
->rgdispidNamedArgs
[0] == DISPID_PROPERTYPUT
, "pdp->rgdispidNamedArgs[0] = %d\n", pdp
->rgdispidNamedArgs
[0]);
368 ok(!pvarRes
, "pvarRes != NULL\n");
370 ok(V_VT(pdp
->rgvarg
) == VT_I4
, "V_VT(pdp->rgvarg)=%d\n", V_VT(pdp
->rgvarg
));
371 ok(V_I4(pdp
->rgvarg
) == 1, "V_I4(pdp->rgvarg)=%d\n", V_I4(pdp
->rgvarg
));
374 case DISPID_GLOBAL_GETVT
:
375 ok(pdp
!= NULL
, "pdp == NULL\n");
376 ok(pdp
->rgvarg
!= NULL
, "rgvarg == NULL\n");
377 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
378 ok(pdp
->cArgs
== 1, "cArgs = %d\n", pdp
->cArgs
);
379 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
380 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
381 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
382 ok(pei
!= NULL
, "pei == NULL\n");
384 V_VT(pvarRes
) = VT_BSTR
;
385 switch(V_VT(pdp
->rgvarg
)) {
387 V_BSTR(pvarRes
) = a2bstr("VT_EMPTY");
390 V_BSTR(pvarRes
) = a2bstr("VT_NULL");
393 V_BSTR(pvarRes
) = a2bstr("VT_I4");
396 V_BSTR(pvarRes
) = a2bstr("VT_R8");
399 V_BSTR(pvarRes
) = a2bstr("VT_BSTR");
402 V_BSTR(pvarRes
) = a2bstr("VT_DISPATCH");
405 V_BSTR(pvarRes
) = a2bstr("VT_BOOL");
408 ok(0, "unknown vt %d\n", V_VT(pdp
->rgvarg
));
414 case DISPID_GLOBAL_TESTOBJ
:
415 ok(wFlags
== INVOKE_PROPERTYGET
, "wFlags = %x\n", wFlags
);
416 ok(pdp
!= NULL
, "pdp == NULL\n");
417 ok(!pdp
->rgvarg
, "rgvarg != NULL\n");
418 ok(!pdp
->rgdispidNamedArgs
, "rgdispidNamedArgs != NULL\n");
419 ok(!pdp
->cArgs
, "cArgs = %d\n", pdp
->cArgs
);
420 ok(!pdp
->cNamedArgs
, "cNamedArgs = %d\n", pdp
->cNamedArgs
);
421 ok(pvarRes
!= NULL
, "pvarRes == NULL\n");
422 ok(V_VT(pvarRes
) == VT_EMPTY
, "V_VT(pvarRes) = %d\n", V_VT(pvarRes
));
423 ok(pei
!= NULL
, "pei == NULL\n");
425 V_VT(pvarRes
) = VT_DISPATCH
;
426 V_DISPATCH(pvarRes
) = (IDispatch
*)&testObj
;
430 ok(0, "unexpected call %x\n", id
);
431 return DISP_E_MEMBERNOTFOUND
;
434 static IDispatchExVtbl GlobalVtbl
= {
435 DispatchEx_QueryInterface
,
438 DispatchEx_GetTypeInfoCount
,
439 DispatchEx_GetTypeInfo
,
440 DispatchEx_GetIDsOfNames
,
444 DispatchEx_DeleteMemberByName
,
445 DispatchEx_DeleteMemberByDispID
,
446 DispatchEx_GetMemberProperties
,
447 DispatchEx_GetMemberName
,
448 DispatchEx_GetNextDispID
,
449 DispatchEx_GetNameSpaceParent
452 static IDispatchEx Global
= { &GlobalVtbl
};
454 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
458 if(IsEqualGUID(&IID_IUnknown
, riid
))
460 else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
))
463 return E_NOINTERFACE
;
465 IUnknown_AddRef((IUnknown
*)*ppv
);
469 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
474 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
479 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
481 *plcid
= GetUserDefaultLCID();
485 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
486 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
488 ok(!lstrcmpW(pstrName
, testW
), "unexpected pstrName %s\n", debugstr_w(pstrName
));
489 ok(dwReturnMask
== SCRIPTINFO_IUNKNOWN
, "unexpected dwReturnMask %x\n", dwReturnMask
);
490 ok(!ppti
, "ppti != NULL\n");
492 *ppiunkItem
= (IUnknown
*)&Global
;
496 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
501 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
502 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
507 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
512 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
517 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
522 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
527 #undef ACTSCPSITE_THIS
529 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
530 ActiveScriptSite_QueryInterface
,
531 ActiveScriptSite_AddRef
,
532 ActiveScriptSite_Release
,
533 ActiveScriptSite_GetLCID
,
534 ActiveScriptSite_GetItemInfo
,
535 ActiveScriptSite_GetDocVersionString
,
536 ActiveScriptSite_OnScriptTerminate
,
537 ActiveScriptSite_OnStateChange
,
538 ActiveScriptSite_OnScriptError
,
539 ActiveScriptSite_OnEnterScript
,
540 ActiveScriptSite_OnLeaveScript
543 static IActiveScriptSite ActiveScriptSite
= { &ActiveScriptSiteVtbl
};
545 static IActiveScript
*create_script(void)
547 IActiveScript
*script
;
550 hres
= CoCreateInstance(&CLSID_JScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
551 &IID_IActiveScript
, (void**)&script
);
552 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
557 static void parse_script(BSTR script_str
)
559 IActiveScriptParse
*parser
;
560 IActiveScript
*engine
;
563 engine
= create_script();
567 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptParse
, (void**)&parser
);
568 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
570 hres
= IActiveScriptParse_InitNew(parser
);
571 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
573 hres
= IActiveScript_SetScriptSite(engine
, &ActiveScriptSite
);
574 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
576 hres
= IActiveScript_AddNamedItem(engine
, testW
,
577 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
);
578 ok(hres
== S_OK
, "AddNamedItem failed: %08x\n", hres
);
580 hres
= IActiveScript_SetScriptState(engine
, SCRIPTSTATE_STARTED
);
581 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
583 hres
= IActiveScriptParse_ParseScriptText(parser
, script_str
, NULL
, NULL
, NULL
, 0, 0, 0, NULL
, NULL
);
584 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
586 IActiveScript_Release(engine
);
587 IActiveScriptParse_Release(parser
);
590 static void parse_script_a(const char *src
)
592 BSTR tmp
= a2bstr(src
);
597 static BSTR
get_script_from_file(const char *filename
)
601 const char *file_map
;
604 file
= CreateFileA(filename
, GENERIC_READ
, 0, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_READONLY
, NULL
);
605 if(file
== INVALID_HANDLE_VALUE
) {
606 trace("Could not open file: %u\n", GetLastError());
610 size
= GetFileSize(file
, NULL
);
612 map
= CreateFileMapping(file
, NULL
, PAGE_READONLY
, 0, 0, NULL
);
614 if(map
== INVALID_HANDLE_VALUE
) {
615 trace("Could not create file mapping: %u\n", GetLastError());
619 file_map
= MapViewOfFile(map
, FILE_MAP_READ
, 0, 0, 0);
622 trace("MapViewOfFile failed: %u\n", GetLastError());
626 len
= MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, NULL
, 0);
627 ret
= SysAllocStringLen(NULL
, len
);
628 MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, ret
, len
);
630 UnmapViewOfFile(file_map
);
635 static void run_from_file(const char *filename
)
637 BSTR script_str
= get_script_from_file(filename
);
639 strict_dispid_check
= FALSE
;
642 parse_script(script_str
);
644 SysFreeString(script_str
);
647 static void run_from_res(const char *name
)
654 strict_dispid_check
= FALSE
;
657 src
= FindResourceA(NULL
, name
, (LPCSTR
)40);
658 ok(src
!= NULL
, "Could not find resource %s\n", name
);
660 size
= SizeofResource(NULL
, src
);
661 data
= LoadResource(NULL
, src
);
663 len
= MultiByteToWideChar(CP_ACP
, 0, data
, size
, NULL
, 0);
664 str
= SysAllocStringLen(NULL
, len
);
665 len
= MultiByteToWideChar(CP_ACP
, 0, data
, size
, str
, len
);
667 SET_EXPECT(global_success_d
);
668 SET_EXPECT(global_success_i
);
670 CHECK_CALLED(global_success_d
);
671 CHECK_CALLED(global_success_i
);
676 static void run_tests(void)
678 strict_dispid_check
= TRUE
;
681 parse_script_a("/* empty */ ;");
683 SET_EXPECT(global_propget_d
);
684 SET_EXPECT(global_propget_i
);
685 parse_script_a("testPropGet;");
686 CHECK_CALLED(global_propget_d
);
687 CHECK_CALLED(global_propget_i
);
689 SET_EXPECT(global_propput_d
);
690 SET_EXPECT(global_propput_i
);
691 parse_script_a("testPropPut = 1;");
692 CHECK_CALLED(global_propput_d
);
693 CHECK_CALLED(global_propput_i
);
695 SET_EXPECT(global_success_d
);
696 SET_EXPECT(global_success_i
);
697 parse_script_a("reportSuccess();");
698 CHECK_CALLED(global_success_d
);
699 CHECK_CALLED(global_success_i
);
701 SET_EXPECT(testobj_delete
);
702 parse_script_a("delete testObj.deleteTest;");
703 CHECK_CALLED(testobj_delete
);
705 parse_script_a("ok(typeof(test) === 'object', \"typeof(test) != 'object'\");");
707 run_from_res("lang.js");
708 run_from_res("api.js");
709 run_from_res("regexp.js");
717 argc
= winetest_get_mainargs(&argv
);
722 run_from_file(argv
[2]);