Alistair Leslie-Hughes : mshtml: Add tests for supported interfaces.

[Alexandre Julliard]

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

Author: Alistair Leslie-Hughes <leslie_alistair at hotmail.com>
Date:   Wed Nov 12 16:08:17 2008 +1100

mshtml: Add tests for supported interfaces.

---

 dlls/mshtml/script.c       |    3 +++
 dlls/mshtml/tests/script.c |   10 ++++++++++
 2 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/dlls/mshtml/script.c b/dlls/mshtml/script.c
index 5df0616..4d10853 100644
--- a/dlls/mshtml/script.c
+++ b/dlls/mshtml/script.c
@@ -223,6 +223,9 @@ static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface,
     }else if(IsEqualGUID(&IID_IActiveScriptSiteDebug32, riid)) {
         TRACE("(%p)->(IID_IActiveScriptSiteDebug32 %p)\n", This, ppv);
         *ppv = ACTSCPDBG32(This);
+    }else if(IsEqualGUID(&IID_ICanHandleException, riid)) {
+        TRACE("(%p)->(IID_ICanHandleException not supported %p)\n", This, ppv);
+        return E_NOINTERFACE;
     }else {
         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
         return E_NOINTERFACE;
diff --git a/dlls/mshtml/tests/script.c b/dlls/mshtml/tests/script.c
index 90e5583..32f0974 100644
--- a/dlls/mshtml/tests/script.c
+++ b/dlls/mshtml/tests/script.c
@@ -767,6 +767,8 @@ static HRESULT WINAPI ActiveScript_SetScriptSite(IActiveScript *iface, IActiveSc
 {
     IActiveScriptSiteInterruptPoll *poll;
     IActiveScriptSiteDebug *debug;
+    IServiceProvider *service;
+    ICanHandleException *canexpection;
     LCID lcid;
     HRESULT hres;
 
@@ -790,6 +792,14 @@ static HRESULT WINAPI ActiveScript_SetScriptSite(IActiveScript *iface, IActiveSc
     if(SUCCEEDED(hres))
         IActiveScriptSiteDebug32_Release(debug);
 
+    hres = IActiveScriptSite_QueryInterface(pass, &IID_ICanHandleException, (void**)&canexpection);
+    ok(hres == E_NOINTERFACE, "Could not get IID_ICanHandleException interface: %08x\n", hres);
+
+    hres = IActiveScriptSite_QueryInterface(pass, &IID_IServiceProvider, (void**)&service);
+    todo_wine ok(hres == S_OK, "Could not get IServiceProvider interface: %08x\n", hres);
+    if(SUCCEEDED(hres))
+        IServiceProvider_Release(service);
+
     site = pass;
     IActiveScriptSite_AddRef(site);
     return S_OK;