From fe7533df49979653516131fd697c0558c599aa99 Mon Sep 17 00:00:00 2001 From: Jacek Caban Date: Mon, 13 Aug 2012 11:03:46 +0200 Subject: [PATCH] vbscript: Ignore fdexNameCaseSensitive flag. --- dlls/vbscript/tests/run.c | 14 ++++++++++++++ dlls/vbscript/vbdisp.c | 4 +++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c index 099126da929..d77c6cbbeaf 100644 --- a/dlls/vbscript/tests/run.c +++ b/dlls/vbscript/tests/run.c @@ -355,6 +355,20 @@ static void test_disp(IDispatch *disp) SysFreeString(str); ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres); + id = 0xdeadbeef; + str = a2bstr("publicProp"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres); + ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id); + + id = 0xdeadbeef; + str = a2bstr("publicprop"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres); + ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id); + IDispatchEx_Release(dispex); } diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index 5f9d70a64f4..022ac1d53e0 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -333,7 +333,9 @@ static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DW if(!This->desc) return E_UNEXPECTED; - if(grfdex & ~(fdexNameEnsure|fdexNameCaseInsensitive)) { + /* Tests show that fdexNameCaseSensitive is ignored */ + + if(grfdex & ~(fdexNameEnsure|fdexNameCaseInsensitive|fdexNameCaseSensitive)) { FIXME("unsupported flags %x\n", grfdex); return E_NOTIMPL; } -- 2.11.4.GIT