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

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 4a5a90b04a5a70d055b3e108bb683a40a4ac9aff
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=4a5a90b04a5a70d055b3e108bb...

Author: Misha Koshelev 
Date:   Fri May  4 23:17:56 2007 -0500

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

---

dlls/msi/tests/automation.c |   21 ++++++++++++++++++++-
 1 files changed, 20 insertions(+), 1 deletions(-)

diff --git a/dlls/msi/tests/automation.c b/dlls/msi/tests/automation.c
index c84c54b..d4977ab 100644
--- a/dlls/msi/tests/automation.c
+++ b/dlls/msi/tests/automation.c
@@ -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);