mshtml: Fixed script tests on IE6 and IE7.

This commit is contained in:
Jacek Caban 2009-09-01 23:32:09 +02:00 committed by Alexandre Julliard
parent 4cfa6cafda
commit ab199297bc
1 changed files with 9 additions and 13 deletions

View File

@ -662,15 +662,6 @@ static void test_func(IDispatchEx *obj)
ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n"); ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
disp = V_DISPATCH(&var); disp = V_DISPATCH(&var);
memset(&dp, 0, sizeof(dp));
memset(&ei, 0, sizeof(ei));
VariantInit(&var);
hres = IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
ok(V_DISPATCH(&var) == disp, "V_DISPATCH(var) != disp\n");
VariantClear(&var);
hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
IDispatch_Release(disp); IDispatch_Release(disp);
ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres); ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
@ -681,10 +672,12 @@ static void test_func(IDispatchEx *obj)
memset(&ei, 0, sizeof(ei)); memset(&ei, 0, sizeof(ei));
VariantInit(&var); VariantInit(&var);
hres = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dp, &var, &ei, NULL); hres = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dp, &var, &ei, NULL);
ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); ok(hres == S_OK || broken(E_ACCESSDENIED), "InvokeEx failed: %08x\n", hres);
if(SUCCEEDED(hres)) {
ok(V_VT(&var) == VT_BSTR, "V_VT(var)=%d\n", V_VT(&var)); ok(V_VT(&var) == VT_BSTR, "V_VT(var)=%d\n", V_VT(&var));
ok(!strcmp_wa(V_BSTR(&var), "[object]"), "V_BSTR(var) = %s\n", wine_dbgstr_w(V_BSTR(&var))); ok(!strcmp_wa(V_BSTR(&var), "[object]"), "V_BSTR(var) = %s\n", wine_dbgstr_w(V_BSTR(&var)));
VariantClear(&var); VariantClear(&var);
}
dp.cArgs = 1; dp.cArgs = 1;
dp.rgvarg = &var; dp.rgvarg = &var;
@ -877,6 +870,9 @@ static HRESULT WINAPI ActiveScript_QueryInterface(IActiveScript *iface, REFIID r
return S_OK; return S_OK;
} }
if(IsEqualGUID(&IID_IActiveScriptDebug, riid))
return E_NOINTERFACE;
ok(0, "unexpected riid %s\n", debugstr_guid(riid)); ok(0, "unexpected riid %s\n", debugstr_guid(riid));
return E_NOINTERFACE; return E_NOINTERFACE;
} }