2 * Copyright 2011 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
28 #include "wine/test.h"
30 DEFINE_GUID(GUID_NULL
,0,0,0,0,0,0,0,0,0,0,0);
32 #define DEFINE_EXPECT(func) \
33 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
35 #define SET_EXPECT(func) \
36 expect_ ## func = TRUE
38 #define CHECK_EXPECT2(func) \
40 ok(expect_ ##func, "unexpected call " #func "\n"); \
41 called_ ## func = TRUE; \
44 #define CHECK_EXPECT(func) \
46 CHECK_EXPECT2(func); \
47 expect_ ## func = FALSE; \
50 #define CHECK_CALLED(func) \
52 ok(called_ ## func, "expected " #func "\n"); \
53 expect_ ## func = called_ ## func = FALSE; \
56 DEFINE_EXPECT(GetLCID
);
57 DEFINE_EXPECT(OnStateChange_UNINITIALIZED
);
58 DEFINE_EXPECT(OnStateChange_STARTED
);
59 DEFINE_EXPECT(OnStateChange_CONNECTED
);
60 DEFINE_EXPECT(OnStateChange_DISCONNECTED
);
61 DEFINE_EXPECT(OnStateChange_CLOSED
);
62 DEFINE_EXPECT(OnStateChange_INITIALIZED
);
63 DEFINE_EXPECT(OnEnterScript
);
64 DEFINE_EXPECT(OnLeaveScript
);
66 DEFINE_GUID(CLSID_VBScript
, 0xb54f3741, 0x5b07, 0x11cf, 0xa4,0xb0, 0x00,0xaa,0x00,0x4a,0x55,0xe8);
68 #define test_state(s,ss) _test_state(__LINE__,s,ss)
69 static void _test_state(unsigned line
, IActiveScript
*script
, SCRIPTSTATE exstate
)
71 SCRIPTSTATE state
= -1;
74 hres
= IActiveScript_GetScriptState(script
, &state
);
75 ok_(__FILE__
,line
) (hres
== S_OK
, "GetScriptState failed: %08x\n", hres
);
76 ok_(__FILE__
,line
) (state
== exstate
, "state=%d, expected %d\n", state
, exstate
);
79 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
83 if(IsEqualGUID(&IID_IUnknown
, riid
))
85 else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
))
90 IUnknown_AddRef((IUnknown
*)*ppv
);
94 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
99 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
104 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
106 CHECK_EXPECT(GetLCID
);
110 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
111 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
113 ok(0, "unexpected call\n");
117 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
119 ok(0, "unexpected call\n");
123 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
124 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
126 ok(0, "unexpected call\n");
130 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
132 switch(ssScriptState
) {
133 case SCRIPTSTATE_UNINITIALIZED
:
134 CHECK_EXPECT(OnStateChange_UNINITIALIZED
);
136 case SCRIPTSTATE_STARTED
:
137 CHECK_EXPECT(OnStateChange_STARTED
);
139 case SCRIPTSTATE_CONNECTED
:
140 CHECK_EXPECT(OnStateChange_CONNECTED
);
142 case SCRIPTSTATE_DISCONNECTED
:
143 CHECK_EXPECT(OnStateChange_DISCONNECTED
);
145 case SCRIPTSTATE_CLOSED
:
146 CHECK_EXPECT(OnStateChange_CLOSED
);
148 case SCRIPTSTATE_INITIALIZED
:
149 CHECK_EXPECT(OnStateChange_INITIALIZED
);
152 ok(0, "unexpected call %d\n", ssScriptState
);
158 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
160 ok(0, "unexpected call\n");
164 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
166 CHECK_EXPECT(OnEnterScript
);
170 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
172 CHECK_EXPECT(OnLeaveScript
);
176 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
177 ActiveScriptSite_QueryInterface
,
178 ActiveScriptSite_AddRef
,
179 ActiveScriptSite_Release
,
180 ActiveScriptSite_GetLCID
,
181 ActiveScriptSite_GetItemInfo
,
182 ActiveScriptSite_GetDocVersionString
,
183 ActiveScriptSite_OnScriptTerminate
,
184 ActiveScriptSite_OnStateChange
,
185 ActiveScriptSite_OnScriptError
,
186 ActiveScriptSite_OnEnterScript
,
187 ActiveScriptSite_OnLeaveScript
190 static IActiveScriptSite ActiveScriptSite
= { &ActiveScriptSiteVtbl
};
192 static void test_safety(IActiveScript
*script
)
194 IObjectSafety
*safety
;
195 DWORD supported
, enabled
;
198 hres
= IActiveScript_QueryInterface(script
, &IID_IObjectSafety
, (void**)&safety
);
199 ok(hres
== S_OK
, "Could not get IObjectSafety: %08x\n", hres
);
203 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, &supported
, NULL
);
204 ok(hres
== E_POINTER
, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres
);
205 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, NULL
, &enabled
);
206 ok(hres
== E_POINTER
, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres
);
208 supported
= enabled
= 0xdeadbeef;
209 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_NULL
, &supported
, &enabled
);
210 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
211 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
212 "supported=%x\n", supported
);
213 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
215 supported
= enabled
= 0xdeadbeef;
216 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScript
, &supported
, &enabled
);
217 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
218 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
219 "supported=%x\n", supported
);
220 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
222 supported
= enabled
= 0xdeadbeef;
223 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
224 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
225 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
226 "supported=%x\n", supported
);
227 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
229 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
230 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
231 |INTERFACESAFE_FOR_UNTRUSTED_CALLER
,
232 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
);
233 ok(hres
== E_FAIL
, "SetInterfaceSafetyOptions failed: %08x, expected E_FAIL\n", hres
);
235 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
236 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
,
237 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
);
238 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
240 supported
= enabled
= 0xdeadbeef;
241 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
242 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
243 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
244 "supported=%x\n", supported
);
245 ok(enabled
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
246 "enabled=%x\n", enabled
);
248 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, INTERFACESAFE_FOR_UNTRUSTED_DATA
, 0);
249 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
251 supported
= enabled
= 0xdeadbeef;
252 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
253 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
254 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
255 "supported=%x\n", supported
);
256 ok(enabled
== (INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
), "enabled=%x\n", enabled
);
258 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
259 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
, 0);
260 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
262 supported
= enabled
= 0xdeadbeef;
263 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
264 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
265 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
266 "supported=%x\n", supported
);
267 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
269 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
270 INTERFACE_USES_DISPEX
, 0);
271 ok(hres
== S_OK
, "SetInterfaceSafetyOptions failed: %08x\n", hres
);
273 supported
= enabled
= 0xdeadbeef;
274 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported
, &enabled
);
275 ok(hres
== S_OK
, "GetInterfaceSafetyOptions failed: %08x\n", hres
);
276 ok(supported
== (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
),
277 "supported=%x\n", supported
);
278 ok(enabled
== INTERFACE_USES_DISPEX
, "enabled=%x\n", enabled
);
280 IObjectSafety_Release(safety
);
283 static IDispatchEx
*get_script_dispatch(IActiveScript
*script
)
289 disp
= (void*)0xdeadbeef;
290 hres
= IActiveScript_GetScriptDispatch(script
, NULL
, &disp
);
291 ok(hres
== S_OK
, "GetScriptDispatch failed: %08x\n", hres
);
295 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
296 IDispatch_Release(disp
);
297 ok(hres
== S_OK
, "Could not get IDispatchEx iface: %08x\n", hres
);
301 static void test_no_script_dispatch(IActiveScript
*script
)
306 disp
= (void*)0xdeadbeef;
307 hres
= IActiveScript_GetScriptDispatch(script
, NULL
, &disp
);
308 ok(hres
== E_UNEXPECTED
, "hres = %08x, expected E_UNEXPECTED\n", hres
);
309 ok(!disp
, "disp != NULL\n");
312 static IActiveScript
*create_vbscript(void)
317 hres
= CoCreateInstance(&CLSID_VBScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
318 &IID_IActiveScript
, (void**)&ret
);
319 ok(hres
== S_OK
, "CoCreateInstance failed: %08x\n", hres
);
324 static void test_vbscript(void)
326 IActiveScriptParse
*parser
;
327 IActiveScript
*vbscript
;
331 vbscript
= create_vbscript();
333 hres
= IActiveScript_QueryInterface(vbscript
, &IID_IActiveScriptParse
, (void**)&parser
);
334 ok(hres
== S_OK
, "Could not get IActiveScriptParse iface: %08x\n", hres
);
336 test_state(vbscript
, SCRIPTSTATE_UNINITIALIZED
);
337 test_safety(vbscript
);
340 hres
= IActiveScript_SetScriptSite(vbscript
, &ActiveScriptSite
);
341 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
342 CHECK_CALLED(GetLCID
);
344 test_state(vbscript
, SCRIPTSTATE_UNINITIALIZED
);
346 SET_EXPECT(OnStateChange_INITIALIZED
);
347 hres
= IActiveScriptParse64_InitNew(parser
);
348 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
349 CHECK_CALLED(OnStateChange_INITIALIZED
);
351 test_state(vbscript
, SCRIPTSTATE_INITIALIZED
);
353 hres
= IActiveScriptParse64_InitNew(parser
);
354 ok(hres
== E_UNEXPECTED
, "InitNew failed: %08x, expected E_UNEXPECTED\n", hres
);
356 SET_EXPECT(OnStateChange_CONNECTED
);
357 hres
= IActiveScript_SetScriptState(vbscript
, SCRIPTSTATE_CONNECTED
);
358 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres
);
359 CHECK_CALLED(OnStateChange_CONNECTED
);
361 test_state(vbscript
, SCRIPTSTATE_CONNECTED
);
363 SET_EXPECT(OnStateChange_DISCONNECTED
);
364 SET_EXPECT(OnStateChange_INITIALIZED
);
365 SET_EXPECT(OnStateChange_CLOSED
);
366 hres
= IActiveScript_Close(vbscript
);
367 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
368 CHECK_CALLED(OnStateChange_DISCONNECTED
);
369 CHECK_CALLED(OnStateChange_INITIALIZED
);
370 CHECK_CALLED(OnStateChange_CLOSED
);
372 test_state(vbscript
, SCRIPTSTATE_CLOSED
);
373 test_no_script_dispatch(vbscript
);
375 IActiveScriptParse64_Release(parser
);
377 ref
= IActiveScript_Release(vbscript
);
378 ok(!ref
, "ref = %d\n", ref
);
381 static void test_vbscript_uninitializing(void)
383 IActiveScriptParse
*parse
;
384 IActiveScript
*script
;
389 static const WCHAR script_textW
[] =
390 {'F','u','n','c','t','i','o','n',' ','f','\n','E','n','d',' ','F','u','n','c','t','i','o','n','\n',0};
392 script
= create_vbscript();
394 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)&parse
);
395 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
397 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
399 hres
= IActiveScriptParse64_InitNew(parse
);
400 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
403 SET_EXPECT(OnStateChange_INITIALIZED
);
404 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
405 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
406 CHECK_CALLED(GetLCID
);
407 CHECK_CALLED(OnStateChange_INITIALIZED
);
409 test_state(script
, SCRIPTSTATE_INITIALIZED
);
411 hres
= IActiveScriptParse64_ParseScriptText(parse
, script_textW
, NULL
, NULL
, NULL
, 0, 1, 0x42, NULL
, NULL
);
412 ok(hres
== S_OK
, "ParseScriptText failed: %08x\n", hres
);
414 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
415 ok(hres
== E_UNEXPECTED
, "SetScriptSite failed: %08x, expected E_UNEXPECTED\n", hres
);
417 SET_EXPECT(OnStateChange_UNINITIALIZED
);
418 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
419 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
420 CHECK_CALLED(OnStateChange_UNINITIALIZED
);
422 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
424 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
425 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
428 SET_EXPECT(OnStateChange_INITIALIZED
);
429 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
430 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
431 CHECK_CALLED(GetLCID
);
432 CHECK_CALLED(OnStateChange_INITIALIZED
);
434 SET_EXPECT(OnStateChange_CONNECTED
);
435 SET_EXPECT(OnEnterScript
);
436 SET_EXPECT(OnLeaveScript
);
437 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_CONNECTED
);
438 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres
);
439 CHECK_CALLED(OnStateChange_CONNECTED
);
440 CHECK_CALLED(OnEnterScript
);
441 CHECK_CALLED(OnLeaveScript
);
443 test_state(script
, SCRIPTSTATE_CONNECTED
);
445 dispex
= get_script_dispatch(script
);
446 ok(dispex
!= NULL
, "dispex == NULL\n");
448 IDispatchEx_Release(dispex
);
450 SET_EXPECT(OnStateChange_DISCONNECTED
);
451 SET_EXPECT(OnStateChange_INITIALIZED
);
452 SET_EXPECT(OnStateChange_UNINITIALIZED
);
453 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
454 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
455 CHECK_CALLED(OnStateChange_DISCONNECTED
);
456 CHECK_CALLED(OnStateChange_INITIALIZED
);
457 CHECK_CALLED(OnStateChange_UNINITIALIZED
);
459 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
461 hres
= IActiveScript_Close(script
);
462 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
464 test_state(script
, SCRIPTSTATE_CLOSED
);
466 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
467 ok(hres
== E_UNEXPECTED
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x, expected E_UNEXPECTED\n", hres
);
469 test_state(script
, SCRIPTSTATE_CLOSED
);
472 SET_EXPECT(OnStateChange_INITIALIZED
);
473 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
474 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
475 CHECK_CALLED(GetLCID
);
476 CHECK_CALLED(OnStateChange_INITIALIZED
);
478 test_state(script
, SCRIPTSTATE_INITIALIZED
);
480 SET_EXPECT(OnStateChange_CLOSED
);
481 hres
= IActiveScript_Close(script
);
482 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
483 CHECK_CALLED(OnStateChange_CLOSED
);
485 test_state(script
, SCRIPTSTATE_CLOSED
);
487 IUnknown_Release(parse
);
489 ref
= IActiveScript_Release(script
);
490 ok(!ref
, "ref = %d\n", ref
);
493 static void test_vbscript_release(void)
495 IActiveScriptParse
*parser
;
496 IActiveScript
*vbscript
;
500 vbscript
= create_vbscript();
502 hres
= IActiveScript_QueryInterface(vbscript
, &IID_IActiveScriptParse
, (void**)&parser
);
503 ok(hres
== S_OK
, "Could not get IActiveScriptParse iface: %08x\n", hres
);
505 test_state(vbscript
, SCRIPTSTATE_UNINITIALIZED
);
506 test_safety(vbscript
);
509 hres
= IActiveScript_SetScriptSite(vbscript
, &ActiveScriptSite
);
510 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
511 CHECK_CALLED(GetLCID
);
513 test_state(vbscript
, SCRIPTSTATE_UNINITIALIZED
);
515 SET_EXPECT(OnStateChange_INITIALIZED
);
516 hres
= IActiveScriptParse64_InitNew(parser
);
517 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
518 CHECK_CALLED(OnStateChange_INITIALIZED
);
520 test_state(vbscript
, SCRIPTSTATE_INITIALIZED
);
522 SET_EXPECT(OnStateChange_CONNECTED
);
523 hres
= IActiveScript_SetScriptState(vbscript
, SCRIPTSTATE_CONNECTED
);
524 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres
);
525 CHECK_CALLED(OnStateChange_CONNECTED
);
527 test_state(vbscript
, SCRIPTSTATE_CONNECTED
);
529 IActiveScriptParse64_Release(parser
);
531 SET_EXPECT(OnStateChange_DISCONNECTED
);
532 SET_EXPECT(OnStateChange_INITIALIZED
);
533 SET_EXPECT(OnStateChange_CLOSED
);
534 ref
= IActiveScript_Release(vbscript
);
535 ok(!ref
, "ref = %d\n", ref
);
536 CHECK_CALLED(OnStateChange_DISCONNECTED
);
537 CHECK_CALLED(OnStateChange_INITIALIZED
);
538 CHECK_CALLED(OnStateChange_CLOSED
);
541 static void test_vbscript_simplecreate(void)
543 IActiveScript
*script
;
547 script
= create_vbscript();
549 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_UNINITIALIZED
);
550 ok(hres
== S_OK
, "SetScriptState(SCRIPTSTATE_UNINITIALIZED) failed: %08x\n", hres
);
552 ref
= IActiveScript_Release(script
);
553 ok(!ref
, "ref = %d\n", ref
);
556 static void test_vbscript_initializing(void)
558 IActiveScriptParse
*parse
;
559 IActiveScript
*script
;
563 script
= create_vbscript();
565 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)&parse
);
566 ok(hres
== S_OK
, "Could not get IActiveScriptParse: %08x\n", hres
);
568 test_state(script
, SCRIPTSTATE_UNINITIALIZED
);
571 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
572 ok(hres
== S_OK
, "SetScriptSite failed: %08x\n", hres
);
573 CHECK_CALLED(GetLCID
);
575 SET_EXPECT(OnStateChange_INITIALIZED
);
576 hres
= IActiveScriptParse64_InitNew(parse
);
577 ok(hres
== S_OK
, "InitNew failed: %08x\n", hres
);
578 CHECK_CALLED(OnStateChange_INITIALIZED
);
580 hres
= IActiveScript_SetScriptSite(script
, &ActiveScriptSite
);
581 ok(hres
== E_UNEXPECTED
, "SetScriptSite failed: %08x, expected E_UNEXPECTED\n", hres
);
583 SET_EXPECT(OnStateChange_CLOSED
);
584 hres
= IActiveScript_Close(script
);
585 ok(hres
== S_OK
, "Close failed: %08x\n", hres
);
586 CHECK_CALLED(OnStateChange_CLOSED
);
588 test_state(script
, SCRIPTSTATE_CLOSED
);
590 IUnknown_Release(parse
);
592 ref
= IActiveScript_Release(script
);
593 ok(!ref
, "ref = %d\n", ref
);
596 static BOOL
check_vbscript(void)
598 IActiveScript
*vbscript
;
601 hres
= CoCreateInstance(&CLSID_VBScript
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
602 &IID_IActiveScript
, (void**)&vbscript
);
604 IActiveScript_Release(vbscript
);
613 if(check_vbscript()) {
615 test_vbscript_uninitializing();
616 test_vbscript_release();
617 test_vbscript_simplecreate();
618 test_vbscript_initializing();
620 win_skip("VBScript engine not available\n");