vbscript/tests: Add initial tests for the script TypeInfo.
Signed-off-by: Gabriel Ivăncescu <gabrielopcode@gmail.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Gabriel Ivăncescu
Alexandre Julliard
parent
c2e141f77c
commit
46ccea7649
|
|
@ -51,6 +51,7 @@
|
|||
#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);
|
||||
|
||||
#define DEFINE_EXPECT(func) \
|
||||
static int expect_ ## func = 0, called_ ## func = 0
|
||||
|
|
@ -860,6 +861,275 @@ static void test_code_persistence(void)
|
|||
CHECK_CALLED(OnStateChange_CLOSED);
|
||||
}
|
||||
|
||||
static void test_script_typeinfo(void)
|
||||
{
|
||||
static struct
|
||||
{
|
||||
const WCHAR *name;
|
||||
VARTYPE ret_type;
|
||||
UINT num_args;
|
||||
} func[] =
|
||||
{
|
||||
{ L"foobar", VT_VARIANT, 0 },
|
||||
{ L"test", VT_VOID, 0 },
|
||||
{ L"subtract", VT_VARIANT, 2 },
|
||||
{ L"emptyfn", VT_VARIANT, 0 }
|
||||
};
|
||||
static struct
|
||||
{
|
||||
const WCHAR *name;
|
||||
} var[] =
|
||||
{
|
||||
{ L"global_var" },
|
||||
{ L"obj" },
|
||||
{ L"const_var" },
|
||||
{ L"implicit" }
|
||||
};
|
||||
ITypeInfo *typeinfo, *typeinfo2;
|
||||
ITypeComp *typecomp, *typecomp2;
|
||||
IActiveScriptParse *parser;
|
||||
IDispatchEx *script_disp;
|
||||
IActiveScript *vbscript;
|
||||
FUNCDESC *funcdesc;
|
||||
VARDESC *vardesc;
|
||||
DESCKIND desckind;
|
||||
BINDPTR bindptr;
|
||||
MEMBERID memid;
|
||||
TYPEATTR *attr;
|
||||
UINT index;
|
||||
HRESULT hr;
|
||||
WCHAR str[64], *names = str;
|
||||
int i;
|
||||
|
||||
vbscript = create_vbscript();
|
||||
|
||||
hr = IActiveScript_QueryInterface(vbscript, &IID_IActiveScriptParse, (void**)&parser);
|
||||
ok(hr == S_OK, "Could not get IActiveScriptParse iface: %08x\n", hr);
|
||||
|
||||
SET_EXPECT(GetLCID);
|
||||
hr = IActiveScript_SetScriptSite(vbscript, &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(vbscript, SCRIPTSTATE_CONNECTED);
|
||||
ok(hr == S_OK, "SetScriptState(SCRIPTSTATE_CONNECTED) failed: %08x\n", hr);
|
||||
CHECK_CALLED(OnStateChange_CONNECTED);
|
||||
|
||||
parse_script(parser,
|
||||
"dim global_var\n"
|
||||
"const const_var = 1337\n"
|
||||
|
||||
"function foobar\n"
|
||||
" foobar = \"foobar\"\n"
|
||||
"end function\n"
|
||||
|
||||
"sub test\nend sub\n"
|
||||
"private sub private_sub\nend sub\n"
|
||||
|
||||
"function subtract(byref x, byval y)\n"
|
||||
" subtract = x - y\n"
|
||||
"end function\n"
|
||||
|
||||
"function emptyfn\nend function\n"
|
||||
|
||||
"class C\n"
|
||||
" dim x\n"
|
||||
" public sub method\nend sub\n"
|
||||
" private function strret\n"
|
||||
" strret = \"ret\"\n"
|
||||
" end function\n"
|
||||
"end class\n"
|
||||
|
||||
"implicit = 10\n"
|
||||
"dim obj\nset obj = new C\n");
|
||||
|
||||
script_disp = get_script_dispatch(vbscript);
|
||||
hr = IDispatchEx_QueryInterface(script_disp, &IID_ITypeInfo, (void**)&typeinfo);
|
||||
ok(hr == E_NOINTERFACE, "QueryInterface(IID_ITypeInfo) returned: %08x\n", hr);
|
||||
hr = IDispatchEx_GetTypeInfo(script_disp, 1, LOCALE_USER_DEFAULT, &typeinfo);
|
||||
ok(hr == DISP_E_BADINDEX, "GetTypeInfo returned: %08x\n", hr);
|
||||
hr = IDispatchEx_GetTypeInfo(script_disp, 0, LOCALE_USER_DEFAULT, &typeinfo);
|
||||
ok(hr == S_OK, "GetTypeInfo failed: %08x\n", hr);
|
||||
hr = IDispatchEx_GetTypeInfo(script_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 == ARRAY_SIZE(func), "Unexpected cFuncs %u\n", attr->cFuncs);
|
||||
ok(attr->cVars == ARRAY_SIZE(var), "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));
|
||||
wcscpy(str, L"C");
|
||||
hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 1, &memid);
|
||||
ok(hr == DISP_E_UNKNOWNNAME, "GetIDsOfNames returned: %08x\n", hr);
|
||||
wcscpy(str, L"SUBtract");
|
||||
hr = ITypeInfo_GetIDsOfNames(typeinfo, &names, 1, &memid);
|
||||
ok(hr == S_OK, "GetIDsOfNames failed: %08x\n", hr);
|
||||
ok(!lstrcmpW(str, L"SUBtract"), "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 < ARRAY_SIZE(var); i++)
|
||||
{
|
||||
hr = ITypeInfo_GetVarDesc(typeinfo, i, &vardesc);
|
||||
ok(hr == S_OK, "GetVarDesc(%u) failed: %08x\n", i, hr);
|
||||
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 < ARRAY_SIZE(func); i++)
|
||||
{
|
||||
hr = ITypeInfo_GetFuncDesc(typeinfo, i, &funcdesc);
|
||||
ok(hr == S_OK, "GetFuncDesc(%u) failed: %08x\n", i, hr);
|
||||
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 == func[i].ret_type,
|
||||
"[%u] Unexpected return type vt %d (expected %d)\n", i, funcdesc->elemdescFunc.tdesc.vt, func[i].ret_type);
|
||||
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);
|
||||
todo_wine
|
||||
ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
|
||||
hr = ITypeComp_Bind(typecomp, str, 0, 0, NULL, &desckind, &bindptr);
|
||||
todo_wine
|
||||
ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
|
||||
hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, NULL, &bindptr);
|
||||
todo_wine
|
||||
ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
|
||||
hr = ITypeComp_Bind(typecomp, str, 0, 0, &typeinfo2, &desckind, NULL);
|
||||
todo_wine
|
||||
ok(hr == E_INVALIDARG, "Bind returned: %08x\n", hr);
|
||||
ITypeComp_Release(typecomp);
|
||||
|
||||
/* Updating the script won't update the typeinfo obtained before,
|
||||
but it will be reflected in any typeinfo obtained afterwards. */
|
||||
parse_script(parser,
|
||||
"dim new_var\nnew_var = 10\n"
|
||||
"sub new_sub\nend sub\n"
|
||||
|
||||
/* Replace the function foobar with more args */
|
||||
"function foobar(x, y, z)\nend function\n");
|
||||
|
||||
hr = IDispatchEx_GetTypeInfo(script_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 == ARRAY_SIZE(func), "Unexpected cFuncs %u\n", attr->cFuncs);
|
||||
ok(attr->cVars == ARRAY_SIZE(var), "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 == ARRAY_SIZE(func) + 1, "Unexpected cFuncs %u\n", attr->cFuncs);
|
||||
ok(attr->cVars == ARRAY_SIZE(var) + 1, "Unexpected cVars %u\n", attr->cVars);
|
||||
ITypeInfo_ReleaseTypeAttr(typeinfo2, attr);
|
||||
hr = ITypeInfo_GetFuncDesc(typeinfo, 0, &funcdesc);
|
||||
ok(hr == S_OK, "GetFuncDesc failed: %08x\n", hr);
|
||||
ok(funcdesc->cParams == 0, "Unexpected cParams %d\n", funcdesc->cParams);
|
||||
ITypeInfo_ReleaseFuncDesc(typeinfo, funcdesc);
|
||||
hr = ITypeInfo_GetFuncDesc(typeinfo2, 0, &funcdesc);
|
||||
ok(hr == S_OK, "GetFuncDesc failed: %08x\n", hr);
|
||||
ok(funcdesc->cParams == 3, "Unexpected cParams %d\n", funcdesc->cParams);
|
||||
ITypeInfo_ReleaseFuncDesc(typeinfo2, funcdesc);
|
||||
ITypeInfo_Release(typeinfo2);
|
||||
|
||||
ITypeInfo_Release(typeinfo);
|
||||
IDispatchEx_Release(script_disp);
|
||||
IActiveScriptParse_Release(parser);
|
||||
|
||||
SET_EXPECT(OnStateChange_DISCONNECTED);
|
||||
SET_EXPECT(OnStateChange_INITIALIZED);
|
||||
SET_EXPECT(OnStateChange_CLOSED);
|
||||
hr = IActiveScript_Close(vbscript);
|
||||
ok(hr == S_OK, "Close failed: %08x\n", hr);
|
||||
CHECK_CALLED(OnStateChange_DISCONNECTED);
|
||||
CHECK_CALLED(OnStateChange_INITIALIZED);
|
||||
CHECK_CALLED(OnStateChange_CLOSED);
|
||||
|
||||
IActiveScript_Release(vbscript);
|
||||
}
|
||||
|
||||
static void test_vbscript(void)
|
||||
{
|
||||
IActiveScriptParseProcedure2 *parse_proc;
|
||||
|
|
@ -1486,6 +1756,7 @@ START_TEST(vbscript)
|
|||
test_named_items();
|
||||
test_scriptdisp();
|
||||
test_code_persistence();
|
||||
test_script_typeinfo();
|
||||
test_RegExp();
|
||||
test_RegExp_Replace();
|
||||
}else {
|
||||
|
|
|
|||
Loading…
Reference in New Issue