Misha Koshelev : msi/tests: automation: Correct expected Record:: StringData PROPERTYPUT return variant type.

[Alexandre Julliard]

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

Author: Misha Koshelev <mk144210(a)bcm.edu>
Date:   Fri May 11 14:08:22 2007 -0500

msi/tests: automation: Correct expected Record::StringData PROPERTYPUT return variant type.

---

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

diff --git a/dlls/msi/tests/automation.c b/dlls/msi/tests/automation.c
index ab2cc12..7f94d1d 100644
--- a/dlls/msi/tests/automation.c
+++ b/dlls/msi/tests/automation.c
@@ -938,7 +938,7 @@ static HRESULT Record_StringDataPut(IDispatch *pRecord, int iField, LPCWSTR szSt
     V_VT(&vararg[0]) = VT_BSTR;
     V_BSTR(&vararg[0]) = SysAllocString(szString);
 
-    return invoke(pRecord, "StringData", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_BSTR);
+    return invoke(pRecord, "StringData", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
 }
 
 static HRESULT StringList_Item(IDispatch *pStringList, int iIndex, LPWSTR szString)
@@ -1002,6 +1002,16 @@ static void test_Database(IDispatch *pDatabase)
             ok(SUCCEEDED(hr), "Record_StringDataGet failed, hresult 0x%08x\n", hr);
             ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, szThree);
 
+            /* Record::StringDataPut with correct index */
+            hr = Record_StringDataPut(pRecord, 1, szTwo);
+            ok(SUCCEEDED(hr), "Record_StringDataPut failed, hresult 0x%08x\n", hr);
+
+            /* Record::StringDataGet */
+            memset(szString, 0, sizeof(szString));
+            hr = Record_StringDataGet(pRecord, 1, szString);
+            ok(SUCCEEDED(hr), "Record_StringDataGet failed, hresult 0x%08x\n", hr);
+            ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, szTwo);
+
             /* Record::StringDataPut with incorrect index */
             hr = Record_StringDataPut(pRecord, -1, szString);
             ok(hr == DISP_E_EXCEPTION, "Record_StringDataPut failed, hresult 0x%08x\n", hr);