~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Wine Cross Reference
wine/dlls/jscript/tests/jscript.c

Version: ~ [ wine-1.5.31 ] ~ [ wine-1.5.30 ] ~ [ wine-1.5.29 ] ~ [ wine-1.5.28 ] ~ [ wine-1.5.27 ] ~ [ wine-1.5.26 ] ~ [ wine-1.5.25 ] ~ [ wine-1.5.24 ] ~ [ wine-1.5.23 ] ~ [ wine-1.5.22 ] ~ [ wine-1.5.21 ] ~ [ wine-1.5.20 ] ~ [ wine-1.5.19 ] ~ [ wine-1.5.18 ] ~ [ wine-1.5.17 ] ~ [ wine-1.5.16 ] ~ [ wine-1.5.15 ] ~ [ wine-1.5.14 ] ~ [ wine-1.5.13 ] ~ [ wine-1.5.12 ] ~ [ wine-1.5.11 ] ~ [ wine-1.5.10 ] ~ [ wine-1.5.9 ] ~ [ wine-1.5.8 ] ~ [ wine-1.5.7 ] ~ [ wine-1.4.1 ] ~ [ wine-1.5.6 ] ~ [ wine-1.5.5 ] ~ [ wine-1.5.4 ] ~ [ wine-1.5.3 ] ~ [ wine-1.5.2 ] ~ [ wine-1.5.1 ] ~ [ wine-1.5.0 ] ~ [ wine-1.4 ] ~ [ wine-1.4-rc6 ] ~ [ wine-1.4-rc5 ] ~ [ wine-1.4-rc4 ] ~ [ wine-1.4-rc3 ] ~ [ wine-1.4-rc2 ] ~ [ wine-1.4-rc1 ] ~ [ wine-1.3.37 ] ~ [ wine-1.3.36 ] ~ [ wine-1.3.35 ] ~ [ wine-1.3.34 ] ~ [ wine-1.3.33 ] ~ [ wine-1.3.32 ] ~ [ wine-1.3.31 ] ~ [ wine-1.3.30 ] ~ [ wine-1.3.29 ] ~ [ wine-1.3.28 ] ~ [ wine-1.3.27 ] ~ [ wine-1.3.26 ] ~ [ wine-1.3.25 ] ~ [ wine-1.3.24 ] ~ [ wine-1.3.23 ] ~ [ wine-1.3.22 ] ~ [ wine-1.3.21 ] ~ [ wine-1.3.20 ] ~ [ wine-1.3.19 ] ~ [ wine-1.3.18 ] ~ [ wine-1.2.3 ] ~ [ wine-1.3.17 ] ~ [ wine-1.3.16 ] ~ [ wine-1.3.15 ] ~ [ wine-1.3.14 ] ~ [ wine-1.3.13 ] ~ [ wine-1.3.12 ] ~ [ wine-1.3.11 ] ~ [ wine-1.3.10 ] ~ [ wine-1.3.9 ] ~ [ wine-1.2.2 ] ~ [ wine-1.3.8 ] ~ [ wine-1.3.7 ] ~ [ wine-1.3.6 ] ~ [ wine-1.3.5 ] ~ [ wine-1.2.1 ] ~ [ wine-1.3.4 ] ~ [ wine-1.3.3 ] ~ [ wine-1.3.2 ] ~ [ wine-1.3.1 ] ~ [ wine-1.3.0 ] ~ [ wine-1.2 ] ~ [ wine-1.2-rc7 ] ~ [ wine-1.2-rc6 ] ~ [ wine-1.2-rc5 ] ~ [ wine-1.2-rc4 ] ~ [ wine-1.2-rc3 ] ~ [ wine-1.2-rc2 ] ~ [ wine-1.2-rc1 ] ~ [ wine-1.1.44 ] ~ [ wine-1.1.43 ] ~ [ wine-1.1.42 ] ~ [ wine-1.1.41 ] ~ [ wine-1.1.40 ] ~ [ wine-1.1.39 ] ~ [ wine-1.1.38 ] ~ [ wine-1.1.37 ] ~ [ wine-1.1.36 ] ~ [ wine-1.1.35 ] ~ [ wine-1.1.34 ] ~ [ wine-1.1.33 ] ~ [ wine-1.1.32 ] ~ [ wine-1.1.31 ] ~ [ wine-1.1.30 ] ~ [ wine-1.1.29 ] ~ [ wine-1.1.28 ] ~ [ wine-1.1.27 ] ~ [ wine-1.1.26 ] ~ [ wine-1.1.25 ] ~ [ wine-1.1.24 ] ~ [ wine-1.1.23 ] ~ [ wine-1.1.22 ] ~ [ wine-1.1.21 ] ~ [ wine-1.1.20 ] ~ [ wine-1.1.19 ] ~ [ wine-1.1.18 ] ~ [ wine-1.1.17 ] ~ [ wine-1.1.16 ] ~ [ wine-1.1.15 ] ~ [ wine-1.1.14 ] ~ [ wine-1.1.13 ] ~ [ wine-1.1.12 ] ~ [ wine-1.1.11 ] ~ [ wine-1.1.10 ] ~ [ wine-1.1.9 ] ~ [ wine-1.1.8 ] ~ [ wine-1.1.7 ] ~ [ wine-1.0.1 ] ~ [ wine-1.1.6 ] ~ [ wine-1.1.5 ] ~ [ wine-1.1.4 ] ~ [ wine-1.1.3 ] ~ [ wine-1.1.2 ] ~ [ wine-1.1.1 ] ~ [ wine-1.1.0 ] ~ [ wine-1.0 ] ~

  1 /*
  2  * Copyright 2008 Jacek Caban for CodeWeavers
  3  *
  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.
  8  *
  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.
 13  *
 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
 17  */
 18 
 19 #define COBJMACROS
 20 #define CONST_VTABLE
 21 
 22 #include <initguid.h>
 23 #include <ole2.h>
 24 #include <activscp.h>
 25 #include <objsafe.h>
 26 #include <dispex.h>
 27 
 28 #include "wine/test.h"
 29 
 30 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
 31 
 32 static const CLSID CLSID_JScript =
 33     {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
 34 
 35 #define DEFINE_EXPECT(func) \
 36     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
 37 
 38 #define SET_EXPECT(func) \
 39     expect_ ## func = TRUE
 40 
 41 #define SET_CALLED(func) \
 42     called_ ## func = TRUE
 43 
 44 #define CHECK_EXPECT2(func) \
 45     do { \
 46         ok(expect_ ##func, "unexpected call " #func "\n"); \
 47         called_ ## func = TRUE; \
 48     }while(0)
 49 
 50 #define CHECK_EXPECT(func) \
 51     do { \
 52         CHECK_EXPECT2(func); \
 53         expect_ ## func = FALSE; \
 54     }while(0)
 55 
 56 #define CHECK_CALLED(func) \
 57     do { \
 58         ok(called_ ## func, "expected " #func "\n"); \
 59         expect_ ## func = called_ ## func = FALSE; \
 60     }while(0)
 61 
 62 DEFINE_EXPECT(GetLCID);
 63 DEFINE_EXPECT(OnStateChange_STARTED);
 64 DEFINE_EXPECT(OnStateChange_CONNECTED);
 65 DEFINE_EXPECT(OnStateChange_DISCONNECTED);
 66 DEFINE_EXPECT(OnStateChange_CLOSED);
 67 DEFINE_EXPECT(OnStateChange_INITIALIZED);
 68 DEFINE_EXPECT(OnEnterScript);
 69 DEFINE_EXPECT(OnLeaveScript);
 70 
 71 static BSTR a2bstr(const char *str)
 72 {
 73     BSTR ret;
 74     int len;
 75 
 76     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 77     ret = SysAllocStringLen(NULL, len-1);
 78     MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 79 
 80     return ret;
 81 }
 82 
 83 #define test_state(s,ss) _test_state(__LINE__,s,ss)
 84 static void _test_state(unsigned line, IActiveScript *script, SCRIPTSTATE exstate)
 85 {
 86     SCRIPTSTATE state = -1;
 87     HRESULT hres;
 88 
 89     hres = IActiveScript_GetScriptState(script, &state);
 90     ok_(__FILE__,line) (hres == S_OK, "GetScriptState failed: %08x\n", hres);
 91     ok_(__FILE__,line) (state == exstate, "state=%d, expected %d\n", state, exstate);
 92 }
 93 
 94 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
 95 {
 96     *ppv = NULL;
 97 
 98     if(IsEqualGUID(&IID_IUnknown, riid))
 99         *ppv = iface;
100     else if(IsEqualGUID(&IID_IActiveScriptSite, riid))
101         *ppv = iface;
102     else
103         return E_NOINTERFACE;
104 
105     IUnknown_AddRef((IUnknown*)*ppv);
106     return S_OK;
107 }
108 
109 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
110 {
111     return 2;
112 }
113 
114 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
115 {
116     return 1;
117 }
118 
119 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
120 {
121     CHECK_EXPECT(GetLCID);
122     return E_NOTIMPL;
123 }
124 
125 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
126         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
127 {
128     ok(0, "unexpected call\n");
129     return E_NOTIMPL;
130 }
131 
132 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
133 {
134     ok(0, "unexpected call\n");
135     return E_NOTIMPL;
136 }
137 
138 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
139         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
140 {
141     ok(0, "unexpected call\n");
142     return E_NOTIMPL;
143 }
144 
145 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
146 {
147     switch(ssScriptState) {
148     case SCRIPTSTATE_STARTED:
149         CHECK_EXPECT(OnStateChange_STARTED);
150         return S_OK;
151     case SCRIPTSTATE_CONNECTED:
152         CHECK_EXPECT(OnStateChange_CONNECTED);
153         return S_OK;
154     case SCRIPTSTATE_DISCONNECTED:
155         CHECK_EXPECT(OnStateChange_DISCONNECTED);
156         return S_OK;
157     case SCRIPTSTATE_CLOSED:
158         CHECK_EXPECT(OnStateChange_CLOSED);
159         return S_OK;
160     case SCRIPTSTATE_INITIALIZED:
161         CHECK_EXPECT(OnStateChange_INITIALIZED);
162         return S_OK;
163     default:
164         ok(0, "unexpected call %d\n", ssScriptState);
165     }
166 
167     return E_NOTIMPL;
168 }
169 
170 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
171 {
172     ok(0, "unexpected call\n");
173     return E_NOTIMPL;
174 }
175 
176 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
177 {
178     CHECK_EXPECT(OnEnterScript);
179     return S_OK;
180 }
181 
182 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
183 {
184     CHECK_EXPECT(OnLeaveScript);
185     return S_OK;
186 }
187 
188 #undef ACTSCPSITE_THIS
189 
190 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
191     ActiveScriptSite_QueryInterface,
192     ActiveScriptSite_AddRef,
193     ActiveScriptSite_Release,
194     ActiveScriptSite_GetLCID,
195     ActiveScriptSite_GetItemInfo,
196     ActiveScriptSite_GetDocVersionString,
197     ActiveScriptSite_OnScriptTerminate,
198     ActiveScriptSite_OnStateChange,
199     ActiveScriptSite_OnScriptError,
200     ActiveScriptSite_OnEnterScript,
201     ActiveScriptSite_OnLeaveScript
202 };
203 
204 static IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl };
205 
206 static void test_script_dispatch(IDispatchEx *dispex)
207 {
208     DISPPARAMS dp = {NULL,NULL,0,0};
209     EXCEPINFO ei;
210     BSTR str;
211     DISPID id;
212     VARIANT v;
213     HRESULT hres;
214 
215     str = a2bstr("ActiveXObject");
216     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
217     SysFreeString(str);
218     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
219 
220     str = a2bstr("Math");
221     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
222     SysFreeString(str);
223     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
224 
225     memset(&ei, 0, sizeof(ei));
226     hres = IDispatchEx_InvokeEx(dispex, id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
227     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
228     ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
229     ok(V_DISPATCH(&v) != NULL, "V_DISPATCH(v) = NULL\n");
230     VariantClear(&v);
231 
232     str = a2bstr("String");
233     hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
234     SysFreeString(str);
235     ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
236 
237     memset(&ei, 0, sizeof(ei));
238     hres = IDispatchEx_InvokeEx(dispex, id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL);
239     ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
240     ok(V_VT(&v) == VT_DISPATCH, "V_VT(v) = %d\n", V_VT(&v));
241     ok(V_DISPATCH(&v) != NULL, "V_DISPATCH(v) = NULL\n");
242     VariantClear(&v);
243 }
244 
245 static IDispatchEx *get_script_dispatch(IActiveScript *script)
246 {
247     IDispatchEx *dispex;
248     IDispatch *disp;
249     HRESULT hres;
250 
251     disp = (void*)0xdeadbeef;
252     hres = IActiveScript_GetScriptDispatch(script, NULL, &disp);
253     ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
254 
255     IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
256     IDispatch_Release(disp);
257     ok(hres == S_OK, "Could not get IDispatch iface: %08x\n", hres);
258     return dispex;
259 }
260 
261 static void test_no_script_dispatch(IActiveScript *script)
262 {
263     IDispatch *disp;
264     HRESULT hres;
265 
266     disp = (void*)0xdeadbeef;
267     hres = IActiveScript_GetScriptDispatch(script, NULL, &disp);
268     ok(hres == E_UNEXPECTED, "hres = %08x, expected E_UNEXPECTED\n", hres);
269     ok(!disp, "disp != NULL\n");
270 }
271 
272 static void test_safety(IUnknown *unk)
273 {
274     IObjectSafety *safety;
275     DWORD supported, enabled;
276     HRESULT hres;
277 
278     hres = IUnknown_QueryInterface(unk, &IID_IObjectSafety, (void**)&safety);
279     ok(hres == S_OK, "Could not get IObjectSafety: %08x\n", hres);
280     if(FAILED(hres))
281         return;
282 
283     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_NULL, &supported, NULL);
284     ok(hres == E_POINTER, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres);
285     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_NULL, NULL, &enabled);
286     ok(hres == E_POINTER, "GetInterfaceSafetyOptions failed: %08x, expected E_POINTER\n", hres);
287 
288     supported = enabled = 0xdeadbeef;
289     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_NULL, &supported, &enabled);
290     ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
291     ok(supported == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
292        "supported=%x\n", supported);
293     ok(enabled == INTERFACE_USES_DISPEX, "enabled=%x\n", enabled);
294 
295     supported = enabled = 0xdeadbeef;
296     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScript, &supported, &enabled);
297     ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
298     ok(supported == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
299        "supported=%x\n", supported);
300     ok(enabled == INTERFACE_USES_DISPEX, "enabled=%x\n", enabled);
301 
302     supported = enabled = 0xdeadbeef;
303     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported, &enabled);
304     ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
305     ok(supported == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
306        "supported=%x\n", supported);
307     ok(enabled == INTERFACE_USES_DISPEX, "enabled=%x\n", enabled);
308 
309     hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse,
310             INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER
311                 |INTERFACESAFE_FOR_UNTRUSTED_CALLER,
312             INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER);
313     ok(hres == E_FAIL, "SetInterfaceSafetyOptions failed: %08x, expected E_FAIL\n", hres);
314 
315     hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse,
316             INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER,
317             INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER);
318     ok(hres == S_OK, "SetInterfaceSafetyOptions failed: %08x\n", hres);
319 
320     supported = enabled = 0xdeadbeef;
321     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported, &enabled);
322     ok(hres == S_OK, "GetInterfaceSafetyOptions failed: %08x\n", hres);
323     ok(supported == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
324        "supported=%x\n", supported);
325     ok(enabled == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
326        "enabled=%x\n", enabled);
327 
328     IObjectSafety_Release(safety);
329 }
330 
331 static HRESULT set_script_prop(IActiveScript *engine, DWORD property, VARIANT *val)
332 {
333     IActiveScriptProperty *script_prop;
334     HRESULT hres;
335 
336     hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptProperty,
337             (void**)&script_prop);
338     ok(hres == S_OK, "Could not get IActiveScriptProperty iface: %08x\n", hres);
339 
340     hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
341     IActiveScriptProperty_Release(script_prop);
342     return hres;
343 }
344 
345 static void test_invoke_versioning(IActiveScript *script)
346 {
347     VARIANT v;
348     HRESULT hres;
349 
350     V_VT(&v) = VT_NULL;
351     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
352     if(hres == E_NOTIMPL) {
353         win_skip("SCRIPTPROP_INVOKESTRING not supported\n");
354         return;
355     }
356     ok(hres == E_INVALIDARG, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
357 
358     V_VT(&v) = VT_I2;
359     V_I2(&v) = 0;
360     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
361     ok(hres == E_INVALIDARG, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
362 
363     V_VT(&v) = VT_I4;
364     V_I4(&v) = 16;
365     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
366     ok(hres == E_INVALIDARG, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
367 
368     V_VT(&v) = VT_I4;
369     V_I4(&v) = 2;
370     hres = set_script_prop(script, SCRIPTPROP_INVOKEVERSIONING, &v);
371     ok(hres == S_OK, "SetProperty(SCRIPTPROP_INVOKEVERSIONING) failed: %08x\n", hres);
372 }
373 
374 static void test_jscript(void)
375 {
376     IActiveScriptParse *parse;
377     IActiveScript *script;
378     IDispatchEx *dispex;
379     IUnknown *unk;
380     ULONG ref;
381     HRESULT hres;
382 
383     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
384             &IID_IUnknown, (void**)&unk);
385     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
386     if(FAILED(hres))
387         return;
388 
389     hres = IUnknown_QueryInterface(unk, &IID_IActiveScript, (void**)&script);
390     ok(hres == S_OK, "Could not get IActiveScript: %08x\n", hres);
391 
392     hres = IUnknown_QueryInterface(unk, &IID_IActiveScriptParse, (void**)&parse);
393     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
394     if (FAILED(hres))
395     {
396         IActiveScript_Release(script);
397         return;
398     }
399 
400     test_state(script, SCRIPTSTATE_UNINITIALIZED);
401     test_safety(unk);
402     test_invoke_versioning(script);
403 
404     hres = IActiveScriptParse64_InitNew(parse);
405     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
406 
407     hres = IActiveScriptParse64_InitNew(parse);
408     ok(hres == E_UNEXPECTED, "InitNew failed: %08x, expected E_UNEXPECTED\n", hres);
409 
410     hres = IActiveScript_SetScriptSite(script, NULL);
411     ok(hres == E_POINTER, "SetScriptSite failed: %08x, expected E_POINTER\n", hres);
412 
413     test_state(script, SCRIPTSTATE_UNINITIALIZED);
414     test_no_script_dispatch(script);
415 
416     SET_EXPECT(GetLCID);
417     SET_EXPECT(OnStateChange_INITIALIZED);
418     hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
419     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
420     CHECK_CALLED(GetLCID);
421     CHECK_CALLED(OnStateChange_INITIALIZED);
422 
423     test_state(script, SCRIPTSTATE_INITIALIZED);
424 
425     hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
426     ok(hres == E_UNEXPECTED, "SetScriptSite failed: %08x, expected E_UNEXPECTED\n", hres);
427 
428     dispex = get_script_dispatch(script);
429     test_script_dispatch(dispex);
430 
431     SET_EXPECT(OnStateChange_STARTED);
432     hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
433     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
434     CHECK_CALLED(OnStateChange_STARTED);
435 
436     test_state(script, SCRIPTSTATE_STARTED);
437 
438     SET_EXPECT(OnStateChange_CLOSED);
439     hres = IActiveScript_Close(script);
440     ok(hres == S_OK, "Close failed: %08x\n", hres);
441     CHECK_CALLED(OnStateChange_CLOSED);
442 
443     test_state(script, SCRIPTSTATE_CLOSED);
444     test_no_script_dispatch(script);
445     test_script_dispatch(dispex);
446     IDispatchEx_Release(dispex);
447 
448     IUnknown_Release(parse);
449     IActiveScript_Release(script);
450 
451     ref = IUnknown_Release(unk);
452     ok(!ref, "ref = %d\n", ref);
453 }
454 
455 static void test_jscript2(void)
456 {
457     IActiveScriptParse *parse;
458     IActiveScript *script;
459     IUnknown *unk;
460     ULONG ref;
461     HRESULT hres;
462 
463     hres = CoCreateInstance(&CLSID_JScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
464             &IID_IUnknown, (void**)&unk);
465     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
466     if(FAILED(hres))
467         return;
468 
469     hres = IUnknown_QueryInterface(unk, &IID_IActiveScript, (void**)&script);
470     ok(hres == S_OK, "Could not get IActiveScript: %08x\n", hres);
471 
472     hres = IUnknown_QueryInterface(unk, &IID_IActiveScriptParse, (void**)&parse);
473     ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
474     if (FAILED(hres))
475     {
476         IActiveScript_Release(script);
477         return;
478     }
479 
480     test_state(script, SCRIPTSTATE_UNINITIALIZED);
481 
482     SET_EXPECT(GetLCID);
483     hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
484     ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
485     CHECK_CALLED(GetLCID);
486 
487     test_state(script, SCRIPTSTATE_UNINITIALIZED);
488 
489     SET_EXPECT(OnStateChange_INITIALIZED);
490     hres = IActiveScriptParse64_InitNew(parse);
491     ok(hres == S_OK, "InitNew failed: %08x\n", hres);
492     CHECK_CALLED(OnStateChange_INITIALIZED);
493 
494     hres = IActiveScriptParse64_InitNew(parse);
495     ok(hres == E_UNEXPECTED, "InitNew failed: %08x, expected E_UNEXPECTED\n", hres);
496 
497     SET_EXPECT(OnStateChange_CONNECTED);
498     hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_CONNECTED);
499     ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hres);
500     CHECK_CALLED(OnStateChange_CONNECTED);
501 
502     test_state(script, SCRIPTSTATE_CONNECTED);
503 
504     SET_EXPECT(OnStateChange_DISCONNECTED);
505     SET_EXPECT(OnStateChange_INITIALIZED);
506     SET_EXPECT(OnStateChange_CLOSED);
507     hres = IActiveScript_Close(script);
508     ok(hres == S_OK, "Close failed: %08x\n", hres);
509     CHECK_CALLED(OnStateChange_DISCONNECTED);
510     CHECK_CALLED(OnStateChange_INITIALIZED);
511     CHECK_CALLED(OnStateChange_CLOSED);
512 
513     test_state(script, SCRIPTSTATE_CLOSED);
514     test_no_script_dispatch(script);
515 
516     IUnknown_Release(parse);
517     IActiveScript_Release(script);
518 
519     ref = IUnknown_Release(unk);
520     ok(!ref, "ref = %d\n", ref);
521 }
522 
523 START_TEST(jscript)
524 {
525     CoInitialize(NULL);
526 
527     test_jscript();
528     test_jscript2();
529 
530     CoUninitialize();
531 }
532 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.