[PATCH v4 9/9] jscript/tests: Add initial tests for the script TypeInfo.
Gabriel Ivăncescu
gabrielopcode at gmail.com
Thu Dec 12 06:54:03 CST 2019
Signed-off-by: Gabriel Ivăncescu <gabrielopcode at gmail.com>
---
dlls/jscript/tests/jscript.c | 362 +++++++++++++++++++++++++++++++++++
1 file changed, 362 insertions(+)
diff --git a/dlls/jscript/tests/jscript.c b/dlls/jscript/tests/jscript.c
index 0904374..e608367 100644
--- a/dlls/jscript/tests/jscript.c
+++ b/dlls/jscript/tests/jscript.c
@@ -33,6 +33,8 @@
#define IActiveScriptParse_Release IActiveScriptParse64_Release
#define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
#define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
+#define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
+#define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
#else
@@ -40,10 +42,13 @@
#define IActiveScriptParse_Release IActiveScriptParse32_Release
#define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
#define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
+#define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
+#define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
#endif
DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
+DEFINE_GUID(IID_IScriptTypeInfo, 0xc59c6b12, 0xf6c1, 0x11cf, 0x88,0x35, 0x00,0xa0,0xc9,0x11,0xe8,0xb2);
static const CLSID CLSID_JScript =
{0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
@@ -274,6 +279,20 @@ static IDispatchEx *get_script_dispatch(IActiveScript *script)
return dispex;
}
+static void parse_script(IActiveScriptParse *parser, const WCHAR *src)
+{
+ HRESULT hres;
+
+ SET_EXPECT(OnEnterScript);
+ SET_EXPECT(OnLeaveScript);
+
+ hres = IActiveScriptParse_ParseScriptText(parser, src, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
+ ok(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
+
+ CHECK_CALLED(OnEnterScript);
+ CHECK_CALLED(OnLeaveScript);
+}
+
#define get_disp_id(a,b,c,d) _get_disp_id(__LINE__,a,b,c,d)
static void _get_disp_id(unsigned line, IDispatchEx *dispex, const WCHAR *name, HRESULT exhr, DISPID *id)
{
@@ -907,6 +926,347 @@ static void test_code_persistence(void)
CHECK_CALLED(OnStateChange_CLOSED);
}
+static void test_typeinfo(const WCHAR *parse_func_name)
+{
+ static struct
+ {
+ const WCHAR *name;
+ UINT num_args;
+ } func[] =
+ {
+ { L"emptyfn", 0 },
+ { L"voidfn", 0 },
+ { L"math", 2 },
+ { L"foobar", 1 },
+ { L"C", 0 },
+ { L"funcvar", 2 },
+ { L"f1", 1 },
+ { L"f2", 1 }
+ };
+ static struct
+ {
+ const WCHAR *name;
+ } var[] =
+ {
+ { L"global_var" },
+ { L"uninit" },
+ { L"obj" }
+ };
+ const WCHAR *source = L""
+ "var global_var = 42;\n"
+
+ "function emptyfn() { }\n"
+ "function voidfn() { return void(0); }\n"
+ "function math(x, y) { return x - y; }\n"
+ "function foobar(x) { return \"foobar\"; }\n"
+
+ "function C() {\n"
+ " this.x;\n"
+ " this.strret = function() { return \"ret\"; }\n"
+ "}\n"
+
+ "var uninit;\n"
+ "var obj = new C();\n"
+
+ "var funcvar = function(x, y) { return x * y; };\n"
+ "var native_func = decodeURI;\n"
+
+ "(function() {\n"
+ " f1 = function infuncexpr(x) { return 1; }\n"
+ " f2 = function infuncexpr(x) { return 2; }\n"
+ "})();\n";
+ UINT expected_funcs_cnt = parse_func_name ? 0 : ARRAY_SIZE(func);
+ UINT expected_vars_cnt = parse_func_name ? 0 : ARRAY_SIZE(var);
+
+ ITypeInfo *typeinfo, *typeinfo2;
+ ITypeComp *typecomp, *typecomp2;
+ IActiveScriptParse *parser;
+ IActiveScript *script;
+ FUNCDESC *funcdesc;
+ VARDESC *vardesc;
+ IDispatchEx *disp;
+ DESCKIND desckind;
+ BINDPTR bindptr;
+ MEMBERID memid;
+ TYPEATTR *attr;
+ UINT index;
+ HRESULT hr;
+ WCHAR str[64], *names = str;
+ int i;
+
+ if (parse_func_name)
+ trace("Testing TypeInfo for function %s...\n", wine_dbgstr_w(parse_func_name));
+ else
+ trace("Testing TypeInfo for script dispatch...\n");
+
+ script = create_jscript();
+
+ hr = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)&parser);
+ ok(hr == S_OK, "Could not get IActiveScriptParse iface: %08x\n", hr);
+
+ SET_EXPECT(GetLCID);
+ hr = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
+ ok(hr == S_OK, "SetScriptSite failed: %08x\n", hr);
+ CHECK_CALLED(GetLCID);
+
+ SET_EXPECT(OnStateChange_INITIALIZED);
+ hr = IActiveScriptParse_InitNew(parser);
+ ok(hr == S_OK, "InitNew failed: %08x\n", hr);
+ CHECK_CALLED(OnStateChange_INITIALIZED);
+
+ SET_EXPECT(OnStateChange_CONNECTED);
+ hr = IActiveScript_SetScriptState(script, SCRIPTSTATE_CONNECTED);
+ ok(hr == S_OK, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hr);
+ CHECK_CALLED(OnStateChange_CONNECTED);
+
+ if (parse_func_name)
+ {
+ IActiveScriptParseProcedure2 *parse_proc;
+ IDispatch *proc_disp;
+
+ hr = IActiveScript_QueryInterface(script, &IID_IActiveScriptParseProcedure2, (void**)&parse_proc);
+ ok(hr == S_OK, "Could not get IActiveScriptParse: %08x\n", hr);
+
+ hr = IActiveScriptParseProcedure2_ParseProcedureText(parse_proc, source, NULL, parse_func_name,
+ NULL, NULL, NULL, 0, 0, SCRIPTPROC_IMPLICIT_THIS | SCRIPTPROC_IMPLICIT_PARENTS, &proc_disp);
+ ok(hr == S_OK, "ParseProcedureText failed: %08x\n", hr);
+ IActiveScriptParseProcedure2_Release(parse_proc);
+
+ hr = IDispatch_QueryInterface(proc_disp, &IID_IDispatchEx, (void**)&disp);
+ ok(hr == S_OK, "Could not get IDispatchEx: %08x\n", hr);
+ IDispatch_Release(proc_disp);
+ }
+ else
+ {
+ parse_script(parser, source);
+ disp = get_script_dispatch(script);
+ }
+
+ hr = IDispatchEx_QueryInterface(disp, &IID_ITypeInfo, (void**)&typeinfo);
+ ok(hr == E_NOINTERFACE, "QueryInterface(IID_ITypeInfo) returned: %08x\n", hr);
+ hr = IDispatchEx_GetTypeInfo(disp, 1, LOCALE_USER_DEFAULT, &typeinfo);
+ ok(hr == DISP_E_BADINDEX, "GetTypeInfo returned: %08x\n", hr);
+ hr = IDispatchEx_GetTypeInfo(disp, 0, LOCALE_USER_DEFAULT, &typeinfo);
+ ok(hr == S_OK, "GetTypeInfo failed: %08x\n", hr);
+ hr = IDispatchEx_GetTypeInfo(disp, 0, LOCALE_USER_DEFAULT, &typeinfo2);
+ ok(hr == S_OK, "GetTypeInfo failed: %08x\n", hr);
+ ok(typeinfo != typeinfo2, "TypeInfo was not supposed to be shared.\n");
+ ITypeInfo_Release(typeinfo2);
+
+ hr = ITypeInfo_GetTypeAttr(typeinfo, &attr);
+ ok(hr == S_OK, "GetTypeAttr failed: %08x\n", hr);
+ ok(IsEqualGUID(&attr->guid, &IID_IScriptTypeInfo), "Unexpected GUID %s\n", wine_dbgstr_guid(&attr->guid));
+ ok(attr->lcid == LOCALE_USER_DEFAULT, "Unexpected LCID %u\n", attr->lcid);
+ ok(attr->memidConstructor == MEMBERID_NIL, "Unexpected constructor memid %u\n", attr->memidConstructor);
+ ok(attr->memidDestructor == MEMBERID_NIL, "Unexpected destructor memid %u\n", attr->memidDestructor);
+ ok(attr->cbSizeInstance == 4, "Unexpected cbSizeInstance %u\n", attr->cbSizeInstance);
+ ok(attr->typekind == TKIND_DISPATCH, "Unexpected typekind %u\n", attr->typekind);
+ ok(attr->cFuncs == expected_funcs_cnt, "Unexpected cFuncs %u\n", attr->cFuncs);
+ ok(attr->cVars == expected_vars_cnt, "Unexpected cVars %u\n", attr->cVars);
+ ok(attr->cImplTypes == 1, "Unexpected cImplTypes %u\n", attr->cImplTypes);
+ ok(attr->cbSizeVft == sizeof(IDispatchVtbl), "Unexpected cbSizeVft %u\n", attr->cbSizeVft);
+ ok(attr->cbAlignment == 4, "Unexpected cbAlignment %u\n", attr->cbAlignment);
+ ok(attr->wTypeFlags == TYPEFLAG_FDISPATCHABLE, "Unexpected wTypeFlags 0x%x\n", attr->wTypeFlags);
+ ok(attr->tdescAlias.vt == VT_EMPTY, "Unexpected tdescAlias.vt %d\n", attr->tdescAlias.vt);
+ ok(attr->idldescType.wIDLFlags == IDLFLAG_NONE, "Unexpected idldescType.wIDLFlags 0x%x\n", attr->idldescType.wIDLFlags);
+ ITypeInfo_ReleaseTypeAttr(typeinfo, attr);
+
+ /* GetIDsOfNames looks into the inherited types as well */
+ wcscpy(str, L"queryinterface");
+ hr = ITypeInfo_GetIDsOfNames(typeinfo, NULL, 1, &memid);
+ ok(hr == E_INVALIDARG, "GetIDsOfNames returned: %08x\n", hr);
+ hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 1, NULL);
+ ok(hr == E_INVALIDARG, "GetIDsOfNames returned: %08x\n", hr);
+ hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 0, &memid);
+ ok(hr == E_INVALIDARG, "GetIDsOfNames returned: %08x\n", hr);
+ hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 1, &memid);
+ ok(hr == S_OK, "GetIDsOfNames failed: %08x\n", hr);
+ ok(!lstrcmpW(str, L"queryinterface"), "Unexpected string %s\n", wine_dbgstr_w(str));
+ if (expected_funcs_cnt)
+ {
+ wcscpy(str, L"Math");
+ hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 1, &memid);
+ ok(hr == S_OK, "GetIDsOfNames failed: %08x\n", hr);
+ ok(!lstrcmpW(str, L"Math"), "Unexpected string %s\n", wine_dbgstr_w(str));
+ }
+
+ /* Check variable descriptions */
+ hr = ITypeInfo_GetVarDesc(typeinfo, 0, NULL);
+ ok(hr == E_INVALIDARG, "GetVarDesc returned: %08x\n", hr);
+ hr = ITypeInfo_GetVarDesc(typeinfo, 1337, &vardesc);
+ ok(hr == TYPE_E_ELEMENTNOTFOUND, "GetVarDesc returned: %08x\n", hr);
+ for (i = 0; i < expected_vars_cnt; i++)
+ {
+ hr = ITypeInfo_GetVarDesc(typeinfo, i, &vardesc);
+ ok(hr == S_OK, "GetVarDesc(%u) failed: %08x\n", i, hr);
+ ok(vardesc->memid <= 0xFFFF, "[%u] Unexpected memid 0x%x\n", i, vardesc->memid);
+ ok(vardesc->lpstrSchema == NULL, "[%u] Unexpected lpstrSchema %p\n", i, vardesc->lpstrSchema);
+ ok(vardesc->oInst == 0, "[%u] Unexpected oInst %u\n", i, vardesc->oInst);
+ ok(vardesc->varkind == VAR_DISPATCH, "[%u] Unexpected varkind %d\n", i, vardesc->varkind);
+ ok(vardesc->wVarFlags == 0, "[%u] Unexpected wVarFlags 0x%x\n", i, vardesc->wVarFlags);
+ ok(vardesc->elemdescVar.tdesc.vt == VT_VARIANT,
+ "[%u] Unexpected variable type vt %d (expected %d)\n", i, vardesc->elemdescVar.tdesc.vt, 0);
+ ok(vardesc->elemdescVar.paramdesc.pparamdescex == NULL,
+ "[%u] Unexpected variable type pparamdescex %p\n", i, vardesc->elemdescVar.paramdesc.pparamdescex);
+ ok(vardesc->elemdescVar.paramdesc.wParamFlags == PARAMFLAG_NONE,
+ "[%u] Unexpected variable type wParamFlags 0x%x\n", i, vardesc->elemdescVar.paramdesc.wParamFlags);
+ ITypeInfo_ReleaseVarDesc(typeinfo, vardesc);
+ }
+
+ /* Check function descriptions */
+ hr = ITypeInfo_GetFuncDesc(typeinfo, 0, NULL);
+ ok(hr == E_INVALIDARG, "GetFuncDesc returned: %08x\n", hr);
+ hr = ITypeInfo_GetFuncDesc(typeinfo, 1337, &funcdesc);
+ ok(hr == TYPE_E_ELEMENTNOTFOUND, "GetFuncDesc returned: %08x\n", hr);
+ for (i = 0; i < expected_funcs_cnt; i++)
+ {
+ hr = ITypeInfo_GetFuncDesc(typeinfo, i, &funcdesc);
+ ok(hr == S_OK, "GetFuncDesc(%u) failed: %08x\n", i, hr);
+ ok(funcdesc->memid <= 0xFFFF, "[%u] Unexpected memid 0x%x\n", i, funcdesc->memid);
+ ok(funcdesc->lprgscode == NULL, "[%u] Unexpected lprgscode %p\n", i, funcdesc->lprgscode);
+ ok(func[i].num_args ? (funcdesc->lprgelemdescParam != NULL) : (funcdesc->lprgelemdescParam == NULL),
+ "[%u] Unexpected lprgelemdescParam %p\n", i, funcdesc->lprgelemdescParam);
+ ok(funcdesc->funckind == FUNC_DISPATCH, "[%u] Unexpected funckind %u\n", i, funcdesc->funckind);
+ ok(funcdesc->invkind == INVOKE_FUNC, "[%u] Unexpected invkind %u\n", i, funcdesc->invkind);
+ ok(funcdesc->callconv == CC_STDCALL, "[%u] Unexpected callconv %u\n", i, funcdesc->callconv);
+ ok(funcdesc->cParams == func[i].num_args, "[%u] Unexpected cParams %d (expected %d)\n",
+ i, funcdesc->cParams, func[i].num_args);
+ ok(funcdesc->cParamsOpt == 0, "[%u] Unexpected cParamsOpt %d\n", i, funcdesc->cParamsOpt);
+ ok(funcdesc->cScodes == 0, "[%u] Unexpected cScodes %d\n", i, funcdesc->cScodes);
+ ok(funcdesc->wFuncFlags == 0, "[%u] Unexpected wFuncFlags 0x%x\n", i, funcdesc->wFuncFlags);
+ ok(funcdesc->elemdescFunc.tdesc.vt == VT_VARIANT,
+ "[%u] Unexpected return type vt %d\n", i, funcdesc->elemdescFunc.tdesc.vt);
+ ok(funcdesc->elemdescFunc.paramdesc.pparamdescex == NULL,
+ "[%u] Unexpected return type pparamdescex %p\n", i, funcdesc->elemdescFunc.paramdesc.pparamdescex);
+ ok(funcdesc->elemdescFunc.paramdesc.wParamFlags == PARAMFLAG_NONE,
+ "[%u] Unexpected return type wParamFlags 0x%x\n", i, funcdesc->elemdescFunc.paramdesc.wParamFlags);
+ if (funcdesc->lprgelemdescParam)
+ for (index = 0; index < funcdesc->cParams; index++)
+ {
+ ok(funcdesc->lprgelemdescParam[index].tdesc.vt == VT_VARIANT,
+ "[%u] Unexpected parameter %u vt %d\n", i, index, funcdesc->lprgelemdescParam[index].tdesc.vt);
+ ok(funcdesc->lprgelemdescParam[index].paramdesc.pparamdescex == NULL,
+ "[%u] Unexpected parameter %u pparamdescex %p\n", i, index, funcdesc->lprgelemdescParam[index].paramdesc.pparamdescex);
+ ok(funcdesc->lprgelemdescParam[index].paramdesc.wParamFlags == PARAMFLAG_NONE,
+ "[%u] Unexpected parameter %u wParamFlags 0x%x\n", i, index, funcdesc->lprgelemdescParam[index].paramdesc.wParamFlags);
+ }
+ ITypeInfo_ReleaseFuncDesc(typeinfo, funcdesc);
+ }
+
+ /* Test TypeComp Binds */
+ hr = ITypeInfo_QueryInterface(typeinfo, &IID_ITypeComp, (void**)&typecomp);
+ ok(hr == S_OK, "QueryInterface(IID_ITypeComp) failed: %08x\n", hr);
+ hr = ITypeInfo_GetTypeComp(typeinfo, NULL);
+ ok(hr == E_INVALIDARG, "GetTypeComp returned: %08x\n", hr);
+ hr = ITypeInfo_GetTypeComp(typeinfo, &typecomp2);
+ ok(hr == S_OK, "GetTypeComp failed: %08x\n", hr);
+ ok(typecomp == typecomp2, "QueryInterface(IID_ITypeComp) and GetTypeComp returned different TypeComps\n");
+ ITypeComp_Release(typecomp2);
+ wcscpy(str, L"not_found");
+ hr = ITypeComp_Bind(typecomp, NULL, 0, 0, &typeinfo2, &desckind, &bindptr);
+ ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
+ hr = ITypeComp_Bind(typecomp, str, 0, 0, NULL, &desckind, &bindptr);
+ ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
+ hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, NULL, &bindptr);
+ ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
+ hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, &desckind, NULL);
+ ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
+ hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, &desckind, &bindptr);
+ ok(hr == S_OK, "Bind failed: %08x\n", hr);
+ ok(desckind == DESCKIND_NONE, "Unexpected desckind %u\n", desckind);
+ wcscpy(str, L"addRef");
+ hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, &desckind, &bindptr);
+ ok(hr == S_OK, "Bind failed: %08x\n", hr);
+ ok(desckind == DESCKIND_FUNCDESC, "Unexpected desckind %u\n", desckind);
+ ok(!lstrcmpW(str, L"addRef"), "Unexpected string %s\n", wine_dbgstr_w(str));
+ ITypeInfo_ReleaseFuncDesc(typeinfo2, bindptr.lpfuncdesc);
+ ITypeInfo_Release(typeinfo2);
+ for (i = 0; i < expected_vars_cnt; i++)
+ {
+ wcscpy(str, var[i].name);
+ hr = ITypeComp_Bind(typecomp, str, 0, INVOKE_PROPERTYGET, &typeinfo2, &desckind, &bindptr);
+ ok(hr == S_OK, "Bind failed: %08x\n", hr);
+ ok(desckind == DESCKIND_VARDESC, "Unexpected desckind %u\n", desckind);
+ ITypeInfo_ReleaseVarDesc(typeinfo2, bindptr.lpvardesc);
+ ITypeInfo_Release(typeinfo2);
+ }
+ for (i = 0; i < expected_funcs_cnt; i++)
+ {
+ wcscpy(str, func[i].name);
+ hr = ITypeComp_Bind(typecomp, str, 0, INVOKE_FUNC, &typeinfo2, &desckind, &bindptr);
+ ok(hr == S_OK, "Bind failed: %08x\n", hr);
+ ok(desckind == DESCKIND_FUNCDESC, "Unexpected desckind %u\n", desckind);
+ ITypeInfo_ReleaseFuncDesc(typeinfo2, bindptr.lpfuncdesc);
+ ITypeInfo_Release(typeinfo2);
+ }
+ wcscpy(str, L"JScriptTypeInfo");
+ hr = ITypeComp_BindType(typecomp, NULL, 0, &typeinfo2, &typecomp2);
+ ok(hr == E_INVALIDARG, "BindType returned: %08x\n", hr);
+ hr = ITypeComp_BindType(typecomp, str, 0, NULL, &typecomp2);
+ ok(hr == E_INVALIDARG, "BindType returned: %08x\n", hr);
+ hr = ITypeComp_BindType(typecomp, str, 0, &typeinfo2, NULL);
+ ok(hr == E_INVALIDARG, "BindType returned: %08x\n", hr);
+ hr = ITypeComp_BindType(typecomp, str, 0, &typeinfo2, &typecomp2);
+ ok(hr == S_OK, "BindType failed: %08x\n", hr);
+ ok(!typeinfo2, "Unexpected TypeInfo %p (expected null)\n", typeinfo2);
+ ok(!typecomp2, "Unexpected TypeComp %p (expected null)\n", typecomp2);
+ wcscpy(str, L"C");
+ hr = ITypeComp_BindType(typecomp, str, 0, &typeinfo2, &typecomp2);
+ ok(hr == S_OK, "BindType failed: %08x\n", hr);
+ ok(!typeinfo2, "Unexpected TypeInfo %p (expected null)\n", typeinfo2);
+ ok(!typecomp2, "Unexpected TypeComp %p (expected null)\n", typecomp2);
+ wcscpy(str, L"IDispatch");
+ hr = ITypeComp_BindType(typecomp, str, 0, &typeinfo2, &typecomp2);
+ ok(hr == S_OK, "BindType failed: %08x\n", hr);
+ ok(!typeinfo2, "Unexpected TypeInfo %p (expected null)\n", typeinfo2);
+ ok(!typecomp2, "Unexpected TypeComp %p (expected null)\n", typecomp2);
+ ITypeComp_Release(typecomp);
+
+ /* Updating the script won't update the typeinfo obtained before,
+ but it will be reflected in any typeinfo obtained afterwards. */
+ if (!parse_func_name)
+ {
+ parse_script(parser, L""
+ "var new_var;\n"
+ "function new_func() { }\n");
+
+ hr = IDispatchEx_GetTypeInfo(disp, 0, LOCALE_USER_DEFAULT, &typeinfo2);
+ ok(hr == S_OK, "GetTypeInfo failed: %08x\n", hr);
+ hr = ITypeInfo_GetTypeAttr(typeinfo, &attr);
+ ok(hr == S_OK, "GetTypeAttr failed: %08x\n", hr);
+ ok(attr->cFuncs == expected_funcs_cnt, "Unexpected cFuncs %u\n", attr->cFuncs);
+ ok(attr->cVars == expected_vars_cnt, "Unexpected cVars %u\n", attr->cVars);
+ ITypeInfo_ReleaseTypeAttr(typeinfo, attr);
+ hr = ITypeInfo_GetTypeAttr(typeinfo2, &attr);
+ ok(hr == S_OK, "GetTypeAttr failed: %08x\n", hr);
+ ok(attr->cFuncs == expected_funcs_cnt + 1, "Unexpected cFuncs %u\n", attr->cFuncs);
+ ok(attr->cVars == expected_vars_cnt + 1, "Unexpected cVars %u\n", attr->cVars);
+ ITypeInfo_ReleaseTypeAttr(typeinfo2, attr);
+ ITypeInfo_Release(typeinfo2);
+
+ /* Adding an identifier that differs only in case gives an error
+ when retrieving the TypeInfo, even though it is valid jscript. */
+ parse_script(parser, L"var NEW_FUNC;\n");
+ hr = IDispatchEx_GetTypeInfo(disp, 0, LOCALE_USER_DEFAULT, &typeinfo2);
+ ok(hr == TYPE_E_AMBIGUOUSNAME, "GetTypeInfo returned: %08x\n", hr);
+ }
+
+ ITypeInfo_Release(typeinfo);
+ IDispatchEx_Release(disp);
+ IActiveScriptParse_Release(parser);
+
+ SET_EXPECT(OnStateChange_DISCONNECTED);
+ SET_EXPECT(OnStateChange_INITIALIZED);
+ SET_EXPECT(OnStateChange_CLOSED);
+ hr = IActiveScript_Close(script);
+ ok(hr == S_OK, "Close failed: %08x\n", hr);
+ CHECK_CALLED(OnStateChange_DISCONNECTED);
+ CHECK_CALLED(OnStateChange_INITIALIZED);
+ CHECK_CALLED(OnStateChange_CLOSED);
+
+ IActiveScript_Release(script);
+}
+
static BOOL check_jscript(void)
{
IActiveScriptProperty *script_prop;
@@ -931,6 +1291,8 @@ START_TEST(jscript)
test_jscript_uninitializing();
test_aggregation();
test_code_persistence();
+ test_typeinfo(NULL);
+ test_typeinfo(L"some_func_name");
trace("Testing JScriptEncode object...\n");
engine_clsid = &CLSID_JScriptEncode;
--
2.21.0
More information about the wine-devel
mailing list