Jacek Caban : vbscript: Ignore fdexNameCaseSensitive flag.
Alexandre Julliard
julliard at winehq.org
Mon Aug 13 13:21:18 CDT 2012
Module: wine
Branch: master
Commit: fe7533df49979653516131fd697c0558c599aa99
URL: http://source.winehq.org/git/wine.git/?a=commit;h=fe7533df49979653516131fd697c0558c599aa99
Author: Jacek Caban <jacek at codeweavers.com>
Date: Mon Aug 13 11:03:46 2012 +0200
vbscript: Ignore fdexNameCaseSensitive flag.
---
dlls/vbscript/tests/run.c | 14 ++++++++++++++
dlls/vbscript/vbdisp.c | 4 +++-
2 files changed, 17 insertions(+), 1 deletions(-)
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index 099126d..d77c6cb 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 5f9d70a..022ac1d 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;
}
More information about the wine-cvs
mailing list