[PATCH 13/13] msscript.ocx/tests: Add tests for Script Modules.
Gabriel Ivăncescu
gabrielopcode at gmail.com
Thu Apr 9 09:34:40 CDT 2020
Signed-off-by: Gabriel Ivăncescu <gabrielopcode at gmail.com>
---
dlls/msscript.ocx/tests/msscript.c | 360 ++++++++++++++++++++++++++++-
1 file changed, 356 insertions(+), 4 deletions(-)
diff --git a/dlls/msscript.ocx/tests/msscript.c b/dlls/msscript.ocx/tests/msscript.c
index 22db28e..2466547 100644
--- a/dlls/msscript.ocx/tests/msscript.c
+++ b/dlls/msscript.ocx/tests/msscript.c
@@ -150,6 +150,7 @@ static HRESULT WINAPI ActiveScriptParse_AddScriptlet(IActiveScriptParse *iface,
return E_NOTIMPL;
}
+static const WCHAR *parse_item_name;
static DWORD parse_flags = 0;
static HRESULT WINAPI ActiveScriptParse_ParseScriptText(IActiveScriptParse *iface,
@@ -158,7 +159,8 @@ static HRESULT WINAPI ActiveScriptParse_ParseScriptText(IActiveScriptParse *ifac
DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
{
ok(!!pstrCode, "got wrong pointer: %p.\n", pstrCode);
- ok(!pstrItemName, "got wrong pointer: %p.\n", pstrItemName);
+ ok(!lstrcmpW(pstrItemName, parse_item_name), "got wrong item name: %s (expected %s).\n",
+ wine_dbgstr_w(pstrItemName), wine_dbgstr_w(parse_item_name));
ok(!punkContext, "got wrong pointer: %p.\n", punkContext);
ok(!pstrDelimiter, "got wrong pointer: %p.\n", pstrDelimiter);
ok(!dwSourceContextCookie, "got wrong value: %s.\n", wine_dbgstr_longlong(dwSourceContextCookie));
@@ -522,12 +524,13 @@ static HRESULT WINAPI ActiveScript_Close(IActiveScript *iface)
return E_NOTIMPL;
}
+static const WCHAR *AddNamedItem_expected_name;
+static DWORD AddNamedItem_expected_flags;
static HRESULT WINAPI ActiveScript_AddNamedItem(IActiveScript *iface, LPCOLESTR name, DWORD flags)
{
- static const WCHAR oW[] = {'o',0};
CHECK_EXPECT(AddNamedItem);
- ok(!lstrcmpW(name, oW), "got name %s\n", wine_dbgstr_w(name));
- ok(flags == (SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS), "got flags %#x\n", flags);
+ ok(!lstrcmpW(name, AddNamedItem_expected_name), "got name %s\n", wine_dbgstr_w(name));
+ ok(flags == AddNamedItem_expected_flags, "got flags %#x\n", flags);
return S_OK;
}
@@ -1413,6 +1416,8 @@ static void test_AddObject(void)
ok(hr == E_INVALIDARG, "got 0x%08x\n", hr);
SET_EXPECT(AddNamedItem);
+ AddNamedItem_expected_name = objname;
+ AddNamedItem_expected_flags = SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS;
hr = IScriptControl_AddObject(sc, objname, &testdisp, VARIANT_TRUE);
ok(hr == S_OK, "got 0x%08x\n", hr);
CHECK_CALLED(AddNamedItem);
@@ -1693,6 +1698,7 @@ static void test_IScriptControl_Eval(void)
SET_EXPECT(SetScriptState_STARTED);
SET_EXPECT(ParseScriptText);
+ parse_item_name = NULL;
parse_flags = SCRIPTTEXT_ISEXPRESSION;
script_str = SysAllocString(L"var1 = 1 + 1");
V_VT(&var) = VT_NULL;
@@ -1806,6 +1812,7 @@ static void test_IScriptControl_AddCode(void)
SET_EXPECT(SetScriptState_STARTED);
SET_EXPECT(ParseScriptText);
+ parse_item_name = NULL;
parse_flags = SCRIPTTEXT_ISVISIBLE;
code_str = SysAllocString(L"1 + 1");
hr = IScriptControl_AddCode(sc, code_str);
@@ -1823,6 +1830,7 @@ static void test_IScriptControl_AddCode(void)
/* Call Eval() after AddCode() for checking if it will call SetScriptState() again. */
SET_EXPECT(ParseScriptText);
+ parse_item_name = NULL;
parse_flags = SCRIPTTEXT_ISEXPRESSION;
code_str = SysAllocString(L"var2 = 10 + var1");
V_VT(&var) = VT_NULL;
@@ -1905,6 +1913,7 @@ static void test_IScriptControl_ExecuteStatement(void)
SET_EXPECT(SetScriptState_STARTED);
SET_EXPECT(ParseScriptText);
+ parse_item_name = NULL;
parse_flags = 0;
str = SysAllocString(L"1 + 1");
hr = IScriptControl_ExecuteStatement(sc, str);
@@ -2125,6 +2134,348 @@ static void test_IScriptControl_Run(void)
SafeArrayDestroy(params);
}
+static void test_IScriptControl_get_Modules(void)
+{
+ IEnumVARIANT *enumvar, *enumvar2;
+ IScriptModuleCollection *mods;
+ VARIANT var, vars[3];
+ IScriptModule *mod;
+ IScriptControl *sc;
+ IUnknown *unknown;
+ ULONG fetched;
+ LONG count;
+ HRESULT hr;
+ BSTR str;
+ UINT i;
+
+ hr = CoCreateInstance(&CLSID_ScriptControl, NULL, CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER,
+ &IID_IScriptControl, (void**)&sc);
+ ok(hr == S_OK, "Failed to create IScriptControl interface: 0x%08x.\n", hr);
+
+ hr = IScriptControl_get_Modules(sc, &mods);
+ ok(hr == E_FAIL, "IScriptControl_get_Modules returned: 0x%08x.\n", hr);
+
+ str = SysAllocString(L"jscript");
+ hr = IScriptControl_put_Language(sc, str);
+ ok(hr == S_OK, "IScriptControl_put_Language failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+
+ hr = IScriptControl_get_Modules(sc, &mods);
+ ok(hr == S_OK, "IScriptControl_get_Modules failed: 0x%08x.\n", hr);
+
+ hr = IScriptModuleCollection_get_Count(mods, NULL);
+ ok(hr == E_POINTER, "IScriptModuleCollection_get_Count returned: 0x%08x.\n", hr);
+ hr = IScriptModuleCollection_get_Count(mods, &count);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Count failed: 0x%08x.\n", hr);
+ ok(count == 1, "count is not 1, got %d.\n", count);
+
+ V_VT(&var) = VT_I4;
+ V_I4(&var) = -1;
+ hr = IScriptModuleCollection_get_Item(mods, var, NULL);
+ ok(hr == E_POINTER, "IScriptModuleCollection_get_Item returned: 0x%08x.\n", hr);
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == 0x800a0009, "IScriptModuleCollection_get_Item returned: 0x%08x.\n", hr);
+
+ V_VT(&var) = VT_EMPTY;
+ str = SysAllocString(L"foobar");
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == E_INVALIDARG, "IScriptModuleCollection_Add returned: 0x%08x.\n", hr);
+ hr = IScriptModuleCollection_Add(mods, str, &var, NULL);
+ ok(hr == E_POINTER, "IScriptModuleCollection_Add returned: 0x%08x.\n", hr);
+ V_VT(&var) = VT_DISPATCH;
+ V_DISPATCH(&var) = NULL;
+ hr = IScriptModuleCollection_Add(mods, NULL, &var, &mod);
+ ok(hr == E_INVALIDARG, "IScriptModuleCollection_Add returned: 0x%08x.\n", hr);
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_Add failed: 0x%08x.\n", hr);
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ /* Grab an enumerator before we add another module */
+ hr = IScriptModuleCollection_get__NewEnum(mods, NULL);
+ ok(hr == E_POINTER, "IScriptModuleCollection_get__NewEnum returned: 0x%08x.\n", hr);
+ hr = IScriptModuleCollection_get__NewEnum(mods, &unknown);
+ ok(hr == S_OK, "IScriptModuleCollection_get__NewEnum failed: 0x%08x.\n", hr);
+ hr = IUnknown_QueryInterface(unknown, &IID_IEnumVARIANT, (void**)&enumvar);
+ ok(hr == S_OK, "Failed to query for IEnumVARIANT: 0x%08x.\n", hr);
+ ok((char*)unknown == (char*)enumvar, "unknown and enumvar are not the same (%p vs %p).\n", unknown, enumvar);
+ IUnknown_Release(unknown);
+
+ str = SysAllocString(L"some other Module");
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_Add failed: 0x%08x.\n", hr);
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ /* Adding a module with the same name is invalid (case insensitive) */
+ str = SysAllocString(L"FooBar");
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == E_INVALIDARG, "IScriptModuleCollection_Add failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+
+ hr = IScriptModuleCollection_get_Count(mods, &count);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Count failed: 0x%08x.\n", hr);
+ ok(count == 3, "count is not 3, got %d.\n", count);
+ V_VT(&var) = VT_I4;
+ V_I4(&var) = count + 1;
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == 0x800a0009, "IScriptModuleCollection_get_Item returned: 0x%08x.\n", hr);
+ V_VT(&var) = VT_BSTR;
+ V_BSTR(&var) = SysAllocString(L"non-existent module");
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == CTL_E_ILLEGALFUNCTIONCALL, "IScriptModuleCollection_get_Item returned: 0x%08x.\n", hr);
+ ok(V_VT(&var) == VT_BSTR, "var type not BSTR, got %d.\n", V_VT(&var));
+ VariantClear(&var);
+
+ V_VT(&var) = VT_I4;
+ V_I4(&var) = 1;
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Item failed: 0x%08x.\n", hr);
+ hr = IScriptModule_get_Name(mod, NULL);
+ ok(hr == E_POINTER, "IScriptModule_get_Name returned: 0x%08x.\n", hr);
+ hr = IScriptModule_get_Name(mod, &str);
+ ok(hr == S_OK, "IScriptModule_get_Name failed: 0x%08x.\n", hr);
+ ok(!lstrcmpW(str, L"Global"), "got %s.\n", wine_dbgstr_w(str));
+ SysFreeString(str);
+ str = SysAllocString(L"function add(a, b) { return a + b; }\n");
+ hr = IScriptModule_AddCode(mod, str);
+ ok(hr == S_OK, "IScriptModule_AddCode failed: 0x%08x.\n", hr);
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ V_VT(&var) = VT_BSTR;
+ V_BSTR(&var) = SysAllocString(L"some other module");
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Item failed: 0x%08x.\n", hr);
+ ok(V_VT(&var) == VT_BSTR, "var type not BSTR, got %d.\n", V_VT(&var));
+ VariantClear(&var);
+ hr = IScriptModule_get_Name(mod, &str);
+ ok(hr == S_OK, "IScriptModule_get_Name failed: 0x%08x.\n", hr);
+ ok(!lstrcmpW(str, L"some other Module"), "got %s.\n", wine_dbgstr_w(str));
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ V_VT(&var) = VT_R8;
+ V_R8(&var) = 2.0;
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Item failed: 0x%08x.\n", hr);
+ hr = IScriptModule_get_Name(mod, &str);
+ ok(hr == S_OK, "IScriptModule_get_Name failed: 0x%08x.\n", hr);
+ ok(!lstrcmpW(str, L"foobar"), "got %s.\n", wine_dbgstr_w(str));
+ SysFreeString(str);
+ str = SysAllocString(L"function sub(a, b) { return a - b; }\n");
+ hr = IScriptModule_AddCode(mod, str);
+ ok(hr == S_OK, "IScriptModule_AddCode failed: 0x%08x.\n", hr);
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ /* Test the enumerator, should be updated */
+ fetched = 0xdeadbeef;
+ hr = IEnumVARIANT_Next(enumvar, 0, NULL, NULL);
+ ok(hr == E_POINTER, "IEnumVARIANT_Next returned: 0x%08x.\n", hr);
+ hr = IEnumVARIANT_Next(enumvar, 0, NULL, &fetched);
+ ok(hr == E_POINTER, "IEnumVARIANT_Next failed: 0x%08x.\n", hr);
+ ok(fetched == 0xdeadbeef, "got %u.\n", fetched);
+ hr = IEnumVARIANT_Next(enumvar, 0, &var, &fetched);
+ ok(hr == S_OK, "IEnumVARIANT_Next returned: 0x%08x.\n", hr);
+ ok(fetched == 0, "got %u.\n", fetched);
+ hr = IEnumVARIANT_Next(enumvar, 0, &var, NULL);
+ ok(hr == S_OK, "IEnumVARIANT_Next returned: 0x%08x.\n", hr);
+ hr = IEnumVARIANT_Clone(enumvar, NULL);
+ ok(hr == E_POINTER, "IEnumVARIANT_Clone failed: 0x%08x.\n", hr);
+
+ hr = IEnumVARIANT_Next(enumvar, ARRAY_SIZE(vars), vars, &fetched);
+ ok(hr == S_OK, "IEnumVARIANT_Next failed: 0x%08x.\n", hr);
+ ok(fetched == ARRAY_SIZE(vars), "got %u.\n", fetched);
+ hr = IEnumVARIANT_Next(enumvar, 1, &var, &fetched);
+ ok(hr == S_FALSE, "IEnumVARIANT_Next failed: 0x%08x.\n", hr);
+ ok(fetched == 0, "got %u.\n", fetched);
+ hr = IEnumVARIANT_Skip(enumvar, 0);
+ ok(hr == S_OK, "IEnumVARIANT_Skip failed: 0x%08x.\n", hr);
+ hr = IEnumVARIANT_Skip(enumvar, 1);
+ ok(hr == S_FALSE, "IEnumVARIANT_Skip failed: 0x%08x.\n", hr);
+ hr = IEnumVARIANT_Clone(enumvar, &enumvar2);
+ ok(hr == S_OK, "IEnumVARIANT_Clone failed: 0x%08x.\n", hr);
+ hr = IEnumVARIANT_Skip(enumvar2, 1);
+ ok(hr == S_FALSE, "IEnumVARIANT_Skip failed: 0x%08x.\n", hr);
+ IEnumVARIANT_Release(enumvar2);
+ IEnumVARIANT_Release(enumvar);
+
+ for (i = 0; i < ARRAY_SIZE(vars); i++)
+ {
+ ok(V_VT(&vars[i]) == VT_DISPATCH, "V_VT(vars[%u]) = %d.\n", i, V_VT(&vars[i]));
+ hr = IDispatch_QueryInterface(V_DISPATCH(&vars[i]), &IID_IScriptModule, (void**)&mod);
+ ok(hr == S_OK, "Failed to query IScriptModule from vars[%u]: 0x%08x.\n", i, hr);
+ IScriptModule_Release(mod);
+ VariantClear(&vars[i]);
+ }
+
+ /* The 'Global' module is the same as the script control */
+ str = SysAllocString(L"add(10, 5)");
+ hr = IScriptControl_Eval(sc, str, &var);
+ ok(hr == S_OK, "IScriptControl_Eval failed: 0x%08x.\n", hr);
+ ok(V_VT(&var) == VT_I4 && V_I4(&var) == 15, "V_VT(var) = %d, V_I4(var) = %d.\n", V_VT(&var), V_I4(&var));
+ SysFreeString(str);
+ str = SysAllocString(L"sub(10, 5)");
+ hr = IScriptControl_Eval(sc, str, &var);
+ ok(FAILED(hr), "IScriptControl_Eval succeeded: 0x%08x.\n", hr);
+ SysFreeString(str);
+
+ /* Grab a module ref and change the language to something valid */
+ V_VT(&var) = VT_I2;
+ V_I2(&var) = 3;
+ hr = IScriptModuleCollection_get_Item(mods, var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Item failed: 0x%08x.\n", hr);
+ str = SysAllocString(L"vbscript");
+ hr = IScriptControl_put_Language(sc, str);
+ ok(hr == S_OK, "IScriptControl_put_Language failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+
+ /* The module collection changes and module ref is invalid */
+ hr = IScriptModuleCollection_get_Count(mods, &count);
+ ok(hr == S_OK, "IScriptModuleCollection_get_Count failed: 0x%08x.\n", hr);
+ ok(count == 1, "count is not 1, got %d.\n", count);
+ hr = IScriptModule_get_Name(mod, &str);
+ ok(hr == E_FAIL, "IScriptModule_get_Name returned: 0x%08x.\n", hr);
+ str = SysAllocString(L"function closed() { }\n");
+ hr = IScriptModule_AddCode(mod, str);
+ ok(hr == E_FAIL, "IScriptModule_AddCode failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+ str = SysAllocString(L"sub closed\nend sub");
+ hr = IScriptModule_AddCode(mod, str);
+ ok(hr == E_FAIL, "IScriptModule_AddCode failed: 0x%08x.\n", hr);
+ IScriptModule_Release(mod);
+ SysFreeString(str);
+
+ IScriptModuleCollection_Release(mods);
+ IScriptControl_Release(sc);
+
+ /* custom script engine */
+ if (have_custom_engine)
+ {
+ BSTR code_str;
+
+ hr = CoCreateInstance(&CLSID_ScriptControl, NULL, CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER,
+ &IID_IScriptControl, (void**)&sc);
+ ok(hr == S_OK, "Failed to create IScriptControl interface: 0x%08x.\n", hr);
+
+ SET_EXPECT(CreateInstance);
+ SET_EXPECT(SetInterfaceSafetyOptions);
+ SET_EXPECT(SetScriptSite);
+ SET_EXPECT(QI_IActiveScriptParse);
+ SET_EXPECT(InitNew);
+ str = SysAllocString(L"testscript");
+ hr = IScriptControl_put_Language(sc, str);
+ ok(hr == S_OK, "IScriptControl_put_Language failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+ CHECK_CALLED(CreateInstance);
+ CHECK_CALLED(SetInterfaceSafetyOptions);
+ CHECK_CALLED(SetScriptSite);
+ CHECK_CALLED(QI_IActiveScriptParse);
+ CHECK_CALLED(InitNew);
+
+ hr = IScriptControl_get_Modules(sc, &mods);
+ ok(hr == S_OK, "IScriptControl_get_Modules failed: 0x%08x.\n", hr);
+
+ /* Add a module with a non-null object and add some code to it */
+ SET_EXPECT(AddNamedItem);
+ str = SysAllocString(L"modname");
+ AddNamedItem_expected_name = str;
+ AddNamedItem_expected_flags = 0;
+ V_VT(&var) = VT_DISPATCH;
+ V_DISPATCH(&var) = &testdisp;
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_Add failed: 0x%08x.\n", hr);
+ VariantClear(&var);
+ CHECK_CALLED(AddNamedItem);
+
+ unknown = (IUnknown*)0xdeadbeef;
+ hr = IActiveScriptSite_GetItemInfo(site, str, SCRIPTINFO_IUNKNOWN, &unknown, NULL);
+ ok(hr == S_OK, "IActiveScriptSite_GetItemInfo failed: 0x%08x.\n", hr);
+ ok(unknown == (IUnknown*)&testdisp, "Unexpected IUnknown for the item: %p.\n", unknown);
+ IUnknown_Release(unknown);
+
+ SET_EXPECT(SetScriptState_STARTED);
+ SET_EXPECT(ParseScriptText);
+ parse_item_name = str;
+ parse_flags = SCRIPTTEXT_ISVISIBLE;
+ code_str = SysAllocString(L"some code");
+ hr = IScriptModule_AddCode(mod, code_str);
+ ok(hr == S_OK, "IScriptControl_AddCode failed: 0x%08x.\n", hr);
+ CHECK_CALLED(SetScriptState_STARTED);
+ CHECK_CALLED(ParseScriptText);
+ SysFreeString(code_str);
+ SysFreeString(str);
+
+ /* Keep the module ref before changing the language */
+ SET_EXPECT(Close);
+ hr = IScriptControl_put_Language(sc, NULL);
+ ok(hr == S_OK, "IScriptControl_put_Language failed: 0x%08x.\n", hr);
+ CHECK_CALLED(Close);
+ IScriptModuleCollection_Release(mods);
+ IActiveScriptSite_Release(site);
+ IScriptControl_Release(sc);
+ IScriptModule_Release(mod);
+
+ /* Now try holding a module ref while closing the script */
+ hr = CoCreateInstance(&CLSID_ScriptControl, NULL, CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER,
+ &IID_IScriptControl, (void**)&sc);
+ ok(hr == S_OK, "Failed to create IScriptControl interface: 0x%08x.\n", hr);
+
+ SET_EXPECT(CreateInstance);
+ SET_EXPECT(SetInterfaceSafetyOptions);
+ SET_EXPECT(SetScriptSite);
+ SET_EXPECT(QI_IActiveScriptParse);
+ SET_EXPECT(InitNew);
+ str = SysAllocString(L"testscript");
+ hr = IScriptControl_put_Language(sc, str);
+ ok(hr == S_OK, "IScriptControl_put_Language failed: 0x%08x.\n", hr);
+ SysFreeString(str);
+ CHECK_CALLED(CreateInstance);
+ CHECK_CALLED(SetInterfaceSafetyOptions);
+ CHECK_CALLED(SetScriptSite);
+ CHECK_CALLED(QI_IActiveScriptParse);
+ CHECK_CALLED(InitNew);
+
+ hr = IScriptControl_get_Modules(sc, &mods);
+ ok(hr == S_OK, "IScriptControl_get_Modules failed: 0x%08x.\n", hr);
+
+ SET_EXPECT(AddNamedItem);
+ str = SysAllocString(L"foo");
+ AddNamedItem_expected_name = str;
+ AddNamedItem_expected_flags = SCRIPTITEM_CODEONLY;
+ V_VT(&var) = VT_DISPATCH;
+ V_DISPATCH(&var) = NULL;
+ hr = IScriptModuleCollection_Add(mods, str, &var, &mod);
+ ok(hr == S_OK, "IScriptModuleCollection_Add failed: 0x%08x.\n", hr);
+ VariantClear(&var);
+ CHECK_CALLED(AddNamedItem);
+
+ unknown = (IUnknown*)0xdeadbeef;
+ hr = IActiveScriptSite_GetItemInfo(site, str, SCRIPTINFO_IUNKNOWN, &unknown, NULL);
+ ok(hr == TYPE_E_ELEMENTNOTFOUND, "IActiveScriptSite_GetItemInfo returned: 0x%08x.\n", hr);
+ IScriptModuleCollection_Release(mods);
+ IActiveScriptSite_Release(site);
+ IScriptControl_Release(sc);
+
+ SET_EXPECT(SetScriptState_STARTED);
+ SET_EXPECT(ParseScriptText);
+ parse_item_name = str;
+ parse_flags = SCRIPTTEXT_ISVISIBLE;
+ code_str = SysAllocString(L"code after close");
+ hr = IScriptModule_AddCode(mod, code_str);
+ ok(hr == S_OK, "IScriptControl_AddCode failed: 0x%08x.\n", hr);
+ CHECK_CALLED(SetScriptState_STARTED);
+ CHECK_CALLED(ParseScriptText);
+ SysFreeString(code_str);
+ SysFreeString(str);
+
+ SET_EXPECT(Close);
+ IScriptModule_Release(mod);
+ CHECK_CALLED(Close);
+ }
+}
+
START_TEST(msscript)
{
IUnknown *unk;
@@ -2162,6 +2513,7 @@ START_TEST(msscript)
test_IScriptControl_AddCode();
test_IScriptControl_ExecuteStatement();
test_IScriptControl_Run();
+ test_IScriptControl_get_Modules();
init_registry(FALSE);
--
2.21.0
More information about the wine-devel
mailing list