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
19 #define WIN32_NO_STATUS
21 #define COM_NO_WINDOWS_H
37 #include <wine/test.h>
41 #define IActiveScriptParse_QueryInterface IActiveScriptParse64_QueryInterface
42 #define IActiveScriptParse_Release IActiveScriptParse64_Release
43 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
44 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
48 #define IActiveScriptParse_QueryInterface IActiveScriptParse32_QueryInterface
49 #define IActiveScriptParse_Release IActiveScriptParse32_Release
50 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
51 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
55 DEFINE_GUID(GUID_NULL
,0,0,0,0,0,0,0,0,0,0,0);
57 static const CLSID CLSID_JScript
=
58 {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
59 static const CLSID CLSID_JScriptEncode
=
60 {0xf414c262,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
62 #define DEFINE_EXPECT(func) \
63 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
65 #define SET_EXPECT(func) \
66 expect_ ## func = TRUE
68 #define CHECK_EXPECT2(func) \
70 ok(expect_ ##func, "unexpected call " #func "\n"); \
71 called_ ## func = TRUE; \
74 #define CHECK_EXPECT(func) \
76 CHECK_EXPECT2(func); \
77 expect_ ## func = FALSE; \
80 #define CHECK_CALLED(func) \
82 ok(called_ ## func, "expected " #func "\n"); \
83 expect_ ## func = called_ ## func = FALSE; \
86 DEFINE_EXPECT(GetLCID
);
87 DEFINE_EXPECT(OnStateChange_UNINITIALIZED
);
88 DEFINE_EXPECT(OnStateChange_STARTED
);
89 DEFINE_EXPECT(OnStateChange_CONNECTED
);
90 DEFINE_EXPECT(OnStateChange_DISCONNECTED
);
91 DEFINE_EXPECT(OnStateChange_CLOSED
);
92 DEFINE_EXPECT(OnStateChange_INITIALIZED
);
93 DEFINE_EXPECT(OnEnterScript
);
94 DEFINE_EXPECT(OnLeaveScript
);
96 static const CLSID
*engine_clsid
= &CLSID_JScript
;
98 static BSTR
a2bstr(const char *str
)
103 len
= MultiByteToWideChar(CP_ACP
, 0, str
, -1, NULL
, 0);
104 ret
= SysAllocStringLen(NULL
, len
-1);
105 MultiByteToWideChar(CP_ACP
, 0, str
, -1, ret
, len
);
110 #define test_state(s,ss) _test_state(__LINE__,s,ss)
111 static void _test_state(unsigned line
, IActiveScript
*script
, SCRIPTSTATE exstate
)
113 SCRIPTSTATE state
= -1;
116 hres
= IActiveScript_GetScriptState(script
, &state
);
117 ok_(__FILE__
,line
) (hres
== S_OK
, "GetScriptState failed: %08x\n", hres
);
118 ok_(__FILE__
,line
) (state
== exstate
, "state=%d, expected %d\n", state
, exstate
);
121 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
125 if(IsEqualGUID(&IID_IUnknown
, riid
))
127 else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
))
130 return E_NOINTERFACE
;
132 IUnknown_AddRef((IUnknown
*)*ppv
);
136 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
141 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
146 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
148 CHECK_EXPECT(GetLCID
);
152 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
153 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
155 ok(0, "unexpected call\n");
159 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
161 ok(0, "unexpected call\n");
165 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
166 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
168 ok(0, "unexpected call\n");
172 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
174 switch(ssScriptState
) {
175 case SCRIPTSTATE_UNINITIALIZED
:
176 CHECK_EXPECT(OnStateChange_UNINITIALIZED
);
178 case SCRIPTSTATE_STARTED
:
179 CHECK_EXPECT(OnStateChange_STARTED
);
181 case SCRIPTSTATE_CONNECTED
:
182 CHECK_EXPECT(OnStateChange_CONNECTED
);
184 case SCRIPTSTATE_DISCONNECTED
:
185 CHECK_EXPECT(OnStateChange_DISCONNECTED
);
187 case SCRIPTSTATE_CLOSED
:
188 CHECK_EXPECT(OnStateChange_CLOSED
);
190 case SCRIPTSTATE_INITIALIZED
:
191 CHECK_EXPECT(OnStateChange_INITIALIZED
);
194 ok(0, "unexpected call %d\n", ssScriptState
);
200 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
202 ok(0, "unexpected call\n");
206 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
208 CHECK_EXPECT(OnEnterScript
);
212 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
214 CHECK_EXPECT(OnLeaveScript
);
218 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
219 ActiveScriptSite_QueryInterface
,
220 ActiveScriptSite_AddRef
,
221 ActiveScriptSite_Release
,
222 ActiveScriptSite_GetLCID
,
223 ActiveScriptSite_GetItemInfo
,
224 ActiveScriptSite_GetDocVersionString
,
225 ActiveScriptSite_OnScriptTerminate
,
226 ActiveScriptSite_OnStateChange
,
227 ActiveScriptSite_OnScriptError
,
228 ActiveScriptSite_OnEnterScript
,
229 ActiveScriptSite_OnLeaveScript
232 static IActiveScriptSite ActiveScriptSite
= { &ActiveScriptSiteVtbl
};
234 static void test_script_dispatch(IDispatchEx
*dispex
)
236 DISPPARAMS dp
= {NULL
,NULL
,0,0};
243 str
= a2bstr("ActiveXObject");
244 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
246 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
248 str
= a2bstr("Math");
249 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
251 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
253 memset(&ei
, 0, sizeof(ei
));
254 hres
= IDispatchEx_InvokeEx(dispex
, id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
255 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
256 ok(V_VT(&v
) == VT_DISPATCH
, "V_VT(v) = %d\n", V_VT(&v
));
257 ok(V_DISPATCH(&v
) != NULL
, "V_DISPATCH(v) = NULL\n");
260 str
= a2bstr("String");
261 hres
= IDispatchEx_GetDispID(dispex
, str
, fdexNameCaseSensitive
, &id
);
263 ok(hres
== S_OK
, "GetDispID failed: %08x\n", hres
);
265 memset(&ei
, 0, sizeof(ei
));
266 hres
= IDispatchEx_InvokeEx(dispex
, id
, 0, DISPATCH_PROPERTYGET
, &dp
, &v
, &ei
, NULL
);
267 ok(hres
== S_OK
, "InvokeEx failed: %08x\n", hres
);
268 ok(V_VT(&v
) == VT_DISPATCH
, "V_VT(v) = %d\n", V_VT(&v
));
269 ok(V_DISPATCH(&v
) != NULL
, "V_DISPATCH(v) = NULL\n");
273 static IDispatchEx
*get_script_dispatch(IActiveScript
*script
)
279 disp
= (void*)0xdeadbeef;
280 hres
= IActiveScript_GetScriptDispatch(script
, NULL
, &disp
);
281 ok(hres
== S_OK
, "GetScriptDispatch failed: %08x\n", hres
);
283 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
284 IDispatch_Release(disp
);
285 ok(hres
== S_OK
, "Could not get IDispatch iface: %08x\n", hres
);
289 static void test_no_script_dispatch(IActiveScript
*script
)
294 disp
= (void*)0xdeadbeef;
295 hres
= IActiveScript_GetScriptDispatch(script
, NULL
, &disp
);
296 ok(hres
== E_UNEXPECTED
, "hres = %08x, expected E_UNEXPECTED\n", hres
);
297 ok(!disp
, "disp != NULL\n");
300 static void test_safety(IUnknown
*unk
)
302 IObjectSafety
*safety
;
303 DWORD supported
, enabled
;
306 hres
= IUnknown_QueryInterface(unk
, &IID_IObjectSafety
, (void**)&safety
);
307 ok(hres
== S_OK
, "Could not get IObjectSafety: %08x\n", hres
);
311 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, &supported
, NULL
);
312 ok(hres
== E_POINTER
, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres
);
313 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, NULL
, &enabled
);
314 ok(hres
== E_POINTER
, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres
);
316 supported
= enabled
= 0xdeadbeef;
317 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, &supported
, &enabled
);
318 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
319 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
320 "supported=%x\n", supported
);
321 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
323 supported
= enabled
= 0xdeadbeef;
324 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScript
, &supported
, &enabled
);
325 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
326 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
327 "supported=%x\n", supported
);
328 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
330 supported
= enabled
= 0xdeadbeef;
331 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
332 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
333 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
334 "supported=%x\n", supported
);
335 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
337 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
338 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
339 |INTERFACESAFE_FOR_UNTRUSTED_CALLER
,
340 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
);
341 ok(hres
== E_FAIL
, "SetInterfaceSafetyOptions failed: %08x, expected E_FAIL\n", hres
);
343 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
344 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
,
345 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
);
346 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
348 supported
= enabled
= 0xdeadbeef;
349 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
350 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
351 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
352 "supported=%x\n", supported
);
353 ok(enabled
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
354 "enabled=%x\n", enabled
);
356 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, INTERFACESAFE_FOR_UNTRUSTED_DATA
, 0);
357 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
359 supported
= enabled
= 0xdeadbeef;
360 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
361 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
362 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
363 "supported=%x\n", supported
);
364 ok(enabled
== (INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
), "enabled=%x\n", enabled
);
366 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
367 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
, 0);
368 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
370 supported
= enabled
= 0xdeadbeef;
371 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
372 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
373 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
374 "supported=%x\n", supported
);
375 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
377 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
378 INTERFACE_USES_DISPEX
, 0);
379 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
381 supported
= enabled
= 0xdeadbeef;
382 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
383 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
384 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
385 "supported=%x\n", supported
);
386 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
388 IObjectSafety_Release(safety
);
391 static HRESULT
set_script_prop(IActiveScript
*engine
, DWORD property
, VARIANT
*val
)
393 IActiveScriptProperty
*script_prop
;
396 hres
= IActiveScript_QueryInterface(engine
, &IID_IActiveScriptProperty
,
397 (void**)&script_prop
);
398 ok(hres
== S_OK
, "Could not get IActiveScriptProperty: %08x\n", hres
);
402 hres
= IActiveScriptProperty_SetProperty(script_prop
, property
, NULL
, val
);
403 IActiveScriptProperty_Release(script_prop
);
407 static void test_invoke_versioning(IActiveScript
*script
)
413 hres
= set_script_prop(script
, SCRIPTPROP_INVOKEVERSIONING
, &v
);
414 if(hres
== E_NOTIMPL
) {
415 win_skip("SCRIPTPROP_INVOKESTRING not supported\n");
418 ok(hres
== E_INVALIDARG
, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres
);
422 hres
= set_script_prop(script
, SCRIPTPROP_INVOKEVERSIONING
, &v
);
423 ok(hres
== E_INVALIDARG
, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres
);
427 hres
= set_script_prop(script
, SCRIPTPROP_INVOKEVERSIONING
, &v
);
428 ok(hres
== E_INVALIDARG
, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres
);
432 hres
= set_script_prop(script
, SCRIPTPROP_INVOKEVERSIONING
, &v
);
433 ok(hres
== S_OK
, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres
);
436 static IActiveScript
*create_jscript(void)
441 hres
= CoCreateInstance(engine_clsid
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
442 &IID_IActiveScript
, (void**)&ret
);
443 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
448 static void test_jscript(void)
450 IActiveScriptParse
*parse
;
451 IActiveScript
*script
;
456 script
= create_jscript();
458 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)&parse
);
459 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
461 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
462 test_safety((IUnknown
*)script
);
463 test_invoke_versioning(script
);
465 hres
= IActiveScriptParse_InitNew(parse
);
466 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
468 hres
= IActiveScriptParse_InitNew(parse
);
469 ok(hres
== E_UNEXPECTED
, "InitNew failed: %08x, expected E_UNEXPECTED\n", hres
);
471 hres
= IActiveScript_SetScriptSite(script
, NULL
);
472 ok(hres
== E_POINTER
, "SetScriptSite failed: %08x, expected E_POINTER\n", hres
);
474 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
475 test_no_script_dispatch(script
);
478 SET_EXPECT(OnStateChange_INITIALIZED
);
479 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
480 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
481 CHECK_CALLED(GetLCID
);
482 CHECK_CALLED(OnStateChange_INITIALIZED
);
484 test_state(script
, SCRIPTSTATE_INITIALIZED
);
486 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
487 ok(hres
== E_UNEXPECTED
, "SetScriptSite failed: %08x, expected E_UNEXPECTED\n", hres
);
489 dispex
= get_script_dispatch(script
);
490 test_script_dispatch(dispex
);
492 SET_EXPECT(OnStateChange_STARTED
);
493 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_STARTED
);
494 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres
);
495 CHECK_CALLED(OnStateChange_STARTED
);
497 test_state(script
, SCRIPTSTATE_STARTED
);
499 SET_EXPECT(OnStateChange_CLOSED
);
500 hres
= IActiveScript_Close(script
);
501 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
502 CHECK_CALLED(OnStateChange_CLOSED
);
504 test_state(script
, SCRIPTSTATE_CLOSED
);
505 test_no_script_dispatch(script
);
506 test_script_dispatch(dispex
);
507 IDispatchEx_Release(dispex
);
509 IActiveScriptParse_Release(parse
);
511 ref
= IActiveScript_Release(script
);
512 ok(!ref
, "ref = %d\n", ref
);
515 static void test_jscript2(void)
517 IActiveScriptParse
*parse
;
518 IActiveScript
*script
;
522 script
= create_jscript();
524 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)&parse
);
525 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
527 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
530 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
531 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
532 CHECK_CALLED(GetLCID
);
534 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
536 SET_EXPECT(OnStateChange_INITIALIZED
);
537 hres
= IActiveScriptParse_InitNew(parse
);
538 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
539 CHECK_CALLED(OnStateChange_INITIALIZED
);
541 hres
= IActiveScriptParse_InitNew(parse
);
542 ok(hres
== E_UNEXPECTED
, "InitNew failed: %08x, expected E_UNEXPECTED\n", hres
);
544 SET_EXPECT(OnStateChange_CONNECTED
);
545 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_CONNECTED
);
546 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres
);
547 CHECK_CALLED(OnStateChange_CONNECTED
);
549 test_state(script
, SCRIPTSTATE_CONNECTED
);
551 SET_EXPECT(OnStateChange_DISCONNECTED
);
552 SET_EXPECT(OnStateChange_INITIALIZED
);
553 SET_EXPECT(OnStateChange_CLOSED
);
554 hres
= IActiveScript_Close(script
);
555 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
556 CHECK_CALLED(OnStateChange_DISCONNECTED
);
557 CHECK_CALLED(OnStateChange_INITIALIZED
);
558 CHECK_CALLED(OnStateChange_CLOSED
);
560 test_state(script
, SCRIPTSTATE_CLOSED
);
561 test_no_script_dispatch(script
);
563 IActiveScriptParse_Release(parse
);
565 ref
= IActiveScript_Release(script
);
566 ok(!ref
, "ref = %d\n", ref
);
569 static void test_jscript_uninitializing(void)
571 IActiveScriptParse
*parse
;
572 IActiveScript
*script
;
577 static const WCHAR script_textW
[] =
578 {'f','u','n','c','t','i','o','n',' ','f','(',')',' ','{','}',0};
580 script
= create_jscript();
582 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)&parse
);
583 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
585 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
587 hres
= IActiveScriptParse_InitNew(parse
);
588 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
591 SET_EXPECT(OnStateChange_INITIALIZED
);
592 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
593 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
594 CHECK_CALLED(GetLCID
);
595 CHECK_CALLED(OnStateChange_INITIALIZED
);
597 test_state(script
, SCRIPTSTATE_INITIALIZED
);
599 hres
= IActiveScriptParse_ParseScriptText(parse
, script_textW
, NULL
, NULL
, NULL
, 0, 1, 0x42, NULL
, NULL
);
600 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
602 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
603 ok(hres
== E_UNEXPECTED
, "SetScriptSite failed: %08x, expected E_UNEXPECTED\n", hres
);
605 SET_EXPECT(OnStateChange_UNINITIALIZED
);
606 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
607 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
608 CHECK_CALLED(OnStateChange_UNINITIALIZED
);
610 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
612 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
613 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
616 SET_EXPECT(OnStateChange_INITIALIZED
);
617 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
618 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
619 CHECK_CALLED(GetLCID
);
620 CHECK_CALLED(OnStateChange_INITIALIZED
);
622 SET_EXPECT(OnStateChange_CONNECTED
);
623 SET_EXPECT(OnEnterScript
);
624 SET_EXPECT(OnLeaveScript
);
625 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_CONNECTED
);
626 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres
);
627 CHECK_CALLED(OnStateChange_CONNECTED
);
628 CHECK_CALLED(OnEnterScript
);
629 CHECK_CALLED(OnLeaveScript
);
631 test_state(script
, SCRIPTSTATE_CONNECTED
);
633 dispex
= get_script_dispatch(script
);
634 ok(dispex
!= NULL
, "dispex == NULL\n");
635 IDispatchEx_Release(dispex
);
637 SET_EXPECT(OnStateChange_DISCONNECTED
);
638 SET_EXPECT(OnStateChange_INITIALIZED
);
639 SET_EXPECT(OnStateChange_UNINITIALIZED
);
640 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
641 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
642 CHECK_CALLED(OnStateChange_DISCONNECTED
);
643 CHECK_CALLED(OnStateChange_INITIALIZED
);
644 CHECK_CALLED(OnStateChange_UNINITIALIZED
);
646 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
648 hres
= IActiveScript_Close(script
);
649 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
651 test_state(script
, SCRIPTSTATE_CLOSED
);
653 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
654 ok(hres
== E_UNEXPECTED
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x, expected E_UNEXPECTED\n", hres
);
656 test_state(script
, SCRIPTSTATE_CLOSED
);
658 IActiveScriptParse_Release(parse
);
660 ref
= IActiveScript_Release(script
);
661 ok(!ref
, "ref = %d\n", ref
);
664 static void test_aggregation(void)
666 IUnknown
*unk
= (IUnknown
*)0xdeadbeef;
669 hres
= CoCreateInstance(&CLSID_JScript
, (IUnknown
*)0xdeadbeef, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
670 &IID_IUnknown
, (void**)&unk
);
671 ok(hres
== CLASS_E_NOAGGREGATION
|| broken(E_INVALIDARG
) /* win2k */,
672 "CoCreateInstance failed: %08x, expected CLASS_E_NOAGGREGATION\n", hres
);
673 ok(!unk
|| broken(unk
!= NULL
), "unk = %p\n", unk
);
676 static BOOL
check_jscript(void)
678 IActiveScriptProperty
*script_prop
;
681 hres
= CoCreateInstance(&CLSID_JScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
682 &IID_IActiveScriptProperty
, (void**)&script_prop
);
684 IActiveScriptProperty_Release(script_prop
);
693 if(check_jscript()) {
694 trace("Testing JScript object...\n");
697 test_jscript_uninitializing();
700 trace("Testing JScriptEncode object...\n");
701 engine_clsid
= &CLSID_JScriptEncode
;
704 win_skip("Broken engine, probably too old\n");