git.oblomov.eu Git - wine/blob - dlls/mshtml/tests/htmldoc.c

   1 /*
   2  * Copyright 2005-2009 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #define COBJMACROS
  20 #define CONST_VTABLE
  21
  22 #include <wine/test.h>
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "initguid.h"
  29 #include "ole2.h"
  30 #include "mshtml.h"
  31 #include "docobj.h"
  32 #include "mshtmhst.h"
  33 #include "mshtmdid.h"
  34 #include "mshtmcid.h"
  35 #include "hlink.h"
  36 #include "dispex.h"
  37 #include "idispids.h"
  38 #include "shlguid.h"
  39 #include "perhist.h"
  40
  41 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
  42 DEFINE_GUID(IID_IProxyManager,0x00000008,0x0000,0x0000,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x46);
  43 DEFINE_OLEGUID(CGID_DocHostCmdPriv, 0x000214D4L, 0, 0);
  44
  45 #define DEFINE_EXPECT(func) \
  46     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  47
  48 #define SET_EXPECT(func) \
  49     expect_ ## func = TRUE
  50
  51 #define SET_CALLED(func) \
  52     called_ ## func = TRUE
  53
  54 #define CHECK_EXPECT2(func) \
  55     do { \
  56         ok(expect_ ##func, "unexpected call " #func "\n"); \
  57         called_ ## func = TRUE; \
  58     }while(0)
  59
  60 #define CHECK_EXPECT(func) \
  61     do { \
  62         CHECK_EXPECT2(func); \
  63         expect_ ## func = FALSE; \
  64     }while(0)
  65
  66 #define CHECK_CALLED(func) \
  67     do { \
  68         ok(called_ ## func, "expected " #func "\n"); \
  69         expect_ ## func = called_ ## func = FALSE; \
  70     }while(0)
  71
  72 static IOleDocumentView *view = NULL;
  73 static HWND container_hwnd = NULL, hwnd = NULL, last_hwnd = NULL;
  74
  75 DEFINE_EXPECT(LockContainer);
  76 DEFINE_EXPECT(SetActiveObject);
  77 DEFINE_EXPECT(SetActiveObject_null);
  78 DEFINE_EXPECT(GetWindow);
  79 DEFINE_EXPECT(CanInPlaceActivate);
  80 DEFINE_EXPECT(OnInPlaceActivate);
  81 DEFINE_EXPECT(OnInPlaceActivateEx);
  82 DEFINE_EXPECT(OnUIActivate);
  83 DEFINE_EXPECT(GetWindowContext);
  84 DEFINE_EXPECT(OnUIDeactivate);
  85 DEFINE_EXPECT(OnInPlaceDeactivate);
  86 DEFINE_EXPECT(OnInPlaceDeactivateEx);
  87 DEFINE_EXPECT(GetContainer);
  88 DEFINE_EXPECT(ShowUI);
  89 DEFINE_EXPECT(ActivateMe);
  90 DEFINE_EXPECT(GetHostInfo);
  91 DEFINE_EXPECT(HideUI);
  92 DEFINE_EXPECT(GetOptionKeyPath);
  93 DEFINE_EXPECT(GetOverrideKeyPath);
  94 DEFINE_EXPECT(SetStatusText);
  95 DEFINE_EXPECT(QueryStatus_SETPROGRESSTEXT);
  96 DEFINE_EXPECT(QueryStatus_OPEN);
  97 DEFINE_EXPECT(QueryStatus_NEW);
  98 DEFINE_EXPECT(Exec_SETPROGRESSMAX);
  99 DEFINE_EXPECT(Exec_SETPROGRESSPOS);
 100 DEFINE_EXPECT(Exec_HTTPEQUIV_DONE);
 101 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_0);
 102 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_1);
 103 DEFINE_EXPECT(Exec_ShellDocView_37);
 104 DEFINE_EXPECT(Exec_ShellDocView_84);
 105 DEFINE_EXPECT(Exec_ShellDocView_103);
 106 DEFINE_EXPECT(Exec_ShellDocView_105);
 107 DEFINE_EXPECT(Exec_UPDATECOMMANDS);
 108 DEFINE_EXPECT(Exec_SETTITLE);
 109 DEFINE_EXPECT(Exec_HTTPEQUIV);
 110 DEFINE_EXPECT(Exec_MSHTML_PARSECOMPLETE);
 111 DEFINE_EXPECT(Exec_Explorer_69);
 112 DEFINE_EXPECT(Invoke_AMBIENT_USERMODE);
 113 DEFINE_EXPECT(Invoke_AMBIENT_DLCONTROL);
 114 DEFINE_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
 115 DEFINE_EXPECT(Invoke_AMBIENT_SILENT);
 116 DEFINE_EXPECT(Invoke_AMBIENT_USERAGENT);
 117 DEFINE_EXPECT(Invoke_AMBIENT_PALETTE);
 118 DEFINE_EXPECT(GetDropTarget);
 119 DEFINE_EXPECT(UpdateUI);
 120 DEFINE_EXPECT(Navigate);
 121 DEFINE_EXPECT(OnFrameWindowActivate);
 122 DEFINE_EXPECT(OnChanged_READYSTATE);
 123 DEFINE_EXPECT(OnChanged_1005);
 124 DEFINE_EXPECT(OnChanged_1012);
 125 DEFINE_EXPECT(GetDisplayName);
 126 DEFINE_EXPECT(BindToStorage);
 127 DEFINE_EXPECT(IsSystemMoniker);
 128 DEFINE_EXPECT(GetBindResult);
 129 DEFINE_EXPECT(GetClassID);
 130 DEFINE_EXPECT(Abort);
 131 DEFINE_EXPECT(Read);
 132 DEFINE_EXPECT(CreateInstance);
 133 DEFINE_EXPECT(Start);
 134 DEFINE_EXPECT(Terminate);
 135 DEFINE_EXPECT(Protocol_Read);
 136 DEFINE_EXPECT(LockRequest);
 137 DEFINE_EXPECT(UnlockRequest);
 138 DEFINE_EXPECT(OnFocus_TRUE);
 139 DEFINE_EXPECT(OnFocus_FALSE);
 140 DEFINE_EXPECT(RequestUIActivate);
 141 DEFINE_EXPECT(InPlaceFrame_SetBorderSpace);
 142 DEFINE_EXPECT(InPlaceUIWindow_SetActiveObject);
 143 DEFINE_EXPECT(GetExternal);
 144 DEFINE_EXPECT(EnableModeless_TRUE);
 145 DEFINE_EXPECT(EnableModeless_FALSE);
 146 DEFINE_EXPECT(Frame_EnableModeless_TRUE);
 147 DEFINE_EXPECT(Frame_EnableModeless_FALSE);
 148 DEFINE_EXPECT(Frame_GetWindow);
 149
 150 static IUnknown *doc_unk;
 151 static IMoniker *doc_mon;
 152 static BOOL expect_LockContainer_fLock;
 153 static BOOL expect_InPlaceUIWindow_SetActiveObject_active = TRUE;
 154 static BOOL ipsex;
 155 static BOOL set_clientsite = FALSE, container_locked = FALSE;
 156 static BOOL readystate_set_loading = FALSE, readystate_set_interactive = FALSE, load_from_stream;
 157 static BOOL editmode = FALSE, show_failed;
 158 static int stream_read, protocol_read;
 159 static enum load_state_t {
 160     LD_DOLOAD,
 161     LD_LOADING,
 162     LD_LOADED,
 163     LD_INTERACTIVE,
 164     LD_COMPLETE,
 165     LD_NO
 166 } load_state;
 167
 168 static LPCOLESTR expect_status_text = NULL;
 169
 170 static const char html_page[] =
 171 "<html>"
 172 "<head><link rel=\"stylesheet\" type=\"text/css\" href=\"test.css\"></head>"
 173 "<body>test</body>"
 174 "</html>";
 175
 176 static const char css_data[] = "body {color: red}";
 177
 178 static const WCHAR doc_url[] = {'w','i','n','e','t','e','s','t',':','d','o','c',0};
 179 static const WCHAR about_blank_url[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
 180
 181 static HRESULT QueryInterface(REFIID riid, void **ppv);
 182 static void test_MSHTML_QueryStatus(IUnknown*,DWORD);
 183 static BOOL nogecko = FALSE;
 184
 185 #define test_readyState(u) _test_readyState(__LINE__,u)
 186 static void _test_readyState(unsigned,IUnknown*);
 187
 188 static const WCHAR wszTimesNewRoman[] =
 189     {'T','i','m','e','s',' ','N','e','w',' ','R','o','m','a','n',0};
 190 static const WCHAR wszArial[] =
 191     {'A','r','i','a','l',0};
 192
 193 static const char *debugstr_guid(REFIID riid)
 194 {
 195     static char buf[50];
 196
 197     sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
 198             riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
 199             riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
 200             riid->Data4[5], riid->Data4[6], riid->Data4[7]);
 201
 202     return buf;
 203 }
 204
 205 static int strcmp_wa(LPCWSTR strw, const char *stra)
 206 {
 207     CHAR buf[512];
 208     WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
 209     return lstrcmpA(stra, buf);
 210 }
 211
 212 static BOOL is_english(void)
 213 {
 214     return PRIMARYLANGID(GetSystemDefaultLangID()) == LANG_ENGLISH
 215         && PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH;
 216 }
 217
 218 #define EXPECT_UPDATEUI  1
 219 #define EXPECT_SETTITLE  2
 220
 221 static void test_timer(DWORD flags)
 222 {
 223     BOOL *b = &called_Exec_SETTITLE;
 224     MSG msg;
 225
 226     if(flags & EXPECT_UPDATEUI) {
 227         SET_EXPECT(UpdateUI);
 228         SET_EXPECT(Exec_UPDATECOMMANDS);
 229         b = &called_UpdateUI;
 230     }
 231     if(flags & EXPECT_SETTITLE)
 232         SET_EXPECT(Exec_SETTITLE);
 233
 234     while(!*b && GetMessage(&msg, hwnd, 0, 0)) {
 235         TranslateMessage(&msg);
 236         DispatchMessage(&msg);
 237     }
 238
 239     if(flags & EXPECT_UPDATEUI) {
 240         CHECK_CALLED(UpdateUI);
 241         CHECK_CALLED(Exec_UPDATECOMMANDS);
 242     }
 243     if(flags & EXPECT_SETTITLE)
 244         CHECK_CALLED(Exec_SETTITLE);
 245 }
 246
 247 static IMoniker Moniker;
 248
 249 #define test_GetCurMoniker(u,m,v) _test_GetCurMoniker(__LINE__,u,m,v)
 250 static void _test_GetCurMoniker(unsigned line, IUnknown *unk, IMoniker *exmon, LPCWSTR exurl)
 251 {
 252     IHTMLDocument2 *doc;
 253     IPersistMoniker *permon;
 254     IMoniker *mon = (void*)0xdeadbeef;
 255     BSTR doc_url = (void*)0xdeadbeef;
 256     HRESULT hres;
 257
 258     hres = IUnknown_QueryInterface(unk, &IID_IPersistMoniker, (void**)&permon);
 259     ok(hres == S_OK, "QueryInterface(IID_IPersistMoniker) failed: %08x\n", hres);
 260     if(FAILED(hres))
 261         return;
 262
 263     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument2, (void**)&doc);
 264     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2) failed: %08x\n", hres);
 265
 266     hres = IHTMLDocument2_get_URL(doc, &doc_url);
 267     ok(hres == S_OK, "get_URL failed: %08x\n", hres);
 268
 269     hres = IPersistMoniker_GetCurMoniker(permon, &mon);
 270     IPersistMoniker_Release(permon);
 271
 272     if(exmon) {
 273         LPOLESTR url;
 274         BOOL exb = expect_GetDisplayName;
 275         BOOL clb = called_GetDisplayName;
 276
 277         ok_(__FILE__,line)(hres == S_OK, "GetCurrentMoniker failed: %08x\n", hres);
 278         ok_(__FILE__,line)(mon == exmon, "mon(%p) != exmon(%p)\n", mon, exmon);
 279
 280         if(mon == &Moniker)
 281             SET_EXPECT(GetDisplayName);
 282         hres = IMoniker_GetDisplayName(mon, NULL, NULL, &url);
 283         ok(hres == S_OK, "GetDisplayName failed: %08x\n", hres);
 284         if(mon == &Moniker)
 285             CHECK_CALLED(GetDisplayName);
 286         expect_GetDisplayName = exb;
 287         called_GetDisplayName = clb;
 288
 289         ok(!lstrcmpW(url, doc_url), "url != doc_url\n");
 290         CoTaskMemFree(url);
 291     }else if(exurl) {
 292         LPOLESTR url;
 293
 294         ok(hres == S_OK, "GetCurrentMoniker failed: %08x\n", hres);
 295
 296         hres = IMoniker_GetDisplayName(mon, NULL, NULL, &url);
 297         ok(hres == S_OK, "GetDisplayName failed: %08x\n", hres);
 298
 299         ok(!lstrcmpW(url, exurl), "unexpected url\n");
 300         ok(!lstrcmpW(url, doc_url), "url != doc_url\n");
 301
 302         CoTaskMemFree(url);
 303     }else {
 304         ok(hres == E_UNEXPECTED,
 305            "GetCurrentMoniker failed: %08x, expected E_UNEXPECTED\n", hres);
 306         ok(mon == (IMoniker*)0xdeadbeef, "mon=%p\n", mon);
 307         ok(!lstrcmpW(doc_url, about_blank_url), "doc_url is not about:blank\n");
 308     }
 309
 310     SysFreeString(doc_url);
 311     IHTMLDocument_Release(doc);
 312     if(mon && mon != (void*)0xdeadbeef)
 313         IMoniker_Release(mon);
 314 }
 315
 316 DEFINE_GUID(IID_External_unk,0x30510406,0x98B5,0x11CF,0xBB,0x82,0x00,0xAA,0x00,0xBD,0xCE,0x0B);
 317
 318 static HRESULT WINAPI External_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
 319 {
 320     *ppv = NULL;
 321
 322     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IDispatch, riid)) {
 323         *ppv = iface;
 324         return S_OK;
 325     }
 326
 327     if(IsEqualGUID(&IID_IProxyManager, riid))
 328         return E_NOINTERFACE; /* TODO */
 329     if(IsEqualGUID(&IID_IDispatchEx, riid))
 330         return E_NOINTERFACE; /* TODO */
 331     if(IsEqualGUID(&IID_External_unk, riid))
 332         return E_NOINTERFACE; /* TODO */
 333
 334     ok(0, "unexpected riid: %s\n", debugstr_guid(riid));
 335     return E_NOINTERFACE;
 336 }
 337
 338 static ULONG WINAPI Dispatch_AddRef(IDispatch *iface)
 339 {
 340     return 2;
 341 }
 342
 343 static ULONG WINAPI Dispatch_Release(IDispatch *iface)
 344 {
 345     return 1;
 346 }
 347
 348 static HRESULT WINAPI Dispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 349 {
 350     ok(0, "unexpected call\n");
 351     return E_NOTIMPL;
 352 }
 353
 354 static HRESULT WINAPI Dispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
 355         ITypeInfo **ppTInfo)
 356 {
 357     ok(0, "unexpected call\n");
 358     return E_NOTIMPL;
 359 }
 360
 361 static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
 362         UINT cNames, LCID lcid, DISPID *rgDispId)
 363 {
 364     ok(0, "unexpected call\n");
 365     return E_NOTIMPL;
 366 }
 367
 368 static HRESULT WINAPI External_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
 369         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 370         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 371 {
 372     ok(0, "unexpected call\n");
 373     return E_NOTIMPL;
 374 }
 375
 376 static const IDispatchVtbl ExternalVtbl = {
 377     External_QueryInterface,
 378     Dispatch_AddRef,
 379     Dispatch_Release,
 380     Dispatch_GetTypeInfoCount,
 381     Dispatch_GetTypeInfo,
 382     Dispatch_GetIDsOfNames,
 383     External_Invoke
 384 };
 385
 386 static IDispatch External = { &ExternalVtbl };
 387
 388 static HRESULT WINAPI Protocol_QueryInterface(IInternetProtocol *iface, REFIID riid, void **ppv)
 389 {
 390     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IInternetProtocol, riid)) {
 391         *ppv = iface;
 392         return S_OK;
 393     }
 394
 395     *ppv = NULL;
 396     return E_NOINTERFACE;
 397 }
 398
 399 static ULONG WINAPI Protocol_AddRef(IInternetProtocol *iface)
 400 {
 401     return 2;
 402 }
 403
 404 static ULONG WINAPI Protocol_Release(IInternetProtocol *iface)
 405 {
 406     return 1;
 407 }
 408
 409 static HRESULT WINAPI Protocol_Start(IInternetProtocol *iface, LPCWSTR szUrl,
 410         IInternetProtocolSink *pOIProtSink, IInternetBindInfo *pOIBindInfo,
 411         DWORD grfPI, HANDLE_PTR dwReserved)
 412 {
 413     BINDINFO bindinfo;
 414     DWORD bindf = 0;
 415     HRESULT hres;
 416
 417     static const WCHAR wszTextCss[] = {'t','e','x','t','/','c','s','s',0};
 418     static const WCHAR empty_str = {0};
 419
 420     CHECK_EXPECT(Start);
 421
 422     ok(pOIProtSink != NULL, "pOIProtSink == NULL\n");
 423     ok(pOIBindInfo != NULL, "pOIBindInfo == NULL\n");
 424     ok(!grfPI, "grfPI = %x\n", grfPI);
 425     ok(!dwReserved, "dwReserved = %lx\n", dwReserved);
 426
 427     memset(&bindinfo, 0, sizeof(bindinfo));
 428     bindinfo.cbSize = sizeof(bindinfo);
 429     hres = IInternetBindInfo_GetBindInfo(pOIBindInfo, &bindf, &bindinfo);
 430     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
 431     ok(bindf == (BINDF_FROMURLMON|BINDF_PULLDATA|BINDF_NEEDFILE|BINDF_ASYNCSTORAGE|BINDF_ASYNCHRONOUS),
 432        "bindf = %x\n", bindf);
 433
 434     ok(bindinfo.cbSize == sizeof(bindinfo), "bindinfo.cbSize=%d\n", bindinfo.cbSize);
 435     ok(bindinfo.szExtraInfo == NULL, "bindinfo.szExtraInfo=%p\n", bindinfo.szExtraInfo);
 436     /* TODO: test stgmedData */
 437     ok(bindinfo.grfBindInfoF == 0, "bindinfo.grfBinfInfoF=%08x\n", bindinfo.grfBindInfoF);
 438     ok(bindinfo.dwBindVerb == 0, "bindinfo.dwBindVerb=%d\n", bindinfo.dwBindVerb);
 439     ok(bindinfo.szCustomVerb == 0, "bindinfo.szCustomVerb=%p\n", bindinfo.szCustomVerb);
 440     ok(bindinfo.cbstgmedData == 0, "bindinfo.cbstgmedData=%d\n", bindinfo.cbstgmedData);
 441     ok(bindinfo.dwOptions == 0x80000 ||
 442        bindinfo.dwOptions == 0x4080000, /* win2k3 */
 443        "bindinfo.dwOptions=%x\n", bindinfo.dwOptions);
 444     ok(bindinfo.dwOptionsFlags == 0, "bindinfo.dwOptionsFlags=%d\n", bindinfo.dwOptionsFlags);
 445     /* TODO: test dwCodePage */
 446     /* TODO: test securityAttributes */
 447     ok(IsEqualGUID(&IID_NULL, &bindinfo.iid), "unexpected bindinfo.iid\n");
 448     ok(bindinfo.pUnk == NULL, "bindinfo.pUnk=%p\n", bindinfo.pUnk);
 449     ok(bindinfo.dwReserved == 0, "bindinfo.dwReserved=%d\n", bindinfo.dwReserved);
 450
 451     hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 452             BINDSTATUS_CACHEFILENAMEAVAILABLE, &empty_str);
 453     ok(hres == S_OK, "ReportProgress(BINDSTATUS_CACHEFILENAMEAVAILABLE) failed: %08x\n", hres);
 454
 455     hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 456             BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE, wszTextCss);
 457     ok(hres == S_OK,
 458        "ReportProgress(BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE) failed: %08x\n", hres);
 459
 460     hres = IInternetProtocolSink_ReportData(pOIProtSink,
 461             BSCF_FIRSTDATANOTIFICATION | BSCF_LASTDATANOTIFICATION, 13, 13);
 462     ok(hres == S_OK, "ReportData failed: %08x\n", hres);
 463
 464     hres = IInternetProtocolSink_ReportResult(pOIProtSink, S_OK, 0, NULL);
 465     ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
 466
 467     return S_OK;
 468 }
 469
 470 static HRESULT WINAPI Protocol_Continue(IInternetProtocol *iface,
 471         PROTOCOLDATA *pProtocolData)
 472 {
 473     ok(0, "unexpected call\n");
 474     return E_NOTIMPL;
 475 }
 476
 477 static HRESULT WINAPI Protocol_Abort(IInternetProtocol *iface, HRESULT hrReason,
 478         DWORD dwOptions)
 479 {
 480     ok(0, "unexpected call\n");
 481     return E_NOTIMPL;
 482 }
 483
 484 static HRESULT WINAPI Protocol_Terminate(IInternetProtocol *iface, DWORD dwOptions)
 485 {
 486     CHECK_EXPECT(Terminate);
 487     return S_OK;
 488 }
 489
 490 static HRESULT WINAPI Protocol_Suspend(IInternetProtocol *iface)
 491 {
 492     ok(0, "unexpected call\n");
 493     return E_NOTIMPL;
 494 }
 495
 496 static HRESULT WINAPI Protocol_Resume(IInternetProtocol *iface)
 497 {
 498     ok(0, "unexpected call\n");
 499     return E_NOTIMPL;
 500 }
 501
 502 static HRESULT WINAPI Protocol_Read(IInternetProtocol *iface, void *pv,
 503         ULONG cb, ULONG *pcbRead)
 504 {
 505     CHECK_EXPECT2(Protocol_Read);
 506
 507     ok(pv != NULL, "pv == NULL\n");
 508     ok(cb > sizeof(css_data), "cb < sizeof(css_data)\n");
 509     ok(pcbRead != NULL, "pcbRead == NULL\n");
 510     ok(!*pcbRead, "*pcbRead=%d\n", *pcbRead);
 511
 512     if(protocol_read)
 513         return S_FALSE;
 514
 515     protocol_read += *pcbRead = sizeof(css_data)-1;
 516     memcpy(pv, css_data, sizeof(css_data)-1);
 517     return S_OK;
 518 }
 519
 520 static HRESULT WINAPI Protocol_Seek(IInternetProtocol *iface,
 521         LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 522 {
 523     ok(0, "unexpected call\n");
 524     return E_NOTIMPL;
 525 }
 526
 527 static HRESULT WINAPI Protocol_LockRequest(IInternetProtocol *iface, DWORD dwOptions)
 528 {
 529     CHECK_EXPECT(LockRequest);
 530     return S_OK;
 531 }
 532
 533 static HRESULT WINAPI Protocol_UnlockRequest(IInternetProtocol *iface)
 534 {
 535     CHECK_EXPECT(UnlockRequest);
 536     return S_OK;
 537 }
 538
 539 static const IInternetProtocolVtbl ProtocolVtbl = {
 540     Protocol_QueryInterface,
 541     Protocol_AddRef,
 542     Protocol_Release,
 543     Protocol_Start,
 544     Protocol_Continue,
 545     Protocol_Abort,
 546     Protocol_Terminate,
 547     Protocol_Suspend,
 548     Protocol_Resume,
 549     Protocol_Read,
 550     Protocol_Seek,
 551     Protocol_LockRequest,
 552     Protocol_UnlockRequest
 553 };
 554
 555 static IInternetProtocol Protocol = { &ProtocolVtbl };
 556
 557 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
 558 {
 559     if(!IsEqualGUID(&IID_IInternetProtocolInfo, riid))
 560         ok(0, "unexpected call\n");
 561     return E_NOINTERFACE;
 562 }
 563
 564 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
 565 {
 566     return 2;
 567 }
 568
 569 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
 570 {
 571     return 1;
 572 }
 573
 574 static HRESULT WINAPI ClassFactory_CreateInstance(IClassFactory *iface, IUnknown *pOuter,
 575                                         REFIID riid, void **ppv)
 576 {
 577     if(IsEqualGUID(&IID_IInternetProtocolInfo, riid))
 578         return E_NOINTERFACE;
 579
 580     CHECK_EXPECT(CreateInstance);
 581     ok(ppv != NULL, "ppv == NULL\n");
 582
 583     *ppv = &Protocol;
 584     return S_OK;
 585 }
 586
 587 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL dolock)
 588 {
 589     ok(0, "unexpected call\n");
 590     return S_OK;
 591 }
 592
 593 static const IClassFactoryVtbl ClassFactoryVtbl = {
 594     ClassFactory_QueryInterface,
 595     ClassFactory_AddRef,
 596     ClassFactory_Release,
 597     ClassFactory_CreateInstance,
 598     ClassFactory_LockServer
 599 };
 600
 601 static IClassFactory ClassFactory = { &ClassFactoryVtbl };
 602
 603 static HRESULT WINAPI HlinkFrame_QueryInterface(IHlinkFrame *iface, REFIID riid, void **ppv)
 604 {
 605     ok(0, "unexpected call\n");
 606     return E_NOTIMPL;
 607 }
 608
 609 static ULONG WINAPI HlinkFrame_AddRef(IHlinkFrame *iface)
 610 {
 611     return 2;
 612 }
 613
 614 static ULONG WINAPI HlinkFrame_Release(IHlinkFrame *iface)
 615 {
 616     return 1;
 617 }
 618
 619 static HRESULT WINAPI HlinkFrame_SetBrowseContext(IHlinkFrame *iface,
 620                                                   IHlinkBrowseContext *pihlbc)
 621 {
 622     ok(0, "unexpected call\n");
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT WINAPI HlinkFrame_GetBrowseContext(IHlinkFrame *iface,
 627                                                   IHlinkBrowseContext **ppihlbc)
 628 {
 629     ok(0, "unexpected call\n");
 630     return E_NOTIMPL;
 631 }
 632
 633 static HRESULT WINAPI HlinkFrame_Navigate(IHlinkFrame *iface, DWORD grfHLNF, LPBC pbc,
 634                                           IBindStatusCallback *pibsc, IHlink *pihlNavigate)
 635 {
 636     HRESULT hres;
 637
 638     CHECK_EXPECT(Navigate);
 639
 640     ok(grfHLNF == 0, "grfHLNF=%d, expected 0\n", grfHLNF);
 641     ok(pbc != NULL, "pbc == NULL\n");
 642     ok(pibsc != NULL, "pubsc == NULL\n");
 643     ok(pihlNavigate != NULL, "puhlNavigate == NULL\n");
 644
 645     if(pihlNavigate) {
 646         LPWSTR frame_name = (LPWSTR)0xdeadbeef;
 647         LPWSTR location = (LPWSTR)0xdeadbeef;
 648         IHlinkSite *site;
 649         IMoniker *mon = NULL;
 650         DWORD site_data = 0xdeadbeef;
 651
 652         hres = IHlink_GetTargetFrameName(pihlNavigate, &frame_name);
 653         ok(hres == S_FALSE, "GetTargetFrameName failed: %08x\n", hres);
 654         ok(frame_name == NULL, "frame_name = %p\n", frame_name);
 655
 656         hres = IHlink_GetMonikerReference(pihlNavigate, 1, &mon, &location);
 657         ok(hres == S_OK, "GetMonikerReference failed: %08x\n", hres);
 658         ok(location == NULL, "location = %p\n", location);
 659         ok(mon != NULL, "mon == NULL\n");
 660
 661         hres = IHlink_GetHlinkSite(pihlNavigate, &site, &site_data);
 662         ok(hres == S_OK, "GetHlinkSite failed: %08x\n", hres);
 663         ok(site == NULL, "site = %p\n, expected NULL\n", site);
 664         ok(site_data == 0xdeadbeef, "site_data = %x\n", site_data);
 665     }
 666
 667     return S_OK;
 668 }
 669
 670 static HRESULT WINAPI HlinkFrame_OnNavigate(IHlinkFrame *iface, DWORD grfHLNF,
 671         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, DWORD dwreserved)
 672 {
 673     ok(0, "unexpected call\n");
 674     return E_NOTIMPL;
 675 }
 676
 677 static HRESULT WINAPI HlinkFrame_UpdateHlink(IHlinkFrame *iface, ULONG uHLID,
 678         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
 679 {
 680     ok(0, "unexpected call\n");
 681     return E_NOTIMPL;
 682 }
 683
 684 static const IHlinkFrameVtbl HlinkFrameVtbl = {
 685     HlinkFrame_QueryInterface,
 686     HlinkFrame_AddRef,
 687     HlinkFrame_Release,
 688     HlinkFrame_SetBrowseContext,
 689     HlinkFrame_GetBrowseContext,
 690     HlinkFrame_Navigate,
 691     HlinkFrame_OnNavigate,
 692     HlinkFrame_UpdateHlink
 693 };
 694
 695 static IHlinkFrame HlinkFrame = { &HlinkFrameVtbl };
 696
 697 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
 698         REFIID riid, void**ppv)
 699 {
 700     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
 701         *ppv = iface;
 702         return S_OK;
 703     }
 704
 705     ok(0, "unexpected call\n");
 706     return E_NOINTERFACE;
 707 }
 708
 709 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
 710 {
 711     return 2;
 712 }
 713
 714 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
 715 {
 716     return 1;
 717 }
 718
 719 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
 720 {
 721     switch(dispID) {
 722     case DISPID_READYSTATE:
 723         CHECK_EXPECT2(OnChanged_READYSTATE);
 724
 725         if(readystate_set_interactive) {
 726             readystate_set_interactive = FALSE;
 727             load_state = LD_INTERACTIVE;
 728         }
 729         else
 730             test_MSHTML_QueryStatus(NULL, OLECMDF_SUPPORTED
 731                 | (editmode && (load_state == LD_INTERACTIVE || load_state == LD_COMPLETE)
 732                    ? OLECMDF_ENABLED : 0));
 733
 734         if(readystate_set_loading) {
 735             readystate_set_loading = FALSE;
 736             load_state = LD_LOADING;
 737         }
 738         if(!editmode || load_state != LD_LOADING || !called_Exec_Explorer_69)
 739             test_readyState(NULL);
 740         return S_OK;
 741     case 1005:
 742         CHECK_EXPECT(OnChanged_1005);
 743         if(!editmode)
 744             test_readyState(NULL);
 745         readystate_set_interactive = (load_state != LD_INTERACTIVE);
 746         return S_OK;
 747     case 1012:
 748         CHECK_EXPECT(OnChanged_1012);
 749         return S_OK;
 750     case 3000029:
 751     case 3000030:
 752         /* TODO */
 753         return S_OK;
 754     }
 755
 756     ok(0, "unexpected id %d\n", dispID);
 757     return E_NOTIMPL;
 758 }
 759
 760 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
 761 {
 762     ok(0, "unexpected call\n");
 763     return E_NOTIMPL;
 764 }
 765
 766 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
 767     PropertyNotifySink_QueryInterface,
 768     PropertyNotifySink_AddRef,
 769     PropertyNotifySink_Release,
 770     PropertyNotifySink_OnChanged,
 771     PropertyNotifySink_OnRequestEdit
 772 };
 773
 774 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
 775
 776 static HRESULT WINAPI Stream_QueryInterface(IStream *iface, REFIID riid, void **ppv)
 777 {
 778     ok(0, "unexpected call\n");
 779     return E_NOINTERFACE;
 780 }
 781
 782 static ULONG WINAPI Stream_AddRef(IStream *iface)
 783 {
 784     return 2;
 785 }
 786
 787 static ULONG WINAPI Stream_Release(IStream *iface)
 788 {
 789     return 1;
 790 }
 791
 792 static HRESULT WINAPI Stream_Read(IStream *iface, void *pv,
 793                                   ULONG cb, ULONG *pcbRead)
 794 {
 795     CHECK_EXPECT2(Read);
 796     ok(pv != NULL, "pv == NULL\n");
 797     ok(cb > sizeof(html_page), "cb = %d\n", cb);
 798     ok(pcbRead != NULL, "pcbRead == NULL\n");
 799     ok(!*pcbRead, "*pcbRead = %d\n", *pcbRead);
 800
 801     if(stream_read)
 802         return S_FALSE;
 803
 804     memcpy(pv, html_page, sizeof(html_page)-1);
 805     stream_read += *pcbRead = sizeof(html_page)-1;
 806     return S_OK;
 807 }
 808
 809 static HRESULT WINAPI Stream_Write(IStream *iface, const void *pv,
 810                                           ULONG cb, ULONG *pcbWritten)
 811 {
 812     ok(0, "unexpected call\n");
 813     return E_NOTIMPL;
 814 }
 815
 816 static HRESULT WINAPI Stream_Seek(IStream *iface, LARGE_INTEGER dlibMove,
 817                                          DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 818 {
 819     ok(0, "unexpected call\n");
 820     return E_NOTIMPL;
 821 }
 822
 823 static HRESULT WINAPI Stream_SetSize(IStream *iface, ULARGE_INTEGER libNewSize)
 824 {
 825     ok(0, "unexpected call\n");
 826     return E_NOTIMPL;
 827 }
 828
 829 static HRESULT WINAPI Stream_CopyTo(IStream *iface, IStream *pstm,
 830         ULARGE_INTEGER cb, ULARGE_INTEGER *pcbRead, ULARGE_INTEGER *pcbWritten)
 831 {
 832     ok(0, "unexpected call\n");
 833     return E_NOTIMPL;
 834 }
 835
 836 static HRESULT WINAPI Stream_Commit(IStream *iface, DWORD grfCommitFlags)
 837 {
 838     ok(0, "unexpected call\n");
 839     return E_NOTIMPL;
 840 }
 841
 842 static HRESULT WINAPI Stream_Revert(IStream *iface)
 843 {
 844     ok(0, "unexpected call\n");
 845     return E_NOTIMPL;
 846 }
 847
 848 static HRESULT WINAPI Stream_LockRegion(IStream *iface, ULARGE_INTEGER libOffset,
 849                                                ULARGE_INTEGER cb, DWORD dwLockType)
 850 {
 851     ok(0, "unexpected call\n");
 852     return E_NOTIMPL;
 853 }
 854
 855 static HRESULT WINAPI Stream_UnlockRegion(IStream *iface,
 856         ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType)
 857 {
 858     ok(0, "unexpected call\n");
 859     return E_NOTIMPL;
 860 }
 861
 862 static HRESULT WINAPI Stream_Stat(IStream *iface, STATSTG *pstatstg,
 863                                          DWORD dwStatFlag)
 864 {
 865     ok(0, "unexpected call\n");
 866     return E_NOTIMPL;
 867 }
 868
 869 static HRESULT WINAPI Stream_Clone(IStream *iface, IStream **ppstm)
 870 {
 871     ok(0, "unexpected call\n");
 872     return E_NOTIMPL;
 873 }
 874
 875 static const IStreamVtbl StreamVtbl = {
 876     Stream_QueryInterface,
 877     Stream_AddRef,
 878     Stream_Release,
 879     Stream_Read,
 880     Stream_Write,
 881     Stream_Seek,
 882     Stream_SetSize,
 883     Stream_CopyTo,
 884     Stream_Commit,
 885     Stream_Revert,
 886     Stream_LockRegion,
 887     Stream_UnlockRegion,
 888     Stream_Stat,
 889     Stream_Clone
 890 };
 891
 892 static IStream Stream = { &StreamVtbl };
 893
 894 static HRESULT WINAPI Binding_QueryInterface(IBinding *iface, REFIID riid, void **ppv)
 895 {
 896     if(IsEqualGUID(&IID_IWinInetHttpInfo, riid))
 897         return E_NOINTERFACE; /* TODO */
 898
 899     if(IsEqualGUID(&IID_IWinInetInfo, riid))
 900         return E_NOINTERFACE; /* TODO */
 901
 902     ok(0, "unexpected call\n");
 903     return E_NOINTERFACE;
 904 }
 905
 906 static ULONG WINAPI Binding_AddRef(IBinding *iface)
 907 {
 908     return 2;
 909 }
 910
 911 static ULONG WINAPI Binding_Release(IBinding *iface)
 912 {
 913     return 1;
 914 }
 915
 916 static HRESULT WINAPI Binding_Abort(IBinding *iface)
 917 {
 918     CHECK_EXPECT(Abort);
 919     return S_OK;
 920 }
 921
 922 static HRESULT WINAPI Binding_Suspend(IBinding *iface)
 923 {
 924     ok(0, "unexpected call\n");
 925     return E_NOTIMPL;
 926 }
 927
 928 static HRESULT WINAPI Binding_Resume(IBinding *iface)
 929 {
 930     ok(0, "unexpected call\n");
 931     return E_NOTIMPL;
 932 }
 933
 934 static HRESULT WINAPI Binding_SetPriority(IBinding *iface, LONG nPriority)
 935 {
 936     ok(0, "unexpected call\n");
 937     return E_NOTIMPL;
 938 }
 939
 940 static HRESULT WINAPI Binding_GetPriority(IBinding *iface, LONG *pnPriority)
 941 {
 942     ok(0, "unexpected call\n");
 943     return E_NOTIMPL;
 944 }
 945
 946 static HRESULT WINAPI Binding_GetBindResult(IBinding *iface, CLSID *pclsidProtocol,
 947         DWORD *pdwResult, LPOLESTR *pszResult, DWORD *pdwReserved)
 948 {
 949     CHECK_EXPECT(GetBindResult);
 950     return E_NOTIMPL;
 951 }
 952
 953 static const IBindingVtbl BindingVtbl = {
 954     Binding_QueryInterface,
 955     Binding_AddRef,
 956     Binding_Release,
 957     Binding_Abort,
 958     Binding_Suspend,
 959     Binding_Resume,
 960     Binding_SetPriority,
 961     Binding_GetPriority,
 962     Binding_GetBindResult
 963 };
 964
 965 static IBinding Binding = { &BindingVtbl };
 966
 967 DEFINE_GUID(IID_IMoniker_unk,0xA158A630,0xED6F,0x45FB,0xB9,0x87,0xF6,0x86,0x76,0xF5,0x77,0x52);
 968 DEFINE_GUID(IID_IMoniker_unk2, 0x79EAC9D3,0xBAF9,0x11CE,0x8C,0x82,0x00,0xAA,0x00,0x4B,0xA9,0x0B);
 969
 970 static HRESULT WINAPI Moniker_QueryInterface(IMoniker *iface, REFIID riid, void **ppv)
 971 {
 972     *ppv = NULL;
 973
 974     if(IsEqualGUID(&IID_IMoniker_unk, riid))
 975         return E_NOINTERFACE; /* TODO */
 976     if(IsEqualGUID(&IID_IMoniker_unk2, riid))
 977         return E_NOINTERFACE; /* TODO */
 978
 979     ok(0, "unexpected riid: %s\n", debugstr_guid(riid));
 980     return E_NOINTERFACE;
 981 }
 982
 983 static ULONG WINAPI Moniker_AddRef(IMoniker *iface)
 984 {
 985     return 2;
 986 }
 987
 988 static ULONG WINAPI Moniker_Release(IMoniker *iface)
 989 {
 990     return 1;
 991 }
 992
 993 static HRESULT WINAPI Moniker_GetClassID(IMoniker *iface, CLSID *pClassID)
 994 {
 995     CHECK_EXPECT(GetClassID);
 996     ok(IsEqualGUID(pClassID, &IID_NULL), "pClassID = %s\n", debugstr_guid(pClassID));
 997     return E_FAIL;
 998 }
 999
1000 static HRESULT WINAPI Moniker_IsDirty(IMoniker *iface)
1001 {
1002     ok(0, "unexpected call\n");
1003     return E_NOTIMPL;
1004 }
1005
1006 static HRESULT WINAPI Moniker_Load(IMoniker *iface, IStream *pStm)
1007 {
1008     ok(0, "unexpected call\n");
1009     return E_NOTIMPL;
1010 }
1011
1012 static HRESULT WINAPI Moniker_Save(IMoniker *iface, IStream *pStm, BOOL fClearDirty)
1013 {
1014     ok(0, "unexpected call\n");
1015     return E_NOTIMPL;
1016 }
1017
1018 static HRESULT WINAPI Moniker_GetSizeMax(IMoniker *iface, ULARGE_INTEGER *pcbSize)
1019 {
1020     ok(0, "unexpected call\n");
1021     return E_NOTIMPL;
1022 }
1023
1024 static HRESULT WINAPI Moniker_BindToObject(IMoniker *iface, IBindCtx *pcb, IMoniker *pmkToLeft,
1025         REFIID riidResult, void **ppvResult)
1026 {
1027     ok(0, "unexpected call\n");
1028     return E_NOTIMPL;
1029 }
1030
1031 static HRESULT WINAPI Moniker_BindToStorage(IMoniker *iface, IBindCtx *pbc, IMoniker *pmkToLeft,
1032         REFIID riid, void **ppv)
1033 {
1034     IBindStatusCallback *callback = NULL;
1035     FORMATETC formatetc = {0xc02d, NULL, 1, -1, TYMED_ISTREAM};
1036     STGMEDIUM stgmedium;
1037     BINDINFO bindinfo;
1038     DWORD bindf;
1039     HRESULT hres;
1040
1041     static OLECHAR BSCBHolder[] = { '_','B','S','C','B','_','H','o','l','d','e','r','_',0 };
1042     static const WCHAR wszTextHtml[] = {'t','e','x','t','/','h','t','m','l',0};
1043
1044     CHECK_EXPECT(BindToStorage);
1045
1046     load_state = LD_LOADING;
1047
1048     ok(pbc != NULL, "pbc == NULL\n");
1049     ok(pmkToLeft == NULL, "pmkToLeft=%p\n", pmkToLeft);
1050     ok(IsEqualGUID(&IID_IStream, riid), "unexpected riid\n");
1051     ok(ppv != NULL, "ppv == NULL\n");
1052     ok(*ppv == NULL, "*ppv=%p\n", *ppv);
1053
1054     hres = IBindCtx_GetObjectParam(pbc, BSCBHolder, (IUnknown**)&callback);
1055     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
1056     ok(callback != NULL, "callback == NULL\n");
1057
1058     memset(&bindinfo, 0xf0, sizeof(bindinfo));
1059     bindinfo.cbSize = sizeof(bindinfo);
1060
1061     hres = IBindStatusCallback_GetBindInfo(callback, &bindf, &bindinfo);
1062     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
1063     ok(bindf == (BINDF_PULLDATA|BINDF_ASYNCSTORAGE|BINDF_ASYNCHRONOUS), "bindf = %08x\n", bindf);
1064     ok(bindinfo.cbSize == sizeof(bindinfo), "bindinfo.cbSize=%d\n", bindinfo.cbSize);
1065     ok(bindinfo.szExtraInfo == NULL, "bindinfo.szExtraInfo=%p\n", bindinfo.szExtraInfo);
1066     /* TODO: test stgmedData */
1067     ok(bindinfo.grfBindInfoF == 0, "bindinfo.grfBinfInfoF=%08x\n", bindinfo.grfBindInfoF);
1068     ok(bindinfo.dwBindVerb == 0, "bindinfo.dwBindVerb=%d\n", bindinfo.dwBindVerb);
1069     ok(bindinfo.szCustomVerb == 0, "bindinfo.szCustomVerb=%p\n", bindinfo.szCustomVerb);
1070     ok(bindinfo.cbstgmedData == 0, "bindinfo.cbstgmedData=%d\n", bindinfo.cbstgmedData);
1071     ok(bindinfo.dwOptions == 0x80000 || bindinfo.dwOptions == 0x4080000,
1072        "bindinfo.dwOptions=%x\n", bindinfo.dwOptions);
1073     ok(bindinfo.dwOptionsFlags == 0, "bindinfo.dwOptionsFlags=%d\n", bindinfo.dwOptionsFlags);
1074     /* TODO: test dwCodePage */
1075     /* TODO: test securityAttributes */
1076     ok(IsEqualGUID(&IID_NULL, &bindinfo.iid), "unexpected bindinfo.iid\n");
1077     ok(bindinfo.pUnk == NULL, "bindinfo.pUnk=%p\n", bindinfo.pUnk);
1078     ok(bindinfo.dwReserved == 0, "bindinfo.dwReserved=%d\n", bindinfo.dwReserved);
1079
1080     hres = IBindStatusCallback_OnStartBinding(callback, 0, &Binding);
1081     ok(hres == S_OK, "OnStartBinding failed: %08x\n", hres);
1082
1083     hres = IBindStatusCallback_OnProgress(callback, 0, 0, BINDSTATUS_MIMETYPEAVAILABLE,
1084                                           wszTextHtml);
1085     ok(hres == S_OK, "OnProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
1086
1087     hres = IBindStatusCallback_OnProgress(callback, sizeof(html_page)-1, sizeof(html_page)-1,
1088                                           BINDSTATUS_BEGINDOWNLOADDATA, doc_url);
1089     ok(hres == S_OK, "OnProgress(BINDSTATUS_BEGINDOWNLOADDATA) failed: %08x\n", hres);
1090
1091     SET_EXPECT(Read);
1092     stgmedium.tymed = TYMED_ISTREAM;
1093     U(stgmedium).pstm = &Stream;
1094     stgmedium.pUnkForRelease = (IUnknown*)iface;
1095     hres = IBindStatusCallback_OnDataAvailable(callback,
1096             BSCF_FIRSTDATANOTIFICATION|BSCF_LASTDATANOTIFICATION,
1097             sizeof(html_page)-1, &formatetc, &stgmedium);
1098     ok(hres == S_OK, "OnDataAvailable failed: %08x\n", hres);
1099     CHECK_CALLED(Read);
1100
1101     hres = IBindStatusCallback_OnProgress(callback, sizeof(html_page)-1, sizeof(html_page)-1,
1102             BINDSTATUS_ENDDOWNLOADDATA, NULL);
1103     ok(hres == S_OK, "OnProgress(BINDSTATUS_ENDDOWNLOADDATA) failed: %08x\n", hres);
1104
1105     SET_EXPECT(GetBindResult);
1106     hres = IBindStatusCallback_OnStopBinding(callback, S_OK, NULL);
1107     ok(hres == S_OK, "OnStopBinding failed: %08x\n", hres);
1108     SET_CALLED(GetBindResult); /* IE7 */
1109
1110     IBindStatusCallback_Release(callback);
1111
1112     return S_OK;
1113 }
1114
1115 static HRESULT WINAPI Moniker_Reduce(IMoniker *iface, IBindCtx *pbc, DWORD dwReduceHowFar,
1116         IMoniker **ppmkToLeft, IMoniker **ppmkReduced)
1117 {
1118     ok(0, "unexpected call\n");
1119     return E_NOTIMPL;
1120 }
1121
1122 static HRESULT WINAPI Moniker_ComposeWith(IMoniker *iface, IMoniker *pmkRight,
1123         BOOL fOnlyIfNotGeneric, IMoniker **ppnkComposite)
1124 {
1125     ok(0, "unexpected call\n");
1126     return E_NOTIMPL;
1127 }
1128
1129 static HRESULT WINAPI Moniker_Enum(IMoniker *iface, BOOL fForwrd, IEnumMoniker **ppenumMoniker)
1130 {
1131     ok(0, "unexpected call\n");
1132     return E_NOTIMPL;
1133 }
1134
1135 static HRESULT WINAPI Moniker_IsEqual(IMoniker *iface, IMoniker *pmkOtherMoniker)
1136 {
1137     ok(0, "unexpected call\n");
1138     return E_NOTIMPL;
1139 }
1140
1141 static HRESULT WINAPI Moniker_Hash(IMoniker *iface, DWORD *pdwHash)
1142 {
1143     ok(0, "unexpected call\n");
1144     return E_NOTIMPL;
1145 }
1146
1147 static HRESULT WINAPI Moniker_IsRunning(IMoniker *iface, IBindCtx *pbc, IMoniker *pmkToLeft,
1148         IMoniker *pmkNewlyRunning)
1149 {
1150     ok(0, "unexpected call\n");
1151     return E_NOTIMPL;
1152 }
1153
1154 static HRESULT WINAPI Moniker_GetTimeOfLastChange(IMoniker *iface, IBindCtx *pbc,
1155         IMoniker *pmkToLeft, FILETIME *pFileTime)
1156 {
1157     ok(0, "unexpected call\n");
1158     return E_NOTIMPL;
1159 }
1160
1161 static HRESULT WINAPI Moniker_Inverse(IMoniker *iface, IMoniker **ppmk)
1162 {
1163     ok(0, "unexpected call\n");
1164     return E_NOTIMPL;
1165 }
1166
1167 static HRESULT WINAPI Moniker_CommonPrefixWith(IMoniker *iface, IMoniker *pmkOther,
1168         IMoniker **ppmkPrefix)
1169 {
1170     ok(0, "unexpected call\n");
1171     return E_NOTIMPL;
1172 }
1173
1174 static HRESULT WINAPI Moniker_RelativePathTo(IMoniker *iface, IMoniker *pmkOther,
1175         IMoniker **pmkRelPath)
1176 {
1177     ok(0, "unexpected call\n");
1178     return E_NOTIMPL;
1179 }
1180
1181 static HRESULT WINAPI Moniker_GetDisplayName(IMoniker *iface, IBindCtx *pbc,
1182         IMoniker *pmkToLeft, LPOLESTR *ppszDisplayName)
1183 {
1184     CHECK_EXPECT2(GetDisplayName);
1185
1186     /* ok(pbc != NULL, "pbc == NULL\n"); */
1187     ok(pmkToLeft == NULL, "pmkToLeft=%p\n", pmkToLeft);
1188     ok(ppszDisplayName != NULL, "ppszDisplayName == NULL\n");
1189
1190     *ppszDisplayName = CoTaskMemAlloc(sizeof(doc_url));
1191     memcpy(*ppszDisplayName, doc_url, sizeof(doc_url));
1192
1193     return S_OK;
1194 }
1195
1196 static HRESULT WINAPI Moniker_ParseDisplayName(IMoniker *iface, IBindCtx *pbc,
1197         IMoniker *pmkToLeft, LPOLESTR pszDisplayName, ULONG *pchEaten, IMoniker **ppmkOut)
1198 {
1199     ok(0, "unexpected call\n");
1200     return E_NOTIMPL;
1201 }
1202
1203 static HRESULT WINAPI Moniker_IsSystemMoniker(IMoniker *iface, DWORD *pdwMksys)
1204 {
1205     CHECK_EXPECT(IsSystemMoniker);
1206     return E_NOTIMPL;
1207 }
1208
1209 static const IMonikerVtbl MonikerVtbl = {
1210     Moniker_QueryInterface,
1211     Moniker_AddRef,
1212     Moniker_Release,
1213     Moniker_GetClassID,
1214     Moniker_IsDirty,
1215     Moniker_Load,
1216     Moniker_Save,
1217     Moniker_GetSizeMax,
1218     Moniker_BindToObject,
1219     Moniker_BindToStorage,
1220     Moniker_Reduce,
1221     Moniker_ComposeWith,
1222     Moniker_Enum,
1223     Moniker_IsEqual,
1224     Moniker_Hash,
1225     Moniker_IsRunning,
1226     Moniker_GetTimeOfLastChange,
1227     Moniker_Inverse,
1228     Moniker_CommonPrefixWith,
1229     Moniker_RelativePathTo,
1230     Moniker_GetDisplayName,
1231     Moniker_ParseDisplayName,
1232     Moniker_IsSystemMoniker
1233 };
1234
1235 static IMoniker Moniker = { &MonikerVtbl };
1236
1237 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
1238 {
1239     return QueryInterface(riid, ppv);
1240 }
1241
1242 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
1243 {
1244     return 2;
1245 }
1246
1247 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
1248 {
1249     return 1;
1250 }
1251
1252 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc,
1253         LPOLESTR pszDiaplayName, ULONG *pchEaten, IMoniker **ppmkOut)
1254 {
1255     ok(0, "unexpected call\n");
1256     return E_NOTIMPL;
1257 }
1258
1259 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags,
1260         IEnumUnknown **ppenum)
1261 {
1262     ok(0, "unexpected call\n");
1263     return E_NOTIMPL;
1264 }
1265
1266 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
1267 {
1268     CHECK_EXPECT(LockContainer);
1269     ok(expect_LockContainer_fLock == fLock, "fLock=%x, expected %x\n", fLock, expect_LockContainer_fLock);
1270     return S_OK;
1271 }
1272
1273 static const IOleContainerVtbl OleContainerVtbl = {
1274     OleContainer_QueryInterface,
1275     OleContainer_AddRef,
1276     OleContainer_Release,
1277     OleContainer_ParseDisplayName,
1278     OleContainer_EnumObjects,
1279     OleContainer_LockContainer
1280 };
1281
1282 static IOleContainer OleContainer = { &OleContainerVtbl };
1283
1284 static HRESULT WINAPI InPlaceFrame_QueryInterface(IOleInPlaceFrame *iface, REFIID riid, void **ppv)
1285 {
1286     static const GUID undocumented_frame_iid = {0xfbece6c9,0x48d7,0x4a37,{0x8f,0xe3,0x6a,0xd4,0x27,0x2f,0xdd,0xac}};
1287
1288     if(!IsEqualGUID(&undocumented_frame_iid, riid))
1289         ok(0, "unexpected riid %s\n", debugstr_guid(riid));
1290
1291     *ppv = NULL;
1292     return E_NOINTERFACE;
1293 }
1294
1295 static ULONG WINAPI InPlaceFrame_AddRef(IOleInPlaceFrame *iface)
1296 {
1297     return 2;
1298 }
1299
1300 static ULONG WINAPI InPlaceFrame_Release(IOleInPlaceFrame *iface)
1301 {
1302     return 1;
1303 }
1304
1305 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1306 {
1307     CHECK_EXPECT(Frame_GetWindow);
1308     return E_NOTIMPL;
1309 }
1310
1311 static HRESULT WINAPI InPlaceFrame_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
1312 {
1313     ok(0, "unexpected call\n");
1314     return E_NOTIMPL;
1315 }
1316
1317 static HRESULT WINAPI InPlaceFrame_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
1318 {
1319     ok(0, "unexpected call\n");
1320     return E_NOTIMPL;
1321 }
1322
1323 static HRESULT WINAPI InPlaceFrame_RequestBorderSpace(IOleInPlaceFrame *iface,
1324         LPCBORDERWIDTHS pborderwidths)
1325 {
1326     ok(0, "unexpected call\n");
1327     return E_NOTIMPL;
1328 }
1329
1330 static HRESULT WINAPI InPlaceFrame_SetBorderSpace(IOleInPlaceFrame *iface,
1331         LPCBORDERWIDTHS pborderwidths)
1332 {
1333     CHECK_EXPECT(InPlaceFrame_SetBorderSpace);
1334     return S_OK;
1335 }
1336
1337 static HRESULT WINAPI InPlaceUIWindow_SetActiveObject(IOleInPlaceFrame *iface,
1338         IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1339 {
1340     static const WCHAR wszHTML_Document[] =
1341         {'H','T','M','L',' ','D','o','c','u','m','e','n','t',0};
1342
1343     CHECK_EXPECT2(InPlaceUIWindow_SetActiveObject);
1344
1345     if(expect_InPlaceUIWindow_SetActiveObject_active) {
1346         ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1347         if(pActiveObject && is_english())
1348             ok(!lstrcmpW(wszHTML_Document, pszObjName), "pszObjName != \"HTML Document\"\n");
1349     }
1350     else {
1351         ok(pActiveObject == NULL, "pActiveObject=%p, expected NULL\n", pActiveObject);
1352         ok(pszObjName == NULL, "pszObjName=%p, expected NULL\n", pszObjName);
1353     }
1354     expect_InPlaceUIWindow_SetActiveObject_active = !expect_InPlaceUIWindow_SetActiveObject_active;
1355     return S_OK;
1356 }
1357
1358 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
1359         IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1360 {
1361     static const WCHAR wszHTML_Document[] =
1362         {'H','T','M','L',' ','D','o','c','u','m','e','n','t',0};
1363
1364     if(pActiveObject) {
1365         CHECK_EXPECT2(SetActiveObject);
1366
1367         if(pActiveObject && is_english())
1368             ok(!lstrcmpW(wszHTML_Document, pszObjName), "pszObjName != \"HTML Document\"\n");
1369     }else {
1370         CHECK_EXPECT(SetActiveObject_null);
1371
1372         ok(pActiveObject == NULL, "pActiveObject=%p, expected NULL\n", pActiveObject);
1373         ok(pszObjName == NULL, "pszObjName=%p, expected NULL\n", pszObjName);
1374     }
1375
1376     return S_OK;
1377 }
1378
1379 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
1380         LPOLEMENUGROUPWIDTHS lpMenuWidths)
1381 {
1382     ok(0, "unexpected call\n");
1383     return E_NOTIMPL;
1384 }
1385
1386 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
1387         HOLEMENU holemenu, HWND hwndActiveObject)
1388 {
1389     ok(0, "unexpected call\n");
1390     return E_NOTIMPL;
1391 }
1392
1393 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
1394 {
1395     ok(0, "unexpected call\n");
1396     return E_NOTIMPL;
1397 }
1398
1399 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
1400 {
1401     CHECK_EXPECT2(SetStatusText);
1402     if(!expect_status_text)
1403         ok(pszStatusText == NULL, "pszStatusText=%p, expected NULL\n", pszStatusText);
1404     return S_OK;
1405 }
1406
1407 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
1408 {
1409     if(fEnable)
1410         CHECK_EXPECT2(Frame_EnableModeless_TRUE);
1411     else
1412         CHECK_EXPECT2(Frame_EnableModeless_FALSE);
1413     return E_NOTIMPL;
1414 }
1415
1416 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
1417 {
1418     ok(0, "unexpected call\n");
1419     return E_NOTIMPL;
1420 }
1421
1422 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
1423     InPlaceFrame_QueryInterface,
1424     InPlaceFrame_AddRef,
1425     InPlaceFrame_Release,
1426     InPlaceFrame_GetWindow,
1427     InPlaceFrame_ContextSensitiveHelp,
1428     InPlaceFrame_GetBorder,
1429     InPlaceFrame_RequestBorderSpace,
1430     InPlaceFrame_SetBorderSpace,
1431     InPlaceFrame_SetActiveObject,
1432     InPlaceFrame_InsertMenus,
1433     InPlaceFrame_SetMenu,
1434     InPlaceFrame_RemoveMenus,
1435     InPlaceFrame_SetStatusText,
1436     InPlaceFrame_EnableModeless,
1437     InPlaceFrame_TranslateAccelerator
1438 };
1439
1440 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
1441
1442 static const IOleInPlaceFrameVtbl InPlaceUIWindowVtbl = {
1443     InPlaceFrame_QueryInterface,
1444     InPlaceFrame_AddRef,
1445     InPlaceFrame_Release,
1446     InPlaceFrame_GetWindow,
1447     InPlaceFrame_ContextSensitiveHelp,
1448     InPlaceFrame_GetBorder,
1449     InPlaceFrame_RequestBorderSpace,
1450     InPlaceFrame_SetBorderSpace,
1451     InPlaceUIWindow_SetActiveObject,
1452 };
1453
1454 static IOleInPlaceFrame InPlaceUIWindow = { &InPlaceUIWindowVtbl };
1455
1456 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSiteEx *iface, REFIID riid, void **ppv)
1457 {
1458     return QueryInterface(riid, ppv);
1459 }
1460
1461 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSiteEx *iface)
1462 {
1463     return 2;
1464 }
1465
1466 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSiteEx *iface)
1467 {
1468     return 1;
1469 }
1470
1471 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSiteEx *iface, HWND *phwnd)
1472 {
1473     CHECK_EXPECT2(GetWindow);
1474     ok(phwnd != NULL, "phwnd = NULL\n");
1475     *phwnd = container_hwnd;
1476     return S_OK;
1477 }
1478
1479 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSiteEx *iface, BOOL fEnterMode)
1480 {
1481     ok(0, "unexpected call\n");
1482     return E_NOTIMPL;
1483 }
1484
1485 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSiteEx *iface)
1486 {
1487     CHECK_EXPECT(CanInPlaceActivate);
1488     return S_OK;
1489 }
1490
1491 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
1492 {
1493     CHECK_EXPECT(OnInPlaceActivate);
1494     return S_OK;
1495 }
1496
1497 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
1498 {
1499     CHECK_EXPECT(OnUIActivate);
1500     return S_OK;
1501 }
1502
1503 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
1504         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
1505         LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
1506 {
1507     static const RECT rect = {0,0,500,500};
1508
1509     CHECK_EXPECT(GetWindowContext);
1510
1511     ok(ppFrame != NULL, "ppFrame = NULL\n");
1512     if(ppFrame)
1513         *ppFrame = &InPlaceFrame;
1514     ok(ppDoc != NULL, "ppDoc = NULL\n");
1515     if(ppDoc)
1516         *ppDoc = (IOleInPlaceUIWindow*)&InPlaceUIWindow;
1517     ok(lprcPosRect != NULL, "lprcPosRect = NULL\n");
1518     if(lprcPosRect)
1519         memcpy(lprcPosRect, &rect, sizeof(RECT));
1520     ok(lprcClipRect != NULL, "lprcClipRect = NULL\n");
1521     if(lprcClipRect)
1522         memcpy(lprcClipRect, &rect, sizeof(RECT));
1523     ok(lpFrameInfo != NULL, "lpFrameInfo = NULL\n");
1524     if(lpFrameInfo) {
1525         lpFrameInfo->cb = sizeof(*lpFrameInfo);
1526         lpFrameInfo->fMDIApp = FALSE;
1527         lpFrameInfo->hwndFrame = container_hwnd;
1528         lpFrameInfo->haccel = NULL;
1529         lpFrameInfo->cAccelEntries = 0;
1530     }
1531
1532     return S_OK;
1533 }
1534
1535 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtant)
1536 {
1537     ok(0, "unexpected call\n");
1538     return E_NOTIMPL;
1539 }
1540
1541 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
1542 {
1543     CHECK_EXPECT(OnUIDeactivate);
1544     ok(!fUndoable, "fUndoable = TRUE\n");
1545     return S_OK;
1546 }
1547
1548 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
1549 {
1550     CHECK_EXPECT(OnInPlaceDeactivate);
1551     return S_OK;
1552 }
1553
1554 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
1555 {
1556     ok(0, "unexpected call\n");
1557     return E_NOTIMPL;
1558 }
1559
1560 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
1561 {
1562     ok(0, "unexpected call\n");
1563     return E_NOTIMPL;
1564 }
1565
1566 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
1567 {
1568     ok(0, "unexpected call\n");
1569     return E_NOTIMPL;
1570 }
1571
1572 static HRESULT WINAPI InPlaceSiteEx_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface, BOOL *pfNoRedraw, DWORD dwFlags)
1573 {
1574     CHECK_EXPECT(OnInPlaceActivateEx);
1575
1576     ok(pfNoRedraw != NULL, "pfNoRedraw == NULL\n");
1577     ok(!*pfNoRedraw, "*pfNoRedraw == TRUE\n");
1578     ok(dwFlags == 0, "dwFlags = %08x\n", dwFlags);
1579
1580     return S_OK;
1581 }
1582
1583 static HRESULT WINAPI InPlaceSiteEx_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface, BOOL fNoRedraw)
1584 {
1585     CHECK_EXPECT(OnInPlaceDeactivateEx);
1586
1587     ok(fNoRedraw, "fNoRedraw == FALSE\n");
1588
1589     return S_OK;
1590 }
1591
1592 static HRESULT WINAPI InPlaceSiteEx_RequestUIActivate(IOleInPlaceSiteEx *iface)
1593 {
1594     CHECK_EXPECT(RequestUIActivate);
1595     return S_OK;
1596 }
1597
1598 static const IOleInPlaceSiteExVtbl InPlaceSiteVtbl = {
1599     InPlaceSite_QueryInterface,
1600     InPlaceSite_AddRef,
1601     InPlaceSite_Release,
1602     InPlaceSite_GetWindow,
1603     InPlaceSite_ContextSensitiveHelp,
1604     InPlaceSite_CanInPlaceActivate,
1605     InPlaceSite_OnInPlaceActivate,
1606     InPlaceSite_OnUIActivate,
1607     InPlaceSite_GetWindowContext,
1608     InPlaceSite_Scroll,
1609     InPlaceSite_OnUIDeactivate,
1610     InPlaceSite_OnInPlaceDeactivate,
1611     InPlaceSite_DiscardUndoState,
1612     InPlaceSite_DeactivateAndUndo,
1613     InPlaceSite_OnPosRectChange,
1614     InPlaceSiteEx_OnInPlaceActivateEx,
1615     InPlaceSiteEx_OnInPlaceDeactivateEx,
1616     InPlaceSiteEx_RequestUIActivate
1617 };
1618
1619 static IOleInPlaceSiteEx InPlaceSiteEx = { &InPlaceSiteVtbl };
1620
1621 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
1622 {
1623     return QueryInterface(riid, ppv);
1624 }
1625
1626 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
1627 {
1628     return 2;
1629 }
1630
1631 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
1632 {
1633     return 1;
1634 }
1635
1636 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
1637 {
1638     ok(0, "unexpected call\n");
1639     return E_NOTIMPL;
1640 }
1641
1642 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker,
1643         IMoniker **ppmon)
1644 {
1645     ok(0, "unexpected call\n");
1646     return E_NOTIMPL;
1647 }
1648
1649 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
1650 {
1651     CHECK_EXPECT(GetContainer);
1652     ok(ppContainer != NULL, "ppContainer = NULL\n");
1653     *ppContainer = &OleContainer;
1654     return S_OK;
1655 }
1656
1657 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
1658 {
1659     ok(0, "unexpected call\n");
1660     return E_NOTIMPL;
1661 }
1662
1663 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
1664 {
1665     ok(0, "unexpected call\n");
1666     return E_NOTIMPL;
1667 }
1668
1669 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
1670 {
1671     ok(0, "unexpected call\n");
1672     return E_NOTIMPL;
1673 }
1674
1675 static const IOleClientSiteVtbl ClientSiteVtbl = {
1676     ClientSite_QueryInterface,
1677     ClientSite_AddRef,
1678     ClientSite_Release,
1679     ClientSite_SaveObject,
1680     ClientSite_GetMoniker,
1681     ClientSite_GetContainer,
1682     ClientSite_ShowObject,
1683     ClientSite_OnShowWindow,
1684     ClientSite_RequestNewObjectLayout
1685 };
1686
1687 static IOleClientSite ClientSite = { &ClientSiteVtbl };
1688
1689 static HRESULT WINAPI DocumentSite_QueryInterface(IOleDocumentSite *iface, REFIID riid, void **ppv)
1690 {
1691     return QueryInterface(riid, ppv);
1692 }
1693
1694 static ULONG WINAPI DocumentSite_AddRef(IOleDocumentSite *iface)
1695 {
1696     return 2;
1697 }
1698
1699 static ULONG WINAPI DocumentSite_Release(IOleDocumentSite *iface)
1700 {
1701     return 1;
1702 }
1703
1704 typedef enum
1705 {
1706     CallUIActivate_None,
1707     CallUIActivate_ActivateMe,
1708     CallUIActivate_AfterShow,
1709 } CallUIActivate;
1710
1711 static BOOL call_UIActivate = CallUIActivate_ActivateMe;
1712 static HRESULT WINAPI DocumentSite_ActivateMe(IOleDocumentSite *iface, IOleDocumentView *pViewToActivate)
1713 {
1714     IOleDocument *document;
1715     HRESULT hres;
1716
1717     CHECK_EXPECT(ActivateMe);
1718     ok(pViewToActivate != NULL, "pViewToActivate = NULL\n");
1719
1720     hres = IOleDocumentView_QueryInterface(pViewToActivate, &IID_IOleDocument, (void**)&document);
1721     ok(hres == S_OK, "could not get IOleDocument: %08x\n", hres);
1722
1723     if(SUCCEEDED(hres)) {
1724         hres = IOleDocument_CreateView(document, (IOleInPlaceSite*)&InPlaceSiteEx, NULL, 0, &view);
1725         ok(hres == S_OK, "CreateView failed: %08x\n", hres);
1726
1727         if(SUCCEEDED(hres)) {
1728             IOleInPlaceActiveObject *activeobj = NULL;
1729             IOleInPlaceSite *inplacesite = NULL;
1730             HWND tmp_hwnd = NULL;
1731             static RECT rect = {0,0,400,500};
1732
1733             hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
1734             ok(hres == S_OK, "GetInPlaceSite failed: %08x\n", hres);
1735             ok(inplacesite == (IOleInPlaceSite*)&InPlaceSiteEx, "inplacesite=%p, expected %p\n",
1736                     inplacesite, &InPlaceSiteEx);
1737
1738             hres = IOleDocumentView_SetInPlaceSite(view, (IOleInPlaceSite*)&InPlaceSiteEx);
1739             ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
1740
1741             hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
1742             ok(hres == S_OK, "GetInPlaceSite failed: %08x\n", hres);
1743             ok(inplacesite == (IOleInPlaceSite*)&InPlaceSiteEx, "inplacesite=%p, expected %p\n",
1744                     inplacesite, &InPlaceSiteEx);
1745
1746             hres = IOleDocumentView_QueryInterface(view, &IID_IOleInPlaceActiveObject, (void**)&activeobj);
1747             ok(hres == S_OK, "Could not get IOleInPlaceActiveObject: %08x\n", hres);
1748
1749             if(activeobj) {
1750                 IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1751                 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1752                 ok(hwnd == NULL, "hwnd=%p, expeted NULL\n", hwnd);
1753             }
1754
1755             if(call_UIActivate == CallUIActivate_ActivateMe) {
1756                 SET_EXPECT(CanInPlaceActivate);
1757                 SET_EXPECT(GetWindowContext);
1758                 SET_EXPECT(GetWindow);
1759                 if(ipsex)
1760                     SET_EXPECT(OnInPlaceActivateEx);
1761                 else
1762                     SET_EXPECT(OnInPlaceActivate);
1763                 SET_EXPECT(SetStatusText);
1764                 SET_EXPECT(Exec_SETPROGRESSMAX);
1765                 SET_EXPECT(Exec_SETPROGRESSPOS);
1766                 SET_EXPECT(OnUIActivate);
1767                 SET_EXPECT(SetActiveObject);
1768                 SET_EXPECT(ShowUI);
1769                 expect_status_text = NULL;
1770
1771                 hres = IOleDocumentView_UIActivate(view, TRUE);
1772                 ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
1773
1774                 CHECK_CALLED(CanInPlaceActivate);
1775                 CHECK_CALLED(GetWindowContext);
1776                 CHECK_CALLED(GetWindow);
1777                 if(ipsex)
1778                     CHECK_CALLED(OnInPlaceActivateEx);
1779                 else
1780                     CHECK_CALLED(OnInPlaceActivate);
1781                 CHECK_CALLED(SetStatusText);
1782                 CHECK_CALLED(Exec_SETPROGRESSMAX);
1783                 CHECK_CALLED(Exec_SETPROGRESSPOS);
1784                 CHECK_CALLED(OnUIActivate);
1785                 CHECK_CALLED(SetActiveObject);
1786                 CHECK_CALLED(ShowUI);
1787
1788                 if(activeobj) {
1789                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1790                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1791                     ok(hwnd != NULL, "hwnd == NULL\n");
1792                     if(last_hwnd)
1793                         ok(hwnd == last_hwnd, "hwnd != last_hwnd\n");
1794                 }
1795
1796                 hres = IOleDocumentView_UIActivate(view, TRUE);
1797                 ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
1798
1799                 if(activeobj) {
1800                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &tmp_hwnd);
1801                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1802                     ok(tmp_hwnd == hwnd, "tmp_hwnd=%p, expected %p\n", tmp_hwnd, hwnd);
1803                 }
1804             }
1805
1806             hres = IOleDocumentView_SetRect(view, &rect);
1807             ok(hres == S_OK, "SetRect failed: %08x\n", hres);
1808
1809             if(call_UIActivate == CallUIActivate_ActivateMe) {
1810                 hres = IOleDocumentView_Show(view, TRUE);
1811                 ok(hres == S_OK, "Show failed: %08x\n", hres);
1812             }else {
1813                 SET_EXPECT(CanInPlaceActivate);
1814                 SET_EXPECT(GetWindowContext);
1815                 SET_EXPECT(GetWindow);
1816                 if(ipsex)
1817                     SET_EXPECT(OnInPlaceActivateEx);
1818                 else
1819                     SET_EXPECT(OnInPlaceActivate);
1820                 SET_EXPECT(SetStatusText);
1821                 SET_EXPECT(Exec_SETPROGRESSMAX);
1822                 SET_EXPECT(Exec_SETPROGRESSPOS);
1823                 SET_EXPECT(OnUIActivate);
1824                 expect_status_text = (load_state == LD_COMPLETE ? (LPCOLESTR)0xdeadbeef : NULL);
1825
1826                 hres = IOleDocumentView_Show(view, TRUE);
1827                 if(FAILED(hres)) {
1828                     win_skip("Show failed\n");
1829                     if(activeobj)
1830                         IOleInPlaceActiveObject_Release(activeobj);
1831                     IOleDocument_Release(document);
1832                     show_failed = TRUE;
1833                     return S_OK;
1834                 }
1835                 ok(hres == S_OK, "Show failed: %08x\n", hres);
1836
1837                 CHECK_CALLED(CanInPlaceActivate);
1838                 CHECK_CALLED(GetWindowContext);
1839                 CHECK_CALLED(GetWindow);
1840                 if(ipsex)
1841                     CHECK_CALLED(OnInPlaceActivateEx);
1842                 else
1843                     CHECK_CALLED(OnInPlaceActivate);
1844                 CHECK_CALLED(SetStatusText);
1845                 CHECK_CALLED(Exec_SETPROGRESSMAX);
1846                 CHECK_CALLED(Exec_SETPROGRESSPOS);
1847
1848                 if(activeobj) {
1849                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1850                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1851                     ok(hwnd != NULL, "hwnd == NULL\n");
1852                     if(last_hwnd)
1853                         ok(hwnd == last_hwnd, "hwnd != last_hwnd\n");
1854                 }
1855             }
1856
1857             test_timer(EXPECT_UPDATEUI | ((load_state == LD_LOADING) ? EXPECT_SETTITLE : 0));
1858
1859             if(activeobj)
1860                 IOleInPlaceActiveObject_Release(activeobj);
1861         }
1862
1863         IOleDocument_Release(document);
1864     }
1865
1866     return S_OK;
1867 }
1868
1869 static const IOleDocumentSiteVtbl DocumentSiteVtbl = {
1870     DocumentSite_QueryInterface,
1871     DocumentSite_AddRef,
1872     DocumentSite_Release,
1873     DocumentSite_ActivateMe
1874 };
1875
1876 static IOleDocumentSite DocumentSite = { &DocumentSiteVtbl };
1877
1878 static HRESULT WINAPI OleControlSite_QueryInterface(IOleControlSite *iface, REFIID riid, void **ppv)
1879 {
1880     return QueryInterface(riid, ppv);
1881 }
1882
1883 static ULONG WINAPI OleControlSite_AddRef(IOleControlSite *iface)
1884 {
1885     return 2;
1886 }
1887
1888 static ULONG WINAPI OleControlSite_Release(IOleControlSite *iface)
1889 {
1890     return 1;
1891 }
1892
1893 static HRESULT WINAPI OleControlSite_OnControlInfoChanged(IOleControlSite *iface)
1894 {
1895     ok(0, "unexpected call\n");
1896     return E_NOTIMPL;
1897 }
1898
1899 static HRESULT WINAPI OleControlSite_LockInPlaceActive(IOleControlSite *iface, BOOL fLock)
1900 {
1901     ok(0, "unexpected call\n");
1902     return E_NOTIMPL;
1903 }
1904
1905 static HRESULT WINAPI OleControlSite_GetExtendedControl(IOleControlSite *iface, IDispatch **ppDisp)
1906 {
1907     ok(0, "unexpected call\n");
1908     return E_NOTIMPL;
1909 }
1910
1911 static HRESULT WINAPI OleControlSite_TransformCoords(IOleControlSite *iface, POINTL *pPtHimetric,
1912         POINTF *pPtfContainer, DWORD dwFlags)
1913 {
1914     ok(0, "unexpected call\n");
1915     return E_NOTIMPL;
1916 }
1917
1918 static HRESULT WINAPI OleControlSite_TranslateAccelerator(IOleControlSite *iface,
1919         MSG *pMsg, DWORD grfModifiers)
1920 {
1921     ok(0, "unexpected call\n");
1922     return E_NOTIMPL;
1923 }
1924
1925 static HRESULT WINAPI OleControlSite_OnFocus(IOleControlSite *iface, BOOL fGotFocus)
1926 {
1927     if(fGotFocus)
1928         CHECK_EXPECT(OnFocus_TRUE);
1929     else
1930         CHECK_EXPECT2(OnFocus_FALSE);
1931     return S_OK;
1932 }
1933
1934 static HRESULT WINAPI OleControlSite_ShowPropertyFrame(IOleControlSite *iface)
1935 {
1936     ok(0, "unexpected call\n");
1937     return E_NOTIMPL;
1938 }
1939
1940 static const IOleControlSiteVtbl OleControlSiteVtbl = {
1941     OleControlSite_QueryInterface,
1942     OleControlSite_AddRef,
1943     OleControlSite_Release,
1944     OleControlSite_OnControlInfoChanged,
1945     OleControlSite_LockInPlaceActive,
1946     OleControlSite_GetExtendedControl,
1947     OleControlSite_TransformCoords,
1948     OleControlSite_TranslateAccelerator,
1949     OleControlSite_OnFocus,
1950     OleControlSite_ShowPropertyFrame
1951 };
1952
1953 static IOleControlSite OleControlSite = { &OleControlSiteVtbl };
1954
1955 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
1956 {
1957     return QueryInterface(riid, ppv);
1958 }
1959
1960 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
1961 {
1962     return 2;
1963 }
1964
1965 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
1966 {
1967     return 1;
1968 }
1969
1970 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt,
1971         IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
1972 {
1973     ok(0, "unexpected call\n");
1974     return E_NOTIMPL;
1975 }
1976
1977 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
1978 {
1979     CHECK_EXPECT(GetHostInfo);
1980     ok(pInfo != NULL, "pInfo=NULL\n");
1981     if(pInfo) {
1982         ok(pInfo->cbSize == sizeof(DOCHOSTUIINFO), "pInfo->cbSize=%u\n", pInfo->cbSize);
1983         ok(!pInfo->dwFlags, "pInfo->dwFlags=%08x, expected 0\n", pInfo->dwFlags);
1984         pInfo->dwFlags = DOCHOSTUIFLAG_DISABLE_HELP_MENU | DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE
1985             | DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY | DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION
1986             | DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION;
1987         ok(!pInfo->dwDoubleClick, "pInfo->dwDoubleClick=%08x, expected 0\n", pInfo->dwDoubleClick);
1988         ok(!pInfo->pchHostCss, "pInfo->pchHostCss=%p, expected NULL\n", pInfo->pchHostCss);
1989         ok(!pInfo->pchHostNS, "pInfo->pchhostNS=%p, expected NULL\n", pInfo->pchHostNS);
1990     }
1991     return S_OK;
1992 }
1993
1994 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
1995         IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
1996         IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
1997 {
1998     CHECK_EXPECT(ShowUI);
1999
2000     if (editmode)
2001         ok(dwID == DOCHOSTUITYPE_AUTHOR, "dwID=%d, expected DOCHOSTUITYPE_AUTHOR\n", dwID);
2002     else
2003         ok(dwID == DOCHOSTUITYPE_BROWSE, "dwID=%d, expected DOCHOSTUITYPE_BROWSE\n", dwID);
2004     ok(pActiveObject != NULL, "pActiveObject = NULL\n");
2005     ok(pCommandTarget != NULL, "pCommandTarget = NULL\n");
2006     ok(pFrame == &InPlaceFrame, "pFrame=%p, expected %p\n", pFrame, &InPlaceFrame);
2007     if (expect_InPlaceUIWindow_SetActiveObject_active)
2008         ok(pDoc == (IOleInPlaceUIWindow *)&InPlaceUIWindow, "pDoc=%p, expected %p\n", pDoc, &InPlaceUIWindow);
2009     else
2010         ok(pDoc == NULL, "pDoc=%p, expected NULL\n", pDoc);
2011
2012     return S_OK;
2013 }
2014
2015 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
2016 {
2017     CHECK_EXPECT(HideUI);
2018     return S_OK;
2019 }
2020
2021 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
2022 {
2023     CHECK_EXPECT(UpdateUI);
2024     return S_OK;
2025 }
2026
2027 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface, BOOL fEnable)
2028 {
2029     if(fEnable)
2030         CHECK_EXPECT2(EnableModeless_TRUE);
2031     else
2032         CHECK_EXPECT2(EnableModeless_FALSE);
2033     return E_NOTIMPL;
2034 }
2035
2036 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
2037 {
2038     ok(0, "unexpected call\n");
2039     return E_NOTIMPL;
2040 }
2041
2042 static BOOL expect_OnFrameWindowActivate_fActivate;
2043 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
2044 {
2045     CHECK_EXPECT2(OnFrameWindowActivate);
2046     ok(fActivate == expect_OnFrameWindowActivate_fActivate, "fActivate=%x\n", fActivate);
2047     return S_OK;
2048 }
2049
2050 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface, LPCRECT prcBorder,
2051         IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
2052 {
2053     ok(0, "unexpected call\n");
2054     return E_NOTIMPL;
2055 }
2056
2057 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface, LPMSG lpMsg,
2058         const GUID *pguidCmdGroup, DWORD nCmdID)
2059 {
2060     ok(0, "unexpected call\n");
2061     return E_NOTIMPL;
2062 }
2063
2064 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
2065         LPOLESTR *pchKey, DWORD dw)
2066 {
2067     CHECK_EXPECT(GetOptionKeyPath);
2068     ok(pchKey != NULL, "pchKey = NULL\n");
2069     ok(!dw, "dw=%d, expected 0\n", dw);
2070     if(pchKey)
2071         ok(!*pchKey, "*pchKey=%p, expected NULL\n", *pchKey);
2072     return S_OK;
2073 }
2074
2075 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
2076         IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
2077 {
2078     CHECK_EXPECT(GetDropTarget);
2079     /* TODO */
2080     return E_NOTIMPL;
2081 }
2082
2083 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
2084 {
2085     CHECK_EXPECT(GetExternal);
2086     *ppDispatch = &External;
2087     return S_FALSE;
2088 }
2089
2090 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface, DWORD dwTranslate,
2091         OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
2092 {
2093     ok(0, "unexpected call\n");
2094     return E_NOTIMPL;
2095 }
2096
2097 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface, IDataObject *pDO,
2098         IDataObject **ppPORet)
2099 {
2100     ok(0, "unexpected call\n");
2101     return E_NOTIMPL;
2102 }
2103
2104 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
2105         LPOLESTR *pchKey, DWORD dw)
2106 {
2107     CHECK_EXPECT(GetOverrideKeyPath);
2108     ok(pchKey != NULL, "pchKey = NULL\n");
2109     if(pchKey)
2110         ok(!*pchKey, "*pchKey=%p, expected NULL\n", *pchKey);
2111     ok(!dw, "dw=%d, xepected 0\n", dw);
2112     return S_OK;
2113 }
2114
2115 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl = {
2116     DocHostUIHandler_QueryInterface,
2117     DocHostUIHandler_AddRef,
2118     DocHostUIHandler_Release,
2119     DocHostUIHandler_ShowContextMenu,
2120     DocHostUIHandler_GetHostInfo,
2121     DocHostUIHandler_ShowUI,
2122     DocHostUIHandler_HideUI,
2123     DocHostUIHandler_UpdateUI,
2124     DocHostUIHandler_EnableModeless,
2125     DocHostUIHandler_OnDocWindowActivate,
2126     DocHostUIHandler_OnFrameWindowActivate,
2127     DocHostUIHandler_ResizeBorder,
2128     DocHostUIHandler_TranslateAccelerator,
2129     DocHostUIHandler_GetOptionKeyPath,
2130     DocHostUIHandler_GetDropTarget,
2131     DocHostUIHandler_GetExternal,
2132     DocHostUIHandler_TranslateUrl,
2133     DocHostUIHandler_FilterDataObject,
2134     DocHostUIHandler_GetOverrideKeyPath
2135 };
2136
2137 static IDocHostUIHandler2 DocHostUIHandler = { &DocHostUIHandlerVtbl };
2138
2139 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface,
2140         REFIID riid, void **ppv)
2141 {
2142     return QueryInterface(riid, ppv);
2143 }
2144
2145 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
2146 {
2147     return 2;
2148 }
2149
2150 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
2151 {
2152     return 1;
2153 }
2154
2155 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
2156         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
2157 {
2158     ok(!pguidCmdGroup, "pguidCmdGroup != MULL\n");
2159     ok(cCmds == 1, "cCmds=%d, expected 1\n", cCmds);
2160     ok(!pCmdText, "pCmdText != NULL\n");
2161
2162     switch(prgCmds[0].cmdID) {
2163     case OLECMDID_SETPROGRESSTEXT:
2164         CHECK_EXPECT(QueryStatus_SETPROGRESSTEXT);
2165         prgCmds[0].cmdf = OLECMDF_ENABLED;
2166         return S_OK;
2167     case OLECMDID_OPEN:
2168         CHECK_EXPECT(QueryStatus_OPEN);
2169         prgCmds[0].cmdf = 0;
2170         return S_OK;
2171     case OLECMDID_NEW:
2172         CHECK_EXPECT(QueryStatus_NEW);
2173         prgCmds[0].cmdf = 0;
2174         return S_OK;
2175     default:
2176         ok(0, "unexpected command %d\n", prgCmds[0].cmdID);
2177     };
2178
2179     return E_FAIL;
2180 }
2181
2182 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
2183         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
2184 {
2185     if(!pguidCmdGroup || !IsEqualGUID(pguidCmdGroup, &CGID_Explorer))
2186         test_readyState(NULL);
2187
2188     if(!pguidCmdGroup) {
2189         switch(nCmdID) {
2190         case OLECMDID_SETPROGRESSMAX:
2191             CHECK_EXPECT2(Exec_SETPROGRESSMAX);
2192             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
2193             ok(pvaIn != NULL, "pvaIn == NULL\n");
2194             if(pvaIn) {
2195                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
2196                 if(load_state == LD_NO)
2197                     ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
2198             }
2199             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
2200             return S_OK;
2201         case OLECMDID_SETPROGRESSPOS:
2202             CHECK_EXPECT2(Exec_SETPROGRESSPOS);
2203             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
2204             ok(pvaIn != NULL, "pvaIn == NULL\n");
2205             if(pvaIn) {
2206                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
2207                 if(load_state == LD_NO)
2208                     ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
2209             }
2210             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
2211             return S_OK;
2212         case OLECMDID_HTTPEQUIV_DONE:
2213             CHECK_EXPECT(Exec_HTTPEQUIV_DONE);
2214             ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
2215             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
2216             ok(pvaIn == NULL, "pvaIn=%p\n", pvaIn);
2217             load_state = LD_COMPLETE;
2218             return S_OK;
2219         case OLECMDID_SETDOWNLOADSTATE:
2220             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
2221             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
2222             ok(pvaIn != NULL, "pvaIn == NULL\n");
2223             ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
2224
2225             switch(V_I4(pvaIn)) {
2226             case 0:
2227                 CHECK_EXPECT(Exec_SETDOWNLOADSTATE_0);
2228                 load_state = LD_INTERACTIVE;
2229                 break;
2230             case 1:
2231                 CHECK_EXPECT(Exec_SETDOWNLOADSTATE_1);
2232                 readystate_set_interactive = (load_state != LD_INTERACTIVE);
2233                 break;
2234             default:
2235                 ok(0, "unexpevted V_I4(pvaIn)=%d\n", V_I4(pvaIn));
2236             }
2237
2238             return S_OK;
2239         case OLECMDID_UPDATECOMMANDS:
2240             CHECK_EXPECT(Exec_UPDATECOMMANDS);
2241             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
2242             ok(pvaIn == NULL, "pvaIn=%p\n", pvaIn);
2243             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
2244             return S_OK;
2245         case OLECMDID_SETTITLE:
2246             CHECK_EXPECT2(Exec_SETTITLE);
2247             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
2248             ok(pvaIn != NULL, "pvaIn == NULL\n");
2249             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
2250             ok(V_VT(pvaIn) == VT_BSTR, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
2251             ok(V_BSTR(pvaIn) != NULL, "V_BSTR(pvaIn) == NULL\n"); /* TODO */
2252             return S_OK;
2253         case OLECMDID_HTTPEQUIV:
2254             CHECK_EXPECT2(Exec_HTTPEQUIV);
2255             ok(!nCmdexecopt, "nCmdexecopts=%08x\n", nCmdexecopt);
2256             ok(pvaIn != NULL, "pvaIn == NULL\n");
2257             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
2258             ok(V_VT(pvaIn) == VT_BSTR, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
2259             ok(V_BSTR(pvaIn) != NULL, "V_BSTR(pvaIn) = NULL\n");
2260             test_readyState(NULL);
2261             return S_OK;
2262         default:
2263             ok(0, "unexpected command %d\n", nCmdID);
2264             return E_FAIL;
2265         };
2266     }
2267
2268     if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
2269         ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
2270
2271         switch(nCmdID) {
2272         case 37:
2273             CHECK_EXPECT2(Exec_ShellDocView_37);
2274
2275             if(load_from_stream)
2276                 test_GetCurMoniker(doc_unk, NULL, about_blank_url);
2277             else if(!editmode)
2278                 test_GetCurMoniker(doc_unk, doc_mon, NULL);
2279
2280             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
2281             ok(pvaIn != NULL, "pvaIn == NULL\n");
2282             if(pvaIn) {
2283                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
2284                 ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
2285             }
2286             return S_OK;
2287         case 84:
2288             CHECK_EXPECT2(Exec_ShellDocView_84);
2289
2290             ok(pvaIn == NULL, "pvaIn != NULL\n");
2291             ok(pvaOut != NULL, "pvaOut == NULL\n");
2292             if(pvaIn)
2293                 ok(V_VT(pvaOut) == VT_EMPTY, "V_VT(pvaOut)=%d\n", V_VT(pvaOut));
2294
2295             return E_NOTIMPL;
2296
2297         case 103:
2298             CHECK_EXPECT2(Exec_ShellDocView_103);
2299
2300             ok(pvaIn == NULL, "pvaIn != NULL\n");
2301             ok(pvaOut == NULL, "pvaOut != NULL\n");
2302
2303             return E_NOTIMPL;
2304
2305         case 105:
2306             CHECK_EXPECT2(Exec_ShellDocView_105);
2307
2308             ok(pvaIn != NULL, "pvaIn == NULL\n");
2309             ok(pvaOut == NULL, "pvaOut != NULL\n");
2310
2311             return E_NOTIMPL;
2312
2313         default:
2314             ok(0, "unexpected command %d\n", nCmdID);
2315             return E_FAIL;
2316         };
2317     }
2318
2319     if(IsEqualGUID(&CGID_MSHTML, pguidCmdGroup)) {
2320         ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
2321
2322         switch(nCmdID) {
2323         case IDM_PARSECOMPLETE:
2324             CHECK_EXPECT(Exec_MSHTML_PARSECOMPLETE);
2325             ok(pvaIn == NULL, "pvaIn != NULL\n");
2326             ok(pvaOut == NULL, "pvaOut != NULL\n");
2327             return S_OK;
2328         default:
2329             ok(0, "unexpected command %d\n", nCmdID);
2330         };
2331     }
2332
2333     if(IsEqualGUID(&CGID_DocHostCmdPriv, pguidCmdGroup))
2334         return E_FAIL; /* TODO */
2335
2336     if(IsEqualGUID(&CGID_Explorer, pguidCmdGroup)) {
2337         ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
2338
2339         switch(nCmdID) {
2340         case 69:
2341             CHECK_EXPECT2(Exec_Explorer_69);
2342             ok(pvaIn == NULL, "pvaIn != NULL\n");
2343             ok(pvaOut != NULL, "pvaOut == NULL\n");
2344             return E_NOTIMPL;
2345         default:
2346             ok(0, "unexpected cmd %d of CGID_Explorer\n", nCmdID);
2347         }
2348         return E_NOTIMPL;
2349     }
2350
2351     if(IsEqualGUID(&CGID_DocHostCommandHandler, pguidCmdGroup)) {
2352         switch (nCmdID) {
2353         case OLECMDID_PAGEACTIONBLOCKED: /* win2k3 */
2354             SET_EXPECT(SetStatusText);
2355             ok(pvaIn == NULL, "pvaIn != NULL\n");
2356             ok(pvaOut == NULL, "pvaOut != NULL\n");
2357             return S_OK;
2358         case OLECMDID_SHOWSCRIPTERROR:
2359             /* TODO */
2360             return S_OK;
2361         default:
2362             ok(0, "unexpected command %d\n", nCmdID);
2363             return E_FAIL;
2364         }
2365     }
2366
2367     ok(0, "unexpected pguidCmdGroup: %s\n", debugstr_guid(pguidCmdGroup));
2368     return E_NOTIMPL;
2369 }
2370
2371 static IOleCommandTargetVtbl OleCommandTargetVtbl = {
2372     OleCommandTarget_QueryInterface,
2373     OleCommandTarget_AddRef,
2374     OleCommandTarget_Release,
2375     OleCommandTarget_QueryStatus,
2376     OleCommandTarget_Exec
2377 };
2378
2379 static IOleCommandTarget OleCommandTarget = { &OleCommandTargetVtbl };
2380
2381 static HRESULT WINAPI Dispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
2382 {
2383     return QueryInterface(riid, ppv);
2384 }
2385
2386 static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
2387         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
2388         EXCEPINFO *pExcepInfo, UINT *puArgErr)
2389 {
2390     ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
2391     ok(pDispParams != NULL, "pDispParams == NULL\n");
2392     ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
2393     ok(puArgErr != NULL, "puArgErr == NULL\n");
2394     ok(V_VT(pVarResult) == 0, "V_VT(pVarResult)=%d, expected 0\n", V_VT(pVarResult));
2395     ok(wFlags == DISPATCH_PROPERTYGET, "wFlags=%08x, expected DISPATCH_PROPERTYGET\n", wFlags);
2396     test_readyState(NULL);
2397
2398     switch(dispIdMember) {
2399     case DISPID_AMBIENT_USERMODE:
2400         CHECK_EXPECT2(Invoke_AMBIENT_USERMODE);
2401         V_VT(pVarResult) = VT_BOOL;
2402         V_BOOL(pVarResult) = VARIANT_TRUE;
2403         return S_OK;
2404     case DISPID_AMBIENT_DLCONTROL:
2405         CHECK_EXPECT2(Invoke_AMBIENT_DLCONTROL);
2406         return E_FAIL;
2407     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
2408         CHECK_EXPECT2(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2409         return E_FAIL;
2410     case DISPID_AMBIENT_SILENT:
2411         CHECK_EXPECT2(Invoke_AMBIENT_SILENT);
2412         V_VT(pVarResult) = VT_BOOL;
2413         V_BOOL(pVarResult) = VARIANT_FALSE;
2414         return S_OK;
2415     case DISPID_AMBIENT_USERAGENT:
2416         CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
2417         return E_FAIL;
2418     case DISPID_AMBIENT_PALETTE:
2419         CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
2420         return E_FAIL;
2421     };
2422
2423     ok(0, "unexpected dispid %d\n", dispIdMember);
2424     return E_FAIL;
2425 }
2426
2427 static IDispatchVtbl DispatchVtbl = {
2428     Dispatch_QueryInterface,
2429     Dispatch_AddRef,
2430     Dispatch_Release,
2431     Dispatch_GetTypeInfoCount,
2432     Dispatch_GetTypeInfo,
2433     Dispatch_GetIDsOfNames,
2434     Dispatch_Invoke
2435 };
2436
2437 static IDispatch Dispatch = { &DispatchVtbl };
2438
2439 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface,
2440                                                      REFIID riid, void **ppv)
2441 {
2442     return QueryInterface(riid, ppv);
2443 }
2444
2445 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
2446 {
2447     return 2;
2448 }
2449
2450 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
2451 {
2452     return 1;
2453 }
2454
2455 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
2456                                     REFIID riid, void **ppv)
2457 {
2458     /*
2459      * Services used by HTMLDocument:
2460      *
2461      * IOleUndoManager
2462      * IInternetSecurityManager
2463      * ITargetFrame
2464      * {D5F78C80-5252-11CF-90FA-00AA0042106E}
2465      * HTMLFrameBase
2466      * IShellObject
2467      * {3050F312-98B5-11CF-BB82-00AA00BDCE0B}
2468      * {53A2D5B1-D2FC-11D0-84E0-006097C9987D}
2469      * {AD7F6C62-F6BD-11D2-959B-006097C553C8}
2470      * DefView (?)
2471      * {6D12FE80-7911-11CF-9534-0000C05BAE0B}
2472      * IElementBehaviorFactory
2473      * {3050F429-98B5-11CF-BB82-00AA00BDCE0B}
2474      * STopLevelBrowser
2475      * IHTMLWindow2
2476      * IInternetProtocol
2477      * IWebBrowserApp
2478      * UrlHostory
2479      * IHTMLEditHost
2480      * IHlinkFrame
2481      */
2482
2483     if(IsEqualGUID(&IID_IHlinkFrame, guidService)) {
2484         ok(IsEqualGUID(&IID_IHlinkFrame, riid), "unexpected riid\n");
2485         *ppv = &HlinkFrame;
2486         return S_OK;
2487     }
2488
2489     return E_NOINTERFACE;
2490 }
2491
2492 static const IServiceProviderVtbl ServiceProviderVtbl = {
2493     ServiceProvider_QueryInterface,
2494     ServiceProvider_AddRef,
2495     ServiceProvider_Release,
2496     ServiceProvider_QueryService
2497 };
2498
2499 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
2500
2501 DEFINE_GUID(IID_unk1, 0xD48A6EC6,0x6A4A,0x11CF,0x94,0xA7,0x44,0x45,0x53,0x54,0x00,0x00); /* HTMLWindow2 ? */
2502 DEFINE_GUID(IID_unk2, 0x7BB0B520,0xB1A7,0x11D2,0xBB,0x23,0x00,0xC0,0x4F,0x79,0xAB,0xCD);
2503 DEFINE_GUID(IID_unk3, 0x000670BA,0x0000,0x0000,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46);
2504 DEFINE_GUID(IID_unk4, 0x305104a6,0x98b5,0x11cf,0xbb,0x82,0x00,0xaa,0x00,0xbd,0xce,0x0b);
2505
2506 static HRESULT QueryInterface(REFIID riid, void **ppv)
2507 {
2508     *ppv = NULL;
2509
2510     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IOleClientSite, riid))
2511         *ppv = &ClientSite;
2512     else if(IsEqualGUID(&IID_IOleDocumentSite, riid))
2513         *ppv = &DocumentSite;
2514     else if(IsEqualGUID(&IID_IDocHostUIHandler, riid) || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
2515         *ppv = &DocHostUIHandler;
2516     else if(IsEqualGUID(&IID_IOleContainer, riid))
2517         *ppv = &OleContainer;
2518     else if(IsEqualGUID(&IID_IOleWindow, riid) || IsEqualGUID(&IID_IOleInPlaceSite, riid))
2519         *ppv = &InPlaceSiteEx;
2520     else if(IsEqualGUID(&IID_IOleCommandTarget , riid))
2521         *ppv = &OleCommandTarget;
2522     else if(IsEqualGUID(&IID_IDispatch, riid))
2523         *ppv = &Dispatch;
2524     else if(IsEqualGUID(&IID_IServiceProvider, riid))
2525         *ppv = &ServiceProvider;
2526     else if(IsEqualGUID(&IID_IOleInPlaceSiteEx, riid))
2527         *ppv = ipsex ? &InPlaceSiteEx : NULL;
2528     else if(IsEqualGUID(&IID_IOleControlSite, riid))
2529         *ppv = &OleControlSite;
2530     else if(IsEqualGUID(&IID_IDocHostShowUI, riid))
2531         return E_NOINTERFACE; /* TODO */
2532     else if(IsEqualGUID(&IID_IProxyManager, riid))
2533         return E_NOINTERFACE; /* ? */
2534     else if(IsEqualGUID(&IID_unk1, riid))
2535         return E_NOINTERFACE; /* HTMLWindow2 ? */
2536     else if(IsEqualGUID(&IID_unk2, riid))
2537         return E_NOINTERFACE; /* ? */
2538     else if(IsEqualGUID(&IID_unk3, riid))
2539         return E_NOINTERFACE; /* ? */
2540     else if(IsEqualGUID(&IID_unk4, riid))
2541         return E_NOINTERFACE; /* ? */
2542     else
2543         ok(0, "unexpected riid %s\n", debugstr_guid(riid));
2544
2545     if(*ppv)
2546         return S_OK;
2547     return E_NOINTERFACE;
2548 }
2549
2550 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
2551 {
2552     return DefWindowProc(hwnd, msg, wParam, lParam);
2553 }
2554
2555 static void _test_readyState(unsigned line, IUnknown *unk)
2556 {
2557     IHTMLDocument2 *htmldoc;
2558     DISPPARAMS dispparams;
2559     BSTR state;
2560     VARIANT out;
2561     HRESULT hres;
2562
2563     static const LPCSTR expected_state[] = {
2564         "uninitialized",
2565         "loading",
2566         NULL,
2567         "interactive",
2568         "complete",
2569         "uninitialized"
2570     };
2571
2572     if(!unk)
2573         unk = doc_unk;
2574
2575     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument2, (void**)&htmldoc);
2576     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2) failed: %08x\n", hres);
2577     if(FAILED(hres))
2578         return;
2579
2580     hres = IHTMLDocument2_get_readyState(htmldoc, NULL);
2581     ok(hres == E_POINTER, "get_readyState failed: %08x, expected\n", hres);
2582
2583     hres = IHTMLDocument2_get_readyState(htmldoc, &state);
2584     ok(hres == S_OK, "get_ReadyState failed: %08x\n", hres);
2585
2586     if(!strcmp_wa(state, "interactive") && load_state == LD_LOADING)
2587         load_state = LD_INTERACTIVE;
2588
2589     ok_(__FILE__, line)
2590         (!strcmp_wa(state, expected_state[load_state]), "unexpected state %s, expected %d\n",
2591          wine_dbgstr_w(state), load_state);
2592     SysFreeString(state);
2593
2594     dispparams.cArgs = 0;
2595     dispparams.cNamedArgs = 0;
2596     dispparams.rgdispidNamedArgs = NULL;
2597     dispparams.rgvarg = NULL;
2598
2599     VariantInit(&out);
2600
2601     hres = IHTMLDocument2_Invoke(htmldoc, DISPID_READYSTATE, &IID_NULL, 0, DISPATCH_PROPERTYGET,
2602                                  &dispparams, &out, NULL, NULL);
2603     ok(hres == S_OK, "Invoke(DISPID_READYSTATE) failed: %08x\n", hres);
2604
2605     ok_(__FILE__,line) (V_VT(&out) == VT_I4, "V_VT(out)=%d\n", V_VT(&out));
2606     ok_(__FILE__,line) (V_I4(&out) == load_state%5, "VT_I4(out)=%d, expected %d\n", V_I4(&out), load_state%5);
2607
2608     IHTMLDocument2_Release(htmldoc);
2609 }
2610
2611 static void test_ConnectionPoint(IConnectionPointContainer *container, REFIID riid)
2612 {
2613     IConnectionPointContainer *tmp_container = NULL;
2614     IConnectionPoint *cp;
2615     IID iid;
2616     HRESULT hres;
2617
2618     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
2619     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2620     if(FAILED(hres))
2621         return;
2622
2623     hres = IConnectionPoint_GetConnectionInterface(cp, &iid);
2624     ok(hres == S_OK, "GetConnectionInterface failed: %08x\n", hres);
2625     ok(IsEqualGUID(riid, &iid), "wrong iid\n");
2626
2627     hres = IConnectionPoint_GetConnectionInterface(cp, NULL);
2628     ok(hres == E_POINTER, "GetConnectionInterface failed: %08x, expected E_POINTER\n", hres);
2629
2630     hres = IConnectionPoint_GetConnectionPointContainer(cp, &tmp_container);
2631     ok(hres == S_OK, "GetConnectionPointContainer failed: %08x\n", hres);
2632     ok(tmp_container == container, "container != tmp_container\n");
2633     if(SUCCEEDED(hres))
2634         IConnectionPointContainer_Release(tmp_container);
2635
2636     hres = IConnectionPoint_GetConnectionPointContainer(cp, NULL);
2637     ok(hres == E_POINTER, "GetConnectionPointContainer failed: %08x, expected E_POINTER\n", hres);
2638
2639     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
2640         DWORD cookie;
2641
2642         hres = IConnectionPoint_Advise(cp, (IUnknown*)&PropertyNotifySink, &cookie);
2643         ok(hres == S_OK, "Advise failed: %08x\n", hres);
2644     }
2645
2646     IConnectionPoint_Release(cp);
2647 }
2648
2649 static void test_ConnectionPointContainer(IUnknown *unk)
2650 {
2651     IConnectionPointContainer *container;
2652     HRESULT hres;
2653
2654     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2655     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2656     if(FAILED(hres))
2657         return;
2658
2659     test_ConnectionPoint(container, &IID_IPropertyNotifySink);
2660     test_ConnectionPoint(container, &DIID_HTMLDocumentEvents);
2661     test_ConnectionPoint(container, &DIID_HTMLDocumentEvents2);
2662
2663     IConnectionPointContainer_Release(container);
2664 }
2665
2666 static void test_Load(IPersistMoniker *persist, IMoniker *mon)
2667 {
2668     IBindCtx *bind;
2669     HRESULT hres;
2670     WCHAR sz_html_clientsite_objectparam[MAX_PATH];
2671
2672     lstrcpyW(sz_html_clientsite_objectparam, SZ_HTML_CLIENTSITE_OBJECTPARAM);
2673
2674     test_readyState((IUnknown*)persist);
2675
2676     doc_mon = mon;
2677
2678     CreateBindCtx(0, &bind);
2679     IBindCtx_RegisterObjectParam(bind, sz_html_clientsite_objectparam,
2680                                  (IUnknown*)&ClientSite);
2681
2682     if(mon == &Moniker)
2683         SET_EXPECT(GetDisplayName);
2684     if(!set_clientsite) {
2685         SET_EXPECT(Invoke_AMBIENT_USERMODE);
2686         SET_EXPECT(GetHostInfo);
2687         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2688         SET_EXPECT(Invoke_AMBIENT_SILENT);
2689         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2690         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2691         SET_EXPECT(Invoke_AMBIENT_PALETTE);
2692         SET_EXPECT(GetOptionKeyPath);
2693         SET_EXPECT(GetOverrideKeyPath);
2694         SET_EXPECT(GetWindow);
2695         SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2696         SET_EXPECT(Exec_SETPROGRESSMAX);
2697         SET_EXPECT(Exec_SETPROGRESSPOS);
2698         SET_EXPECT(Exec_ShellDocView_37);
2699     }
2700     if(!container_locked) {
2701         SET_EXPECT(GetContainer);
2702         SET_EXPECT(LockContainer);
2703     }
2704     SET_EXPECT(OnChanged_READYSTATE);
2705     SET_EXPECT(Exec_ShellDocView_84);
2706     SET_EXPECT(IsSystemMoniker);
2707     if(mon == &Moniker)
2708         SET_EXPECT(BindToStorage);
2709     SET_EXPECT(SetActiveObject);
2710     if(set_clientsite) {
2711         SET_EXPECT(Invoke_AMBIENT_SILENT);
2712         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2713         SET_EXPECT(Exec_ShellDocView_37);
2714     }
2715     load_state = LD_DOLOAD;
2716     expect_LockContainer_fLock = TRUE;
2717     readystate_set_loading = TRUE;
2718
2719     hres = IPersistMoniker_Load(persist, FALSE, mon, bind, 0x12);
2720     ok(hres == S_OK, "Load failed: %08x\n", hres);
2721
2722     if(mon == &Moniker)
2723         CHECK_CALLED(GetDisplayName);
2724     if(!set_clientsite) {
2725         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2726         CHECK_CALLED(GetHostInfo);
2727         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2728         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2729         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2730         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2731         CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2732         CHECK_CALLED(GetOptionKeyPath);
2733         CHECK_CALLED(GetOverrideKeyPath);
2734         CHECK_CALLED(GetWindow);
2735         CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2736         CHECK_CALLED(Exec_SETPROGRESSMAX);
2737         CHECK_CALLED(Exec_SETPROGRESSPOS);
2738         CHECK_CALLED(Exec_ShellDocView_37);
2739     }
2740     if(!container_locked) {
2741         CHECK_CALLED(GetContainer);
2742         CHECK_CALLED(LockContainer);
2743         container_locked = TRUE;
2744     }
2745     CHECK_CALLED(OnChanged_READYSTATE);
2746     SET_CALLED(IsSystemMoniker); /* IE7 */
2747     SET_CALLED(Exec_ShellDocView_84);
2748     if(mon == &Moniker)
2749         CHECK_CALLED(BindToStorage);
2750     SET_CALLED(SetActiveObject); /* FIXME */
2751     if(set_clientsite) {
2752         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2753         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2754         CHECK_CALLED(Exec_ShellDocView_37);
2755     }
2756
2757     set_clientsite = container_locked = TRUE;
2758
2759     test_GetCurMoniker((IUnknown*)persist, mon, NULL);
2760
2761     IBindCtx_Release(bind);
2762
2763     test_readyState((IUnknown*)persist);
2764 }
2765
2766 #define DWL_VERBDONE  0x0001
2767 #define DWL_CSS       0x0002
2768 #define DWL_TRYCSS    0x0004
2769 #define DWL_HTTP      0x0008
2770
2771 static void test_download(DWORD flags)
2772 {
2773     HWND hwnd;
2774     MSG msg;
2775
2776     hwnd = FindWindowA("Internet Explorer_Hidden", NULL);
2777     ok(hwnd != NULL, "Could not find hidden window\n");
2778
2779     test_readyState(NULL);
2780
2781     if(flags & (DWL_VERBDONE|DWL_HTTP))
2782         SET_EXPECT(Exec_SETPROGRESSMAX);
2783     if((flags & DWL_VERBDONE) && !load_from_stream)
2784         SET_EXPECT(GetHostInfo);
2785     SET_EXPECT(SetStatusText);
2786     SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2787     SET_EXPECT(GetDropTarget);
2788     if(flags & DWL_TRYCSS)
2789         SET_EXPECT(Exec_ShellDocView_84);
2790     if(flags & DWL_CSS) {
2791         SET_EXPECT(CreateInstance);
2792         SET_EXPECT(Start);
2793         SET_EXPECT(LockRequest);
2794         SET_EXPECT(Terminate);
2795         SET_EXPECT(Protocol_Read);
2796         SET_EXPECT(UnlockRequest);
2797     }
2798     SET_EXPECT(Exec_Explorer_69);
2799     SET_EXPECT(EnableModeless_TRUE); /* IE7 */
2800     SET_EXPECT(Frame_EnableModeless_TRUE); /* IE7 */
2801     SET_EXPECT(EnableModeless_FALSE); /* IE7 */
2802     SET_EXPECT(Frame_EnableModeless_FALSE); /* IE7 */
2803     if(doc_mon != &Moniker) {
2804         SET_EXPECT(OnChanged_1012);
2805         SET_EXPECT(Exec_HTTPEQUIV);
2806         SET_EXPECT(Exec_SETTITLE);
2807     }
2808     SET_EXPECT(OnChanged_1005);
2809     SET_EXPECT(OnChanged_READYSTATE);
2810     SET_EXPECT(Exec_SETPROGRESSPOS);
2811     SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2812     SET_EXPECT(Exec_ShellDocView_103);
2813     SET_EXPECT(Exec_ShellDocView_105);
2814     SET_EXPECT(Exec_MSHTML_PARSECOMPLETE);
2815     SET_EXPECT(Exec_HTTPEQUIV_DONE);
2816     SET_EXPECT(SetStatusText);
2817     expect_status_text = (LPWSTR)0xdeadbeef; /* TODO */
2818
2819     while(!called_Exec_HTTPEQUIV_DONE && GetMessage(&msg, NULL, 0, 0)) {
2820         TranslateMessage(&msg);
2821         DispatchMessage(&msg);
2822     }
2823
2824     if(flags & DWL_VERBDONE)
2825         CHECK_CALLED(Exec_SETPROGRESSMAX);
2826     if(flags & DWL_HTTP)
2827         SET_CALLED(Exec_SETPROGRESSMAX);
2828     if((flags & DWL_VERBDONE) && !load_from_stream)
2829         CHECK_CALLED(GetHostInfo);
2830     CHECK_CALLED(SetStatusText);
2831     CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2832     CHECK_CALLED(GetDropTarget);
2833     if(flags & DWL_TRYCSS)
2834         SET_CALLED(Exec_ShellDocView_84);
2835     if(flags & DWL_CSS) {
2836         if(called_CreateInstance) {
2837             CHECK_CALLED(CreateInstance);
2838             CHECK_CALLED(Start);
2839             CHECK_CALLED(LockRequest);
2840             CHECK_CALLED(Terminate);
2841             CHECK_CALLED(Protocol_Read);
2842             CHECK_CALLED(UnlockRequest);
2843         }else {
2844             skip("CreateInstance not called. Assuming no Gecko installed.\n");
2845
2846             SET_CALLED(Exec_ShellDocView_84);
2847             SET_CALLED(CreateInstance);
2848             SET_CALLED(Start);
2849             SET_CALLED(LockRequest);
2850             SET_CALLED(Terminate);
2851             SET_CALLED(Protocol_Read);
2852             SET_CALLED(UnlockRequest);
2853
2854             nogecko = TRUE;
2855         }
2856     }
2857     SET_CALLED(Exec_Explorer_69);
2858     SET_CALLED(EnableModeless_TRUE); /* IE7 */
2859     SET_CALLED(Frame_EnableModeless_TRUE); /* IE7 */
2860     SET_CALLED(EnableModeless_FALSE); /* IE7 */
2861     SET_CALLED(Frame_EnableModeless_FALSE); /* IE7 */
2862     if(doc_mon != &Moniker) todo_wine {
2863         CHECK_CALLED(OnChanged_1012);
2864         CHECK_CALLED(Exec_HTTPEQUIV);
2865         CHECK_CALLED(Exec_SETTITLE);
2866     }
2867     CHECK_CALLED(OnChanged_1005);
2868     CHECK_CALLED(OnChanged_READYSTATE);
2869     CHECK_CALLED(Exec_SETPROGRESSPOS);
2870     CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2871     SET_CALLED(Exec_ShellDocView_103);
2872     SET_CALLED(Exec_ShellDocView_105);
2873     CHECK_CALLED(Exec_MSHTML_PARSECOMPLETE);
2874     CHECK_CALLED(Exec_HTTPEQUIV_DONE);
2875     SET_CALLED(SetStatusText);
2876
2877     load_state = LD_COMPLETE;
2878
2879     test_readyState(NULL);
2880 }
2881
2882 static void test_Persist(IUnknown *unk, IMoniker *mon)
2883 {
2884     IPersistMoniker *persist_mon;
2885     IPersistFile *persist_file;
2886     GUID guid;
2887     HRESULT hres;
2888
2889     hres = IUnknown_QueryInterface(unk, &IID_IPersistFile, (void**)&persist_file);
2890     ok(hres == S_OK, "QueryInterface(IID_IPersist) failed: %08x\n", hres);
2891     if(SUCCEEDED(hres)) {
2892         hres = IPersist_GetClassID(persist_file, NULL);
2893         ok(hres == E_INVALIDARG, "GetClassID returned: %08x, expected E_INVALIDARG\n", hres);
2894
2895         hres = IPersist_GetClassID(persist_file, &guid);
2896         ok(hres == S_OK, "GetClassID failed: %08x\n", hres);
2897         ok(IsEqualGUID(&CLSID_HTMLDocument, &guid), "guid != CLSID_HTMLDocument\n");
2898
2899         IPersist_Release(persist_file);
2900     }
2901
2902     hres = IUnknown_QueryInterface(unk, &IID_IPersistMoniker, (void**)&persist_mon);
2903     ok(hres == S_OK, "QueryInterface(IID_IPersistMoniker) failed: %08x\n", hres);
2904     if(SUCCEEDED(hres)) {
2905         hres = IPersistMoniker_GetClassID(persist_mon, NULL);
2906         ok(hres == E_INVALIDARG, "GetClassID returned: %08x, expected E_INVALIDARG\n", hres);
2907
2908         hres = IPersistMoniker_GetClassID(persist_mon, &guid);
2909         ok(hres == S_OK, "GetClassID failed: %08x\n", hres);
2910         ok(IsEqualGUID(&CLSID_HTMLDocument, &guid), "guid != CLSID_HTMLDocument\n");
2911
2912         if(load_state == LD_DOLOAD)
2913             test_Load(persist_mon, mon);
2914
2915         test_readyState(unk);
2916
2917         IPersistMoniker_Release(persist_mon);
2918     }
2919 }
2920
2921 static const OLECMDF expect_cmds[OLECMDID_GETPRINTTEMPLATE+1] = {
2922     0,
2923     OLECMDF_SUPPORTED,                  /* OLECMDID_OPEN */
2924     OLECMDF_SUPPORTED,                  /* OLECMDID_NEW */
2925     OLECMDF_SUPPORTED,                  /* OLECMDID_SAVE */
2926     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_SAVEAS */
2927     OLECMDF_SUPPORTED,                  /* OLECMDID_SAVECOPYAS */
2928     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PRINT */
2929     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PRINTPREVIEW */
2930     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PAGESETUP */
2931     OLECMDF_SUPPORTED,                  /* OLECMDID_SPELL */
2932     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PROPERTIES */
2933     OLECMDF_SUPPORTED,                  /* OLECMDID_CUT */
2934     OLECMDF_SUPPORTED,                  /* OLECMDID_COPY */
2935     OLECMDF_SUPPORTED,                  /* OLECMDID_PASTE */
2936     OLECMDF_SUPPORTED,                  /* OLECMDID_PASTESPECIAL */
2937     OLECMDF_SUPPORTED,                  /* OLECMDID_UNDO */
2938     OLECMDF_SUPPORTED,                  /* OLECMDID_REDO */
2939     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_SELECTALL */
2940     OLECMDF_SUPPORTED,                  /* OLECMDID_CLEARSELECTION */
2941     OLECMDF_SUPPORTED,                  /* OLECMDID_ZOOM */
2942     OLECMDF_SUPPORTED,                  /* OLECMDID_GETZOOMRANGE */
2943     0,
2944     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_REFRESH */
2945     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_STOP */
2946     0,0,0,0,0,0,
2947     OLECMDF_SUPPORTED,                  /* OLECMDID_STOPDOWNLOAD */
2948     0,0,
2949     OLECMDF_SUPPORTED,                  /* OLECMDID_DELETE */
2950     0,0,
2951     OLECMDF_SUPPORTED,                  /* OLECMDID_ENABLE_INTERACTION */
2952     OLECMDF_SUPPORTED,                  /* OLECMDID_ONUNLOAD */
2953     0,0,0,0,0,
2954     OLECMDF_SUPPORTED,                  /* OLECMDID_SHOWPAGESETUP */
2955     OLECMDF_SUPPORTED,                  /* OLECMDID_SHOWPRINT */
2956     0,0,
2957     OLECMDF_SUPPORTED,                  /* OLECMDID_CLOSE */
2958     0,0,0,
2959     OLECMDF_SUPPORTED,                  /* OLECMDID_SETPRINTTEMPLATE */
2960     OLECMDF_SUPPORTED                   /* OLECMDID_GETPRINTTEMPLATE */
2961 };
2962
2963 #define test_QueryStatus(u,cgid,cmdid,cmdf) _test_QueryStatus(__LINE__,u,cgid,cmdid,cmdf)
2964 static void _test_QueryStatus(unsigned line, IUnknown *unk, REFIID cgid, ULONG cmdid, DWORD cmdf)
2965 {
2966     IOleCommandTarget *cmdtrg;
2967     OLECMD olecmd = {cmdid, 0};
2968     HRESULT hres;
2969
2970     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2971     ok_(__FILE__,line) (hres == S_OK, "QueryInterface(IID_IOleCommandTarget failed: %08x\n", hres);
2972     if(FAILED(hres))
2973         return;
2974
2975     hres = IOleCommandTarget_QueryStatus(cmdtrg, cgid, 1, &olecmd, NULL);
2976     ok(hres == S_OK, "QueryStatus(%u) failed: %08x\n", cmdid, hres);
2977
2978     IOleCommandTarget_Release(cmdtrg);
2979
2980     ok_(__FILE__,line) (olecmd.cmdID == cmdid, "cmdID changed\n");
2981     ok_(__FILE__,line) (olecmd.cmdf == cmdf, "(%u) cmdf=%08x, expected %08x\n", cmdid, olecmd.cmdf, cmdf);
2982 }
2983
2984 static void test_MSHTML_QueryStatus(IUnknown *unk, DWORD cmdf)
2985 {
2986     if(!unk)
2987         unk = doc_unk;
2988
2989     test_QueryStatus(unk, &CGID_MSHTML, IDM_FONTNAME, cmdf);
2990     test_QueryStatus(unk, &CGID_MSHTML, IDM_FONTSIZE, cmdf);
2991     test_QueryStatus(unk, &CGID_MSHTML, IDM_SELECTALL, cmdf|OLECMDF_ENABLED);
2992     test_QueryStatus(unk, &CGID_MSHTML, IDM_BOLD, cmdf);
2993     test_QueryStatus(unk, &CGID_MSHTML, IDM_FORECOLOR, cmdf);
2994     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYCENTER, cmdf);
2995     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYLEFT, cmdf);
2996     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT, cmdf);
2997     test_QueryStatus(unk, &CGID_MSHTML, IDM_ITALIC, cmdf);
2998     test_QueryStatus(unk, &CGID_MSHTML, IDM_UNDERLINE, cmdf);
2999     test_QueryStatus(unk, &CGID_MSHTML, IDM_HORIZONTALLINE, cmdf);
3000     test_QueryStatus(unk, &CGID_MSHTML, IDM_ORDERLIST, cmdf);
3001     test_QueryStatus(unk, &CGID_MSHTML, IDM_UNORDERLIST, cmdf);
3002     test_QueryStatus(unk, &CGID_MSHTML, IDM_INDENT, cmdf);
3003     test_QueryStatus(unk, &CGID_MSHTML, IDM_OUTDENT, cmdf);
3004     test_QueryStatus(unk, &CGID_MSHTML, IDM_DELETE, cmdf);
3005 }
3006
3007 static void test_OleCommandTarget(IUnknown *unk)
3008 {
3009     IOleCommandTarget *cmdtrg;
3010     OLECMD cmds[OLECMDID_GETPRINTTEMPLATE];
3011     int i;
3012     HRESULT hres;
3013
3014     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3015     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget failed: %08x\n", hres);
3016     if(FAILED(hres))
3017         return;
3018
3019     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
3020         cmds[i].cmdID = i+1;
3021         cmds[i].cmdf = 0xf0f0;
3022     }
3023
3024     SET_EXPECT(QueryStatus_OPEN);
3025     SET_EXPECT(QueryStatus_NEW);
3026     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, sizeof(cmds)/sizeof(cmds[0]), cmds, NULL);
3027     ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
3028     CHECK_CALLED(QueryStatus_OPEN);
3029     CHECK_CALLED(QueryStatus_NEW);
3030
3031     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
3032         ok(cmds[i].cmdID == i+1, "cmds[%d].cmdID canged to %x\n", i, cmds[i].cmdID);
3033         if(i+1 == OLECMDID_FIND)
3034             continue;
3035         ok(cmds[i].cmdf == expect_cmds[i+1], "cmds[%d].cmdf=%x, expected %x\n",
3036                 i+1, cmds[i].cmdf, expect_cmds[i+1]);
3037     }
3038
3039     ok(!cmds[OLECMDID_FIND-1].cmdf || cmds[OLECMDID_FIND-1].cmdf == (OLECMDF_SUPPORTED|OLECMDF_ENABLED),
3040        "cmds[OLECMDID_FIND].cmdf=%x\n", cmds[OLECMDID_FIND-1].cmdf);
3041
3042     IOleCommandTarget_Release(cmdtrg);
3043 }
3044
3045 static void test_OleCommandTarget_fail(IUnknown *unk)
3046 {
3047     IOleCommandTarget *cmdtrg;
3048     int i;
3049     HRESULT hres;
3050
3051     OLECMD cmd[2] = {
3052         {OLECMDID_OPEN, 0xf0f0},
3053         {OLECMDID_GETPRINTTEMPLATE+1, 0xf0f0}
3054     };
3055
3056     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3057     ok(hres == S_OK, "QueryInterface(IIDIOleCommandTarget failed: %08x\n", hres);
3058     if(FAILED(hres))
3059         return;
3060
3061     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 0, NULL, NULL);
3062     ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
3063
3064     SET_EXPECT(QueryStatus_OPEN);
3065     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmd, NULL);
3066     CHECK_CALLED(QueryStatus_OPEN);
3067
3068     ok(hres == OLECMDERR_E_NOTSUPPORTED,
3069             "QueryStatus failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
3070     ok(cmd[1].cmdID == OLECMDID_GETPRINTTEMPLATE+1,
3071             "cmd[0].cmdID=%d, expected OLECMDID_GETPRINTTEMPLATE+1\n", cmd[0].cmdID);
3072     ok(cmd[1].cmdf == 0, "cmd[0].cmdf=%x, expected 0\n", cmd[0].cmdf);
3073     ok(cmd[0].cmdf == OLECMDF_SUPPORTED,
3074             "cmd[1].cmdf=%x, expected OLECMDF_SUPPORTED\n", cmd[1].cmdf);
3075
3076     hres = IOleCommandTarget_QueryStatus(cmdtrg, &IID_IHTMLDocument2, 2, cmd, NULL);
3077     ok(hres == OLECMDERR_E_UNKNOWNGROUP,
3078             "QueryStatus failed: %08x, expected OLECMDERR_E_UNKNOWNGROUP\n", hres);
3079
3080     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
3081         if(!expect_cmds[i]) {
3082             hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_UPDATECOMMANDS,
3083                     OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3084             ok(hres == OLECMDERR_E_NOTSUPPORTED,
3085                     "Exec failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
3086         }
3087     }
3088
3089     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_GETPRINTTEMPLATE+1,
3090             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3091     ok(hres == OLECMDERR_E_NOTSUPPORTED,
3092             "Exec failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
3093
3094     IOleCommandTarget_Release(cmdtrg);
3095 }
3096
3097 static void test_exec_onunload(IUnknown *unk)
3098 {
3099     IOleCommandTarget *cmdtrg;
3100     VARIANT var;
3101     HRESULT hres;
3102
3103     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3104     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
3105     if(FAILED(hres))
3106         return;
3107
3108     memset(&var, 0x0a, sizeof(var));
3109     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_ONUNLOAD,
3110             OLECMDEXECOPT_DODEFAULT, NULL, &var);
3111     ok(hres == S_OK, "Exec(..., OLECMDID_ONUNLOAD, ...) failed: %08x\n", hres);
3112     ok(V_VT(&var) == VT_BOOL, "V_VT(var)=%d, expected VT_BOOL\n", V_VT(&var));
3113     ok(V_BOOL(&var) == VARIANT_TRUE, "V_BOOL(var)=%x, expected VARIANT_TRUE\n", V_BOOL(&var));
3114
3115     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_ONUNLOAD,
3116             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3117     ok(hres == S_OK, "Exec(..., OLECMDID_ONUNLOAD, ...) failed: %08x\n", hres);
3118
3119     IOleCommandTarget_Release(cmdtrg);
3120 }
3121
3122 static void test_exec_editmode(IUnknown *unk, BOOL loaded)
3123 {
3124     IOleCommandTarget *cmdtrg;
3125     HRESULT hres;
3126
3127     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3128     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
3129     if(FAILED(hres))
3130         return;
3131
3132     editmode = TRUE;
3133
3134     if(loaded)
3135         load_state = LD_DOLOAD;
3136
3137     if(loaded)
3138         SET_EXPECT(GetClassID);
3139     SET_EXPECT(SetStatusText);
3140     SET_EXPECT(Exec_ShellDocView_37);
3141     SET_EXPECT(GetHostInfo);
3142     if(loaded)
3143         SET_EXPECT(GetDisplayName);
3144     SET_EXPECT(Invoke_AMBIENT_SILENT);
3145     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3146     SET_EXPECT(OnChanged_READYSTATE);
3147     SET_EXPECT(IsSystemMoniker);
3148     SET_EXPECT(Exec_ShellDocView_84);
3149     if(loaded)
3150         SET_EXPECT(BindToStorage);
3151     SET_EXPECT(InPlaceUIWindow_SetActiveObject);
3152     SET_EXPECT(HideUI);
3153     SET_EXPECT(ShowUI);
3154     SET_EXPECT(InPlaceFrame_SetBorderSpace);
3155
3156     expect_status_text = NULL;
3157     readystate_set_loading = TRUE;
3158
3159     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_EDITMODE,
3160             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3161     ok(hres == S_OK, "Exec failed: %08x\n", hres);
3162
3163     if(loaded)
3164         CHECK_CALLED(GetClassID);
3165     CHECK_CALLED(SetStatusText);
3166     CHECK_CALLED(Exec_ShellDocView_37);
3167     CHECK_CALLED(GetHostInfo);
3168     if(loaded)
3169         CHECK_CALLED(GetDisplayName);
3170     CHECK_CALLED(Invoke_AMBIENT_SILENT);
3171     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3172     CHECK_CALLED(OnChanged_READYSTATE);
3173     SET_CALLED(IsSystemMoniker); /* IE7 */
3174     SET_CALLED(Exec_ShellDocView_84);
3175     if(loaded)
3176         CHECK_CALLED(BindToStorage);
3177     CHECK_CALLED(InPlaceUIWindow_SetActiveObject);
3178     CHECK_CALLED(HideUI);
3179     CHECK_CALLED(ShowUI);
3180     CHECK_CALLED(InPlaceFrame_SetBorderSpace);
3181
3182     test_timer(EXPECT_UPDATEUI|EXPECT_SETTITLE);
3183
3184     IOleCommandTarget_Release(cmdtrg);
3185
3186     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_EDITMODE,
3187             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3188     ok(hres == S_OK, "Exec failed: %08x\n", hres);
3189 }
3190
3191 static void test_exec_fontname(IUnknown *unk, LPCWSTR name, LPCWSTR exname)
3192 {
3193    IOleCommandTarget *cmdtrg;
3194    VARIANT *in = NULL, _in, *out = NULL, _out;
3195    HRESULT hres;
3196
3197    hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3198    ok(hres == S_OK, "QueryInterface(IIDIOleM=CommandTarget failed: %08x\n", hres);
3199    if(FAILED(hres))
3200        return;
3201
3202    if(name) {
3203        in = &_in;
3204        V_VT(in) = VT_BSTR;
3205        V_BSTR(in) = SysAllocString(name);
3206    }
3207
3208    if(exname) {
3209        out = &_out;
3210        V_VT(out) = VT_I4;
3211        V_I4(out) = 0xdeadbeef;
3212    }
3213
3214    hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_FONTNAME, 0, in, out);
3215    if(!nogecko)
3216        ok(hres == S_OK, "Exec(IDM_FONTNAME) failed: %08x\n", hres);
3217
3218    if(in)
3219        VariantClear(in);
3220
3221    if(out && !nogecko) {
3222        ok(V_VT(out) == VT_BSTR, "V_VT(out) = %x\n", V_VT(out));
3223        if(V_VT(out) == VT_BSTR) {
3224            if(exname)
3225                ok(!lstrcmpW(V_BSTR(out), name ? name : exname),
3226                   "unexpected fontname %s\n", wine_dbgstr_w(name));
3227            else
3228                ok(V_BSTR(out) == NULL, "V_BSTR(out) != NULL\n");
3229        }
3230        VariantClear(out);
3231    }
3232
3233    IOleCommandTarget_Release(cmdtrg);
3234 }
3235
3236 static void test_exec_noargs(IUnknown *unk, DWORD cmdid)
3237 {
3238     IOleCommandTarget *cmdtrg;
3239     HRESULT hres;
3240
3241     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
3242     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
3243     if(FAILED(hres))
3244         return;
3245
3246     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, cmdid,
3247             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
3248     ok(hres == S_OK, "Exec failed: %08x\n", hres);
3249
3250     IOleCommandTarget_Release(cmdtrg);
3251 }
3252
3253 static void test_IsDirty(IUnknown *unk, HRESULT exhres)
3254 {
3255     IPersistStreamInit *perinit;
3256     IPersistMoniker *permon;
3257     IPersistFile *perfile;
3258     HRESULT hres;
3259
3260     hres = IUnknown_QueryInterface(unk, &IID_IPersistStreamInit, (void**)&perinit);
3261     ok(hres == S_OK, "QueryInterface(IID_IPersistStreamInit failed: %08x\n", hres);
3262     if(SUCCEEDED(hres)) {
3263         hres = IPersistStreamInit_IsDirty(perinit);
3264         ok(hres == exhres, "IsDirty() = %08x, expected %08x\n", hres, exhres);
3265         IPersistStreamInit_Release(perinit);
3266     }
3267
3268     hres = IUnknown_QueryInterface(unk, &IID_IPersistMoniker, (void**)&permon);
3269     ok(hres == S_OK, "QueryInterface(IID_IPersistMoniker failed: %08x\n", hres);
3270     if(SUCCEEDED(hres)) {
3271         hres = IPersistMoniker_IsDirty(permon);
3272         ok(hres == exhres, "IsDirty() = %08x, expected %08x\n", hres, exhres);
3273         IPersistMoniker_Release(permon);
3274     }
3275
3276     hres = IUnknown_QueryInterface(unk, &IID_IPersistFile, (void**)&perfile);
3277     ok(hres == S_OK, "QueryInterface(IID_IPersistFile failed: %08x\n", hres);
3278     if(SUCCEEDED(hres)) {
3279         hres = IPersistFile_IsDirty(perfile);
3280         ok(hres == exhres, "IsDirty() = %08x, expected %08x\n", hres, exhres);
3281         IPersistFile_Release(perfile);
3282     }
3283 }
3284
3285 static HWND create_container_window(void)
3286 {
3287     static const WCHAR wszHTMLDocumentTest[] =
3288         {'H','T','M','L','D','o','c','u','m','e','n','t','T','e','s','t',0};
3289     static WNDCLASSEXW wndclass = {
3290         sizeof(WNDCLASSEXW),
3291         0,
3292         wnd_proc,
3293         0, 0, NULL, NULL, NULL, NULL, NULL,
3294         wszHTMLDocumentTest,
3295         NULL
3296     };
3297
3298     RegisterClassExW(&wndclass);
3299     return CreateWindowW(wszHTMLDocumentTest, wszHTMLDocumentTest,
3300             WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT,
3301             515, 530, NULL, NULL, NULL, NULL);
3302 }
3303
3304 static void test_DoVerb(IOleObject *oleobj)
3305 {
3306     RECT rect = {0,0,500,500};
3307     HRESULT hres;
3308
3309     if(!container_locked) {
3310         SET_EXPECT(GetContainer);
3311         SET_EXPECT(LockContainer);
3312     }
3313     SET_EXPECT(ActivateMe);
3314     expect_LockContainer_fLock = TRUE;
3315
3316     hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite, -1, container_hwnd, &rect);
3317     ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
3318
3319     if(!container_locked) {
3320         CHECK_CALLED(GetContainer);
3321         CHECK_CALLED(LockContainer);
3322         container_locked = TRUE;
3323     }
3324     CHECK_CALLED(ActivateMe);
3325 }
3326
3327 #define CLIENTSITE_EXPECTPATH 0x00000001
3328 #define CLIENTSITE_SETNULL    0x00000002
3329 #define CLIENTSITE_DONTSET    0x00000004
3330
3331 static void test_ClientSite(IOleObject *oleobj, DWORD flags)
3332 {
3333     IOleClientSite *clientsite;
3334     HRESULT hres;
3335
3336     if(flags & CLIENTSITE_SETNULL) {
3337         hres = IOleObject_GetClientSite(oleobj, &clientsite);
3338         ok(clientsite == &ClientSite, "clientsite=%p, expected %p\n", clientsite, &ClientSite);
3339
3340         hres = IOleObject_SetClientSite(oleobj, NULL);
3341         ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
3342
3343         set_clientsite = FALSE;
3344     }
3345
3346     if(flags & CLIENTSITE_DONTSET)
3347         return;
3348
3349     hres = IOleObject_GetClientSite(oleobj, &clientsite);
3350     ok(hres == S_OK, "GetClientSite failed: %08x\n", hres);
3351     ok(clientsite == (set_clientsite ? &ClientSite : NULL), "GetClientSite() = %p, expected %p\n",
3352             clientsite, set_clientsite ? &ClientSite : NULL);
3353
3354     if(!set_clientsite) {
3355         SET_EXPECT(GetHostInfo);
3356         if(flags & CLIENTSITE_EXPECTPATH) {
3357             SET_EXPECT(GetOptionKeyPath);
3358             SET_EXPECT(GetOverrideKeyPath);
3359         }
3360         SET_EXPECT(GetWindow);
3361         SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
3362         SET_EXPECT(Exec_SETPROGRESSMAX);
3363         SET_EXPECT(Exec_SETPROGRESSPOS);
3364         SET_EXPECT(Invoke_AMBIENT_USERMODE);
3365         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
3366         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3367         SET_EXPECT(Invoke_AMBIENT_SILENT);
3368         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
3369         SET_EXPECT(Invoke_AMBIENT_PALETTE);
3370
3371         hres = IOleObject_SetClientSite(oleobj, &ClientSite);
3372         ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
3373
3374         CHECK_CALLED(GetHostInfo);
3375         if(flags & CLIENTSITE_EXPECTPATH) {
3376             CHECK_CALLED(GetOptionKeyPath);
3377             CHECK_CALLED(GetOverrideKeyPath);
3378         }
3379         CHECK_CALLED(GetWindow);
3380         CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
3381         CHECK_CALLED(Exec_SETPROGRESSMAX);
3382         CHECK_CALLED(Exec_SETPROGRESSPOS);
3383         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
3384         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
3385         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3386         CHECK_CALLED(Invoke_AMBIENT_SILENT);
3387         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
3388         CHECK_CALLED(Invoke_AMBIENT_PALETTE);
3389
3390         set_clientsite = TRUE;
3391     }
3392
3393     hres = IOleObject_SetClientSite(oleobj, &ClientSite);
3394     ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
3395
3396     hres = IOleObject_GetClientSite(oleobj, &clientsite);
3397     ok(hres == S_OK, "GetClientSite failed: %08x\n", hres);
3398     ok(clientsite == &ClientSite, "GetClientSite() = %p, expected %p\n", clientsite, &ClientSite);
3399 }
3400
3401 static void test_OnAmbientPropertyChange(IUnknown *unk)
3402 {
3403     IOleControl *control = NULL;
3404     HRESULT hres;
3405
3406     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
3407     ok(hres == S_OK, "QueryInterface(IID_IOleControl failed: %08x\n", hres);
3408     if(FAILED(hres))
3409         return;
3410
3411     SET_EXPECT(Invoke_AMBIENT_USERMODE);
3412     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_USERMODE);
3413     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3414     CHECK_CALLED(Invoke_AMBIENT_USERMODE);
3415
3416     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
3417     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_DLCONTROL);
3418     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3419     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
3420
3421     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
3422     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3423     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
3424     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3425     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
3426     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3427
3428     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
3429     SET_EXPECT(Invoke_AMBIENT_SILENT);
3430     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
3431     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3432     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
3433     CHECK_CALLED(Invoke_AMBIENT_SILENT);
3434
3435     SET_EXPECT(Invoke_AMBIENT_USERAGENT);
3436     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_USERAGENT);
3437     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3438     CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
3439
3440     SET_EXPECT(Invoke_AMBIENT_PALETTE);
3441     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_PALETTE);
3442     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
3443     CHECK_CALLED(Invoke_AMBIENT_PALETTE);
3444
3445     IOleControl_Release(control);
3446 }
3447
3448
3449
3450 static void test_OnAmbientPropertyChange2(IUnknown *unk)
3451 {
3452     IOleControl *control = NULL;
3453     HRESULT hres;
3454
3455     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
3456     ok(hres == S_OK, "QueryInterface(IID_IOleControl failed: %08x\n", hres);
3457     if(FAILED(hres))
3458         return;
3459
3460     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_PALETTE);
3461     ok(hres == S_OK, "OnAmbientPropertyChange failed: %08x\n", hres);
3462
3463     IOleControl_Release(control);
3464 }
3465
3466 static void test_Close(IUnknown *unk, BOOL set_client)
3467 {
3468     IOleObject *oleobj = NULL;
3469     HRESULT hres;
3470
3471     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
3472     ok(hres == S_OK, "QueryInterface(IID_IOleObject) failed: %08x\n", hres);
3473     if(FAILED(hres))
3474         return;
3475
3476     SET_EXPECT(GetContainer);
3477     SET_EXPECT(LockContainer);
3478     expect_LockContainer_fLock = FALSE;
3479     hres = IOleObject_Close(oleobj, OLECLOSE_NOSAVE);
3480     ok(hres == S_OK, "Close failed: %08x\n", hres);
3481     CHECK_CALLED(GetContainer);
3482     CHECK_CALLED(LockContainer);
3483     container_locked = FALSE;
3484
3485     if(set_client)
3486         test_ClientSite(oleobj, CLIENTSITE_SETNULL|CLIENTSITE_DONTSET);
3487
3488     IOleObject_Release(oleobj);
3489 }
3490
3491 static void test_OnFrameWindowActivate(IUnknown *unk)
3492 {
3493     IOleInPlaceActiveObject *inplaceact;
3494     HRESULT hres;
3495
3496     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&inplaceact);
3497     ok(hres == S_OK, "QueryInterface(IID_IOleInPlaceActiveObject) failed: %08x\n", hres);
3498     if(FAILED(hres))
3499         return;
3500
3501     if(set_clientsite) {
3502         expect_OnFrameWindowActivate_fActivate = TRUE;
3503         SET_EXPECT(OnFrameWindowActivate);
3504         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
3505         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3506         CHECK_CALLED(OnFrameWindowActivate);
3507
3508         SET_EXPECT(OnFrameWindowActivate);
3509         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
3510         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3511         CHECK_CALLED(OnFrameWindowActivate);
3512
3513         expect_OnFrameWindowActivate_fActivate = FALSE;
3514         SET_EXPECT(OnFrameWindowActivate);
3515         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, FALSE);
3516         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3517         CHECK_CALLED(OnFrameWindowActivate);
3518
3519         expect_OnFrameWindowActivate_fActivate = TRUE;
3520         SET_EXPECT(OnFrameWindowActivate);
3521         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
3522         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3523         CHECK_CALLED(OnFrameWindowActivate);
3524     }else {
3525         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, FALSE);
3526         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3527
3528         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
3529         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
3530     }
3531
3532     IOleInPlaceActiveObject_Release(inplaceact);
3533 }
3534
3535 static void test_InPlaceDeactivate(IUnknown *unk, BOOL expect_call)
3536 {
3537     IOleInPlaceObjectWindowless *windowlessobj = NULL;
3538     HRESULT hres;
3539
3540     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceObjectWindowless,
3541             (void**)&windowlessobj);
3542     ok(hres == S_OK, "QueryInterface(IID_IOleInPlaceObjectWindowless) failed: %08x\n", hres);
3543     if(FAILED(hres))
3544         return;
3545
3546     if(expect_call) {
3547         SET_EXPECT(OnFocus_FALSE);
3548         if(ipsex)
3549             SET_EXPECT(OnInPlaceDeactivateEx);
3550         else
3551             SET_EXPECT(OnInPlaceDeactivate);
3552     }
3553     hres = IOleInPlaceObjectWindowless_InPlaceDeactivate(windowlessobj);
3554     ok(hres == S_OK, "InPlaceDeactivate failed: %08x\n", hres);
3555     if(expect_call) {
3556         CHECK_CALLED(OnFocus_FALSE);
3557         if(ipsex)
3558             CHECK_CALLED(OnInPlaceDeactivateEx);
3559         else
3560             CHECK_CALLED(OnInPlaceDeactivate);
3561     }
3562
3563     IOleInPlaceObjectWindowless_Release(windowlessobj);
3564 }
3565
3566 static void test_Activate(IUnknown *unk, DWORD flags)
3567 {
3568     IOleObject *oleobj = NULL;
3569     IOleDocumentView *docview;
3570     GUID guid;
3571     HRESULT hres;
3572
3573     last_hwnd = hwnd;
3574
3575     if(view)
3576         IOleDocumentView_Release(view);
3577     view = NULL;
3578
3579     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
3580     ok(hres == S_OK, "QueryInterface(IID_IOleObject) failed: %08x\n", hres);
3581
3582     hres = IOleObject_GetUserClassID(oleobj, NULL);
3583     ok(hres == E_INVALIDARG, "GetUserClassID returned: %08x, expected E_INVALIDARG\n", hres);
3584
3585     hres = IOleObject_GetUserClassID(oleobj, &guid);
3586     ok(hres == S_OK, "GetUserClassID failed: %08x\n", hres);
3587     ok(IsEqualGUID(&guid, &CLSID_HTMLDocument), "guid != CLSID_HTMLDocument\n");
3588
3589     test_OnFrameWindowActivate(unk);
3590
3591     test_ClientSite(oleobj, flags);
3592     test_InPlaceDeactivate(unk, FALSE);
3593     test_DoVerb(oleobj);
3594
3595     if(call_UIActivate == CallUIActivate_AfterShow) {
3596         hres = IOleObject_QueryInterface(oleobj, &IID_IOleDocumentView, (void **)&docview);
3597         ok(hres == S_OK, "IOleObject_QueryInterface failed with error 0x%08x\n", hres);
3598
3599         SET_EXPECT(OnFocus_TRUE);
3600         SET_EXPECT(SetActiveObject);
3601         SET_EXPECT(ShowUI);
3602         SET_EXPECT(InPlaceUIWindow_SetActiveObject);
3603         SET_EXPECT(InPlaceFrame_SetBorderSpace);
3604         expect_status_text = NULL;
3605
3606         hres = IOleDocumentView_UIActivate(docview, TRUE);
3607         ok(hres == S_OK, "IOleDocumentView_UIActivate failed with error 0x%08x\n", hres);
3608
3609         CHECK_CALLED(OnFocus_TRUE);
3610         CHECK_CALLED(SetActiveObject);
3611         CHECK_CALLED(ShowUI);
3612         CHECK_CALLED(InPlaceUIWindow_SetActiveObject);
3613         CHECK_CALLED(InPlaceFrame_SetBorderSpace);
3614
3615         IOleDocumentView_Release(docview);
3616     }
3617
3618     IOleObject_Release(oleobj);
3619
3620     test_OnFrameWindowActivate(unk);
3621 }
3622
3623 static void test_Window(IUnknown *unk, BOOL expect_success)
3624 {
3625     IOleInPlaceActiveObject *activeobject = NULL;
3626     HWND tmp_hwnd;
3627     HRESULT hres;
3628
3629     hres = IOleDocumentView_QueryInterface(view, &IID_IOleInPlaceActiveObject, (void**)&activeobject);
3630     ok(hres == S_OK, "Could not get IOleInPlaceActiveObject interface: %08x\n", hres);
3631     if(FAILED(hres))
3632         return;
3633
3634     hres = IOleInPlaceActiveObject_GetWindow(activeobject, &tmp_hwnd);
3635
3636     if(expect_success) {
3637         ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
3638         ok(tmp_hwnd == hwnd, "tmp_hwnd=%p, expected %p\n", tmp_hwnd, hwnd);
3639     }else {
3640         ok(hres == E_FAIL, "GetWindow returned %08x, expected E_FAIL\n", hres);
3641         ok(IsWindow(hwnd), "hwnd is destroyed\n");
3642     }
3643
3644     IOleInPlaceActiveObject_Release(activeobject);
3645 }
3646
3647 static void test_CloseView(void)
3648 {
3649     IOleInPlaceSite *inplacesite = (IOleInPlaceSite*)0xff00ff00;
3650     HRESULT hres;
3651
3652     if(!view)
3653         return;
3654
3655     hres = IOleDocumentView_Show(view, FALSE);
3656     ok(hres == S_OK, "Show failed: %08x\n", hres);
3657
3658     hres = IOleDocumentView_CloseView(view, 0);
3659     ok(hres == S_OK, "CloseView failed: %08x\n", hres);
3660
3661     hres = IOleDocumentView_SetInPlaceSite(view, NULL);
3662     ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
3663
3664     hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
3665     ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
3666     ok(inplacesite == NULL, "inplacesite=%p, expected NULL\n", inplacesite);
3667 }
3668
3669 static void test_UIDeactivate(void)
3670 {
3671     HRESULT hres;
3672
3673     if(call_UIActivate == CallUIActivate_AfterShow) {
3674         SET_EXPECT(InPlaceUIWindow_SetActiveObject);
3675     }
3676     if(call_UIActivate != CallUIActivate_None) {
3677         SET_EXPECT(SetActiveObject_null);
3678         SET_EXPECT(HideUI);
3679         SET_EXPECT(OnUIDeactivate);
3680     }
3681
3682     hres = IOleDocumentView_UIActivate(view, FALSE);
3683     ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
3684
3685     if(call_UIActivate != CallUIActivate_None) {
3686         CHECK_CALLED(SetActiveObject_null);
3687         CHECK_CALLED(HideUI);
3688         CHECK_CALLED(OnUIDeactivate);
3689     }
3690     if(call_UIActivate == CallUIActivate_AfterShow) {
3691         CHECK_CALLED(InPlaceUIWindow_SetActiveObject);
3692     }
3693 }
3694
3695 static void test_Hide(void)
3696 {
3697     HRESULT hres;
3698
3699     if(!view)
3700         return;
3701
3702     hres = IOleDocumentView_Show(view, FALSE);
3703     ok(hres == S_OK, "Show failed: %08x\n", hres);
3704 }
3705
3706 static HRESULT create_document(IUnknown **unk)
3707 {
3708     IHTMLDocument5 *doc5;
3709     HRESULT hres;
3710
3711     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3712             &IID_IUnknown, (void**)unk);
3713     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
3714     if(FAILED(hres))
3715         return hres;
3716
3717     hres = IUnknown_QueryInterface(*unk, &IID_IHTMLDocument5, (void**)&doc5);
3718     if(SUCCEEDED(hres)) {
3719         IHTMLDocument5_Release(doc5);
3720     }else {
3721         win_skip("Could not get IHTMLDocument5, probably too old IE\n");
3722         IUnknown_Release(*unk);
3723     }
3724
3725     return hres;
3726 }
3727
3728 static void test_Navigate(IUnknown *unk)
3729 {
3730     IHlinkTarget *hlink;
3731     HRESULT hres;
3732
3733     hres = IUnknown_QueryInterface(unk, &IID_IHlinkTarget, (void**)&hlink);
3734     ok(hres == S_OK, "QueryInterface(IID_IHlinkTarget) failed: %08x\n", hres);
3735
3736     SET_EXPECT(ActivateMe);
3737     hres = IHlinkTarget_Navigate(hlink, 0, NULL);
3738     ok(hres == S_OK, "Navigate failed: %08x\n", hres);
3739     CHECK_CALLED(ActivateMe);
3740
3741     IHlinkTarget_Release(hlink);
3742 }
3743
3744 static void test_external(IUnknown *unk, BOOL initialized)
3745 {
3746     IDispatch *external;
3747     IHTMLDocument2 *doc;
3748     IHTMLWindow2 *htmlwin;
3749     HRESULT hres;
3750
3751     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument2, (void**)&doc);
3752     ok(hres == S_OK, "QueryInterface(IID_IHTMLWindow2) failed: %08x\n", hres);
3753
3754     hres = IHTMLDocument2_get_parentWindow(doc, &htmlwin);
3755     IHTMLDocument2_Release(doc);
3756     ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
3757
3758     if(initialized)
3759         SET_EXPECT(GetExternal);
3760     external = (void*)0xdeadbeef;
3761     hres = IHTMLWindow2_get_external(htmlwin, &external);
3762     if(initialized) {
3763         ok(hres == S_FALSE || hres == S_OK, "get_external failed: %08x\n", hres);
3764         CHECK_CALLED(GetExternal);
3765         ok(external != NULL, "external == NULL\n");
3766     }else {
3767         ok(hres == S_OK, "get_external failed: %08x\n", hres);
3768         ok(external == NULL, "external != NULL\n");
3769     }
3770
3771     IHTMLWindow2_Release(htmlwin);
3772 }
3773
3774 static void test_StreamLoad(IUnknown *unk)
3775 {
3776     IPersistStreamInit *init;
3777     HRESULT hres;
3778
3779     hres = IUnknown_QueryInterface(unk, &IID_IPersistStreamInit, (void**)&init);
3780     ok(hres == S_OK, "QueryInterface(IID_IPersistStreamInit) failed: %08x\n", hres);
3781     if(FAILED(hres))
3782         return;
3783
3784     SET_EXPECT(Invoke_AMBIENT_SILENT);
3785     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3786     SET_EXPECT(Exec_ShellDocView_37);
3787     SET_EXPECT(OnChanged_READYSTATE);
3788     SET_EXPECT(Read);
3789     readystate_set_loading = TRUE;
3790
3791     hres = IPersistStreamInit_Load(init, &Stream);
3792     ok(hres == S_OK, "Load failed: %08x\n", hres);
3793
3794     CHECK_CALLED(Invoke_AMBIENT_SILENT);
3795     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3796     CHECK_CALLED(Exec_ShellDocView_37);
3797     CHECK_CALLED(OnChanged_READYSTATE);
3798     CHECK_CALLED(Read);
3799
3800     test_timer(EXPECT_SETTITLE);
3801     test_GetCurMoniker(unk, NULL, about_blank_url);
3802
3803     IPersistStreamInit_Release(init);
3804 }
3805
3806 static void test_QueryInterface(IUnknown *unk)
3807 {
3808     IUnknown *qi;
3809     HRESULT hres;
3810
3811     static const IID IID_UndocumentedScriptIface =
3812         {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa0}};
3813
3814     qi = (void*)0xdeadbeef;
3815     hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&qi);
3816     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3817     ok(qi == NULL, "qirunnable=%p, expected NULL\n", qi);
3818
3819     qi = (void*)0xdeadbeef;
3820     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode, (void**)&qi);
3821     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3822     ok(qi == NULL, "qi=%p, expected NULL\n", qi);
3823
3824     qi = (void*)0xdeadbeef;
3825     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDOMNode2, (void**)&qi);
3826     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3827     ok(qi == NULL, "qi=%p, expected NULL\n", qi);
3828
3829     qi = (void*)0xdeadbeef;
3830     hres = IUnknown_QueryInterface(unk, &IID_IPersistPropertyBag, (void**)&qi);
3831     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3832     ok(qi == NULL, "qi=%p, expected NULL\n", qi);
3833
3834     qi = (void*)0xdeadbeef;
3835     hres = IUnknown_QueryInterface(unk, &IID_UndocumentedScriptIface, (void**)&qi);
3836     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3837     ok(qi == NULL, "qi=%p, expected NULL\n", qi);
3838
3839     qi = (void*)0xdeadbeef;
3840     hres = IUnknown_QueryInterface(unk, &IID_IMarshal, (void**)&qi);
3841     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3842     ok(qi == NULL, "qi=%p, expected NULL\n", qi);
3843 }
3844
3845 static void init_test(enum load_state_t ls) {
3846     doc_unk = NULL;
3847     hwnd = last_hwnd = NULL;
3848     set_clientsite = FALSE;
3849     load_from_stream = FALSE;
3850     call_UIActivate = CallUIActivate_None;
3851     load_state = ls;
3852     editmode = FALSE;
3853     stream_read = 0;
3854     protocol_read = 0;
3855     ipsex = FALSE;
3856 }
3857
3858 static void test_HTMLDocument(BOOL do_load)
3859 {
3860     IUnknown *unk;
3861     HRESULT hres;
3862     ULONG ref;
3863
3864     trace("Testing HTMLDocument (%s)...\n", (do_load ? "load" : "no load"));
3865
3866     init_test(do_load ? LD_DOLOAD : LD_NO);
3867
3868     hres = create_document(&unk);
3869     if(FAILED(hres))
3870         return;
3871     doc_unk = unk;
3872
3873     test_QueryInterface(unk);
3874     test_IsDirty(unk, S_FALSE);
3875     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3876     test_external(unk, FALSE);
3877     test_ConnectionPointContainer(unk);
3878     test_GetCurMoniker(unk, NULL, NULL);
3879     test_Persist(unk, &Moniker);
3880     if(!do_load)
3881         test_OnAmbientPropertyChange2(unk);
3882
3883     test_Activate(unk, CLIENTSITE_EXPECTPATH);
3884
3885     if(do_load) {
3886         test_download(DWL_CSS|DWL_TRYCSS);
3887         test_GetCurMoniker(unk, &Moniker, NULL);
3888     }
3889
3890     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3891     test_OleCommandTarget_fail(unk);
3892     test_OleCommandTarget(unk);
3893     test_OnAmbientPropertyChange(unk);
3894     test_Window(unk, TRUE);
3895     test_external(unk, TRUE);
3896
3897     test_UIDeactivate();
3898     test_OleCommandTarget(unk);
3899     test_Window(unk, TRUE);
3900     test_InPlaceDeactivate(unk, TRUE);
3901
3902     /* Calling test_OleCommandTarget here causes Segmentation Fault with native
3903      * MSHTML. It doesn't with Wine. */
3904
3905     test_Window(unk, FALSE);
3906     test_Hide();
3907     test_InPlaceDeactivate(unk, FALSE);
3908     test_CloseView();
3909     test_Close(unk, FALSE);
3910
3911     /* Activate HTMLDocument again */
3912     test_Activate(unk, CLIENTSITE_SETNULL);
3913     test_Window(unk, TRUE);
3914     test_OleCommandTarget(unk);
3915     test_UIDeactivate();
3916     test_InPlaceDeactivate(unk, TRUE);
3917     test_Close(unk, FALSE);
3918
3919     /* Activate HTMLDocument again, this time without UIActivate */
3920     call_UIActivate = CallUIActivate_None;
3921     test_Activate(unk, CLIENTSITE_SETNULL);
3922     test_Window(unk, TRUE);
3923
3924     test_UIDeactivate();
3925     test_InPlaceDeactivate(unk, TRUE);
3926     test_CloseView();
3927     test_CloseView();
3928     test_Close(unk, TRUE);
3929     test_OnAmbientPropertyChange2(unk);
3930     test_GetCurMoniker(unk, do_load ? &Moniker : NULL, NULL);
3931
3932     if(!do_load) {
3933         /* Activate HTMLDocument again, calling UIActivate after showing the window */
3934         call_UIActivate = CallUIActivate_AfterShow;
3935         test_Activate(unk, 0);
3936         test_Window(unk, TRUE);
3937         test_OleCommandTarget(unk);
3938         test_UIDeactivate();
3939         test_InPlaceDeactivate(unk, TRUE);
3940         test_Close(unk, FALSE);
3941         call_UIActivate = CallUIActivate_None;
3942     }
3943
3944     if(view)
3945         IOleDocumentView_Release(view);
3946     view = NULL;
3947
3948     ok(IsWindow(hwnd), "hwnd is destroyed\n");
3949
3950     ref = IUnknown_Release(unk);
3951     ok(ref == 0, "ref=%d, expected 0\n", ref);
3952
3953     ok(!IsWindow(hwnd), "hwnd is not destroyed\n");
3954 }
3955
3956 static void test_HTMLDocument_hlink(void)
3957 {
3958     IUnknown *unk;
3959     HRESULT hres;
3960     ULONG ref;
3961
3962     trace("Testing HTMLDocument (hlink)...\n");
3963
3964     init_test(LD_DOLOAD);
3965     ipsex = TRUE;
3966
3967     hres = create_document(&unk);
3968     if(FAILED(hres))
3969         return;
3970     doc_unk = unk;
3971
3972     test_ConnectionPointContainer(unk);
3973     test_GetCurMoniker(unk, NULL, NULL);
3974     test_Persist(unk, &Moniker);
3975     test_Navigate(unk);
3976     if(show_failed) {
3977         IUnknown_Release(unk);
3978         return;
3979     }
3980
3981     test_download(DWL_CSS|DWL_TRYCSS);
3982
3983     test_IsDirty(unk, S_FALSE);
3984     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3985
3986     test_exec_onunload(unk);
3987     test_Window(unk, TRUE);
3988     test_InPlaceDeactivate(unk, TRUE);
3989     test_Close(unk, FALSE);
3990     test_IsDirty(unk, S_FALSE);
3991     test_GetCurMoniker(unk, &Moniker, NULL);
3992
3993     if(view)
3994         IOleDocumentView_Release(view);
3995     view = NULL;
3996
3997     ref = IUnknown_Release(unk);
3998     ok(ref == 0, "ref=%d, expected 0\n", ref);
3999 }
4000
4001 static void test_HTMLDocument_http(void)
4002 {
4003     IMoniker *http_mon;
4004     IUnknown *unk;
4005     ULONG ref;
4006     HRESULT hres;
4007
4008     static const WCHAR http_urlW[] =
4009         {'h','t','t','p',':','/','/','w','w','w','.','w','i','n','e','h','q','.','o','r','g',0};
4010
4011     trace("Testing HTMLDocument (http)...\n");
4012
4013     hres = CreateURLMoniker(NULL, http_urlW, &http_mon);
4014     ok(hres == S_OK, "CreateURLMoniker failed: %08x\n", hres);
4015
4016     init_test(LD_DOLOAD);
4017     ipsex = TRUE;
4018
4019     hres = create_document(&unk);
4020     if(FAILED(hres))
4021         return;
4022     doc_unk = unk;
4023
4024     test_ConnectionPointContainer(unk);
4025     test_GetCurMoniker(unk, NULL, NULL);
4026     test_Persist(unk, http_mon);
4027     test_Navigate(unk);
4028     if(show_failed) {
4029         IUnknown_Release(unk);
4030         return;
4031     }
4032
4033     test_download(DWL_HTTP);
4034
4035     test_IsDirty(unk, S_FALSE);
4036     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
4037
4038     test_InPlaceDeactivate(unk, TRUE);
4039     test_Close(unk, FALSE);
4040     test_IsDirty(unk, S_FALSE);
4041     test_GetCurMoniker(unk, http_mon, NULL);
4042
4043     if(view)
4044         IOleDocumentView_Release(view);
4045     view = NULL;
4046
4047     ref = IUnknown_Release(unk);
4048     ok(!ref, "ref=%d, expected 0\n", ref);
4049
4050     ref = IMoniker_Release(http_mon);
4051     ok(!ref, "ref=%d, expected 0\n", ref);
4052 }
4053
4054 static void test_HTMLDocument_StreamLoad(void)
4055 {
4056     IOleObject *oleobj;
4057     IUnknown *unk;
4058     HRESULT hres;
4059     ULONG ref;
4060
4061     trace("Testing HTMLDocument (IPersistStreamInit)...\n");
4062
4063     init_test(LD_DOLOAD);
4064     load_from_stream = TRUE;
4065
4066     hres = create_document(&unk);
4067     if(FAILED(hres))
4068         return;
4069     doc_unk = unk;
4070
4071     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
4072     ok(hres == S_OK, "Could not get IOleObject: %08x\n", hres);
4073
4074     test_readyState(unk);
4075     test_IsDirty(unk, S_FALSE);
4076     test_ConnectionPointContainer(unk);
4077     test_ClientSite(oleobj, CLIENTSITE_EXPECTPATH);
4078     test_DoVerb(oleobj);
4079     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
4080
4081     IOleObject_Release(oleobj);
4082
4083     test_GetCurMoniker(unk, NULL, NULL);
4084     test_StreamLoad(unk);
4085     test_download(DWL_VERBDONE|DWL_TRYCSS);
4086     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
4087
4088     test_UIDeactivate();
4089     test_InPlaceDeactivate(unk, TRUE);
4090     test_Close(unk, FALSE);
4091     test_IsDirty(unk, S_FALSE);
4092
4093     if(view) {
4094         IOleDocumentView_Release(view);
4095         view = NULL;
4096     }
4097
4098
4099     ref = IUnknown_Release(unk);
4100     ok(ref == 0, "ref=%d, expected 0\n", ref);
4101 }
4102
4103 static void test_edit_uiactivate(IOleObject *oleobj)
4104 {
4105     IOleDocumentView *docview;
4106     HRESULT hres;
4107
4108     hres = IOleObject_QueryInterface(oleobj, &IID_IOleDocumentView, (void **)&docview);
4109     ok(hres == S_OK, "IOleObject_QueryInterface failed with error 0x%08x\n", hres);
4110
4111     SET_EXPECT(OnFocus_TRUE);
4112     SET_EXPECT(SetActiveObject);
4113     SET_EXPECT(ShowUI);
4114     SET_EXPECT(InPlaceUIWindow_SetActiveObject);
4115     SET_EXPECT(InPlaceFrame_SetBorderSpace);
4116     expect_status_text = NULL;
4117
4118     hres = IOleDocumentView_UIActivate(docview, TRUE);
4119     ok(hres == S_OK, "IOleDocumentView_UIActivate failed with error 0x%08x\n", hres);
4120
4121     CHECK_CALLED(OnFocus_TRUE);
4122     CHECK_CALLED(SetActiveObject);
4123     CHECK_CALLED(ShowUI);
4124     CHECK_CALLED(InPlaceUIWindow_SetActiveObject);
4125     CHECK_CALLED(InPlaceFrame_SetBorderSpace);
4126
4127     IOleDocumentView_Release(docview);
4128 }
4129
4130 static void test_editing_mode(BOOL do_load)
4131 {
4132     IUnknown *unk;
4133     IOleObject *oleobj;
4134     HRESULT hres;
4135     ULONG ref;
4136
4137     trace("Testing HTMLDocument (edit%s)...\n", do_load ? " load" : "");
4138
4139     init_test(do_load ? LD_DOLOAD : LD_NO);
4140     call_UIActivate = CallUIActivate_AfterShow;
4141
4142     hres = create_document(&unk);
4143     if(FAILED(hres))
4144         return;
4145     doc_unk = unk;
4146
4147     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
4148     ok(hres == S_OK, "Could not get IOleObject: %08x\n", hres);
4149
4150     test_readyState(unk);
4151     test_ConnectionPointContainer(unk);
4152     test_ClientSite(oleobj, CLIENTSITE_EXPECTPATH);
4153     test_DoVerb(oleobj);
4154     test_edit_uiactivate(oleobj);
4155
4156     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
4157     if(do_load)
4158         test_Persist(unk, &Moniker);
4159     stream_read = protocol_read = 0;
4160     test_exec_editmode(unk, do_load);
4161     test_UIDeactivate();
4162     call_UIActivate = CallUIActivate_None;
4163     IOleObject_Release(oleobj);
4164
4165     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
4166     test_download(DWL_VERBDONE | (do_load ? DWL_CSS|DWL_TRYCSS : 0));
4167
4168     SET_EXPECT(SetStatusText); /* ignore race in native mshtml */
4169     test_timer(EXPECT_UPDATEUI);
4170     SET_CALLED(SetStatusText);
4171
4172     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED|OLECMDF_ENABLED);
4173
4174     if(!do_load) {
4175         test_exec_fontname(unk, NULL, wszTimesNewRoman);
4176         test_exec_fontname(unk, wszArial, wszTimesNewRoman);
4177         test_timer(EXPECT_UPDATEUI);
4178         test_exec_fontname(unk, NULL, wszArial);
4179
4180         test_exec_noargs(unk, IDM_JUSTIFYRIGHT);
4181         test_timer(EXPECT_UPDATEUI);
4182         if(!nogecko)
4183             test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT,
4184                              OLECMDF_SUPPORTED|OLECMDF_ENABLED|OLECMDF_LATCHED);
4185
4186         test_exec_noargs(unk, IDM_JUSTIFYCENTER);
4187         test_timer(EXPECT_UPDATEUI);
4188         test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT,
4189                          OLECMDF_SUPPORTED|OLECMDF_ENABLED);
4190         if(!nogecko)
4191             test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYCENTER,
4192                              OLECMDF_SUPPORTED|OLECMDF_ENABLED|OLECMDF_LATCHED);
4193
4194         test_exec_noargs(unk, IDM_HORIZONTALLINE);
4195         test_timer(EXPECT_UPDATEUI);
4196         test_QueryStatus(unk, &CGID_MSHTML, IDM_HORIZONTALLINE,
4197                          OLECMDF_SUPPORTED|OLECMDF_ENABLED);
4198     }
4199
4200     test_UIDeactivate();
4201     test_InPlaceDeactivate(unk, TRUE);
4202     test_Close(unk, FALSE);
4203
4204     if(view) {
4205         IOleDocumentView_Release(view);
4206         view = NULL;
4207     }
4208
4209     ref = IUnknown_Release(unk);
4210     ok(ref == 0, "ref=%d, expected 0\n", ref);
4211 }
4212
4213 static void register_protocol(void)
4214 {
4215     IInternetSession *session;
4216     HRESULT hres;
4217
4218     static const WCHAR wsz_winetest[] = {'w','i','n','e','t','e','s','t',0};
4219
4220     hres = CoInternetGetSession(0, &session, 0);
4221     ok(hres == S_OK, "CoInternetGetSession failed: %08x\n", hres);
4222
4223     hres = IInternetSession_RegisterNameSpace(session, &ClassFactory, &IID_NULL,
4224             wsz_winetest, 0, NULL, 0);
4225     ok(hres == S_OK, "RegisterNameSpace failed: %08x\n", hres);
4226
4227     IInternetSession_Release(session);
4228 }
4229
4230 static void gecko_installer_workaround(BOOL disable)
4231 {
4232     HKEY hkey;
4233     DWORD res;
4234
4235     static BOOL has_url = FALSE;
4236     static char url[2048];
4237
4238     if(!disable && !has_url)
4239         return;
4240
4241     res = RegOpenKey(HKEY_CURRENT_USER, "Software\\Wine\\MSHTML", &hkey);
4242     if(res != ERROR_SUCCESS)
4243         return;
4244
4245     if(disable) {
4246         DWORD type, size = sizeof(url);
4247
4248         res = RegQueryValueEx(hkey, "GeckoUrl", NULL, &type, (PVOID)url, &size);
4249         if(res == ERROR_SUCCESS && type == REG_SZ)
4250             has_url = TRUE;
4251
4252         RegDeleteValue(hkey, "GeckoUrl");
4253     }else {
4254         RegSetValueEx(hkey, "GeckoUrl", 0, REG_SZ, (PVOID)url, lstrlenA(url)+1);
4255     }
4256
4257     RegCloseKey(hkey);
4258 }
4259
4260 static void test_HTMLDoc_ISupportErrorInfo(void)
4261 {
4262     HRESULT hres;
4263     IUnknown *unk;
4264     ISupportErrorInfo *sinfo;
4265     LONG ref;
4266
4267     hres = create_document(&unk);
4268     if(FAILED(hres))
4269         return;
4270
4271     hres = IUnknown_QueryInterface(unk, &IID_ISupportErrorInfo, (void**)&sinfo);
4272     ok(hres == S_OK, "got %x\n", hres);
4273     ok(sinfo != NULL, "got %p\n", sinfo);
4274     if(sinfo)
4275     {
4276         hres = ISupportErrorInfo_InterfaceSupportsErrorInfo(sinfo, &IID_IErrorInfo);
4277         ok(hres == S_FALSE, "Expected S_OK, got %x\n", hres);
4278         IUnknown_Release(sinfo);
4279     }
4280
4281     ref = IUnknown_Release(unk);
4282     ok(ref == 0, "ref=%d, expected 0\n", ref);
4283 }
4284
4285 static void test_IPersistHistory(void)
4286 {
4287     HRESULT hres;
4288     IUnknown *unk;
4289     LONG ref;
4290     IPersistHistory *phist;
4291
4292     hres = create_document(&unk);
4293     if(FAILED(hres))
4294         return;
4295
4296     hres = IUnknown_QueryInterface(unk, &IID_IPersistHistory, (void**)&phist);
4297     ok(hres == S_OK, "QueryInterface returned %08x, expected S_OK\n", hres);
4298     if(hres == S_OK)
4299         IPersistHistory_Release(phist);
4300
4301     ref = IUnknown_Release(unk);
4302     ok(ref == 0, "ref=%d, expected 0\n", ref);
4303 }
4304
4305 START_TEST(htmldoc)
4306 {
4307     gecko_installer_workaround(TRUE);
4308
4309     CoInitialize(NULL);
4310     container_hwnd = create_container_window();
4311     register_protocol();
4312
4313     test_HTMLDocument_hlink();
4314     if(!show_failed) {
4315         test_HTMLDocument(FALSE);
4316         test_HTMLDocument(TRUE);
4317         test_HTMLDocument_StreamLoad();
4318         test_editing_mode(FALSE);
4319         test_editing_mode(TRUE);
4320         test_HTMLDocument_http();
4321     }
4322     test_HTMLDoc_ISupportErrorInfo();
4323     test_IPersistHistory();
4324
4325     DestroyWindow(container_hwnd);
4326     CoUninitialize();
4327
4328     gecko_installer_workaround(FALSE);
4329 }