oleaut32: Fix the IDL for the "Value" method in the tmarshal tests.

This commit is contained in:
Rob Shearman 2007-02-07 19:22:25 +00:00 committed by Alexandre Julliard
parent d794398e73
commit 8b43f8bec9
2 changed files with 4 additions and 10 deletions

View File

@ -916,20 +916,14 @@ static void test_typelibmarshal(void)
dispparams.rgvarg = vararg;
VariantInit(&varresult);
hr = IDispatch_Invoke(pDispatch, DISPID_VALUE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
todo_wine
{
ok_ole_success(hr, IDispatch_Invoke);
}
ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
"EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
excepinfo.wCode, excepinfo.scode);
todo_wine
{
ok(V_VT(&varresult) == VT_I2, "V_VT(&varresult) was %d instead of VT_I2\n", V_VT(&varresult));
ok(V_I2(&varresult) == 1234, "V_I2(&varresult) was %d instead of 1234\n", V_I2(&varresult));
}
VariantClear(&varresult);
/* call Variant - exercises variant copying in ITypeInfo::Invoke and

View File

@ -76,7 +76,7 @@ library TestTypelib
[propget, id(DISPID_TM_CLONECOCLASS)]
HRESULT CloneCoclass([out, retval] ApplicationObject2 **ppVal);
[id(DISPID_VALUE)]
[propget, id(DISPID_VALUE)]
HRESULT Value([in] VARIANT *value, [out, retval] VARIANT *retval);
[id(DISPID_TM_ARRAY)]