msi/tests: automation: Session::Installer conformance test.

This commit is contained in:
Misha Koshelev 2007-05-04 23:17:56 -05:00 committed by Alexandre Julliard
parent 144ef422e0
commit 4a5a90b04a

View File

@ -546,6 +546,17 @@ static HRESULT Installer_VersionGet(LPCWSTR szVersion)
return hr;
}
static HRESULT Session_Installer(IDispatch *pSession, IDispatch **pInst)
{
VARIANT varresult;
DISPPARAMS dispparams = {NULL, NULL, 0, 0};
HRESULT hr;
hr = invoke(pSession, "Installer", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
*pInst = V_DISPATCH(&varresult);
return hr;
}
static HRESULT Session_PropertyGet(IDispatch *pSession, LPCWSTR szName, LPCWSTR szReturn)
{
VARIANT varresult;
@ -893,9 +904,17 @@ static void test_Session(IDispatch *pSession)
UINT len;
BOOL bool;
int myint;
IDispatch *pDatabase = NULL;
IDispatch *pDatabase = NULL, *pInst = NULL;
HRESULT hr;
/* Session::Installer */
todo_wine {
hr = Session_Installer(pSession, &pInst);
ok(SUCCEEDED(hr), "Session_Installer failed, hresult 0x%08x\n", hr);
ok(pInst != NULL, "Session_Installer returned NULL IDispatch pointer\n");
ok(pInst == pInstaller, "Session_Installer does not match Installer instance from CoCreateInstance\n");
}
/* Session::Property, get */
memset(stringw, 0, sizeof(stringw));
hr = Session_PropertyGet(pSession, szProductName, stringw);